       use-dialog-box nil
       uniquify-buffer-name-style 'forward
       ediff-window-setup-function 'ediff-setup-windows-plain
-      font-lock-maximum-decoration '((racket-mode . t) (t . 1))
+      ;; font-lock-maximum-decoration '((racket-mode . t) (t . 1))
       vc-diff-switches "-u"
       search-highlight t
       isearch-allow-scroll t

                                 " DerivePointerAlignment: false,"
                                 " Standard: Cpp11}"))

(with-eval-after-load 'company (diminish 'company-mode))
(setq company-idle-delay 0.1)

(require 'rtags)
(require 'popup)
(require 'company)
(require 'company-rtags)

(defun my-imenu ()
  (interactive)

(setq geiser-active-implementations '(chicken)
      geiser-mode-start-repl-p t)

(setq inferior-lisp-program (executable-find "sbcl"))
(slime-setup '(slime-fancy slime-asdf slime-sbcl-exts slime-company))
(setq slime-repl-history-remove-duplicates t
      slime-repl-history-trim-whitespaces t)

(when (not (kelly?))
  (setq compile-command "scons"))
