summary refs log tree commit diff
path: root/Functions/Zle/read-from-minibuffer
blob: 09dc68f97ebdfa9fe0e46b6c32b36f6f00c1fd9b (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
emulate -L zsh
setopt extendedglob

local opt keys
integer stat

while getopts "k:" opt; do
  case $opt in
    # Read the given number of keys.  This is a bit
    # ropey for more than a single key.
    (k)
    keys=$OPTARG
    ;;

    (*)
    return 1
    ;;
  esac
done
(( OPTIND > 1 )) && shift $(( OPTIND - 1 ))

local readprompt="$1" lbuf_init="$2" rbuf_init="$3"
integer savelim=$UNDO_LIMIT_NO changeno=$UNDO_CHANGE_NO

{
# Use anonymous function to make sure special values get restored,
# even if this function is called as a widget.
# local +h ensures special parameters stay special.
() {
  local pretext="$PREDISPLAY$LBUFFER$RBUFFER$POSTDISPLAY
"
  local +h LBUFFER="$lbuf_init"
  local +h RBUFFER="$rbuf_init"
  local +h PREDISPLAY="$pretext${readprompt:-? }"
  local +h POSTDISPLAY=
  local +h -a region_highlight
  region_highlight=("P${#pretext} ${#PREDISPLAY} bold")

  if [[ -n $keys ]]; then
    zle -R
    read -k $keys
    stat=$?
  else
    local NUMERIC
    unset NUMERIC
    zle split-undo
    UNDO_LIMIT_NO=$UNDO_CHANGE_NO
    zle recursive-edit -K main
    stat=$?
    (( stat )) || REPLY=$BUFFER
  fi
}
} always {
  # This removes the edits relating to the read from the undo history.
  # These aren't useful once we get back to the main editing buffer.
  zle undo $changeno
  UNDO_LIMIT_NO=savelim
}

return $stat