Add bash line editor.

.local/share/blesh/contrib/integration/fzf-menu.bash

@@ -0,0 +1,125 @@
+# 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