Re: Modal Keyboard Layout for EMACS

[rosangelamesil]

As I told before, I don't think it is necessary to have a separate mode to exit 
mvi. All one has to do is to run the command mvi-insert-mode, while in 
insert-mode. Make sure you see <I> in the mode-line and type:

M-x mvi-insert-mode

The above command exits mvi, and goes back to emacs keybinding. That said, 
below is a keybinding for Stefan's mvi-mode. The whole thing occupies 51 lines.

;; Original design by Stefan Monnier
(defvar mvi-command-mode-map 
  (let ((map (make-sparse-keymap))) 
    (define-key map "h" 'backward-char) 
    (define-key map "j" 'next-line) 
    (define-key map "k" 'previous-line) 
    (define-key map "l" 'forward-char) 
    (define-key map "i" 'mvi-insert-mode) 
    (define-key map "x" 'delete-char)
    (define-key map "z" 'delete-backward-char)
    (define-key map "a" 'move-beginning-of-line)
    (define-key map "e" 'move-end-of-line)
    (define-key map "d" 'kill-whole-line)
    (define-key map "p" 'yank)
    (define-key map "u" 'undo)
    (define-key map "v" 'set-mark-command)
    (define-key map "y" 'kill-ring-save)
    (define-key map "r" 'kill-region)
    (define-key map "0" 'delete-window)
    (define-key map "1" 'delete-other-window)
    (define-key map "2" 'split-window-below)
    (define-key map "o" 'other-window)
    (define-key map "s" 'save-buffer)
    (define-key map "w" 'write-file)
    (define-key map "g" 'beginning-of-buffer)
    (define-key map "G" 'end-of-buffer)
    (define-key map "n" 'isearch-forward)
    (define-key map "N" 'isearch-backward)
    (define-key map "["  'mvi-self-insert-command) 
    map)) 

(defun mvi-self-insert-command () (interactive) 
  (call-interactively 'self-insert-command) 
  (mvi-insert-mode 1)) 
    
(defvar mvi-insert-mode-map 
  (let ((map (make-sparse-keymap)))  
    (define-key map "["  'mvi-command-mode)
    map)) 

(define-minor-mode mvi-command-mode 
  "Minimalistic VI-like mode." 
  :lighter " <N>"  :global t 
  (when mvi-command-mode (mvi-insert-mode -1))) 

(define-minor-mode mvi-insert-mode  
  "Emacs with a escape to VI command"
  :lighter " <I>"  :global t
  (when mvi-insert-mode (mvi-command-mode -1))) 

(provide 'mvi-command-mode)