14 files changed, 196 insertions, 0 deletions
diff --git a/bin/dune b/bin/dune
new file mode 100644
index 0000000..e1b7b0d
--- /dev/null
+++ b/bin/dune
@@ -0,0 +1,6 @@
+(executable
+ (public_name ogit)
+ (name main)
+ (libraries
+   dream
+   ogit.handlers))
diff --git a/bin/main.ml b/bin/main.ml
new file mode 100644
index 0000000..8c49c91
--- /dev/null
+++ b/bin/main.ml
@@ -0,0 +1,10 @@
+(* ogit: A lightweight, mobile-friendly alternative to cgit *)
+
+let () =
+  Dream.run
+  @@ Dream.logger
+  @@ Dream.router [
+         Dream.get "/" Handlers.root;
+         Dream.get "/:repo_name/" Handlers.repo_root;         
+         Dream.get "/:repo_name/tree" Handlers.repo_tree;
+       ]
diff --git a/dune-project b/dune-project
new file mode 100644
index 0000000..c17bde7
--- /dev/null
+++ b/dune-project
@@ -0,0 +1,30 @@
+(lang dune 3.16)
+
+(name ogit)
+
+(generate_opam_files true)
+
+(source
+ (github username/reponame))
+
+(authors "Marius Peter")
+
+(maintainers "Marius Peter")
+
+(license LICENSE)
+
+(documentation https://url/to/documentation)
+
+(package
+ (name ogit)
+ (synopsis "Replacement for cgit")
+ (description "A longer description")
+ (depends
+   ocaml
+   dune
+   dream
+   git)
+ (tags
+  (topics "to describe" your project)))
+
+; See the complete stanza docs at https://dune.readthedocs.io/en/stable/reference/dune-project/index.html
diff --git a/lib/handlers/dune b/lib/handlers/dune
new file mode 100644
index 0000000..ae64b71
--- /dev/null
+++ b/lib/handlers/dune
@@ -0,0 +1,8 @@
+(library
+ (name handlers)
+ (public_name ogit.handlers)
+ (libraries
+   dream
+   ogit.helpers
+   ogit.layouts)
+ (modules handlers))
diff --git a/lib/handlers/handlers.ml b/lib/handlers/handlers.ml
new file mode 100644
index 0000000..7142439
--- /dev/null
+++ b/lib/handlers/handlers.ml
@@ -0,0 +1,43 @@
+(* Page layout function *)
+let page_layout ~content =
+  "<html><body>"
+  ^ Layouts.Header.header ()
+  ^ Layouts.Topnav.topnav ()
+  ^ "<main>" ^ content ^ "</main>"
+  ^ "</body></html>"
+
+let root _ =
+  let content =
+    "<h1>Available Repositories</h1><ul>"
+    ^ Helpers.Html_helpers.generate_repo_links ()
+    ^ "</ul>"
+  in
+  Dream.html (page_layout ~content)
+
+let repo_root _ =
+  (* let repo_name = Dream.param request "repo_name" in *)
+  let content =
+    "<div class=\"content\"><table summary=\"repository info\" class=\"list nowrap\"><tbody>\n"
+    ^ "<tr class=\"nohover\"><th class=\"left\">Branch</th><th class=\"left\">Commit message</th><th class=\"left\">Author</th><th class=\"left\" colspan=\"2\">Age</th></tr>\n"
+    ^ "<tr><td><a href=\"/wtt.git/log/\">master</a></td><td><a href=\"/wtt.git/commit/\">Ensure session[:id] before scoring: all tests now pass.</a></td><td>Marius Peter</td><td colspan=\"2\"><span class=\"age-weeks\" title=\"2025-01-02 19:11:34 +0100\">2 weeks</span></td></tr>\n"
+    ^ "<tr class=\"nohover\"><td colspan=\"3\">&nbsp;</td></tr>\n"
+    ^ "<tr class=\"nohover\"><th class=\"left\">Tag</th><th class=\"left\">Download</th><th class=\"left\">Author</th><th class=\"left\" colspan=\"2\">Age</th></tr>\n"
+    ^ "<tr><td><a href=\"/wtt.git/tag/?h=v1.0\">v1.0</a></td><td><a href=\"/wtt.git/commit/?id=175111f9d84354dce00503525649197e9acb6382\">commit 175111f9d8...</a></td><td>Marius Peter</td><td colspan=\"2\"><span class=\"age-weeks\" title=\"2025-01-02 13:58:46 +0100\">2 weeks</span></td></tr>\n"
+    ^ "<tr class=\"nohover\"><td colspan=\"3\">&nbsp;</td></tr>\n"
+    ^ "<tr class=\"nohover\"><th class=\"left\">Age</th><th class=\"left\">Commit message</th><th class=\"left\">Author</th></tr>\n"
+    ^ "<tr><td><span title=\"2025-01-02 19:11:34 +0100\">2025-01-02</span></td><td><a href=\"/wtt.git/commit/?id=b34d2b51174b511d59fa324d9f42abc75a1fa09a\">Ensure session[:id] before scoring: all tests now pass.</a><span class=\"decoration\"><a class=\"deco\" href=\"/wtt.git/commit/?id=b34d2b51174b511d59fa324d9f42abc75a1fa09a\">HEAD</a><a class=\"branch-deco\" href=\"/wtt.git/log/\">master</a></span></td><td>Marius Peter</td></tr>\n"
+    ^ "</tbody></table></div>"
+  in
+  Dream.html (page_layout ~content)
+
+let repo_tree request =
+  let repo_name = Dream.param request "repo_name" in
+  let repo_path = Filename.concat (Unix.getenv "HOME") ("git/" ^ repo_name) in
+  let content =
+    if Sys.file_exists repo_path && Sys.is_directory repo_path then
+      let files = Helpers.File_helpers.list_files repo_path in
+      "<h1>Browsing repository: " ^ repo_name ^ "</h1><ul>" ^ files ^ "</ul>"
+    else
+      "<h1>Repository not found: " ^ repo_name ^ "</h1>"
+  in
+  Dream.html (page_layout ~content)
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 "<li>%s</li>" file)
+    |> String.concat ""
+  with _ ->
+    "<li>Error: Unable to read directory</li>"
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>"
diff --git a/lib/layouts/dune b/lib/layouts/dune
new file mode 100644
index 0000000..ee236ea
--- /dev/null
+++ b/lib/layouts/dune
@@ -0,0 +1,16 @@
+(library
+ (name layouts)
+ (public_name ogit.layouts)
+ (modules header topnav))
+
+; Rule to preprocess header.eml.html
+(rule
+ (targets header.ml)
+ (deps header.eml.html)
+ (action (run dream_eml %{deps} --workspace %{workspace_root})))
+
+; Rule to preprocess topnav.eml.html
+(rule
+ (targets topnav.ml)
+ (deps topnav.eml.html)
+ (action (run dream_eml %{deps} --workspace %{workspace_root})))
diff --git a/lib/layouts/header.eml.html b/lib/layouts/header.eml.html
new file mode 100644
index 0000000..d7bf4ef
--- /dev/null
+++ b/lib/layouts/header.eml.html
@@ -0,0 +1,3 @@
+let header _ =
+  <h1>ogit</h1>
+  <h2>Your mobile-friendly Git repository viewer.</h2>
diff --git a/lib/layouts/topnav.eml.html b/lib/layouts/topnav.eml.html
new file mode 100644
index 0000000..a9f0864
--- /dev/null
+++ b/lib/layouts/topnav.eml.html
@@ -0,0 +1,11 @@
+let topnav _ =
+<nav id="top">
+  <ul>
+    <li><a href="/">Home</a></li>
+    <li><a href="/">Refs</a></li>
+    <li><a href="/">Log</a></li>
+    <li><a href="/">Tree</a></li>
+    <li><a href="/">Commit</a></li>
+    <li><a href="/">Diff</a></li>
+  </ul>
+</nav>
diff --git a/ogit.opam b/ogit.opam
new file mode 100644
index 0000000..9588bbf
--- /dev/null
+++ b/ogit.opam
@@ -0,0 +1,33 @@
+# This file is generated by dune, edit dune-project instead
+opam-version: "2.0"
+synopsis: "Replacement for cgit"
+description: "A longer description"
+maintainer: ["Marius Peter"]
+authors: ["Marius Peter"]
+license: "LICENSE"
+tags: ["topics" "to describe" "your" "project"]
+homepage: "https://github.com/username/reponame"
+doc: "https://url/to/documentation"
+bug-reports: "https://github.com/username/reponame/issues"
+depends: [
+  "ocaml"
+  "dune" {>= "3.16"}
+  "dream"
+  "git"
+  "odoc" {with-doc}
+]
+build: [
+  ["dune" "subst"] {dev}
+  [
+    "dune"
+    "build"
+    "-p"
+    name
+    "-j"
+    jobs
+    "@install"
+    "@runtest" {with-test}
+    "@doc" {with-doc}
+  ]
+]
+dev-repo: "git+https://github.com/username/reponame.git"
diff --git a/test/dune b/test/dune
new file mode 100644
index 0000000..7b9beb4
--- /dev/null
+++ b/test/dune
@@ -0,0 +1,2 @@
+(test
+ (name test_ogit))
diff --git a/test/test_ogit.ml b/test/test_ogit.ml
new file mode 100644
index 0000000..e69de29
--- /dev/null
+++ b/test/test_ogit.ml