Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
backward-kill-word-match	608 B	-rw-r--r--
backward-word-match	450 B	-rw-r--r--
bracketed-paste-magic	7.33 KB	-rw-r--r--
bracketed-paste-url-magic	1.16 KB	-rw-r--r--
capitalize-word-match	373 B	-rw-r--r--
copy-earlier-word	795 B	-rw-r--r--
cycle-completion-positions	497 B	-rw-r--r--
define-composed-chars	8.48 KB	-rw-r--r--
delete-whole-word-match	1.64 KB	-rw-r--r--
down-case-word-match	376 B	-rw-r--r--
down-line-or-beginning-search	623 B	-rw-r--r--
edit-command-line	1.17 KB	-rw-r--r--
expand-absolute-path	473 B	-rw-r--r--
forward-word-match	977 B	-rw-r--r--
history-beginning-search-menu	3.4 KB	-rw-r--r--
history-pattern-search	2.12 KB	-rw-r--r--
history-search-end	812 B	-rw-r--r--
incarg	1002 B	-rw-r--r--
incremental-complete-word	3.78 KB	-rw-r--r--
insert-composed-char	5.12 KB	-rw-r--r--
insert-files	1001 B	-rw-r--r--
insert-unicode-char	715 B	-rw-r--r--
keeper	3.37 KB	-rw-r--r--
keymap+widget	2.6 KB	-rw-r--r--
kill-word-match	606 B	-rw-r--r--
match-word-context	1.23 KB	-rw-r--r--
match-words-by-style	10.19 KB	-rw-r--r--
modify-current-argument	2.72 KB	-rw-r--r--
move-line-in-buffer	424 B	-rw-r--r--
narrow-to-region	4.9 KB	-rw-r--r--
narrow-to-region-invisible	211 B	-rw-r--r--
predict-on	4.6 KB	-rw-r--r--
quote-and-complete-word	1.41 KB	-rw-r--r--
read-from-minibuffer	1.31 KB	-rw-r--r--
replace-argument	1.09 KB	-rw-r--r--
replace-string	970 B	-rw-r--r--
replace-string-again	1.81 KB	-rw-r--r--
select-bracketed	1.66 KB	-rw-r--r--
select-quoted	1.69 KB	-rw-r--r--
select-word-match	3.83 KB	-rw-r--r--
select-word-style	2.18 KB	-rw-r--r--
send-invisible	2.54 KB	-rw-r--r--
smart-insert-last-word	4.36 KB	-rw-r--r--
split-shell-arguments	1.54 KB	-rw-r--r--
surround	2.06 KB	-rw-r--r--
transpose-lines	1.06 KB	-rw-r--r--
transpose-words-match	1.64 KB	-rw-r--r--
up-case-word-match	377 B	-rw-r--r--
up-line-or-beginning-search	601 B	-rw-r--r--
url-quote-magic	5.94 KB	-rw-r--r--
vi-pipe	1.07 KB	-rw-r--r--
which-command	1.01 KB	-rw-r--r--
zcalc-auto-insert	267 B	-rw-r--r--
zed-set-file-name	145 B	-rw-r--r--

Code Editor : modify-current-argument

# Take an expression suitable for interpolation in double quotes that
# performs a replacement on the parameter "ARG".  Replaces the
# shell argument (which may be a quoted string) under or before the
# cursor with that.  Ensure the expression is suitable quoted.
#
# For example, to uppercase the entire shell argument:
#   modify-current-argument '${(U)ARG}'
# To strip the current quoting from the word (whether backslashes or
# single, double or dollar quotes) and use single quotes instead:
#   modify-current-argument '${(qq)${(Q)ARG}}'

# Retain most options from the calling function for the eval.
# Reset some that might confuse things.
setopt localoptions noksharrays multibyte

local -a reply
integer posword poschar fromend endoffset
local REPLY REPLY2

autoload -Uz split-shell-arguments
split-shell-arguments

(( posword = REPLY, poschar = REPLY2 ))

# Can't do this unless there's some text under or left of us.
(( posword < 2 )) && return 1

# Get the index of the word we want.
if (( posword & 1 )); then
  # Odd position; need previous word.
  (( posword-- ))
  # Pretend position was just after the end of it.
  (( poschar = ${#reply[posword]} + 1 ))
fi

# Work out offset from end of string
(( fromend = $poschar - ${#reply[posword]} - 1 ))
if (( fromend >= -1 )); then
  # Cursor is near the end of the word, we'll try to keep it there.
  endoffset=1
fi

# Length of all characters before current.
# Force use of character (not index) counting and join without IFS.
integer wordoff="${(cj..)#reply[1,posword-1]}"

# Replacement for current word.  This could do anything to ${reply[posword]}.
local ARG="${reply[posword]}" repl
if [[ $1 != *ARG* ]]; then
    REPLY=
    $1 $ARG || return 1
    repl=$REPLY
else
    eval repl=\"$1\"
fi

if (( !endoffset )) && [[ ${repl[fromend,-1]} = ${ARG[fromend,-1]} ]]; then
  # If the part of the string from here to the end hasn't changed,
  # leave the cursor this distance from the end instead of the beginning.
  endoffset=1
fi

# New line:  all words before and after current word, with
# no additional spaces since we've already got the whitespace
# and the replacement word in the middle.
local left="${(j..)reply[1,posword-1]}${repl}"
local right="${(j..)reply[posword+1,-1]}"

if [[ endoffset -ne 0 && ${#repl} -ne 0 ]]; then
  # Place cursor relative to end.
  LBUFFER="$left"
  RBUFFER="$right"
  (( CURSOR += fromend ))
else
  BUFFER="$left$right"

# Keep cursor at same position in replaced word.
  # Redundant here, but useful if $repl changes the length.
  # Limit to the next position after the end of the word.
  integer repmax=$(( ${#repl} + 1 ))
  # Remember CURSOR starts from offset 0 for some reason, so
  # subtract 1 from positions.
  (( CURSOR = wordoff + (poschar > repmax ? repmax : poschar) - 1 ))
fi

${this.title}

Code Editor : modify-current-argument