diff options
| author | Albert Krewinkel <albert@zeitkraut.de> | 2016-10-30 20:23:53 +0100 |
|---|---|---|
| committer | Albert Krewinkel <albert@zeitkraut.de> | 2016-10-30 20:23:53 +0100 |
| commit | 4f06e6c4455b5b6be21416e9736a70f8d2b1ff1c (patch) | |
| tree | 1ec45c3e3a11a67b8cd8ae35373bf3c9f6ae47e3 /tests/Tests/Readers | |
| parent | 63bdc5d08f81365db15b1d9ae11c1d6af72ae35e (diff) | |
Org reader: support `ATTR_HTML` for special blocks
Special blocks (i.e. blocks with unrecognized names) can be prefixed
with an `ATTR_HTML` block attribute. The attributes defined in that
meta-directive are added to the `Div` which is used to represent the
special block.
Closes: #3182
Diffstat (limited to 'tests/Tests/Readers')
| -rw-r--r-- | tests/Tests/Readers/Org.hs | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/tests/Tests/Readers/Org.hs b/tests/Tests/Readers/Org.hs index 3aa38ff0c..1b536551c 100644 --- a/tests/Tests/Readers/Org.hs +++ b/tests/Tests/Readers/Org.hs @@ -1625,6 +1625,15 @@ tests = ] =?> rawBlock "html" "\n<span>boring</span>\n\n" + , "Accept `ATTR_HTML` attributes for generic block" =: + unlines [ "#+ATTR_HTML: :title hello, world :id test :class fun code" + , "#+BEGIN_TEST" + , "nonsense" + , "#+END_TEST" + ] =?> + let attr = ("test", ["fun", "code", "TEST"], [("title", "hello, world")]) + in divWith attr (para "nonsense") + , "Non-letter chars in source block parameters" =: unlines [ "#+BEGIN_SRC C :tangle xxxx.c :city Zürich" , "code body" |