Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Export languagesByExtension in Text.Pandoc.Highlighting.

Browse source 
git-svn-id: https://pandoc.googlecode.com/svn/trunk@1585 788f1e2b-df1e-0410-8736-df70ead52e1b
This commit is contained in:
fiddlosopher 2009-07-03 02:33:43 +00:00
parent 32f357c110
commit d3f4293725
1 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
src/Text/Pandoc/Highlighting.hs
View file

@ -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