       (case (:id e)
         :menu (assoc e :y (- height
                              (vertical! e :get-height)
-                             border-space))
+                             pad-space))
         :error (assoc e :width width :height height)
         e)))
   :on-ui-changed

                  :set-wrap true
                  :set-alignment (bit-or (align :left) (align :bottom)))
           (scroll-pane (style :scroll-pane nil nil nil nil nil))
           (assoc :id :error :x border-space :y border-space))
       (-> [(text-button "Home" ui-skin :set-name "home")
            (text-button "Restart" ui-skin :set-name "restart")
            (text-button "Files" ui-skin :set-name "files")]
           (vertical :pack)
           (assoc :id :menu :x border-space))]))
  :on-render
  (fn [screen entities]
    (->> (for [e entities]

          new-games (->> (for [i (range (count u/templates))
                               :let [template (nth u/templates i)]]
                           [(nc-utils/get-string template) template])
                         (map create-button))
          saved-column (-> (label (nc-utils/get-string :load) ui-skin)
                           (cons saved-games)
                           (vertical :pack)
                           scrollify)
          load-column (-> (label (nc-utils/get-string :new) ui-skin)
                          (cons new-games)
                          (vertical :pack)
                          scrollify)]
      (table [(when (seq saved-games)
                [saved-column :pad pad-space pad-space pad-space pad-space])
              [load-column :pad pad-space pad-space pad-space pad-space]]
             :align (align :center)
             :set-fill-parent true)))
  :on-render
  (fn [screen entities]
    (clear!)
