diff options
author | David Morgan <djm_uk@protonmail.com> | 2022-12-05 12:19:11 +0000 |
---|---|---|
committer | David Morgan <djm_uk@protonmail.com> | 2022-12-05 12:19:11 +0000 |
commit | cedb1b92c5ebf66984932133c5fec9907eaee413 (patch) | |
tree | 71ac8317df19c05360e2b8c704dabe82b8e2d00b /.emacs.d/lisp | |
parent | e8bbf64c5d21c0324f2dde4a0754128da688ff25 (diff) | |
download | dotfiles-cedb1b92c5ebf66984932133c5fec9907eaee413.tar.gz |
Add function to load debugging tools
Diffstat (limited to '.emacs.d/lisp')
-rw-r--r-- | .emacs.d/lisp/init-clojure.el | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/.emacs.d/lisp/init-clojure.el b/.emacs.d/lisp/init-clojure.el index 0dcc2bd..5b21b53 100644 --- a/.emacs.d/lisp/init-clojure.el +++ b/.emacs.d/lisp/init-clojure.el @@ -95,6 +95,12 @@ (add-hook 'cider-connected-hook 'run-and-unhook) (cider-jack-in params)) (cider-jack-in params))) + (defun load-debug-namespaces () + (interactive) + (cider-interactive-eval "(require 'snitch.core)" nil nil (cider--nrepl-pr-request-map)) + (cider-interactive-eval "(require 'miracle.save)" nil nil (cider--nrepl-pr-request-map)) + (cider-interactive-eval "(require 'sc.api)" nil nil (cider--nrepl-pr-request-map)) + (cider-interactive-eval "(require '[debux.cs.core :refer [dbg dbgn dbgt]])" nil nil (cider--nrepl-pr-request-map))) (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) @@ -139,6 +145,7 @@ ("C-c M-j" . cider-jack-in-and-run-main)) (:map clojure-mode-map ("C-c C-r C-m" . run-main) + ("C-c C-r C-d" . load-debug-namespaces) ("C-c M-j" . cider-jack-in-and-run-main) ("C-x p q" . project-clojure-test-switch) ("C-c C-M-c" . (lambda () (interactive) (cider-clear-compilation-highlights t))) |