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

Add cider-toggle-boolean

This commit is contained in:
David Morgan 2023-09-21 07:42:30 +01:00
parent 7c066c42b0
commit 01ec245e0c
Signed by: djm
GPG Key ID: C171251002C200F2
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -105,6 +105,15 @@
(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)))
(defun cider-toggle-boolean ()
(interactive)
(let ((opposite (pcase (cider-symbol-at-point)
("false" "true")
("true" "false"))))
(when opposite
(pcase-let ((`(,start . ,end) (bounds-of-thing-at-point 'symbol)))
(delete-region start end))
(insert opposite))))
(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)