robur/builder-web
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Views: Cleanup

Browse source
This commit is contained in:
rand00 2022-06-26 18:18:09 +02:00 committed by Reynir Björnsson
parent 3e23b4a5bf
commit ffc062727a
1 changed files with 3 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
lib/views.ml
View file

@ -244,23 +244,13 @@ let viz_not_found ~target =
text-align: center;\
"]
[ txtf "%s" title ];
(* H.p [
* H.txt @@ Fmt.str "You requested the page %s" target
* ]; *)
]
in
let static_css = static_css :: [ Tyxml.Html.Unsafe.data "\
body {\
background: rgb(191,191,191);\
}\
"]
in
let body =
let style = H.a_style "\
"
in
[ H.div ~a:[ style ] content ]
body { background: rgb(191,191,191); }\
"]
in
let body = [ H.div content ] in
H.html
(H.head (H.title (H.txt title))
[H.style ~a:H.[a_mime_type "text/css"] static_css])