70 lines
1.9 KiB
EmacsLisp
70 lines
1.9 KiB
EmacsLisp
;;; languages/clojure -- summary
|
|
;;; Commentary:
|
|
;;; Code:
|
|
|
|
(require '+custom-pkg-prog-mode "$HOME/.emacs.d/pkg/prog-mode.el")
|
|
(require '+custom-pkg-hydra "$HOME/.emacs.d/pkg/hydra.el")
|
|
|
|
(use-package clojure-mode
|
|
:defer t
|
|
:straight t)
|
|
|
|
(use-package cider
|
|
:requires clojure-mode
|
|
:commands cider-jack-in
|
|
:defer t
|
|
:straight t
|
|
:config (setq cider-annotate-completion-function t))
|
|
|
|
(use-package clj-refactor
|
|
:requires (cider clojure-mode)
|
|
:defer t
|
|
:straight t)
|
|
|
|
;; Hydra
|
|
(defhydra my-clojure/context-hydra (:color teal :hint nil)
|
|
"
|
|
^
|
|
^ Cider ^^Buffer
|
|
^────────────────────────────────────────────────────────────────────────────────
|
|
^ _j_: Jack in _r_: Reload
|
|
^ _t_: Test _f_: Format
|
|
^ ^ ^ _l_: Load
|
|
^ ^ ^ _e_: Show Errors
|
|
^
|
|
"
|
|
("q" nil "cancel" :color blue)
|
|
|
|
("r" revert-buffer-no-confirm)
|
|
("j" cider-jack-in)
|
|
("f" cider-format-buffer)
|
|
("l" cider-load-buffer)
|
|
("e" flycheck-list-errors)
|
|
("t" cider-test-run-loaded-tests))
|
|
|
|
(defun activate-my-clojure-mode ()
|
|
"Goodies for clojure files."
|
|
(set-indent 2) ;; Default indentation of 2 characters
|
|
(column-enforce-n 80)
|
|
(clj-refactor-mode 1)
|
|
(cider-mode 1)
|
|
(setq-local indent-tabs-mode nil)
|
|
|
|
(define-key clojure-mode-map (kbd "C-c l") 'my-clojure/context-hydra/body)
|
|
|
|
;; Do not enable paredit for clojure
|
|
;; (paredit-mode 1)
|
|
;; Do not show separate error window when in REPL
|
|
(setq cider-show-error-buffer 'except-in-repl))
|
|
|
|
(add-hook 'clojure-mode-hook 'activate-my-clojure-mode)
|
|
|
|
(defun my-clj-repl-config ()
|
|
"Do not show stacktrace when in REPL."
|
|
(setq-local cider-show-error-buffer 'except-in-repl))
|
|
|
|
(add-hook 'cider-repl-mode-hook 'my-clj-repl-config)
|
|
(add-hook 'cider-mode-hook #'cider-company-enable-fuzzy-completion)
|
|
|
|
(provide '+custom-lang-clojure)
|
|
;;; clojure.el ends here
|