From 78ecbc9e4b7c23a48b64045d59f5e3658b380cfe Mon Sep 17 00:00:00 2001
From: Swrup <swrup@protonmail.com>
Date: Sun, 27 Feb 2022 18:43:43 +0100
Subject: [PATCH] tags: sort_uniq, use "," separator, trim and lowercase

---
 src/babillard.ml | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/src/babillard.ml b/src/babillard.ml
index 80bba1c..3f75168 100644
--- a/src/babillard.ml
+++ b/src/babillard.ml
@@ -367,7 +367,13 @@ let build_reply ~comment ?image ~tags ?parent_id nick =
           | None -> None
           | Some (image_info, _image_content) -> Some image_info
         in
-        let tag_list = Str.split (Str.regexp " +") tags in
+        let tag_list =
+          List.map String.lowercase_ascii
+          @@ List.sort_uniq String.compare
+          @@ List.filter (fun s -> not (String.equal "" s))
+          @@ List.map String.trim
+          @@ Str.split (Str.regexp ",+") tags
+        in
         let date = Unix.time () in
         let comment, citations = parse_comment comment in
         let reply =