tidy(emacs): indent i guess

modules/home/users/msyds/emacs/lisp/syd/clojure.el

@@ -78,6 +78,26 @@
   (with-eval-after-load 'consult
     (add-to-list
      '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)