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

add vomit inducing css

Browse source
This commit is contained in:
Swrup 2022-01-10 11:23:24 +01:00
parent 7330594dbf
commit 05126d5b82
6 changed files with 42 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/babillard.ml
View file

@ -282,7 +282,7 @@ let view_post post_id =
(*TODO thumbnails *)
Format.sprintf
{|
<div class="file">
<div class="postImage">
<a title="%s" href="/post_pic/%s">
<img src="/post_pic/%s" style="width:200px;height:200px;" loading="lazy">
</a>
@ -320,10 +320,12 @@ let view_post post_id =
Ok
(Format.sprintf
{|
<div class="post" id="%s">
%s
%s
<blockquote class="comment">%s</blockquote>
<div class="container">
<div class="post" id="%s">
%s
%s
<blockquote class="postComment">%s</blockquote>
</div>
</div>
|}
post_id post_info_view image_view comment )