Better graph experience

This commit is contained in:
Tienson Qin
2020-07-07 09:17:22 +08:00
parent 04732ea8d0
commit f371a4dfac
7 changed files with 40 additions and 13 deletions

View File

@@ -28,8 +28,12 @@
(or
(and
(= typ "Search")
(not (contains? #{\# \*} (first (second (:url (second block))))))
(second (:url (second block))))
(not (contains? #{\# \* \/ \( \[} (first (second (:url (second block))))))
(let [page (second (:url (second block)))]
(when (and (not (string/starts-with? page "http"))
(not (string/starts-with? page "file"))
(not (string/ends-with? page ".html")))
page)))
(and
(= typ "Complex")