summaryrefslogtreecommitdiff
path: root/plugins/zsh-navigation-tools/n-list-input
diff options
context:
space:
mode:
Diffstat (limited to 'plugins/zsh-navigation-tools/n-list-input')
-rw-r--r--plugins/zsh-navigation-tools/n-list-input377
1 files changed, 377 insertions, 0 deletions
diff --git a/plugins/zsh-navigation-tools/n-list-input b/plugins/zsh-navigation-tools/n-list-input
new file mode 100644
index 000000000..9bafc51b6
--- /dev/null
+++ b/plugins/zsh-navigation-tools/n-list-input
@@ -0,0 +1,377 @@
+# Copy this file into /usr/share/zsh/site-functions/
+# and add 'autoload n-list-input` to .zshrc
+#
+# This is an internal function not for direct use
+
+emulate -L zsh
+
+zmodload zsh/curses
+
+setopt typesetsilent
+
+# Compute first to show index
+_nlist_compute_first_to_show_idx() {
+ from_what_idx_list_is_shown=0+((current_idx-1)/page_height)*page_height+1
+}
+
+_nlist_update_from_keywords() {
+ keywordisfresh="1"
+ if [ "$nkeywords" -gt 0 ]; then
+ curkeyword=$(( (curkeyword+1) % (nkeywords+1) ))
+ if [ "$curkeyword" -eq "0" ]; then
+ buffer=""
+ else
+ buffer="${keywords[curkeyword]}"
+ fi
+ fi
+}
+
+_nlist_iterate_theme() {
+ themeisfresh="1"
+ if [ "$1" = "1" ]; then
+ curtheme=$(( (curtheme+1) % (nthemes+1) ))
+ else
+ curtheme=curtheme-1
+ [ "$curtheme" -lt 0 ] && curtheme=nthemes
+ fi
+
+ if [ "$nthemes" -gt 0 ]; then
+ local theme=${themes[curtheme]}
+ [ "$curtheme" -eq "0" ] && theme="$backuptheme"
+
+ colorpair="${theme%/*}"
+ bold="${theme##*/}"
+ background="${colorpair#*/}"
+ zcurses bg main "$colorpair"
+ zcurses bg inner "$colorpair"
+ fi
+}
+
+_nlist_rotate_buffer() {
+ setopt localoptions noglob
+
+ local -a words
+ words=( ${(s: :)buffer} )
+ words=( ${words[-1]} ${words[1,-2]} )
+
+ local space=""
+ [ "${buffer[-1]}" = " " ] && space=" "
+
+ buffer="${(j: :)words}$space"
+}
+
+typeset -ga reply
+reply=( -1 '' )
+integer current_idx="$1"
+integer from_what_idx_list_is_shown="$2"
+integer page_height="$3"
+integer page_width="$4"
+integer last_element="$5"
+integer hscroll="$6"
+local key="$7"
+integer search="$8"
+local buffer="$9"
+integer uniq_mode="$10"
+integer f_mode="$11"
+
+#
+# Listening for input
+#
+
+if [ "$search" = "0" ]; then
+
+case "$key" in
+ (UP|k|$'\C-P')
+ # Are there any elements before the current one?
+ [ "$current_idx" -gt 1 ] && current_idx=current_idx-1;
+ _nlist_compute_first_to_show_idx
+ ;;
+ (DOWN|j|$'\C-N')
+ # Are there any elements after the current one?
+ [ "$current_idx" -lt "$last_element" ] && current_idx=current_idx+1;
+ _nlist_compute_first_to_show_idx
+ ;;
+ (PPAGE|$'\b'|$'\C-?'|BACKSPACE)
+ current_idx=current_idx-page_height
+ [ "$current_idx" -lt 1 ] && current_idx=1;
+ _nlist_compute_first_to_show_idx
+ ;;
+ (NPAGE|" ")
+ current_idx=current_idx+page_height
+ [ "$current_idx" -gt "$last_element" ] && current_idx=last_element;
+ _nlist_compute_first_to_show_idx
+ ;;
+ ($'\C-U')
+ current_idx=current_idx-page_height/2
+ [ "$current_idx" -lt 1 ] && current_idx=1;
+ _nlist_compute_first_to_show_idx
+ ;;
+ ($'\C-D')
+ current_idx=current_idx+page_height/2
+ [ "$current_idx" -gt "$last_element" ] && current_idx=last_element;
+ _nlist_compute_first_to_show_idx
+ ;;
+ (HOME|g)
+ current_idx=1
+ _nlist_compute_first_to_show_idx
+ ;;
+ (END|G)
+ current_idx=last_element
+ _nlist_compute_first_to_show_idx
+ ;;
+ ($'\n'|ENTER)
+ # Is that element selectable?
+ # Check for this only when there is no search
+ if [[ "$NLIST_SEARCH_BUFFER" != "" || "$NLIST_IS_UNIQ_MODE" -eq 1 ||
+ ${NLIST_NONSELECTABLE_ELEMENTS[(r)$current_idx]} != $current_idx ]]
+ then
+ # Save current element in the result variable
+ reply=( $current_idx "SELECT" )
+ fi
+ ;;
+ (H|'?')
+ # This event needs to be enabled
+ if [[ "${NLIST_ENABLED_EVENTS[(r)HELP]}" = "HELP" ]]; then
+ reply=( -1 "HELP" )
+ fi
+ ;;
+ (F1)
+ # This event needs to be enabled
+ if [[ "${NLIST_ENABLED_EVENTS[(r)F1]}" = "F1" ]]; then
+ reply=( -1 "$key" )
+ fi
+ ;;
+ (F4|F5|F6|F7|F8|F9|F10|DC)
+ # ignore; F2, F3 are used below
+ ;;
+ (q)
+ reply=( -1 "QUIT" )
+ ;;
+ (/)
+ search=1
+ _nlist_cursor_visibility 1
+ ;;
+ ($'\t')
+ reply=( $current_idx "LEAVE" )
+ ;;
+ ($'\C-L')
+ reply=( -1 "REDRAW" )
+ ;;
+ (\])
+ [[ "${(t)NLIST_HOP_INDEXES}" = "array" || "${(t)NLIST_HOP_INDEXES}" = "array-local" ]] &&
+ [ -z "$NLIST_SEARCH_BUFFER" ] && [ "$NLIST_IS_UNIQ_MODE" -eq 0 ] &&
+ for idx in "${(n)NLIST_HOP_INDEXES[@]}"; do
+ if [ "$idx" -gt "$current_idx" ]; then
+ current_idx=$idx
+ _nlist_compute_first_to_show_idx
+ break
+ fi
+ done
+ ;;
+ (\[)
+ [[ "${(t)NLIST_HOP_INDEXES}" = "array" || "${(t)NLIST_HOP_INDEXES}" = "array-local" ]] &&
+ [ -z "$NLIST_SEARCH_BUFFER" ] && [ "$NLIST_IS_UNIQ_MODE" -eq 0 ] &&
+ for idx in "${(nO)NLIST_HOP_INDEXES[@]}"; do
+ if [ "$idx" -lt "$current_idx" ]; then
+ current_idx=$idx
+ _nlist_compute_first_to_show_idx
+ break
+ fi
+ done
+ ;;
+ ('<'|'{'|LEFT|'h')
+ hscroll=hscroll-7
+ [ "$hscroll" -lt 0 ] && hscroll=0
+ ;;
+ ('>'|'}'|RIGHT|'l')
+ hscroll+=7
+ ;;
+ ($'\E')
+ buffer=""
+ ;;
+ (F3)
+ if [ "$search" = "1" ]; then
+ search=0
+ _nlist_cursor_visibility 0
+ else
+ search=1
+ _nlist_cursor_visibility 1
+ fi
+ ;;
+ (o|$'\C-O')
+ uniq_mode=1-uniq_mode
+ ;;
+ (f|$'\C-F')
+ (( f_mode=(f_mode+1) % 3 ))
+ ;;
+ ($'\x1F'|F2|$'\C-X')
+ search=1
+ _nlist_cursor_visibility 1
+ _nlist_update_from_keywords
+ ;;
+ ($'\C-T')
+ _nlist_iterate_theme 1
+ ;;
+ ($'\C-G')
+ _nlist_iterate_theme 0
+ ;;
+ ($'\C-E'|e)
+ # This event needs to be enabled
+ if [[ "${NLIST_ENABLED_EVENTS[(r)EDIT]}" = "EDIT" ]]; then
+ reply=( -1 "EDIT" )
+ fi
+ ;;
+ ($'\C-A')
+ _nlist_rotate_buffer
+ ;;
+ (*)
+ ;;
+esac
+
+else
+
+case "$key" in
+ ($'\n'|ENTER)
+ if [ "$NLIST_INSTANT_SELECT" = "1" ]; then
+ if [[ "$NLIST_SEARCH_BUFFER" != "" || "$NLIST_IS_UNIQ_MODE" -eq 1 ||
+ ${NLIST_NONSELECTABLE_ELEMENTS[(r)$current_idx]} != $current_idx ]]
+ then
+ reply=( $current_idx "SELECT" )
+ fi
+ else
+ search=0
+ _nlist_cursor_visibility 0
+ fi
+ ;;
+ ($'\C-L')
+ reply=( -1 "REDRAW" )
+ ;;
+
+ #
+ # Slightly limited navigation
+ #
+
+ (UP|$'\C-P')
+ [ "$current_idx" -gt 1 ] && current_idx=current_idx-1;
+ _nlist_compute_first_to_show_idx
+ ;;
+ (DOWN|$'\C-N')
+ [ "$current_idx" -lt "$last_element" ] && current_idx=current_idx+1;
+ _nlist_compute_first_to_show_idx
+ ;;
+ (PPAGE)
+ current_idx=current_idx-page_height
+ [ "$current_idx" -lt 1 ] && current_idx=1;
+ _nlist_compute_first_to_show_idx
+ ;;
+ (NPAGE)
+ current_idx=current_idx+page_height
+ [ "$current_idx" -gt "$last_element" ] && current_idx=last_element;
+ _nlist_compute_first_to_show_idx
+ ;;
+ ($'\C-U')
+ current_idx=current_idx-page_height/2
+ [ "$current_idx" -lt 1 ] && current_idx=1;
+ _nlist_compute_first_to_show_idx
+ ;;
+ ($'\C-D')
+ current_idx=current_idx+page_height/2
+ [ "$current_idx" -gt "$last_element" ] && current_idx=last_element;
+ _nlist_compute_first_to_show_idx
+ ;;
+ (HOME)
+ current_idx=1
+ _nlist_compute_first_to_show_idx
+ ;;
+ (END)
+ current_idx=last_element
+ _nlist_compute_first_to_show_idx
+ ;;
+ (LEFT)
+ hscroll=hscroll-7
+ [ "$hscroll" -lt 0 ] && hscroll=0
+ ;;
+ (RIGHT)
+ hscroll+=7
+ ;;
+ (F1)
+ # This event needs to be enabled
+ if [[ "${NLIST_ENABLED_EVENTS[(r)F1]}" = "F1" ]]; then
+ reply=( -1 "$key" )
+ fi
+ ;;
+ (F4|F5|F6|F7|F8|F9|F10|DC)
+ # ignore; F2, F3 are used below
+ ;;
+
+ #
+ # The input
+ #
+
+ ($'\b'|$'\C-?'|BACKSPACE)
+ buffer="${buffer%?}"
+ ;;
+ ($'\C-W')
+ [ "$buffer" = "${buffer% *}" ] && buffer="" || buffer="${buffer% *}"
+ ;;
+ ($'\C-K')
+ buffer=""
+ ;;
+ ($'\E')
+ buffer=""
+ search=0
+ _nlist_cursor_visibility 0
+ ;;
+ (F3)
+ if [ "$search" = "1" ]; then
+ search=0
+ _nlist_cursor_visibility 0
+ else
+ search=1
+ _nlist_cursor_visibility 1
+ fi
+ ;;
+ ($'\C-O')
+ uniq_mode=1-uniq_mode
+ ;;
+ ($'\C-F')
+ (( f_mode=(f_mode+1) % 3 ))
+ ;;
+ ($'\x1F'|F2|$'\C-X')
+ _nlist_update_from_keywords
+ ;;
+ ($'\C-T')
+ _nlist_iterate_theme 1
+ ;;
+ ($'\C-G')
+ _nlist_iterate_theme 0
+ ;;
+ ($'\C-E')
+ # This event needs to be enabled
+ if [[ "${NLIST_ENABLED_EVENTS[(r)EDIT]}" = "EDIT" ]]; then
+ reply=( -1 "EDIT" )
+ fi
+ ;;
+ ($'\C-A')
+ _nlist_rotate_buffer
+ ;;
+ (*)
+ if [[ $#key == 1 && $((#key)) -lt 31 ]]; then
+ # ignore all other control keys
+ else
+ buffer+="$key"
+ fi
+ ;;
+esac
+
+fi
+
+reply[3]="$current_idx"
+reply[4]="$from_what_idx_list_is_shown"
+reply[5]="$hscroll"
+reply[6]="$search"
+reply[7]="$buffer"
+reply[8]="$uniq_mode"
+reply[9]="$f_mode"
+
+# vim: set filetype=zsh:
generated by cgit v1.2.3-70-g09d2 (git 2.48.1) at 2025-02-09 08:38:02 +0000