#!/bin/rc

fn font_files {	
	for (d in /lib/font/bit /usr/matt/lib/font/ttf /usr/matt/ink)
	du -a $d | grep '\.font$'
}

fn font_folders {
	for (f in `{font_files})
		basename -d $f
}

fn uniq_font_folders {
	font_folders | sort | uniq | grep '/'
}

fn bind_uniq_folders {
	for (u in `{uniq_font_folders})
		bind -a $u /lib/font
}

bind_uniq_folders