Add reference to ubuntu font in Home page
This commit is contained in:
parent
aa2f8e75e6
commit
79e8f43494
2 changed files with 16 additions and 8 deletions
|
@ -14,6 +14,8 @@ homeV :: FromSenza App
|
||||||
homeV =
|
homeV =
|
||||||
skeleton
|
skeleton
|
||||||
"Haskell Programming Language"
|
"Haskell Programming Language"
|
||||||
|
(\_ _ ->
|
||||||
|
linkcss "http://fonts.googleapis.com/css?family=Ubuntu:700")
|
||||||
(\_ url ->
|
(\_ url ->
|
||||||
do navigation False Nothing url
|
do navigation False Nothing url
|
||||||
header url
|
header url
|
||||||
|
|
|
@ -21,6 +21,7 @@ template
|
||||||
template crumbs ptitle inner =
|
template crumbs ptitle inner =
|
||||||
skeleton
|
skeleton
|
||||||
ptitle
|
ptitle
|
||||||
|
(\cur url -> return ())
|
||||||
(\cur url ->
|
(\cur url ->
|
||||||
div [class_ "template"]
|
div [class_ "template"]
|
||||||
(do navigation True cur url
|
(do navigation True cur url
|
||||||
|
@ -32,7 +33,8 @@ skeleton
|
||||||
:: Text
|
:: Text
|
||||||
-> FromSenza App
|
-> FromSenza App
|
||||||
-> FromSenza App
|
-> FromSenza App
|
||||||
skeleton ptitle inner mroute url =
|
-> FromSenza App
|
||||||
|
skeleton ptitle innerhead innerbody mroute url =
|
||||||
docTypeHtml
|
docTypeHtml
|
||||||
(do head [] headinner
|
(do head [] headinner
|
||||||
body (maybe []
|
body (maybe []
|
||||||
|
@ -45,17 +47,16 @@ skeleton ptitle inner mroute url =
|
||||||
meta [charset "utf-8"]
|
meta [charset "utf-8"]
|
||||||
meta [httpEquiv "X-UA-Compatible",content "IE edge"]
|
meta [httpEquiv "X-UA-Compatible",content "IE edge"]
|
||||||
meta [name "viewport",content "width=device-width, initial-scale=1"]
|
meta [name "viewport",content "width=device-width, initial-scale=1"]
|
||||||
link [rel "stylesheet"
|
linkcss "http://fonts.googleapis.com/css?family=Open+Sans"
|
||||||
,type_ "text/css"
|
|
||||||
,href "http://fonts.googleapis.com/css?family=Open+Sans"]
|
|
||||||
styles url
|
styles url
|
||||||
[StaticR css_bootstrap_min_css
|
[StaticR css_bootstrap_min_css
|
||||||
,StaticR css_haskell_font_css
|
,StaticR css_haskell_font_css
|
||||||
,StaticR css_hscolour_css
|
,StaticR css_hscolour_css
|
||||||
,StaticR css_hl_css]
|
,StaticR css_hl_css]
|
||||||
|
innerhead mroute url
|
||||||
bodyinner =
|
bodyinner =
|
||||||
do div [class_ "wrap"]
|
do div [class_ "wrap"]
|
||||||
(inner mroute url)
|
(innerbody mroute url)
|
||||||
div [class_ "footer"]
|
div [class_ "footer"]
|
||||||
(div [class_ "container"]
|
(div [class_ "container"]
|
||||||
(p [] (do "Copyright © 2014 haskell-lang.org")))
|
(p [] (do "Copyright © 2014 haskell-lang.org")))
|
||||||
|
@ -76,9 +77,14 @@ scripts url =
|
||||||
styles :: (a -> AttributeValue) -> [a] -> Senza
|
styles :: (a -> AttributeValue) -> [a] -> Senza
|
||||||
styles url =
|
styles url =
|
||||||
mapM_ (\route ->
|
mapM_ (\route ->
|
||||||
link [rel "stylesheet"
|
linkcss (url route))
|
||||||
,type_ "text/css"
|
|
||||||
,href (url route)])
|
-- | A link to CSSxs
|
||||||
|
linkcss :: AttributeValue -> Senza
|
||||||
|
linkcss uri =
|
||||||
|
link [rel "stylesheet"
|
||||||
|
,type_ "text/css"
|
||||||
|
,href uri]
|
||||||
|
|
||||||
-- | Main navigation.
|
-- | Main navigation.
|
||||||
navigation :: Bool -> FromSenza App
|
navigation :: Bool -> FromSenza App
|
||||||
|
|
Loading…
Reference in a new issue