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

  :defer t
  :diminish litable-mode " Ⓣ")

(use-package geiser
  :ensure t
  :defer t
  :diminish geiser-mode " Ⓖ"
  :bind
  (:map geiser-mode-map
        ("C-c C-c" . geiser-eval-last-sexp))
  :config
  (setq geiser-racket-binary "/usr/bin/racket"))

(provide 'mds-lisp-pl)
;;; mds-lisp-pl ends here

        ("<f6> l" . lispy-mode)
        ("<f6> p" . parinfer-mode)
        ("<f6> t" . litable-mode)
        ("M-."    . find-function-at-point)
        ("M-&"    . complete-symbol))
  :init
  (use-package macrostep
    :bind
