diff --git a/src/content/assets/css/style.css b/src/content/assets/css/style.css index 164ba9c..5d2623c 100644 --- a/src/content/assets/css/style.css +++ b/src/content/assets/css/style.css @@ -47,6 +47,7 @@ blockquote.blockquote { .postComment { display: block; padding-top: 10px; + color: #333333; } .postImageContainer { @@ -78,12 +79,20 @@ blockquote.blockquote { } #newthread-form { - visibility: hidden; + visibility: hidden; } #altLabel { - display:none; + display:none; } #alt { - display:none; + display:none; +} + +.threadSubject { + margin: auto; + width: 50%; + text-align: center; + color: #5a5a5a; + font-size: 30px; } diff --git a/src/pp_babillard.ml b/src/pp_babillard.ml index 5e94294..748b7c2 100644 --- a/src/pp_babillard.ml +++ b/src/pp_babillard.ml @@ -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 [] 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 = match image_info with | Some (_image_name, image_alt) -> @@ -97,10 +93,26 @@ let view_post ?is_thread_preview post_id = in 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 + {| +