add emojid

src/pp_babillard.ml

@@ -8,6 +8,7 @@ let pp_post fmt t =
     | Post post -> (None, post)
   in
   let { id
+      ; emojid
       ; parent_id = _parent_id
       ; date
       ; user_id
@@ -68,11 +69,11 @@ let pp_post fmt t =
       Format.fprintf fmt
         {|
         <span class=postNo>
-            <button data-id="%s" class="quote-link" title="Reply to this post">%s</button>
+            <button data-id="%s" data-emojid="%s" class="quote-link" title="Reply to this post">%s</button>
         </span>
         %a
         |}
-        id id replies_view ()
+        id emojid emojid replies_view ()
   in
 
   let post_info_view fmt () =