d3f4293 · typeable/pandoc

git.iko.soy/typeable/pandoc

Export languagesByExtension in Text.Pandoc.Highlighting.

git-svn-id: https://pandoc.googlecode.com/svn/trunk@1585 788f1e2b-df1e-0410-8736-df70ead52e1b

commitd3f4293725b9100824c49f6fa651febec2b18666 authorfiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> dateFri 3 Jul 2009, 02:33 (17 years ago) parent32f357c

1 file changed+5−2

compare with master

unifiedsplit

src/Text/Pandoc/Highlighting.hs+5−2

src/Text/Pandoc/Highlighting.hs+5−2

@@ -29,11 +29,11 @@ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA

2929Exports functions for syntax highlighting.

3030-}

3131

32−module Text.Pandoc.Highlighting ( languages, highlightHtml, defaultHighlightingCss ) where

32+module Text.Pandoc.Highlighting ( languages, highlightHtml, defaultHighlightingCss, languagesByExtension ) where

3333import Text.XHtml

3434import Text.Pandoc.Definition

3535#ifdef _HIGHLIGHTING

36−import Text.Highlighting.Kate ( languages, highlightAs, formatAsXHtml, FormatOption (..), defaultHighlightingCss )

36+import Text.Highlighting.Kate ( languages, highlightAs, formatAsXHtml, FormatOption (..), defaultHighlightingCss, languagesByExtension )

3737import Data.List (find, lookup)

3838import Data.Maybe (fromMaybe)

3939import Data.Char (toLower)

@@ -59,6 +59,9 @@ defaultHighlightingCss = ""

5959languages :: [String]

6060languages = []

6161

62+languagesByExtension :: String -> [String]

63+languagesByExtension _ = []

64+

6265highlightHtml :: Attr -> String -> Either String Html

6366highlightHtml _ _ = Left "Pandoc was not compiled with support for highlighting"

6467#endif