fix: more rename sanity

src/main/frontend/db/model.cljs

@@ -1429,7 +1429,7 @@
   "Accepts both sanitized and unsanitized namespaces"
   [repo namespace]
   (assert (string? namespace))
-  (let [namespace (string/lower-case namespace)]
+  (let [namespace (util/page-name-sanity-lc namespace)]
     (d/q
       '[:find [(pull ?c [:db/id :block/name :block/original-name
                          :block/namespace

src/main/frontend/handler/page.cljs

@@ -388,10 +388,10 @@
         (d/transact! (db/get-conn repo false) page-txs)
 
         (when (not= new-page-name new-name)
-          (page-property/add-property! new-name :title new-name))
+          (page-property/add-property! new-page-name :title new-name))
 
         (when (and file (not journal?))
-          (rename-file! file new-name (fn [] nil)))
+          (rename-file! file new-file-name (fn [] nil)))
 
         (rename-update-refs! page old-original-name new-name)
 
@@ -451,7 +451,7 @@
   "Only accepts unsanitized names"
   [repo old-name new-name]
   (let [pages (db/get-namespace-pages repo old-name)
-        page (db/pull [:block/name (string/lower-case old-name)])
+        page (db/pull [:block/name (util/page-name-sanity-lc old-name)])
         pages (cons page pages)]
     (doseq [{:block/keys [name original-name]} pages]
       (let [old-page-title (or original-name name)

src/main/frontend/util/page_property.cljs

@@ -48,6 +48,7 @@
    content kvs))
 
 (defn add-property!
+  "Sanitized page-name, unsanitized key / value"
   [page-name key value]
   (when-let [page (db/pull [:block/name (string/lower-case page-name)])]
     (let [repo (state/get-current-repo)