Implement Topnav module with proper routes.

1 files changed, 15 insertions, 12 deletions

diff --git a/lib/routes.ml b/lib/routes.ml
index 84c2851..f615168 100644
--- a/lib/routes.ml
+++ b/lib/routes.ml
@@ -3,27 +3,30 @@
 type t =
   | Root
   | Repo of string
-  | Tag of string * string
+  | Log of string
+  | Files of string
+  | Refs of string
   | Commit of string * string
-  | Tree of string * string
-  | Blob of string * string
+  | File of string * string
 
 let%path root_path = "/"
-let%path repo_path = "/%s/"
-let%path tag_path = "/%s/refs/%s"
+let%path repo_path = "/%s/summary/"
+let%path log_path = "/%s/log/"
+let%path files_path = "/%s/files/"
+let%path refs_path = "/%s/refs/"
 let%path commit_path = "/%s/commit/%s"
-let%path tree_path = "/%s/tree/%s"
-let%path blob_path = "/%s/blob/%s"
+let%path file_path = "/%s/file/%s"
 
-let link_to route contents =
+let link_to route ?(other_attrs = []) contents =
   let open Dream_html in
   let open HTML in
   let path = function
     | Root -> path_attr href root_path
     | Repo repo -> path_attr href repo_path repo
-    | Tag (repo, branch) -> path_attr href tag_path repo branch
+    | Log repo -> path_attr href log_path repo
+    | Files repo -> path_attr href files_path repo
+    | Refs repo -> path_attr href refs_path repo
     | Commit (repo, commit) -> path_attr href commit_path repo commit
-    | Tree (repo, hash) -> path_attr href tree_path repo hash
-    | Blob (repo, hash) -> path_attr href blob_path repo hash
+    | File (repo, hash) -> path_attr href file_path repo hash
   in
-  a [ path route ] [ contents ]
+  a (path route :: other_attrs) [ contents ]