diff --git a/modules/lang/clojure/autoload.el b/modules/lang/clojure/autoload.el index 979e57b93..a85730cbd 100644 --- a/modules/lang/clojure/autoload.el +++ b/modules/lang/clojure/autoload.el @@ -13,7 +13,7 @@ at point." ;;; Commands ;;;###autoload -(defun +clojure/repl (&optional arg) +(defun +clojure/open-repl (&optional arg) "Open a Cider REPL and return the buffer." (interactive "P") (cider-jack-in arg) diff --git a/modules/lang/clojure/config.el b/modules/lang/clojure/config.el index 2c3a4b391..da45ba66f 100644 --- a/modules/lang/clojure/config.el +++ b/modules/lang/clojure/config.el @@ -3,7 +3,7 @@ (after! clojure-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)) diff --git a/modules/lang/racket/autoload.el b/modules/lang/racket/autoload.el index c1d071aa3..4c71bdf62 100644 --- a/modules/lang/racket/autoload.el +++ b/modules/lang/racket/autoload.el @@ -1,7 +1,7 @@ ;;; lang/racket/autoload.el -*- lexical-binding: t; -*- ;;;###autoload -(defun +racket/repl () +(defun +racket/open-repl () "Open the Racket REPL." (interactive) (pop-to-buffer diff --git a/modules/lang/racket/config.el b/modules/lang/racket/config.el index d5c4b19c0..5145a3e92 100644 --- a/modules/lang/racket/config.el +++ b/modules/lang/racket/config.el @@ -4,7 +4,7 @@ :hook (racket-repl-mode . racket-unicode-input-method-enable) :config (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 :definition #'racket-visit-definition :documentation #'racket-describe) diff --git a/modules/lang/scheme/autoload.el b/modules/lang/scheme/autoload.el index 2573ef5fb..91729cb0b 100644 --- a/modules/lang/scheme/autoload.el +++ b/modules/lang/scheme/autoload.el @@ -1,7 +1,7 @@ ;;; lang/scheme/autoload.el -*- lexical-binding: t; -*- ;;;###autoload -(defun +scheme/repl (&optional arg) +(defun +scheme/open-repl (&optional arg) "Open the Scheme REPL." (interactive "P") (switch-to-geiser arg) diff --git a/modules/lang/scheme/config.el b/modules/lang/scheme/config.el index 7641c8387..9f4e286a0 100644 --- a/modules/lang/scheme/config.el +++ b/modules/lang/scheme/config.el @@ -11,7 +11,7 @@ (unless (featurep! :lang racket) (push 'racket geiser-active-implementations)) (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-lookup-handlers! 'scheme-mode :definition #'geiser-edit-symbol-at-point