coleslaw/src/coleslaw.lisp

(in-package :coleslaw)

(defparameter *storage* nil
  "A db-spec for postmodern or a hash-table cache. It is expected that
*storage* has methods for each Generic Function in coleslaw implemented.")

(defgeneric get-credentials (name)
  (:documentation "Retrieve the credentials keyed by NAME from *storage*."))

(defgeneric set-credentials (name credentials)
  (:documentation "Store the given CREDENTIALS in *storage* under NAME."))

(defun load-config ()
  nil)

(defun exit-handler ()
  nil)

(defun compile-blog ()
  (with-current-directory *temporary-directory*
    nil))

;; TODO: Make update interval a config option.
(defun main ()
  (load-config)
  (unwind-protect
       (loop do (if (blog-update-p)
                    (compile-blog)
                    (sleep 600)))
    (exit-handler)))