Skip to content

Instantly share code, notes, and snippets.

View danielcompton's full-sized avatar

Daniel Compton danielcompton

View GitHub Profile
(defn checkbox [short-name takes-place? word k]
^{:key (str k "takes-place")}
[:div.col.s2
[:input.filled-in {:type "checkbox"
:id (str "weekdays-" short-name)
:checked takes-place?}]
[:label.black-text {:for (str "weekdays-" short-name)
:style {:height "auto"
:line-height "normal"}}
word (when-not takes-place? (str " nicht" (when (= k :sun) ".")))]])