aboutsummaryrefslogtreecommitdiffhomepage
path: root/share/functions
diff options
context:
space:
mode:
authorGravatar Kurtis Rader <krader@skepticism.us>2016-05-08 16:27:15 -0700
committerGravatar Kurtis Rader <krader@skepticism.us>2016-05-08 16:27:15 -0700
commit3626c39398db095baaf2929f9c5bb1db8e7d3603 (patch)
tree859aa9ae8f4239bc02a624bbe3b82cfb99925ef2 /share/functions
parent0d1d324e9f6719a5d4198ee0e8efd05cad89fc39 (diff)
fix the style of several functions
I'm going to modify these functions as part of dealing with issue #3000 and don't want those changes to be masked by running the files through `make style`.
Diffstat (limited to 'share/functions')
-rw-r--r--share/functions/__fish_config_interactive.fish584
-rw-r--r--share/functions/cd.fish5
-rw-r--r--share/functions/history.fish281
3 files changed, 448 insertions, 422 deletions
diff --git a/share/functions/__fish_config_interactive.fish b/share/functions/__fish_config_interactive.fish
index f8b08de6..7b306e3d 100644
--- a/share/functions/__fish_config_interactive.fish
+++ b/share/functions/__fish_config_interactive.fish
@@ -1,83 +1,106 @@
-# Initializations that should only be performed when entering
-# interactive mode.
+#
+# Initializations that should only be performed when entering interactive mode.
+#
+# This function is called by the __fish_on_interactive function, which is defined in config.fish.
+#
+function __fish_config_interactive -d "Initializations that should be performed when entering interactive mode"
-# This function is called by the __fish_on_interactive function, which
-# is defined in config.fish.
-function __fish_config_interactive -d "Initializations that should be performed when entering interactive mode"
+ # Make sure this function is only run once
+ if set -q __fish_config_interactive_done
+ return
+ end
+
+ set -g __fish_config_interactive_done
+
+ # Set the correct configuration directory
+ set -l configdir ~/.config
+ if set -q XDG_CONFIG_HOME
+ set configdir $XDG_CONFIG_HOME
+ end
+ # Set the correct user data directory
+ set -l userdatadir ~/.local/share
+ if set -q XDG_DATA_HOME
+ set userdatadir $XDG_DATA_HOME
+ end
+ #
+ # If we are starting up for the first time, set various defaults
+ #
- # Make sure this function is only run once
- if set -q __fish_config_interactive_done
- return
- end
-
- set -g __fish_config_interactive_done
-
- # Set the correct configuration directory
- set -l configdir ~/.config
- if set -q XDG_CONFIG_HOME
- set configdir $XDG_CONFIG_HOME
- end
- # Set the correct user data directory
- set -l userdatadir ~/.local/share
- if set -q XDG_DATA_HOME
- set userdatadir $XDG_DATA_HOME
- end
-
- #
- # If we are starting up for the first time, set various defaults
- #
-
- if not set -q __fish_init_1_50_0
- if not set -q fish_greeting
- set -l line1 (printf (_ 'Welcome to fish, the friendly interactive shell') )
- set -l line2 (printf (_ 'Type %shelp%s for instructions on how to use fish') (set_color green) (set_color normal))
- set -U fish_greeting $line1\n$line2
- end
- set -U __fish_init_1_50_0
-
- # Regular syntax highlighting colors
- set -q fish_color_normal; or set -U fish_color_normal normal
- set -q fish_color_command; or set -U fish_color_command 005fd7 purple
- set -q fish_color_param; or set -U fish_color_param 00afff cyan
- set -q fish_color_redirection; or set -U fish_color_redirection normal
- set -q fish_color_comment; or set -U fish_color_comment red
- set -q fish_color_error; or set -U fish_color_error red --bold
- set -q fish_color_escape; or set -U fish_color_escape cyan
- set -q fish_color_operator; or set -U fish_color_operator cyan
- set -q fish_color_end; or set -U fish_color_end green
- set -q fish_color_quote; or set -U fish_color_quote brown
- set -q fish_color_autosuggestion; or set -U fish_color_autosuggestion 555 yellow
- set -q fish_color_user; or set -U fish_color_user green
-
- set -q fish_color_host; or set -U fish_color_host normal
- set -q fish_color_valid_path; or set -U fish_color_valid_path --underline
-
- set -q fish_color_cwd; or set -U fish_color_cwd green
- set -q fish_color_cwd_root; or set -U fish_color_cwd_root red
-
- # Background color for matching quotes and parenthesis
- set -q fish_color_match; or set -U fish_color_match cyan
-
- # Background color for search matches
- set -q fish_color_search_match; or set -U fish_color_search_match --background=purple
-
- # Background color for selections
- set -q fish_color_selection; or set -U fish_color_selection --background=purple
-
- # Pager colors
- set -q fish_pager_color_prefix; or set -U fish_pager_color_prefix cyan
- set -q fish_pager_color_completion; or set -U fish_pager_color_completion normal
- set -q fish_pager_color_description 555; or set -U fish_pager_color_description 555 yellow
- set -q fish_pager_color_progress; or set -U fish_pager_color_progress cyan
-
- #
- # Directory history colors
- #
-
- set -q fish_color_history_current; or set -U fish_color_history_current cyan
- end
+ if not set -q __fish_init_1_50_0
+ if not set -q fish_greeting
+ set -l line1 (printf (_ 'Welcome to fish, the friendly interactive shell') )
+ set -l line2 (printf (_ 'Type %shelp%s for instructions on how to use fish') (set_color green) (set_color normal))
+ set -U fish_greeting $line1\n$line2
+ end
+ set -U __fish_init_1_50_0
+
+ # Regular syntax highlighting colors
+ set -q fish_color_normal
+ or set -U fish_color_normal normal
+ set -q fish_color_command
+ or set -U fish_color_command 005fd7 purple
+ set -q fish_color_param
+ or set -U fish_color_param 00afff cyan
+ set -q fish_color_redirection
+ or set -U fish_color_redirection normal
+ set -q fish_color_comment
+ or set -U fish_color_comment red
+ set -q fish_color_error
+ or set -U fish_color_error red --bold
+ set -q fish_color_escape
+ or set -U fish_color_escape cyan
+ set -q fish_color_operator
+ or set -U fish_color_operator cyan
+ set -q fish_color_end
+ or set -U fish_color_end green
+ set -q fish_color_quote
+ or set -U fish_color_quote brown
+ set -q fish_color_autosuggestion
+ or set -U fish_color_autosuggestion 555 yellow
+ set -q fish_color_user
+ or set -U fish_color_user green
+
+ set -q fish_color_host
+ or set -U fish_color_host normal
+ set -q fish_color_valid_path
+ or set -U fish_color_valid_path --underline
+
+ set -q fish_color_cwd
+ or set -U fish_color_cwd green
+ set -q fish_color_cwd_root
+ or set -U fish_color_cwd_root red
+
+ # Background color for matching quotes and parenthesis
+ set -q fish_color_match
+ or set -U fish_color_match cyan
+
+ # Background color for search matches
+ set -q fish_color_search_match
+ or set -U fish_color_search_match --background=purple
+
+ # Background color for selections
+ set -q fish_color_selection
+ or set -U fish_color_selection --background=purple
+
+ # Pager colors
+ set -q fish_pager_color_prefix
+ or set -U fish_pager_color_prefix cyan
+ set -q fish_pager_color_completion
+ or set -U fish_pager_color_completion normal
+ set -q fish_pager_color_description 555
+ or set -U fish_pager_color_description 555 yellow
+ set -q fish_pager_color_progress
+ or set -U fish_pager_color_progress cyan
+
+ #
+ # Directory history colors
+ #
+
+ set -q fish_color_history_current
+ or set -U fish_color_history_current cyan
+ end
#
# Generate man page completions if not present
@@ -88,207 +111,210 @@ function __fish_config_interactive -d "Initializations that should be performed
eval "$__fish_bin_dir/fish -c 'fish_update_completions > /dev/null ^/dev/null' &"
end
- #
- # Print a greeting
- # fish_greeting can be a function (preferred) or a variable
- #
-
- if functions -q fish_greeting
- fish_greeting
- else
- # The greeting used to be skipped when fish_greeting was empty (not just undefined)
- # Keep it that way to not print superfluous newlines on old configuration
- test -n "$fish_greeting"; and echo $fish_greeting
- end
-
- #
- # This event handler makes sure the prompt is repainted when
- # fish_color_cwd changes value. Like all event handlers, it can't be
- # autoloaded.
- #
-
- function __fish_repaint --on-variable fish_color_cwd --description "Event handler, repaints the prompt when fish_color_cwd changes"
- if status --is-interactive
- set -e __fish_prompt_cwd
- commandline -f repaint ^/dev/null
- end
- end
-
- function __fish_repaint_root --on-variable fish_color_cwd_root --description "Event handler, repaints the prompt when fish_color_cwd_root changes"
- if status --is-interactive
- set -e __fish_prompt_cwd
- commandline -f repaint ^/dev/null
- end
- end
-
- #
- # Completions for SysV startup scripts. These aren't bound to any
- # specific command, so they can't be autoloaded.
- #
-
- complete -x -p "/etc/init.d/*" -a start --description 'Start service'
- complete -x -p "/etc/init.d/*" -a stop --description 'Stop service'
- complete -x -p "/etc/init.d/*" -a status --description 'Print service status'
- complete -x -p "/etc/init.d/*" -a restart --description 'Stop and then start service'
- complete -x -p "/etc/init.d/*" -a reload --description 'Reload service configuration'
-
- # Make sure some key bindings are set
- if not set -q fish_key_bindings
- set -U fish_key_bindings fish_default_key_bindings
- end
-
- # Reload key bindings when binding variable change
- function __fish_reload_key_bindings -d "Reload key bindings when binding variable change" --on-variable fish_key_bindings
- # do nothing if the key bindings didn't actually change
- # This could be because the variable was set to the existing value
- # or because it was a local variable
- if test "$fish_key_bindings" = "$__fish_active_key_bindings"
- return
- end
- set -g __fish_active_key_bindings "$fish_key_bindings"
- set -g fish_bind_mode default
- if test "$fish_key_bindings" = fish_default_key_bindings
- fish_default_key_bindings
- else
- eval $fish_key_bindings ^/dev/null
- end
- # Load user key bindings if they are defined
- if functions --query fish_user_key_bindings > /dev/null
- fish_user_key_bindings
- end
- end
-
- # Load key bindings. Redirect stderr per #1155
- set -g __fish_active_key_bindings
- __fish_reload_key_bindings ^ /dev/null
-
- # Repaint screen when window changes size
- function __fish_winch_handler --on-signal WINCH
- commandline -f repaint
- end
-
-
- # Notify vte-based terminals when $PWD changes (issue #906)
- if test "$VTE_VERSION" -ge 3405 -o "$TERM_PROGRAM" = "Apple_Terminal"
- function __update_vte_cwd --on-variable PWD --description 'Notify VTE of change to $PWD'
- status --is-command-substitution; and return
- printf '\033]7;file://%s%s\a' (hostname) (pwd | __fish_urlencode)
- end
- __update_vte_cwd # Run once because we might have already inherited a PWD from an old tab
- end
-
- ### Command-not-found handlers
- # This can be overridden by defining a new __fish_command_not_found_handler function
- if not type -q __fish_command_not_found_handler
- # First check if we are on OpenSUSE since SUSE's handler has no options
- # and expects first argument to be a command and second database
- # also check if there is command-not-found command.
- if test -f /etc/SuSE-release; and type -q -p command-not-found
- function __fish_command_not_found_handler --on-event fish_command_not_found
- /usr/bin/command-not-found $argv[1]
- end
- # Check for Fedora's handler
- else if test -f /usr/libexec/pk-command-not-found
- function __fish_command_not_found_handler --on-event fish_command_not_found
- /usr/libexec/pk-command-not-found $argv[1]
- end
- # Check in /usr/lib, this is where modern Ubuntus place this command
- else if test -f /usr/lib/command-not-found
- function __fish_command_not_found_handler --on-event fish_command_not_found
- /usr/lib/command-not-found -- $argv[1]
- end
- # Check for NixOS handler
- else if test -f /run/current-system/sw/bin/command-not-found
- function __fish_command_not_found_handler --on-event fish_command_not_found
- /run/current-system/sw/bin/command-not-found $argv
- end
- # Ubuntu Feisty places this command in the regular path instead
- else if type -q -p command-not-found
- function __fish_command_not_found_handler --on-event fish_command_not_found
- command-not-found -- $argv[1]
- end
- # pkgfile is an optional, but official, package on Arch Linux
- # it ships with example handlers for bash and zsh, so we'll follow that format
- else if type -p -q pkgfile
- function __fish_command_not_found_handler --on-event fish_command_not_found
- set -l __packages (pkgfile --binaries --verbose -- $argv[1] ^/dev/null)
- if test $status -eq 0
- printf "%s may be found in the following packages:\n" "$argv[1]"
- printf " %s\n" $__packages
- else
- __fish_default_command_not_found_handler $argv[1]
- end
- end
- # Use standard fish command not found handler otherwise
- else
- function __fish_command_not_found_handler --on-event fish_command_not_found
- __fish_default_command_not_found_handler $argv[1]
- end
- end
- end
-
- if test $TERM = "linux" # A linux in-kernel VT with 8 colors and 256/512 glyphs
- # In a VT we have
- # black (invisible)
- # red
- # green
- # yellow
- # blue
- # magenta
- # cyan
- # white
-
- # Pretty much just set at random
- set -g fish_color_normal normal
- set -g fish_color_command yellow
- set -g fish_color_param cyan
- set -g fish_color_redirection normal
- set -g fish_color_comment red
- set -g fish_color_error red
- set -g fish_color_escape cyan
- set -g fish_color_operator cyan
- set -g fish_color_quote blue
- set -g fish_color_autosuggestion yellow
- set -g fish_color_valid_path
- set -g fish_color_cwd green
- set -g fish_color_cwd_root red
- set -g fish_color_match cyan
- set -g fish_color_history_current cyan
- set -g fish_color_search_match cyan
- set -g fish_color_selection blue
- set -g fish_color_end yellow
- set -g fish_color_host normal
- set -g fish_color_status red
- set -g fish_color_user green
- set -g fish_pager_color_prefix cyan
- set -g fish_pager_color_completion normal
- set -g fish_pager_color_description yellow
- set -g fish_pager_color_progress cyan
-
- # Don't allow setting color other than what linux offers (see #2001)
- functions -e set_color
- function set_color
- set -l term_colors black red green yellow blue magenta cyan white normal
- for a in $argv
- if not contains -- $a $term_colors
- switch $a
- # Also allow options
- case "-*"
- continue
- case "*"
- echo "Color not valid in TERM = linux: $a"
- return 1
- end
- end
- end
- builtin set_color $argv
- return $status
- end
-
- # Set fish_prompt to a VT-friendly version
- # without color or unicode
- function fish_prompt
- fish_fallback_prompt
- end
- end
+ #
+ # Print a greeting
+ # fish_greeting can be a function (preferred) or a variable
+ #
+
+ if functions -q fish_greeting
+ fish_greeting
+ else
+ # The greeting used to be skipped when fish_greeting was empty (not just undefined)
+ # Keep it that way to not print superfluous newlines on old configuration
+ test -n "$fish_greeting"
+ and echo $fish_greeting
+ end
+
+ #
+ # This event handler makes sure the prompt is repainted when
+ # fish_color_cwd changes value. Like all event handlers, it can't be
+ # autoloaded.
+ #
+
+ function __fish_repaint --on-variable fish_color_cwd --description "Event handler, repaints the prompt when fish_color_cwd changes"
+ if status --is-interactive
+ set -e __fish_prompt_cwd
+ commandline -f repaint ^/dev/null
+ end
+ end
+
+ function __fish_repaint_root --on-variable fish_color_cwd_root --description "Event handler, repaints the prompt when fish_color_cwd_root changes"
+ if status --is-interactive
+ set -e __fish_prompt_cwd
+ commandline -f repaint ^/dev/null
+ end
+ end
+
+ #
+ # Completions for SysV startup scripts. These aren't bound to any
+ # specific command, so they can't be autoloaded.
+ #
+
+ complete -x -p "/etc/init.d/*" -a start --description 'Start service'
+ complete -x -p "/etc/init.d/*" -a stop --description 'Stop service'
+ complete -x -p "/etc/init.d/*" -a status --description 'Print service status'
+ complete -x -p "/etc/init.d/*" -a restart --description 'Stop and then start service'
+ complete -x -p "/etc/init.d/*" -a reload --description 'Reload service configuration'
+
+ # Make sure some key bindings are set
+ if not set -q fish_key_bindings
+ set -U fish_key_bindings fish_default_key_bindings
+ end
+
+ # Reload key bindings when binding variable change
+ function __fish_reload_key_bindings -d "Reload key bindings when binding variable change" --on-variable fish_key_bindings
+ # do nothing if the key bindings didn't actually change
+ # This could be because the variable was set to the existing value
+ # or because it was a local variable
+ if test "$fish_key_bindings" = "$__fish_active_key_bindings"
+ return
+ end
+ set -g __fish_active_key_bindings "$fish_key_bindings"
+ set -g fish_bind_mode default
+ if test "$fish_key_bindings" = fish_default_key_bindings
+ fish_default_key_bindings
+ else
+ eval $fish_key_bindings ^/dev/null
+ end
+ # Load user key bindings if they are defined
+ if functions --query fish_user_key_bindings >/dev/null
+ fish_user_key_bindings
+ end
+ end
+
+ # Load key bindings. Redirect stderr per #1155
+ set -g __fish_active_key_bindings
+ __fish_reload_key_bindings ^/dev/null
+
+ # Repaint screen when window changes size
+ function __fish_winch_handler --on-signal WINCH
+ commandline -f repaint
+ end
+
+
+ # Notify vte-based terminals when $PWD changes (issue #906)
+ if test "$VTE_VERSION" -ge 3405 -o "$TERM_PROGRAM" = "Apple_Terminal"
+ function __update_vte_cwd --on-variable PWD --description 'Notify VTE of change to $PWD'
+ status --is-command-substitution
+ and return
+ printf '\033]7;file://%s%s\a' (hostname) (pwd | __fish_urlencode)
+ end
+ __update_vte_cwd # Run once because we might have already inherited a PWD from an old tab
+ end
+
+ ### Command-not-found handlers
+ # This can be overridden by defining a new __fish_command_not_found_handler function
+ if not type -q __fish_command_not_found_handler
+ # First check if we are on OpenSUSE since SUSE's handler has no options
+ # and expects first argument to be a command and second database
+ # also check if there is command-not-found command.
+ if test -f /etc/SuSE-release
+ and type -q -p command-not-found
+ function __fish_command_not_found_handler --on-event fish_command_not_found
+ /usr/bin/command-not-found $argv[1]
+ end
+ # Check for Fedora's handler
+ else if test -f /usr/libexec/pk-command-not-found
+ function __fish_command_not_found_handler --on-event fish_command_not_found
+ /usr/libexec/pk-command-not-found $argv[1]
+ end
+ # Check in /usr/lib, this is where modern Ubuntus place this command
+ else if test -f /usr/lib/command-not-found
+ function __fish_command_not_found_handler --on-event fish_command_not_found
+ /usr/lib/command-not-found -- $argv[1]
+ end
+ # Check for NixOS handler
+ else if test -f /run/current-system/sw/bin/command-not-found
+ function __fish_command_not_found_handler --on-event fish_command_not_found
+ /run/current-system/sw/bin/command-not-found $argv
+ end
+ # Ubuntu Feisty places this command in the regular path instead
+ else if type -q -p command-not-found
+ function __fish_command_not_found_handler --on-event fish_command_not_found
+ command-not-found -- $argv[1]
+ end
+ # pkgfile is an optional, but official, package on Arch Linux
+ # it ships with example handlers for bash and zsh, so we'll follow that format
+ else if type -p -q pkgfile
+ function __fish_command_not_found_handler --on-event fish_command_not_found
+ set -l __packages (pkgfile --binaries --verbose -- $argv[1] ^/dev/null)
+ if test $status -eq 0
+ printf "%s may be found in the following packages:\n" "$argv[1]"
+ printf " %s\n" $__packages
+ else
+ __fish_default_command_not_found_handler $argv[1]
+ end
+ end
+ # Use standard fish command not found handler otherwise
+ else
+ function __fish_command_not_found_handler --on-event fish_command_not_found
+ __fish_default_command_not_found_handler $argv[1]
+ end
+ end
+ end
+
+ if test $TERM = "linux" # A linux in-kernel VT with 8 colors and 256/512 glyphs
+ # In a VT we have
+ # black (invisible)
+ # red
+ # green
+ # yellow
+ # blue
+ # magenta
+ # cyan
+ # white
+
+ # Pretty much just set at random
+ set -g fish_color_normal normal
+ set -g fish_color_command yellow
+ set -g fish_color_param cyan
+ set -g fish_color_redirection normal
+ set -g fish_color_comment red
+ set -g fish_color_error red
+ set -g fish_color_escape cyan
+ set -g fish_color_operator cyan
+ set -g fish_color_quote blue
+ set -g fish_color_autosuggestion yellow
+ set -g fish_color_valid_path
+ set -g fish_color_cwd green
+ set -g fish_color_cwd_root red
+ set -g fish_color_match cyan
+ set -g fish_color_history_current cyan
+ set -g fish_color_search_match cyan
+ set -g fish_color_selection blue
+ set -g fish_color_end yellow
+ set -g fish_color_host normal
+ set -g fish_color_status red
+ set -g fish_color_user green
+ set -g fish_pager_color_prefix cyan
+ set -g fish_pager_color_completion normal
+ set -g fish_pager_color_description yellow
+ set -g fish_pager_color_progress cyan
+
+ # Don't allow setting color other than what linux offers (see #2001)
+ functions -e set_color
+ function set_color
+ set -l term_colors black red green yellow blue magenta cyan white normal
+ for a in $argv
+ if not contains -- $a $term_colors
+ switch $a
+ # Also allow options
+ case "-*"
+ continue
+ case "*"
+ echo "Color not valid in TERM = linux: $a"
+ return 1
+ end
+ end
+ end
+ builtin set_color $argv
+ return $status
+ end
+
+ # Set fish_prompt to a VT-friendly version
+ # without color or unicode
+ function fish_prompt
+ fish_fallback_prompt
+ end
+ end
end
diff --git a/share/functions/cd.fish b/share/functions/cd.fish
index a1b6b2ac..adf0327c 100644
--- a/share/functions/cd.fish
+++ b/share/functions/cd.fish
@@ -15,7 +15,7 @@ function cd --description "Change directory"
return $status
end
- # Avoid set completions
+ # Avoid set completions.
set -l previous $PWD
if test "$argv" = "-"
@@ -31,7 +31,8 @@ function cd --description "Change directory"
set -l cd_status $status
if test $cd_status -eq 0 -a "$PWD" != "$previous"
- set -q dirprev[$MAX_DIR_HIST]; and set -e dirprev[1]
+ set -q dirprev[$MAX_DIR_HIST]
+ and set -e dirprev[1]
set -g dirprev $dirprev $previous
set -e dirnext
set -g __fish_cd_direction prev
diff --git a/share/functions/history.fish b/share/functions/history.fish
index a26db0f4..0de39e30 100644
--- a/share/functions/history.fish
+++ b/share/functions/history.fish
@@ -1,147 +1,146 @@
#
#Deletes an item from history
#
-
function history --description "Deletes an item from history"
- set -l argc (count $argv)
- set -l prefix_args ""
- set -l contains_args ""
-
- set -l cmd print
-
- set -l search_mode none
-
- set -l pager less
- if set -q PAGER
- set pager $PAGER
- end
-
- if test $argc -gt 0
- for i in (seq $argc)
- switch $argv[$i]
- case --delete
- set cmd delete
- case --prefix
- set search_mode prefix
- set prefix_args $argv[(math $i + 1)]
- case --contains
- set search_mode contains
- set contains_args $argv[(math $i + 1)]
- case --save
- set cmd save
- case --clear
- set cmd clear
- case --search
- set cmd print
- case --merge
- set cmd merge
- case --help
- set cmd help
- case --
- set -e argv[$i]
- break
- case "-*" "--*"
- printf ( _ "%s: invalid option -- %s\n" ) history $argv[1] >& 2
- return 1
- end
- end
- else
- #Execute history builtin without any argument
- if status --is-interactive
- builtin history | eval $pager
- else
- builtin history
- end
- return
- end
-
- switch $cmd
- case print
- # Print matching items
- # Note this may end up passing --search twice to the builtin,
- # but that's harmless
- builtin history --search $argv
-
- case delete
- # Interactively delete history
- set -l found_items ""
- switch $search_mode
- case prefix
- set found_items (builtin history --search --prefix $prefix_args)
- case contains
- set found_items (builtin history --search --contains $contains_args)
- case none
- builtin history $argv
-
- #Save changes after deleting item
- builtin history --save
- return 0
- end
-
- set found_items_count (count $found_items)
- if test $found_items_count -gt 0
- echo "[0] cancel"
- echo "[1] all"
- echo
-
- for i in (seq $found_items_count)
- printf "[%s] %s \n" (math $i + 1) $found_items[$i]
- end
-
- read --local --prompt "echo 'Delete which entries? > '" choice
- set choice (string split " " -- $choice)
-
- for i in $choice
-
- # Skip empty input, for example, if the user just hits return
- if test -z $i
- continue
- end
-
- #Following two validations could be embedded with "and" but I find the syntax kind of weird.
- if not string match -qr '^[0-9]+$' $i
- printf "Invalid input: %s\n" $i
- continue
- end
-
- if test $i -gt (math $found_items_count + 1)
- printf "Invalid input : %s\n" $i
- continue
- end
-
- if test $i = "0"
- printf "Cancel\n"
- return
- else
- if test $i = "1"
- for item in $found_items
- builtin history --delete $item
- end
- printf "Deleted all!\n"
- else
- builtin history --delete $found_items[(math $i - 1)]
- end
-
- end
- end
- #Save changes after deleting item(s)
- builtin history --save
- end
- case save
- #Save changes to history file
- builtin history $argv
- case merge
- builtin history --merge
- case help
- builtin history --help
- case clear
- # Erase the entire history
- echo "Are you sure you want to clear history ? (y/n)"
- read ch
- if test $ch = "y"
- builtin history $argv
- echo "History cleared!"
- end
- end
+ set -l argc (count $argv)
+ set -l prefix_args ""
+ set -l contains_args ""
+
+ set -l cmd print
+
+ set -l search_mode none
+
+ set -l pager less
+ if set -q PAGER
+ set pager $PAGER
+ end
+
+ if test $argc -gt 0
+ for i in (seq $argc)
+ switch $argv[$i]
+ case --delete
+ set cmd delete
+ case --prefix
+ set search_mode prefix
+ set prefix_args $argv[(math $i + 1)]
+ case --contains
+ set search_mode contains
+ set contains_args $argv[(math $i + 1)]
+ case --save
+ set cmd save
+ case --clear
+ set cmd clear
+ case --search
+ set cmd print
+ case --merge
+ set cmd merge
+ case --help
+ set cmd help
+ case --
+ set -e argv[$i]
+ break
+ case "-*" "--*"
+ printf ( _ "%s: invalid option -- %s\n" ) history $argv[1] >&2
+ return 1
+ end
+ end
+ else
+ #Execute history builtin without any argument
+ if status --is-interactive
+ builtin history | eval $pager
+ else
+ builtin history
+ end
+ return
+ end
+
+ switch $cmd
+ case print
+ # Print matching items
+ # Note this may end up passing --search twice to the builtin,
+ # but that's harmless
+ builtin history --search $argv
+
+ case delete
+ # Interactively delete history
+ set -l found_items ""
+ switch $search_mode
+ case prefix
+ set found_items (builtin history --search --prefix $prefix_args)
+ case contains
+ set found_items (builtin history --search --contains $contains_args)
+ case none
+ builtin history $argv
+
+ #Save changes after deleting item
+ builtin history --save
+ return 0
+ end
+
+ set found_items_count (count $found_items)
+ if test $found_items_count -gt 0
+ echo "[0] cancel"
+ echo "[1] all"
+ echo
+
+ for i in (seq $found_items_count)
+ printf "[%s] %s \n" (math $i + 1) $found_items[$i]
+ end
+
+ read --local --prompt "echo 'Delete which entries? > '" choice
+ set choice (string split " " -- $choice)
+
+ for i in $choice
+
+ # Skip empty input, for example, if the user just hits return
+ if test -z $i
+ continue
+ end
+
+ #Following two validations could be embedded with "and" but I find the syntax kind of weird.
+ if not string match -qr '^[0-9]+$' $i
+ printf "Invalid input: %s\n" $i
+ continue
+ end
+
+ if test $i -gt (math $found_items_count + 1)
+ printf "Invalid input : %s\n" $i
+ continue
+ end
+
+ if test $i = "0"
+ printf "Cancel\n"
+ return
+ else
+ if test $i = "1"
+ for item in $found_items
+ builtin history --delete $item
+ end
+ printf "Deleted all!\n"
+ else
+ builtin history --delete $found_items[(math $i - 1)]
+ end
+
+ end
+ end
+ #Save changes after deleting item(s)
+ builtin history --save
+ end
+ case save
+ #Save changes to history file
+ builtin history $argv
+ case merge
+ builtin history --merge
+ case help
+ builtin history --help
+ case clear
+ # Erase the entire history
+ echo "Are you sure you want to clear history ? (y/n)"
+ read ch
+ if test $ch = "y"
+ builtin history $argv
+ echo "History cleared!"
+ end
+ end
end