blob: c4975380b0d5cd2f029d39457433915229662d6e (
about) (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
(define-module (hwp)
#:use-module (hwp site)
#:use-module (hwp download)
#:use-module (hwp ui)
#:use-module (ice-9 match)
#:export (hwp-build
hwp-run))
(define (hwp-build url dest)
(define website-source-dir (download-curl url "/tmp"))
(hipis-site website-source-dir dest))
(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))))
|
