From d17b257c89624ceea6bd319caa22aa25e95fb5e9 Mon Sep 17 00:00:00 2001
From: Albert Krewinkel <albert@zeitkraut.de>
Date: Mon, 29 Jun 2020 16:43:27 +0200
Subject: Org reader: allow multiple #+SUBTITLE export settings

The values of all lines are read as inlines and collected in the
`subtitle` metadata field.
---
 test/Tests/Readers/Org/Meta.hs | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'test')

diff --git a/test/Tests/Readers/Org/Meta.hs b/test/Tests/Readers/Org/Meta.hs
index c811f2363..89cd35b26 100644
--- a/test/Tests/Readers/Org/Meta.hs
+++ b/test/Tests/Readers/Org/Meta.hs
@@ -93,6 +93,13 @@ tests =
         in Pandoc meta mempty
       ]
 
+    , "Subtitle" =:
+      T.unlines [ "#+SUBTITLE: Your Life in"
+                , "#+SUBTITLE: /Plain/ Text"
+                ] =?>
+      let subtitle = "Your Life in" <> softbreak <> emph "Plain" <> " Text"
+      in Pandoc (setMeta "subtitle" (toMetaValue subtitle) nullMeta) mempty
+
     , "Keywords" =:
       T.unlines [ "#+KEYWORDS: pandoc, testing,"
                 , "#+KEYWORDS: Org"
-- 
cgit v1.2.3