                        :on-message #(a/put! output %)}]])
        :component-will-unmount
          (fn [_] (a/put! closer :close) (a/close! closer))})))
-
-
-
-
-
 
 (defn selection-view [action-channel]
   (let [drag-model (atom {:dragging? false

      (let [[val c] (alts! [input closer])]
        (when-not (or (= c closer) (nil? val))
          (try
            (println val)
            (some-> @webview (.postMessage val))
            (catch :default e
              (.trace js/console e)))


              [view {:style (-> s/selection-view :details)}
                [text (:description item)]]]))))))

(defn list-view-item [action-channel item]
  [touchable-opacity {:on-press #(a/put! action-channel [:list-item-view/select item])}
