From c168227df73f9a19d04b864f3f927b14b785289f Mon Sep 17 00:00:00 2001 From: Nicholas Kariniemi Date: Tue, 20 Aug 2013 19:16:06 +0300 Subject: [PATCH] Sort completed grubs to end --- src/cljs/grub/view.cljs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/cljs/grub/view.cljs b/src/cljs/grub/view.cljs index 63547ca..56aba7a 100644 --- a/src/cljs/grub/view.cljs +++ b/src/cljs/grub/view.cljs @@ -97,7 +97,7 @@ (defn render-grub-list [grubs] (let [grub-list (sel1 :#grubList) - sorted-grubs (sort-by :_id grubs)] + sorted-grubs (sort-by (juxt :completed :_id) grubs)] (aset grub-list "innerHTML" "") (doseq [grub sorted-grubs] (dommy/append! grub-list (grub-template grub)))))