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

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

@ -28,7 +28,7 @@
(-> (.select docs "figure > noscript") (-> (.select docs "figure > noscript")
(.tagName "div")) (.tagName "div"))
(doseq [img (.select docs "figure > div > img")] (doseq [img (.select docs "figure > div > img")]
(.attr img "loading" "lazy"))) (.attr img "loading" "lazy")))
(defn render-linkcard (defn render-linkcard
[docs] [docs]
@ -79,13 +79,20 @@
:title "Not Found"}} :title "Not Found"}}
(process-hu-post page params)))) (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 (defn build-api-hu-post
[request] [request]
(let [post-id (-> request :path-params :id)] (let [post-id (-> request :path-params :id)]
(fetch-hu-post post-id (fetch-hu-post post-id
{:content-type {"Content-Type" "application/json; charset=utf-8"} {:content-type {"Content-Type" "application/json; charset=utf-8"}
:replace-str "#/item/" :replace-str "#/item/"
:wrap-fn wrap-json}))) :wrap-fn wrap-json})))
(defn build-answer (defn build-answer
[m] [m]
@ -95,7 +102,7 @@
:url_token (get-in m ["target" "author" "url_token"] ) :url_token (get-in m ["target" "author" "url_token"] )
:name (get-in m ["target" "author" "name"])} :name (get-in m ["target" "author" "name"])}
:id (get-in m ["target" "id"]) :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"]) :created_time (get-in m ["target" "created_time"])
:updated_time (get-in m ["target" "updated_time"]) :updated_time (get-in m ["target" "updated_time"])
:comment_count (get-in m ["target" "comment_count"]) :comment_count (get-in m ["target" "comment_count"])
@ -106,7 +113,7 @@
:url_token (get-in m ["author" "urlToken"]) :url_token (get-in m ["author" "urlToken"])
:name (get-in m ["author" "name"])} :name (get-in m ["author" "name"])}
:id (get m "id") :id (get m "id")
:content (get m "content") :content (clean-answer-img (get m "content"))
:created_time (get m "createdTime") :created_time (get m "createdTime")
:updated_time (get m "updatedTime") :updated_time (get m "updatedTime")
:comment_count (get m "commentCount") :comment_count (get m "commentCount")