Browse Source

fix: don't rename journal files

Tienson Qin 5 years ago
parent
commit
c49a31778a
1 changed files with 6 additions and 5 deletions
  1. 6 5
      src/main/frontend/handler/page.cljs

+ 6 - 5
src/main/frontend/handler/page.cljs

@@ -320,13 +320,14 @@
         (notification/show! "Page already exists!" :error)
         (when-let [page (db/entity [:page/name (string/lower-case old-name)])]
           (let [old-original-name (:page/original-name page)
-                file (:page/file page)]
+                file (:page/file page)
+                journal? (:page/journal? page)]
             (d/transact! (db/get-conn repo false)
                          [{:db/id (:db/id page)
                            :page/name (string/lower-case new-name)
                            :page/original-name new-name}])
 
-            (when file
+            (when (and file (not journal?))
               (rename-file! file new-name
                             (fn []
                               (page-add-properties! (string/lower-case new-name) {:title new-name}))))
@@ -410,9 +411,9 @@
                        page)
           (let [journal? (date/valid-journal-title? page)
                 ref-file-path (str (get-directory journal?)
-                          "/"
-                          (get-file-name journal? page)
-                          ".org")]
+                                   "/"
+                                   (get-file-name journal? page)
+                                   ".org")]
             (create! page {:redirect? false})
             (util/format "[[file:%s][%s]]"
                          (util/get-relative-path edit-block-file-path ref-file-path)