0bdcf415e4
Update tests. Reason: it turns out that the native output generated by pretty-simple isn't always readable by the native reader. According to https://github.com/cdepillabout/pretty-simple/issues/99 it is not a design goal of the library that the rendered values be readable using 'read'. This makes it unsuitable for our purposes. pretty-show is a bit slower and it uses 4-space indents (non-configurable), but it doesn't have this serious drawback.
120 lines
2.6 KiB
Markdown
120 lines
2.6 KiB
Markdown
```
|
|
% pandoc -f org -t native
|
|
#+EXCLUDE_TAGS:apple cat bye dog %
|
|
|
|
* This should not appear :apple:
|
|
* NOEXPORT should appear if not specified in EXCLUDE_TAGS :noexport:
|
|
* This should not appear :cat:hi:laptop:
|
|
** Children of headers with excluded tags should not appear :xylophone:
|
|
* This should not appear :%:
|
|
^D
|
|
[ Header
|
|
1
|
|
( "noexport-should-appear-if-not-specified-in-excludetags"
|
|
, []
|
|
, []
|
|
)
|
|
[ Str "NOEXPORT"
|
|
, Space
|
|
, Str "should"
|
|
, Space
|
|
, Str "appear"
|
|
, Space
|
|
, Str "if"
|
|
, Space
|
|
, Str "not"
|
|
, Space
|
|
, Str "specified"
|
|
, Space
|
|
, Str "in"
|
|
, Space
|
|
, Str "EXCLUDE"
|
|
, Subscript [ Str "TAGS" ]
|
|
, Space
|
|
, Span
|
|
( "" , [ "tag" ] , [ ( "tag-name" , "noexport" ) ] )
|
|
[ SmallCaps [ Str "noexport" ] ]
|
|
]
|
|
]
|
|
```
|
|
|
|
```
|
|
% pandoc -f org -t native
|
|
#+EXCLUDE_TAGS:elephant
|
|
* This should not appear :elephant:
|
|
* This should appear :fawn:
|
|
^D
|
|
[ Header
|
|
1
|
|
( "this-should-appear" , [] , [] )
|
|
[ Str "This"
|
|
, Space
|
|
, Str "should"
|
|
, Space
|
|
, Str "appear"
|
|
, Space
|
|
, Span
|
|
( "" , [ "tag" ] , [ ( "tag-name" , "fawn" ) ] )
|
|
[ SmallCaps [ Str "fawn" ] ]
|
|
]
|
|
]
|
|
```
|
|
|
|
```
|
|
% pandoc -f org -t native
|
|
#+EXCLUDE_TAGS: giraffe
|
|
#+EXCLUDE_TAGS: hippo
|
|
* This should not appear :giraffe:
|
|
* This should not appear :hippo:
|
|
* This should appear :noexport:
|
|
^D
|
|
[ Header
|
|
1
|
|
( "this-should-appear" , [] , [] )
|
|
[ Str "This"
|
|
, Space
|
|
, Str "should"
|
|
, Space
|
|
, Str "appear"
|
|
, Space
|
|
, Span
|
|
( "" , [ "tag" ] , [ ( "tag-name" , "noexport" ) ] )
|
|
[ SmallCaps [ Str "noexport" ] ]
|
|
]
|
|
]
|
|
```
|
|
|
|
```
|
|
% pandoc -f org -t native
|
|
#+EXCLUDE_TAGS:
|
|
* NOEXPORT should appear if not specified in EXCLUDE_TAGS :noexport:
|
|
^D
|
|
[ Header
|
|
1
|
|
( "noexport-should-appear-if-not-specified-in-excludetags"
|
|
, []
|
|
, []
|
|
)
|
|
[ Str "NOEXPORT"
|
|
, Space
|
|
, Str "should"
|
|
, Space
|
|
, Str "appear"
|
|
, Space
|
|
, Str "if"
|
|
, Space
|
|
, Str "not"
|
|
, Space
|
|
, Str "specified"
|
|
, Space
|
|
, Str "in"
|
|
, Space
|
|
, Str "EXCLUDE"
|
|
, Subscript [ Str "TAGS" ]
|
|
, Space
|
|
, Span
|
|
( "" , [ "tag" ] , [ ( "tag-name" , "noexport" ) ] )
|
|
[ SmallCaps [ Str "noexport" ] ]
|
|
]
|
|
]
|
|
```
|