Disable cmd-z. Fixes #92

nosami · Jun 8, 2017 · 3e74281 · 3e74281
1 parent 1520bf3
commit 3e74281
Show file tree

Hide file tree

Showing 3 changed files with 16 additions and 1 deletion.
diff --git a/XSVim/Properties/AddinInfo.fs b/XSVim/Properties/AddinInfo.fs
@@ -5,7 +5,7 @@ open MonoDevelop
 [<assembly:Addin (
   "XSVim", 
   Namespace = "XSVim",
-  Version = "0.27.1"
+  Version = "0.27.2"
 )>]
 
 [<assembly:AddinName ("Vim")>]

diff --git a/XSVim/Properties/Manifest.addin.xml b/XSVim/Properties/Manifest.addin.xml
@@ -5,4 +5,12 @@
     <Extension path="/MonoDevelop/Ide/TextEditorExtensions">
         <Class class="XSVim.XSVim" />
     </Extension>
+    <Extension path = "/MonoDevelop/Ide/Commands">
+        <Command id = "MonoDevelop.Ide.Commands.EditCommands.Undo"
+            _label = "_Undo"
+            icon = "gtk-undo"
+            _description = "Disable cmd-z (vim)"
+            shortcut = "Control|Z"
+            macShortcut = "Meta|Z" />
+    </Extension>
 </ExtensionModel>
diff --git a/XSVim/XSVim.fs b/XSVim/XSVim.fs
@@ -3,6 +3,7 @@
 open System
 open System.Collections.Generic
 open System.Text.RegularExpressions
+open MonoDevelop.Components.Commands
 open MonoDevelop.Core
 open MonoDevelop.Core.Text
 open MonoDevelop.Ide
@@ -1024,6 +1025,7 @@ type XSVim() =
     static let editorStates = Dictionary<string, VimState>()
     let mutable disposables : IDisposable list = []
     let mutable processingKey = false
+
     member x.FileName = x.Editor.FileName.FullPath.ToString()
 
     override x.Initialize() =
@@ -1057,6 +1059,7 @@ type XSVim() =
             processingKey <- true
             let newState, handledKeyPress = Vim.handleKeyPress vimState descriptor x.Editor
             processingKey <- false
+
             match newState.statusMessage with
             | Some m -> IdeApp.Workbench.StatusBar.ShowMessage m
             | _ -> IdeApp.Workbench.StatusBar.ShowReady()
@@ -1067,6 +1070,10 @@ type XSVim() =
             | VisualMode -> false
             | _ -> not handledKeyPress
 
+    [<CommandUpdateHandler ("MonoDevelop.Ide.Commands.EditCommands.Undo")>]
+    // Disable cmd-z (see https://github.com/nosami/XSVim/issues/92)
+    member x.CanUndo(ci:CommandInfo) = ci.Enabled <- false
+
     override x.Dispose() =
         base.Dispose()
         disposables |> List.iter(fun d -> d.Dispose())