#
# Sets keyboard bindings.
#
# Authors:
#   Sorin Ionescu <sorin.ionescu@gmail.com>
#

# Dumb terminals lack support.
if [[ "$TERM" == 'dumb' ]]; then
  return
fi

# The default styles.

# Indicator to notify of vi command mode.
zstyle ':omz:prompt' vicmd '<<<'

# Indicator to notify of generating completion.
zstyle ':omz:completion' indicator '...'

# Beep on error in line editor.
setopt BEEP

# Reset to default key bindings.
bindkey -d

# Allow command line editing in an external editor.
autoload -Uz edit-command-line
zle -N edit-command-line

# Use human-friendly identifiers.
zmodload zsh/terminfo
typeset -g -A keyinfo
keyinfo=(
  'Control'   '\C-'
  'Escape'    '\e'
  'Meta'      '\M-'
  'F1'        "$terminfo[kf1]"
  'F2'        "$terminfo[kf2]"
  'F3'        "$terminfo[kf3]"
  'F4'        "$terminfo[kf4]"
  'F5'        "$terminfo[kf5]"
  'F6'        "$terminfo[kf6]"
  'F7'        "$terminfo[kf7]"
  'F8'        "$terminfo[kf8]"
  'F9'        "$terminfo[kf9]"
  'F10'       "$terminfo[kf10]"
  'F11'       "$terminfo[kf11]"
  'F12'       "$terminfo[kf12]"
  'Backspace' "$terminfo[kbs]"
  'Insert'    "$terminfo[kich1]"
  'Home'      "$terminfo[khome]"
  'PageUp'    "$terminfo[kpp]"
  'Delete'    "$terminfo[kdch1]"
  'End'       "$terminfo[kend]"
  'PageDown'  "$terminfo[knp]"
  'Up'        "$terminfo[kcuu1]"
  'Left'      "$terminfo[kcub1]"
  'Down'      "$terminfo[kcud1]"
  'Right'     "$terminfo[kcuf1]"
  'BackTab'   "$terminfo[kcbt]"
)

zstyle -s ':omz:editor' keymap 'keymap'
if [[ "$keymap" == (emacs|) ]]; then
  # Use Emacs key bindings.
  bindkey -e

  [[ -n "$keyinfo[Escape]" ]] && \
    for key in "$keyinfo[Escape]"{B,b}; \
      bindkey -M emacs "$key" emacs-backward-word
  [[ -n "$keyinfo[Escape]" ]] && \
    for key in "$keyinfo[Escape]"{F,f}; \
      bindkey -M emacs "$key" emacs-forward-word
  [[ -n "$keyinfo[Escape]" && -n "$keyinfo[Left]" ]] && \
    bindkey -M emacs "$keyinfo[Escape]$keyinfo[Left]" emacs-backward-word
  [[ -n "$keyinfo[Escape]" && -n "$keyinfo[Right]" ]] && \
    bindkey -M emacs "$keyinfo[Escape]$keyinfo[Right]" emacs-forward-word

  # Kill to the beginning of the line.
  [[ -n "$keyinfo[Escape]" ]] && \
    for key in "$keyinfo[Escape]"{K,k}; \
      bindkey -M emacs "$key" backward-kill-line

  # Redo.
  [[ -n "$keyinfo[Escape]" ]] && \
    bindkey -M emacs "$keyinfo[Escape]_" redo

  # Search previous character.
  [[ -n "$keyinfo[Control]" ]] && \
    bindkey -M emacs "$keyinfo[Control]X$keyinfo[Control]B" vi-find-prev-char

  # Match bracket.
  [[ -n "$keyinfo[Control]" ]] && \
    bindkey -M emacs "$keyinfo[Control]X$keyinfo[Control]]" vi-match-bracket

  # Edit command in an external editor.
  [[ -n "$keyinfo[Control]" ]] && \
    bindkey -M emacs "$keyinfo[Control]X$keyinfo[Control]E" edit-command-line

  # Expand .... to ../..
  if zstyle -t ':omz:editor' dot-expansion; then
    bindkey -M emacs "." expand-dot-to-parent-directory-path
  fi

  # Bind to history substring search plugin if enabled;
  # otherwise, bind to built-in Zsh history search.
  if (( $+widgets[history-incremental-pattern-search-backward] )); then
    [[ -n "$keyinfo[Control]" ]] && \
      bindkey -M emacs "$keyinfo[Control]R" \
        history-incremental-pattern-search-backward
    [[ -n "$keyinfo[Control]" ]] && \
      bindkey -M emacs "$keyinfo[Control]S" \
        history-incremental-pattern-search-forward
  else
    [[ -n "$keyinfo[Control]" ]] && \
      bindkey -M emacs "$keyinfo[Control]R" \
        history-incremental-search-backward
    [[ -n "$keyinfo[Control]" ]] && \
      bindkey -M emacs "$keyinfo[Control]S" \
        history-incremental-search-forward
  fi
