djm
/
dotfiles
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Add function to load debugging tools

This commit is contained in:
David Morgan 2022-12-05 12:19:11 +00:00
parent e8bbf64c5d
commit cedb1b92c5
Signed by: djm
GPG Key ID: C171251002C200F2
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
.emacs.d/lisp/init-clojure.el
View File

@ -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)))