From b371e83d7362c6ffc6e4dd98b7288ddd7f23f46a Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Tue, 17 Jun 2014 15:15:56 -0700
Subject: [PATCH] Highlighting: Let .numberLines work even if no language
given.
Closes #1287, jgm/highlighting-kate#40.
---
src/Text/Pandoc/Highlighting.hs | 7 ++++++-
1 file changed, 6 insertions(+), 1 deletion(-)
diff --git a/src/Text/Pandoc/Highlighting.hs b/src/Text/Pandoc/Highlighting.hs
index 2e7a9f648..7f975d4c6 100644
--- a/src/Text/Pandoc/Highlighting.hs
+++ b/src/Text/Pandoc/Highlighting.hs
@@ -74,7 +74,12 @@ highlight formatter (_, classes, keyvals) rawCode =
["number","numberLines", "number-lines"]) classes }
lcclasses = map (map toLower) classes
in case find (`elem` lcLanguages) lcclasses of
- Nothing -> Nothing
+ Nothing
+ | numberLines fmtOpts -> Just
+ $ formatter fmtOpts{ codeClasses = [],
+ containerClasses = classes }
+ $ map (\ln -> [(NormalTok, ln)]) $ lines rawCode
+ | otherwise -> Nothing
Just language -> Just
$ formatter fmtOpts{ codeClasses = [language],
containerClasses = classes }