Commit 3af4ae27049f153612e29e27462ea4df908f3dc2

Thomas de Grivel 2015-03-26T08:50:47

Add support for standalone asset generation.

diff --git a/generate.lisp b/generate.lisp
index 50291d8..fd1bebb 100644
--- a/generate.lisp
+++ b/generate.lisp
@@ -31,7 +31,9 @@
 	(dir (enough-namestring
 	      (truename
 	       (merge-pathnames "../" (make-pathname :name nil :type nil
-						     :defaults path))))))
+                                                     :defaults path))))))
+    (when (zerop (length dir))
+      (setq dir "./"))
     (msg "~A" dir)
     (with-msg-indent (1)
       (load path)
@@ -40,5 +42,7 @@
 (defun generate ()
   (msg "Generate")
   (with-msg-indent (1)
+    (mapc #'generate/file (directory "triangle/assets.lisp"))
+    (mapc #'generate/file (directory "*/triangle/assets.lisp"))
     (mapc #'generate/file (directory "lib/triangle/*/triangle/assets.lisp"))
     (mapc #'generate/file (directory "lib/*/triangle/assets.lisp"))))