diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2016-05-19 10:44:11 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2016-05-19 10:44:11 -0700 |
| commit | 0958f2f5d0f8f3d596b2ff32391b4b22d345cbe4 (patch) | |
| tree | bca3e01fbc46edffbf19e87d16d5d92dff1c4c77 /tests/Tests | |
| parent | 847167804aada52bc1af32920c83582b426ef9eb (diff) | |
| parent | 16e233475ae93d7113ef049dec272d23667fc493 (diff) | |
| download | pandoc-0958f2f5d0f8f3d596b2ff32391b4b22d345cbe4.tar.gz | |
Merge pull request #2927 from tarleb/org-attr-html
Org reader support for ATTR_HTML statements
Diffstat (limited to 'tests/Tests')
| -rw-r--r-- | tests/Tests/Readers/Org.hs | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/tests/Tests/Readers/Org.hs b/tests/Tests/Readers/Org.hs index fa0c57f71..666d93a51 100644 --- a/tests/Tests/Readers/Org.hs +++ b/tests/Tests/Readers/Org.hs @@ -667,6 +667,17 @@ tests = para (image "the-red-queen.jpg" "fig:redqueen" "Used as a metapher in evolutionary biology.") + , "Figure with HTML attributes" =: + unlines [ "#+CAPTION: mah brain just explodid" + , "#+NAME: lambdacat" + , "#+ATTR_HTML: :style color: blue :role button" + , "[[lambdacat.jpg]]" + ] =?> + let kv = [("style", "color: blue"), ("role", "button")] + name = "fig:lambdacat" + caption = "mah brain just explodid" + in para (imageWith (mempty, mempty, kv) "lambdacat.jpg" name caption) + , "Footnote" =: unlines [ "A footnote[1]" , "" |