X-Git-Url: https://git.distorted.org.uk/~mdw/sgt/halibut/blobdiff_plain/255cf6799c41ba67eddaa2db9ff8b8499bad0407..26c8c119efd44804c7b27f8637c69eda63f0c189:/bk_paper.c

diff --git a/bk_paper.c b/bk_paper.c
index 2e0289c..531600c 100644
--- a/bk_paper.c
+++ b/bk_paper.c
@@ -1456,6 +1456,14 @@ static int utoglyph(font_info const *fi, wchar_t u) {
     return (u < 0 || u > 0xFFFF ? NOGLYPH : fi->bmp[u]);
 }
 
+void listfonts(void) {
+    font_info const *fi;
+
+    init_std_fonts();
+    for (fi = all_fonts; fi; fi = fi->next)
+	printf("%s\n", fi->name);
+}
+
 static font_data *make_std_font(font_list *fontlist, char const *name)
 {
     font_info const *fi;