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

lang/clojure: add binding to switch/set namespace

Browse source 
Add a local leader keybinding to both switch to the CIDER REPL buffer and set the namespace according to the file buffer.
This commit is contained in:
Michael Fiano 2018-10-15 18:43:56 -04:00 • committed by GitHub
parent 8a2b241b0b
commit 5ad27da2f1
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 22 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -4,6 +4,10 @@
(after! clojure-mode (after! clojure-mode
(add-hook 'clojure-mode-hook #'rainbow-delimiters-mode) (add-hook 'clojure-mode-hook #'rainbow-delimiters-mode)
(defun +clojure|cider-switch-to-repl-buffer-and-switch-ns ()
(interactive)
(cider-switch-to-repl-buffer t))
(def-package! cider (def-package! cider
;; NOTE: if you don't have an org directory set (the dir doesn't exist), ;; NOTE: if you don't have an org directory set (the dir doesn't exist),
;; cider jack in won't work. ;; cider jack in won't work.
@ -54,30 +58,31 @@
:n "n" #'cider-find-ns) :n "n" #'cider-find-ns)
;; help ;; help
(:prefix "h" (:prefix "h"
:n "n" 'cider-find-ns :n "n" #'cider-find-ns
:n "a" 'cider-apropos :n "a" #'cider-apropos
:n "d" 'cider-doc :n "d" #'cider-doc
:n "g" 'cider-grimoire-web :n "g" #'cider-grimoire-web
:n "j" 'cider-javadoc) :n "j" #'cider-javadoc)
;; inspect ;; inspect
(:prefix "i" (:prefix "i"
:n "i" 'cider-inspect :n "i" #'cider-inspect
:n "r" 'cider-inspect-last-result) :n "r" #'cider-inspect-last-result)
;; macro ;; macro
(:prefix "m" (:prefix "m"
:n "e" 'cider-macroexpand-1 :n "e" #'cider-macroexpand-1
:n "E" 'cider-macroexpand-al) :n "E" #'cider-macroexpand-al)
;; namespace ;; namespace
(:prefix "n" (:prefix "n"
:n "n" 'cider-browse-ns :n "n" #'cider-browse-ns
:n "N" 'cider-browse-ns-all) :n "N" #'cider-browse-ns-all)
;; repl ;; repl
(:prefix "r" (:prefix "r"
:n "n" 'cider-repl-set-ns :n "n" #'cider-repl-set-ns
:n "q" 'cider-quit :n "q" #'cider-quit
:n "r" 'cider-refresh :n "r" #'cider-refresh
:n "R" 'cider-restart :n "R" #'cider-restart
:n "B" #'cider-switch-to-repl-buffer :n "b" #'cider-switch-to-repl-buffer
:n "B" #'+clojure|cider-switch-to-repl-buffer-and-switch-ns
:n "c" #'cider-repl-clear-buffer))) :n "c" #'cider-repl-clear-buffer)))
(when (featurep! :feature evil +everywhere) (when (featurep! :feature evil +everywhere)
(add-hook 'cider-repl-mode-hook #'evil-normalize-keymaps))) (add-hook 'cider-repl-mode-hook #'evil-normalize-keymaps)))
@ -87,7 +92,7 @@
:config :config
(map! :map clj-refactor-map (map! :map clj-refactor-map
:localleader :localleader
:n "r" #'hydra-cljr-help-menu/body)) :n "R" #'hydra-cljr-help-menu/body))
(def-package! flycheck-joker (def-package! flycheck-joker
:when (featurep! :feature syntax-checker) :when (featurep! :feature syntax-checker)