hipis/packages/source/hwp/hwp.scm


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

(define-module (hwp)
  #:use-module (hwp site)
  #:use-module (hwp ui)
  #:use-module (ice-9 match)
  #:export (hwp-run))

(define (hwp-run args)
 (match args
   ((cmd)
    (display "To create site: hwp-build [input-path] [output-path]")
    (newline))
   ((cmd in out)
    (hipis-site in out))))