 
 (defn create-card
   []
-  (doto (s/border-panel :id :file-browser
-                        :north (ui/wrap-panel :items (create-widgets))
-                        :center (s/scrollable (ui/wrap-panel :id :file-grid)))
-    shortcuts/create-hints!
-    (shortcuts/create-mappings! (create-actions))))
+  (let [actions (create-actions)
+        widgets (create-widgets actions)
+        widget-bar (ui/wrap-panel :items (map #(get widgets % %) *widgets*))]
+    (doto (s/border-panel :id :file-browser
+                          :north widget-bar
+                          :center (s/scrollable (ui/wrap-panel :id :file-grid)))
+      shortcuts/create-hints!
+      (shortcuts/create-mappings! actions))))
 
 (defn update-card!
   ([path]

   :cancel finish-edits!})

(defn create-widgets
  []
  [(create-up-button)
   (ui/button :id :new-file
              :text (utils/get-string :new-file)
              :listen [:action new-file!]
              :focusable? false)
   (ui/button :id :edit
              :text (utils/get-string :edit)
              :listen [:action edit-files!]
              :focusable? false)
   (ui/button :id :save
              :text (utils/get-string :save)
              :listen [:action save-edits!]
              :focusable? false)
   (ui/button :id :cancel
              :text (utils/get-string :cancel)
              :listen [:action finish-edits!]
              :focusable? false)])

(defn toggle-visible!
  [view path]

                 :#new-file (not edit?)
                 :#edit (and (not edit?)
                             (->> (io/file path)
                                  .listFiles
                                  (filter #(.isFile %))
                                  seq))
                 :#save edit?
                 :#cancel edit?}]
    (doseq [[id should-show?] buttons]
