By | Chris Done |
At | 2011-08-18 |
Title | Support highlight.js again. |
Description |
Edit file src/Amelie/View/Highlight.hs 33188 → 33188
34 34 "\n"
35 35 td $
36 36 case lang of
37 37 Just (Language{languageName="haskell"}) ->
38 38 preEscapedString $ hscolour False (unpack pastePaste)
- 39 _ -> pre $ toHtml pastePaste
+ 39 Just (Language{..}) ->
+ 40 pre $ code ! A.class_ (toValue $ "language-" ++ languageName) $
+ 41 toHtml pastePaste
+ 42 _ ->
+ 43 pre $ toHtml pastePaste
40 44 41 45 where lang = find ((==pasteLanguage) . Just . languageId) langs
42 46 43 47 highlightHaskell :: Text -> Html
44 48 highlightHaskell paste =
… … … …