yogsototh/hl
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add reference to ubuntu font in Home page

Browse source
This commit is contained in:
Chris Done 2014-05-28 13:07:48 +02:00
parent aa2f8e75e6
commit 79e8f43494
2 changed files with 16 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/HL/V/Home.hs
View file

@ -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

22
src/HL/V/Template.hs
View file

@ -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