Make-recipe for making FIGlet lisp code

Makefile

@@ -1,5 +1,8 @@
 LISP ?= ecl
 
+fonts:
+	$(LISP) \
+		--load "res/fonts/flf→lisp.lisp"
 maps:
 	$(LISP) \
 		--load "res/maps/tmx→lisp.lisp"

res/fonts/flf→lisp.lisp

@@ -0,0 +1,18 @@
+(ql:quickload '(alexandria str uiop))
+(load "figlet.lisp")
+
+
+(defun local-path (subpath)
+  (format nil "~A~A" (uiop:getcwd) subpath))
+
+
+(mapcar
+ (lambda (font-name)
+   (figlet:save-font-to-file
+    (local-path (format nil "res/fonts/~A.flf.lisp" font-name))
+    (figlet:figlet-font-plist (local-path (format nil "res/fonts/~A.flf" font-name)))
+    ":FLORA-SEARCH-AURORA"
+    (format nil "*~A-font*" font-name)))
+ '("standard" "small"))
+
+(quit)