function to get font names list

2014-03-30 15:11:42 -04:00 · 2014-03-30 15:11:42 -04:00 · e4245ca7ee
parent a5c05a7afd
commit e4245ca7ee
1 changed files with 5 additions and 0 deletions
--- 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