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 : select-word-match

# Select the entire word around the cursor. Intended for use as
# a vim-style text object in vi mode but with customisable
# word boundaries.
#
# For example:
#   autoload -U select-word-match
#   zle -N select-in-camel select-word-match
#   bindkey -M viopp ic select-in-camel
#   zstyle ':zle:*-camel' word-style normal-subword

emulate -L zsh
setopt extendedglob

local curcontext=:zle:$WIDGET
local -A matched_words
# Start and end of range of characters
integer pos1 pos2 num=${NUMERIC:-1}
local style word

# choose between inner word or a word style of widget
for style in $1 ${${WIDGET#*-}[1]} $KEYS[1] "i"; do
  [[ $style = [ai] ]] && break
done

autoload -Uz match-words-by-style

while (( num-- )); do
  if (( MARK > CURSOR )); then
    # if cursor is at the start of the selection, just move back a word
    match-words-by-style
    if [[ $style = i && -n $matched_words[ws-before-cursor] ]]; then
      word=$matched_words[ws-before-cursor]
    else
      word=$matched_words[word-before-cursor]$matched_words[ws-before-cursor]
    fi
    if [[ -n $word ]]; then
      (( CURSOR -= ${#word} ))
    else
      return 1
    fi
  elif (( MARK >= 0 && MARK < CURSOR )); then
    # cursor at the end, move forward a word
    (( CURSOR+1 == $#BUFFER )) && return 1
    (( CURSOR++ ))
    match-words-by-style
    if [[ -n $matched_words[ws-after-cursor] ]]; then
      if [[ $style = i ]]; then
	# just skip the whitespace
	word=$matched_words[ws-after-cursor]
      else
	# skip the whitespace plus word
	word=$matched_words[ws-after-cursor]$matched_words[word-after-cursor]
      fi
    else
      if [[ $style = i ]]; then
	# skip the word
	word=$matched_words[word-after-cursor]
      else
	# skip word and following whitespace
	word=$matched_words[word-after-cursor]$matched_words[ws-after-word]
      fi
    fi
    (( CURSOR += ${#word} - 1 ))
  else
    match-words-by-style

if (( ${matched_words[is-word-start]} )); then
      # The word we are selecting starts at the cursor position.
      pos1=$CURSOR
    else
      # No whitespace before us, so select any wordcharacters there.
      pos1="${#matched_words[start]}"
    fi

if [[ -n "${matched_words[ws-after-cursor]}" ]]; then
      if [[ -n "${matched_words[ws-before-cursor]}" ]] || (( CURSOR == 0 )); then
        # whitespace either side, select it
	(( pos1 = CURSOR - ${#matched_words[ws-before-cursor]} ))
	(( pos2 = CURSOR + ${#matched_words[ws-after-cursor]} ))
      else
	# There's whitespace at the cursor position, so only select
	# up to the cursor position.
	(( pos2 = CURSOR + 1 ))
      fi
    else
      # No whitespace at the cursor position, so select the
      # current character and any following wordcharacters.
      (( pos2 = CURSOR + ${#matched_words[word-after-cursor]} ))
    fi

if [[ $style = a ]]; then
      if [[ -n "${matched_words[ws-after-cursor]}"  && ( -n "${matched_words[ws-before-cursor]}" || CURSOR -eq 0 ) ]]; then
	# in the middle of whitespace so grab a word
	if [[ -n "${matched_words[word-after-cursor]}" ]]; then
	  (( pos2 += ${#matched_words[word-after-cursor]} )) # preferably the one after
	else
	  (( pos1 -= ${#matched_words[word-before-cursor]} )) # otherwise the one before
	fi
      elif [[ -n "${matched_words[ws-after-word]}" ]]; then
	(( pos2 += ${#matched_words[ws-after-word]} ))
      elif [[ -n "${matched_words[ws-before-cursor]}" ]]; then
	# couldn't grab whitespace forwards so try backwards
	(( pos1 -= ${#matched_words[ws-before-cursor]} ))
      elif (( pos1 > 0 )); then
	# There might have been whitespace before the word
	(( CURSOR = pos1 ))
	match-words-by-style
	if [[ -n "${matched_words[ws-before-cursor]}" ]]; then
	  (( pos1 -= ${#matched_words[ws-before-cursor]} ))
	fi
      fi
    fi

(( MARK = pos1, CURSOR = pos2-1 ))
  fi
done

if [[ $KEYMAP == vicmd ]] && (( !REGION_ACTIVE )); then
  (( CURSOR++ )) # Need to include cursor position for operators
fi

${this.title}

Code Editor : select-word-match