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

change slot github to github-pages, add github-pages to single-site.coleslawrc

Browse source
This commit is contained in:
Do Nhat Minh 2013-04-21 21:19:39 +08:00 • committed by Brit Butler
parent bf6ba24434
commit 55613d717f
5 changed files with 6 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
README.md
View file

@ -15,6 +15,7 @@ Coleslaw aims to be flexible blog software suitable for replacing a single-user
* Markdown Support with Code Highlighting provided by [colorize](http://www.cliki.net/colorize). * Markdown Support with Code Highlighting provided by [colorize](http://www.cliki.net/colorize).
* Currently supports: Common Lisp, Emacs Lisp, Scheme, C, C++, Java, Python, Erlang, Haskell, Obj-C, Diff. * Currently supports: Common Lisp, Emacs Lisp, Scheme, C, C++, Java, Python, Erlang, Haskell, Obj-C, Diff.
* [Multi-site publishing](http://blub.co.za/posts/Adding-multi-site-support-to-Coleslaw.html) support. * [Multi-site publishing](http://blub.co.za/posts/Adding-multi-site-support-to-Coleslaw.html) support.
* Github's pages support
* A [Plugin API](http://github.com/redline6561/coleslaw/blob/master/docs/plugin-api.md) and [plugins](http://github.com/redline6561/coleslaw/blob/master/docs/plugin-use.md) for... * A [Plugin API](http://github.com/redline6561/coleslaw/blob/master/docs/plugin-api.md) and [plugins](http://github.com/redline6561/coleslaw/blob/master/docs/plugin-use.md) for...
* Comments via Disqus * Comments via Disqus

1
examples/single-site.coleslawrc
View file

@ -1,6 +1,7 @@
(:author "Brit Butler" (:author "Brit Butler"
:deploy "/home/git/blog/" :deploy "/home/git/blog/"
:domain "http://blog.redlinernotes.com" :domain "http://blog.redlinernotes.com"
:github-pages nil
:feeds ("lisp") :feeds ("lisp")
:plugins ((mathjax) :plugins ((mathjax)
(disqus :shortname "my-site-name") (disqus :shortname "my-site-name")

4
src/coleslaw.lisp
View file

@ -51,7 +51,7 @@ Additional args to render CONTENT can be passed via RENDER-ARGS."
(when (probe-file dir) (when (probe-file dir)
(run-program "cp -R ~a ." dir))) (run-program "cp -R ~a ." dir)))
(do-ctypes (publish ctype)) (do-ctypes (publish ctype))
(render-indices (not (github *config*))) (render-indices (not (github-pages *config*)))
(render-feeds (feeds *config*)))) (render-feeds (feeds *config*))))
(defgeneric deploy (staging) (defgeneric deploy (staging)
@ -63,7 +63,7 @@ Additional args to render CONTENT can be passed via RENDER-ARGS."
(curr (rel-path dest ".curr"))) (curr (rel-path dest ".curr")))
(ensure-directories-exist new-build) (ensure-directories-exist new-build)
(run-program "mv ~a ~a" staging new-build) (run-program "mv ~a ~a" staging new-build)
(when (github *config*) (when (github-pages *config*)
(let ((cname-filename (rel-path "" "~a/CNAME" new-build)) (let ((cname-filename (rel-path "" "~a/CNAME" new-build))
(stripped-url (puri:uri-host (puri:parse-uri (stripped-url (puri:uri-host (puri:parse-uri
(domain *config*))))) (domain *config*)))))

2
src/config.lisp
View file

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

2
src/indices.lisp
View file

@ -83,6 +83,6 @@
:prev (and (plusp i) i) :prev (and (plusp i) i)
:next (and (< (* (1+ i) 10) (length results)) :next (and (< (* (1+ i) 10) (length results))
(+ 2 i))))))) (+ 2 i)))))))
(if make-symlink (if make-symlink-p
(update-symlink "index.html" "1.html") (update-symlink "index.html" "1.html")
(run-program "cp 1.html index.html"))) (run-program "cp 1.html index.html")))