;;; spine.el — personal reading tracker, served from Emacs

;; --- package bootstrap ------------------------------------------------

(require 'package)
(add-to-list 'package-archives
             '("melpa" . "https://melpa.org/packages/")
             t)
(package-initialize)

(dolist (pkg '(simple-httpd mustache ht))
  (unless (package-installed-p pkg)
    (package-refresh-contents)
    (package-install pkg)))

(require 'simple-httpd)
(require 'mustache)
(require 'ht)

;; --- configuration ----------------------------------------------------

(defvar spine-port 8080
  "Port for the Spine HTTP server.")
(defvar spine-host nil
  "Host for the Spine HTTP server.
nil means localhost only. Set to a string like \"0.0.0.0\" to listen on
all interfaces.")

(defvar spine-template-dir
  (expand-file-name "templates/"
                    (file-name-directory load-file-name))
  "Directory containing .mustache templates.")

;; --- template rendering -----------------------------------------------

(defun spine-render (name context)
  "Render templates/NAME.mustache with CONTEXT (an ht hash table).
Returns the rendered string."
  (mustache-render
   (with-temp-buffer
     (insert-file-contents
      (expand-file-name name spine-template-dir))
     (buffer-string))
   context))

;; --- handlers ---------------------------------------------------------

(defservlet hello text/html ()
  (insert (spine-render "hello.mustache"
            (ht ("title"   "Spine")
                ("message" "Hello from Emacs.")))))

;; --- start ------------------------------------------------------------
(setq httpd-host spine-host)
(setq httpd-port spine-port)
(httpd-start)
(message "Spine listening on http://%s:%d"
         (or spine-host "localhost") spine-port)

(provide 'spine)
;;; spine.el ends here