Berlin Clock kata as implemented at the Amsterdam Clojurians cljs dojo, meetup #80

berlin-clock.cljs

# Amsterdam Clojurians meetup #80
# A ClojureScript dojo: the Berlin Clock!
#
# Fork this gist and put your solution in

(ns berlinclock.core
    (:require [goog.dom :as gdom]
              [dommy.core :as dommy :refer-macros [sel sel1]]))

(defn set-color [element colorClass]
  (-> element
      (dommy/remove-class! :red)
      (dommy/remove-class! :black)
      (dommy/add-class! colorClass)))

(defn render-oddeven [date]
  (let [element (sel1 :#oddeven)]
    (if (even? (.getSeconds date))
      (set-color element :red)
      (set-color element :black))))

; (defn render-4hours [date]
;   (let [element1 (sel1 :#4hours1)
;         element2 (sel1 :#4hours2)]
;     (if (even?  (mod (.getHours date)))
;       (set-color element :red)
;       (set-color element :black))))

(defn render []
  (let [date (js/Date.)]
    (do
      (render-oddeven date))))
  
(js/setInterval #((render)) 1000)
    
(enable-console-print!)

; Todo all things except odd and even!