[PATCH] Teach git.el to mark/unmark files by regexp

From

David Christensen <david@endpoint.com>

Date

Aug 27, 2008, 03:24 UTC

Message-ID

<1219807480-57122-1-git-send-email-david@endpoint.com>

Signed-off-by: David Christensen <david@endpoint.com>
---
 contrib/emacs/git.el |   30 +++++++++++++++++++++++++++++-
 1 files changed, 29 insertions(+), 1 deletions(-)

diff --git a/contrib/emacs/git.el b/contrib/emacs/git.el
index c1cf1cb..279610f 100644
--- a/contrib/emacs/git.el
+++ b/contrib/emacs/git.el
@@ -944,6 +944,27 @@ Return the list of files that haven't been handled."
   ; move back to goal column after invalidate
   (when goal-column (move-to-column goal-column)))
 
+(defun git-mark-regexp (re)
+  "Mark all files which match a provided regexp."
+  (interactive "sMark files matching regular expression: ")
+  (unless git-status (error "Not in git-status buffer."))
+  (ewoc-map (lambda (info) (unless (git-fileinfo->marked info)
+                             (when (string-match re (git-fileinfo->name info))
+                               (setf (git-fileinfo->marked info) t)))) git-status)
+  ; move back to goal column after invalidate
+  (when goal-column (move-to-column goal-column)))
+
+(defun git-unmark-regexp (re)
+  "Unmark all files which match a provided regexp."
+  (interactive "sUnmark files matching regular expression: ")
+  (unless git-status (error "Not in git-status buffer."))
+  (ewoc-map (lambda (info) (when (git-fileinfo->marked info)
+                             (when (string-match re (git-fileinfo->name info))
+                               (setf (git-fileinfo->marked info) nil)) t)) git-status)
+  ; move back to goal column after invalidate
+  (when goal-column (move-to-column goal-column)))
+
+
 (defun git-toggle-all-marks ()
   "Toggle all file marks."
   (interactive)
@@ -1420,9 +1441,11 @@ amended version of it."
   (let ((map (make-keymap))
         (commit-map (make-sparse-keymap))
         (diff-map (make-sparse-keymap))
-        (toggle-map (make-sparse-keymap)))
+        (toggle-map (make-sparse-keymap))
+        (mark-map (make-sparse-keymap)))
     (suppress-keymap map)
     (define-key map "?"   'git-help)
+    (define-key map "*"    mark-map)
     (define-key map "h"   'git-help)
     (define-key map " "   'git-next-file)
     (define-key map "a"   'git-add-file)
@@ -1469,6 +1492,9 @@ amended version of it."
     (define-key toggle-map "i" 'git-toggle-show-ignored)
     (define-key toggle-map "k" 'git-toggle-show-unknown)
     (define-key toggle-map "m" 'git-toggle-all-marks)
+    ; the mark submap
+    (define-key mark-map "%" 'git-mark-regexp)
+    (define-key mark-map "\C-?" 'git-unmark-regexp)
     (setq git-status-mode-map map))
   (easy-menu-define git-menu git-status-mode-map
     "Git Menu"
@@ -1499,8 +1525,10 @@ amended version of it."
       "--------"
       ["Mark" git-mark-file t]
       ["Mark All" git-mark-all t]
+      ["Mark Regexp" git-mark-regexp t]
       ["Unmark" git-unmark-file t]
       ["Unmark All" git-unmark-all t]
+      ["Unmark Regexp" git-unmark-regexp t]
       ["Toggle All Marks" git-toggle-all-marks t]
       ["Hide Handled Files" git-remove-handled t]
       "--------"

-- 
1.6.0.1.90.g27a6e.dirty