kumikode/leaflet
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

basic example with tiny_httpd

Browse source
This commit is contained in:
Swrup 2025-02-06 01:28:39 +01:00
parent 107c27db95
commit 7ab765a333
6 changed files with 72 additions and 28 deletions
Download patch file Download diff file Expand all files Collapse all files

14
example/css_path.ml
View file

@ -1,14 +0,0 @@
(* get leaflet.css path from dune-site *)
let dune_site = List.filter Sys.file_exists Mysites.Sites.css
let lookup_file filename =
List.find_map
(fun dir ->
let filename' = Filename.concat dir filename in
if Sys.file_exists filename' then Some filename' else None )
dune_site
let leaflet_css = lookup_file "leaflet.css" |> Option.get
let () = Format.printf "%s@." leaflet_css