dataflow question for pedestal

gistfile1.clj

(ns ^:shared continue-set-focus.behavior
    (:require [clojure.string :as string]
              [io.pedestal.app :as app]
              [io.pedestal.app.messages :as msg]
              [io.pedestal.app.util.log :as log]))

(defn set-value-transform [old-value message]
  (:value message))

(defn init-emitter [inputs]
  [{:greeting {}
    :button {}}
   [:transform-enable [:button]
    :change-message [{msg/type :set-value msg/topic [:greeting] (msg/param :value) {}}]]])

(defn change-to-buttonless-focus [inputs]
  (log/info "change-to-buttonless focus" inputs)
  (if (and (= (-> inputs :message :io.pedestal.app.messages/type) :set-value)
           (not= "Hello World!" (-> inputs :new-model :greeting))) 
    (do
      (log/info "sending message" inputs)
      [{msg/type :set-focus msg/topic msg/app-model :name :buttonless}]
      )
    )
  )

(def example-app
  {:version 2
   :transform [[:set-value [:greeting] set-value-transform]]

   :continue [[#{[:greeting]} change-to-buttonless-focus]]
   
   :emit [{:in #{[:greeting] [:button]} :fn (app/default-emitter) :mode :always :init init-emitter}]
   
   :focus {:default :initial
           :initial [[:greeting] [:button]]
           :buttonless [[:greeting]]           
           }
   })