Standardize naming of repl handler commands

This commit is contained in:
Henrik Lissner 2019-10-07 14:08:58 -04:00
parent 01fa9ec169
commit 11a6c03d69
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
6 changed files with 6 additions and 6 deletions

View file

@ -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)

View file

@ -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))

View file

@ -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

View file

@ -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)

View file

@ -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)

View file

@ -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