diff --git a/src/content/assets/css/style.css b/src/content/assets/css/style.css index 5d2623c..11d8eea 100644 --- a/src/content/assets/css/style.css +++ b/src/content/assets/css/style.css @@ -96,3 +96,9 @@ blockquote.blockquote { color: #5a5a5a; font-size: 30px; } + +.tag { + background-color: #FFB300; + border-radius: 4px; + padding: 2px; +} diff --git a/src/pp_babillard.ml b/src/pp_babillard.ml index 748b7c2..273d411 100644 --- a/src/pp_babillard.ml +++ b/src/pp_babillard.ml @@ -7,7 +7,7 @@ let view_post ?is_thread_preview post_id = let* date = Db.find Q.get_post_date post_id in let* image_info = Db.find_opt Q.get_post_image_info post_id in - let* _tags = Db.fold Q.get_post_tags (fun tag acc -> tag :: acc) post_id [] in + let* tags = Db.fold Q.get_post_tags (fun tag acc -> tag :: acc) post_id [] in let* replies = Db.fold Q.get_post_replies (fun reply_id acc -> reply_id :: acc) post_id [] in @@ -33,9 +33,10 @@ let view_post ?is_thread_preview post_id = Format.fprintf fmt {|>>%s|} reply reply in - let pp_print_replies = + let pp_print_replies replies = Format.asprintf {|
%s+ %s |} - post_id post_info_view image_view comment + post_id post_info_view image_view comment tags_view in Ok post_view