io-setfont

   1 setfont "$(
   2         find /usr/share ~ -type d -name consolefonts | while IFS='' read -r path
   3         do
   4                 cd "$path" || exit 1
   5
   6                 fonts="$(find . -type f | cut -c 3-)"
   7
   8                 [ "$fonts" ] && printf '#\n# %s\n%s\n' "$path" "$fonts"
   9
  10         done | iomenu -l 256 -s '#' -H | sed 's/\t/\//'
  11 )"