#autoload

local expl

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

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

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

_description expl font
compgen -M 'r:|-=* r:|=*' "$expl[@]" "$@" -S '' -k _font_cache