                     (do
                       (om/transact!
                        app (fn [app]
-                             (let [selected (get-selected)]
+                             (let [selected (selected)]
                                (if (empty? selected)
-                                 app (set-selected app selected {:text-fn text-fn})))))
+                                 app (selected-set app selected {:text-fn text-fn})))))
                       (om/set-state! own :show-popup? false))
                     ;; Или повторно открываем поиск...
                     (open)))]




(defn get-selected [app]
  (:selected app))


(defn set-selected
  ([app row]
   (set-selected app row {:text-fn :keyname}))
  ([app row {:keys [text-fn]}]
   (-> app
       (assoc :selected row)
       (update-in [:input] input/set-value! (text-fn row)))))


(def select-step-omut (partial select-step [:omut-row :selected]))

                       input/value
                       (search-data-fn chan-ret-data)))

                (selected []
                  (->> @app
                       :data
                       (filter #(get-in % [:omut-row :selected]))
