From 4b9563abd45dafced0521deedb53ea2f872f5639 Mon Sep 17 00:00:00 2001
From: Tom Willemse
Date: Wed, 24 Jul 2013 20:42:13 +0200
Subject: Show assigned gravatar in story and task lists

---
 pg-datastore.lisp | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

(limited to 'pg-datastore.lisp')

diff --git a/pg-datastore.lisp b/pg-datastore.lisp
index 317eca5..39e2646 100644
--- a/pg-datastore.lisp
+++ b/pg-datastore.lisp
@@ -57,16 +57,19 @@
 
 (defmethod datastore-get-all-stories ((datastore pg-datastore))
   (with-connection (connection-spec datastore)
-    (query (:order-by (:select :* :from 'story) 'priority) :alists)))
+    (query (:order-by (:select :* (:as (:md5 'assignee) 'md5)
+                               :from 'story) 'priority) :alists)))
 
 (defmethod datastore-get-story ((datastore pg-datastore) id)
   (with-connection (connection-spec datastore)
-    (append (query (:select :* :from 'story :where (:= 'id id)) :alist)
+    (append (query (:select :* (:as (:md5 'assignee) 'md5) :from 'story
+                            :where (:= 'id id)) :alist)
             `((tasks . ,(datastore-get-tasks-for-story datastore id))))))
 
 (defmethod datastore-get-tasks-for-story ((datastore pg-datastore) id)
   (with-connection (connection-spec datastore)
-    (query (:order-by (:select :* :from 'task :where (:= 'story-id id))
+    (query (:order-by (:select :* (:as (:md5 'assignee) 'md5) :from 'task
+                               :where (:= 'story-id id))
                       'priority)
            :alists)))
 
-- 
cgit v1.2.3-54-g00ecf