 ;;**************************************************************************************************
 
 
-(defn text-collapser [app owner {k :k}]
+(defn text-collapser [app _ {k :k}]
   (reify
     om/IWillMount
     (will-mount [_]

                 text))))))

;; END Long text collapser
;;..................................................................................................








(defn omut-row-set-collapsed!! [app-row k v]
  (om/transact!
   app-row
   (fn [app-row]
     (assoc-in app-row [omut-row-key :collapsed k] v))))

(defn omut-row-set-collapsed-not!! [app-row k]
  (om/transact!
   app-row
   (fn [app-row]
     (println (app-row omut-row-key))
     (let [v (get-in app-row [omut-row-key :collapsed k])]
       (assoc-in app-row [omut-row-key :collapsed k] (if (nil? v) false (not v)))))))

(defn omut-row-collapsed? [app-row k]
  (get-in app-row [omut-row-key :collapsed k] true))
