diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Writers/Org.hs | 14 |
1 files changed, 10 insertions, 4 deletions
diff --git a/src/Text/Pandoc/Writers/Org.hs b/src/Text/Pandoc/Writers/Org.hs index 81c9d8d48..772e13d5c 100644 --- a/src/Text/Pandoc/Writers/Org.hs +++ b/src/Text/Pandoc/Writers/Org.hs @@ -159,10 +159,16 @@ blockToOrg (CodeBlock (ident,classes,kvs) str) = do else " -n" <> startnum else "" let at = map pandocLangToOrg classes `intersect` orgLangIdentifiers - let (beg, end) = case at of - [] -> ("#+begin_example" <> numberlines, "#+end_example") - (x:_) -> ("#+begin_src " <> x <> numberlines, "#+end_src") - return $ name $$ literal beg $$ literal str $$ text end $$ blankline + let lang = case at of + [] -> Nothing + l:_ -> Just l + let args = mconcat $ + [ " :" <> k <> " " <> v + | (k, v) <- kvs, k `notElem` ["startFrom", "org-language"]] + let (beg, end) = case lang of + Nothing -> ("#+begin_example" <> numberlines, "#+end_example") + Just x -> ("#+begin_src " <> x <> numberlines <> args, "#+end_src") + return $ name $$ literal beg $$ literal str $$ literal end $$ blankline blockToOrg (BlockQuote blocks) = do contents <- blockListToOrg blocks return $ blankline $$ "#+begin_quote" $$ |