          ["#clear-screen" {:on-click #(dispatch-sync [:clear @active-channel])}]
          ["#clear-all" {:on-click #(dispatch-sync [:clear-all])}]
          ["#toggle-import-dlg" {:on-click #(dispatch-sync [:toggle-import-visibility])}]
+
+
+         ["#import-dlg" {:class (visibility-class @import-visible?)}]
          ["#textareaimport-button" 
           {:on-click 
            (fn [] 

        active-channel (reaction (@channels @active-list-idx))] 
    (fn []
      (xform ctl-tpl 
             ["#import-dlg" {:style (display?  import-visible?)}]
             ["#control-panel" {:class (clojure.string/lower-case (playstates (:playstate @player)))}]
             ["#playbutton" {:on-click #(dispatch-sync [:toggle-play])} ]
             ["#dataview" {:style (display? dataview-visible?)}]
             ["#dataview" :*> (dataview active-channel channels active-list-idx)]

             ["#ejectbutton" {:on-click #(dispatch-sync [:toggle-dataview-visibility])} ]
             ["#play-state" (playstates (:playstate player))]

    "display: block;"
    "display: none;"))

(defn visibility-class [visible?]
  (if visible?
    ""
    "hidden"))

(defn data-item [items channel]
  (for [item items] 
    [:div  
