Split up room component

src/cljs/attendance/ui.cljs

@@ -26,27 +26,37 @@
     [:li.kid
      [button status (str name " - " status) #(s/toggle-kid! idx)]]))
 
+(defn kidlist
+  "Render a list of attendance toggles from a list of kids"
+  [max enrolled]
+  (let [kids (map s/get-kid enrolled)]
+    [:ul.kidlist
+     [:li.capacity
+      (str (count (filter :here kids)) "/" (count kids)
+           " Max: " max)]
+     (for [k kids]
+       ^{:key (:idx k)}
+       [kid k])]))
+
+(defn absentlist
+  "Render a list of the absent kids in the given room letter"
+  [letter]
+  [:ul.absentlist
+   [:li [:h4 "Out"]]
+   (doall
+    (for [out (s/absent letter)]
+      (let [n (:name out)]
+        ^{:key n}
+        [:li.absent n])))])
+
 (defn room
   "Render a class of children"
   [{:keys [letter max enrolled]} r]
-  (let [kids (map s/get-kid enrolled)]
-    [:li.room
-     [:div.roomContent
-      [:h4.roomletter (str "Room " letter)]
-      [:ul.kidlist
-       [:li.capacity
-        (str (count (filter :here kids)) "/" (count kids)
-             " Max: " max)]
-       (for [k kids]
-         ^{:key (:idx k)}
-         [kid k])]
-      [:ul.absentlist
-       [:li [:h4 "Out"]]
-       (doall
-        (for [out (s/absent letter)]
-          (let [n (:name out)]
-            ^{:key n}
-            [:li.absent n])))]]]))
+  [:li.room
+   [:div.roomContent
+    [:h4.roomletter (str "Room " letter)]
+    [kidlist max enrolled]
+    [absentlist letter]]])
 
 (defn core-roster
   "Render all core rooms"