| By | Chris Done |
| At | 2011-06-04 |
| Title | Link up logo. |
| Description |
Edit file src/Amelie/View/Layout.hs 33188 → 33188
28 28 pageBody
29 29 30 30 -- | Show the hpaste logo.
31 31 logo :: Html
32 32 logo = do
- 33 img ! aClass "logo" ! A.src "/css/hpaste.png"
+ 33 a ! A.href "/" ! A.title "Back to home" $ do
+ 34 img ! aClass "logo" ! A.src "/css/hpaste.png"
34 35 35 36 -- | Layout wrapper.
36 37 wrap :: Html -> Html
37 38 wrap x = H.div ! aClass "wrap" $ x
… … … … Edit file src/Amelie/View/Style.hs 33188 → 33188
19 19 fontFamily "'DejaVu Sans', sans-serif"
20 20 fontSize "13px"
21 21 textAlign "center"
22 22 23 23 classRule "logo" $ do
- 24 margin "0 0 1em 0"
+ 24 margin "1em 0 1em 0"
+ 25 border "0"
25 26 26 27 classRule "wrap" $ do
27 28 maxWidth "50em"
28 29 margin "auto"
29 30 textAlign "left"
… … … … 34 35 border "3px solid #000"
35 36 margin "0 0 1em 0"
36 37 37 38 subRule "h2" $ do
38 39 margin "0"
- 39 fontSize "1em"
+ 40 fontSize "1.2em"
40 41 padding "0 0 0.5em 0"
41 42 42 43 classRule "section-dark" $ do
43 44 background "#453D5B"
44 45 borderColor "#A9A0D2"
… … … …