 ;;**************************************************************************************************
 
 (def virtual-pages-app-init
-  {:current :main
-   })
+  {:current :main})
 
 (defn virtual-pages-current [app]
-  (@app :current))
-
-(defn virtual-pages-go-to-page [app page]
+  (app :current))
+
+(defn virtual-pages-go-to-page!! [app page]
   (om/update! app :current page))
 
 (defn ui-virtual-page-<<

  (and (not (js/isNaN (js/parseFloat n))) (js/isFinite n)))


(defn parse-int-or-nil [v]
  (if (is-numeric? v)
    (js/parseInt v)
    nil))


(defn on-click-com-fn [f]

(def textarea-app-init
  {:value ""})

(defn textarea-value [app] (get app :value))

(defn textarea [app owner {:keys [class+
                                  onChange-valid?-fn
