themes.scm

#!/usr/local/bin/gosh

(use gauche.parseopt)

(define (main args)
 (let-args (cdr args)
  ((h "h|help" => (cut help (car args)))
   . restargs)
  (if (not h)
   (use-themes))))

(define (use-themes)
 (theme "actual")
; (theme "even")
; (theme "even-more")
 (theme "github")
 (theme "jacrys")
 (theme "kendall")
 (theme "orbit")
 (theme2html "even" "index"))

(define (help file)
 (print "Convert JSON resume to HTML"))

(define (theme theme)
 (print #"applying theme ~theme")
 (theme2html theme theme)
; (sys-system #"resume export html/~|theme|.html -t ~theme")
 (sys-system #"resume export pdf/~|theme|.pdf -t ~theme")
 )

(define (theme2html theme out)
 (print #"making html ~theme")
 (sys-system #"resume export html/~|out|.html -t ~theme")
 )