Add instructions when downloading files that have reserved chars

This commit is contained in:
Tienson Qin
2022-11-06 23:25:26 +08:00
parent ed5e70c7e7
commit 9d29a51314
3 changed files with 29 additions and 3 deletions

View File

@@ -464,11 +464,14 @@
(boolean)))
(defn- filter-files-with-reserved-chars
"Skip downloading file paths with reserved chars."
[files]
(let [reserved-files (filter
#(fs-util/include-reserved-chars? (-relative-path %))
files)]
(when (seq reserved-files)
(state/pub-event! [:ui/notify-skipped-downloading-files
(map -relative-path reserved-files)])
(prn "Skipped downloading those file paths with reserved chars: "
(map -relative-path reserved-files))
)