30 lines
798 B
Haskell
30 lines
798 B
Haskell
|
module Tests.Readers.Org.Shared
|
||
|
|
( (=:)
|
||
|
|
, org
|
||
|
|
, spcSep
|
||
|
|
, tagSpan
|
||
|
|
) where
|
||
|
|
|
||
|
|
import Data.List (intersperse)
|
||
|
|
import Data.Text (Text)
|
||
|
|
import Tests.Helpers (ToString, purely, test)
|
||
|
|
import Test.Tasty (TestTree)
|
||
|
|
import Text.Pandoc (Pandoc, ReaderOptions (readerExtensions),
|
||
|
|
def, getDefaultExtensions, readOrg)
|
||
|
|
import Text.Pandoc.Builder (Inlines, smallcaps, space, spanWith, str)
|
||
|
|
|
||
|
|
org :: Text -> Pandoc
|
||
|
|
org = purely $ readOrg def{ readerExtensions = getDefaultExtensions "org" }
|
||
|
|
|
||
|
|
infix 4 =:
|
||
|
|
(=:) :: ToString c
|
||
|
|
=> String -> (Text, c) -> TestTree
|
||
|
|
(=:) = test org
|
||
|
|
|
||
|
|
spcSep :: [Inlines] -> Inlines
|
||
|
|
spcSep = mconcat . intersperse space
|
||
|
|
|
||
|
|
-- | Create a span for the given tag.
|
||
|
|
tagSpan :: String -> Inlines
|
||
|
|
tagSpan t = spanWith ("", ["tag"], [("tag-name", t)]) . smallcaps $ str t
|