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;\ text-align: center;\
"] "]
[ txtf "%s" title ]; [ txtf "%s" title ];
(* H.p [
* H.txt @@ Fmt.str "You requested the page %s" target
* ]; *)
] ]
in in
let static_css = static_css :: [ Tyxml.Html.Unsafe.data "\ let static_css = static_css :: [ Tyxml.Html.Unsafe.data "\
body {\ body { background: rgb(191,191,191); }\
background: rgb(191,191,191);\ "]
}\
"]
in
let body =
let style = H.a_style "\
"
in
[ H.div ~a:[ style ] content ]
in in
let body = [ H.div content ] 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])