michael/grub-fork
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Sort completed grubs to end

Browse source
This commit is contained in:
Nicholas Kariniemi 2013-08-20 19:16:06 +03:00
parent f19a0b022b
commit c168227df7
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/cljs/grub/view.cljs
View file

@ -97,7 +97,7 @@
(defn render-grub-list [grubs] (defn render-grub-list [grubs]
(let [grub-list (sel1 :#grubList) (let [grub-list (sel1 :#grubList)
sorted-grubs (sort-by :_id grubs)] sorted-grubs (sort-by (juxt :completed :_id) grubs)]
(aset grub-list "innerHTML" "") (aset grub-list "innerHTML" "")
(doseq [grub sorted-grubs] (doseq [grub sorted-grubs]
(dommy/append! grub-list (grub-template grub))))) (dommy/append! grub-list (grub-template grub)))))