swrup/geochan
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

implements discussions

Browse source
This commit is contained in:
zapashcanon 2022-03-31 01:43:59 +02:00
parent c46e401ef3
commit cf0ad20c79
No known key found for this signature in database
GPG key ID: 8981C3C62D1D28F1
6 changed files with 203 additions and 24 deletions
Download patch file Download diff file Expand all files Collapse all files

27
src/permap.ml
View file

@ -1,26 +1,4 @@
include Bindings
let get_title content =
let open Soup in
try
let soup = content |> parse in
soup $ "h1" |> R.leaf_text
with Failure _e -> "Permap"
let render ?title content request =
let title =
match title with None -> get_title content | Some title -> title
in
Dream.html
@@ Template.render_unsafe ~title:(Dream.html_escape title)
~content:(Dream.html_escape content)
request
let render_unsafe ?title content request =
let title =
match title with None -> get_title content | Some title -> title
in
Dream.html @@ Template.render_unsafe ~title ~content request
open Template_utils
let not_logged_in redirect request =
let content =
@ -484,6 +462,9 @@ let routes =
; get_ "/catalog" catalog
; get_ "/delete/:post_id" delete_get
; post "/delete/:post_id" delete_post
; get_ "/discuss" Discuss.render
; get_ "/discuss/:comrade_id" Discuss.render_one
; post "/discuss/:comrade_id" Discuss.post
; get_ "/img/:post_id" (get_post_image ~thumbnail:false)
; get_ "/img/s/:post_id" (get_post_image ~thumbnail:true)
; get_ "/login" login_get