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 : url-quote-magic

# Functions to make it easier to type URLs as command line arguments.  As
# you type, the input character is analyzed and, if it may need quoting,
# the current word is checked for a URI scheme.  If one is found and the
# current word is not already in quotes, a backslash is inserted before
# the input character.

# Setup:
#       autoload -Uz url-quote-magic
#       zle -N self-insert url-quote-magic

# As of zsh-5.1, the following may also be necessary in order to apply
# quoting to copy-pasted URLs:
#       autoload -Uz bracketed-paste-magic
#       zle -N bracketed-paste bracketed-paste-magic
# See also backward-extend-paste in bracketed-paste-magic source file.

# A number of zstyles may be set to control the quoting behavior.
#
# url-metas
#  This style is looked up in the context :url-quote-magic:SCHEME (where
#  SCHEME is that of the current URL, e.g. "ftp").  The value is a string
#  listing the characters to be treated as globbing metacharacters when
#  appearing in a URL using that scheme.  The default is to quote all zsh
#  extended globbing characters, excluding '<' and '>' but including
#  braces (as in brace expansion).  See also url-seps.
#
# url-seps
#  Like url-metas, but lists characters that should be considered command
#  separators, redirections, history references, etc.  The default is to
#  quote the standard set of shell separators, excluding those that
#  overlap with the extended globbing characters, but including '<' and
#  '>' and the first character of $histchars.
#
# url-globbers
#  This style is looked up in the context :url-quote-magic.  The values
#  form a list of command names that are expected to do their own globbing
#  on the URL string.  This implies that they are aliased to use the
#  "noglob" modifier.  When the first word on the line matches one of the
#  values AND the URL refers to a local file (see url-local-schema), only
#  the url-seps characters are quoted; the url-metas are left alone,
#  allowing them to affect command-line parsing, completion, etc.  The
#  default values are a literal "noglob" plus (when the zsh/parameter
#  module is available) any commands aliased to the helper function
#  "urlglobber" or its alias "globurl".
#
# url-local-schema
#  This style is always looked up in the context :urlglobber, even though
#  it is used by both url-quote-magic and urlglobber.  The values form
#  a list of URI schema that should be treated as referring to local files
#  by their real local path names, as opposed to files which are specified
#  relative to a web-server-defined document root.  The defaults are "ftp"
#  and "file".
#
# url-other-schema
#  Like url-local-schema, but lists all other URI schema upon which
#  urlglobber and url-quote-magic should act.  If the URI on the
#  command line does not have a scheme appearing either in this list or in
#  url-local-schema, it is not magically quoted.  The default values are
#  "http", "https", and "ftp".  When a scheme appears both here and in
#  url-local-schema, it is quoted differently depending on whether the
#  command name appears in url-globbers.

# TODO:
#	Add a style for "document root" for globbing local URLs.
#	Turn this on at colon, and off again at space or accept.
#       Use compsys for nested quoting analysis and command parsing.

# Establish default values for styles, but only if not already set
local -a reply match mbegin mend

zstyle -m ':url-quote-magic:\*' url-metas '*' ||
    zstyle ':url-quote-magic:*' url-metas '*?[]^(|)~#{}='

zstyle -m ':url-quote-magic:\*' url-seps '*' ||
    zstyle -e ':url-quote-magic:*' url-seps 'reply=(";&<>${histchars[1]}")'

zstyle -m :url-quote-magic url-globbers '*' ||
    zstyle -e :url-quote-magic url-globbers \
	'zmodload -i zsh/parameter;
	 reply=( noglob
		 ${(k)galiases[(R)(* |)(noglob|urlglobber|globurl) *]:-}
		 ${(k)aliases[(R)(* |)(noglob|urlglobber|globurl) *]:-} )'

zstyle -m ':urlglobber' url-local-schema '*' ||
    zstyle ':urlglobber' url-local-schema ftp file

zstyle -m ':urlglobber' url-other-schema '*' ||
    zstyle ':urlglobber' url-other-schema http https ftp

# Define the "urlglobber" helper function and shorthand "globurl" alias

function urlglobber {
    local -a args globbed localschema otherschema reply
    local arg command="$1"
    shift
    zstyle -s :urlglobber url-local-schema localschema '|'
    zstyle -s :urlglobber url-other-schema otherschema '|'
    for arg
    do
	case "${arg}" in
	((${~localschema}):/(|/localhost)/*)
	    globbed=( ${~${arg##ftp://(localhost|)}} )
	    args[$#args+1]=( "${(M)arg##(${~localchema})://(localhost|)}${(@)^globbed}" )
	    ;;
	((${~otherschema}):*) args[${#args}+1]="$arg";;
	(*) args[${#args}+1]=( ${~arg} );;
	esac
    done
    "$command" "${(@)args}"
}
alias globurl='noglob urlglobber '

# Finally, define (and execute if necessary) the function we really want

function url-quote-magic {
    setopt localoptions noksharrays extendedglob
    local qkey="${(q)KEYS}"
    local -a reply match mbegin mend
    if [[ "$KEYS" != "$qkey" ]]
    then
	local lbuf="$LBUFFER$qkey"
	if [[ "${(Q)LBUFFER}$KEYS" == "${(Q)lbuf}" ]]
	then
	    local -a words
	    words=("${(@Q)${(z)lbuf}}")
	    local urlseps urlmetas urlglobbers localschema otherschema
	    if [[ "$words[-1]" == (#b)([^:]##):* ]]
	    then
		zstyle -s ":url-quote-magic:$match[1]" url-seps urlseps ''
		zstyle -s ":url-quote-magic:$match[1]" url-metas urlmetas ''
	    fi
	    zstyle -s :url-quote-magic url-globbers urlglobbers '|'
	    zstyle -s :urlglobber url-other-schema otherschema '|'
	    if [[ "$words[1]" == ${~urlglobbers} ]]
	    then
		zstyle -s :urlglobber url-local-schema localschema '|'
	    else
		localschema=' '
	    fi
	    case "$words[-1]" in
	    (*[\'\"]*) ;;
	    ((${~localschema}):/(|/localhost)/*)
		[[ "$urlseps" == *"$KEYS"* ]] &&
		    LBUFFER="$LBUFFER\\" ;;
	    ((${~otherschema}):*)
		[[ "$urlseps$urlmetas" == *"$KEYS"* ]] &&
		    LBUFFER="$LBUFFER\\" ;;
	    esac
	fi
    fi
    zle .self-insert
}

# Handle zsh autoloading conventions

[[ -o kshautoload ]] || url-quote-magic "$@"

${this.title}

Code Editor : url-quote-magic