build-web.scm


1
2
3
4
5
6
7
8
9
10
11
12
13
14

(import (rnrs programs)
        (ice-9 match)
        (skribilo engine)
        (tissue web))

(let ((html-engine (find-engine 'html)))
  (engine-custom-set! html-engine 'css "/style.css")
  (match (command-line)
    ((_ output-directory)
     (build-website output-directory
                    #:title "GeneNetwork issue tracker"
                    #:tags-path "/tags"))
    (_
     (error "Invalid command-line usage"))))