diff options
| author | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2009-07-03 02:33:43 +0000 |
|---|---|---|
| committer | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2009-07-03 02:33:43 +0000 |
| commit | d3f4293725b9100824c49f6fa651febec2b18666 (patch) | |
| tree | 63da259193984d176f8536ac4726593565e8a10e /src/Text/Pandoc/Highlighting.hs | |
| parent | 32f357c1108306b35a8d7ccbf2503a733ca9b529 (diff) | |
Export languagesByExtension in Text.Pandoc.Highlighting.
git-svn-id: https://pandoc.googlecode.com/svn/trunk@1585 788f1e2b-df1e-0410-8736-df70ead52e1b
Diffstat (limited to 'src/Text/Pandoc/Highlighting.hs')
| -rw-r--r-- | src/Text/Pandoc/Highlighting.hs | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Highlighting.hs b/src/Text/Pandoc/Highlighting.hs index 6726f1a42..6a88e5d70 100644 --- a/src/Text/Pandoc/Highlighting.hs +++ b/src/Text/Pandoc/Highlighting.hs @@ -29,11 +29,11 @@ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA Exports functions for syntax highlighting. -} -module Text.Pandoc.Highlighting ( languages, highlightHtml, defaultHighlightingCss ) where +module Text.Pandoc.Highlighting ( languages, highlightHtml, defaultHighlightingCss, languagesByExtension ) where import Text.XHtml import Text.Pandoc.Definition #ifdef _HIGHLIGHTING -import Text.Highlighting.Kate ( languages, highlightAs, formatAsXHtml, FormatOption (..), defaultHighlightingCss ) +import Text.Highlighting.Kate ( languages, highlightAs, formatAsXHtml, FormatOption (..), defaultHighlightingCss, languagesByExtension ) import Data.List (find, lookup) import Data.Maybe (fromMaybe) import Data.Char (toLower) @@ -59,6 +59,9 @@ defaultHighlightingCss = "" languages :: [String] languages = [] +languagesByExtension :: String -> [String] +languagesByExtension _ = [] + highlightHtml :: Attr -> String -> Either String Html highlightHtml _ _ = Left "Pandoc was not compiled with support for highlighting" #endif |