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

tidy(emacs): indent i guess

Browse Source
This commit is contained in:
Madeleine Sydney Slaga
2025-12-20 13:59:27 -07:00
parent 356657d503
commit 1b327727e9
1 changed files with 53 additions and 33 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -35,49 +35,69 @@
:straight nil ; Part of `cider'. :straight nil ; Part of `cider'.
:hook (clojure-mode-local-vars . cider-mode) :hook (clojure-mode-local-vars . cider-mode)
:custom ((cider-show-error-buffer nil) :custom ((cider-show-error-buffer nil)
;; Download Java source archives for local Javadoc and jump-to-def ;; Download Java source archives for local Javadoc and jump-to-def
;; functionality. ;; functionality.
(cider-download-java-sources t)) (cider-download-java-sources t))
:general :general
;; DEPRECATED: Remove once a `map!' equivalent is implemented. ;; DEPRECATED: Remove once a `map!' equivalent is implemented.
(:keymaps 'cider-repl-mode-map (:keymaps 'cider-repl-mode-map
:states '(normal insert) :states '(normal insert)
"C-k" #'cider-repl-backward-input "C-k" #'cider-repl-backward-input
"C-j" #'cider-repl-forward-input "C-j" #'cider-repl-forward-input
"C-s" #'consult-history) "C-s" #'consult-history)
;; DEPRECATED: Remove once a `map!' equivalent is implemented. ;; DEPRECATED: Remove once a `map!' equivalent is implemented.
(:keymaps '(cider-repl-mode-map clojure-mode-map) (:keymaps '(cider-repl-mode-map clojure-mode-map)
:states '(normal visual motion emacs insert) :states '(normal visual motion emacs insert)
:major-modes t :major-modes t
:prefix syd-localleader-key :prefix syd-localleader-key
:non-normal-prefix syd-alt-localleader-key :non-normal-prefix syd-alt-localleader-key
"\"" #'cider-jack-in-cljs "\"" #'cider-jack-in-cljs
"'" #'cider-jack-in-clj "'" #'cider-jack-in-clj
"c" #'cider-connect-clj "c" #'cider-connect-clj
"C" #'cider-connect-cljs "C" #'cider-connect-cljs
"r l" #'cider-load-buffer "r l" #'cider-load-buffer
"r n" #'cider-repl-set-ns "r n" #'cider-repl-set-ns
"r r" #'cider-ns-refresh "r r" #'cider-ns-refresh
"r R" #'cider-restart "r R" #'cider-restart
"r q" #'cider-quit "r q" #'cider-quit
"d d" #'cider-debug-defun-at-point "d d" #'cider-debug-defun-at-point
"M-:" #'cider-read-and-eval "M-:" #'cider-read-and-eval
"h d" #'cider-doc "h d" #'cider-doc
"h c" #'cider-cheatsheet "h c" #'cider-cheatsheet
"h j" #'cider-javadoc "h j" #'cider-javadoc
"h n" #'cider-browse-ns "h n" #'cider-browse-ns
"T n" #'cider-test-run-ns-tests "T n" #'cider-test-run-ns-tests
"T r" #'cider-test-rerun-failed-tests "T r" #'cider-test-rerun-failed-tests
"T R" #'cider-test-rerun-test "T R" #'cider-test-rerun-test
"x" #'cider-scratch) "x" #'cider-scratch)
(:keymaps 'cider-repl-mode-map (:keymaps 'cider-repl-mode-map
:states 'insert :states 'insert
"S-<return>" #'cider-repl-newline-and-indent) "S-<return>" #'cider-repl-newline-and-indent)
:config :config
(add-hook 'cider-mode-hook #'eldoc-mode) (add-hook 'cider-mode-hook #'eldoc-mode)
(with-eval-after-load 'consult (with-eval-after-load 'consult
(add-to-list (add-to-list
'consult-mode-histories 'consult-mode-histories
'(cider-repl-mode cider-repl-input-history nil cider-repl-bol-mark)))) '(cider-repl-mode cider-repl-input-history nil cider-repl-bol-mark)))
;; Lines of the form "!!!graph:/path/to/file.svg" are be displayed
;; in-buffer by this hook.
(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))))
(provide 'syd/clojure) (provide 'syd/clojure)