From dae489a4529c014654b894d104faa9e5cfea0b04 Mon Sep 17 00:00:00 2001
From: Ben Harris <bjh21@bjh21.me.uk>
Date: Tue, 13 Feb 2007 21:38:21 +0000
Subject: Add a --list-fonts option, since getting PostScript names out of
 TrueType fonts is difficult.

[originally from svn r7281]
---
 bk_paper.c | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to '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;
-- 
cgit v1.1