         msg (str "Background Color: The background "
                  "is transparent on cancel")
         color (js/prompt msg)
-        msg (str "Image Scale")
+        msg "Image Scale"
         scale (js/prompt msg 0.8)
         options (clj->js
                  (as-> {} options


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Text Input Stat View

(defcomponent stat-view [app _]
  (render
   [_]
   (let [{:keys [wcount
                 lcount
                 ncount]
          :or {wcount 0
               lcount 0
               ncount 0}} app]
       (dom/div {:id "stats"}
                (dom/span "Words: " wcount " ")
                (dom/span ", Lines: " lcount " ")
                (dom/span ", Numbers: " ncount " ")))))


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Text Input


                        (text-input-words {:txt txt}))]
    {:numbers numbers
     :count (count numbers)}))

(defn text-input-did-update [transactional-state]
  (let [ts transactional-state
