summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMarius Peter <marius.peter@tutanota.com>2025-01-19 20:00:18 +0100
committerMarius Peter <marius.peter@tutanota.com>2025-01-19 20:00:18 +0100
commit8ab5f20f532bc6e9de38ee457b0ef8dd30c80374 (patch)
treeceecccdb379a9298ca2eef7053b1887885134f8d
Initial commit for ogit.
Diffstat
-rw-r--r--bin/dune6
-rw-r--r--bin/main.ml10
-rw-r--r--dune-project30
-rw-r--r--lib/handlers/dune8
-rw-r--r--lib/handlers/handlers.ml43
-rw-r--r--lib/helpers/dune9
-rw-r--r--lib/helpers/file_helpers.ml7
-rw-r--r--lib/helpers/html_helpers.ml18
-rw-r--r--lib/layouts/dune16
-rw-r--r--lib/layouts/header.eml.html3
-rw-r--r--lib/layouts/topnav.eml.html11
-rw-r--r--ogit.opam33
-rw-r--r--test/dune2
-rw-r--r--test/test_ogit.ml0
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
Copyright 2019--2025 Marius PETER