Org reader/writer: support admonitions.

Closes #9475.

1 files changed, 102 insertions, 0 deletions

diff --git a/test/command/9475.md b/test/command/9475.md
new file mode 100644
index 000000000..c3f355f3b
--- /dev/null
+++ b/test/command/9475.md
@@ -0,0 +1,102 @@
+```
+% pandoc -f org -t native
+#+begin_note
+Useful note.
+#+end_note
+
+#+begin_warning
+Be careful!
+#+end_warning
+
+#+begin_tip
+Try this...
+#+end_tip
+
+#+begin_caution
+Caution
+#+end_caution
+
+#+name: foo
+#+begin_important
+Important
+#+end_important
+^D
+[ Div
+    ( "" , [ "note" ] , [] )
+    [ Div ( "" , [ "title" ] , [] ) [ Para [ Str "Note" ] ]
+    , Para [ Str "Useful" , Space , Str "note." ]
+    ]
+, Div
+    ( "" , [ "warning" ] , [] )
+    [ Div ( "" , [ "title" ] , [] ) [ Para [ Str "Warning" ] ]
+    , Para [ Str "Be" , Space , Str "careful!" ]
+    ]
+, Div
+    ( "" , [ "tip" ] , [] )
+    [ Div ( "" , [ "title" ] , [] ) [ Para [ Str "Tip" ] ]
+    , Para [ Str "Try" , Space , Str "this\8230" ]
+    ]
+, Div
+    ( "" , [ "caution" ] , [] )
+    [ Div ( "" , [ "title" ] , [] ) [ Para [ Str "Caution" ] ]
+    , Para [ Str "Caution" ]
+    ]
+, Div
+    ( "foo" , [ "important" ] , [] )
+    [ Div ( "" , [ "title" ] , [] ) [ Para [ Str "Important" ] ]
+    , Para [ Str "Important" ]
+    ]
+]
+
+```
+
+```
+% pandoc -f native -t org
+[ Div
+    ( "" , [ "note" ] , [] )
+    [ Div ( "" , [ "title" ] , [] ) [ Para [ Str "Note" ] ]
+    , Para [ Str "Useful" , Space , Str "note." ]
+    ]
+, Div
+    ( "" , [ "warning" ] , [] )
+    [ Div ( "" , [ "title" ] , [] ) [ Para [ Str "Warning" ] ]
+    , Para [ Str "Be" , Space , Str "careful!" ]
+    ]
+, Div
+    ( "" , [ "tip" ] , [] )
+    [ Div ( "" , [ "title" ] , [] ) [ Para [ Str "Tip" ] ]
+    , Para [ Str "Try" , Space , Str "this\8230" ]
+    ]
+, Div
+    ( "" , [ "caution" ] , [] )
+    [ Div ( "" , [ "title" ] , [] ) [ Para [ Str "Caution" ] ]
+    , Para [ Str "Caution" ]
+    ]
+, Div
+    ( "foo" , [ "important" ] , [] )
+    [ Div ( "" , [ "title" ] , [] ) [ Para [ Str "Important" ] ]
+    , Para [ Str "Important" ]
+    ]
+]
+^D
+#+begin_note
+Useful note.
+#+end_note
+
+#+begin_warning
+Be careful!
+#+end_warning
+
+#+begin_tip
+Try this...
+#+end_tip
+
+#+begin_caution
+Caution
+#+end_caution
+
+#+name: foo
+#+begin_important
+Important
+#+end_important
+```