 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 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 " ")))))
-
+(defcomponent stat-view
+  [{:keys [wcount
+           lcount
+           ncount]
+    :or {wcount 0
+         lcount 0
+         ncount 0}}
+   _]
+  (render
+   [_]
+   (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-number-count [{:keys [txt]}]
  (count (text-input-number-count {:txt txt})))

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

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