| By | fr33domlover |
| At | 2015-09-21 |
| Title | some UI string tweaks |
| 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 ++ " :: rel4paste"
+ 29 title $ toMarkup $ pageTitle ++ " :: toothpaste"
30 30 script $
31 31 "hljs.tabReplace = ' ';hljs.initHighlightingOnLoad();"
32 32 body ! A.id (toValue pageName) $ do
33 33 wrap $ do
34 34 nav
… … … … 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 "/" $ "Rel4tion >> Paste"
+ 64 a ! aClass "logo" ! A.href "/" $ "Toothpaste"
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 68 a ! A.href "http://www.rel4tion.org/access/paste/" $ "About"
69 69 -- " | "
70 70 -- a ! A.href "/activity" $ "Changes"
71 71 72 72 -- | Page footer.
73 73 foot :: Markup
74 74 foot = H.div ! aClass "footer" $ p $
- 75 lnk "http://git.rel4tion.org/?p=hpaste-local.git" "Web site source code"
+ 75 lnk "https://notabug.org/fr33domlover/toothpaste" "Web site source code"
76 76 //
77 77 lnk "https://wikibooks.org/wiki/Haskell" "Haskell Wikibook"
78 78 //
79 79 lnk "http://haskell.org/" "Haskell.org"
80 80 //
… … … … 83 83 lnk "https://snowdrift.coop" "Snowdrift"
84 84 //
85 85 lnk "https://notabug.org" "NotABug"
86 86 //
87 87 lnk "http://peers.community" "Peers"
- 88 //
- 89 lnk "http://rel4tion.org" "Rel4tion"
90 88 91 89 where lnk url t = href (url :: String) (t :: String)
92 90 left // right = do _ <- left; (" / " :: Markup); right… … … …