diff options
| author | Marius Peter <marius.peter@tutanota.com> | 2025-02-01 19:24:32 +0100 |
|---|---|---|
| committer | Marius Peter <marius.peter@tutanota.com> | 2025-02-01 19:24:32 +0100 |
| commit | 6e8e49ba49beeeb63e1e027fc23e8883a1185109 (patch) | |
| tree | 6a816fc986c6650959087f88e7fd63997efe003c /lib/views/ogit_root.ml | |
| parent | 19875b1503f6e890975e50bdd88853b6e4d0caf4 (diff) | |
Reorganized everything.
Thank you DeepSeek!
Diffstat (limited to 'lib/views/ogit_root.ml')
| -rw-r--r-- | lib/views/ogit_root.ml | 12 |
1 files changed, 0 insertions, 12 deletions
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 |