elif [[ "$keymap" == vi ]]; then
  # Use vi key bindings.
  bindkey -v

  # Restores RPROMPT when exiting vicmd.
  function vi-restore-rprompt() {
    if (( $+RPROMPT_CACHED )); then
      RPROMPT="$RPROMPT_CACHED"
      unset RPROMPT_CACHED
      zle reset-prompt
      return 0
    fi
    return 1
  }
  add-zsh-trap INT vi-restore-rprompt

  # Displays the current vi mode (command).
  function zle-keymap-select() {
    if ! vi-restore-rprompt && [[ "$KEYMAP" == 'vicmd' ]]; then
      RPROMPT_CACHED="$RPROMPT"
      zstyle -s ':omz:prompt' vicmd RPROMPT
      zle reset-prompt
    fi
  }
  zle -N zle-keymap-select

  # Resets the prompt after exiting edit-command-line.
  function zle-line-init() {
    vi-restore-rprompt
  }
  zle -N zle-line-init

  # Resets the prompt after the line has been accepted.
  function zle-line-finish() {
    vi-restore-rprompt
  }
  zle -N zle-line-finish

  # Edit command in an external editor.
  bindkey -M vicmd "v" edit-command-line

  # Show cursor position.
  bindkey -M vicmd "ga" what-cursor-position

  # Undo/Redo
  bindkey -M vicmd "u" undo
  [[ -n "$keyinfo[Control]" ]] && \
    bindkey -M vicmd "$keyinfo[Control]R" redo

  # Expand .... to ../..
  if zstyle -t ':omz:editor' dot-expansion; then
    bindkey -M viins "." expand-dot-to-parent-directory-path
  fi

  # Switch to command mode.
  bindkey -M viins "jk" vi-cmd-mode
  bindkey -M viins "kj" vi-cmd-mode

  # History
  bindkey -M vicmd "gg" beginning-of-history
  bindkey -M vicmd "G" end-of-history

  # Bind to history substring search plugin if enabled;
  # otherwise, bind to built-in Zsh history search.
  if (( $+plugins[(er)history-substring-search] )); then
    bindkey -M vicmd "k" history-substring-search-up
    bindkey -M vicmd "j" history-substring-search-down
  else
    bindkey -M vicmd "k" up-line-or-history
    bindkey -M vicmd "j" down-line-or-history
  fi

  if (( $+widgets[history-incremental-pattern-search-backward] )); then
    bindkey -M vicmd "?" history-incremental-pattern-search-backward
    bindkey -M vicmd "/" history-incremental-pattern-search-forward
  else
    bindkey -M vicmd "?" history-incremental-search-backward
    bindkey -M vicmd "/" history-incremental-search-forward
  fi
else
  print "omz: invalid keymap: $keymap" >&2
  unset keymap
  return 1
fi
unset keymap

