Hacking on coleslaw(一个基于lisp的静态博客程序）

In this post, I document how I hacked coleslaw to add Github’s pages integration.

What is coleslaw?

coleslaw is a static blog generator written in Common Lisp, much like Jekyll, albeit with less features.
I’ve been using Octopress to generate this site. Since I don’t know Ruby, and have to intention to learn it, I can’t hack on Octopress’s code nor on Jekyll’s, which is a shame. As I am learning Common Lisp, and wanting to work on something in it, switching to coleslaw seems perfect for me.

Trying coleslaw out

Here’s how I set up and use coleslaw.

• Install git
• Set up a bare git repo

mkdir /root/coleslaw-repo/

cd /root/coleslaw-repo/ # this is where the post-receive hook script is put.
git --bare init

• Install Lisp (I choose sbcl)
• Install Quicklisp
• Get coleslaw’s settings file:

wget https://raw.githubusercontent.com/kingcons/coleslaw/master/examples/example.coleslawrc -O ~/.coleslawrc
     

• The settings file must be edited accordingly. I find the naming a bit confusing, so I have put some comment below for clarification.

(:author "Example Setter"
 :deploy "/usr/local/coleslaw-site/" ; this is where coleslaw writes its output
 :domain "http://cs.bright.biz.st"
 :feeds ("lisp")
 :plugins ((mathjax)
           (disqus :shortname "my-site-name")
           (analytics :tracking-code "foo"))
 ;; this is where coleslaw writes its temporary output, which gets moved
 ;; into /usr/local/coleslaw-site/
 :repo "/tmp/coleslaw-folder/"
 :sitenav ((:url "http://example.com/" :name "Home")
           (:url "http://twitter.com/example" :name "Twitter")
           (:url "http://github.com/example" :name "Code"))
 :title "Blog title"
 :theme "hyde")

• Get post-receive hook script and edit the file according to the instructions inside:

wget https://raw.githubusercontent.com/kingcons/coleslaw/master/examples/example.post-receive
     -O /root/coleslaw-repo/hooks/post-receive
# edit the file

• Make the script executable:

chmod 755 /root/coleslaw-repo/hooks/post-receive

• Create another repository to hold posts:

mkdir ~/coleslaw-posts

cd ~/coleslaw-posts
git init

• Add the bare repo as a remote of the posts repo

git remote add prod file:///root/coleslaw-repo/

• Use a server of choice to serve the site. Here I choose PHP’s built in server.

cd /path/to/deploy/.curr/
php -S localhost:8080

Motivation

As I want to put my blog on Github’s pages with my custom domain, I need the generator to put a file named CNAME, whose content is my custom domain name, in the root of the generated site. However, currently coleslaw only recognizes files with post extension, along with files in the static folder, and does not allow putting custom files in the root of the site. I need to hack up a way to generate that CNAME file under the root of the site.

Forking the code

The usual workflow on Github is to fork the code, hack on it, commit and then send a pull request to the original author.
After forking the code and cloning it to my machine, I need to setup Quicklisp’s quickproject according to this so that it sees my code.
Since I have generated the posts using coleslaw, Quicklisp must have pulled the code from its repository. For safety, I uninstall Quicklisp’s coleslaw.

;; start sbcl and load Quicklisp's setup.lisp
(use-package :ql-dist)
(uninstall (release "coleslaw"))
; instructions gotten from
;   https://groups.google.com/forum/?fromgroups=#!topic/quicklisp/CvB3mwsL7l4

Hack on it

I add a property to class blog in order to capture user’s intent to integrate with Github’s pages.

; in src/config.lisp
(defclass blog ()
  (
   ; [...]
   (github :initarg :github :initform nil :accessor github)
   ; [...]
   ))

And then the code to actually generate the CNAME file

(defgeneric deploy (staging)
  (((
        ; [...]
        (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*))))))
            (with-open-file (cname cname-filename
                                   :direction :output
                                   :if-exists :supersede)
              (format cname "~a~%" stripped-url))))
        (when (probe-file prev)
        ; [...]
        )))))

(Not) Send a pull request to the original author

Since the way I pulled out the domain name from the blog object is very ad-hoc, I don’t think this code is production quality yet. I should write a separate library to parse the url and then use that to robustly extract the domain name. Until then, I won’t send a pull request to the original author.

from http://minhdo.org/posts/2013-04-19-hacking-on-coleslaw.html