diff options
| -rw-r--r-- | lib/views.ml | 17 |
1 files changed, 7 insertions, 10 deletions
diff --git a/lib/views.ml b/lib/views.ml index 9402ad3..576fa14 100644 --- a/lib/views.ml +++ b/lib/views.ml @@ -113,16 +113,13 @@ module Repo = struct HTML.li [] [ Routes.link_to route node ] let li_of_entry repo (entry : Resolvers.Entry.t) = - let display_name = - if entry.perm = 0o040000 then entry.name ^ "/" else entry.name + let route = Routes.File (repo, entry.hash) in + let text = + txt "%s" (if entry.perm = 0o040000 then entry.name ^ "/" else entry.name) in - let route = - if entry.perm = 0o040000 then Routes.Files repo - else Routes.File (repo, entry.hash) - in - HTML.(li [] [ Routes.link_to route @@ txt "%s" display_name ]) + HTML.(li [] [ Routes.link_to route text ]) - let summary repo branches commits authors = + let summary repo branches commits = respond @@ Page.render ~page_title:(page_title repo) { @@ -177,11 +174,11 @@ module Repo = struct { title = Printf.sprintf "%s" repo; subtitle = Resolvers.repo_description repo; - topnav = Components.Topnav.(v ~active_path:Files repo); + topnav = Components.Topnav.v ~active_path:Files repo; content = HTML. [ - h3 [] [ txt "Files %s" @@ Resolvers.short_hash tree.hash ]; + h3 [] [ txt "Files at %s" tree.path ]; ul [] (List.map (li_of_entry repo) tree.entries); ]; } |