fortune.cljc

(ns app.fortune
  #?(:cljs (:require-macros app.fortune))
  (:require #?(:clj [clojure.java.shell :as sh])
            [hyperfiddle.electric :as e]
            [hyperfiddle.electric-dom2 :as dom]
            [hyperfiddle.electric-ui4 :as ui]))

#?(:clj (defn fortune [] (:out (sh/sh "fortune"))))
#?(:clj (defonce !x (atom (fortune))) )
(e/def x (e/server (e/watch !x)))

(e/defn Fortune []
  (e/client
    (dom/h1 (dom/text "Fortune"))
    (dom/pre (dom/text (e/server x)))
    (dom/br)
    (ui/button (e/fn [] (e/server (reset! !x (fortune)))) (dom/text "New Fortune"))))