Start over cleanly

1 files changed, 45 insertions, 0 deletions

diff --git a/haunt.scm b/haunt.scm
new file mode 100644
index 0000000..44cfd4d
--- /dev/null
+++ b/haunt.scm
@@ -0,0 +1,45 @@
+;; The main Haunt entry-point for my site.
+
+(use-modules (haunt site)
+	     (haunt post)
+	     (haunt asset)
+	     (haunt reader)
+	     (haunt builder blog)
+	     (haunt builder atom)
+	     (haunt builder assets)
+	     (haunt publisher rsync)
+	     (dnw theme)
+	     (dnw tags)
+	     (dnw static-pages)
+	     (srfi srfi-19)
+             (srfi srfi-26))
+
+
+(define (org-string->date str)
+  "Convert STR, a string in Org format, into a SRFI-19 date object."
+  (catch 'misc-error
+    (lambda () (string->date str "<~Y-~m-~d ~a ~H:~M>"))
+    (lambda (key . parameters) (string->date str "<~Y-~m-~d ~a>"))))
+
+(register-metadata-parser! 'date org-string->date)
+
+(site #:title "Through the Heart of Every Man"
+      #:domain "functorial.xyz"
+      #:default-metadata
+      '((author . "Duncan Wilkie")
+	(email  . "dnw@functorial.xyz"))
+      #:readers (list html-reader)
+      #:builders (list (blog
+			#:theme dnw-haunt-theme
+			#:prefix "/posts")
+		       index-page
+		       me-page
+		       friends-page
+		       influences-page
+		       tags->page
+		       (atom-feed #:blog-prefix "/posts")
+		       (atom-feeds-by-tag)
+		       (static-directory "assets"))
+      #:publishers (list (rsync-publisher #:destination "/var/www/functorial"
+					  #:user "publish"
+					  #:host "functorial.xyz")))