nandi/jolt-native · counter.clj

⑂ 121e5f1d751e8003ea229e70debf486b9bea3286

counter.clj · 23 lines · 792 BClojure    Blame HistoryRaw
glimmer-cosmic: a libcosmic backend for glimmer (spike)   1(ns glimmer-cosmic.counter
"glimmer's counter, rendered by libcosmic.
The component is glimmer-vidya's, character for character; only the backend
require differs."
(:require [glimmer.ratom :as r :refer [atom]]
          [glimmer.core :as ui]
          [glimmer-cosmic.core]))
10(defn counter []
(let [count (atom 0)]
12
    [:page {:max-width 420}
     [:card {}
      [:title {:label "Counter"}]
      [:label {:label (str "Count: " @count)}]
      [:hbox {:spacing 8}
       [:button {:label "- 1" :on-click #(swap! count dec)}]
       [:button {:label "+ 1" :kind :primary :on-click #(swap! count inc)}]
       [:button {:label "reset" :on-click #(reset! count 0)}]]]])))
22(defn -main [& _]
(ui/run counter :title "counter" :width 480 :height 320))

glimmer-cosmic: a libcosmic backend for glimmer (spike) 6a3304d nandi 8d ago	1	(ns glimmer-cosmic.counter
	2	"glimmer's counter, rendered by libcosmic.
	3
	4	The component is glimmer-vidya's, character for character; only the backend
	5	require differs."
	6	(:require [glimmer.ratom :as r :refer [atom]]
	7	[glimmer.core :as ui]
	8	[glimmer-cosmic.core]))
	9
	10	(defn counter []
	11	(let [count (atom 0)]
	12	(fn []
	13	[:page {:max-width 420}
	14	[:card {}
	15	[:title {:label "Counter"}]
	16	[:label {:label (str "Count: " @count)}]
	17	[:hbox {:spacing 8}
	18	[:button {:label "- 1" :on-click #(swap! count dec)}]
	19	[:button {:label "+ 1" :kind :primary :on-click #(swap! count inc)}]
	20	[:button {:label "reset" :on-click #(reset! count 0)}]]]])))
	21
	22	(defn -main [& _]
	23	(ui/run counter :title "counter" :width 480 :height 320))