clone/logseq
1
0
Fork 0
mirror of https://github.com/logseq/logseq.git synced 2026-05-01 01:16:27 +00:00
Code Issues Packages Projects Releases Wiki Activity

enhance(mobile): polish interaction for the onboarding graph picker

Browse Source
This commit is contained in:
charlie
2022-11-05 19:04:50 +08:00
committed by Tienson Qin
parent 5c39af2723
commit 2697ffd82c
9 changed files with 64 additions and 43 deletions
Download Patch File Download Diff File Expand all files Collapse all files

36
src/main/frontend/fs/capacitor_fs.cljs
View File

@@ -213,29 +213,33 @@
(log/error :write-file-failed error)))))))))
(defn normalize-file-protocol-path [dir path]
(let [dir (some-> dir (string/replace #"/+$" ""))
dir (if (and (not-empty dir) (string/starts-with? dir "/"))
(do
(js/console.trace "WARN: detect absolute path, use URL instead")
(str "file://" (js/encodeURI dir)))
dir)
path (some-> path (string/replace #"^/+" ""))
encode-url #(let [encoded-chars?
(and (string? %) (boolean (re-find #"(?i)%[0-9a-f]{2}" %)))]
(cond-> %
(not encoded-chars?)
(js/encodeURI path)))]
(let [dir (some-> dir (string/replace #"/+$" ""))
dir (if (and (not-empty dir) (string/starts-with? dir "/"))
(do
(js/console.trace "WARN: detect absolute path, use URL instead")
(str "file://" (js/encodeURI dir)))
dir)
path (some-> path (string/replace #"^/+" ""))
safe-encode-url #(let [encoded-chars?
(and (string? %) (boolean (re-find #"(?i)%[0-9a-f]{2}" %)))]
(cond
(not encoded-chars?)
(js/encodeURI %)
:else
(js/encodeURI (js/decodeURI %))))]
(cond (string/blank? path)
(encode-url dir)
(safe-encode-url dir)
(string/blank? dir)
(encode-url path)
(safe-encode-url path)
(string/starts-with? path dir)
(encode-url path)
(safe-encode-url path)
:else
(let [path' (encode-url path)]
(let [path' (safe-encode-url path)]
(str dir "/" path')))))
(defn- local-container-path?