dot/emacs: Add Viper cursor-colour flail.

What I want is for the cursor to be its usual red colour in insert mode
and green in command mode, but there doesn't seem to be an easy way to
do that.  Committing my flail in the hopes that I debug it eventually.

diff --git a/dot/emacs b/dot/emacs
index 41f81303cf8b6df8d11d2ce066ff04cef186fb1c..34d75002da9c52bed76c793a8ed5e06ac398fd9b 100644 (file)
--- a/dot/emacs
+++ b/dot/emacs
@@ -429,9 +429,11 @@
              viper-ex-style-editing nil
              viper-expert-level 5
              viper-inhibit-startup-message t
              viper-ex-style-editing nil
              viper-expert-level 5
              viper-inhibit-startup-message t

+             ;;viper-insert-state-cursor-color "red"

              viper-no-multiple-ESC nil
              viper-re-query-replace t
              viper-re-search t
              viper-no-multiple-ESC nil
              viper-re-query-replace t
              viper-re-search t

+             ;;viper-replace-overlay-cursor-color "red"

              viper-shift-width 2
              viper-vi-style-in-minibuffer nil
              viper-want-ctl-h-help t)
              viper-shift-width 2
              viper-vi-style-in-minibuffer nil
              viper-want-ctl-h-help t)


@@ -449,6 +451,13 @@
   (tool-bar-mode 0))
 (trap (or mdw-fast-startup (global-auto-revert-mode t)))
 
   (tool-bar-mode 0))
 (trap (or mdw-fast-startup (global-auto-revert-mode t)))
 

+(defun mdw-set-viper-cursor-colour ()
+  ;; ?? doesn't seem to work
+  (set-frame-parameter nil 'cursor-color "green")
+  (message ";; %S" post-command-hook)
+  (sit-for 2))
+;;(add-hook 'viper-vi-state-hook 'mdw-set-viper-cursor-colour)
+

 (defvar mdw-black-background t)
 
 (eval-after-load "outline"
 (defvar mdw-black-background t)
 
 (eval-after-load "outline"