Add zsh/oh my zsh/w10k
This commit is contained in:
377
zsh/.oh-my-zsh/plugins/zsh-navigation-tools/n-list-input
Normal file
377
zsh/.oh-my-zsh/plugins/zsh-navigation-tools/n-list-input
Normal file
@ -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:
|
||||
Reference in New Issue
Block a user