       next-line-add-newlines nil
       inhibit-startup-message t
       initial-scratch-message nil
-      font-lock-maximum-decoration 1
+      font-lock-maximum-decoration '((racket-mode . t) (t . 1))
       vc-diff-switches "-u")
 
 (defun kelly? ()

                      swift-mode
                      elpy
                      define-word
                      repl-toggle
                      sx
                      imenu-anywhere
                      rainbow-mode

(add-hook 'emacs-lisp-mode-hook 'rainbow-mode)
(require 'json-mode)
(require 'define-word)
(require 'sx)
(add-hook 'prog-mode-hook
          (lambda ()
