southfox/liberty-hu
1
0
Fork 0
Code Issues 2 Pull requests Projects Releases Packages Wiki Activity Actions

[hugo/fix] wrong internal link

Browse source
This commit is contained in:
SouthFox 2023-08-29 11:06:03 +08:00
parent 271b82999b
commit 2809634cda
1 changed files with 13 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
src/main/backend/handlers.clj
View file

@ -12,15 +12,18 @@
(defn clean-html
[docs]
(-> (.select docs "style[data-emotion-css~=^[a-z0-9]*$]")
(.remove))
(doseq [a (.select docs "a")]
(.attr a "href"
(-> (.attr a "href")
(str/replace "https://link.zhihu.com/?target=" "")
(str/replace "https://zhuanlan.zhihu.com/p/" "#/item/")
(url-decode)))))
[docs hugo]
(let [replace-str (if hugo
"/hp/"
"#/item/")]
(-> (.select docs "style[data-emotion-css~=^[a-z0-9]*$]")
(.remove))
(doseq [a (.select docs "a")]
(.attr a "href"
(-> (.attr a "href")
(str/replace "https://link.zhihu.com/?target=" "")
(str/replace "https://zhuanlan.zhihu.com/p/" replace-str)
(url-decode))))))
(defn clean-images
@ -48,7 +51,7 @@
title (.getElementsByClass page "Post-Title")
post-time (.getElementsByClass page "ContentItem-time")
docs (.getElementsByClass page "Post-RichTextContainer")]
(clean-html docs)
(clean-html docs hugo)
(clean-images docs)
(render-linkcard docs)
(let [content {:content (.toString docs)