msyds/sydnix
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

feat(emacs): bind C-o in cider inspector

Browse Source
This commit is contained in:
Madeleine Sydney Slaga
2026-01-31 16:23:04 -07:00
parent 81aa3fb89f
commit bd2964f894
1 changed files with 53 additions and 52 deletions
Download Patch File Download Diff File Expand all files Collapse all files

105
modules/home/users/msyds/emacs/lisp/syd/clojure.el
View File

@@ -32,52 +32,53 @@
:load-buffer #'cider-load-buffer)
(add-hook 'cider-repl-mode-hook #'syd-lisp-mode)
(syd-push shackle-rules
`("*cider-doc*" ,@syd-help-popup-options)
'("*cider-test-report*")
'("*cider-error*")))
`("*cider-doc*" ,@syd-help-popup-options)
'("*cider-test-report*")
'("*cider-error*")))
(use-package cider-mode
:straight nil ; Part of `cider'.
:straight nil ; Part of `cider'.
:hook (clojure-mode-local-vars . cider-mode)
:custom ((cider-show-error-buffer nil)
;; Download Java source archives for local Javadoc and jump-to-def
;; functionality.
(cider-download-java-sources t))
;; Download Java source archives for local Javadoc and jump-to-def
;; functionality.
(cider-download-java-sources t))
:general
;; DEPRECATED: Remove once a `map!' equivalent is implemented.
(:keymaps 'cider-repl-mode-map
:states '(normal insert)
"C-k" #'cider-repl-backward-input
"C-j" #'cider-repl-forward-input
"C-s" #'consult-history)
;; DEPRECATED: Remove once a `map!' equivalent is implemented.
:states '(normal insert)
"C-k" #'cider-repl-backward-input
"C-j" #'cider-repl-forward-input
"C-s" #'consult-history)
(:keymaps '(cider-repl-mode-map clojure-mode-map)
:states '(normal visual motion emacs insert)
:major-modes t
:prefix syd-localleader-key
:non-normal-prefix syd-alt-localleader-key
"\"" #'cider-jack-in-cljs
"'" #'cider-jack-in-clj
"c" #'cider-connect-clj
"C" #'cider-connect-cljs
"r l" #'cider-load-buffer
"r n" #'cider-repl-set-ns
"r r" #'cider-ns-refresh
"r R" #'cider-restart
"r q" #'cider-quit
"d d" #'cider-debug-defun-at-point
"M-:" #'cider-read-and-eval
"h d" #'cider-doc
"h c" #'cider-cheatsheet
"h j" #'cider-javadoc
"h n" #'cider-browse-ns
"T n" #'cider-test-run-ns-tests
"T r" #'cider-test-rerun-failed-tests
"T R" #'cider-test-rerun-test
"x" #'cider-scratch)
:states '(normal visual motion emacs insert)
:major-modes t
:prefix syd-localleader-key
:non-normal-prefix syd-alt-localleader-key
"\"" #'cider-jack-in-cljs
"'" #'cider-jack-in-clj
"c" #'cider-connect-clj
"C" #'cider-connect-cljs
"r l" #'cider-load-buffer
"r n" #'cider-repl-set-ns
"r r" #'cider-ns-refresh
"r R" #'cider-restart
"r q" #'cider-quit
"d d" #'cider-debug-defun-at-point
"M-:" #'cider-read-and-eval
"h d" #'cider-doc
"h c" #'cider-cheatsheet
"h j" #'cider-javadoc
"h n" #'cider-browse-ns
"T n" #'cider-test-run-ns-tests
"T r" #'cider-test-rerun-failed-tests
"T R" #'cider-test-rerun-test
"x" #'cider-scratch)
(:keymaps 'cider-repl-mode-map
:states 'insert
"S-<return>" #'cider-repl-newline-and-indent)
:states 'insert
"S-<return>" #'cider-repl-newline-and-indent)
(:keymaps 'cider-inspector-mode-map
:states '(motion insert)
"C-o" #'cider-inspector-pop)
:config
(add-hook 'cider-mode-hook #'eldoc-mode)
(with-eval-after-load 'consult
@@ -90,19 +91,19 @@
(syd-add-hook 'cider-repl-preoutput-hook
(defun syd-clojure--render-graphviz-h (s)
(if (string-match (rx bol "!!!graph:"
(group (* anychar) ".svg"))
s)
(let ((beg (match-beginning 0))
(end (match-end 0))
(file (match-string 1 s)))
(message "%d %d %s" beg end file)
(add-display-text-property
beg end
'display
`(image :type svg
:file ,file)
s)
s)
s))))
(group (* anychar) ".svg"))
s)
(let ((beg (match-beginning 0))
(end (match-end 0))
(file (match-string 1 s)))
(message "%d %d %s" beg end file)
(add-display-text-property
beg end
'display
`(image :type svg
:file ,file)
s)
s)
s))))
(provide 'syd/clojure)