 (defn- add-items
   []
   (when (check-project-dir)
-    (map #(hash-map :name (-> % files/basename files/without-ext)
+    (map #(hash-map :name (path->project-name %)
                     :path %)
          (files/full-path-ls @project-directory))))
 

  [:input {:type "file" :nwsaveas (or path true)}]
  :change (fn []
            (this-as me
                     (when-not (empty? (dom/val me))
                       (let [path (if (empty? (files/ext (dom/val me)))
                                    (str (dom/val me) ".edn")
                                    (dom/val me))]
                         (save path project)
                         (change-opened-project-path path))))))


;;;

  [path]
  (-> path files/basename files/without-ext))

(defn- add-ext
  [path extname]
  (if (empty? (files/ext path))
    (str path extname)
    path))

(defn- load-project
  [path]
  (when (files/file? path)
