| By | fr33domlover |
| At | 2015-08-20 |
| Title | tweak and add some links |
| Description |
Edit file src/Hpaste/View/Layout.hs 33188 → 33188
24 24 meta ! A.httpEquiv "Content-Type" ! A.content "text/html; charset=UTF-8"
25 25 link ! A.rel "stylesheet" ! A.type_ "text/css" ! A.href "/css/amelie.css"
26 26 js "jquery.js"
27 27 js "amelie.js"
28 28 js "highlight.pack.js"
- 29 title $ toMarkup $ pageTitle ++ " :: lpaste — Lambda pastebin"
+ 29 title $ toMarkup $ pageTitle ++ " :: rel4paste"
30 30 script $
31 31 "hljs.tabReplace = ' ';hljs.initHighlightingOnLoad();"
32 32 body ! A.id (toValue pageName) $ do
33 33 wrap $ do
34 34 nav
… … … … 63 63 H.div ! aClass "nav" $ do
64 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 67 a ! A.href "http://freepo.st" $ "Community"
+ 68 a ! A.href "http://www.rel4tion.org/access/paste/" $ "About"
68 69 -- " | "
69 70 -- a ! A.href "/activity" $ "Changes"
70 71 71 72 -- | Page footer.
72 73 foot :: Markup
… … … … 76 77 lnk "https://wikibooks.org/wiki/Haskell" "Haskell Wikibook"
77 78 //
78 79 lnk "http://haskell.org/" "Haskell.org"
79 80 //
80 81 lnk "http://planet.haskell.org/" "Planet Haskell"
+ 82 //
+ 83 lnk "https://snowdrift.coop" "Snowdrift"
+ 84 //
+ 85 lnk "https://notabug.org" "NotABug"
+ 86 //
+ 87 lnk "http://peers.community" "Peers"
81 88 //
82 89 lnk "http://rel4tion.org" "Rel4tion"
83 90 84 91 where lnk url t = href (url :: String) (t :: String)
85 92 left // right = do _ <- left; (" / " :: Markup); right… … … …