dot/emacs, el/dot-emacs.el: Set up Viper mode.

I probably won't use it very much, but it looks like an interesting
extra set of toys for editing, which can be persuaded not to be too
annoying.

diff --git a/dot/emacs b/dot/emacs
index 370cfeefca76b75202f1c4d134f4a3e0dceaee88..167c3b8537a9b89eb1bbe7ba5e46242e5cdf94d4 100644 (file)
--- a/dot/emacs
+++ b/dot/emacs
@@ -423,6 +423,18 @@
       '(("en_GB-ize-w_accents" "[[:alpha:]]" "[^[:alpha:]]" "'" t
         ("-d" "en_GB-ize-w_accents") nil utf-8))
       ispell-silently-savep t)
       '(("en_GB-ize-w_accents" "[[:alpha:]]" "[^[:alpha:]]" "'" t
         ("-d" "en_GB-ize-w_accents") nil utf-8))
       ispell-silently-savep t)

+(setq viper-case-fold-search t
+      viper-electric-mode t
+      viper-ex-style-motion nil
+      viper-ex-style-editing nil
+      viper-expert-level 5
+      viper-inhibit-startup-message t
+      viper-no-multiple-ESC nil
+      viper-re-query-replace t
+      viper-re-search t
+      viper-shift-width 2
+      viper-vi-style-in-minibuffer nil
+      viper-want-ctl-h-help t)

 (trap
   (require 'uniquify)
   (setq uniquify-buffer-name-style 'post-forward-angle-brackets)
 (trap
   (require 'uniquify)
   (setq uniquify-buffer-name-style 'post-forward-angle-brackets)

diff --git a/el/dot-emacs.el b/el/dot-emacs.el
index f164c40097701d0d7dccf5a34b8bbce7b095635d..a11a898564995e4b74f32e9532b42ff05c1f064d 100644 (file)
--- a/el/dot-emacs.el
+++ b/el/dot-emacs.el
@@ -1678,6 +1678,15 @@ (mdw-define-face highlight
   (((class color)) :background "cyan")
   (t :inverse-video t))
 
   (((class color)) :background "cyan")
   (t :inverse-video t))
 

+(mdw-define-face viper-minibuffer-emacs (t nil))
+(mdw-define-face viper-minibuffer-insert (t nil))
+(mdw-define-face viper-minibuffer-vi (t nil))
+(mdw-define-face viper-replace-overlay
+  (((min-colors 64)) :background "darkred")
+  (((class color)) :background "red")
+  (t :inverse-video t))
+(mdw-define-face viper-search (t :inherit isearch))
+

 (mdw-define-face holiday-face
   (t :background "red"))
 (mdw-define-face calendar-today-face
 (mdw-define-face holiday-face
   (t :background "red"))
 (mdw-define-face calendar-today-face