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

more fixes

Browse source
This commit is contained in:
Swrup 2022-02-18 03:22:24 +01:00
parent 8ec7533db1
commit 01e62889e2
4 changed files with 20 additions and 29 deletions
Download patch file Download diff file Expand all files Collapse all files

25
src/babillard.ml
View file

@ -217,21 +217,20 @@ let () =
let parse_image image =
match image with
| None -> Ok None
| Some image -> (
let image =
match image with
| Some image_name, image_content, alt ->
(Dream.html_escape image_name, image_content, Dream.html_escape alt)
| None, image_content, alt ->
| Some (name, content, alt) ->
let name =
match name with
| Some name -> Dream.html_escape name
| None ->
(* make up random name if no name was given *)
let image_name = Uuidm.to_string (Uuidm.v4_gen random_state ()) in
(image_name, image_content, Dream.html_escape alt)
Uuidm.to_string (Uuidm.v4_gen random_state ())
in
match image with
| _, image_content, alt ->
if not (is_valid_image image_content) then Error "invalid image"
else if String.length alt > 1000 then Error "Image description too long"
else Ok (Some image) )
if not (is_valid_image content) then
Error "invalid image"
else if String.length alt > 1000 then
Error "Image description too long"
else
Ok (Some (name, content, alt))
(*TODO switch to markdown !*)
(* insert html into the comment, and keep tracks of citations :