index.cljs.hl

(page "index.html")

(def current-route (route-cell))
(cell= (println current-route))

(defmethod do! :set-class
  [elem _ class-name]
  (.attr (js/jQuery elem) "class" class-name))

(defelem smart-a [attrs kids]
  (let [class (cell= (if (= (:href attrs) current-route)
                       "active"
                       "inactive"))]
    (cell= (println class))
    (a (assoc attrs :set-class class)
      kids)))

(html
  (head
    (link :href "app.css" :rel "stylesheet"))
  (body
    (ul
      (li
        (smart-a :href "#/foo/bar" "Link to #/foo/bar"))
      (li
        (smart-a :href "#/" "Link to /")))))