                #(swap! screen-state-atom
                        assoc :x 0 :y 0 :z 0 :zoom 1)))
 
-;(defn handle-open [window]
-;  (bind-window-keys window ["S"] create-dir-dialog))
+;; toggling split pane
 
 (defn redraw-frame [frame]
   (doto (.getContentPane frame)

    (.setLeftComponent left-panel)
    (.setRightComponent right-panel)
    restore-divider-location!)
  (redraw-frame frame))  

(defn toggle-1x-view [{:keys [split-pane] :as widgets}]
  (if (.getParent split-pane)

(defn hide-1x-view [{:keys [frame content-pane split-pane left-panel right-panel]}]
  (doto split-pane
    remember-divider-location!
    (.remove left-panel)
    (.remove right-panel))
  (doto content-pane
    (.remove split-pane)
    (.add left-panel))
  (.setBounds right-panel 0 0 0 0) ; ensures redraw on restoration
  (redraw-frame frame))  

(defn show-1x-view [{:keys [frame content-pane split-pane left-panel right-panel]}]
