mirror of
git://git.code.sf.net/p/zsh/code
synced 2024-11-19 21:44:11 +01:00
126 lines
3.5 KiB
Plaintext
126 lines
3.5 KiB
Plaintext
# Restrict the start of the editable line to the region between cursor
|
|
# and mark (including the character at the end). Can be bound used as
|
|
# a zle widget, or called as a function from another widget.
|
|
#
|
|
# Optionally accepts exactly two arguments, which are used instead of
|
|
# $CURSOR and $MARK as limits to the range.
|
|
#
|
|
# Other options:
|
|
# -p pretext show `pretext' instead of the buffer text before the region.
|
|
# -P posttext show `posttext' instead of the buffer text after the region.
|
|
# Either or both may be empty.
|
|
# -n Only replace the text before or after the region with
|
|
# the -p or -P options if the text was not empty.
|
|
# -S statevar
|
|
# -R statevar
|
|
# Save or restore the state in/from the parameter named statevar. In
|
|
# either case no recursive editing takes place; this will typically be
|
|
# done within the calling function between calls with -S and -R. The
|
|
# statevar may not begin with the prefix _ntr_ which is reserved for
|
|
# parameters within narrow-to-region.
|
|
|
|
emulate -L zsh
|
|
setopt extendedglob
|
|
|
|
local _ntr_lbuffer _ntr_rbuffer
|
|
local _ntr_predisplay=$PREDISPLAY _ntr_postdisplay=$POSTDISPLAY
|
|
integer _ntr_start _ntr_end _ntr_swap _ntr_cursor=$CURSOR _ntr_mark=$MARK
|
|
integer _ntr_stat
|
|
|
|
local _ntr_opt _ntr_pretext _ntr_posttext _ntr_usepretext _ntr_useposttext
|
|
local _ntr_nonempty _ntr_save _ntr_restore
|
|
|
|
while getopts "np:P:R:S:" _ntr_opt; do
|
|
case $_ntr_opt in
|
|
(n) _ntr_nonempty=1
|
|
;;
|
|
(p) _ntr_pretext=$OPTARG _ntr_usepretext=1
|
|
;;
|
|
(P) _ntr_posttext=$OPTARG _ntr_useposttext=1
|
|
;;
|
|
(R) _ntr_restore=$OPTARG
|
|
;;
|
|
(S) _ntr_save=$OPTARG
|
|
;;
|
|
(*) [[ $_ntr_opt != '?' ]] && print "$0: unhandled option: $_ntr_opt" >&2
|
|
return 1
|
|
;;
|
|
esac
|
|
done
|
|
(( OPTIND > 1 )) && shift $(( OPTIND - 1 ))
|
|
|
|
if [[ $_ntr_restore = _ntr_* || $_ntr_save = _ntr_* ]]; then
|
|
zle -M "$0: _ntr_ prefix is reserved" >&2
|
|
return 1
|
|
fi
|
|
|
|
if [[ -n $_ntr_save || -z $_ntr_restore ]]; then
|
|
|
|
if (( $# )); then
|
|
if (( $# != 2 )); then
|
|
zle -M "$0: supply zero or two arguments"
|
|
return 1
|
|
fi
|
|
_ntr_start=$1
|
|
_ntr_end=$2
|
|
else
|
|
_ntr_start=$MARK
|
|
_ntr_end=$CURSOR
|
|
fi
|
|
|
|
if (( _ntr_start == _ntr_end )); then
|
|
return 1
|
|
elif (( _ntr_start > _ntr_end )); then
|
|
_ntr_swap=_ntr_start
|
|
_ntr_start=_ntr_end
|
|
_ntr_end=_ntr_swap
|
|
fi
|
|
|
|
(( _ntr_end++, _ntr_cursor -= _ntr_start, _ntr_mark -= _ntr_start ))
|
|
|
|
_ntr_lbuffer=${BUFFER[1,_ntr_start]}
|
|
if [[ -z $_ntr_usepretext || ( -n $_ntr_nonempty && -z $_ntr_lbuffer ) ]]
|
|
then
|
|
_ntr_pretext=$_ntr_lbuffer
|
|
fi
|
|
_ntr_rbuffer=${BUFFER[_ntr_end,-1]}
|
|
if [[ -z $_ntr_useposttext || ( -n $_ntr_nonempty && -z $_ntr_rbuffer ) ]]
|
|
then
|
|
_ntr_posttext=$_ntr_rbuffer
|
|
fi
|
|
PREDISPLAY="$_ntr_predisplay$_ntr_pretext"
|
|
POSTDISPLAY="$_ntr_posttext$_ntr_postdisplay"
|
|
BUFFER=${BUFFER[_ntr_start+1,_ntr_end-1]}
|
|
CURSOR=$_ntr_cursor
|
|
MARK=$_ntr_mark
|
|
|
|
if [[ -n $_ntr_save ]]; then
|
|
eval "$_ntr_save=(${(qq)_ntr_predisplay} ${(qq)_ntr_postdisplay}
|
|
${(qq)_ntr_lbuffer} ${(qq)_ntr_rbuffer})" || return 1
|
|
fi
|
|
fi
|
|
|
|
if [[ -z $_ntr_save && -z $_ntr_restore ]]; then
|
|
zle recursive-edit
|
|
_ntr_stat=$?
|
|
fi
|
|
|
|
if [[ -n $_ntr_restore || -z $_ntr_save ]]; then
|
|
if [[ -n $_ntr_restore ]]; then
|
|
if ! eval "_ntr_predisplay=\${${_ntr_restore}[1]}
|
|
_ntr_postdisplay=\${${_ntr_restore}[2]}
|
|
_ntr_lbuffer=\${${_ntr_restore}[3]}
|
|
_ntr_rbuffer=\${${_ntr_restore}[4]}"; then
|
|
zle -M Failed.
|
|
return 1
|
|
fi
|
|
fi
|
|
|
|
PREDISPLAY=$_ntr_predisplay
|
|
POSTDISPLAY=$_ntr_postdisplay
|
|
LBUFFER="$_ntr_lbuffer$LBUFFER"
|
|
RBUFFER="$RBUFFER$_ntr_rbuffer"
|
|
fi
|
|
|
|
return $_ntr_stat
|