pandoc/test/command/4284.md at 0bdcf415e4eff83ad8e35c1d41c8a28e0bbd5da1

John MacFarlane 0bdcf415e4 Switch from pretty-simple to pretty-show for native output.

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.

2021-09-28 21:17:53 -07:00

2.6 KiB

Raw Blame History

% 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" ] ]
    ]
]

2.6 KiB Raw Blame History

2.6 KiB

Raw Blame History