15 lines
402 B
OCaml
15 lines
402 B
OCaml
|
(* 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
|