   []
   (reset! u/project-dir @u/project-dir))
 
+(defn scrollify
+  [widget]
+  (scroll-pane widget (style :scroll-pane nil nil nil nil nil)))
+
 (defscreen main-screen
   :on-show
   (fn [screen entities]


(declare nightmod main-screen blank-screen overlay-screen)

(def ^:const border-space 5)

(defn read-title
  [f]

                  :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 pad-space :y pad-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 pad-space))]))
  :on-render
  (fn [screen entities]
    (->> (for [e entities]
