(* Page layout function *) let page_layout ~content = "" ^ Layouts.Header.header () ^ Layouts.Topnav.topnav () ^ "
" ^ content ^ "
" ^ "" let root _ = let content = "

Available Repositories

" in Dream.html (page_layout ~content) let repo_root _ = (* let repo_name = Dream.param request "repo_name" in *) let content = "
\n" ^ "\n" ^ "\n" ^ "\n" ^ "\n" ^ "\n" ^ "\n" ^ "\n" ^ "\n" ^ "
BranchCommit messageAuthorAge
masterEnsure session[:id] before scoring: all tests now pass.Marius Peter2 weeks
 
TagDownloadAuthorAge
v1.0commit 175111f9d8...Marius Peter2 weeks
 
AgeCommit messageAuthor
2025-01-02Ensure session[:id] before scoring: all tests now pass.HEADmasterMarius Peter
" in Dream.html (page_layout ~content) let repo_tree request = let repo_name = Dream.param request "repo_name" in let repo_path = Filename.concat (Unix.getenv "HOME") ("git/" ^ repo_name) in let content = if Sys.file_exists repo_path && Sys.is_directory repo_path then let files = Helpers.File_helpers.list_files repo_path in "

Browsing repository: " ^ repo_name ^ "

" else "

Repository not found: " ^ repo_name ^ "

" in Dream.html (page_layout ~content)