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

tags: sort_uniq, use "," separator, trim and lowercase

Browse source
This commit is contained in:
Swrup 2022-02-27 18:43:43 +01:00
parent 260651b4a4
commit 78ecbc9e4b
1 changed files with 7 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/babillard.ml
View file

@ -367,7 +367,13 @@ let build_reply ~comment ?image ~tags ?parent_id nick =
| None -> None | None -> None
| Some (image_info, _image_content) -> Some image_info | Some (image_info, _image_content) -> Some image_info
in 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 date = Unix.time () in
let comment, citations = parse_comment comment in let comment, citations = parse_comment comment in
let reply = let reply =