Untitled

From Social Rhinoceros, 2 Years ago, written in Plain Text.

Embed

Download Paste or View Raw
Hits: 335

compdump () {

# undefined

builtin autoload -XUz

}

compinit () {

emulate -L zsh

setopt extendedglob

typeset _i_dumpfile _i_files _i_line _i_done _i_dir _i_autodump=1

typeset _i_tag _i_file _i_addfiles _i_fail=ask _i_check=yes _i_name

while [[ $# -gt 0 && $1 = -[dDiuC] ]]

do

case "$1" in

(-d) _i_autodump=1

shift

if [[ $# -gt 0 && "$1" != -[dfQC] ]]

then

_i_dumpfile="$1"

shift

fi ;;

(-D) _i_autodump=0

shift ;;

(-i) _i_fail=ign

shift ;;

(-u) _i_fail=use

shift ;;

(-C) _i_check=

shift ;;

esac

done

typeset -gHA _comps _services _patcomps _postpatcomps

typeset -gHA _compautos

typeset -gHA _lastcomp

if [[ -n $_i_dumpfile ]]

then

typeset -g _comp_dumpfile="$_i_dumpfile"

else

typeset -g _comp_dumpfile="${ZDOTDIR:-$HOME}/.zcompdump"

fi

typeset -gHa _comp_options

_comp_options=(bareglobqual extendedglob glob multibyte multifuncdef nullglob rcexpandparam unset NO_allexport NO_aliases NO_cshnullglob NO_cshjunkiequotes NO_errexit NO_errreturn NO_globassign NO_globsubst NO_histsubstpattern NO_ignorebraces NO_ignoreclosebraces NO_kshglob NO_ksharrays NO_kshtypeset NO_markdirs NO_octalzeroes NO_posixbuiltins NO_posixidentifiers NO_shwordsplit NO_shglob NO_warnnestedvar NO_warncreateglobal)

typeset -gH _comp_setup='local -A _comp_caller_options;

_comp_caller_options=(${(kv)options[@]});

setopt localoptions localtraps localpatterns ${_comp_options[@]};

local IFS=$'\'\ \\t\\r\\n\\0\'';

builtin enable -p \| \~ \( \? \* \[ \< \^ \# 2>&-;

exec </dev/null;

trap - ZERR;

local -a reply;

local REPLY;

local REPORTTIME;

unset REPORTTIME'

typeset -ga compprefuncs comppostfuncs

compprefuncs=()

comppostfuncs=()

: $funcstack

compdef () {

local opt autol type func delete eval new i ret=0 cmd svc

local -a match mbegin mend

emulate -L zsh

setopt extendedglob

if (( ! $# ))

then

print -u2 "$0: I need arguments"

return 1

fi

while getopts "anpPkKde" opt

do

case "$opt" in

(a) autol=yes ;;

(n) new=yes ;;

([pPkK]) if [[ -n "$type" ]]

then

print -u2 "$0: type already set to $type"

return 1

fi

if [[ "$opt" = p ]]

then

type=pattern

elif [[ "$opt" = P ]]

then

type=postpattern

elif [[ "$opt" = K ]]

then

type=widgetkey

else

type=key

fi ;;

(d) delete=yes ;;

(e) eval=yes ;;

esac

done

shift OPTIND-1

if (( ! $# ))

then

print -u2 "$0: I need arguments"

return 1

fi

if [[ -z "$delete" ]]

then

if [[ -z "$eval" ]] && [[ "$1" = *\=* ]]

then

while (( $# ))

do

if [[ "$1" = *\=* ]]

then

cmd="${1%%\=*}"

svc="${1#*\=}"

func="$_comps[${_services[(r)$svc]:-$svc}]"

[[ -n ${_services[$svc]} ]] && svc=${_services[$svc]}

[[ -z "$func" ]] && func="${${_patcomps[(K)$svc][1]}:-${_postpatcomps[(K)$svc][1]}}"

if [[ -n "$func" ]]

then

_comps[$cmd]="$func"

_services[$cmd]="$svc"

else

print -u2 "$0: unknown command or service: $svc"

ret=1

fi

else

print -u2 "$0: invalid argument: $1"

ret=1

fi

shift

done

return ret

fi

func="$1"

[[ -n "$autol" ]] && autoload -Uz "$func"

shift

case "$type" in

(widgetkey) while [[ -n $1 ]]

do

if [[ $# -lt 3 ]]

then

print -u2 "$0: compdef -K requires <widget> <comp-widget> <key>"

return 1

fi

[[ $1 = _* ]] || 1="_$1"

[[ $2 = .* ]] || 2=".$2"

[[ $2 = .menu-select ]] && zmodload -i zsh/complist

zle -C "$1" "$2" "$func"

if [[ -n $new ]]

then

bindkey "$3" | IFS=$' \t' read -A opt

[[ $opt[-1] = undefined-key ]] && bindkey "$3" "$1"

else

bindkey "$3" "$1"

fi

shift 3

done ;;

(key) if [[ $# -lt 2 ]]

then

print -u2 "$0: missing keys"

return 1

fi

if [[ $1 = .* ]]

then

[[ $1 = .menu-select ]] && zmodload -i zsh/complist

zle -C "$func" "$1" "$func"

else

[[ $1 = menu-select ]] && zmodload -i zsh/complist

zle -C "$func" ".$1" "$func"

fi

shift

for i

do

if [[ -n $new ]]

then

bindkey "$i" | IFS=$' \t' read -A opt

[[ $opt[-1] = undefined-key ]] || continue

fi

bindkey "$i" "$func"

done ;;

(*) while (( $# ))

do

if [[ "$1" = -N ]]

then

type=normal

elif [[ "$1" = -p ]]

then

type=pattern

elif [[ "$1" = -P ]]

then

type=postpattern

else

case "$type" in

(pattern) if [[ $1 = (#b)(*)=(*) ]]

then

_patcomps[$match[1]]="=$match[2]=$func"

else

_patcomps[$1]="$func"

fi ;;

(postpattern) if [[ $1 = (#b)(*)=(*) ]]

then

_postpatcomps[$match[1]]="=$match[2]=$func"

else

_postpatcomps[$1]="$func"

fi ;;

(*) if [[ "$1" = *\=* ]]

then

cmd="${1%%\=*}"

svc=yes

else

cmd="$1"

svc=

fi

if [[ -z "$new" || -z "${_comps[$1]}" ]]

then

_comps[$cmd]="$func"

[[ -n "$svc" ]] && _services[$cmd]="${1#*\=}"

fi ;;

esac

fi

shift

done ;;

esac

else

case "$type" in

(pattern) unset "_patcomps[$^@]" ;;

(postpattern) unset "_postpatcomps[$^@]" ;;

(key) print -u2 "$0: cannot restore key bindings"

return 1 ;;

(*) unset "_comps[$^@]" ;;

esac

fi

}

typeset _i_wdirs _i_wfiles

_i_wdirs=()

_i_wfiles=()

autoload -Uz compaudit

if [[ -n "$_i_check" ]]

then

typeset _i_q

if ! eval compaudit

then

if [[ -n "$_i_q" ]]

then

if [[ "$_i_fail" = ask ]]

then

if ! read -q "?zsh compinit: insecure $_i_q, run compaudit for list.

Ignore insecure $_i_q and continue [y] or abort compinit [n]? "

then

print -u2 "$0: initialization aborted"

unfunction compinit compdef

unset _comp_dumpfile _comp_secure compprefuncs comppostfuncs _comps _patcomps _postpatcomps _compautos _lastcomp

return 1

fi

_i_wfiles=()

_i_wdirs=()

else

(( $#_i_wfiles )) && _i_files=("${(@)_i_files:#(${(j:|:)_i_wfiles%.zwc})}")

(( $#_i_wdirs )) && _i_files=("${(@)_i_files:#(${(j:|:)_i_wdirs%.zwc})/*}")

fi

fi

typeset -g _comp_secure=yes

fi

fi

autoload -Uz compdump compinstall

_i_done=''

if [[ -f "$_comp_dumpfile" ]]

then

if [[ -n "$_i_check" ]]

then

IFS=$' \t' read -rA _i_line < "$_comp_dumpfile"

if [[ _i_autodump -eq 1 && $_i_line[2] -eq $#_i_files && $ZSH_VERSION = $_i_line[4] ]]

then

builtin . "$_comp_dumpfile"

_i_done=yes

fi

else

builtin . "$_comp_dumpfile"

_i_done=yes

fi

fi

if [[ -z "$_i_done" ]]

then

typeset -A _i_test

for _i_dir in $fpath

do

[[ $_i_dir = . ]] && continue

(( $_i_wdirs[(I)$_i_dir] )) && continue

for _i_file in $_i_dir/^([^_]*|*~|*.zwc)(N)

do

_i_name="${_i_file:t}"

(( $+_i_test[$_i_name] + $_i_wfiles[(I)$_i_file] )) && continue

_i_test[$_i_name]=yes

IFS=$' \t' read -rA _i_line < $_i_file

_i_tag=$_i_line[1]

shift _i_line

case $_i_tag in

(\#compdef) if [[ $_i_line[1] = -[pPkK](n|) ]]

then

compdef ${_i_line[1]}na "${_i_name}" "${(@)_i_line[2,-1]}"

else

compdef -na "${_i_name}" "${_i_line[@]}"

fi ;;

(\#autoload) autoload -Uz "$_i_line[@]" ${_i_name}

[[ "$_i_line" != \ # ]] && _compautos[${_i_name}]="$_i_line" ;;

esac

done

done

if [[ $_i_autodump = 1 ]]

then

compdump

fi

fi

for _i_line in complete-word delete-char-or-list expand-or-complete expand-or-complete-prefix list-choices menu-complete menu-expand-or-complete reverse-menu-complete

do

zle -C $_i_line .$_i_line _main_complete

done

zle -la menu-select && zle -C menu-select .menu-select _main_complete

bindkey '^i' | IFS=$' \t' read -A _i_line

if [[ ${_i_line[2]} = expand-or-complete ]] && zstyle -a ':completion:' completer _i_line && (( ${_i_line[(i)_expand]} <= ${#_i_line} ))

then

bindkey '^i' complete-word

fi

unfunction compinit compaudit

autoload -Uz compinit compaudit

return 0

}

compinstall () {

# undefined

builtin autoload -XUz

}

polet% cat .zshrc

# Lines configured by zsh-newuser-install

HISTFILE=~/.histfile

HISTSIZE=1000

SAVEHIST=1000

bindkey -e

# End of lines configured by zsh-newuser-install

# The following lines were added by compinstall

zstyle :compinstall filename '/home/observer/.zshrc'

autoload -Uz compinit

compinit

# End of lines added by compinstall

Author

Title

Language

Your paste - Paste your paste here

compdump () {
        # undefined
        builtin autoload -XUz
}
compinit () {
        emulate -L zsh
        setopt extendedglob
        typeset _i_dumpfile _i_files _i_line _i_done _i_dir _i_autodump=1
        typeset _i_tag _i_file _i_addfiles _i_fail=ask _i_check=yes _i_name
        while [[ $# -gt 0 &amp;&amp; $1 = -[dDiuC] ]]
        do
                case &quot;$1&quot; in
                        (-d) _i_autodump=1
                                shift
                                if [[ $# -gt 0 &amp;&amp; &quot;$1&quot; != -[dfQC] ]]
                                then
                                        _i_dumpfile=&quot;$1&quot;
                                        shift
                                fi ;;
                        (-D) _i_autodump=0
                                shift ;;
                        (-i) _i_fail=ign
                                shift ;;
                        (-u) _i_fail=use
                                shift ;;
                        (-C) _i_check=
                                shift ;;
                esac
        done
        typeset -gHA _comps _services _patcomps _postpatcomps
        typeset -gHA _compautos
        typeset -gHA _lastcomp
        if [[ -n $_i_dumpfile ]]
        then
                typeset -g _comp_dumpfile=&quot;$_i_dumpfile&quot;
        else
                typeset -g _comp_dumpfile=&quot;${ZDOTDIR:-$HOME}/.zcompdump&quot;
        fi
        typeset -gHa _comp_options
        _comp_options=(bareglobqual extendedglob glob multibyte multifuncdef nullglob rcexpandparam unset NO_allexport NO_aliases NO_cshnullglob NO_cshjunkiequotes NO_errexit NO_errreturn NO_globassign NO_globsubst NO_histsubstpattern NO_ignorebraces NO_ignoreclosebraces NO_kshglob NO_ksharrays NO_kshtypeset NO_markdirs NO_octalzeroes NO_posixbuiltins NO_posixidentifiers NO_shwordsplit NO_shglob NO_warnnestedvar NO_warncreateglobal)
        typeset -gH _comp_setup='local -A _comp_caller_options;
             _comp_caller_options=(${(kv)options[@]});
             setopt localoptions localtraps localpatterns ${_comp_options[@]};
             local IFS=$'\'\ \\t\\r\\n\\0\'';
             builtin enable -p \| \~ \( \? \* \[ \&lt; \^ \# 2&gt;&amp;-;
             exec &lt;/dev/null;
             trap - ZERR;
             local -a reply;
             local REPLY;
             local REPORTTIME;
             unset REPORTTIME'
        typeset -ga compprefuncs comppostfuncs
        compprefuncs=()
        comppostfuncs=()
        : $funcstack
        compdef () {
                local opt autol type func delete eval new i ret=0 cmd svc
                local -a match mbegin mend
                emulate -L zsh
                setopt extendedglob
                if (( ! $# ))
                then
                        print -u2 &quot;$0: I need arguments&quot;
                        return 1
                fi
                while getopts &quot;anpPkKde&quot; opt
                do
                        case &quot;$opt&quot; in
                                (a) autol=yes  ;;
                                (n) new=yes  ;;
                                ([pPkK]) if [[ -n &quot;$type&quot; ]]
                                        then
                                                print -u2 &quot;$0: type already set to $type&quot;
                                                return 1
                                        fi
                                        if [[ &quot;$opt&quot; = p ]]
                                        then
                                                type=pattern
                                        elif [[ &quot;$opt&quot; = P ]]
                                        then
                                                type=postpattern
                                        elif [[ &quot;$opt&quot; = K ]]
                                        then
                                                type=widgetkey
                                        else
                                                type=key
                                        fi ;;
                                (d) delete=yes  ;;
                                (e) eval=yes  ;;
                        esac
                done
                shift OPTIND-1
                if (( ! $# ))
                then
                        print -u2 &quot;$0: I need arguments&quot;
                        return 1
                fi
                if [[ -z &quot;$delete&quot; ]]
                then
                        if [[ -z &quot;$eval&quot; ]] &amp;&amp; [[ &quot;$1&quot; = *\=* ]]
                        then
                                while (( $# ))
                                do
                                        if [[ &quot;$1&quot; = *\=* ]]
                                        then
                                                cmd=&quot;${1%%\=*}&quot;
                                                svc=&quot;${1#*\=}&quot;
                                                func=&quot;$_comps[${_services[(r)$svc]:-$svc}]&quot;
                                                [[ -n ${_services[$svc]} ]] &amp;&amp; svc=${_services[$svc]}
                                                [[ -z &quot;$func&quot; ]] &amp;&amp; func=&quot;${${_patcomps[(K)$svc][1]}:-${_postpatcomps[(K)$svc][1]}}&quot;
                                                if [[ -n &quot;$func&quot; ]]
                                                then
                                                        _comps[$cmd]=&quot;$func&quot;
                                                        _services[$cmd]=&quot;$svc&quot;
                                                else
                                                        print -u2 &quot;$0: unknown command or service: $svc&quot;
                                                        ret=1
                                                fi
                                        else
                                                print -u2 &quot;$0: invalid argument: $1&quot;
                                                ret=1
                                        fi
                                        shift
                                done
                                return ret
                        fi
                        func=&quot;$1&quot;
                        [[ -n &quot;$autol&quot; ]] &amp;&amp; autoload -Uz &quot;$func&quot;
                        shift
                        case &quot;$type&quot; in
                                (widgetkey) while [[ -n $1 ]]
                                        do
                                                if [[ $# -lt 3 ]]
                                                then
                                                        print -u2 &quot;$0: compdef -K requires &lt;widget&gt; &lt;comp-widget&gt; &lt;key&gt;&quot;
                                                        return 1
                                                fi
                                                [[ $1 = _* ]] || 1=&quot;_$1&quot;
                                                [[ $2 = .* ]] || 2=&quot;.$2&quot;
                                                [[ $2 = .menu-select ]] &amp;&amp; zmodload -i zsh/complist
                                                zle -C &quot;$1&quot; &quot;$2&quot; &quot;$func&quot;
                                                if [[ -n $new ]]
                                                then
                                                        bindkey &quot;$3&quot; | IFS=$' \t' read -A opt
                                                        [[ $opt[-1] = undefined-key ]] &amp;&amp; bindkey &quot;$3&quot; &quot;$1&quot;
                                                else
                                                        bindkey &quot;$3&quot; &quot;$1&quot;
                                                fi
                                                shift 3
                                        done ;;
                                (key) if [[ $# -lt 2 ]]
                                        then
                                                print -u2 &quot;$0: missing keys&quot;
                                                return 1
                                        fi
                                        if [[ $1 = .* ]]
                                        then
                                                [[ $1 = .menu-select ]] &amp;&amp; zmodload -i zsh/complist
                                                zle -C &quot;$func&quot; &quot;$1&quot; &quot;$func&quot;
                                        else
                                                [[ $1 = menu-select ]] &amp;&amp; zmodload -i zsh/complist
                                                zle -C &quot;$func&quot; &quot;.$1&quot; &quot;$func&quot;
                                        fi
                                        shift
                                        for i
                                        do
                                                if [[ -n $new ]]
                                                then
                                                        bindkey &quot;$i&quot; | IFS=$' \t' read -A opt
                                                        [[ $opt[-1] = undefined-key ]] || continue
                                                fi
                                                bindkey &quot;$i&quot; &quot;$func&quot;
                                        done ;;
                                (*) while (( $# ))
                                        do
                                                if [[ &quot;$1&quot; = -N ]]
                                                then
                                                        type=normal
                                                elif [[ &quot;$1&quot; = -p ]]
                                                then
                                                        type=pattern
                                                elif [[ &quot;$1&quot; = -P ]]
                                                then
                                                        type=postpattern
                                                else
                                                        case &quot;$type&quot; in
                                                                (pattern) if [[ $1 = (#b)(*)=(*) ]]
                                                                        then
                                                                                _patcomps[$match[1]]=&quot;=$match[2]=$func&quot;
                                                                        else
                                                                                _patcomps[$1]=&quot;$func&quot;
                                                                        fi ;;
                                                                (postpattern) if [[ $1 = (#b)(*)=(*) ]]
                                                                        then
                                                                                _postpatcomps[$match[1]]=&quot;=$match[2]=$func&quot;
                                                                        else
                                                                                _postpatcomps[$1]=&quot;$func&quot;
                                                                        fi ;;
                                                                (*) if [[ &quot;$1&quot; = *\=* ]]
                                                                        then
                                                                                cmd=&quot;${1%%\=*}&quot;
                                                                                svc=yes
                                                                        else
                                                                                cmd=&quot;$1&quot;
                                                                                svc=
                                                                        fi
                                                                        if [[ -z &quot;$new&quot; || -z &quot;${_comps[$1]}&quot; ]]
                                                                        then
                                                                                _comps[$cmd]=&quot;$func&quot;
                                                                                [[ -n &quot;$svc&quot; ]] &amp;&amp; _services[$cmd]=&quot;${1#*\=}&quot;
                                                                        fi ;;
                                                        esac
                                                fi
                                                shift
                                        done ;;
                        esac
                else
                        case &quot;$type&quot; in
                                (pattern) unset &quot;_patcomps[$^@]&quot; ;;
                                (postpattern) unset &quot;_postpatcomps[$^@]&quot; ;;
                                (key) print -u2 &quot;$0: cannot restore key bindings&quot;
                                        return 1 ;;
                                (*) unset &quot;_comps[$^@]&quot; ;;
                        esac
                fi
        }
        typeset _i_wdirs _i_wfiles
        _i_wdirs=()
        _i_wfiles=()
        autoload -Uz compaudit
        if [[ -n &quot;$_i_check&quot; ]]
        then
                typeset _i_q
                if ! eval compaudit
                then
                        if [[ -n &quot;$_i_q&quot; ]]
                        then
                                if [[ &quot;$_i_fail&quot; = ask ]]
                                then
                                        if ! read -q &quot;?zsh compinit: insecure $_i_q, run compaudit for list.
Ignore insecure $_i_q and continue [y] or abort compinit [n]? &quot;
                                        then
                                                print -u2 &quot;$0: initialization aborted&quot;
                                                unfunction compinit compdef
                                                unset _comp_dumpfile _comp_secure compprefuncs comppostfuncs _comps _patcomps _postpatcomps _compautos _lastcomp
                                                return 1
                                        fi
                                        _i_wfiles=()
                                        _i_wdirs=()
                                else
                                        (( $#_i_wfiles )) &amp;&amp; _i_files=(&quot;${(@)_i_files:#(${(j:|:)_i_wfiles%.zwc})}&quot;)
                                        (( $#_i_wdirs )) &amp;&amp; _i_files=(&quot;${(@)_i_files:#(${(j:|:)_i_wdirs%.zwc})/*}&quot;)
                                fi
                        fi
                        typeset -g _comp_secure=yes
                fi
        fi
        autoload -Uz compdump compinstall
        _i_done=''
        if [[ -f &quot;$_comp_dumpfile&quot; ]]
        then
                if [[ -n &quot;$_i_check&quot; ]]
                then
                        IFS=$' \t' read -rA _i_line &lt; &quot;$_comp_dumpfile&quot;
                        if [[ _i_autodump -eq 1 &amp;&amp; $_i_line[2] -eq $#_i_files &amp;&amp; $ZSH_VERSION = $_i_line[4] ]]
                        then
                                builtin . &quot;$_comp_dumpfile&quot;
                                _i_done=yes
                        fi
                else
                        builtin . &quot;$_comp_dumpfile&quot;
                        _i_done=yes
                fi
        fi
        if [[ -z &quot;$_i_done&quot; ]]
        then
                typeset -A _i_test
                for _i_dir in $fpath
                do
                        [[ $_i_dir = . ]] &amp;&amp; continue
                        (( $_i_wdirs[(I)$_i_dir] )) &amp;&amp; continue
                        for _i_file in $_i_dir/^([^_]*|*~|*.zwc)(N)
                        do
                                _i_name=&quot;${_i_file:t}&quot;
                                (( $+_i_test[$_i_name] + $_i_wfiles[(I)$_i_file] )) &amp;&amp; continue
                                _i_test[$_i_name]=yes
                                IFS=$' \t' read -rA _i_line &lt; $_i_file
                                _i_tag=$_i_line[1]
                                shift _i_line
                                case $_i_tag in
                                        (\#compdef) if [[ $_i_line[1] = -[pPkK](n|) ]]
                                                then
                                                        compdef ${_i_line[1]}na &quot;${_i_name}&quot; &quot;${(@)_i_line[2,-1]}&quot;
                                                else
                                                        compdef -na &quot;${_i_name}&quot; &quot;${_i_line[@]}&quot;
                                                fi ;;
                                        (\#autoload) autoload -Uz &quot;$_i_line[@]&quot; ${_i_name}
                                                [[ &quot;$_i_line&quot; != \ # ]] &amp;&amp; _compautos[${_i_name}]=&quot;$_i_line&quot;  ;;
                                esac
                        done
                done
                if [[ $_i_autodump = 1 ]]
                then
                        compdump
                fi
        fi
        for _i_line in complete-word delete-char-or-list expand-or-complete expand-or-complete-prefix list-choices menu-complete menu-expand-or-complete reverse-menu-complete
        do
                zle -C $_i_line .$_i_line _main_complete
        done
        zle -la menu-select &amp;&amp; zle -C menu-select .menu-select _main_complete
        bindkey '^i' | IFS=$' \t' read -A _i_line
        if [[ ${_i_line[2]} = expand-or-complete ]] &amp;&amp; zstyle -a ':completion:' completer _i_line &amp;&amp; (( ${_i_line[(i)_expand]} &lt;= ${#_i_line} ))
        then
                bindkey '^i' complete-word
        fi
        unfunction compinit compaudit
        autoload -Uz compinit compaudit
        return 0
}
compinstall () {
        # undefined
        builtin autoload -XUz
}
polet% cat .zshrc
# Lines configured by zsh-newuser-install
HISTFILE=~/.histfile
HISTSIZE=1000
SAVEHIST=1000
bindkey -e
# End of lines configured by zsh-newuser-install
# The following lines were added by compinstall
zstyle :compinstall filename '/home/observer/.zshrc'

autoload -Uz compinit
compinit
# End of lines added by compinstall

Private - Private paste aren't shown in recent listings.

Delete After - When should we delete your paste?

Spam protection -

Reply to "Untitled"