Reorganized everything.

Thank you DeepSeek!

1 files changed, 0 insertions, 41 deletions

diff --git a/lib/views/repo_root.ml b/lib/views/repo_root.ml
deleted file mode 100644
index dd391d8..0000000
--- a/lib/views/repo_root.ml
+++ /dev/null
@@ -1,41 +0,0 @@
-open Dream_html
-open HTML
-open Git_unix
-
-let git_directory = Filename.concat (Unix.getenv "HOME") "git"
-
-let err_to_string err = Fmt.to_to_string Store.pp_error err
-
-let get_head_commit repo_path =
-  Lwt_main.run (
-    let open Lwt.Infix in
-    match Git.Reference.of_string "HEAD" with
-    | Error err ->
-        Lwt.return (Error ("Invalid HEAD reference string: " ^ err_to_string err))
-    | Ok head_ref_name ->
-        Store.v (Fpath.v repo_path) >>= function
-        | Error err ->
-            Lwt.return (Error ("Failed to open repository: " ^ err_to_string err))
-        | Ok store ->
-            Store.Ref.resolve store head_ref_name >>= function
-            | Error err ->
-                Lwt.return (Error ("Failed to resolve HEAD: " ^ err_to_string err))
-            | Ok head_oid -> Lwt.return (Ok head_oid)
-              (* Git.Commit.v store head_oid >>= function *)
-              (*   | Error err -> *)
-              (*       Lwt.return (Error ("Failed to get commit from hash: " ^ err_to_string err)) *)
-              (*   | Ok commit -> *)
-              (*       Lwt.return (Ok commit) *)
-  )
-
-let main_content =
-  let open Lwt.Infix in
-  Lwt.async (fun _ ->
-    get_head_commit git_directory >>= function
-    | Error msg ->
-        Lwt.map (fun content -> [ p [] [ txt content ]]) (Error msg)
-    | Ok head_oid ->
-        Lwt.map (fun content -> [ p [] [ txt "HEAD commit hash: %s" content ]]) (Store.Hash.to_string head_oid)
-    )
-    
-let render = Layouts.application ~page_title:"My repositories" ~main_content