emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

feat(racket): add +hash-lang

Browse source 
`racket-mode` recently added `racket-hash-lang-mode` as an alternative
major mode.

Close: #7543
Co-authored-by: hlissner <hlissner@users.noreply.github.com>
This commit is contained in:
Sorawee Porncharoenwase 2024-09-11 05:51:49 -04:00 • committed by Henrik Lissner
parent f6b7e8ae48
commit 1baebdafb3
No known key found for this signature in database
GPG key ID: B60957CA074D39A3
2 changed files with 104 additions and 82 deletions
Download patch file Download diff file Expand all files Collapse all files

8
modules/lang/racket/README.org
View file

@ -14,8 +14,12 @@ This module adds support for the [[https://www.racket-lang.org/][Racket programm
Enable support for ~racket-mode~. Requires [[doom-module::tools lsp]] and a langserver Enable support for ~racket-mode~. Requires [[doom-module::tools lsp]] and a langserver
(supports [[https://github.com/jeapostrophe/racket-langserver][racket-langserver]]). (supports [[https://github.com/jeapostrophe/racket-langserver][racket-langserver]]).
- +xp :: - +xp ::
Enable the explore mode (~racket-xp-mode~), which "analyzes expanded code to Enable the explore minor mode (~racket-xp-mode~), which "analyzes expanded
explain and explore." code to explain and explore."
- +hash-lang ::
Enable the hash-lang major mode (~racket-hash-lang-mode~), which "uses
color-lexer, indent, and navigation supplied by a #lang." This flag can be
used along with the ~+xp~ flag.
** Packages ** Packages
- [[doom-package:racket-mode]] - [[doom-package:racket-mode]]

178
modules/lang/racket/config.el
View file

@ -8,88 +8,106 @@
;; ;;
;;; Packages ;;; Packages
(use-package! racket-mode (let (mode
:mode "\\.rkt\\'" ; give it precedence over :lang scheme mode-map
:config mode-exts
(set-repl-handler! 'racket-mode #'+racket/open-repl) mode-hook
(set-lookup-handlers! '(racket-mode racket-repl-mode) mode-local-vars-hook)
:definition #'+racket-lookup-definition (if (modulep! +hash-lang)
:documentation #'+racket-lookup-documentation) (setq mode 'racket-hash-lang-mode
(set-docsets! 'racket-mode "Racket") mode-exts '("\\.rkt\\'" ; Racket
(set-ligatures! 'racket-mode "\\.scrbl\\'" ; Scribble
:lambda "lambda" "\\.rhm\\'")) ; Rhombus
:map "map" (setq mode 'racket-mode
:dot ".") mode-exts `("\\.rkt\\'")))
(set-rotate-patterns! 'racket-mode (let ((mode-name (symbol-name mode)))
:symbols '(("#true" "#false"))) (setq mode-map (intern (format "%s-map" mode-name))
(set-formatter! 'raco-fmt '("raco" "fmt") :modes '(racket-mode)) mode-hook (intern (format "%s-hook" mode-name))
mode-local-vars-hook (intern (format "%s-local-vars-hook" mode-name))))
(add-hook! 'racket-mode-hook (use-package! racket-mode
#'rainbow-delimiters-mode :defer t
#'highlight-quoted-mode) :init
(dolist (entry mode-exts)
(add-to-list 'auto-mode-alist (cons entry mode)))
:config
(set-repl-handler! mode #'+racket/open-repl)
(set-lookup-handlers! `(,mode racket-repl-mode)
:definition #'+racket-lookup-definition
:documentation #'+racket-lookup-documentation)
(set-docsets! mode "Racket")
(set-ligatures! mode
:lambda "lambda"
:map "map"
:dot ".")
(set-rotate-patterns! mode :symbols '(("#true" "#false")))
(set-formatter! 'raco-fmt '("raco" "fmt") :modes (list mode))
(when (modulep! +lsp) (add-hook mode-hook #'rainbow-delimiters-mode)
(add-hook 'racket-mode-local-vars-hook #'lsp! 'append)) (add-hook mode-hook #'highlight-quoted-mode)
(when (modulep! +xp) (when (modulep! +lsp)
(add-hook 'racket-mode-local-vars-hook #'racket-xp-mode) (add-hook mode-local-vars-hook #'lsp! 'append))
;; Both flycheck and racket-xp produce error popups, but racket-xp's are
;; higher quality so disable flycheck's:
(when (modulep! :checkers syntax)
(add-hook! 'racket-xp-mode-hook
(defun +racket-disable-flycheck-h ()
(cl-pushnew 'racket flycheck-disabled-checkers)))))
(unless (or (modulep! :editor parinfer) (when (modulep! +xp)
(modulep! :editor lispy)) (add-hook mode-local-vars-hook #'racket-xp-mode)
(add-hook 'racket-mode-hook #'racket-smart-open-bracket-mode)) ;; Both flycheck and racket-xp produce error popups, but racket-xp's are
;; higher quality so disable flycheck's:
(when (modulep! :checkers syntax)
(add-hook! 'racket-xp-mode-hook
(defun +racket-disable-flycheck-h ()
(cl-pushnew 'racket flycheck-disabled-checkers)))))
(map! (:map racket-xp-mode-map (unless (or (modulep! :editor parinfer)
[remap racket-doc] #'racket-xp-documentation (modulep! :editor lispy))
[remap racket-visit-definition] #'racket-xp-visit-definition (add-hook mode-hook #'racket-smart-open-bracket-mode))
[remap next-error] #'racket-xp-next-error
[remap previous-error] #'racket-xp-previous-error) (map! (:map racket-xp-mode-map
(:localleader [remap racket-doc] #'racket-xp-documentation
:map racket-mode-map [remap racket-visit-definition] #'racket-xp-visit-definition
"a" #'racket-align [remap next-error] #'racket-xp-next-error
"A" #'racket-unalign [remap previous-error] #'racket-xp-previous-error)
"f" #'racket-fold-all-tests (:localleader
"F" #'racket-unfold-all-tests :map ,mode-map
"h" #'racket-doc "a" #'racket-align
"i" #'racket-unicode-input-method-enable "A" #'racket-unalign
"l" #'racket-logger "f" #'racket-fold-all-tests
"o" #'racket-profile "F" #'racket-unfold-all-tests
"p" #'racket-cycle-paren-shapes "h" #'racket-doc
"r" #'racket-run "i" #'racket-unicode-input-method-enable
"R" #'racket-run-and-switch-to-repl "l" #'racket-logger
"t" #'racket-test "o" #'racket-profile
"u" #'racket-backward-up-list "p" #'racket-cycle-paren-shapes
"y" #'racket-insert-lambda "r" #'racket-run
(:prefix ("m" . "macros") "R" #'racket-run-and-switch-to-repl
"d" #'racket-expand-definition "t" #'racket-test
"e" #'racket-expand-last-sexp "u" #'racket-backward-up-list
"r" #'racket-expand-region "y" #'racket-insert-lambda
"a" #'racket-expand-again) (:prefix ("m" . "macros")
(:prefix ("g" . "goto") "d" #'racket-expand-definition
"b" #'racket-unvisit "e" #'racket-expand-last-sexp
"d" #'racket-visit-definition "r" #'racket-expand-region
"m" #'racket-visit-module "a" #'racket-expand-again)
"r" #'racket-open-require-path) (:prefix ("g" . "goto")
(:prefix ("s" . "send") "b" #'racket-unvisit
"d" #'racket-send-definition "d" #'racket-visit-definition
"e" #'racket-send-last-sexp "m" #'racket-visit-module
"r" #'racket-send-region) "r" #'racket-open-require-path)
:map racket-repl-mode-map (:prefix ("s" . "send")
"l" #'racket-logger "d" #'racket-send-definition
"h" #'racket-repl-documentation "e" #'racket-send-last-sexp
"y" #'racket-insert-lambda "r" #'racket-send-region)
"u" #'racket-backward-up-list :map racket-repl-mode-map
(:prefix ("m" . "macros") "l" #'racket-logger
"d" #'racket-expand-definition "h" #'racket-repl-documentation
"e" #'racket-expand-last-sexp "y" #'racket-insert-lambda
"f" #'racket-expand-file "u" #'racket-backward-up-list
"r" #'racket-expand-region) (:prefix ("m" . "macros")
(:prefix ("g" . "goto") "d" #'racket-expand-definition
"b" #'racket-unvisit "e" #'racket-expand-last-sexp
"m" #'racket-visit-module "f" #'racket-expand-file
"d" #'racket-repl-visit-definition)))) "r" #'racket-expand-region)
(:prefix ("g" . "goto")
"b" #'racket-unvisit
"m" #'racket-visit-module
"d" #'racket-repl-visit-definition)))))