| By | Chris Done |
| At | 2011-06-08 |
| Title | Footer. |
| Description |
Edit file src/Amelie/View/Layout.hs 33188 → 33188
28 28 title $ toHtml $ pageTitle ++ " :: hpaste — Haskell Pastebin"
29 29 body ! A.id (toValue pageName) $
30 30 wrap $ do
31 31 logo
32 32 pageBody
+ 33 foot
33 34 34 35 where js s = script ! A.type_ "text/javascript"
35 36 ! A.src ("/js/" ++ s) $36 37 return ()
37 38 … … … … 42 43 img ! aClass "logo" ! A.src "/css/hpaste.png"
43 44 44 45 -- | Layout wrapper.
45 46 wrap :: Html -> Html
46 47 wrap x = H.div ! aClass "wrap" $ x
+ 48 + 49 -- | Page footer.
+ 50 foot :: Html
+ 51 foot = H.div ! aClass "footer" $ p $
+ 52 lnk "http://github.com/chrisdone/amelie" "Web site source code on Github"
+ 53 //
+ 54 lnk "http://book.realworldhaskell.org/" "Real World Haskell"
+ 55 //
+ 56 lnk "http://haskell.org/" "Haskell.org"
+ 57 //
+ 58 lnk "http://planet.haskell.org/" "Planet Haskell"
+ 59 + 60 where lnk url t = href (url :: String) (t :: String)
+ 61 left // right = do _ <- left; (" / " :: Html); right… … … … Edit file src/Amelie/View/Style.hs 33188 → 33188
20 20 paste
21 21 utils
22 22 highlighter
23 23 form
24 24 home
+ 25 footer
+ 26 + 27 -- | Footer.
+ 28 footer :: CSS Rule
+ 29 footer = do
+ 30 classRule "footer" $ do
+ 31 textAlign "center"
+ 32 subRule "a" $ do
+ 33 textDecoration "none"
+ 34 subRule "a:hover" $ do
+ 35 textDecoration "underline"
25 36 26 37 -- | General layout styles.
27 38 layout :: CSS Rule
28 39 layout = do
29 40 rule "body" $ do
… … … …