marcuskammer/coleslaw
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

finished adding github's pages support

Browse source
This commit is contained in:
Do Nhat Minh 2013-04-21 21:03:56 +08:00 • committed by Brit Butler
parent 6396e136d3
commit bf6ba24434
3 changed files with 9 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
coleslaw.asd
View file

@ -13,7 +13,8 @@
:inferior-shell
:cl-fad
:cl-ppcre
:closer-mop)
:closer-mop
:puri)
:serial t
:components ((:file "packages")
(:file "util")

6
src/coleslaw.lisp
View file

@ -51,7 +51,7 @@ Additional args to render CONTENT can be passed via RENDER-ARGS."
(when (probe-file dir)
(run-program "cp -R ~a ." dir)))
(do-ctypes (publish ctype))
(render-indices)
(render-indices (not (github *config*)))
(render-feeds (feeds *config*))))
(defgeneric deploy (staging)
@ -65,8 +65,8 @@ Additional args to render CONTENT can be passed via RENDER-ARGS."
(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*))))))
(stripped-url (puri:uri-host (puri:parse-uri
(domain *config*)))))
(format t "~a" cname-filename)
(with-open-file (cname cname-filename
:direction :output

6
src/indices.lisp
View file

@ -67,7 +67,7 @@
:posts (subseq content start end)
:title "Recent Posts")))
(defun render-indices ()
(defun render-indices (make-symlink-p)
"Render the indices to view content in groups of size N, by month, and by tag."
(let ((results (by-date (hash-table-values *content*))))
(dolist (tag (all-tags))
@ -83,4 +83,6 @@
:prev (and (plusp i) i)
:next (and (< (* (1+ i) 10) (length results))
(+ 2 i)))))))
(update-symlink "index.html" "1.html"))
(if make-symlink
(update-symlink "index.html" "1.html")
(run-program "cp 1.html index.html")))