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