(* Helper function to generate links for repositories *)
let generate_repo_links () =
let git_dir = Filename.concat (Unix.getenv "HOME") "git" in
if Sys.file_exists git_dir && Sys.is_directory git_dir then
Sys.readdir git_dir
|> Array.to_list
|> List.map (fun repo -> Printf.sprintf "%s" repo repo)
|> String.concat ""
else
"Error: '~/git' directory not found."
(* Page layout function *)
let page_layout ~content =
""
^ Layouts.Header.header ()
^ Layouts.Topnav.topnav ()
^ "" ^ content ^ ""
^ ""