@@ -1,13 +1,13 @@

 (set-env!

-  :dependencies '[[adzerk/boot-cljs          "2.1.5"]

-                  [adzerk/boot-reload        "0.6.0"]

-                  [hoplon/hoplon             "7.2.0"]

-                  [org.clojure/clojure       "1.10.1"]

-                  [org.clojure/clojurescript "1.10.773"]

-                  [tailrecursion/boot-jetty  "0.1.3"]

-                  [jakarta.xml.bind/jakarta.xml.bind-api "2.3.3"]]

-  :source-paths #{"src"}

-  :asset-paths  #{"assets"})

+ :dependencies '[[adzerk/boot-cljs          "2.1.5"]

+                 [adzerk/boot-reload        "0.6.0"]

+                 [hoplon/hoplon             "7.2.0"]

+                 [org.clojure/clojure       "1.10.1"]

+                 [org.clojure/clojurescript "1.10.773"]

+                 [tailrecursion/boot-jetty  "0.1.3"]

+                 [jakarta.xml.bind/jakarta.xml.bind-api "2.3.3"]]

+ :source-paths #{"src"}

+ :asset-paths  #{"assets"})

 (require

   '[adzerk.boot-cljs         :refer [cljs]]

@@ -19,12 +19,12 @@

   "Build hoplon-try-again for local development."

   []

   (comp

-    (watch)

-    (speak)

-    (hoplon)

-    (reload)

-    (cljs)

-    (serve :port 8000)))

+   (watch)

+   (speak)

+   (hoplon)

+   (reload)

+   (cljs)

+   (serve :port 8000)))

 (deftask prod

   "Build hoplon-try-again for production deployment."

@@ -1,10 +1,26 @@

-(ns ^{:hoplon/page "index.html"} pages.index

+(ns ^{:hoplon/page "index.html"}

+    pages.index

   (:require [hoplon.core  :as h :refer [div ul li html link head title body h1 span p button text]]

             [javelin.core :as j :refer [cell cell=]]

             [hoplon.jquery]))

+(defn my-list [& items]

+  (div

+   :class "my-list"

+   (apply ul (map #(li (div :class "my-list-item" %)) items))))

+

+(def clicks (cell 0))

+(def cell1 (cell 2))

+

 (html

-  (head

-    (link :href "app.css" :rel "stylesheet" :type "text/css"))

-  (body

-    (h1 "Hello, Hoplon!")))

+ (head

+  (title "example page"))

+ (body

+  (h1 "Hello, Hoplon")

+

+  (my-list

+   (span "first thing")

+   (span "second thing"))

+

+  (p (text "You've clicked ~{clicks} ~{cell1} ... times, so far."))

+  (button :click #(swap! clicks inc) "click me")))