diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2012-05-29 16:27:19 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2012-05-29 16:27:19 -0700 |
| commit | 91e9d904b5fa1f8e354a0ae06fc1b3ba76f41ec5 (patch) | |
| tree | 4bf4097f56fce7ba2d6a7fab1d11ff619946ecfc /src/Text/Pandoc/Writers | |
| parent | 60495e9fb337636b5a4098bcb1e3d324234abf83 (diff) | |
| download | pandoc-91e9d904b5fa1f8e354a0ae06fc1b3ba76f41ec5.tar.gz | |
Org writer: Add space before language name.
Closes #523.
Diffstat (limited to 'src/Text/Pandoc/Writers')
| -rw-r--r-- | src/Text/Pandoc/Writers/Org.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Writers/Org.hs b/src/Text/Pandoc/Writers/Org.hs index 4c77ba7c6..7eb943a22 100644 --- a/src/Text/Pandoc/Writers/Org.hs +++ b/src/Text/Pandoc/Writers/Org.hs @@ -139,9 +139,9 @@ blockToOrg (CodeBlock (_,classes,_) str) = do "ledger", "lisp", "matlab", "mscgen", "ocaml", "octave", "oz", "perl", "plantuml", "python", "R", "ruby", "sass", "scheme", "screen", "sh", "sql", "sqlite"] - let (beg, end) = if null at - then ("#+BEGIN_EXAMPLE", "#+END_EXAMPLE") - else ("#+BEGIN_SRC" ++ head at, "#+END_SRC") + let (beg, end) = case at of + [] -> ("#+BEGIN_EXAMPLE", "#+END_EXAMPLE") + (x:_) -> ("#+BEGIN_SRC " ++ x, "#+END_SRC") return $ text beg $$ nest tabstop (text str) $$ text end $$ blankline blockToOrg (BlockQuote blocks) = do contents <- blockListToOrg blocks |