From 48be39ae2a023b566ee26ebde5eb1ab743d1269e Mon Sep 17 00:00:00 2001
From: John MacFarlane <fiddlosopher@gmail.com>
Date: Wed, 6 Mar 2013 10:13:12 -0800
Subject: Support :number-lines: in RST code output.

---
 src/Text/Pandoc/Writers/RST.hs | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

(limited to 'src/Text/Pandoc/Writers')

diff --git a/src/Text/Pandoc/Writers/RST.hs b/src/Text/Pandoc/Writers/RST.hs
index 78b8fcd73..302f843ca 100644
--- a/src/Text/Pandoc/Writers/RST.hs
+++ b/src/Text/Pandoc/Writers/RST.hs
@@ -171,9 +171,13 @@ blockToRST (Header level _ inlines) = do
   let headerChar = if level > 5 then ' ' else "=-~^'" !! (level - 1)
   let border = text $ replicate (offset contents) headerChar
   return $ nowrap $ contents $$ border $$ blankline
-blockToRST (CodeBlock (_,classes,_) str) = do
+blockToRST (CodeBlock (_,classes,kvs) str) = do
   opts <- stOptions <$> get
   let tabstop = writerTabStop opts
+  let startnum = maybe "" (\x -> " " <> text x) $ lookup "startFrom" kvs
+  let numberlines = if "numberLines" `elem` classes
+                       then "   :number-lines:" <> startnum
+                       else empty
   if "haskell" `elem` classes && "literate" `elem` classes &&
                   isEnabled Ext_literate_haskell opts
      then return $ prefixed "> " (text str) $$ blankline
@@ -181,7 +185,7 @@ blockToRST (CodeBlock (_,classes,_) str) = do
           (case [c | c <- classes,
                      c `notElem` ["sourceCode","literate","numberLines"]] of
              []       -> "::"
-             (lang:_) -> ".. code:: " <> text lang)
+             (lang:_) -> (".. code:: " <> text lang) $$ numberlines)
           $+$ nest tabstop (text str) $$ blankline
 blockToRST (BlockQuote blocks) = do
   tabstop <- get >>= (return . writerTabStop . stOptions)
-- 
cgit v1.2.3