Page name allows ( to be first char

This commit is contained in:
Tienson Qin
2020-11-23 23:11:40 +08:00
parent e00b1693c6
commit b38ee92ce9

View File

@@ -31,7 +31,8 @@
(or
(and
(= typ "Search")
(not (contains? #{\# \* \/ \( \[} (first (second (:url (second block))))))
;; FIXME: alert error
(not (contains? #{\# \* \/ \[} (first (second (:url (second block))))))
(let [page (second (:url (second block)))]
(when (and (not (util/starts-with? page "http"))
(not (util/starts-with? page "file"))