From 6e8e49ba49beeeb63e1e027fc23e8883a1185109 Mon Sep 17 00:00:00 2001 From: Marius Peter Date: Sat, 1 Feb 2025 19:24:32 +0100 Subject: Reorganized everything. Thank you DeepSeek! --- lib/views/ogit_root.ml | 12 ------------ 1 file changed, 12 deletions(-) delete mode 100644 lib/views/ogit_root.ml (limited to 'lib/views/ogit_root.ml') diff --git a/lib/views/ogit_root.ml b/lib/views/ogit_root.ml deleted file mode 100644 index ca8e870..0000000 --- a/lib/views/ogit_root.ml +++ /dev/null @@ -1,12 +0,0 @@ -open Dream_html -open HTML - -let git_directory = Filename.concat (Unix.getenv "HOME") "git" - -let repositories_in directory = - let repositories = Sys.readdir directory |> Array.to_list - and li_of_repo repo = li [] [ a [ href "%s" repo ] [ txt "%s" repo ] ] in - div [ id "repositories" ] [ ul [] @@ List.map li_of_repo repositories ] - -let main_content = null [ txt "Hello World!"; repositories_in git_directory ] -let render = Layouts.application ~page_title:"My repositories" ~main_content -- cgit v1.2.3