diff options
| -rw-r--r-- | .emacs.d/lisp/init-clojure.el | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/.emacs.d/lisp/init-clojure.el b/.emacs.d/lisp/init-clojure.el index b76a237..6b2cf4e 100644 --- a/.emacs.d/lisp/init-clojure.el +++ b/.emacs.d/lisp/init-clojure.el @@ -66,9 +66,23 @@ (use-package cider :diminish :config + (defvar cider-main-function "-main") (defun cider-repl-mode-hook-fn () (display-line-numbers-mode -1) (subword-mode +1)) + (defun run-and-unhook () + (remove-hook 'cider-connected-hook 'run-and-unhook) + (run-main)) + (defun run-main () + (interactive) + (cider-insert-in-repl (concat "(" cider-main-function ")") t)) + (defun cider-jack-in-and-run-main (arg &rest params) + (interactive "P") + (if (equal current-prefix-arg '(4)) + (progn + (add-hook 'cider-connected-hook 'run-and-unhook) + (cider-jack-in params)) + (cider-jack-in params))) (define-abbrev-table 'cider-repl-mode-abbrev-table '(("scl" "(eval `(sc.api/defsc ~(sc.api/last-ep-id)))" cider-repl-return) ("scs" "(sc.api/defsc*)" cider-repl-return) |