Highlighting: Let .numberLines work even if no language given.

Closes #1287, jgm/highlighting-kate#40.
2014-06-17 15:15:56 -07:00 · 2014-06-17 15:15:56 -07:00 · b371e83d73
commit b371e83d73
parent 59272e4d99
1 changed files with 6 additions and 1 deletions
--- 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 }