34 lines
652 B
OCaml
34 lines
652 B
OCaml
let img name = Fmt.str "/assets/img/%s" name
|
|
|
|
let script name = Fmt.str "/assets/js/%s" name
|
|
|
|
let style name = Fmt.str "/assets/css/%s" name
|
|
|
|
let me = img "me.png"
|
|
|
|
let about = "/about"
|
|
|
|
let contact = "/contact"
|
|
|
|
let favicon = img "favicon.png"
|
|
|
|
let home = "/"
|
|
|
|
let projects = "/projects"
|
|
|
|
let projects_one name = Fmt.str "/projects/%s" name
|
|
|
|
let services = "/services"
|
|
|
|
(* lang *)
|
|
|
|
let set_lang lang current_page =
|
|
match current_page with
|
|
| None -> Fmt.str "/lang/%a" Lang.pp lang
|
|
| Some current_page ->
|
|
Fmt.str "/lang/%a?redirect=%s" Lang.pp lang current_page
|
|
|
|
let set_english = set_lang Lang.English
|
|
|
|
let set_french = set_lang Lang.French
|