From 33a1e4ae1af769eb45b671794da4984bcba25340 Mon Sep 17 00:00:00 2001
From: Albert Krewinkel <albert@zeitkraut.de>
Date: Wed, 31 May 2017 20:43:30 +0200
Subject: Org reader: include tags in headlines

The Emacs default is to include tags in the headline when exporting.
Instead of just empty spans, which contain the tag name as attribute,
tags are rendered as small caps and wrapped in those spans.
Non-breaking spaces serve as separators for multiple tags.
---
 test/Tests/Readers/Org.hs | 36 +++++++++++++++++++-----------------
 1 file changed, 19 insertions(+), 17 deletions(-)

(limited to 'test')

diff --git a/test/Tests/Readers/Org.hs b/test/Tests/Readers/Org.hs
index 3302e0c3e..63b32c688 100644
--- a/test/Tests/Readers/Org.hs
+++ b/test/Tests/Readers/Org.hs
@@ -28,6 +28,10 @@ simpleTable' :: Int
              -> Blocks
 simpleTable' n = table "" (replicate n (AlignDefault, 0.0))
 
+-- | Create a span for the given tag.
+tagSpan :: String -> Inlines
+tagSpan t = spanWith ("", ["tag"], [("data-tag-name", t)]) . smallcaps $ str t
+
 tests :: [TestTree]
 tests =
   [ testGroup "Inlines" $
@@ -729,18 +733,17 @@ tests =
                       , "* old  :ARCHIVE:"
                       , "  boring"
                       ] =?>
-              let tagSpan t = spanWith ("", ["tag"], [("data-tag-name", t)]) mempty
-              in mconcat [ headerWith ("old", [], mempty) 1 ("old" <> tagSpan "ARCHIVE")
-                         , para "boring"
-                         ]
+              mconcat [ headerWith ("old", [], mempty) 1
+                                   ("old" <> space <> tagSpan "ARCHIVE")
+                      , para "boring"
+                      ]
 
           , "include archive tree header only" =:
               unlines [ "#+OPTIONS: arch:headline"
                       , "* old  :ARCHIVE:"
                       , "  boring"
                       ] =?>
-              let tagSpan t = spanWith ("", ["tag"], [("data-tag-name", t)]) mempty
-              in headerWith ("old", [], mempty) 1 ("old" <> tagSpan "ARCHIVE")
+              headerWith ("old", [], mempty) 1 ("old" <> space <> tagSpan "ARCHIVE")
 
           , "limit headline depth" =:
               unlines [ "#+OPTIONS: H:2"
@@ -898,17 +901,16 @@ tests =
                     , "** Call Mom      :@PHONE:"
                     , "** Call John     :@PHONE:JOHN: "
                     ] =?>
-            let tagSpan t = spanWith ("", ["tag"], [("data-tag-name", t)]) mempty
-            in mconcat [ headerWith ("personal", [], [])
-                                    1
-                                    ("Personal" <> tagSpan "PERSONAL")
-                       , headerWith ("call-mom", [], [])
-                                    2
-                                    ("Call Mom" <> tagSpan "@PHONE")
-                       , headerWith ("call-john", [], [])
-                                    2
-                                    ("Call John" <> tagSpan "@PHONE" <> tagSpan "JOHN")
-                       ]
+            mconcat [ headerWith ("personal", [], [])
+                                 1
+                                 ("Personal " <> tagSpan "PERSONAL")
+                    , headerWith ("call-mom", [], [])
+                                 2
+                                 ("Call Mom " <> tagSpan "@PHONE")
+                    , headerWith ("call-john", [], [])
+                                 2
+                                 ("Call John " <> tagSpan "@PHONE" <> "\160" <> tagSpan "JOHN")
+                    ]
 
         , "Untagged header containing colons" =:
             "* This: is not: tagged" =?>
-- 
cgit v1.2.3