   ("racket" . racket-mode)
   :bind
   (:map racket-mode-map
-        ("<f6> l" . lispy-mode)
-        ("<f6> g" . geiser-mode))
+        ("<f6> l" . lispy-mode))
   :init
   (use-package company
     :config

                                  (set (make-local-variable 'company-backends)
                                       '((company-capf
                                          company-keywords
                                          ;; company-yasnippet
                                          company-abbrev
                                          company-dabbrev-code
                                          company-dabbrev


  (setq lisp-prettify-symbols-alist
        '(("lambda" . ?λ)
          ("->"     . ?→)
          ("=>"     . ?⇒)
          ("map"    . ?↦)
          ("."      . ?•))
        prettify-symbols-alist lisp-prettify-symbols-alist
        prettify-symbols-unprettify-at-point 'right-edge)

