1 files changed, 18 insertions, 0 deletions
diff --git a/lib/helpers/html_helpers.ml b/lib/helpers/html_helpers.ml
new file mode 100644
index 0000000..da5addc
--- /dev/null
+++ b/lib/helpers/html_helpers.ml
@@ -0,0 +1,18 @@
+(* 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 "<li><a href='/%s/tree'>%s</a></li>" repo repo)
+    |> String.concat ""
+  else
+    "<li>Error: '~/git' directory not found.</li>"
+
+(* Page layout function *)
+let page_layout ~content =
+  "<html><body>"
+  ^ Layouts.Header.header ()
+  ^ Layouts.Topnav.topnav ()
+  ^ "<main>" ^ content ^ "</main>"
+  ^ "</body></html>"