ignore admonition blocks

Author: xitology

src/NarrativeTest.jl

@@ -521,6 +521,8 @@ isfence(line) =
     startswith(line.val, "```") || startswith(line.val, "~~~")
 isindent(line) =
     startswith(line.val, " "^4)
+isadmonition(line) =
+    startswith(line.val, "!!!")
 
 function unindent(line)
     val = line.val[5:end]
@@ -558,6 +560,11 @@ function parsemd!(stack::Vector{TextBlock})
             end
             reverse!(jlstack)
             append!(suite, parsejl!(jlstack))
+        elseif isadmonition(line)
+            # Skip an indented admonition block.
+            while !isempty(stack) && (isindent(stack[end]) || isblank(stack[end]))
+                pop!(stack)
+            end
         end
     end
     return suite

test/index.md

@@ -254,6 +254,18 @@ A fenced code block with an explicit language indicator is ignored.
             """))
     #-> NarrativeTest.AbstractTestCase[]
 
+An indented admonition block will be ignored.
+
+    parsemd(
+        @__FILE__,
+        IOBuffer("""
+            !!! warning
+
+                This is an admonition block,
+                not a Julia code.
+            """))
+    #-> NarrativeTest.AbstractTestCase[]
+
 It is an error if a fenced code block is not closed.
 
     suite = parsemd(