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

lang/clojure: fix repl handler #1714

Browse source
This commit is contained in:
Henrik Lissner 2019-10-08 17:38:31 -04:00
parent bb71f591f8
commit 9857b3d481
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
2 changed files with 21 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

22
modules/lang/clojure/autoload.el
View file

@ -13,10 +13,26 @@ at point."
;;; Commands
;;;###autoload
(defun +clojure/open-repl (&optional arg)
"Open a Cider REPL and return the buffer."
(defun +clojure/open-repl (&optional arg type)
"Open a Cider REPL for clojure and return the buffer."
(interactive "P")
(process-buffer (cider-jack-in arg)))
;; TODO Better error handling
(let ((type (or type 'clj)))
(if-let (buffer (cider-current-repl type))
(pop-to-buffer buffer)
(let ((process (cider-jack-in-clj arg)))
(message "Starting CIDER server for the first time...")
(while (and (process-live-p process)
(not (cider-current-repl type)))
(sit-for 1))
(message "Starting CIDER server for the first time...done")
(pop-to-buffer (cider-current-repl type))))))
;;;###autoload
(defun +clojure/open-cljs-repl (&optional arg)
"Open a Cider REPL for clojurescript and return the buffer."
(interactive "P")
(+clojure/open-repl arg 'cljs))
;;;###autoload
(defun +clojure/cider-switch-to-repl-buffer-and-switch-ns ()

3
modules/lang/clojure/config.el
View file

@ -12,7 +12,8 @@
:init
(after! clojure-mode
(set-repl-handler! 'clojure-mode #'+clojure/open-repl)
(set-eval-handler! 'clojure-mode #'cider-eval-region))
(set-repl-handler! 'clojurescript-mode #'+clojure/open-cljs-repl)
(set-eval-handler! '(clojure-mode clojurescript-mode) #'cider-eval-region))
:config
(add-hook 'cider-mode-hook #'eldoc-mode)
(set-lookup-handlers! 'cider-mode