From dae5379f495d282285e36813a5ff8a2efb71acca Mon Sep 17 00:00:00 2001 From: takeokunn Date: Wed, 5 Jun 2024 17:52:45 +0900 Subject: [PATCH] update --- modules/fish/Makefile | 1 + modules/fish/completions/rain.fish | 235 +++++++++++++++++++++++++++++ 2 files changed, 236 insertions(+) create mode 100644 modules/fish/completions/rain.fish diff --git a/modules/fish/Makefile b/modules/fish/Makefile index 5aafb8a..af2726f 100644 --- a/modules/fish/Makefile +++ b/modules/fish/Makefile @@ -74,6 +74,7 @@ $(FISH_COMPLETION_DIR): ln -sf $(SELF_FISH_DIR)/completions/guix.fish $(FISH_COMPLETION_DIR)/guix.fish ln -sf $(SELF_FISH_DIR)/completions/mitamae.fish $(FISH_COMPLETION_DIR)/mitamae.fish ln -sf $(SELF_FISH_DIR)/completions/pass.fish $(FISH_COMPLETION_DIR)/pass.fish + ln -sf $(SELF_FISH_DIR)/completions/rain.fish $(FISH_COMPLETION_DIR)/rain.fish ln -sf $(SELF_FISH_DIR)/completions/pod.fish $(FISH_COMPLETION_DIR)/pod.fish ln -sf $(SELF_FISH_DIR)/completions/pry.fish $(FISH_COMPLETION_DIR)/pry.fish ln -sf $(SELF_FISH_DIR)/completions/shellcheck.fish $(FISH_COMPLETION_DIR)/shellcheck.fish diff --git a/modules/fish/completions/rain.fish b/modules/fish/completions/rain.fish new file mode 100644 index 0000000..32575c8 --- /dev/null +++ b/modules/fish/completions/rain.fish @@ -0,0 +1,235 @@ +# fish completion for rain -*- shell-script -*- + +function __rain_debug + set -l file "$BASH_COMP_DEBUG_FILE" + if test -n "$file" + echo "$argv" >> $file + end +end + +function __rain_perform_completion + __rain_debug "Starting __rain_perform_completion" + + # Extract all args except the last one + set -l args (commandline -opc) + # Extract the last arg and escape it in case it is a space + set -l lastArg (string escape -- (commandline -ct)) + + __rain_debug "args: $args" + __rain_debug "last arg: $lastArg" + + # Disable ActiveHelp which is not supported for fish shell + set -l requestComp "RAIN_ACTIVE_HELP=0 $args[1] __complete $args[2..-1] $lastArg" + + __rain_debug "Calling $requestComp" + set -l results (eval $requestComp 2> /dev/null) + + # Some programs may output extra empty lines after the directive. + # Let's ignore them or else it will break completion. + # Ref: https://github.com/spf13/cobra/issues/1279 + for line in $results[-1..1] + if test (string trim -- $line) = "" + # Found an empty line, remove it + set results $results[1..-2] + else + # Found non-empty line, we have our proper output + break + end + end + + set -l comps $results[1..-2] + set -l directiveLine $results[-1] + + # For Fish, when completing a flag with an = (e.g., -n=) + # completions must be prefixed with the flag + set -l flagPrefix (string match -r -- '-.*=' "$lastArg") + + __rain_debug "Comps: $comps" + __rain_debug "DirectiveLine: $directiveLine" + __rain_debug "flagPrefix: $flagPrefix" + + for comp in $comps + printf "%s%s\n" "$flagPrefix" "$comp" + end + + printf "%s\n" "$directiveLine" +end + +# this function limits calls to __rain_perform_completion, by caching the result behind $__rain_perform_completion_once_result +function __rain_perform_completion_once + __rain_debug "Starting __rain_perform_completion_once" + + if test -n "$__rain_perform_completion_once_result" + __rain_debug "Seems like a valid result already exists, skipping __rain_perform_completion" + return 0 + end + + set --global __rain_perform_completion_once_result (__rain_perform_completion) + if test -z "$__rain_perform_completion_once_result" + __rain_debug "No completions, probably due to a failure" + return 1 + end + + __rain_debug "Performed completions and set __rain_perform_completion_once_result" + return 0 +end + +# this function is used to clear the $__rain_perform_completion_once_result variable after completions are run +function __rain_clear_perform_completion_once_result + __rain_debug "" + __rain_debug "========= clearing previously set __rain_perform_completion_once_result variable ==========" + set --erase __rain_perform_completion_once_result + __rain_debug "Successfully erased the variable __rain_perform_completion_once_result" +end + +function __rain_requires_order_preservation + __rain_debug "" + __rain_debug "========= checking if order preservation is required ==========" + + __rain_perform_completion_once + if test -z "$__rain_perform_completion_once_result" + __rain_debug "Error determining if order preservation is required" + return 1 + end + + set -l directive (string sub --start 2 $__rain_perform_completion_once_result[-1]) + __rain_debug "Directive is: $directive" + + set -l shellCompDirectiveKeepOrder 32 + set -l keeporder (math (math --scale 0 $directive / $shellCompDirectiveKeepOrder) % 2) + __rain_debug "Keeporder is: $keeporder" + + if test $keeporder -ne 0 + __rain_debug "This does require order preservation" + return 0 + end + + __rain_debug "This doesn't require order preservation" + return 1 +end + + +# This function does two things: +# - Obtain the completions and store them in the global __rain_comp_results +# - Return false if file completion should be performed +function __rain_prepare_completions + __rain_debug "" + __rain_debug "========= starting completion logic ==========" + + # Start fresh + set --erase __rain_comp_results + + __rain_perform_completion_once + __rain_debug "Completion results: $__rain_perform_completion_once_result" + + if test -z "$__rain_perform_completion_once_result" + __rain_debug "No completion, probably due to a failure" + # Might as well do file completion, in case it helps + return 1 + end + + set -l directive (string sub --start 2 $__rain_perform_completion_once_result[-1]) + set --global __rain_comp_results $__rain_perform_completion_once_result[1..-2] + + __rain_debug "Completions are: $__rain_comp_results" + __rain_debug "Directive is: $directive" + + set -l shellCompDirectiveError 1 + set -l shellCompDirectiveNoSpace 2 + set -l shellCompDirectiveNoFileComp 4 + set -l shellCompDirectiveFilterFileExt 8 + set -l shellCompDirectiveFilterDirs 16 + + if test -z "$directive" + set directive 0 + end + + set -l compErr (math (math --scale 0 $directive / $shellCompDirectiveError) % 2) + if test $compErr -eq 1 + __rain_debug "Received error directive: aborting." + # Might as well do file completion, in case it helps + return 1 + end + + set -l filefilter (math (math --scale 0 $directive / $shellCompDirectiveFilterFileExt) % 2) + set -l dirfilter (math (math --scale 0 $directive / $shellCompDirectiveFilterDirs) % 2) + if test $filefilter -eq 1; or test $dirfilter -eq 1 + __rain_debug "File extension filtering or directory filtering not supported" + # Do full file completion instead + return 1 + end + + set -l nospace (math (math --scale 0 $directive / $shellCompDirectiveNoSpace) % 2) + set -l nofiles (math (math --scale 0 $directive / $shellCompDirectiveNoFileComp) % 2) + + __rain_debug "nospace: $nospace, nofiles: $nofiles" + + # If we want to prevent a space, or if file completion is NOT disabled, + # we need to count the number of valid completions. + # To do so, we will filter on prefix as the completions we have received + # may not already be filtered so as to allow fish to match on different + # criteria than the prefix. + if test $nospace -ne 0; or test $nofiles -eq 0 + set -l prefix (commandline -t | string escape --style=regex) + __rain_debug "prefix: $prefix" + + set -l completions (string match -r -- "^$prefix.*" $__rain_comp_results) + set --global __rain_comp_results $completions + __rain_debug "Filtered completions are: $__rain_comp_results" + + # Important not to quote the variable for count to work + set -l numComps (count $__rain_comp_results) + __rain_debug "numComps: $numComps" + + if test $numComps -eq 1; and test $nospace -ne 0 + # We must first split on \t to get rid of the descriptions to be + # able to check what the actual completion will be. + # We don't need descriptions anyway since there is only a single + # real completion which the shell will expand immediately. + set -l split (string split --max 1 \t $__rain_comp_results[1]) + + # Fish won't add a space if the completion ends with any + # of the following characters: @=/:., + set -l lastChar (string sub -s -1 -- $split) + if not string match -r -q "[@=/:.,]" -- "$lastChar" + # In other cases, to support the "nospace" directive we trick the shell + # by outputting an extra, longer completion. + __rain_debug "Adding second completion to perform nospace directive" + set --global __rain_comp_results $split[1] $split[1]. + __rain_debug "Completions are now: $__rain_comp_results" + end + end + + if test $numComps -eq 0; and test $nofiles -eq 0 + # To be consistent with bash and zsh, we only trigger file + # completion when there are no other completions + __rain_debug "Requesting file completion" + return 1 + end + end + + return 0 +end + +# Since Fish completions are only loaded once the user triggers them, we trigger them ourselves +# so we can properly delete any completions provided by another script. +# Only do this if the program can be found, or else fish may print some errors; besides, +# the existing completions will only be loaded if the program can be found. +if type -q "rain" + # The space after the program name is essential to trigger completion for the program + # and not completion of the program name itself. + # Also, we use '> /dev/null 2>&1' since '&>' is not supported in older versions of fish. + complete --do-complete "rain " > /dev/null 2>&1 +end + +# Remove any pre-existing completions for the program since we will be handling all of them. +complete -c rain -e + +# this will get called after the two calls below and clear the $__rain_perform_completion_once_result global +complete -c rain -n '__rain_clear_perform_completion_once_result' +# The call to __rain_prepare_completions will setup __rain_comp_results +# which provides the program's completion choices. +# If this doesn't require order preservation, we don't use the -k flag +complete -c rain -n 'not __rain_requires_order_preservation && __rain_prepare_completions' -f -a '$__rain_comp_results' +# otherwise we use the -k flag +complete -k -c rain -n '__rain_requires_order_preservation && __rain_prepare_completions' -f -a '$__rain_comp_results'