diff options
| -rw-r--r-- | lib/helpers/file_helpers.ml | 3 | ||||
| -rw-r--r-- | lib/helpers/html_helpers.ml | 18 |
2 files changed, 1 insertions, 20 deletions
diff --git a/lib/helpers/file_helpers.ml b/lib/helpers/file_helpers.ml index 892d807..a1b5372 100644 --- a/lib/helpers/file_helpers.ml +++ b/lib/helpers/file_helpers.ml @@ -3,5 +3,4 @@ let list_files dir = Array.to_list (Sys.readdir dir) |> List.map (fun file -> Printf.sprintf "<li>%s</li>" file) |> String.concat "" - with _ -> - "<li>Error: Unable to read directory</li>" + with _ -> "<li>Error: Unable to read directory</li>" diff --git a/lib/helpers/html_helpers.ml b/lib/helpers/html_helpers.ml deleted file mode 100644 index da5addc..0000000 --- a/lib/helpers/html_helpers.ml +++ /dev/null @@ -1,18 +0,0 @@ -(* 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>" |