diff options
| -rw-r--r-- | lib/handlers/handlers.ml | 54 |
1 files changed, 12 insertions, 42 deletions
diff --git a/lib/handlers/handlers.ml b/lib/handlers/handlers.ml index 7142439..564d563 100644 --- a/lib/handlers/handlers.ml +++ b/lib/handlers/handlers.ml @@ -1,43 +1,13 @@ -(* Page layout function *) -let page_layout ~content = - "<html><body>" - ^ Layouts.Header.header () - ^ Layouts.Topnav.topnav () - ^ "<main>" ^ content ^ "</main>" - ^ "</body></html>" +let ogit_root _ = Dream_html.respond @@ Views.Ogit_root.render () +let repo_root repo = Dream_html.respond @@ Views.Repo.render repo -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\"> </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\"> </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) +(* 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) *) |