From df57135697ecec1f940f4ce212267814438e0ad7 Mon Sep 17 00:00:00 2001 From: Marius Peter Date: Sat, 25 Jan 2025 19:24:01 +0100 Subject: Update handlers. --- lib/handlers/handlers.ml | 54 +++++++++++------------------------------------- 1 file 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 = - "" - ^ Layouts.Header.header () - ^ Layouts.Topnav.topnav () - ^ "
" ^ content ^ "
" - ^ "" +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 = - "

Available Repositories

" - in - Dream.html (page_layout ~content) - -let repo_root _ = - (* let repo_name = Dream.param request "repo_name" in *) - let content = - "
\n" - ^ "\n" - ^ "\n" - ^ "\n" - ^ "\n" - ^ "\n" - ^ "\n" - ^ "\n" - ^ "\n" - ^ "
BranchCommit messageAuthorAge
masterEnsure session[:id] before scoring: all tests now pass.Marius Peter2 weeks
 
TagDownloadAuthorAge
v1.0commit 175111f9d8...Marius Peter2 weeks
 
AgeCommit messageAuthor
2025-01-02Ensure session[:id] before scoring: all tests now pass.HEADmasterMarius Peter
" - 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 - "

Browsing repository: " ^ repo_name ^ "

" - else - "

Repository not found: " ^ repo_name ^ "

" - 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 *) +(* "

Browsing repository: " ^ repo_name ^ "

" *) +(* else "

Repository not found: " ^ repo_name ^ "

" *) +(* in *) +(* Dream.html (page_layout ~content) *) -- cgit v1.2.3