Standardize naming of repl handler commands
This commit is contained in:
parent
01fa9ec169
commit
11a6c03d69
6 changed files with 6 additions and 6 deletions
|
@ -13,7 +13,7 @@ at point."
|
||||||
;;; Commands
|
;;; Commands
|
||||||
|
|
||||||
;;;###autoload
|
;;;###autoload
|
||||||
(defun +clojure/repl (&optional arg)
|
(defun +clojure/open-repl (&optional arg)
|
||||||
"Open a Cider REPL and return the buffer."
|
"Open a Cider REPL and return the buffer."
|
||||||
(interactive "P")
|
(interactive "P")
|
||||||
(cider-jack-in arg)
|
(cider-jack-in arg)
|
||||||
|
|
|
@ -3,7 +3,7 @@
|
||||||
(after! clojure-mode
|
(after! clojure-mode
|
||||||
(add-hook 'clojure-mode-hook #'rainbow-delimiters-mode)
|
(add-hook 'clojure-mode-hook #'rainbow-delimiters-mode)
|
||||||
|
|
||||||
(set-repl-handler! 'clojure-mode #'+clojure/repl)
|
(set-repl-handler! 'clojure-mode #'+clojure/open-repl)
|
||||||
(set-eval-handler! 'clojure-mode #'cider-eval-region))
|
(set-eval-handler! 'clojure-mode #'cider-eval-region))
|
||||||
|
|
||||||
|
|
||||||
|
|
|
@ -1,7 +1,7 @@
|
||||||
;;; lang/racket/autoload.el -*- lexical-binding: t; -*-
|
;;; lang/racket/autoload.el -*- lexical-binding: t; -*-
|
||||||
|
|
||||||
;;;###autoload
|
;;;###autoload
|
||||||
(defun +racket/repl ()
|
(defun +racket/open-repl ()
|
||||||
"Open the Racket REPL."
|
"Open the Racket REPL."
|
||||||
(interactive)
|
(interactive)
|
||||||
(pop-to-buffer
|
(pop-to-buffer
|
||||||
|
|
|
@ -4,7 +4,7 @@
|
||||||
:hook (racket-repl-mode . racket-unicode-input-method-enable)
|
:hook (racket-repl-mode . racket-unicode-input-method-enable)
|
||||||
:config
|
:config
|
||||||
(set-popup-rule! "^\\*Racket REPL" :size 10 :select t)
|
(set-popup-rule! "^\\*Racket REPL" :size 10 :select t)
|
||||||
(set-repl-handler! 'racket-mode #'+racket/repl)
|
(set-repl-handler! 'racket-mode #'+racket/open-repl)
|
||||||
(set-lookup-handlers! 'racket-mode
|
(set-lookup-handlers! 'racket-mode
|
||||||
:definition #'racket-visit-definition
|
:definition #'racket-visit-definition
|
||||||
:documentation #'racket-describe)
|
:documentation #'racket-describe)
|
||||||
|
|
|
@ -1,7 +1,7 @@
|
||||||
;;; lang/scheme/autoload.el -*- lexical-binding: t; -*-
|
;;; lang/scheme/autoload.el -*- lexical-binding: t; -*-
|
||||||
|
|
||||||
;;;###autoload
|
;;;###autoload
|
||||||
(defun +scheme/repl (&optional arg)
|
(defun +scheme/open-repl (&optional arg)
|
||||||
"Open the Scheme REPL."
|
"Open the Scheme REPL."
|
||||||
(interactive "P")
|
(interactive "P")
|
||||||
(switch-to-geiser arg)
|
(switch-to-geiser arg)
|
||||||
|
|
|
@ -11,7 +11,7 @@
|
||||||
(unless (featurep! :lang racket)
|
(unless (featurep! :lang racket)
|
||||||
(push 'racket geiser-active-implementations))
|
(push 'racket geiser-active-implementations))
|
||||||
(after! scheme ; built-in
|
(after! scheme ; built-in
|
||||||
(set-repl-handler! 'scheme-mode '+scheme/repl)
|
(set-repl-handler! 'scheme-mode '+scheme/open-repl)
|
||||||
(set-eval-handler! 'scheme-mode #'geiser-eval-region)
|
(set-eval-handler! 'scheme-mode #'geiser-eval-region)
|
||||||
(set-lookup-handlers! 'scheme-mode
|
(set-lookup-handlers! 'scheme-mode
|
||||||
:definition #'geiser-edit-symbol-at-point
|
:definition #'geiser-edit-symbol-at-point
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue