yeet

2022-01-11 18:05:13 -08:00
parent 2046befee2
commit 8e7b654716
846 changed files with 71287 additions and 4 deletions
--- a/.config/emacs/modules/lang/racket/config.el
+++ b/.config/emacs/modules/lang/racket/config.el
@@ -0,0 +1,93 @@
+;;; lang/racket/config.el -*- lexical-binding: t; -*-
+
+(after! projectile
+  (add-to-list 'projectile-project-root-files "info.rkt"))
+
+
+;;
+;;; Packages
+
+(use-package! racket-mode
+  :mode "\\.rkt\\'"  ; give it precedence over :lang scheme
+  :config
+  (set-repl-handler! 'racket-mode #'+racket/open-repl)
+  (set-lookup-handlers! '(racket-mode racket-repl-mode)
+    :definition    #'+racket-lookup-definition
+    :documentation #'+racket-lookup-documentation)
+  (set-docsets! 'racket-mode "Racket")
+  (set-ligatures! 'racket-mode
+    :lambda  "lambda"
+    :map     "map"
+    :dot     ".")
+  (set-rotate-patterns! 'racket-mode
+    :symbols '(("#true" "#false")))
+
+  (add-hook! 'racket-mode-hook
+             #'rainbow-delimiters-mode
+             #'highlight-quoted-mode)
+
+  (when (featurep! +lsp)
+    (add-hook 'racket-mode-local-vars-hook #'lsp!))
+
+  (when (featurep! +xp)
+    (add-hook 'racket-mode-local-vars-hook #'racket-xp-mode)
+    ;; Both flycheck and racket-xp produce error popups, but racket-xp's are
+    ;; higher quality so disable flycheck's:
+    (when (featurep! :checkers syntax)
+      (add-hook! 'racket-xp-mode-hook
+        (defun +racket-disable-flycheck-h ()
+          (cl-pushnew 'racket flycheck-disabled-checkers)))))
+
+  (unless (or (featurep! :editor parinfer)
+              (featurep! :editor lispy))
+    (add-hook 'racket-mode-hook #'racket-smart-open-bracket-mode))
+
+  (map! (:map racket-xp-mode-map
+         [remap racket-doc]              #'racket-xp-documentation
+         [remap racket-visit-definition] #'racket-xp-visit-definition
+         [remap next-error]              #'racket-xp-next-error
+         [remap previous-error]          #'racket-xp-previous-error)
+        (:localleader
+         :map racket-mode-map
+         "a" #'racket-align
+         "A" #'racket-unalign
+         "f" #'racket-fold-all-tests
+         "F" #'racket-unfold-all-tests
+         "h" #'racket-doc
+         "i" #'racket-unicode-input-method-enable
+         "l" #'racket-logger
+         "o" #'racket-profile
+         "p" #'racket-cycle-paren-shapes
+         "r" #'racket-run
+         "R" #'racket-run-and-switch-to-repl
+         "t" #'racket-test
+         "u" #'racket-backward-up-list
+         "y" #'racket-insert-lambda
+         (:prefix ("m" . "macros")
+          "d" #'racket-expand-definition
+          "e" #'racket-expand-last-sexp
+          "r" #'racket-expand-region
+          "a" #'racket-expand-again)
+         (:prefix ("g" . "goto")
+          "b" #'racket-unvisit
+          "d" #'racket-visit-definition
+          "m" #'racket-visit-module
+          "r" #'racket-open-require-path)
+         (:prefix ("s" . "send")
+          "d" #'racket-send-definition
+          "e" #'racket-send-last-sexp
+          "r" #'racket-send-region)
+         :map racket-repl-mode-map
+         "l" #'racket-logger
+         "h" #'racket-repl-documentation
+         "y" #'racket-insert-lambda
+         "u" #'racket-backward-up-list
+         (:prefix ("m" . "macros")
+          "d" #'racket-expand-definition
+          "e" #'racket-expand-last-sexp
+          "f" #'racket-expand-file
+          "r" #'racket-expand-region)
+         (:prefix ("g" . "goto")
+          "b" #'racket-unvisit
+          "m" #'racket-visit-module
+          "d" #'racket-repl-visit-definition))))