2013-04-21 12:13:03 -04:00
|
|
|
(eval-when (:compile-toplevel :load-toplevel)
|
|
|
|
|
(ql:quickload 'puri))
|
|
|
|
|
|
|
|
|
|
(defpackage :coleslaw-gh-pages
|
|
|
|
|
(:use :cl)
|
|
|
|
|
(:import-from :puri #:parse-uri #:uri-host)
|
|
|
|
|
(:import-from :coleslaw #:*config* #:deploy #:domain #:rel-path)
|
|
|
|
|
(:export #:enable))
|
|
|
|
|
|
|
|
|
|
(in-package :coleslaw-gh-pages)
|
|
|
|
|
|
|
|
|
|
(defvar *cname* nil
|
|
|
|
|
"The domain CNAME for github to serve pages from.")
|
|
|
|
|
|
|
|
|
|
(defmethod deploy :after (staging)
|
2013-04-21 12:43:34 -04:00
|
|
|
(let ((base (truename (rel-path (deploy *config*) ".curr"))))
|
2013-04-21 12:13:03 -04:00
|
|
|
(delete-file (rel-path base "index.html"))
|
|
|
|
|
(cl-fad:copy-file (rel-path base "1.html") (rel-path base "index.html"))
|
|
|
|
|
(with-open-file (out (rel-path base "CNAME")
|
|
|
|
|
:direction :output
|
|
|
|
|
:if-exists :supersede
|
|
|
|
|
:if-does-not-exist :create)
|
|
|
|
|
(format out "~A~%" *cname*))))
|
|
|
|
|
|
|
|
|
|
(defun enable (&key cname)
|
|
|
|
|
(typecase cname
|
|
|
|
|
(string (setf *cname* cname))
|
|
|
|
|
(t (setf *cname* (uri-host (parse-uri (domain *config*)))))
|
|
|
|
|
(otherwise (error "Not a valid CNAME: ~A" cname))))
|
