scripts/create.scm


1
2
3
4
5
6
7
8
9

(define-module (scripts create)
  #:use-module ((src atom) #:prefix atom:)
  #:use-module ((src html) #:prefix html:)
  #:use-module (src as))

(define root (canonicalize-path (cadr (command-line))))

(define atom-feed  (atom:render (as 'atom root)))
(define html-index (html:render (as 'html root)))