|
definition:
|
bootstrapPage2 :: String -> [String] -> [String] -> String
-> (String,[BaseHtml]) -> [(String,[BaseHtml])]
-> [(String,[BaseHtml])] -> Int -> [BaseHtml] -> [BaseHtml]
-> [BaseHtml] -> [BaseHtml] -> HtmlPage
bootstrapPage2 favicon styles jsincludes title brandurltitle
lefttopmenu righttopmenu leftcols sidemenu header contents footer =
HtmlPage title
([pageEnc "utf-8", responsiveView] ++ icon ++
map pageCSS styles)
(bootstrapBody jsincludes brandurltitle
lefttopmenu righttopmenu
leftcols sidemenu header contents footer)
where
-- for a better view on handheld devices:
responsiveView =
pageMetaInfo
[("name","viewport"),
("content","width=device-width, initial-scale=1, shrink-to-fit=no")]
icon = if null favicon
then []
else [pageLinkInfo [("rel","shortcut icon"), ("href",favicon)]]
|
|
demand:
|
no demanded arguments
|
|
deterministic:
|
deterministic operation
|
|
documentation:
|
--- An HTML page rendered with bootstrap with a fixed top navigation bar
--- and individual classes for the top menu items.
--- @param favicon - the icon file `favicon.ico` (when empty not included)
--- @param styles - the style files to be included (typically,
--- `css/bootstrap.min.css`)
--- @param jsincludes - the JavaScript files to be included (typically,
--- `.../jquery.js`, `js/bootstrap.min.js`)
--- @param title - the title of the form
--- @param brand - the brand shown top left (a URL/title pair)
--- @lefttopmenu - the menu shown in the left side of the top navigation bar
--- (with class attribute for the menu items)
--- @righttopmenu - the menu shown in the right side of the top navigation bar
--- (with class attribute for the menu items, could be empty)
--- @param columns - number of columns for the left-side menu
--- (if columns==0, then the left-side menu is omitted)
--- @param sidemenu - the menu shown at the left-side of the main document
--- (maybe created with 'titledSideMenu')
--- @param header - the main header (will be rendered with jumbotron style)
--- @param contents - the main contents of the document
--- @param footer - the footer of the document
|
|
failfree:
|
(_, _, _, _, _, _, _, _, _, _, _, _)
|
|
indeterministic:
|
referentially transparent operation
|
|
infix:
|
no fixity defined
|
|
iotype:
|
{(_,_,_,_,_,_,_,_,_,_,_,_) |-> {HtmlPage}}
|
|
name:
|
bootstrapPage2
|
|
precedence:
|
no precedence defined
|
|
result-values:
|
{HtmlPage}
|
|
signature:
|
String -> [String] -> [String] -> String -> (String, [HTML.Base.BaseHtml])
-> [(String, [HTML.Base.BaseHtml])] -> [(String, [HTML.Base.BaseHtml])]
-> Prelude.Int -> [HTML.Base.BaseHtml] -> [HTML.Base.BaseHtml]
-> [HTML.Base.BaseHtml] -> [HTML.Base.BaseHtml] -> HTML.Base.HtmlPage
|
|
solution-complete:
|
operation might suspend on free variables
|
|
terminating:
|
possibly non-terminating
|
|
totally-defined:
|
possibly non-reducible on same data term
|