chore: remove repeat calls of safe-decode-uri-component

deps/common/src/logseq/common/path.cljs

@@ -143,12 +143,12 @@
          (join-fn))))
 
 (defn url-join
-  "Segments are not URL-ecoded"
+  "Segments are not URL-encoded"
   [base-url & segments]
   (let [^js url (js/URL. (safe-decode-uri-component base-url))
         scheme (.-protocol url)
         domain (or (not-empty (.-host url)) "/")
-        path (safe-decode-uri-component (.-pathname url))
+        path (.-pathname url)
         encoded-new-path (apply uri-path-join-internal path segments)]
     (str scheme "//" domain encoded-new-path)))
 
@@ -196,10 +196,10 @@
 
 (defn url-normalize
   [origin-url]
-  (let [^js url (js/URL. origin-url)
+  (let [^js url (js/URL. (safe-decode-uri-component origin-url))
         scheme (.-protocol url)
-        domain (or (not-empty (.-host url)) "")
-        path (safe-decode-uri-component (.-pathname url))
+        domain (or (not-empty (.-host url)) "/")
+        path (.-pathname url)
         encoded-new-path (uri-path-join-internal path)]
     (str scheme "//" domain encoded-new-path)))
 
@@ -226,7 +226,7 @@
                                         (str "original-url: " original-url
                                              " url: " (string/replace (safe-decode-uri-component original-url) "assets://" "file://")))
                       (throw e)))
-          path (safe-decode-uri-component (.-pathname url))
+          path (.-pathname url)
           host (.-host url)
           path (if (string/starts-with? path "///")
                  (subs path 2)