mirror of
https://github.com/fish-shell/fish-shell
synced 2024-12-26 12:53:13 +00:00
2e9de57fd7
This has a slightly different behavior than what the CUA user expects: it fails to eat up trailing spaces. We should probably fix this.
109 lines
4.4 KiB
Fish
109 lines
4.4 KiB
Fish
function fish_default_key_bindings -d "emacs-like key binds"
|
|
set -l legacy_bind bind
|
|
if contains -- -h $argv
|
|
or contains -- --help $argv
|
|
echo "Sorry but this function doesn't support -h or --help"
|
|
return 1
|
|
end
|
|
|
|
if not set -q argv[1]
|
|
bind --erase --all --preset # clear earlier bindings, if any
|
|
if test "$fish_key_bindings" != fish_default_key_bindings
|
|
# Allow the user to set the variable universally
|
|
set -l scope
|
|
set -q fish_key_bindings
|
|
or set scope -g
|
|
true
|
|
# We try to use `set --no-event`, but to avoid leaving the user without bindings
|
|
# if they run this with an older version we fall back on setting the variable
|
|
# with an event.
|
|
if ! set --no-event $scope fish_key_bindings fish_default_key_bindings 2>/dev/null
|
|
# This triggers the handler, which calls us again
|
|
set $scope fish_key_bindings fish_default_key_bindings
|
|
# unless the handler somehow doesn't exist, which would leave us without bindings.
|
|
# this happens in no-config mode.
|
|
functions -q __fish_reload_key_bindings
|
|
and return
|
|
else
|
|
# (we need to set the bind mode to default)
|
|
set --no-event fish_bind_mode default
|
|
end
|
|
end
|
|
end
|
|
|
|
# Silence warnings about unavailable keys. See #4431, 4188
|
|
if not contains -- -s $argv
|
|
set argv -s $argv
|
|
end
|
|
|
|
# These are shell-specific bindings that we share with vi mode.
|
|
__fish_shared_key_bindings $argv
|
|
or return # protect against invalid $argv
|
|
|
|
bind --preset $argv ctrl-k kill-line
|
|
|
|
bind --preset $argv right forward-char
|
|
bind --preset $argv left backward-char
|
|
$legacy_bind --preset $argv -k right forward-char
|
|
$legacy_bind --preset $argv -k left backward-char
|
|
|
|
bind --preset $argv delete delete-char
|
|
bind --preset $argv backspace backward-delete-char
|
|
bind --preset $argv shift-backspace backward-delete-char
|
|
|
|
bind --preset $argv home beginning-of-line
|
|
$legacy_bind --preset $argv -k home beginning-of-line
|
|
bind --preset $argv end end-of-line
|
|
$legacy_bind --preset $argv -k end end-of-line
|
|
|
|
bind --preset $argv ctrl-a beginning-of-line
|
|
bind --preset $argv ctrl-e end-of-line
|
|
bind --preset $argv ctrl-h backward-delete-char
|
|
bind --preset $argv ctrl-p up-or-search
|
|
bind --preset $argv ctrl-n down-or-search
|
|
bind --preset $argv ctrl-f forward-char
|
|
bind --preset $argv ctrl-b backward-char
|
|
bind --preset $argv ctrl-t transpose-chars
|
|
bind --preset $argv ctrl-g cancel
|
|
bind --preset $argv ctrl-/ undo
|
|
bind --preset $argv ctrl-_ undo # XTerm idiosyncracy, can get rid of this once we go full CSI u
|
|
bind --preset $argv ctrl-z undo
|
|
bind --preset $argv ctrl-Z redo
|
|
bind --preset $argv alt-/ redo
|
|
bind --preset $argv alt-t transpose-words
|
|
bind --preset $argv alt-u upcase-word
|
|
|
|
bind --preset $argv alt-c capitalize-word
|
|
bind --preset $argv alt-backspace backward-kill-word
|
|
bind --preset $argv ctrl-backspace backward-kill-word
|
|
bind --preset $argv ctrl-delete kill-word
|
|
bind --preset $argv alt-b backward-word
|
|
bind --preset $argv alt-f forward-word
|
|
if test "$TERM_PROGRAM" = Apple_Terminal
|
|
# Terminal.app sends \eb for alt+left, \ef for alt+right.
|
|
# Yeah.
|
|
$legacy_bind --preset $argv alt-b prevd-or-backward-word
|
|
$legacy_bind --preset $argv alt-f nextd-or-forward-word
|
|
end
|
|
|
|
bind --preset $argv alt-\< beginning-of-buffer
|
|
bind --preset $argv alt-\> end-of-buffer
|
|
|
|
bind --preset $argv ctrl-r history-pager
|
|
|
|
# term-specific special bindings
|
|
switch "$TERM"
|
|
case st-256color
|
|
# suckless and bash/zsh/fish have a different approach to how the terminal should be configured;
|
|
# the major effect is that several keys do not work as intended.
|
|
# This is a workaround, there will be additions in he future.
|
|
$legacy_bind --preset $argv \e\[P delete-char
|
|
$legacy_bind --preset $argv \e\[Z up-line
|
|
case xterm-256color
|
|
# Microsoft's conemu uses xterm-256color plus
|
|
# the following to tell a console to paste:
|
|
$legacy_bind --preset $argv \e\x20ep fish_clipboard_paste
|
|
end
|
|
|
|
set -e -g fish_cursor_selection_mode
|
|
end
|