From 318bd98b219c5aff3cbf28003a385cb1042aa317 Mon Sep 17 00:00:00 2001
From: Eduardo Cavazos <dharmatech@finkelstein.stackeffects.info>
Date: Wed, 14 Jan 2009 02:51:03 -0600
Subject: [PATCH] git-tool: Don't monitor the '.git' directory (git-status
 changes files there. git-tool tries to refresh and calls git-status...)

---
 extra/git-tool/git-tool.factor | 43 ++++++++++++++++++++++++++++++++--
 1 file changed, 41 insertions(+), 2 deletions(-)

diff --git a/extra/git-tool/git-tool.factor b/extra/git-tool/git-tool.factor
index 0ef7f88d3f..314bddb19a 100644
--- a/extra/git-tool/git-tool.factor
+++ b/extra/git-tool/git-tool.factor
@@ -425,6 +425,39 @@ TUPLE: <git-status>
 
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
+! :: git-tool ( REPO -- )
+
+!   <pile> 1 >>fill
+
+!     "Repository: " REPO [ current-directory get ] with-directory append
+!     <label>
+!     add-gadget
+
+!     [let | STATUS [ REPO git-status ]
+!            PILE   [ <pile> 1 >>fill ] |
+
+!       [
+!         [
+!           [let | MONITOR [ REPO t <monitor> ] |
+!             [ MONITOR next-change 2drop STATUS PILE refresh-status-pile t ]
+!             loop
+!           ]
+!         ]
+!         with-monitors
+!       ]
+!       in-thread
+           
+!       STATUS PILE refresh-status-pile
+      
+!       PILE add-gadget ]
+
+!     ! REPO git-status <pile> 1 >>fill tuck refresh-status-pile  add-gadget
+!     REPO            <pile> 1 >>fill tuck refresh-remotes-pile add-gadget
+
+!   "Git" open-window ;
+
+! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
 :: git-tool ( REPO -- )
 
   <pile> 1 >>fill
@@ -439,7 +472,14 @@ TUPLE: <git-status>
       [
         [
           [let | MONITOR [ REPO t <monitor> ] |
-            [ MONITOR next-change 2drop STATUS PILE refresh-status-pile t ]
+            [
+              [let | PATH [ MONITOR next-change drop ] |
+                ".git" PATH subseq? ! Ignore git internal operations
+                  [ ]
+                  [ STATUS PILE refresh-status-pile ]
+                if
+                t ]
+            ]
             loop
           ]
         ]
@@ -456,7 +496,6 @@ TUPLE: <git-status>
 
   "Git" open-window ;
 
-
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
 : factor-git-tool ( -- ) "resource:" git-tool ;
-- 
2.34.1