zsh/Completion/X/_x_font

#autoload

local expl

_tags fonts || return 1

# This *has* to be improved some day...

if (( ! $+_font_cache )); then
  typeset -gU _font_cache

 _font_cache=( "${(@)^${(@f)$(_call fonts xlsfonts)}%%--*}--" )
fi

_wanted fonts expl font \
    compadd -M 'r:|-=* r:|=*' "$@" -S '' - "$_font_cache[@]"
Initial revision 1999-08-25 03:59:20 +02:00			`#autoload`

Updated from list as far as 10376 2000-04-01 22:43:43 +02:00			`local expl`

_wanted now tests both tags and labels; change places where _wanted was called without a command; allow multiple patterns per string in file-patterns; update _next_tags to work with labels (10632) 2000-04-11 09:57:56 +02:00			`_tags fonts \|\| return 1`
Updated from list as far as 10376 2000-04-01 22:43:43 +02:00
			`# This has to be improved some day...`

			`if (( ! $+_font_cache )); then`
			`typeset -gU _font_cache`

			`_font_cache=( "${(@)^${(@f)$(_call fonts xlsfonts)}%%--*}--" )`
			`fi`

_wanted now tests both tags and labels; change places where _wanted was called without a command; allow multiple patterns per string in file-patterns; update _next_tags to work with labels (10632) 2000-04-11 09:57:56 +02:00			`_wanted fonts expl font \`
Updated from list as far as 10376 2000-04-01 22:43:43 +02:00			`compadd -M 'r:\|-=* r:\|=*' "$@" -S '' - "$_font_cache[@]"`