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

Disable flycheck in racket-xp-mode

Browse source 
Plus minor refactors.

Closes #3594

Co-authored-by: sorawee <sorawee@users.noreply.github.com>
This commit is contained in:
Henrik Lissner 2020-07-26 15:08:28 -04:00
parent 0f39d7bda4
commit e6979166ee
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
2 changed files with 36 additions and 26 deletions
Download patch file Download diff file Expand all files Collapse all files

11
modules/lang/racket/autoload.el
View file

@ -13,7 +13,7 @@
;;;###autoload ;;;###autoload
(defun +racket-lookup-documentation (thing) (defun +racket-lookup-documentation (thing)
"A `+lookup/documentation' handler for Racket." "A `+lookup/documentation' handler for `racket-mode' and `racket-xp-mode'."
(let ((buf (if racket-xp-mode (let ((buf (if racket-xp-mode
(racket-xp-describe thing) (racket-xp-describe thing)
(racket-repl-describe thing)))) (racket-repl-describe thing))))
@ -23,7 +23,8 @@
;;;###autoload ;;;###autoload
(defun +racket-lookup-definition (_thing) (defun +racket-lookup-definition (_thing)
"A `+lookup/definition' handler for Racket." "A `+lookup/definition' handler for `racket-mode' and `racket-xp-mode'."
(if racket-xp-mode (call-interactively
(call-interactively #'racket-xp-visit-definition) (if racket-xp-mode
(call-interactively #'racket-repl-visit-definition))) #'racket-xp-visit-definition
#'racket-repl-visit-definition)))

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

@ -28,39 +28,48 @@
#'highlight-quoted-mode) #'highlight-quoted-mode)
(when (featurep! +xp) (when (featurep! +xp)
(add-hook 'racket-mode-hook #'racket-xp-mode)) (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 ()
(flycheck-disable-checker 'racket)))))
(unless (or (featurep! :editor parinfer) (unless (or (featurep! :editor parinfer)
(featurep! :editor lispy)) (featurep! :editor lispy))
(add-hook 'racket-mode-hook #'racket-smart-open-bracket-mode)) (add-hook 'racket-mode-hook #'racket-smart-open-bracket-mode))
(map! :localleader (map! (:map racket-xp-mode-map
:map racket-mode-map [remap next-error] #'racket-xp-next-error
"a" #'racket-align [remap previous-error] #'racket-xp-previous-error)
"A" #'racket-unalign (:localleader
"f" #'racket-fold-all-tests :map racket-mode-map
"F" #'racket-unfold-all-tests "a" #'racket-align
"h" #'racket-doc "A" #'racket-unalign
"i" #'racket-unicode-input-method-enable "f" #'racket-fold-all-tests
"l" #'racket-logger "F" #'racket-unfold-all-tests
"o" #'racket-profile "h" #'racket-doc
"p" #'racket-cycle-paren-shapes "i" #'racket-unicode-input-method-enable
"r" #'racket-run "l" #'racket-logger
"R" #'racket-run-and-switch-to-repl "o" #'racket-profile
"t" #'racket-test "p" #'racket-cycle-paren-shapes
"u" #'racket-backward-up-list "r" #'racket-run
"y" #'racket-insert-lambda "R" #'racket-run-and-switch-to-repl
(:prefix ("m" . "macros") "t" #'racket-test
"u" #'racket-backward-up-list
"y" #'racket-insert-lambda
(:prefix ("m" . "macros")
"d" #'racket-expand-definition "d" #'racket-expand-definition
"e" #'racket-expand-last-sexp "e" #'racket-expand-last-sexp
"r" #'racket-expand-region "r" #'racket-expand-region
"a" #'racket-expand-again) "a" #'racket-expand-again)
(:prefix ("g" . "goto") (:prefix ("g" . "goto")
"b" #'racket-unvisit "b" #'racket-unvisit
"d" #'racket-visit-definition "d" #'racket-visit-definition
"m" #'racket-visit-module "m" #'racket-visit-module
"r" #'racket-open-require-path) "r" #'racket-open-require-path)
(:prefix ("s" . "send") (:prefix ("s" . "send")
"d" #'racket-send-definition "d" #'racket-send-definition
"e" #'racket-send-last-sexp "e" #'racket-send-last-sexp
"r" #'racket-send-region))) "r" #'racket-send-region))))