(defpackage :inangulis.blog
  (:use :cl :anaphora :alexandria :inangulis.web))

(in-package :inangulis.blog)

(defclass blog-post ()
  ((id :col-type serial)
   (title :col-type text)
   (author :col-type int)
   (name :initarg :name :col-type text)
   (moderator :initarg :moderator :initform nil :col-type bool))
  (:metaclass dao-class)
  (:keys id))

(define-controller)