[OCaml] Mobile-friendly clone of cgit.
Update views.
lib/views.ml
@@ -113,16 +113,13 @@
113
113
HTML.li [] [ Routes.link_to route node ]
114
114
115
115
let li_of_entry repo (entry : Resolvers.Entry.t) =
116
Removed:
let display_name =
117
Removed:
if entry.perm = 0o040000 then entry.name ^ "/" else entry.name
116
Added:
let route = Routes.File (repo, entry.hash) in
117
Added:
let text =
118
Added:
txt "%s" (if entry.perm = 0o040000 then entry.name ^ "/" else entry.name)
118
119
in
119
Removed:
let route =
120
Removed:
if entry.perm = 0o040000 then Routes.Files repo
121
Removed:
else Routes.File (repo, entry.hash)
122
Removed:
in
123
Removed:
HTML.(li [] [ Routes.link_to route @@ txt "%s" display_name ])
120
Added:
HTML.(li [] [ Routes.link_to route text ])
124
121
125
Removed:
let summary repo branches commits authors =
122
Added:
let summary repo branches commits =
126
123
respond
127
124
@@ Page.render ~page_title:(page_title repo)
128
125
{
@@ -177,11 +174,11 @@
177
174
{
178
175
title = Printf.sprintf "%s" repo;
179
176
subtitle = Resolvers.repo_description repo;
180
Removed:
topnav = Components.Topnav.(v ~active_path:Files repo);
177
Added:
topnav = Components.Topnav.v ~active_path:Files repo;
181
178
content =
182
179
HTML.
183
180
[
184
Removed:
h3 [] [ txt "Files %s" @@ Resolvers.short_hash tree.hash ];
181
Added:
h3 [] [ txt "Files at %s" tree.path ];
185
182
ul [] (List.map (li_of_entry repo) tree.entries);
186
183
];
187
184
}