Recently Written · git

coleslaw

Emacs mode for the "Coleslaw" site generator written in Common Lisp.

git clone https://github.com/equwal/coleslaw

Log | Files | Refs

plugins/heroku.lisp (652 bytes)

1 (eval-when (:compile-toplevel :load-toplevel)
2   (ql:quickload 'hunchentoot))
3 
4 (defpackage :coleslaw-heroku
5   (:use :cl)
6   (:import-from #:hunchentoot :create-folder-dispatcher-and-handler
7                               :create-static-file-dispatcher-and-handler
8                               :*dispatch-table*)
9   (:import-from #:coleslaw :deploy)
10   (:export #:enable))
11 
12 (in-package :coleslaw-heroku)
13 
14 (defmethod deploy :after (staging)
15   (push (create-folder-dispatcher-and-handler "/" "/app/.curr/")
16         *dispatch-table*)
17   (push (create-static-file-dispatcher-and-handler "/" "/app/.curr/index.html")
18         *dispatch-table*))
19 
20 (defun enable ())