From e4245ca7ee04cea5908c4514ccf81ea905a3417d Mon Sep 17 00:00:00 2001
From: gered <gered@blarg.ca>
Date: Sun, 30 Mar 2014 15:11:42 -0400
Subject: [PATCH] function to get font names list

---
 src/toascii/models/flf.clj | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/src/toascii/models/flf.clj b/src/toascii/models/flf.clj
index 8d2612b..b03af8e 100644
--- a/src/toascii/models/flf.clj
+++ b/src/toascii/models/flf.clj
@@ -159,6 +159,11 @@
 (defn get-font [name]
   (get @fonts name))
 
+(defn get-font-names []
+  (->> @fonts
+       (vals)
+       (sort)))
+
 (defn load-all! []
   (->> flf-files
        (reduce