findfonts

   1 #!/bin/sh
   2 dirs="/usr/share/fonts /usr/X11R6/lib/X11/fonts"
   3 for d in $dirs; do
   4     find $d \( -name '*.[Tt][Tt][Ff]' -o -name '*.[Pp][Ff][BbAa]' \) -print
   5 done | while read f; do
   6         dir=`dirname $f`
   7         echo $dir
   8 done | sort -u | sed 's/^/      <dir>/' | sed 's;$;</dir>;'