feat(emacs): syd-insert-file-name classpath-relative

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

@@ -21,21 +21,38 @@
 (use-package cider
   :after clojure-mode
   :config
+
   (defun syd-clojure-doc (arg)
     (interactive "P")
     (cider-doc arg)
     cider-doc-buffer)
+
   (defun syd-clojure-eval-region (beg end)
     (cider-eval-region beg end))
+
   (syd-handle '(clojure-mode clojurescript-mode cider-repl-mode)
     :docs #'cider-doc
     :eval-region #'syd-clojure-eval-region
     :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*"))
+
+  (defun syd-clojure-classpath-relative-file-name (file-name)
+    (when (and cider-mode (cider-nrepl-eval-session))
+      (let ((prefixes (-filter #'file-directory-p
+                               (cider-classpath-entries))))
+        (cl-loop for classpath-entry in prefixes
+                 for prefix = (file-name-as-directory classpath-entry)
+                 when (string-prefix-p prefix file-name)
+                 return (string-remove-prefix prefix file-name)))))
+  (add-to-list 'syd-insert-file-name-alist
+               `(,#'syd-clojure-classpath-relative-file-name
+                 . "Classpath-relative")))
 
 (use-package cider-mode
   :straight nil        ; Part of `cider'.