Merge pull request #51 from pnathan/convert-to-lisp-server

Use Hunchentoot rather than Nginx to serve the web.

Author: pnathan

Dockerfile

@@ -1,2 +1,11 @@
-from nginx
-copy _site/ /usr/share/nginx/html
+from davazp/quicksbcl
+run apt-get update
+run apt-get install -y libssl-dev
+expose 80
+
+run sbcl --eval '(ql:update-all-dists :prompt nil)'  --eval '(ql:quickload :hunchentoot)'  --eval '(ql:quickload :local-time)' --non-interactive
+
+copy source/ /opt/articulate-common-lisp/www
+copy _site/ /opt/articulate-common-lisp/www/static
+
+cmd sbcl --load /opt/articulate-common-lisp/www/main.lisp --eval '(start)' --non-interactive

_data/nav.yml

@@ -56,4 +56,4 @@
   href: "/quicklisp.html"
 
 - title: "Who?"
-  href: "/about/"
+  href: "/about.html"

about/index.html about.html

@@ -0,0 +1,37 @@
+(ql:quickload '( :hunchentoot :local-time))
+
+(defvar *acceptor* nil "the hunchentoot acceptor")
+(format t "Articulating Common Lisp...~%")
+
+(hunchentoot:define-easy-handler (release :uri "/api/release") ()
+    (setf (hunchentoot:content-type*) "text/plain")
+  (format t "A release of articulate-common-lisp is present!")
+  (with-open-file (stream "/tmp/articulate-common-lisp.release" :direction :output :if-exists :overwrite :if-does-not-exist :create)
+    (format stream "begin release @ ~a" (local-time:now)))
+  "Release acknowledged. Grimoires under consultation.")
+
+(defun start(&optional (fake-daemon t) &key (path nil) (port 80))
+  (format t "Starting web server...~%")
+
+  (setf hunchentoot:*dispatch-table*
+        (append
+         hunchentoot:*dispatch-table*
+         (list
+          (hunchentoot:create-static-file-dispatcher-and-handler
+           "/" (if path
+                   (concatenate 'string path "/index.html")
+                   #p"/opt/articulate-common-lisp/www/static/index.html"))
+          (hunchentoot:create-folder-dispatcher-and-handler
+           "/"
+           (if path
+               path
+               #p"/opt/articulate-common-lisp/www/static/")))))
+
+  (setf *acceptor* (make-instance 'hunchentoot:easy-acceptor :port port))
+  (hunchentoot:start *acceptor*)
+
+  (when fake-daemon
+    (loop while t
+          do
+             (format t "~&~a - heartbeat...~%" (local-time:now))
+             (sleep 5))))