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

[back/fix] process answer images

Browse source
This commit is contained in:
SouthFox 2023-09-04 09:25:20 +08:00
parent dcd1ea6afa
commit ff44684329
1 changed files with 13 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -79,6 +79,13 @@
:title "Not Found"}}
(process-hu-post page params))))
(defn clean-answer-img
[content]
(let [docs (Jsoup/parse content)]
(clean-images docs)
(.toString docs))
)
(defn build-api-hu-post
[request]
(let [post-id (-> request :path-params :id)]
@ -95,7 +102,7 @@
:url_token (get-in m ["target" "author" "url_token"] )
:name (get-in m ["target" "author" "name"])}
:id (get-in m ["target" "id"])
:content (get-in m ["target" "content"])
:content (clean-answer-img (get-in m ["target" "content"]))
:created_time (get-in m ["target" "created_time"])
:updated_time (get-in m ["target" "updated_time"])
:comment_count (get-in m ["target" "comment_count"])
@ -106,7 +113,7 @@
:url_token (get-in m ["author" "urlToken"])
:name (get-in m ["author" "name"])}
:id (get m "id")
:content (get m "content")
:content (clean-answer-img (get m "content"))
:created_time (get m "createdTime")
:updated_time (get m "updatedTime")
:comment_count (get m "commentCount")