Make project structure and builder script

1 files changed, 9 insertions, 0 deletions

diff --git a/scripts/create.scm b/scripts/create.scm
new file mode 100644
index 0000000..6f7f549
--- /dev/null
+++ b/scripts/create.scm
@@ -0,0 +1,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)))