doomemacs/modules/lang/clojure/config.el

;;; 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 "^\\*cider-repl" nil '((quit) (select)))
  (set! :repl 'clojure-mode #'+clojure/repl)
  (set! :eval 'clojure-mode #'cider-eval-region)
  (set! :lookup '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))
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
Major refactor & optimization of how modules load their packages Now that we are loading package autoloads files (as part of the generated doom-package-autoload-file when running make autoloads), many :commands properties are redundant. In fact, many def-package! blocks are redundant. In some cases, we can do without a config.el file entirely, and can move into the autoloads file or rely entirely on package autoloads. Also, many settings have been moved in their module's autoloads files, which makes them available ASAP; their use no longer depends on module load order. This gained me a modest ~10% boost in startup speed. 2018-05-25 00:46:11 +02:00			;; `clojure-mode'
add-hook! -> add-hook for one-to-one hook 2018-06-10 22:25:29 +02:00			`(add-hook 'clojure-mode-hook #'rainbow-delimiters-mode)`
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
PR review updates: fix repl, remove unidiomatic use-package things. 2017-12-05 09:58:46 -05:00			`(def-package! clj-refactor`
			`:after clojure-mode`
			`:config`
			`;; setup some extra namespace auto completion for great awesome`
General refactor for consistency & idempotency Also updated comments 2018-05-18 01:21:09 +02:00			`(dolist (ns '(("re-frame" . "re-frame.core")`
			`("reagent" . "reagent.core")`
			`("str" . "clojure.string")))`
			`(map-put cljr-magic-require-namespaces (car ns) (cdr ns))))`
PR review updates: fix repl, remove unidiomatic use-package things. 2017-12-05 09:58:46 -05:00

Minimal Clojure lang support 2017-05-30 09:28:38 +02:00			`(def-package! cider`
lang/clojure: refactor; rainbow-delimiters-mode; :lookup Also add auto-mode-alist entry for clojurec-mode 2018-02-14 06:08:25 -05:00			`;; NOTE: if you don't have an org directory set (the dir doesn't exist), cider`
			`;; jack in won't work.`
lang/clojure: refactor & add :eval/:repl support 2018-03-22 06:54:18 -04:00			`:commands (cider-jack-in cider-jack-in-clojurescript)`
			`:hook (clojure-mode . cider-mode)`
Minimal Clojure lang support 2017-05-30 09:28:38 +02:00			`:config`
lang/clojure: refactor & add :eval/:repl support 2018-03-22 06:54:18 -04:00			`(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))")`
Remove unecessary keywords in clojure popup config 2017-12-06 13:56:16 -05:00
lang/clojure: refactor & add :eval/:repl support 2018-03-22 06:54:18 -04:00			`(set! :popup "^\\*cider-repl" nil '((quit) (select)))`
			`(set! :repl 'clojure-mode #'+clojure/repl)`
			`(set! :eval 'clojure-mode #'cider-eval-region)`
lang/clojure: refactor; rainbow-delimiters-mode; :lookup Also add auto-mode-alist entry for clojurec-mode 2018-02-14 06:08:25 -05:00			`(set! :lookup 'clojure-mode`
			`:definition #'cider-browse-ns-find-at-point`
			`:documentation #'cider-browse-ns-doc-at-point)`

lang/clojure: refactor & add :eval/:repl support 2018-03-22 06:54:18 -04:00			`(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))`