diff --git a/src/coleslaw.lisp b/src/coleslaw.lisp index 271aacf..5355696 100644 --- a/src/coleslaw.lisp +++ b/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) diff --git a/src/config.lisp b/src/config.lisp index e19fbf0..cd188c6 100644 --- a/src/config.lisp +++ b/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)