126 lines
4.6 KiB
Bash
126 lines
4.6 KiB
Bash
|
# ble/contrib/integration/fzf-menu.bash (C) 2024, akinomyoga
|
||
|
|
#
|
||
|
|
# https://github.com/akinomyoga/ble.sh/issues/479
|
||
|
|
|
||
|
|
## @fn ble/contrib/integration:fzf-menu/SELECTOR args...
|
||
|
|
## Returns the index of the selected candidate. Users can override this
|
||
|
|
## function to adjust the detailed behavior.
|
||
|
|
##
|
||
|
|
## @param[in] args...
|
||
|
|
## The list of candidates. Each argument takes the form
|
||
|
|
## "<index><SEP><word><SEP><desc>". <SEP> is specified by the shell
|
||
|
|
## variable sep.
|
||
|
|
## @var[in] common_prefix
|
||
|
|
## The common prefix of the filter target
|
||
|
|
## @var[in] sep
|
||
|
|
## The separator used to separate the index, word, and description in an
|
||
|
|
## argument
|
||
|
|
## @stdout
|
||
|
|
## Output the selected index.
|
||
|
|
function ble/contrib/integration:fzf-menu/SELECTOR {
|
||
|
|
local fzf_options
|
||
|
|
fzf_options=(--ansi --query "$common_prefix")
|
||
|
|
|
||
|
|
# Use Unicode box-drawing characters only when the width of the box-drawing
|
||
|
|
# characters in the current terminal is 1. The width of the box-drawing
|
||
|
|
# characters is specified to be East_Asian_Width=A (Ambiguous), and the
|
||
|
|
# actual width depends on the terminal. However, fzf assumes the width of
|
||
|
|
# the box-drawing characters to be always 1. This breaks the layout of the
|
||
|
|
# terminal content in the terminals where the box-drawing characters have
|
||
|
|
# double width. We check the width of the box-drawing characters (U+2500 as
|
||
|
|
# a representative) and disable the use of the box-drawing characters by fzf
|
||
|
|
# when it is not 1.
|
||
|
|
local ret
|
||
|
|
ble/util/c2w 0x2500
|
||
|
|
((ret==1)) || ble/array#push fzf_options --no-unicode
|
||
|
|
|
||
|
|
# When the current completion is performed by case-insensitive search (i.e.,
|
||
|
|
# when the readline variable is set to "set completion-ignore-case on"), we
|
||
|
|
# let fzf filter items by case-insensitive matching.
|
||
|
|
[[ :$comp_type: == *:i:* ]] &&
|
||
|
|
ble/array#push fzf_options --ignore-case
|
||
|
|
|
||
|
|
local formatter="printf '%s\n' \"\$@\""
|
||
|
|
ble/bin#has column &&
|
||
|
|
formatter=$formatter' | column -ts "$sep" -o "$sep" -c unlimited'
|
||
|
|
ble/array#push fzf_options -d "$sep" --with-nth=2.. --nth=1
|
||
|
|
|
||
|
|
builtin eval -- "$formatter" | fzf "${fzf_options[@]}" | cut -d "$sep" -f 1
|
||
|
|
}
|
||
|
|
|
||
|
|
function ble/contrib/integration:fzf-menu/.get-common-prefix {
|
||
|
|
local cand_word ret
|
||
|
|
cand_word=("$@")
|
||
|
|
ble/complete/candidates/determine-common-prefix
|
||
|
|
common_prefix=$ret
|
||
|
|
}
|
||
|
|
|
||
|
|
function ble/contrib/integration:fzf-menu/.select-and-insert {
|
||
|
|
if ((cand_count>1)); then
|
||
|
|
local common_prefix=
|
||
|
|
ble/contrib/integration:fzf-menu/.get-common-prefix "${cand_cand[@]}"
|
||
|
|
(($?==148)) && return 148
|
||
|
|
|
||
|
|
local desc_sgr0=$_ble_term_sgr0
|
||
|
|
ble/color/face2sgr menu_desc_quote; local desc_sgrq=$ret
|
||
|
|
ble/color/face2sgr menu_desc_type; local desc_sgrt=$ret
|
||
|
|
|
||
|
|
# Create a list of "<index>^\<word>^\- <desc>" where ^\ represents the ANSI
|
||
|
|
# control character FS (U+001C).
|
||
|
|
local sep=$_ble_term_FS
|
||
|
|
local -a list=()
|
||
|
|
local i
|
||
|
|
for ((i=0;i<cand_count;i++)); do
|
||
|
|
local ACTION=${cand_pack[i]%%:*}
|
||
|
|
local "${_ble_complete_cand_varnames[@]/%/=}" # disable=#D1570
|
||
|
|
ble/complete/cand/unpack "${cand_pack[i]}"
|
||
|
|
|
||
|
|
local g=0 prefix= suffix= desc=
|
||
|
|
ble/function#try ble/complete/action:"$ACTION"/init-menu-item
|
||
|
|
(($?==148)) && return 148
|
||
|
|
ble/function#try ble/complete/action:"$ACTION"/get-desc
|
||
|
|
(($?==148)) && return 148
|
||
|
|
|
||
|
|
ble/color/g2sgr "$g"; local sgr=$ret
|
||
|
|
local item=$prefix$sgr$CAND$_ble_term_sgr0$suffix
|
||
|
|
item=${item//"$sep"/'^\'}
|
||
|
|
desc=${desc//"$sep"/'^\'}
|
||
|
|
ble/array#push list "$i$sep$item$_ble_term_sgr0$sep - $desc$_ble_term_sgr0"
|
||
|
|
done
|
||
|
|
|
||
|
|
ble/term/leave-for-widget
|
||
|
|
local index
|
||
|
|
ble/util/assign index 'ble/contrib/integration:fzf-menu/SELECTOR "${list[@]}"'
|
||
|
|
ble/term/enter-for-widget
|
||
|
|
ble/textarea#invalidate
|
||
|
|
|
||
|
|
if [[ $index ]]; then
|
||
|
|
cand_count=1
|
||
|
|
cand_cand=("${cand_cand[index]}")
|
||
|
|
cand_word=("${cand_word[index]}")
|
||
|
|
cand_pack=("${cand_pack[index]}")
|
||
|
|
fi
|
||
|
|
fi
|
||
|
|
|
||
|
|
if ((cand_count==1)); then
|
||
|
|
ble/complete/insert-common
|
||
|
|
fi
|
||
|
|
|
||
|
|
# To suppress the post-processing for ble.sh's menu interface, we return 148.
|
||
|
|
return 148
|
||
|
|
}
|
||
|
|
|
||
|
|
ble-import -C 'ble/function#push ble/complete/menu/show "ble/contrib/integration:fzf-menu/.select-and-insert"' core-complete
|
||
|
|
|
||
|
|
# function ble/contrib/integration:fzf-menu/complete.after {
|
||
|
|
# [[ $_ble_complete_menu_active ]] || return 0
|
||
|
|
# local COMP1 COMP2 COMPS COMPV
|
||
|
|
# local comp_type comps_flags comps_fixed
|
||
|
|
# local cand_count cand_cand cand_word cand_pack
|
||
|
|
# ble/complete/candidates/clear
|
||
|
|
# ble/complete/menu/generate-candidates-from-menu
|
||
|
|
# ble/complete/menu/clear
|
||
|
|
# ble/contrib/integration:fzf-menu/.select-and-insert
|
||
|
|
# }
|
||
|
|
# ble-import -C 'ble/function#advice after ble/widget/complete "ble/contrib/integration:fzf-menu/compelte.after"' core-complete
|