 
 (defn read-title
   [f]
-  [(.getCanonicalPath f)
-   (or (-> (io/file f u/properties-file)
+  [(or (-> (io/file f u/properties-file)
             slurp
             edn/read-string
             :title

           Long/parseLong
           u/format-date
           (try (catch Exception _)))
       (.getName f))])

(defn load-project!
  [path]

    (when-not @u/main-dir
      (reset! u/main-dir (u/get-data-dir)))
    (let [ui-skin (skin "uiskin.json")
          create-button (fn [[display-name path]]
                          (text-button display-name ui-skin :set-name path))
          new-games (->> (for [i (range (count templates))]
                           [(nc-utils/get-string (nth templates i))
                            (nth templates i)])
                         (map create-button))
          saved-games (->> (io/file @u/main-dir)
                           .listFiles
