20 lines
652 B
Common Lisp
20 lines
652 B
Common Lisp
(eval-when (:compile-toplevel :load-toplevel)
|
|
(ql:quickload 'hunchentoot))
|
|
|
|
(defpackage :coleslaw-heroku
|
|
(:use :cl)
|
|
(:import-from #:hunchentoot :create-folder-dispatcher-and-handler
|
|
:create-static-file-dispatcher-and-handler
|
|
:*dispatch-table*)
|
|
(:import-from #:coleslaw :deploy)
|
|
(:export #:enable))
|
|
|
|
(in-package :coleslaw-heroku)
|
|
|
|
(defmethod deploy :after (staging)
|
|
(push (create-folder-dispatcher-and-handler "/" "/app/.curr/")
|
|
*dispatch-table*)
|
|
(push (create-static-file-dispatcher-and-handler "/" "/app/.curr/index.html")
|
|
*dispatch-table*))
|
|
|
|
(defun enable ())
|