# The next key bindings are for both Emacs and Vi.
[[ -n "$keyinfo[Home]" ]] && \
  bindkey "$keyinfo[Home]" beginning-of-line
[[ -n "$keyinfo[End]" ]] && \
  bindkey "$keyinfo[End]" end-of-line

[[ -n "$keyinfo[Insert]" ]] && \
  bindkey "$keyinfo[Insert]" overwrite-mode
[[ -n "$keyinfo[Delete]" ]] && \
  bindkey "$keyinfo[Delete]" delete-char
[[ -n "$keyinfo[Backspace]" ]] && \
  bindkey "$keyinfo[Backspace]" backward-delete-char

[[ -n "$keyinfo[Left]" ]] && \
  bindkey "$keyinfo[Left]" backward-char
[[ -n "$keyinfo[Right]" ]] && \
  bindkey "$keyinfo[Right]" forward-char

# Expand history on space.
bindkey ' ' magic-space

if (( $+plugins[(er)history-substring-search] )); then
  [[ -n "$keyinfo[Up]" ]] && \
    bindkey "$keyinfo[Up]" history-substring-search-up
  [[ -n "$keyinfo[Down]" ]] && \
    bindkey "$keyinfo[Down]" history-substring-search-down
  [[ -n "$keyinfo[Control]" ]] && \
    bindkey "$keyinfo[Control]P" history-substring-search-up
  [[ -n "$keyinfo[Control]" ]] && \
    bindkey "$keyinfo[Control]N" history-substring-search-down
else
  [[ -n "$keyinfo[Up]" ]] && \
    bindkey "$keyinfo[Up]" up-line-or-history
  [[ -n "$keyinfo[Down]" ]] && \
    bindkey "$keyinfo[Down]" down-line-or-history
  [[ -n "$keyinfo[Control]" ]] && \
    bindkey "$keyinfo[Control]P" up-line-or-history
  [[ -n "$keyinfo[Control]" ]] && \
    bindkey "$keyinfo[Control]N" down-line-or-history
fi

# Clear screen.
[[ -n "$keyinfo[Control]" ]] && \
  bindkey "$keyinfo[Control]L" clear-screen

# Expand command name to full path.
[[ -n "$keyinfo[Escape]" ]] && \
  for key in "$keyinfo[Escape]"{E,e}; \
    bindkey -M viins "$key" expand-cmd-path

# Duplicate the previous word.
[[ -n "$keyinfo[Escape]" ]] && \
  for key in "$keyinfo[Escape]"{M,m}; \
    bindkey -M viins "$key" copy-prev-shell-word

# Bind Shift + Tab to go to the previous menu item.
[[ -n "$keyinfo[BackTab]" ]] && \
  bindkey "$keyinfo[BackTab]" reverse-menu-complete

# Complete in the middle of word.
[[ -n "$keyinfo[Control]" ]] && \
  bindkey "$keyinfo[Control]I" expand-or-complete-prefix

# Convert .... to ../.. automatically.
if zstyle -t ':omz:editor' dot-expansion; then
  function expand-dot-to-parent-directory-path() {
    if [[ $LBUFFER = *.. ]]; then
      LBUFFER+=/..
    else
      LBUFFER+=.
    fi
  }
  zle -N expand-dot-to-parent-directory-path
  # Do not expand .... to ../..  during incremental search.
  bindkey -M isearch . self-insert 2>/dev/null
fi

# Display an indicator when completing.
function expand-or-complete-prefix-with-indicator() {
  local indicator
  zstyle -s ':omz:completion' indicator 'indicator'
  print -Pn "$indicator"
  zle expand-or-complete-prefix
  zle redisplay
}
zle -N expand-or-complete-prefix-with-indicator
[[ -n "$keyinfo[Control]" ]] && \
  bindkey "$keyinfo[Control]I" expand-or-complete-prefix-with-indicator

unset key