From 606bf9147fe60e5eb0b26b708042a7dd505efdbe Mon Sep 17 00:00:00 2001
From: Matti Pastell <matti.pastell@helsinki.fi>
Date: Thu, 15 Dec 2016 12:39:41 +0200
Subject: [PATCH] Preserve whitespace when stripping the header

---
 src/format.jl                                 | 4 +++-
 test/documents/multimedia/rich_output.md.ref  | 1 +
 test/documents/multimedia/rich_output.tex.ref | 1 +
 3 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/src/format.jl b/src/format.jl
index 5223333..39e439a 100644
--- a/src/format.jl
+++ b/src/format.jl
@@ -90,7 +90,9 @@ function get_titleblock(doc::WeaveDoc)
 end
 
 function strip_header(chunk::DocChunk)
-  chunk.content = lstrip(replace(chunk.content, r"^---$(?<header>.+)^---$"ms, ""))
+  if ismatch(r"^---$(?<header>.+)^---$"ms, chunk.content)
+    chunk.content = lstrip(replace(chunk.content, r"^---$(?<header>.+)^---$"ms, ""))
+  end
   return chunk
 end
 
diff --git a/test/documents/multimedia/rich_output.md.ref b/test/documents/multimedia/rich_output.md.ref
index a7f7f81..d8f0e33 100644
--- a/test/documents/multimedia/rich_output.md.ref
+++ b/test/documents/multimedia/rich_output.md.ref
@@ -1,4 +1,5 @@
 
+
 ~~~~{.julia}
 using DataFrames
 df = DataFrame(letters = 'a':'z', numbers = 1:26)
diff --git a/test/documents/multimedia/rich_output.tex.ref b/test/documents/multimedia/rich_output.tex.ref
index 9a662db..ced060f 100644
--- a/test/documents/multimedia/rich_output.tex.ref
+++ b/test/documents/multimedia/rich_output.tex.ref
@@ -1,4 +1,5 @@
 
+
 \begin{juliacode}
 using DataFrames
 df = DataFrame(letters = 'a':'z', numbers = 1:26)