Emacs Setup for Racket

Add the following to .emacs.

(setq auto-mode-alist (cons '("\\.rkt$" . scheme-mode) auto-mode-alist))
(add-hook 'scheme-mode-hook
          '(lambda () 
             (setq scheme-program-name "racket")
             (setq scm-buffer (buffer-name))
             (run-scheme "racket")
             (if (= (count-windows) 1)
                 (progn
                  (split-window)
                  (switch-to-buffer "*scheme*")
                  (other-window -1)
                  (switch-to-buffer scm-buffer))
                 (switch-to-buffer scm-buffer))))

ctrl-e at the end of a function loads the function

ctrl-r loads the region