first pass in adding github integration

src/coleslaw.lisp

@@ -63,6 +63,15 @@ Additional args to render CONTENT can be passed via RENDER-ARGS."
            (curr (rel-path dest ".curr")))
       (ensure-directories-exist new-build)
       (run-program "mv ~a ~a" staging new-build)
+      (when (github *config*)
+        (let ((cname-filename (rel-path "" "~a/CNAME" new-build))
+              (stripped-url (subseq (domain *config*)
+                                    (+ 2 (position #\/ (domain *config*))))))
+          (format t "~a" cname-filename)
+          (with-open-file (cname cname-filename
+                                 :direction :output
+                                 :if-exists :supersede)
+                          (format cname "~a~%" stripped-url))))
       (when (probe-file prev)
         (delete-directory-and-files (truename prev) :if-does-not-exist :ignore))
       (when (probe-file curr)

src/config.lisp

@@ -5,6 +5,7 @@
    (deploy :initarg :deploy :initform nil :accessor deploy)
    (domain :initarg :domain :initform "" :accessor domain)
    (feeds :initarg :feeds :initform nil :accessor feeds)
+   (github :initarg :github :initform nil :accessor github)
    (license :initarg :license :initform nil :accessor license)
    (plugins :initarg :plugins :initform nil :accessor plugins)
    (repo :initarg :repo :initform #p"/" :accessor repo)