prevent image overlap
This commit is contained in:
parent
e9a776d57d
commit
28113becd5
1 changed files with 12 additions and 29 deletions
41
lib/views.ml
41
lib/views.ml
|
|
@ -85,7 +85,6 @@ let make_breadcrumbs nav =
|
||||||
let layout
|
let layout
|
||||||
?include_static_css
|
?include_static_css
|
||||||
?(nav=`Default)
|
?(nav=`Default)
|
||||||
?(manual_width=false)
|
|
||||||
~title
|
~title
|
||||||
body
|
body
|
||||||
=
|
=
|
||||||
|
|
@ -93,29 +92,14 @@ let layout
|
||||||
(*> Note: Last declared CSS wins - so one can override here*)
|
(*> Note: Last declared CSS wins - so one can override here*)
|
||||||
let static_css = Styles.static_css :: Option.to_list include_static_css
|
let static_css = Styles.static_css :: Option.to_list include_static_css
|
||||||
in
|
in
|
||||||
let body =
|
|
||||||
let _style_grid_container = H.a_style "\
|
|
||||||
display: flex;
|
|
||||||
align-items: center;
|
|
||||||
justify-content: center;
|
|
||||||
min-width: 83em;
|
|
||||||
"
|
|
||||||
and _style_grid = H.a_style @@
|
|
||||||
if manual_width then "" else "\
|
|
||||||
width: 76%;\
|
|
||||||
"
|
|
||||||
in
|
|
||||||
[ H.div ~a:[ ]
|
|
||||||
[ H.div ~a:[ ] body ]]
|
|
||||||
in
|
|
||||||
H.html
|
H.html
|
||||||
(H.head (H.title (H.txt title))
|
(H.head (H.title (H.txt title))
|
||||||
[H.style ~a:H.[a_mime_type "text/css"] static_css])
|
[H.style ~a:H.[a_mime_type "text/css"] static_css])
|
||||||
(H.body ~a:[H.a_class ["bg-gray-50 dark:bg-black-molly text-gray-800 dark:text-gray-50 mx-auto p-10"]] [
|
(H.body ~a:[H.a_class ["bg-gray-50 dark:bg-black-molly w-full text-gray-800 dark:text-gray-50 mx-auto p-10 md:grid md:grid-cols-4"]] [
|
||||||
H.div ~a:[H.a_class ["fixed text-center"]; H.a_style ""] [
|
H.div ~a:[H.a_class ["text-center md:col-span-1 hidden md:block"]; H.a_style ""] [
|
||||||
H.img ~a:[H.a_class [""]; H.a_id "robur-logo"] ~src:"https://i.ibb.co/Y4YsvcDb/robur-logo.png" ~alt:"Robur Logo" ()
|
H.img ~a:[H.a_class ["fixed"]; H.a_id "robur-logo"] ~src:"https://i.ibb.co/Y4YsvcDb/robur-logo.png" ~alt:"Robur Logo" ()
|
||||||
];
|
];
|
||||||
H.div ~a:[H.a_class ["max-w-7xl mx-auto"]] [
|
H.div ~a:[H.a_class ["mx-auto w-full md:col-span-3 px-4"]] [
|
||||||
H.(div ~a:[a_class ["flex justify-between items-center"]] [
|
H.(div ~a:[a_class ["flex justify-between items-center"]] [
|
||||||
div [breadcrumb];
|
div [breadcrumb];
|
||||||
div ~a:[a_class ["flex items-center space-x-4"]] [
|
div ~a:[a_class ["flex items-center space-x-4"]] [
|
||||||
|
|
@ -230,7 +214,7 @@ let artifact
|
||||||
txtf " (%a)" Fmt.byte_size size;
|
txtf " (%a)" Fmt.byte_size size;
|
||||||
];
|
];
|
||||||
br ();
|
br ();
|
||||||
code [txtf "SHA256:%s" (Ohex.encode sha256)];
|
p ~a:[a_class ["wrap"]] [txtf "SHA256:%s" (Ohex.encode sha256)];
|
||||||
])
|
])
|
||||||
|
|
||||||
let page_not_found ~target ~referer =
|
let page_not_found ~target ~referer =
|
||||||
|
|
@ -398,7 +382,7 @@ module Builds = struct
|
||||||
];
|
];
|
||||||
|
|
||||||
td
|
td
|
||||||
~a:[a_class ["px-6 py-4 text-gray-400"]]
|
~a:[a_class ["px-4 py-4 text-gray-400"]]
|
||||||
[
|
[
|
||||||
div ~a:[a_class ["flex flex-col text-wrap"]]
|
div ~a:[a_class ["flex flex-col text-wrap"]]
|
||||||
(List.concat_map (make_platform_builds ~job_name) platform_builds);
|
(List.concat_map (make_platform_builds ~job_name) platform_builds);
|
||||||
|
|
@ -738,7 +722,7 @@ module Job_build = struct
|
||||||
[
|
[
|
||||||
a_class
|
a_class
|
||||||
[
|
[
|
||||||
"px-6 py-2 text-center \
|
"px-4 py-4 text-center \
|
||||||
font-bold \
|
font-bold \
|
||||||
text-primary-600 uppercase";
|
text-primary-600 uppercase";
|
||||||
];
|
];
|
||||||
|
|
@ -749,7 +733,7 @@ module Job_build = struct
|
||||||
[
|
[
|
||||||
a_class
|
a_class
|
||||||
[
|
[
|
||||||
"px-6 py-2 text-center \
|
"px-4 py-4 text-center \
|
||||||
font-bold \
|
font-bold \
|
||||||
text-primary-600 uppercase";
|
text-primary-600 uppercase";
|
||||||
];
|
];
|
||||||
|
|
@ -760,7 +744,7 @@ module Job_build = struct
|
||||||
[
|
[
|
||||||
a_class
|
a_class
|
||||||
[
|
[
|
||||||
"px-6 py-2 text-center \
|
"px-4 py-4 text-center \
|
||||||
font-bold \
|
font-bold \
|
||||||
text-primary-600 uppercase";
|
text-primary-600 uppercase";
|
||||||
];
|
];
|
||||||
|
|
@ -776,7 +760,7 @@ module Job_build = struct
|
||||||
[
|
[
|
||||||
a_class
|
a_class
|
||||||
[
|
[
|
||||||
"px-6 py-1 \
|
"px-4 py-4 \
|
||||||
font-medium";
|
font-medium";
|
||||||
];
|
];
|
||||||
]
|
]
|
||||||
|
|
@ -786,7 +770,7 @@ module Job_build = struct
|
||||||
[
|
[
|
||||||
a_class
|
a_class
|
||||||
[
|
[
|
||||||
"px-6 py-1 \
|
"px-4 py-4 \
|
||||||
font-medium";
|
font-medium";
|
||||||
];
|
];
|
||||||
]
|
]
|
||||||
|
|
@ -796,7 +780,7 @@ module Job_build = struct
|
||||||
[
|
[
|
||||||
a_class
|
a_class
|
||||||
[
|
[
|
||||||
"px-6 py-1 \
|
"px-4 py-4 \
|
||||||
font-medium";
|
font-medium";
|
||||||
];
|
];
|
||||||
]
|
]
|
||||||
|
|
@ -977,7 +961,6 @@ and the rest of the unaccounted data.\
|
||||||
layout
|
layout
|
||||||
~nav:(`Build (job_name, build))
|
~nav:(`Build (job_name, build))
|
||||||
~title:(Fmt.str "Job %s %a" job_name pp_ptime build.start)
|
~title:(Fmt.str "Job %s %a" job_name pp_ptime build.start)
|
||||||
~manual_width:true
|
|
||||||
body
|
body
|
||||||
|
|
||||||
end
|
end
|
||||||
|
|
|
||||||
Loading…
Reference in a new issue