# 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
          ;;

      ($'
  '|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

      ($'
  '|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: