From d3f4293725b9100824c49f6fa651febec2b18666 Mon Sep 17 00:00:00 2001 From: fiddlosopher Date: Fri, 3 Jul 2009 02:33:43 +0000 Subject: Export languagesByExtension in Text.Pandoc.Highlighting. git-svn-id: https://pandoc.googlecode.com/svn/trunk@1585 788f1e2b-df1e-0410-8736-df70ead52e1b --- src/Text/Pandoc/Highlighting.hs | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) (limited to 'src/Text') 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 -- cgit v1.2.3