| By | Chris Done |
| At | 2013-02-27 |
| Title | remove links to disabled features |
| Description |
Edit file src/Amelie/View/Layout.hs 33188 → 33188
61 61 62 62 -- | Navigation.
63 63 nav :: Html
64 64 nav = do
65 65 H.div ! aClass "nav" $ do
+ 66 a ! A.href "mailto:chrisdone@gmail.com" $ "Contact/support"
+ 67 " | "
66 68 a ! A.href "/activity" $ "Changelog"
67 69 68 70 -- | Page footer.
69 71 foot :: Html
70 72 foot = H.div ! aClass "footer" $ p $
… … … … Edit file src/Amelie/View/Paste.hs 33188 → 33188
136 136 ul ! aClass "paste-specs" $ do
137 137 detail "Paste" $ pasteLink paste $ "#" ++ show pasteId
138 138 detail "Author" $ pasteAuthor
139 139 detail "Language" $ showLanguage langs pasteLanguage
140 140 detail "Channel" $ do showChannel chans pasteChannel
- 141 " "
- 142 showContextLink paste chans pasteChannel
+ 141 -- " "
+ 142 -- showContextLink paste chans pasteChannel
143 143 detail "Created" $ showDateTime pasteDate
144 144 detail "Raw" $ pasteRawLink paste $ ("View raw link" :: Text)145 145 clear
146 146 147 147 where detail title content = do
… … … … 175 175 Just Paste{pasteId=prevId} -> do176 176 href ("/diff/" ++ show prevId ++ "/" ++ show pid)177 177 ("Diff" :: Text)178 178 " - "
179 179 stepsLink
- 180 | lang == Just "haskell" = do href ("/steps/" ++ show pid)- 181 ("Steps" :: Text)- 182 " - "
+ 180 -- | lang == Just "haskell" = do href ("/steps/" ++ show pid)+ 181 -- ("Steps" :: Text)+ 182 -- " - "
183 183 | otherwise = return ()
184 184 lang = pasteLanguage paste >>= (`lookup` ls)
185 185 ls = map (languageId &&& languageName) langs
186 186 187 187 -- | Show the paste content with highlighting.
… … … …