| By | fr33domlover |
| At | 2015-05-21 |
| Title | tweak layout for rel4tion's use |
| Description |
Edit file src/Hpaste/View/Layout.hs 33188 → 33188
59 59 60 60 -- | Navigation.
61 61 nav :: Markup
62 62 nav = do
63 63 H.div ! aClass "nav" $ do
- 64 a ! aClass "logo" ! A.href "/" $ "λ"
+ 64 a ! aClass "logo" ! A.href "/" $ "Rel4tion >> Paste"
65 65 a ! A.href "/browse" $ "Browse"
66 66 a ! A.href "mailto:fr33domlover@rel4tion.org" $ "Contact"
+ 67 a ! A.href "http://freepo.st" $ "Community"
67 68 -- " | "
68 69 -- a ! A.href "/activity" $ "Changes"
69 70 70 71 -- | Page footer.
71 72 foot :: Markup
… … … … 75 76 lnk "https://wikibooks.org/wiki/Haskell" "Haskell Wikibook"
76 77 //
77 78 lnk "http://haskell.org/" "Haskell.org"
78 79 //
79 80 lnk "http://planet.haskell.org/" "Planet Haskell"
+ 81 //
+ 82 lnk "http://rel4tion.org" "Rel4tion"
80 83 81 84 where lnk url t = href (url :: String) (t :: String)
82 85 left // right = do _ <- left; (" / " :: Markup); right… … … …