This page is not created by, affiliated with, or supported by Slack Technologies, Inc.
2021-12-12
Channels
- # adventofcode (49)
- # announcements (22)
- # beginners (33)
- # calva (5)
- # clj-kondo (6)
- # clojure (30)
- # clojure-europe (6)
- # clojure-japan (1)
- # clojure-nl (9)
- # core-logic (17)
- # data-oriented-programming (1)
- # datalevin (1)
- # datomic (2)
- # gratitude (2)
- # jobs (2)
- # kaocha (8)
- # lsp (1)
- # malli (8)
- # meander (8)
- # off-topic (18)
- # rdf (1)
- # re-frame (4)
- # reagent (16)
- # releases (1)
- # sci (1)
- # sql (1)
- # tools-deps (4)
- # xtdb (3)
(defn main-panel []
(let [text (re-frame/subscribe [::subs/read-value])]
[:section.hero.is-fullheight
[:div.hero-body.has-text-centered
[:div.container
[:div.box
[:div.columns.is-flex.is-flex-direction-row
[:div.column.is-two-fifths
[:textarea.textarea {:rows 8, :on-change #(re-frame/dispatch [::events/update-text (-> % .-target .-value)])}]]
[:div.column.is-one-fifths.is-flex.is-flex-direction-column
[:button.button.is-primary.is-medium.flex-grow-1 {:on-click #(re-frame/dispatch[::events/read-text])} "Normal Text >>"]
[:button.button.is-primary.is-medium.flex-grow-1.mt-3 {:on-click #(re-frame/dispatch[::events/uppercase-text])} "Uppercase Text >>"]
[:button.button.is-primary.is-medium.flex-grow-1.mt-3 {:on-click #(re-frame/dispatch[::events/lowercase-text])} "Lowercase Text >>"]
[:button.button.is-primary.is-medium.flex-grow-1.mt-3 {:on-click #(re-frame/dispatch[::events/reversed-text])} "reverse Text >>"]]
[:div.column.is-two-fifths
[:p @text]]]]]]]))