From: Mark Wooding <mdw@distorted.org.uk>
Date: Sat, 22 May 2021 01:11:47 +0000 (+0100)
Subject: dot/emacs, el/dot-emacs.el: Set up Viper mode.
X-Git-Url: https://git.distorted.org.uk/~mdw/profile/commitdiff_plain/d54399beacf881e56f4a95f3fc9eb62ffa36cbb4

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 370cfee..167c3b8 100644
--- 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)
+(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)
diff --git a/el/dot-emacs.el b/el/dot-emacs.el
index f164c40..a11a898 100644
--- a/el/dot-emacs.el
+++ b/el/dot-emacs.el
@@ -1678,6 +1678,15 @@ doesn't match any of the regular expressions in
   (((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