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

[back/refactor] remove function parameter

Browse source
This commit is contained in:
SouthFox 2023-09-12 21:50:45 +08:00
parent 64aa07a572
commit 44ea7aaca9
1 changed files with 12 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -149,22 +149,20 @@
question-json))
(defn build-paging-next
[question-id next]
(let [cursor (last (re-find #"cursor=(.*?)&" next))
session-id (last (re-find #"session_id=(.*?)(?:&|$)" next))]
{"question_id" question-id
"cursor" cursor
"session_id" session-id}
))
[next-url]
(let [cursor (last (re-find #"cursor=(.*?)&" next-url))
session-id (last (re-find #"session_id=(.*?)(?:&|$)" next-url))]
{"cursor" cursor
"session_id" session-id}))
(defn process-api-paging
[question-id docs]
(let [next (get docs "next")]
(let [next-url (get docs "next")]
{:paging (merge
{"page" (get docs "page")
"is_end" (get docs "is_end")}
(build-paging-next question-id next))}))
"is_end" (get docs "is_end")
"question_id" question-id}
(build-paging-next next-url))}))
(defn process-json-paging
[question-id docs]
@ -175,8 +173,9 @@
(let [next_url (get answers "next")]
{:paging (merge
{"page" nil
"is_end" false}
(build-paging-next question-id next_url))}))))
"is_end" false
"question_id" question-id}
(build-paging-next next_url))}))))
(defn fetch-hu-question
[request params]