1#autoload 2 3local expl 4 5_tags fonts || return 1 6 7# This *has* to be improved some day... 8 9if (( ! $+_font_cache )); then 10 typeset -gU _font_cache 11 12 _font_cache=( "${(@)^${(@f)$(_call_program fonts xlsfonts 2> /dev/null)}%%--*}--" ) 13fi 14 15_wanted fonts expl font \ 16 compadd -M 'r:|-=* r:|=*' "$@" -S '' -a - _font_cache 17