51 lines
1.8 KiB
EmacsLisp
51 lines
1.8 KiB
EmacsLisp
;;; lang/clojure/config.el -*- lexical-binding: t; -*-
|
|
|
|
;; `clojure-mode'
|
|
(add-hook 'clojure-mode-hook #'rainbow-delimiters-mode)
|
|
|
|
|
|
(def-package! clj-refactor
|
|
:after clojure-mode
|
|
:config
|
|
;; setup some extra namespace auto completion for great awesome
|
|
(dolist (ns '(("re-frame" . "re-frame.core")
|
|
("reagent" . "reagent.core")
|
|
("str" . "clojure.string")))
|
|
(map-put cljr-magic-require-namespaces (car ns) (cdr ns))))
|
|
|
|
|
|
(def-package! cider
|
|
;; NOTE: if you don't have an org directory set (the dir doesn't exist), cider
|
|
;; jack in won't work.
|
|
:commands (cider-jack-in cider-jack-in-clojurescript)
|
|
:hook (clojure-mode . cider-mode)
|
|
:config
|
|
(setq nrepl-hide-special-buffers t
|
|
cider-stacktrace-default-filters '(tooling dup)
|
|
cider-prompt-save-file-on-load nil
|
|
cider-repl-use-clojure-font-lock t
|
|
;; Setup cider for clojurescript / figwheel dev.
|
|
cider-cljs-lein-repl
|
|
"(do (require 'figwheel-sidecar.repl-api)
|
|
(figwheel-sidecar.repl-api/start-figwheel!)
|
|
(figwheel-sidecar.repl-api/cljs-repl))")
|
|
|
|
(set-popup-rule! "^\\*cider-repl" nil '((quit) (select)))
|
|
(set-repl-handler! 'clojure-mode #'+clojure/repl)
|
|
(set-eval-handler! 'clojure-mode #'cider-eval-region)
|
|
(set-lookup-handlers! 'clojure-mode
|
|
:definition #'cider-browse-ns-find-at-point
|
|
:documentation #'cider-browse-ns-doc-at-point)
|
|
|
|
(map! :map cider-mode-map
|
|
:localleader
|
|
:n "'" #'cider-jack-in
|
|
:n "\"" #'cider-jack-in-clojurescript
|
|
:n "B" #'cider-switch-to-repl-buffer
|
|
:n "b" #'cider-eval-buffer
|
|
:n "n" #'cider-repl-set-ns
|
|
:n "j" #'cider-find-var
|
|
:n "d" #'cider-doc
|
|
:n "c" #'cider-repl-clear-buffer
|
|
:n "p" #'cider-eval-sexp-at-point
|
|
:n "r" #'cider-eval-region))
|