status menu item is now available

Author: isc-rsaptars

cls/SourceControl/Git/Extension.cls

@@ -10,6 +10,7 @@ XData Menu
 {
 <MenuBase>
 <Menu Name="%SourceMenu" Type="0">
+<MenuItem Name="Status" />
 <MenuItem Name="Settings" />
 <MenuItem Name="Init" />
 <MenuItem Name="GitWebUI" />
@@ -43,7 +44,7 @@ XData Menu
 Method UserAction(Type As %Integer, Name As %String, InternalName As %String, SelectedText As %String, ByRef Action As %String, ByRef Target As %String, ByRef Msg As %String, ByRef Reload As %Boolean) As %Status
 {
     #dim ec as %Status = $$$OK
-    #dim menu as %Status = $piece(Name, ",", 1)
+    #dim menu as %Status = $piece(Name, ",", 1)    
     if menu '= "%SourceMenu", menu'="%SourceContext" {
         quit $$$OK
     }
@@ -86,37 +87,41 @@ Method LocalizeName(name As %String) As %String
         "Push":$$$Text("@Push@Push to remote branch"),
         "Fetch":$$$Text("@Fetch@Fetch from remote"),
         "Pull":$$$Text("@Pull@Pull changes from remote branch"),
+        "Status": $$$Text("@Status@Status"),
         :name)
 }
 
 Method OnSourceMenuItem(name As %String, ByRef Enabled As %String, ByRef DisplayName As %String, InternalName As %String) As %Status
 {
     if name = "Settings" {
+        // what is `Enabled` set to here? 0?
         quit $$$OK
     }
     if ##class(Utils).NeedSettings() {
         set Enabled = -1
         quit $$$OK
     }
-    set Enabled = 1
     if ##class(Utils).IsNamespaceInGit() {
-        if name = "GitWebUI" {
-        } elseif name = "Export" {
-        } elseif name = "ExportForce" {
-        } elseif name = "Import" {
-        } elseif name = "ImportForce" {
-        } elseif $listfind($listbuild("AddToSC","RemoveFromSC","Revert","Commit"),name) {
-            quit ..OnSourceMenuContextItem(InternalName,name,.Enabled,.DisplayName)
-        } elseif name = "NewBranch" {
-        } elseif name = "SwitchBranch" {
-        } elseif name = "Push" {
-        } elseif name = "Fetch" {
-        } elseif name = "Pull" {
-        } elseif name = "" {
-            // enable separators if namespace is in git
-        } else {
-            set Enabled = -1
-        }
+    if $listfind($listbuild("AddToSC", "RemoveFromSC", "Revert", "Commit"), name) {
+        quit ..OnSourceMenuContextItem(InternalName,name,.Enabled,.DisplayName)
+    }
+    set Enabled = $CASE(name, 
+        // cases
+        "Status": 1,
+        "GitWebUI" : 1,
+        "Export": 1,
+        "ExportForce": 1,
+        "Import": 1,
+        "ImportForce": 1,
+        "NewBranch": 1,
+        "SwitchBranch": 1,
+        "Push": 1,
+        "Fetch": 1,
+        "Pull": 1,
+        "": 1,
+        :-1 // default
+    )
+        
     } elseif ##class(Utils).GitBinExists() {
         if name = "Init" {
         } else {
@@ -335,4 +340,3 @@ Method AddToSourceControl(InternalName As %String, Description As %String = "")
 }
 
 }
-

cls/SourceControl/Git/Utils.cls

@@ -151,7 +151,7 @@ $Find(..#ImportAfterGitMenuItems, ","_menuItemName_",") > 0
 ClassMethod UserAction(InternalName As %String, MenuName As %String, ByRef Target As %String, ByRef Action As %String, ByRef Reload As %Boolean) As %Status
 {
     #define Force 1
-    #dim menuName as %String = $piece(MenuName,",")
+    // MenuName = "<Name of menu>,<Name of menu item>"
     #dim menuItemName as %String = $piece(MenuName,",",2)
     #dim ec as %Status = $$$OK
 
@@ -233,6 +233,11 @@ ClassMethod UserAction(InternalName As %String, MenuName As %String, ByRef Targe
         set ec = ..AddToSourceControl(InternalName)
     } elseif (menuItemName = "RemoveFromSC") {
         set ec = ..RemoveFromSourceControl(InternalName)
+    } elseif (menuItemName = "Status") {
+        do ..RunGitCommand("status", .errStream, .outStream)
+        write !, !, "Git Status: "
+        do outStream.OutputToDevice()
+        do errStream.OutputToDevice()
     }
     quit ec
 }
@@ -1991,4 +1996,3 @@ ClassMethod SetDefaultMappings(mappingsNode As %String)
 }
 
 }
-