From 8ab5f20f532bc6e9de38ee457b0ef8dd30c80374 Mon Sep 17 00:00:00 2001 From: Marius Peter Date: Sun, 19 Jan 2025 20:00:18 +0100 Subject: Initial commit for ogit. --- lib/helpers/dune | 9 +++++++++ lib/helpers/file_helpers.ml | 7 +++++++ lib/helpers/html_helpers.ml | 18 ++++++++++++++++++ 3 files changed, 34 insertions(+) create mode 100644 lib/helpers/dune create mode 100644 lib/helpers/file_helpers.ml create mode 100644 lib/helpers/html_helpers.ml (limited to 'lib/helpers') diff --git a/lib/helpers/dune b/lib/helpers/dune new file mode 100644 index 0000000..a8c1733 --- /dev/null +++ b/lib/helpers/dune @@ -0,0 +1,9 @@ +(library + (name helpers) + (public_name ogit.helpers) + (libraries + unix + ogit.layouts) + (modules + html_helpers + file_helpers)) diff --git a/lib/helpers/file_helpers.ml b/lib/helpers/file_helpers.ml new file mode 100644 index 0000000..892d807 --- /dev/null +++ b/lib/helpers/file_helpers.ml @@ -0,0 +1,7 @@ +let list_files dir = + try + Array.to_list (Sys.readdir dir) + |> List.map (fun file -> Printf.sprintf "

" file) + |> String.concat "" + with _ -> + "

Error: Unable to read directory

" 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 "

" repo repo) + |> String.concat "" + else + "

Error: '~/git' directory not found.

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

" ^ content ^ "

" + ^ "" -- cgit v1.2.3