1 files changed, 7 insertions, 0 deletions
diff --git a/build-aux/generate-images.scm b/build-aux/generate-images.scm
new file mode 100755
index 0000000..87d67ea
--- /dev/null
+++ b/build-aux/generate-images.scm
@@ -0,0 +1,7 @@
+(import (pict) (ice-9 match))
+(define* (main #:optional (args (command-line)))
+  (match args
+    ((_ source)
+     (let ((pict (load source))
+           (target (string-append source ".svg")))
+       (pict->file pict target)))))