build-aux/generate-images.scm


1
2
3
4
5
6
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)))))