fix: Can't change the case of a page name

Resolved #1555

src/main/frontend/components/commit.cljs

@@ -39,8 +39,7 @@
         "Your commit message:"]]]
 
      [:input#commit-message.form-input.block.w-full.sm:text-sm.sm:leading-5.my-2
-      {:style {:color "#000"}
-       :auto-focus true
+      {:auto-focus true
        :default-value ""}]
 
      [:div.mt-5.sm:mt-4.sm:flex.sm:flex-row-reverse

src/main/frontend/components/page.cljs

@@ -185,7 +185,6 @@
 
        [:input.form-input.block.w-full.sm:text-sm.sm:leading-5.my-2
         {:auto-focus true
-         :style {:color "#000"}
          :on-change (fn [e]
                       (reset! input (util/evalue e)))}]
 

src/main/frontend/components/project.cljs

@@ -31,7 +31,6 @@
 
      [:input.form-input.block.w-full.sm:text-sm.sm:leading-5.my-2
       {:auto-focus true
-       :style {:color "#000"}
        :on-change (fn [e]
                     (reset! project (util/evalue e)))}]
 

src/main/frontend/handler/page.cljs

@@ -341,50 +341,50 @@
 
 (defn rename!
   [old-name new-name]
-  (when (and old-name new-name
-             (not= (string/lower-case old-name) (string/lower-case new-name)))
-    (when-let [repo (state/get-current-repo)]
-      (if (db/entity [:page/name (string/lower-case new-name)])
-        (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)
-                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 (and file (not journal?))
-              (rename-file! file new-name
-                            (fn []
-                              (page-add-properties! (string/lower-case new-name) {:title new-name}))))
-
-            ;; update all files which have references to this page
-            (let [files (db/get-files-that-referenced-page (:db/id page))]
-              (doseq [file-path files]
-                (let [file-content (db/get-file file-path)
-                      ;; FIXME: not safe
-                      new-content (string/replace file-content
-                                                  (util/format "[[%s]]" old-original-name)
-                                                  (util/format "[[%s]]" new-name))]
-                  (file-handler/alter-file repo
-                                           file-path
-                                           new-content
-                                           {:reset? true
-                                            :re-render-root? false})))))
-
-          ;; TODO: update browser history, remove the current one
-
-          ;; Redirect to the new page
-          (route-handler/redirect! {:to :page
-                                    :path-params {:name (string/lower-case new-name)}})
-
-          (notification/show! "Page renamed successfully!" :success)
-
-          (repo-handler/push-if-auto-enabled! repo)
-
-          (ui-handler/re-render-root!))))))
+  (let [new-name (string/trim new-name)]
+    (when-not (string/blank? new-name)
+      (when (and old-name new-name
+                 (not= (string/trim old-name) (string/trim new-name)))
+        (when-let [repo (state/get-current-repo)]
+          (when-let [page (db/entity [:page/name (string/lower-case old-name)])]
+            (let [old-original-name (:page/original-name 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 (and file (not journal?))
+                (rename-file! file new-name
+                              (fn []
+                                (page-add-properties! (string/lower-case new-name) {:title new-name}))))
+
+              ;; update all files which have references to this page
+              (let [files (db/get-files-that-referenced-page (:db/id page))]
+                (doseq [file-path files]
+                  (let [file-content (db/get-file file-path)
+                        ;; FIXME: not safe
+                        new-content (string/replace file-content
+                                                    (util/format "[[%s]]" old-original-name)
+                                                    (util/format "[[%s]]" new-name))]
+                    (file-handler/alter-file repo
+                                             file-path
+                                             new-content
+                                             {:reset? true
+                                              :re-render-root? false})))))
+
+            ;; TODO: update browser history, remove the current one
+
+            ;; Redirect to the new page
+            (route-handler/redirect! {:to :page
+                                      :path-params {:name (string/lower-case new-name)}})
+
+            (notification/show! "Page renamed successfully!" :success)
+
+            (repo-handler/push-if-auto-enabled! repo)
+
+            (ui-handler/re-render-root!)))))))
 
 (defn rename-when-alter-title-property!
   [page path format original-content content]