Implemented GNU Emacs key bindings.
This commit is contained in:
Sorin Ionescu
parent
eaf74b2534
commit
27b9c85900
@ -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
|
||||
# Avoid binding ^J, ^M, ^C, ^?, ^S, ^Q, etc.
|
||||
bindkey "${keys[Home]}" beginning-of-line
|
||||
bindkey "${keys[End]}" end-of-line
|
||||
|
||||
# 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
|
||||
bindkey "${keys[Insert]}" overwrite-mode
|
||||
bindkey "${keys[Delete]}" delete-char
|
||||
|
||||
# Consider GNU Emacs keybindings:
|
||||
bindkey "${keys[Up]}" up-line-or-history
|
||||
bindkey "${keys[Down]}" down-line-or-history
|
||||
|
||||
#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'
|
||||
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
|
||||
|
||||
|
||||
Reference in New Issue
Block a user