Initial attempt at magit integration for tracing changed files

Author: markgdawson

src/el/sayid-magit.el

@@ -0,0 +1,46 @@
+;;; sayid-magit.el --- Choose sayid tracing from magit -*- lexical-binding: t -*-
+
+;; Author: Mark Dawson
+;; Maintainer: Bill Piel <[email protected]>
+;; Version: 0.0.1
+;; URL: https://github.com/clojure-emacs/sayid
+;; Package-Requires: ((cider "0.21.0"))
+
+;; Licensed under the Apache License, Version 2.0 (the "License");
+;; you may not use this file except in compliance with the License.
+;; You may obtain a copy of the License at
+
+;;     http://www.apache.org/licenses/LICENSE-2.0
+
+;; Unless required by applicable law or agreed to in writing, software
+;; distributed under the License is distributed on an "AS IS" BASIS,
+;; WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+;; See the License for the specific language governing permissions and
+;; limitations under the License.
+
+;;; Commentary:
+
+;;; Code:
+
+;;;###autoload
+(defun sayid-magit--trace-ns-in-files (file-names)
+  "Trace namespace in FILE-NAMES."
+  (mapcar (lambda (file-name)
+            (with-current-buffer (find-file-noselect
+                                  (expand-file-name file-name))
+              (nrepl-send-sync-request (list "op" "sayid-trace-ns-in-file"
+                                             "file" (buffer-file-name))
+                                       (cider-current-connection))))
+          file-names)
+  (sayid-show-traced))
+
+;;;###autoload
+(defun sayid-magit-trace-changed-ns ()
+  "Trace the changed namespaces in a git commit."
+  (interactive)
+  (sayid--trace-ns-in-files
+   (magit-changed-files (magit-read-starting-point "Sayid trace" nil "HEAD"))))
+
+(provide 'sayid-magit)
+
+;;; sayid-magit.el ends here

src/el/sayid.el

@@ -718,19 +718,30 @@ Disable traces, load buffer, enable traces, clear log."
         (setq paths (cdr paths)))
       (car paths))))
 
-;;;###autoload
-(defun sayid-buffer-nav-from-point ()
-  "Navigate from sayid buffer to function source."
+(defun sayid-buffer-file-at-point ()
+  "Return file path for function at point in sayid buffer."
   (interactive)
   (let* ((file (get-text-property (point) 'src-file))
-         (line (get-text-property (point) 'src-line))
          (xfile (sayid-find-existing-file file)))
     (if xfile
-        (progn
-          (pop-to-buffer (find-file-noselect xfile))
-          (goto-char (point-min))
-          (forward-line (- line 1)))
-      (message (concat "File not found: " file)))))
+        xfile
+      (user-error (concat "File not found: " file)))))
+
+(defun sayid-buffer-line-at-point ()
+  "Return line number for function at point in sayid buffer."
+  (get-text-property (point) 'src-line))
+
+;;;###autoload
+(defun sayid-buffer-nav-from-point ()
+  "Navigate from sayid buffer to function source."
+  (interactive)
+  (let ((line (sayid-buffer-line-at-point))
+        (file (sayid-buffer-file-at-point)))
+    (when file
+      (progn
+        (pop-to-buffer (find-file-noselect file))
+        (goto-char (point-min))
+        (forward-line (- line 1))))))
 
 ;;;###autoload
 (defun sayid-buffer-nav-to-prev ()