diff options
Diffstat (limited to 'pg-datastore.lisp')
| -rw-r--r-- | pg-datastore.lisp | 36 |
1 files changed, 34 insertions, 2 deletions
diff --git a/pg-datastore.lisp b/pg-datastore.lisp index 8cfdbeb..d6b3e54 100644 --- a/pg-datastore.lisp +++ b/pg-datastore.lisp @@ -17,10 +17,27 @@ (:metaclass dao-class) (:keys id)) +(defclass task () + ((id :col-type serial :reader story-id) + (state :col-type string :reader state :initform "TODO") + (description :col-type string :reader description :initarg :description) + (priority :col-type integer :reader priority :initarg :priority) + (reporter :col-type string :reader reporter :initarg :reporter) + (assignee :col-type string :reader assignee :initarg :assignee) + (story-id :col-type integer :reader story-id :initarg :story-id)) + (:metaclass dao-class) + (:keys id)) + +(deftable task + (!dao-def) + (!foreign 'story 'story-id 'id)) + (defmethod datastore-init ((datastore pg-datastore)) (with-connection (connection-spec datastore) (unless (table-exists-p 'story) - (execute (dao-table-definition 'story))))) + (execute (dao-table-definition 'story))) + (unless (table-exists-p 'task) + (execute (dao-table-definition 'task))))) (defmethod datastore-get-all-stories ((datastore pg-datastore)) (with-connection (connection-spec datastore) @@ -28,7 +45,10 @@ (defmethod datastore-get-story ((datastore pg-datastore) id) (with-connection (connection-spec datastore) - (query (:select :* :from 'story :where (:= 'id id)) :alist))) + (append (query (:select :* :from 'story :where (:= 'id id)) :alist) + `((tasks . ,(query (:select :* :from 'task + :where (:= 'story-id id)) + :alists)))))) (defmethod datastore-post-story ((datastore pg-datastore) role necessity title content reporter) @@ -42,6 +62,18 @@ :content content :assignee "" :reporter reporter))) (save-dao obj)))) +(defmethod datastore-post-task + ((datastore pg-datastore) story-id description reporter) + (with-connection (connection-spec datastore) + (let ((obj (make-instance + 'task :description description + :priority (+ 1 (query (:select + (:coalesce (:max 'priority) 0) + :from 'task) :single)) + :reporter reporter :story-id (parse-integer story-id) + :assignee ""))) + (save-dao obj)))) + (defmethod datastore-story-get-state ((datastore pg-datastore) id) (with-connection (connection-spec datastore) (query (:select 'state :from 'story :where (:= 'id id)) :single))) |