From 27b9c859004e9c6235220edbf026fabb88f0f857 Mon Sep 17 00:00:00 2001
From: Sorin Ionescu <sorin.ionescu@gmail.com>
Date: Sat, 30 Jul 2011 01:54:11 -0400
Subject: [PATCH] Implemented GNU Emacs key bindings.

---
 functions/keyboard.zsh | 142 +++++++++++++++++++++++++++++------------
 1 file changed, 100 insertions(+), 42 deletions(-)

diff --git a/functions/keyboard.zsh b/functions/keyboard.zsh
index fd795ed7..5ab37220 100644
--- a/functions/keyboard.zsh
+++ b/functions/keyboard.zsh
@@ -1,49 +1,107 @@
-# TODO: Write a GNU Emacs key bindings file akin to the vi-mode plugin.
+# Beep on error in line editor.
+setopt beep
 
-bindkey -e
-bindkey '\ew' kill-region
-bindkey -s '\el' "ls\n"
-bindkey -s '\e.' "..\n"
-bindkey '^r' history-incremental-search-backward
-bindkey "^[[5~" up-line-or-history
-bindkey "^[[6~" down-line-or-history
+# Use human-friendly identifiers.
+typeset -g -A keys
+keys=(
+  'Control'   '\C-'
+  'Escape'    '\e'
+  'Meta'      '\M-'
+  'F1'        '^[OP'
+  'F2'        '^[OQ'
+  'F3'        '^[OR'
+  'F4'        '^[OS'
+  'F5'        '^[[15~'
+  'F6'        '^[[17~'
+  'F7'        '^[[18~'
+  'F8'        '^[[19~'
+  'F9'        '^[[20~'
+  'F10'       '^[[21~'
+  'F11'       '^[[23~'
+  'F12'       '^[[24~'
+  'Backspace' '^?'
+  'Insert'    '^[[2~'
+  'Home'      '^[[H'
+  'PageUp'    '^[[5~'
+  'Delete'    '^[[3~'
+  'End'       '^[[F'
+  'PageDown'  '^[[6~'
+  'Up'        '^[[A'
+  'Left'      '^[[D'
+  'Down'      '^[[B'
+  'Right'     '^[[C'
+  'Menu'      '^[[29~'
+)
 
-# Make key up/down move up/down or search history.
-bindkey '^[[A' up-line-or-search
-bindkey '^[[B' down-line-or-search
-
-bindkey "^[[H" beginning-of-line
-bindkey "^[[1~" beginning-of-line
-bindkey "^[[F"  end-of-line
-bindkey "^[[4~" end-of-line
+bindkey -d    # Reset to default key bindings.
+bindkey -e    # Use Emacs key bindings.
 
 # Do history expansion on space.
 bindkey ' ' magic-space
 
-# File rename magick.
-bindkey "^[m" copy-prev-shell-word
-bindkey '^[[Z' reverse-menu-complete
-
-# Make the delete key (or Fn + Delete on the Mac) work instead of outputting a ~.
-bindkey "^[[3~" delete-char
-bindkey "^[3;5~" delete-char
-bindkey "\e[3~" delete-char
-
-# Consider GNU Emacs keybindings:
-
-#bindkey -e # Emacs key bindings.
-#
-#bindkey '^[[A' up-line-or-search
-#bindkey '^[[B' down-line-or-search
-#bindkey '^[^[[C' emacs-forward-word
-#bindkey '^[^[[D' emacs-backward-word
-#
-#bindkey -s '^X^Z' '%-^M'
-#bindkey '^[e' expand-cmd-path
-#bindkey '^[^I' reverse-menu-complete
-#bindkey '^X^N' accept-and-infer-next-history
-#bindkey '^W' kill-region
-#bindkey '^I' complete-word
-## FIXME: A weird sequence that rxvt produces
-#bindkey -s '^[[Z' '\t'
+# Avoid binding ^J, ^M,  ^C, ^?, ^S, ^Q, etc.
+bindkey "${keys[Home]}"                 beginning-of-line
+bindkey "${keys[End]}"                  end-of-line
+
+bindkey "${keys[Insert]}"               overwrite-mode
+bindkey "${keys[Delete]}"               delete-char
+
+bindkey "${keys[Up]}"                   up-line-or-history
+bindkey "${keys[Down]}"                 down-line-or-history
+
+bindkey "${keys[Left]}"                 backward-char
+bindkey "${keys[Right]}"                forward-char
+
+bindkey "${keys[Meta]}b"                emacs-backward-word
+bindkey "${keys[Meta]}f"                emacs-forward-word
+bindkey "${keys[Escape]}${keys[Left]}"  emacs-backward-word
+bindkey "${keys[Escape]}${keys[Right]}" emacs-forward-word
+
+bindkey "${keys[Control]}w"             kill-region
+
+bindkey "${keys[Escape]}e"              expand-cmd-path
+bindkey "${keys[Escape]}m"              copy-prev-shell-word
+
+bindkey '^[[Z'                          reverse-menu-complete       # Shift + Tab
+bindkey "${keys[Control]}i"             expand-or-complete-prefix   # Complete in middle of word.
+
+bindkey "${keys[Control]}_"             undo
+bindkey "${keys[Escape]}_"              redo
+
+# History
+if autoloadable history-search-end; then
+  autoload -U history-search-end
+  zle -N history-beginning-search-backward-end history-search-end
+  zle -N history-beginning-search-forward-end history-search-end
+  bindkey "${keys[Control]}p" history-beginning-search-backward-end
+  bindkey "${keys[Control]}n" history-beginning-search-forward-end
+else
+  bindkey "${keys[Control]}p" history-beginning-search-backward
+  bindkey "${keys[Control]}n" history-beginning-search-forward
+fi
+
+if (( ${+widgets[history-incremental-pattern-search-backward]} )); then
+  bindkey "${keys[Control]}r" history-incremental-pattern-search-backward
+  bindkey "${keys[Control]}s" history-incremental-pattern-search-forward
+else
+  bindkey "${keys[Control]}r" history-incremental-search-backward
+  bindkey "${keys[Control]}s" history-incremental-search-forward
+fi
+
+# Allow command line editing in an external editor.
+autoload -Uz edit-command-line
+zle -N edit-command-line
+bindkey "${keys[Control]}x${keys[Control]}e" edit-command-line
+
+# Convert .... to ../.. automatically.
+function rationalize-dot() {
+  if [[ $LBUFFER = *.. ]]; then
+    LBUFFER+=/..
+  else
+    LBUFFER+=.
+  fi
+}
+zle -N rationalize-dot
+bindkey '.' rationalize-dot
+bindkey -M isearch . self-insert 2>/dev/null