blob: ca8e87006e61ec4b1ec6e699710111a737c5377d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
open Dream_html
open HTML
let git_directory = Filename.concat (Unix.getenv "HOME") "git"
let repositories_in directory =
let repositories = Sys.readdir directory |> Array.to_list
and li_of_repo repo = li [] [ a [ href "%s" repo ] [ txt "%s" repo ] ] in
div [ id "repositories" ] [ ul [] @@ List.map li_of_repo repositories ]
let main_content = null [ txt "Hello World!"; repositories_in git_directory ]
let render = Layouts.application ~page_title:"My repositories" ~main_content
|
