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

Selecting a whole row checks off a grub

Browse source
This commit is contained in:
Nicholas Kariniemi 2013-08-20 22:04:37 +03:00
parent c168227df7
commit d7ec05cefc
2 changed files with 38 additions and 27 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
public/css/styles.css
View file

@ -5,3 +5,25 @@
tr:hover .grub-close {
display: block;
}
#grub-list {
margin-top: 10px;
}
.grub-item {
cursor: default;
-webkit-user-select: none;
-moz-user-select: none;
-ms-user-select: none;
user-select: none;
}
.grub-item:active {
color: #ffffff;
background-color: rgb(71, 73, 73);
}
.completed {
text-decoration: line-through;
color: #a9a9a9;
}

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

@ -26,19 +26,14 @@
add-grub-text
[:span.input-group-btn
add-grub-btn]]
[:table.table.table-condensed
[:tbody#grubList]]]
[:div.col-lg-4]]])
[:ul#grub-list.list-group]]
[:div.col-lg-4]
[:div.col-lg-2]]])
(deftemplate grub-template [grub]
[:tr {:id (:_id grub)}
[:td
[:div.checkbox.grubCheckbox [:label
[:input {:type "checkbox"
:checked (:completed grub)}]
(:grub grub)]]]
[:td
[:button.grub-close.close {:type "button"} "×"]]])
(defn make-grub-node [grub]
(if (:completed grub)
(node [:li.list-group-item.completed.grub-item {:id (:_id grub)} (:grub grub)])
(node [:li.list-group-item.grub-item {:id (:_id grub)} (:grub grub)])))
(defn render-body []
(dommy/prepend! (sel1 :body) (main-template)))
@ -73,21 +68,14 @@
(defn get-completed-event [event]
(let [target (.-target event)
checked (.-checked target)
event-type (if checked :complete :uncomplete)
label (aget (.-labels (.-target event)) 0)
grub (.-textContent label)
id (.-id (.-parentNode (.-parentNode (.-parentNode (.-parentNode target)))))]
{:grub grub :_id id :event event-type}))
(defn get-completed-events []
(let [events (:chan (event-chan (sel1 :#grubList) "change"))
grubs (map-chan #(get-completed-event %) events)]
grubs))
id (.-id target)
completed (dommy/has-class? target "completed")
event-type (if completed :uncomplete :complete)]
{:_id id :event event-type}))
(defn get-deleted-events []
(let [click-events (chan)]
(dommy/listen! [(sel1 :#grubList) ".close"]
(dommy/listen! [(sel1 :#grub-list) ".close"]
:click
#(go (>! click-events %)))
(let [ids (map-chan #(.-id (.-parentNode (.-parentNode (.-target %)))) click-events)
@ -96,15 +84,16 @@
(defn render-grub-list [grubs]
(let [grub-list (sel1 :#grubList)
(let [grub-list (sel1 :#grub-list)
sorted-grubs (sort-by (juxt :completed :_id) grubs)]
(aset grub-list "innerHTML" "")
(doseq [grub sorted-grubs]
(dommy/append! grub-list (grub-template grub)))))
(let [node (make-grub-node grub)]
(dommy/listen! node :click #(go (>! outgoing-events (get-completed-event %))))
(dommy/append! grub-list node)))))
(defn push-outgoing-events []
(fan-in outgoing-events [(get-added-events)
(get-completed-events)
(get-deleted-events)]))
(defn watch-for-state-changes []