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

show thread subject

Browse source
This commit is contained in:
Swrup 2022-02-02 11:58:18 +01:00
parent 0f39a86487
commit 96712eeadf
2 changed files with 47 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

15
src/content/assets/css/style.css
View file

@ -47,6 +47,7 @@ blockquote.blockquote {
.postComment { .postComment {
display: block; display: block;
padding-top: 10px; padding-top: 10px;
color: #333333;
} }
.postImageContainer { .postImageContainer {
@ -78,12 +79,20 @@ blockquote.blockquote {
} }
#newthread-form { #newthread-form {
visibility: hidden; visibility: hidden;
} }
#altLabel { #altLabel {
display:none; display:none;
} }
#alt { #alt {
display:none; display:none;
}
.threadSubject {
margin: auto;
width: 50%;
text-align: center;
color: #5a5a5a;
font-size: 30px;
} }

44
src/pp_babillard.ml
View file

@ -12,10 +12,6 @@ let view_post ?is_thread_preview post_id =
Db.fold Q.get_post_replies (fun reply_id acc -> reply_id :: acc) post_id [] Db.fold Q.get_post_replies (fun reply_id acc -> reply_id :: acc) post_id []
in in
(* TODO special stuff for OP
let* _subject = Db.find_opt Q.get_post_subject post_id in
let* _latlng = Db.find_opt Q.get_post_gps post_id in
*)
let image_view = let image_view =
match image_info with match image_info with
| Some (_image_name, image_alt) -> | Some (_image_name, image_alt) ->
@ -97,10 +93,26 @@ let view_post ?is_thread_preview post_id =
in in
Ok post_view Ok post_view
let preview_thread thread_id = view_post ~is_thread_preview:() thread_id let preview_thread thread_id =
let+ post = view_post ~is_thread_preview:() thread_id in
let** subject = Db.find_opt Q.get_post_subject thread_id in
let thread_preview =
Format.sprintf
{|
<div class="threadPreview">
<div class="threadSubject">
%s
</div>
%s
</div>
|}
subject post
in
Ok thread_preview
let view_thread thread_id = let view_thread thread_id =
let** _ = Db.find_opt Q.is_thread thread_id in let** _ = Db.find_opt Q.is_thread thread_id in
let** subject = Db.find_opt Q.get_post_subject thread_id in
let* thread_posts = Db.fold Q.get_thread_posts List.cons thread_id [] in let* thread_posts = Db.fold Q.get_thread_posts List.cons thread_id [] in
(*order by date *) (*order by date *)
let dates = let dates =
@ -122,17 +134,31 @@ let view_thread thread_id =
| Some (Error e) -> Error e | Some (Error e) -> Error e
| Some (Ok _) -> assert false | Some (Ok _) -> assert false
| None -> | None ->
let view_posts = let posts =
List.map Result.get_ok (List.filter Result.is_ok view_posts) List.map Result.get_ok (List.filter Result.is_ok view_posts)
in in
let view_posts = let posts =
Format.asprintf "%a" Format.asprintf "%a"
(Format.pp_print_list (Format.pp_print_list
~pp_sep:(fun fmt () -> Format.fprintf fmt "\r\n") ~pp_sep:(fun fmt () -> Format.fprintf fmt "\r\n")
Format.pp_print_string ) Format.pp_print_string )
view_posts posts
in in
Ok view_posts ) let thread_view =
Format.sprintf
{|
<div class="thread">
<div class="threadSubject">
%s
</div>
<div class="threadPosts">
%s
</div>
</div>
|}
subject posts
in
Ok thread_view )
let get_markers board = let get_markers board =
let* thread_id_list = let* thread_id_list =