[OCaml] Mobile-friendly clone of cgit.
Remove authors for now.
Changed files
lib/handlers.ml
@@ -14,8 +14,7 @@
14
14
let repo = Dream.param req "repo" in
15
15
let* branches = Resolvers.Branch.all repo in
16
16
let* commits = Resolvers.Commit.recent repo 10 in
17
Removed:
let authors = [ "John Pork"; "Sebastian Jellybean" ] in
18
Removed:
Views.Repo.summary repo branches commits authors
17
Added:
Views.Repo.summary repo branches commits
19
18
20
19
let log req =
21
20
let repo = Dream.param req "repo" in
lib/views.ml
@@ -92,7 +92,8 @@
92
92
let page_title repo =
93
93
Printf.sprintf "%s — %s" repo (Resolvers.repo_description repo)
94
94
95
Removed:
let li_of_author author = HTML.(li [] [ txt "%s" author ])
95
Added:
let li_of_author (author : Resolvers.Commit.user) =
96
Added:
HTML.(li [] [ txt "%s" author.name ])
96
97
97
98
let li_of_branch repo (branch : Resolvers.Branch.t) =
98
99
HTML.(li [] [ Routes.link_to (Refs repo) (txt "%s" branch.name) ])
@@ -135,8 +136,8 @@
135
136
ul [] (List.map (li_of_branch repo) branches);
136
137
h3 [] [ txt "Latest commits" ];
137
138
ul [] (List.map (li_of_commit repo) commits);
138
Removed:
h3 [] [ txt "Authors" ];
139
Removed:
ul [] (List.map li_of_author authors);
139
Added:
(* h3 [] [ txt "Authors" ]; *)
140
Added:
(* ul [] (List.map li_of_author authors); *)
140
141
];
141
142
}
142
143