[hugo/feat] add static frontend support
This commit is contained in:
parent
10d2732f5a
commit
271b82999b
3 changed files with 24 additions and 6 deletions
|
@ -1,14 +1,17 @@
|
|||
(ns backend.core
|
||||
(:require [org.httpkit.server :as server]
|
||||
[reitit.ring :as ring]
|
||||
[backend.handlers :as handlers])
|
||||
[backend.handlers :as handlers]
|
||||
[backend.hugo.site :as hugo])
|
||||
(:gen-class))
|
||||
|
||||
|
||||
(def app
|
||||
(ring/ring-handler
|
||||
(ring/router
|
||||
[["/api"
|
||||
[["/hp/:id" {:parameters {:path {:id int?}}
|
||||
:get {:handler hugo/build-hu-post}}]
|
||||
["/api"
|
||||
["/hp/:id" {:parameters {:path {:id int?}}
|
||||
:get {:handler handlers/fetch-hu-post}}]]])
|
||||
(ring/routes
|
||||
|
|
|
@ -41,7 +41,7 @@
|
|||
|
||||
|
||||
(defn fetch-hu-post
|
||||
[request]
|
||||
[request & {:keys [hugo]}]
|
||||
(let [id (-> request :path-params :id)
|
||||
post-url (str/join ["https://zhuanlan.zhihu.com/p/" id])
|
||||
page (-> (client/get post-url) :body Jsoup/parse)
|
||||
|
@ -54,6 +54,8 @@
|
|||
(let [content {:content (.toString docs)
|
||||
:title (.text title)
|
||||
:time (first (str/split (.text post-time) #"・"))}]
|
||||
(if hugo
|
||||
(.toString docs)
|
||||
{:status 200
|
||||
:headers {"Content-Type" "application/json; charset=utf-8"}
|
||||
:body (wrap-json content)})))
|
||||
:body (wrap-json content)}))))
|
||||
|
|
13
src/main/backend/hugo/site.clj
Normal file
13
src/main/backend/hugo/site.clj
Normal file
|
@ -0,0 +1,13 @@
|
|||
(ns backend.hugo.site
|
||||
(:require [backend.handlers :as handlers]
|
||||
[hiccup2.core :as hiccup]))
|
||||
|
||||
|
||||
(defn build-hu-post
|
||||
[request]
|
||||
|
||||
{:status 200
|
||||
:headers {"Content-Type" "text/html; charset=utf-8"}
|
||||
:body (str (hiccup/html {:escape-strings? false}
|
||||
[:html
|
||||
[:body (handlers/fetch-hu-post request {:hugo true})]]))})
|
Loading…
Reference in a new issue