branch: externals/agitate
commit 43027aefb986626ffc4f8aa090c1e05233bbfd38
Author: Protesilaos Stavrou <i...@protesilaos.com>
Commit: Protesilaos Stavrou <i...@protesilaos.com>
Add agitate-diff-narrow-dwim command
---
agitate.el | 19 +++++++++++++++++++
1 file changed, 19 insertions(+)
diff --git a/agitate.el b/agitate.el
index c6e3e0bfc0..e1707bf40c 100644
--- a/agitate.el
+++ b/agitate.el
@@ -90,6 +90,25 @@ relative to its latest revision."
(diff-buffer-with-file (current-buffer))
(vc-diff)))
+;;;###autoload
+(defun agitate-diff-narrow-dwim (&optional narrow-file)
+ "Narrow to diff hunk or file and widen when already narrowed.
+By default narrow to the focused diff hunk. With optional
+NARROW-FILE as a prefix argument, operate on the current file
+instead."
+ (interactive "P")
+ (when (derived-mode-p 'diff-mode)
+ (cond
+ ((buffer-narrowed-p)
+ (widen)
+ (message "WIDENED the view"))
+ (narrow-file
+ (diff-restrict-view narrow-file)
+ (message "Narrowed to FILE"))
+ (t
+ (diff-restrict-view)
+ (message "Narrowed to diff HUNK")))))
+
(defvar outline-minor-mode-highlight)
;;;###autoload
