hoplon demo

hoplon_demo.cljs

(ns view.index
  (:require
    [hoplon.core  :as h]
    [javelin.core :as j]))

(defn my-list [& items]
  (h/div :class "my-list"
    (apply h/ul (map #(h/li (h/div :class "my-list-item" %)) items))))

(defonce clicks (j/cell 0))
(def clicks-times-3 (j/cell= (* 3 clicks)))

(defn hello []
  (h/div
    (h/h1 "Hello, Hoplon")
    (my-list
      (h/span "first thing")
      (h/span "second thing"))
    (h/p (h/text "You've clicked ~{clicks} times, so far. (times 3 = ~{clicks-times-3})"))
    (h/button :click #(swap! clicks inc) "click me")))

(.replaceChildren (.getElementById js/document "app")
    (hello))