1 files changed, 62 insertions, 0 deletions
diff --git a/tables.lisp b/tables.lisp
new file mode 100644
index 0000000..62c8de8
--- /dev/null
+++ b/tables.lisp
@@ -0,0 +1,62 @@
+;; clog -- Supposedly simplistic blogging in Common Lisp
+;; Copyright (C) 2013  Tom Willemse
+
+;; clog is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU Affero General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; clog is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU Affero General Public License for more details.
+
+;; You should have received a copy of the GNU Affero General Public License
+;; along with clog.  If not, see <http://www.gnu.org/licenses/>.
+
+(in-package :clog)
+
+(defclass tag ()
+  ((id :col-type serial :reader tag-id)
+   (name :col-type string :reader tag-name)
+   (slug :col-type (varchar 255) :reader tag-slug))
+  (:metaclass dao-class)
+  (:keys id))
+
+(defclass post ()
+  ((id :col-type serial :reader post-id)
+   (timestamp :col-type timestamp :reader post-time)
+   (type :col-type (varchar 10) :reader post-type)
+   (title :col-type (varchar 500) :reader post-title)
+   (author-email :col-type (varchar 255) :reader post-author-email)
+   (author-name :col-type (varchar 255) :reader post-author-name)
+   (author-md5 :col-type (varchar 255) :reader post-author-md5)
+   (slug :col-type (or db-null (varchar 255)) :reader post-slug)
+   (content :col-type string :reader post-content)
+   (parent :col-type (or db-null integer) :reader post-parent))
+  (:metaclass dao-class)
+  (:keys id))
+
+(deftable tag
+  (!dao-def)
+  (!unique :name)
+  (!unique :slug))
+
+(deftable post
+  (!dao-def)
+  (!foreign 'post 'parent 'id)
+  (!unique '(type slug)))
+
+(deftable post-tag
+  (:create-table
+   post-tag ((post-id :type :integer)
+             (tag-id :type :integer)))
+  (!foreign 'post 'post-id 'id)
+  (!foreign 'tag 'tag-id 'id)
+  (!unique '(post-id tag-id)))
+
+(defun prepare-tables ()
+  (map nil (lambda (tbl)
+             (unless (table-exists-p tbl)
+               (create-table tbl)))
+       '(post tag post-tag)))