doomemacs/modules/lang/clojure/config.el

;;; lang/clojure/config.el -*- lexical-binding: t; -*-

(def-package! clojure-mode
  :mode (("\\.clj$" . clojure-mode)
         ("\\.cljs$". clojurescript-mode))
  :commands (clojure-mode clojurescript-mode) ;; this might not be necessary?
  :config
  (map! :map clojure-mode-map
        (:localleader
          "'"      #'cider-jack-in
          "\""     #'cider-jack-in-clojurescript
          "b"      #'cider-switch-to-repl-buffer
          "n"      #'cider-repl-set-ns
          "r"      #'cider-eval-region)))


(def-package! cider
  ;; BUG: 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-mode cider-jack-in-clojurescript)
  :config
  (setq nrepl-hide-special-buffers t)

  ;; TODO: figure out how to set cider to the right window rather than shackle window (https://github.com/hlissner/doom-emacs/issues/171)
  ;; (set! :popup "^\\*cider-.*" :align 'left :noesc t) ;; no luck

  ;; Setup cider for clojurescript / figwheel dev.
  (setq cider-cljs-lein-repl
        "(do (require 'figwheel-sidecar.repl-api)
         (figwheel-sidecar.repl-api/start-figwheel!)
         (figwheel-sidecar.repl-api/cljs-repl))"))
Major optimization refactor, across the board + enable lexical-scope everywhere (lexical-binding = t): ~5-10% faster startup; ~5-20% general boost + reduce consing, function calls & garbage collection by preferring cl-loop & dolist over lambda closures (for mapc[ar], add-hook, and various cl-lib filter/map/reduce functions) -- where possible + prefer functions with dedicated opcodes, like assq (see byte-defop's in bytecomp.el for more) + prefer pcase & cond (faster) over cl-case + general refactor for code readability + ensure naming & style conventions are adhered to + appease byte-compiler by marking unused variables with underscore + defer minor mode activation to after-init, emacs-startup or window-setup hooks; a customization opportunity for users + ensures custom functionality won't interfere with startup. 2017-06-08 11:47:56 +02:00			`;;; lang/clojure/config.el -- lexical-binding: t; --`
Minimal Clojure lang support 2017-05-30 09:28:38 +02:00
			`(def-package! clojure-mode`
Add cljs mode and localleader keybindings 2017-11-03 13:41:54 -04:00			`:mode (("\\.clj$" . clojure-mode)`
			`("\\.cljs$". clojurescript-mode))`
Add figwheel settings + try and unshackle the repl (no luck yet!) 2017-11-03 19:28:05 -04:00			`:commands (clojure-mode clojurescript-mode) ;; this might not be necessary?`
Add cljs mode and localleader keybindings 2017-11-03 13:41:54 -04:00			`:config`
			`(map! :map clojure-mode-map`
			`(:localleader`
			`"'" #'cider-jack-in`
			`"\"" #'cider-jack-in-clojurescript`
more keybindings 2017-11-03 16:03:20 -04:00			`"b" #'cider-switch-to-repl-buffer`
Add figwheel settings + try and unshackle the repl (no luck yet!) 2017-11-03 19:28:05 -04:00			`"n" #'cider-repl-set-ns`
Add cljs mode and localleader keybindings 2017-11-03 13:41:54 -04:00			`"r" #'cider-eval-region)))`
Minimal Clojure lang support 2017-05-30 09:28:38 +02:00
Add figwheel settings + try and unshackle the repl (no luck yet!) 2017-11-03 19:28:05 -04:00
Minimal Clojure lang support 2017-05-30 09:28:38 +02:00			`(def-package! cider`
Add figwheel settings + try and unshackle the repl (no luck yet!) 2017-11-03 19:28:05 -04:00			`;; BUG: if you don't have an org directory set (the dir doesn't exist), cider jack in won't work.`
Add cljs mode and localleader keybindings 2017-11-03 13:41:54 -04:00			`:commands (cider-jack-in cider-mode cider-jack-in-clojurescript)`
Minimal Clojure lang support 2017-05-30 09:28:38 +02:00			`:config`
Add figwheel settings + try and unshackle the repl (no luck yet!) 2017-11-03 19:28:05 -04:00			`(setq nrepl-hide-special-buffers t)`

			`;; TODO: figure out how to set cider to the right window rather than shackle window (https://github.com/hlissner/doom-emacs/issues/171)`
			`;; (set! :popup "^\\cider-." :align 'left :noesc t) ;; no luck`

			`;; Setup cider for clojurescript / figwheel dev.`
			`(setq cider-cljs-lein-repl`
			`"(do (require 'figwheel-sidecar.repl-api)`
			`(figwheel-sidecar.repl-api/start-figwheel!)`
			`(figwheel-sidecar.repl-api/cljs-repl))"))`