Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
tree: eb1a84bbfb
Fetching contributors…

Cannot retrieve contributors at this time

30 lines (22 sloc) 0.989 kB
(in-package #:cliki2)
(close-store)
(open-store (merge-pathnames "store/" *datadir*))
(setf *dispatch-table*
(list
(hunchentoot:create-folder-dispatcher-and-handler
"/static/"
(merge-pathnames #p"static/"
(asdf:component-pathname (asdf:find-system :cliki2))))
'dispatch-easy-handlers
'article-dispatcher))
(defmethod acceptor-status-message :around ((acceptor easy-acceptor) status-code &key &allow-other-keys) ;; blah, hunchentoot 1.2 is annoying
(if (equal status-code 404)
nil
(call-next-method)))
(open-search-index)
(init-recent-revisions)
(dolist (unreferenced-uri (set-difference %referenced-uris %defined-uris
:key #'car :test #'string-equal))
(warn "Reference warning: referencing unknown URI resource ~a in file ~a"
(car unreferenced-uri) (cdr unreferenced-uri)))
(hunchentoot:start (make-instance 'hunchentoot:easy-acceptor :port 8080))
Jump to Line
Something went wrong with that request. Please try again.