git.iko.soy/typeable/pandoc
on ceadf33 help sign in
333 files changed+5176−7491
since splitsnapshots
unifiedsplit
.circleci/config.yml+1−1 .editorconfig−8 .github/ISSUE_TEMPLATE+11 .github/ISSUE_TEMPLATE/bug_report.md−25 .github/ISSUE_TEMPLATE/config.yml−9 .github/ISSUE_TEMPLATE/feature_request.md−21 .github/workflows/ci.yml+3−12 .github/workflows/nightly.yml+2−2 .hlint.yaml−1 AUTHORS.md−14 CONTRIBUTING.md+5−6 INSTALL.md−4 MANUAL.txt+62−176 SECURITY.md−12 cabal.project+4−9 changelog.md+10−659 data/docx/word/settings.xml+16−6 data/templates/default.context+3−7 data/templates/default.dzslides+1−1 data/templates/default.latex+26−48 data/templates/default.revealjs+128−78 data/templates/default.s5−3 data/templates/default.slideous−7 data/templates/default.slidy−5 data/templates/styles.html+1−2 doc/epub.md+2−9 doc/faqs.md−128 doc/filters.md−2 doc/libraries.md−4 doc/lua-filters.md+2−2 doc/org.md+2−16 doc/using-the-pandoc-api.md+12−25 man/pandoc.1+39−187 pandoc.cabal+19−28 src/Text/Pandoc/App.hs+13−19 src/Text/Pandoc/App/Opt.hs+1−2 src/Text/Pandoc/Asciify.hs+390−13 src/Text/Pandoc/BCP47.hs+112 src/Text/Pandoc/Citeproc.hs+51−70 src/Text/Pandoc/Citeproc/BibTeX.hs+15−25 src/Text/Pandoc/Citeproc/Data.hs+6−7 src/Text/Pandoc/Citeproc/Locator.hs+3−18 src/Text/Pandoc/Class/CommonState.hs+1−1 src/Text/Pandoc/Class/IO.hs+22−21 src/Text/Pandoc/Class/PandocMonad.hs+33−22 src/Text/Pandoc/Error.hs+16−23 src/Text/Pandoc/Extensions.hs−7 src/Text/Pandoc/Highlighting.hs+5−5 src/Text/Pandoc/ImageSize.hs+1−5 src/Text/Pandoc/Logging.hs+9−18 src/Text/Pandoc/Lua/Filter.hs−2 src/Text/Pandoc/Lua/Module/MediaBag.hs+3−3 src/Text/Pandoc/Lua/Module/Pandoc.hs+3−8 src/Text/Pandoc/Lua/Module/Utils.hs+1−1 src/Text/Pandoc/MIME.hs−10 src/Text/Pandoc/MediaBag.hs+14−45 src/Text/Pandoc/Options.hs+17−17 src/Text/Pandoc/PDF.hs+3−16 src/Text/Pandoc/Parsing.hs+242−360 src/Text/Pandoc/Readers.hs+48−55 src/Text/Pandoc/Readers/BibTeX.hs+8−14 src/Text/Pandoc/Readers/CSV.hs+7−7 src/Text/Pandoc/Readers/CommonMark.hs+4−46 src/Text/Pandoc/Readers/Creole.hs+6−5 src/Text/Pandoc/Readers/CslJson.hs+4−5 src/Text/Pandoc/Readers/DocBook.hs+12−27 src/Text/Pandoc/Readers/Docx.hs+37−58 src/Text/Pandoc/Readers/Docx/Combine.hs+3−3 src/Text/Pandoc/Readers/Docx/Parse.hs+21−121 src/Text/Pandoc/Readers/Docx/Util.hs−7 src/Text/Pandoc/Readers/DokuWiki.hs+8−9 src/Text/Pandoc/Readers/FB2.hs+3−6 src/Text/Pandoc/Readers/HTML.hs+27−43 src/Text/Pandoc/Readers/HTML/Table.hs+14−33 src/Text/Pandoc/Readers/Haddock.hs+6−9 src/Text/Pandoc/Readers/Ipynb.hs+3−5 src/Text/Pandoc/Readers/JATS.hs+6−13 src/Text/Pandoc/Readers/Jira.hs+7−11 src/Text/Pandoc/Readers/LaTeX.hs+27−20 src/Text/Pandoc/Readers/LaTeX/Citation.hs+1−1 src/Text/Pandoc/Readers/LaTeX/Lang.hs+119−122 src/Text/Pandoc/Readers/LaTeX/Macro.hs+14−45 src/Text/Pandoc/Readers/LaTeX/Parsing.hs+7−48 src/Text/Pandoc/Readers/LaTeX/SIunitx.hs+66−140 src/Text/Pandoc/Readers/LaTeX/Types.hs+1−14 src/Text/Pandoc/Readers/Man.hs+11−18 src/Text/Pandoc/Readers/Markdown.hs+67−86 src/Text/Pandoc/Readers/MediaWiki.hs+6−7 src/Text/Pandoc/Readers/Metadata.hs+17−44 src/Text/Pandoc/Readers/Muse.hs+9−10 src/Text/Pandoc/Readers/Native.hs+5−7 src/Text/Pandoc/Readers/OPML.hs+4−9 src/Text/Pandoc/Readers/Odt/ContentReader.hs+7−12 src/Text/Pandoc/Readers/Org.hs+7−4 src/Text/Pandoc/Readers/Org/Blocks.hs+2−5 src/Text/Pandoc/Readers/Org/Inlines.hs+5−6 src/Text/Pandoc/Readers/Org/Parsing.hs+5−5 src/Text/Pandoc/Readers/RST.hs+109−76 src/Text/Pandoc/Readers/Roff.hs+18−16 src/Text/Pandoc/Readers/TWiki.hs+27−7 src/Text/Pandoc/Readers/Textile.hs+84−88 src/Text/Pandoc/Readers/TikiWiki.hs+6−6 src/Text/Pandoc/Readers/Txt2Tags.hs+7−27 src/Text/Pandoc/Readers/Vimwiki.hs+7−12 src/Text/Pandoc/SelfContained.hs+7−4 src/Text/Pandoc/Shared.hs+21−16 src/Text/Pandoc/Sources.hs−195 src/Text/Pandoc/Writers.hs+3−3 src/Text/Pandoc/Writers/AsciiDoc.hs+3−8 src/Text/Pandoc/Writers/BibTeX.hs+1−1 src/Text/Pandoc/Writers/ConTeXt.hs+40−44 src/Text/Pandoc/Writers/CslJson.hs+3−4 src/Text/Pandoc/Writers/Docbook.hs+7−50 src/Text/Pandoc/Writers/Docx.hs+238−56 src/Text/Pandoc/Writers/Docx/Table.hs−227 src/Text/Pandoc/Writers/Docx/Types.hs−185 src/Text/Pandoc/Writers/EPUB.hs+3−3 src/Text/Pandoc/Writers/GridTable.hs−157 src/Text/Pandoc/Writers/HTML.hs+12−80 src/Text/Pandoc/Writers/Haddock.hs+2−13 src/Text/Pandoc/Writers/JATS.hs+44−67 src/Text/Pandoc/Writers/JATS/References.hs+2−3 src/Text/Pandoc/Writers/JATS/Table.hs+5−25 src/Text/Pandoc/Writers/JATS/Types.hs+3−12 src/Text/Pandoc/Writers/Jira.hs+3−9 src/Text/Pandoc/Writers/LaTeX.hs+10−27 src/Text/Pandoc/Writers/LaTeX/Lang.hs+60−61 src/Text/Pandoc/Writers/LaTeX/Table.hs+8−21 src/Text/Pandoc/Writers/LaTeX/Types.hs+1−2 src/Text/Pandoc/Writers/LaTeX/Util.hs+3−4 src/Text/Pandoc/Writers/Markdown.hs+41−36 src/Text/Pandoc/Writers/Markdown/Inline.hs+16−34 src/Text/Pandoc/Writers/Ms.hs+6−22 src/Text/Pandoc/Writers/ODT.hs+3−4 src/Text/Pandoc/Writers/OpenDocument.hs+54−50 src/Text/Pandoc/Writers/Org.hs+8−13 src/Text/Pandoc/Writers/Powerpoint.hs+1−1 src/Text/Pandoc/Writers/Powerpoint/Output.hs+5−19 src/Text/Pandoc/Writers/RST.hs+8−12 src/Text/Pandoc/Writers/RTF.hs+10−16 src/Text/Pandoc/Writers/Shared.hs−15 src/Text/Pandoc/Writers/TEI.hs+3−4 src/Text/Pandoc/Writers/Texinfo.hs+11−13 src/Text/Pandoc/Writers/ZimWiki.hs+1−1 src/Text/Pandoc/XML.hs+2−28 src/Text/Pandoc/XML/Light/Types.hs+4−4 stack.yaml+10−9 test/Tests/Command.hs+1−4 test/Tests/Readers/Docx.hs+5−25 test/Tests/Readers/EPUB.hs+1−1 test/Tests/Readers/HTML.hs+5−20 test/Tests/Readers/Jira.hs−8 test/Tests/Readers/Markdown.hs+3−3 test/Tests/Readers/Odt.hs−1 test/Tests/Writers/ConTeXt.hs+113−122 test/Tests/Writers/Docbook.hs+6−43 test/Tests/Writers/Docx.hs−5 test/Tests/Writers/HTML.hs+52−57 test/Tests/Writers/JATS.hs+91−135 test/Tests/Writers/Jira.hs−12 test/Tests/Writers/OOXML.hs+1−3 test/command/1279.md+1−1 test/command/2103.md−8 test/command/2874.md+2−2 test/command/3752.md−60 test/command/3792.md+1−1 test/command/4063.md−29 test/command/4164.md+1−1 test/command/4442.md+1−1 test/command/4465.md−15 test/command/5304.md+1−1 test/command/5367.md+2−6 test/command/5519.md+1−1 test/command/6026.md−19 test/command/6541.md−27 test/command/6620.md−3 test/command/6658.md−75 test/command/6709.md−11 test/command/6890.md+2−2 test/command/6925.md+2−2 test/command/6958.md−10 test/command/7041.md−23 test/command/7099.md+1−1 test/command/7173.md−137 test/command/7208.md−6 test/command/7214.md−28 test/command/7216.md−19 test/command/7266.md−10 test/command/7272.md−27 test/command/7278.md−38 test/command/7282.md−7 test/command/7288.md−40 test/command/7299.md−23 test/command/7321.md−24 test/command/7323.md−29 test/command/7324.md−25 test/command/7339.md−11 test/command/7340.md−6 test/command/7376.md−16 test/command/7394.md−85 test/command/7397.md−14 test/command/7400.md−9 test/command/7416.md−19 test/command/averroes.bib−95 test/command/biblatex-basic.md+3−5 test/command/biblatex-examples.bib+1674 test/command/biblatex-inproceedings.md+1−1 test/command/biblatex-jaffe.md+2−2 test/command/biblatex-moraux.md+1−1 test/command/biblatex-nussbaum.md+63 test/command/biblatex-quotes.md+1−1 test/command/biblatex-sigfridsson.md+1−1 test/command/biblatex-spiegelberg.md+2−2 test/command/biblatex-test-case-conversion.md+2−2 test/command/biblatex-textnormal.md+1−1 test/command/chap1/spider.png test/command/chap1/text.md−17 test/command/chap2/spider.png test/command/chap2/text.md−5 test/command/defaults-inheritance-2.md+1−1 test/command/mmd-metadata.md−20 test/command/newif.md−55 test/command/pandoc-citeproc-119.md+1−1 test/command/pandoc-citeproc-320a.md+3−3 test/command/pandoc-citeproc-322.md+1−1 test/command/pandoc-citeproc-356.md+7−2 test/command/pandoc-citeproc-65.md+1−1 test/command/pandoc-citeproc-70.md+2−2 test/command/pandoc-citeproc-chicago-author-date.md+7−7 test/command/pandoc-citeproc-chicago-fullnote-bibliography.md+7−6 test/command/svg.md+1−1 test/command/toc.md+2−2 test/command/unicode-collation.md−130 test/docbook-reader.docbook+1−3 test/docx/0_level_headers.native+2−2 test/docx/golden/block_quotes.docx test/docx/golden/codeblock.docx test/docx/golden/comments.docx test/docx/golden/custom_style_no_reference.docx test/docx/golden/custom_style_preserve.docx test/docx/golden/custom_style_reference.docx test/docx/golden/definition_list.docx test/docx/golden/document-properties-short-desc.docx test/docx/golden/document-properties.docx test/docx/golden/headers.docx test/docx/golden/image.docx test/docx/golden/inline_code.docx test/docx/golden/inline_formatting.docx test/docx/golden/inline_images.docx test/docx/golden/link_in_notes.docx test/docx/golden/links.docx test/docx/golden/lists.docx test/docx/golden/lists_continuing.docx test/docx/golden/lists_multiple_initial.docx test/docx/golden/lists_restarting.docx test/docx/golden/nested_anchors_in_header.docx test/docx/golden/notes.docx test/docx/golden/raw-blocks.docx test/docx/golden/raw-bookmarks.docx test/docx/golden/table_one_row.docx test/docx/golden/table_with_list_cell.docx test/docx/golden/tables-default-widths.docx test/docx/golden/tables.docx test/docx/golden/track_changes_deletion.docx test/docx/golden/track_changes_insertion.docx test/docx/golden/track_changes_move.docx test/docx/golden/track_changes_scrubbed_metadata.docx test/docx/golden/unicode.docx test/docx/golden/verbatim_subsuper.docx test/docx/image_vml_as_object.docx test/docx/image_vml_as_object.native−2 test/docx/sdt_elements.native+10−9 test/docx/table_captions_no_field.docx test/docx/table_captions_no_field.native−34 test/docx/table_captions_with_field.docx test/docx/table_captions_with_field.native−54 test/docx/table_header_rowspan.docx test/docx/table_header_rowspan.native−189 test/docx/table_one_header_row.docx test/docx/table_one_header_row.native−18 test/docx/table_one_row.docx test/docx/table_one_row.native+4−4 test/docx/table_variable_width.native+17−12 test/docx/table_with_list_cell.native+3−3 test/docx/tables-default-widths.native−92 test/docx/tables.native+9−9 test/epub/wasteland.epub test/fb2/images.fb2+1−1 test/fb2/test.jpg test/html-reader.native+1−2 test/lhs-test.html+1−2 test/lhs-test.html+lhs+1−2 test/odt/native/tab.native−1 test/odt/odt/tab.odt test/pipe-tables.native+10−2 test/pptx/code-custom_templated.pptx test/pptx/code_templated.pptx test/pptx/document-properties-short-desc_templated.pptx test/pptx/document-properties_templated.pptx test/pptx/endnotes_templated.pptx test/pptx/endnotes_toc_templated.pptx test/pptx/images_templated.pptx test/pptx/inline_formatting_templated.pptx test/pptx/lists_templated.pptx test/pptx/raw_ooxml_templated.pptx test/pptx/reference_depth.pptx test/pptx/remove_empty_slides_templated.pptx test/pptx/slide_breaks_slide_level_1_templated.pptx test/pptx/slide_breaks_templated.pptx test/pptx/slide_breaks_toc_templated.pptx test/pptx/speaker_notes_after_metadata_templated.pptx test/pptx/speaker_notes_afterheader_templated.pptx test/pptx/speaker_notes_afterseps_templated.pptx test/pptx/speaker_notes_templated.pptx test/pptx/start_numbering_at_templated.pptx test/pptx/tables_templated.pptx test/pptx/two_column_templated.pptx test/tables.latex+3−27 test/tables.ms−30 test/tables/nordics.latex+4−22 test/tables/planets.latex+4−4 test/tables/students.latex+2−10 test/writer.context+38−42 test/writer.html4+1−2 test/writer.html5+1−2 test/writer.jats_archiving+46−36 test/writer.jats_articleauthoring+48−40 test/writer.jats_publishing+46−36 test/writer.opml+1−1 test/writer.org+7−7 test/writer.zimwiki+3−3 test/writers-lang-and-dir.context−4 tools/build-arm.sh+1−3
.circleci/config.yml+1−1
@@ -2,7 +2,7 @@ version: "2.1"
22jobs:
33 build:
44 macos:
5− xcode: 11.1.0
5+ xcode: 9.4.1
66 environment:
77 HOMEBREW_NO_AUTO_UPDATE: 1
88 steps:
.editorconfig−8
@@ -8,14 +8,6 @@ indent_size = 2
88insert_final_newline = true
99trim_trailing_whitespace = true
1010
11−[*.{zip,docx}]
12−charset =
13−end_of_line =
14−indent_style =
15−indent_size =
16−insert_final_newline =
17−trim_trailing_whitespace =
18−
1911[*.{markdown,md}]
2012trim_trailing_whitespace = false
2113
.github/ISSUE_TEMPLATEnew file+11
@@ -0,0 +1,11 @@
1+Asking a question?
2+Please use the pandoc-discuss mailing list instead:
3+https://groups.google.com/forum/#!forum/pandoc-discuss
4+This tracker is for bug reports and enhancement requests.
5+
6+Reporting a bug?
7+Please include your pandoc version and an example that allows us
8+to reproduce the problem (complete input, exact command line
9+used, expected and actual output). The smaller the example, the
10+better.
11+
.github/ISSUE_TEMPLATE/bug_report.mddeleted−25
@@ -1,25 +0,0 @@
1−---
2−name: Bug report
3−about: Create a report to help us improve
4−title: ''
5−labels: 'bug'
6−assignees: ''
7−
8−---
9−
10−<!--
11−Thank you for reporting an issue! Before you continue, please make sure that you have
12−
13−- searched the issue tracker for similar issues (including closed issues): https://github.com/jgm/pandoc/issues
14−- searched the pandoc-discuss mailing list for solutions: https://groups.google.com/forum/#!forum/pandoc-discuss
15−- reproduced your issue on the latest release of pandoc, or on https://pandoc.org/try
16−
17−Note that this bug tracker is for reporting bugs, not asking questions. For questions, use the pandoc-discuss mailing list.
18−-->
19−
20−**Explain the problem.**
21−Include the exact command line you used and all inputs necessary to reproduce the issue. Please create as minimal an example as possible, to help the maintainers isolate the problem. Explain the output you received and how it differs from what you expected.
22−
23−**Pandoc version?**
24−What version of pandoc are you using, on what OS?
25−
.github/ISSUE_TEMPLATE/config.ymldeleted−9
@@ -1,9 +0,0 @@
1−blank_issues_enabled: false
2−contact_links:
3− - name: Ask a question
4− url: https://groups.google.com/forum/#!forum/pandoc-discuss
5− about: "Discussion forum for pandoc (may be used as an email list)"
6− - name: Contributing Guidelines
7− url: https://pandoc.org/CONTRIBUTING.html
8− about: "Guidelines for submitting bug reports and code improvements"
9−
.github/ISSUE_TEMPLATE/feature_request.mddeleted−21
@@ -1,21 +0,0 @@
1−---
2−name: Feature request
3−about: Suggest an idea for this project
4−title: ''
5−labels: 'enhancement'
6−assignees: ''
7−
8−---
9−
10−<!--
11−Thank you for suggesting a feature! Before you continue, please make sure that you have
12−
13−- read the contributing guidelines: https://pandoc.org/CONTRIBUTING.html
14−- searched the issue tracker for similar issues (including closed issues): https://github.com/jgm/pandoc/issues
15−- searched the pandoc-discuss mailing list for relevant discussions: https://groups.google.com/forum/#!forum/pandoc-discuss
16−-->
17−
18−**Describe your proposed improvement and the problem it solves.**
19−
20−**Describe alternatives you've considered.**
21−
.github/workflows/ci.yml+3−12
@@ -44,8 +44,8 @@ jobs:
4444 matrix:
4545 versions:
4646 - ghc: '8.0.2'
47− cabal: '2.4'
48− prefix: 'v2-'
47+ cabal: '2.2'
48+ prefix: 'new-'
4949 cabalopts: ''
5050 testopts: ''
5151 - ghc: '8.2.2'
@@ -68,23 +68,14 @@ jobs:
6868 prefix: ''
6969 cabalopts: ''
7070 testopts: '--test-option=--hide-successes'
71− - ghc: '8.10.4'
71+ - ghc: '8.10.2'
7272 cabal: '3.2'
7373 prefix: ''
7474 cabalopts: '-ftrypandoc'
7575 testopts: '--test-option=--hide-successes'
76− - ghc: '9.0.1'
77− cabal: '3.4'
78− prefix: ''
79− cabalopts: ''
80− testopts: '--test-option=--hide-successes'
8176 steps:
8277 - uses: actions/checkout@v2
8378
84− # needed by memory
85− - name: Install numa
86− run: sudo apt-get install libnuma-dev
87−
8879 # need to install older cabal/ghc versions from ppa repository
8980
9081 - name: Install recent cabal/ghc
.github/workflows/nightly.yml+2−2
@@ -22,10 +22,10 @@ jobs:
2222 ghc --version
2323 cabal --version
2424 cabal v2-update
25− cabal v2-build --dependencies-only
25+ cabal v2-build --dependencies-only all
2626 - name: Build
2727 run: |
28− cabal v2-install
28+ cabal v2-install all
2929 strip $HOME/.cabal/bin/pandoc
3030 - name: Install artifact
3131 run: |
.hlint.yaml−1
@@ -9,7 +9,6 @@
99# Ignore some builtin hints
1010#
1111- ignore: {name: "Avoid lambda"}
12−- ignore: {name: "Use bimap"}
1312- ignore: {name: "Eta reduce"}
1413- ignore: {name: "Evaluate"}
1514- ignore: {name: "Reduce duplication"} # TODO: could be more fine-grained
AUTHORS.md−14
@@ -20,7 +20,6 @@
2020- Andreas Lööw
2121- Andrew Dunning
2222- Andy Morris
23−- Anti-Distinctlyminty
2423- Antoine Latter
2524- Antonio Terceiro
2625- Arata Mizuki
@@ -36,7 +35,6 @@
3635- Benoit Schweblin
3736- Bjorn Buckwalter
3837- Blake Eryx
39−- Bodigrim
4038- Bradley Kuhn
4139- Brent Yorgey
4240- Brian Leung
@@ -47,7 +45,6 @@
4745- Carlos Sosa
4846- Cécile Chemin
4947- Cédric Couralet
50−- Charanjit Singh
5148- Chris Black
5249- Christian Conkle
5350- Christian Despres
@@ -78,10 +75,8 @@
7875- Eigil Rischel
7976- Emanuel Evans
8077- Emerson Harkin
81−- Emily Bourke
8278- Emily Eisenberg
8379- Eric Kow
84−- Erik Rask
8580- Eric Seidel
8681- Eric Schrijver
8782- Ethan Riley
@@ -91,7 +86,6 @@
9186- Florian Beeres
9287- Florian Eitel
9388- Florian Klink
94−- Florian Kohrt
9589- Francesco Occhipinti
9690- François Gannaz
9791- Frederik Elwert
@@ -152,7 +146,6 @@
152146- Josef Svenningsson
153147- Joseph C. Sible
154148- Julien Cretel
155−- Julien Dutant
156149- Juliette Fourcot
157150- Juliusz Gonera
158151- Justin Bogner
@@ -235,7 +228,6 @@
235228- Raymond Ehlers
236229- Recai Oktaş
237230- Roland Hieber
238−- Roman Beránek
239231- RyanGlScott
240232- Salim B
241233- Sascha Wilde
@@ -253,7 +245,6 @@
253245- Stefan Dresselhaus
254246- Sumit Sahrawat
255247- Tarik Graba
256−- Tatiana Porras
257248- Thenaesh Elango
258249- Thomas Hodgson
259250- Thomas Weißschuh
@@ -287,7 +278,6 @@
287278- a-vrma
288279- andrebauer
289280- argent0
290−- badumont
291281- blmage
292282- bucklereed
293283- bumper314
@@ -303,11 +293,8 @@
303293- kaizshang91
304294- lux-lth
305295- lwolfsonkin
306−- mbrackeantidot
307296- nkalvi
308297- niszet
309−- nuew
310−- obcat
311298- oltolm
312299- oquechy
313300- quasicomputational
@@ -319,7 +306,6 @@
319306- shreevatsa.public
320307- takahashim
321308- taotieren
322−- tecosaur
323309- TEC
324310- tgkokk
325311- the-solipsist
CONTRIBUTING.md+5−6
@@ -406,11 +406,11 @@ The library is structured as follows:
406406 tree automatically.
407407 - `Text.Pandoc.Readers.*` are the readers, and `Text.Pandoc.Writers.*`
408408 are the writers.
409− - `Text.Pandoc.Citeproc.*` contain the code for citation handling,
410− including an interface to the [citeproc] library.
409+ - `Text.Pandoc.Biblio` is a utility module for formatting citations
410+ using citeproc-hs.
411411 - `Text.Pandoc.Data` is used to embed data files when the `embed_data_files`
412− cabal flag is used.
413− - `Text.Pandoc.Emoji` is a thin wrapper around [emojis].
412+ cabal flag is used. It is generated from `src/Text/Pandoc/Data.hsb` using
413+ the preprocessor [hsb2hs].
414414 - `Text.Pandoc.Highlighting` contains the interface to the
415415 skylighting library, which is used for code syntax highlighting.
416416 - `Text.Pandoc.ImageSize` is a utility module containing functions for
@@ -421,6 +421,7 @@ The library is structured as follows:
421421 - `Text.Pandoc.PDF` contains functions for producing a PDF from a
422422 LaTeX source.
423423 - `Text.Pandoc.Parsing` contains parsing functions used in multiple readers.
424+ - `Text.Pandoc.Pretty` is a pretty-printing library specialized to
424425 the needs of pandoc.
425426 - `Text.Pandoc.SelfContained` contains functions for making an HTML
426427 file "self-contained," by importing remotely linked images, CSS,
@@ -455,8 +456,6 @@ you may want to consider submitting a pull request to the
455456[EditorConfig]: https://editorconfig.org/
456457[Haskell platform]: https://www.haskell.org/platform/
457458[hlint]: https://hackage.haskell.org/package/hlint
458−[citeproc]: https://hackage.haskell.org/package/citeproc
459−[emojis]: https://hackage.haskell.org/package/emojis
460459[hsb2hs]: https://hackage.haskell.org/package/hsb2hs
461460[pre-commit hook]: https://git-scm.com/book/en/v2/Customizing-Git-Git-Hooks
462461[GitHub labels]: https://github.com/jgm/pandoc/labels
INSTALL.md−4
@@ -34,10 +34,6 @@ without SVG support), [Python] (to use Pandoc filters), and
3434
3535 choco install rsvg-convert python miktex
3636
37−Using multiple installation methods can result in two separate
38−installations of pandoc; it is recommended to properly uninstall
39−pandoc before switching to an alternative installation method.
40−
4137By default, Pandoc creates PDFs using LaTeX.
4238We recommend installing it via [MiKTeX].
4339
MANUAL.txt+62−176
@@ -1,7 +1,7 @@
11---
22title: Pandoc User's Guide
33author: John MacFarlane
4−date: June 20, 2021
4+date: March 8, 2021
55---
66
77# Synopsis
@@ -675,12 +675,12 @@ header when requesting a document from a URL:
675675: Extract images and other media contained in or linked from
676676 the source document to the path *DIR*, creating it if
677677 necessary, and adjust the images references in the document
678− so they point to the extracted files. Media are downloaded,
679− read from the file system, or extracted from a binary
680− container (e.g. docx), as needed. The original file paths
681− are used if they are relative paths not containing `..`.
682− Otherwise filenames are constructed from the SHA1 hash of
683− the contents.
678+ so they point to the extracted files. If the source format is
679+ a binary container (docx, epub, or odt), the media is
680+ extracted from the container and the original
681+ filenames are used. Otherwise the media is read from the
682+ file system or downloaded, and new filenames are constructed
683+ based on SHA1 hashes of the contents.
684684
685685`--abbreviations=`*FILE*
686686
@@ -1415,12 +1415,13 @@ results only for basic math, usually you will want to use
14151415`--gladtex`
14161416
14171417: Enclose TeX math in `<eq>` tags in HTML output. The resulting HTML
1418− can then be processed by [GladTeX] to produce SVG images of the typeset
1419− formulas and an HTML file with these images embedded.
1418+ can then be processed by [GladTeX] to produce images of the typeset
1419+ formulas and an HTML file with links to these images.
1420+ So, the procedure is:
14201421
14211422 pandoc -s --gladtex input.md -o myfile.htex
1422− gladtex -d image_dir myfile.htex
1423− # produces myfile.html and images in image_dir
1423+ gladtex -d myfile-images myfile.htex
1424+ # produces myfile.html and images in myfile-images
14241425
14251426[MathML]: https://www.w3.org/Math/
14261427[MathJax]: https://www.mathjax.org
@@ -2314,8 +2315,8 @@ math equations flush left using [YAML metadata](#layout) or with
23142315
23152316These affect HTML output when [producing slide shows with pandoc].
23162317
2317−`institute`
2318−: author affiliations: can be a list when there are multiple authors
2318+All [reveal.js configuration options] are available as variables.
2319+To turn off boolean flags that default to true in reveal.js, use `0`.
23192320
23202321`revealjs-url`
23212322: base URL for reveal.js documents (defaults to
@@ -2335,9 +2336,6 @@ These affect HTML output when [producing slide shows with pandoc].
23352336: additional attributes for the title slide of reveal.js slide shows.
23362337 See [background in reveal.js and beamer] for an example.
23372338
2338−All [reveal.js configuration options] are available as variables.
2339−To turn off boolean flags that default to true in reveal.js, use `0`.
2340−
23412339[reveal.js configuration options]: https://revealjs.com/config/
23422340
23432341### Variables for Beamer slides
@@ -3754,7 +3752,7 @@ definition:
37543752Note that space between items in a definition list is required.
37553753(A variant that loosens this requirement, but disallows "lazy"
37563754hard wrapping, can be activated with `compact_definition_lists`: see
3757−[Non-default extensions], below.)
3755+[Non-pandoc extensions], below.)
37583756
37593757[^3]: I have been influenced by the suggestions of [David
37603758 Wheeler](https://justatheory.com/2009/02/modest-markdown-proposal/).
@@ -4179,12 +4177,10 @@ option is used. All of the metadata will appear in a single block
41794177at the beginning of the document.
41804178
41814179Note that [YAML] escaping rules must be followed. Thus, for example,
4182−if a title contains a colon, it must be quoted, and if it contains a
4183−backslash escape, then it must be ensured that it is not treated as a
4184−[YAML escape sequence]. The pipe character (`|`) can be used to begin
4185−an indented block that will be interpreted literally, without need for
4186−escaping. This form is necessary when the field contains blank lines
4187−or block-level formatting:
4180+if a title contains a colon, it must be quoted. The pipe character
4181+(`|`) can be used to begin an indented block that will be interpreted
4182+literally, without need for escaping. This form is necessary
4183+when the field contains blank lines or block-level formatting:
41884184
41894185 ---
41904186 title: 'This is the title: it contains a colon'
@@ -4198,12 +4194,6 @@ or block-level formatting:
41984194 It consists of two paragraphs.
41994195 ...
42004196
4201−The literal block after the `|` must be indented relative to the
4202−line containing the `|`. If it is not, the YAML will be invalid
4203−and pandoc will not interpret it as metadata. For an overview
4204−of the complex rules governing YAML, see the [Wikipedia entry on
4205−YAML syntax].
4206−
42074197Template variables will be set automatically from the metadata. Thus, for
42084198example, in writing HTML, the variable `abstract` will be set to the HTML
42094199equivalent of the Markdown in the `abstract` field:
@@ -4250,24 +4240,6 @@ will be interpreted as markdown. For example:
42504240 \renewcommand{\section}[1]{\clearpage\oldsection{#1}}
42514241 ```
42524242
4253−Note: the `yaml_metadata_block` extension works with
4254−`commonmark` as well as `markdown` (and it is enabled by default
4255−in `gfm` and `commonmark_x`). However, in these formats the
4256−following restrictions apply:
4257−
4258−- The YAML metadata block must occur at the beginning of the
4259− document (and there can be only one). If multiple files are
4260− given as arguments to pandoc, only the first can be a YAML
4261− metadata block.
4262−
4263−- The leaf nodes of the YAML structure are parsed in isolation from
4264− each other and from the rest of the document. So, for
4265− example, you can't use a reference link in these contexts
4266− if the link definition is somewhere else in the document.
4267−
4268−[YAML escape sequence]: https://yaml.org/spec/1.2/spec.html#id2776092
4269−[Wikipedia entry on YAML syntax]: https://en.m.wikipedia.org/wiki/YAML#Syntax
4270−
42714243## Backslash escapes
42724244
42734245#### Extension: `all_symbols_escapable` ####
@@ -4960,68 +4932,37 @@ Inline and regular footnotes may be mixed freely.
49604932
49614933#### Extension: `citations` ####
49624934
4963−To cite a bibliographic item with an identifier foo, use the
4964−syntax `@foo`. Normal citations should be included in square
4965−brackets, with semicolons separating distinct items:
4966−
4967− Blah blah [@doe99; @smith2000; @smith2004].
4968−
4969−How this is rendered depends on the citation style. In an
4970−author-date style, it might render as
4971−
4972− Blah blah (Doe 1999, Smith 2000, 2004).
4973−
4974−In a footnote style, it might render as
4975−
4976− Blah blah.[^1]
4977−
4978− [^1]: John Doe, "Frogs," *Journal of Amphibians* 44 (1999);
4979− Susan Smith, "Flies," *Journal of Insects* (2000);
4980− Susan Smith, "Bees," *Journal of Insects* (2004).
4981−
4982−See the [CSL user documentation] for more information about CSL
4983−styles and how they affect rendering.
4984−
4985−Unless a citation key start with a letter, digit, or `_`,
4986−and contains only alphanumerics and internal punctuation
4987−characters (`:.#$%&-+?<>~/`), it must be surrounded
4988−by curly braces, which are not considered part of the key.
4989−In `@Foo_bar.baz.`, the key is `Foo_bar.baz`. The final
4990−period is not *internal* punctuation, so it is not included in
4991−the key. In `@{Foo_bar.baz.}`, the key is `Foo_bar.baz.`, including
4992−the final period. The curly braces are recommended if you use URLs as
4993−keys: `[@{https://example.com/bib?name=foobar&date=2000}, p. 33]`.
4994−
4995−Citation items may optionally include a prefix, a locator, and
4996−a suffix. In
4997−
4998− Blah blah [see @doe99, pp. 33-35 and *passim*; @smith04, chap. 1].
4999−
5000−The first item (`doe99`) has prefix `see `, locator `pp. 33-35`,
5001−and suffix `and *passim*`. The second item (`smith04`) has
5002−locator `chap. 1` and no prefix or suffix.
5003−
5004−Pandoc uses some heuristics to separate the locator from the
5005−rest of the subject. It is sensitive to the locator terms
5006−defined in the [CSL locale files]. Either abbreviated or
5007−unabbreviated forms are accepted. In the `en-US` locale, locator
5008−terms can be written in either singular or plural forms, as
5009−`book`, `bk.`/`bks.`; `chapter`, `chap.`/`chaps.`; `column`,
5010−`col.`/`cols.`; `figure`, `fig.`/`figs.`; `folio`,
5011−`fol.`/`fols.`; `number`, `no.`/`nos.`; `line`, `l.`/`ll.`;
5012−`note`, `n.`/`nn.`; `opus`, `op.`/`opp.`; `page`, `p.`/`pp.`;
5013−`paragraph`, `para.`/`paras.`; `part`, `pt.`/`pts.`; `section`,
5014−`sec.`/`secs.`; `sub verbo`, `s.v.`/`s.vv.`; `verse`,
5015−`v.`/`vv.`; `volume`, `vol.`/`vols.`; `¶`/`¶¶`; `§`/`§§`. If no
4935+Markdown citations go inside square brackets and are separated
4936+by semicolons. Each citation must have a key, composed of '@' +
4937+the citation identifier from the database, and may optionally
4938+have a prefix, a locator, and a suffix. The citation key must
4939+begin with a letter, digit, or `_`, and may contain
4940+alphanumerics, `_`, and internal punctuation characters
4941+(`:.#$%&-+?<>~/`). Here are some examples:
4942+
4943+ Blah blah [see @doe99, pp. 33-35; also @smith04, chap. 1].
4944+
4945+ Blah blah [@doe99, pp. 33-35, 38-39 and *passim*].
4946+
4947+ Blah blah [@smith04; @doe99].
4948+
4949+`pandoc` detects locator terms in the [CSL locale files].
4950+Either abbreviated or unabbreviated forms are accepted. In the `en-US`
4951+locale, locator terms can be written in either singular or plural forms,
4952+as `book`, `bk.`/`bks.`; `chapter`, `chap.`/`chaps.`; `column`,
4953+`col.`/`cols.`; `figure`, `fig.`/`figs.`; `folio`, `fol.`/`fols.`;
4954+`number`, `no.`/`nos.`; `line`, `l.`/`ll.`; `note`, `n.`/`nn.`; `opus`,
4955+`op.`/`opp.`; `page`, `p.`/`pp.`; `paragraph`, `para.`/`paras.`; `part`,
4956+`pt.`/`pts.`; `section`, `sec.`/`secs.`; `sub verbo`, `s.v.`/`s.vv.`;
4957+`verse`, `v.`/`vv.`; `volume`, `vol.`/`vols.`; `¶`/`¶¶`; `§`/`§§`. If no
50164958locator term is used, "page" is assumed.
50174959
5018−In complex cases, you can force something to be treated as
5019−a locator by enclosing it in curly braces or prevent parsing
5020−the suffix as locator by prepending curly braces:
4960+`pandoc` will use heuristics to distinguish the locator
4961+from the suffix. In complex cases, the locator can be enclosed
4962+in curly braces:
50214963
50224964 [@smith{ii, A, D-Z}, with a suffix]
50234965 [@smith, {pp. iv, vi-xi, (xv)-(xvii)} with suffix here]
5024− [@smith{}, 99 years later]
50254966
50264967A minus sign (`-`) before the `@` will suppress mention of
50274968the author in the citation. This can be useful when the
@@ -5029,26 +4970,13 @@ author is already mentioned in the text:
50294970
50304971 Smith says blah [-@smith04].
50314972
5032−You can also write an author-in-text citation, by omitting the
5033−square brackets:
4973+You can also write an in-text citation, as follows:
50344974
50354975 @smith04 says blah.
50364976
50374977 @smith04 [p. 33] says blah.
50384978
5039−This will cause the author's name to be rendered, followed by
5040−the bibliographical details. Use this form when you want to
5041−make the citation the subject of a sentence.
50424979
5043−When you are using a note style, it is usually better to let
5044−citeproc create the footnotes from citations rather than writing
5045−an explicit note. If you do write an explicit note that
5046−contains a citation, note that normal citations will be put in
5047−parentheses, while author-in-text citations will not. For
5048−this reason, it is sometimes preferable to use the
5049−author-in-text style inside notes when using a note style.
5050−
5051−[CSL user documentation]: https://citationstyles.org/authors/
50524980[CSL]: https://docs.citationstyles.org/en/stable/specification.html
50534981[CSL markup specs]: https://docs.citationstyles.org/en/1.0/release-notes.html#rich-text-markup-within-fields
50544982[Chicago Manual of Style]: https://chicagomanualofstyle.org
@@ -5057,44 +4985,13 @@ author-in-text style inside notes when using a note style.
50574985[finding and editing styles]: https://citationstyles.org/authors/
50584986[CSL locale files]: https://github.com/citation-style-language/locales
50594987
5060−## Non-default extensions
4988+## Non-pandoc extensions
50614989
50624990The following Markdown syntax extensions are not enabled by default
50634991in pandoc, but may be enabled by adding `+EXTENSION` to the format
50644992name, where `EXTENSION` is the name of the extension. Thus, for
50654993example, `markdown+hard_line_breaks` is Markdown with hard line breaks.
50664994
5067−#### Extension: `rebase_relative_paths` ####
5068−
5069−Rewrite relative paths for Markdown links and images, depending
5070−on the path of the file containing the link or image link. For
5071−each link or image, pandoc will compute the directory of the
5072−containing file, relative to the working directory, and prepend
5073−the resulting path to the link or image path.
5074−
5075−The use of this extension is best understood by example.
5076−Suppose you have a a subdirectory for each chapter of a book,
5077−`chap1`, `chap2`, `chap3`. Each contains a file `text.md` and a
5078−number of images used in the chapter. You would like to have
5079−`![image](spider.jpg)` in `chap1/text.md` refer to
5080−`chap1/spider.jpg` and `![image](spider.jpg)` in `chap2/text.md`
5081−refer to `chap2/spider.jpg`. To do this, use
5082−
5083− pandoc chap*/*.md -f markdown+rebase_relative_paths
5084−
5085−Without this extension, you would have to use
5086−`![image](chap1/spider.jpg)` in `chap1/text.md` and
5087−`![image](chap2/spider.jpg)` in `chap2/text.md`. Links with
5088−relative paths will be rewritten in the same way as images.
5089−
5090−Absolute paths and URLs are not changed. Neither are empty
5091−paths or paths consisting entirely of a fragment, e.g., `#foo`.
5092−
5093−Note that relative paths in reference links and images will
5094−be rewritten relative to the file containing the link
5095−reference definition, not the file containing the reference link
5096−or image itself, if these differ.
5097−
50984995#### Extension: `attributes` ####
50994996
51004997Allows attributes to be attached to any inline or block-level
@@ -5628,23 +5525,10 @@ A few other metadata fields affect bibliography formatting:
56285525
56295526`lang`
56305527: The `lang` field will affect how the style is localized,
5631− for example in the translation of labels, the use
5632− of quotation marks, and the way items are sorted.
5633− (For backwards compatibility, `locale` may be used instead
5634− of `lang`, but this use is deprecated.)
5635−
5636− A BCP 47 language tag is expected: for example, `en`,
5637− `de`, `en-US`, `fr-CA`, `ug-Cyrl`. The unicode extension
5638− syntax (after `-u-`) may be used to specify options for
5639− collation (sorting) more precisely. Here are some examples:
5640−
5641− - `zh-u-co-pinyin` -- Chinese with the Pinyin collation.
5642− - `es-u-co-trad` -- Spanish with the traditional collation
5643− (with `Ch` sorting after `C`).
5644− - `fr-u-kb` -- French with "backwards" accent sorting
5645− (with `coté` sorting after `côte`).
5646− - `en-US-u-kf-upper` -- English with uppercase letters sorting
5647− before lower (default is lower before upper).
5528+ for example in the translation of labels and the use
5529+ of quotation marks. (For backwards compatibility,
5530+ `locale` may be used instead of `lang`, but this use
5531+ is deprecated.)
56485532
56495533`notes-after-punctuation`
56505534: If true (the default), pandoc will put footnote citations
@@ -5656,6 +5540,12 @@ A few other metadata fields affect bibliography formatting:
56565540 punctuation.
56575541
56585542
5543+
5544+
5545+
5546+
5547+
5548+
56595549# Slide shows
56605550
56615551You can use pandoc to produce an HTML + JavaScript slide presentation
@@ -5748,11 +5638,7 @@ rules:
57485638 * A heading at the slide level always starts a new slide.
57495639
57505640 * Headings *below* the slide level in the hierarchy create
5751− headings *within* a slide. (In beamer, a "block" will be
5752− created. If the heading has the class `example`, an
5753− `exampleblock` environment will be used; if it has the class
5754− `alert`, an `alertblock` will be used; otherwise a regular
5755− `block` will be used.)
5641+ headings *within* a slide.
57565642
57575643 * Headings *above* the slide level in the hierarchy create
57585644 "title slides," which just contain the section title
@@ -6330,7 +6216,7 @@ Then edit `my.theme` and use it like this:
63306216If you are not satisfied with the built-in highlighting, or you
63316217want highlight a language that isn't supported, you can use the
63326218`--syntax-definition` option to load a [KDE-style XML syntax definition
6333−file](https://docs.kde.org/stable5/en/kate/katepart/highlight.html).
6219+file](https://docs.kde.org/stable5/en/applications/katepart/highlight.html).
63346220Before writing your own, have a look at KDE's [repository of syntax
63356221definitions](https://github.com/KDE/syntax-highlighting/tree/master/data/syntax).
63366222
@@ -6504,9 +6390,9 @@ application, here are some things to keep in mind:
650463904. The HTML generated by pandoc is not guaranteed to be safe.
65056391 If `raw_html` is enabled for the Markdown input, users can
65066392 inject arbitrary HTML. Even if `raw_html` is disabled,
6507− users can include dangerous content in URLs and attributes.
6508− To be safe, you should run all the generated HTML through
6509− an HTML sanitizer.
6393+ users can include dangerous content in attributes for
6394+ headings, spans, and code blocks. To be safe, you should
6395+ run all the generated HTML through an HTML sanitizer.
65106396
65116397# Authors
65126398
SECURITY.mddeleted−12
@@ -1,12 +0,0 @@
1−# Security Policy
2−
3−## Supported Versions
4−
5−Only the most recent version of pandoc is supported with security updates.
6−
7−## Reporting a Vulnerability
8−
9−To report a vulnerability, email the maintainer, jgm@berkeley.edu.
10−But first please read the section of the manual entitled
11−[A note on security](https://pandoc.org/MANUAL.html#a-note-on-security),
12−which describes some security guarantees pandoc does NOT make.
cabal.project+4−9
@@ -2,12 +2,7 @@ packages: pandoc.cabal
22tests: True
33flags: +embed_data_files
44
5−source-repository-package
6− type: git
7− location: https://github.com/jgm/doctemplates
8− tag: 428c26d5303cf7a2b1051fe1ffd9aafe9ba71c81
9−
10−source-repository-package
11− type: git
12− location: https://github.com/jgm/citeproc
13− tag: 4ce0501cd6f9c86eee087afcf878c256e49b9615
5+-- source-repository-package
6+-- type: git
7+-- location: https://github.com/jgm/citeproc
8+-- tag: d44e24696ab444090d0e63e321c3a573f68b2e74
changelog.md+10−659
@@ -1,608 +1,6 @@
11# Revision history for pandoc
22
3−## pandoc 2.14.0.3 (2021-06-22)
4−
5− * Text.Pandoc.MediaBag `insertMediaBag`: ensure we get a sane mediaPath
6− for URLs (#7391). In earlier 2.14.x versions, we'd get
7− incorrect paths for resources downloaded from URLs when the
8− media are extracted (including in PDF production).
9− * Text.Pandoc.Parsing: improve `emailAddress` (#7398).
10− Previously the parser would accept characters in domains
11− that are illegal in domains, and this sometimes caused it
12− to gobble bits of the following text.
13− * txt2tags reader: modify the email address parser so
14− it still includes form parameters, even after the change to
15− `emailAddress` in Text.Pandoc.Parsing.
16− * Text.Pandoc.Readers.Metadata: Fix regression with comment-only YAML
17− metadata blocks (#7400).
18− * reveal.js writer and template: better handling of options. Previously
19− it was impossible to specify false values for options that default to
20− true (e.g. `center`); setting the option to false just caused the portion
21− of the template setting the option to be omitted. Now we prepopulate
22− all the variables with their default values, including them all
23− unconditionally and allowing them to be overridden.
24− * Markdown writer: Fix regression in code blocks with attributes (#7397).
25− Code blocks with a single class but nonempty attributes
26− were having attributes drop as a result of #7242.
27− * LaTeX writer:
28− + Add strut at end of minipage if it contains line breaks.
29− Without them, the last line is not as tall as it should be in
30− some cases.
31− + Always use a minipage for cells with line breaks, when
32− width information is available (#7393). Otherwise the way we treat them
33− can lead to content that overflows a cell.
34− + Use `\strut` instead of `~` before `\\` in empty line.
35− * Use lts-18.0 stack resolver.
36− * Require skylighting 0.10.5.2 (adding support for Swift).
37− * Require commonmark 0.2.1.
38− * Rephrase section on unsafe HTML in manual.
39− * Create SECURITY.md
40−
41−## pandoc 2.14.0.2 (2021-06-13)
42−
43− * Fix MediaBag regressions (#7345). iIn the 2.14 release `--extract-media`
44− stopped working as before; there could be mismatches between the
45− paths in the rendered document and the extracted media.
46− This patch makes several changes that restore the earlier behavior
47− (while keeping the same API). The `mediaPath` in 2.14 was always
48− constructed from the SHA1 hash of the media contents. Now, we
49− preserve the original path unless it's an absolute path or contains
50− `..` segments (in that case we use a path based on the SHA1 hash of
51− the contents).
52−
53− In Text.Pandoc.MediaBag, `mediaDirectory` and `mediaItems` now use the
54− `mediaPath`, rather than the mediabag key, for the first component of the
55− tuple. This makes more sense, I think, and fits with the documentation of
56− these functions; eventually, though, we should rework the API so that
57− `mediaItems` returns both the keys and the MediaItems.
58−
59− In Text.Pandoc.Class.IO, rewriting of source paths in `extractMedia` has
60− been fixed.
61−
62− In Text.Pandoc.Class.PandocMonad, `fillMediaBag` has been modified so that
63− it doesn't modify image paths (that was part of the problem in #7345).
64−
65− We now do path normalization (e.g. `\` separators on Windows) in
66− writing the media.
67−
68− * Text.Pandoc.PDF:
69−
70− + Text.Pandoc.PDF: Fix regression in 2.14 for generation of PDFs with
71− SVGs (#7344).
72− + Only print relevant part of environment on `--verbose`. Since
73− `--verbose` output might be put in an issue, we want to avoid
74− spilling out secrets in environment variables.
75−
76− * Markdown reader: fix pipe table regression in 2.11.4 (#7343).
77− Previously pipe tables with empty headers (that is, a header
78− line with all empty cells) would be rendered as headerless
79− tables. This broke in 2.11.4. The fix here is to produce an
80− AST with an empty table head when a pipe table has all empty
81− header cells.
82−
83− * LaTeX reader: don't allow optional `*` on symbol control sequences
84− (#7340). Generally we allow optional starred variants of LaTeX commands
85− (since many allow them, and if we don't accept these explicitly,
86− ignoring the star usually gives acceptable results). But we
87− don't want to do this for `\(*\)` and similar cases.
88−
89− * Docx reader: handle absolute URIs in Relationship Target (#7374).
90−
91− * Docx writer: fix handling of empty table headers (Albert Krewinkel,
92− #7369). A table header which does not contain any cells is now treated as
93− an empty header.
94−
95− * LaTeX writer: Fix regression in table header position (#7347).
96− In recent versions the table headers were no longer bottom-aligned
97− (if more than one line). This patch fixes that by using minipages
98− for table headers in non-simple tables.
99−
100− * CommonMark writer:
101−
102− + Do not use simple class for fenced-divs (Jan Tojnar, amends #7242.)
103− + Do not throw away attributes when `Ext_attributes` is enabled.
104− `Ext_attributes` covers at least the following:
105− `Ext_fenced_code_attributes`, `Ext_header_attributes`,
106− `Ext_inline_code_attributes`, `Ext_link_attributes`.
107−
108− * Markdown writer:
109−
110− + Allow `pipe_tables` to be disabled for commonmark formats
111− (`commonmark_x`, `gfm`) (#7375).
112− + Re-use functions from Text.Pandoc.Markdown.Inline (Jan Tojnar).
113−
114− * DocBook writer: Remove non-existent admonitions (Jan Tojnar).
115− `attention`, `error` and `hint` are reStructuredText specific.
116−
117− * HTML writer: Don't omit width attribute on div (#7342).
118−
119− * Text.Pandoc.MIME, `extensionFromMimeType`: add a few special cases.
120− When we do a reverse lookup in the MIME table, we just get the
121− last match, so when the same mime type is associated with several
122− different extensions, we sometimes got weird results, e.g. `.vs`
123− for `text/plain`. These special cases help us get the most standard
124− extensions for mime types like `text/plain`.
125−
126− * Lua utils: fix handling of table headers in `from_simple_table` (Albert
127− Krewinkel, #7369). Passing an empty list of header cells now results
128− in an empty table header.
129−
130− * Text.Pandoc.Citeproc:
131−
132− + Avoid duplicate classes and attributes on references div.
133− + Fix regression in citeproc processing (#7376). If inline
134− references are used (in the metadata `references` field), we
135− should still only include in the bibliography items that are
136− actually cited (unless `nocite` is used).
137−
138− * Require citeproc 0.4.0.1. This fixes a bug which led to doubled
139− "et al." in some (rare) circumstances.
140−
141− * MANUAL.txt:
142−
143− + Mention GladTeX for EPUB export (Sebastian Humenda).
144− This updates the manual and the web site about the GladTeX usage.
145− + More details and a useful link for YAML syntax.
146−
147− * CONTRIBUTING.md: update modules overview (Albert Krewinkel).
148−
149− * using-the-pandoc-api.md: switch from String to Text (Albert Krewinkel).
150−
151−
152−## pandoc 2.14.0.1 (2021-06-01)
153−
154− * Commonmark reader: Fix regression in 2.14 with YAML metdata block parsing,
155− which could cause the document body to be omitted after metadata (#7339).
156−
157− * HTML reader: fix column width regression in 2.14 (#7334).
158− Column widths specified with a style attribute were off by a factor of 100.
159−
160− * Markdown reader: in `rebasePaths`, check for both Windows and Posix
161− absolute paths. Previously Windows pandoc was treating
162− `/foo/bar.jpg` as non-absolute.
163−
164− * Text.Pandoc.Logging: In rendering `LoadedResource`, use relative paths.
165−
166− * Docx writer: fix regression on captions (#7328). The "Table Caption"
167− style was no longer getting applied. (It was overwritten by "Compact.")
168−
169− * Use commonmark-extensions 0.2.1.2
170−
171−## pandoc 2.14 (2021-05-28)
172−
173− * Change reader types, allowing better tracking of source positions
174− [API change]. Previously, when multiple file arguments were provided,
175− pandoc simply concatenated them and passed the contents to the readers,
176− which took a Text argument. As a result, the readers had no way of knowing
177− which file was the source of any particular bit of text. This meant that
178− we couldn't report accurate source positions on errors or include accurate
179− source positions as attributes in the AST. More seriously, it meant that
180− we couldn't resolve resource paths relative to the files containing them
181− (see e.g. #5501, #6632, #6384, #3752).
182−
183− * Add `rebase_relative_paths` extension (#3752). When enabled, this
184− extension rewrites relative image and link paths by prepending
185− the (relative) directory of the containing file. This
186− behavior is useful when your input sources are split
187− into multiple files, across several directories, with files
188− referring to images stored in the same directory. The
189− extension can be enabled for all markdown and commonmark-based formats.
190−
191− * Add Text.Pandoc.Sources (exported module), with a `Sources` type and a
192− `ToSources` class. A `Sources` wraps a list of `(SourcePos, Text)` pairs
193− [API change]. A parsec `Stream` instance is provided for `Sources`. The
194− module also exports versions of parsec's `satisfy` and other Char parsers
195− that track source positions accurately from a `Sources` stream (or any
196− instance of the new `UpdateSourcePos` class).
197−
198− * Text.Pandoc.Parsing
199−
200− + Export the modified Char parsers defined in Text.Pandoc.Sources
201− instead of the ones parsec provides. Modified parsers to use a
202− `Sources` as stream [API change].
203− + Improve include file functions [API change]. Remove old
204− `insertIncludedFileF`. Give `insertIncludedFile` a more general type,
205− allowing it to be used where `insertIncludedFileF` was.
206− + Add parameter to the `citeKey` parser from
207− Text.Pandoc.Parsing, which controls whether the `@{..}`
208− syntax is allowed [API change].
209−
210− * Text.Pandoc.Error: Modified the constructor `PandocParsecError` to take a
211− `Sources` rather than a `Text` as first argument, so parse error locations
212− can be accurately reported.
213−
214− * Fix source position reporting for YAML bibliographies (#7273).
215−
216− * Issue error message when reader or writer format is malformed
217− (#7231). Previously we exited with an error status but (due to a bug)
218− no message.
219−
220− * Smarter smart quotes (#7216, #2103). Treat a leading `"` with no
221− closing `"` as a left curly quote. This supports the practice, in
222− fiction, of continuing paragraphs quoting the same speaker without an
223− end quote. It also helps with quotes that break over lines in line blocks.
224−
225− * Markdown reader:
226−
227− + Use MetaInlines not MetaBlocks for multimarkdown metadata fields.
228− This gives better results in converting to e.g. pandoc markdown.
229− + Implement curly-brace syntax for Markdown citation keys (#6026).
230− The change provides a way to use citation keys that contain
231− special characters not usable with the standard citation key syntax.
232− Example: `@{foo_bar{x}'}` for the key `foo_bar{x}`. It also allows
233− separating citation keys from immediately following text, e.g. `@{foo}A`.
234−
235− * RST reader:
236−
237− + Seek include files in the directory of the file
238− containing the include directive, as RST requires (#6632).
239− + Use `insertIncludedFile` from Text.Pandoc.Parsing
240− instead of reproducing much of its code.
241−
242− * Org reader: Resolve org includes relative to the directory containing the
243− file containing the INCLUDE directive (#5501).
244−
245− * ODT reader: Treat tabs as spaces (#7185, niszet).
246−
247− * Docx reader:
248−
249− + Add handling of vml image objects (#7257, mbrackeantidot).
250− + Support new table features (Emily Bourke, #6316): column
251− spans, row spans, multiple header rows, table description
252− (parsed as a simple caption), captions, column widths.
253−
254− * LaTeX reader:
255−
256− + Improved siunitx support (#6658, #6620).
257− + Better support for `\xspace` (#7299).
258− + Improve parsing of `\def` macros. We previously set "verbatim mode"
259− even for parsing the initial `\def`; this caused problems
260− for `\def` nested inside another `\def`.
261− + Implement `\newif`.
262−
263− * ConTeXt writer: improve ordered lists (#5016, Denis Maier).
264− Change ordered list from itemize to enumerate. Add new
265− itemgroup for ordered lists. Remove manual insertion of
266− width attributes. Use tabular figures in ordered list
267− enumerators.
268−
269− * HTML reader:
270−
271− + Don't fail on unmatched closing "script" tag (Albert Krenkel, #7282).
272− + Keep h1 tags as normal headers (#2293, Albert Krewinkel).
273− The tags `<title>` and `<h1 class="title">` often contain the same
274− information, so the latter was dropped from the document. However, as
275− this can lead to loss of information, the heading is now always
276− retained. Use `--shift-heading-level-by=-1` to turn the `<h1>`
277− into the document title, or a filter to restore the previous behavior.
278− + Handle relative lengths (e.g. `2*`) in HTML column widths (#4063).
279− See <https://www.w3.org/TR/html4/types.html#h-6.6>.
280−
281− * DocBook/JATS readers:
282−
283− + Fix mathml regression caused by the switch in XML libraries (#7173).
284− + Fix "phrase" in DocBook: take classes from "role" not "class" (#7195).
285−
286− * DocBook reader: ensure that first and last names are separated (#6541).
287−
288− * Jira reader (Albert Krewinkel, #7218):
289−
290− + Support "smart" links: `[alias|https://example.com|smart-card]` syntax.
291− + Allow spaces and most unicode characters in attachment links.
292− + No longer require a newline character after `{noformat}`.
293− + Only allow URI path segment characters in bare links.
294− + The `file:` schema is no longer allowed in bare links; these
295− rarely make sense.
296−
297− * Plain writer: handle superscript unicode minus (#7276).
298−
299− * LaTeX writer:
300−
301− + Better handling of line breaks in simple tables (#7272).
302− Now we also handle the case where they're embedded in other elements,
303− e.g. spans.
304− + For beamer output, support `exampleblock` and `alertblock` (#7278).
305− A block will be rendered as an `exampleblock` if the heading
306− has class `example` and an `alertblock` if it has class `alert`.
307− + Separate successive quote chars with thin space (#6958,
308− Albert Krewinkel). Successive quote characters are separated with
309− a thin space to improve readability and to prevent unwanted ligatures.
310− Detection of these quotes sometimes had failed if the second quote
311− was nested in a span element.
312− + Separate successive quote chars with thin space (#6958, Albert
313− Krewinkel).
314−
315− * EPUB Writer: Fix belongs-to-collection XML id choice (#7267, nuew).
316− The epub writer previously used the same XML id for both the book
317− identifier and the epub collection. This causes an error on epubcheck.
318−
319− * BibTeX/BibLaTeX writer: Handle `annote` field (#7266).
320−
321− * ZimWiki writer: allow links and emphasis in headers (#6605,
322− Albert Krewinkel).
323−
324− * ConTeXt writer:
325−
326− + Support blank lines in line blocks (#6564, Albert Krewinkel,
327− thanks to @denismaier).
328− + Use span identifiers as reference anchors (#7246, Albert Krewinkel).
329−
330− * HTML writer:
331−
332− + Keep attributes from code nested below `pre` tag (#7221,
333− Albert Krewinkel). If a code block is defined with `<pre><code
334− class="language-x">…</code></pre>`, where the `<pre>` element has no
335− attributes, then the attributes from the `<code>` element are used
336− instead. Any leading `language-` prefix is dropped in the code's
337− `class` attribute are dropped to improve syntax highlighting.
338− + Ensure headings only have valid attribs in HTML4 (#5944, Albert
339− Krewinkel).
340− + Parse `<header>` as a Div (Albert Krewinkel).
341−
342− * Org writer:
343−
344− + Inline latex envs need newlines (#7252, tecosaur).
345− As specified in https://orgmode.org/manual/LaTeX-fragments.html, an
346− inline \begin{}...\end{} LaTeX block must start on a new line.
347− + Use LaTeX style maths deliminators (#7196, tecosaur).
348−
349− * JATS writer (Albert Krewinkel):
350−
351− + Use either styled-content or named-content for spans (#7211).
352− If the element has a content-type attribute, or at least one class,
353− then that value is used as `content-type` and the span is put inside
354− a `<named-content>` element. Otherwise a `<styled-content>` element
355− is used instead.
356− + Reduce unnecessary use of `<p>` elements for wrapping (#7227).
357− The `<p>` element is used for wrapping in cases were the contents
358− would otherwise not be allowed in a certain context. Unnecessary
359− wrapping is avoided, especially around quotes (`<disp-quote>` elements).
360− + Convert spans to `<named-content>` elements (#7211). Spans with
361− attributes are converted to `<named-content>` elements instead of
362− being wrapped with `<milestone-start/>` and `<milestone-end>`
363− elements. Milestone elements are not allowed in documents using the
364− articleauthoring tag set, so this change ensures the creation of valid
365− documents.
366− + Add footnote number as label in backmatter (#7210). Footnotes in the
367− backmatter are given the footnote's number as a label. The
368− articleauthoring output is unaffected from this change, as footnotes
369− are placed inline there.
370− + Escape disallows chars in identifiers. XML identifiers must start
371− with an underscore or letter, and can contain only a limited set
372− of punctuation characters. Any IDs not adhering to these rules are
373− rewritten by writing the offending characters as `Uxxxx`,
374− where `xxxx` is the character's hex code.
375−
376− * Jira writer: use `{color}` when span has a color attribute
377− (Albert Krewinkel, tarleb/jira-wiki-markup#10).
378−
379− * Docx writer:
380−
381− + Autoset table width if no column has an explicit width (Albert
382− Krewinkel).
383− + Extract Table handling into separate module (Albert Krewinkel).
384− + Support colspans and rowspans in tables (Albert Krewinkel, #6315).
385− + Support multirow table headers (Albert Krewinkel).
386− + Improve integration of settings from reference.docx (#1209).
387− This change allows users to create a reference.docx that
388− sets `w:proofState` for spelling or grammar to `dirty`,
389− so that spell/grammar checking will be triggered on the
390− generated docx.
391− + Copy over more settings from reference.docx (#7240). From settings.xml
392− in the reference-doc, we now include: `zoom`, `embedSystemFonts`,
393− `doNotTrackMoves`, `defaultTabStop`, `drawingGridHorizontalSpacing`,
394− `drawingGridVerticalSpacing`, `displayHorizontalDrawingGridEvery`,
395− `displayVerticalDrawingGridEvery`, `characterSpacingControl`,
396− `savePreviewPicture`, `mathPr`, `themeFontLang`, `decimalSymbol`,
397− `listSeparator`, `autoHyphenation`, `compat`.
398− + Set zoom to 100% by default in settings.xml.
399− + Align math options more with current Word defaults (e.g. Cambria Math
400− font).
401− + Remove `rsid`s from default settings.xml. Word will add these
402− when revisions are made.
403−
404− * Ms writer: Handle tables with multiple paragraphs (#7288).
405− Previously they overflowed the table cell width. We now set line lengths
406− per-cell and restore them after the table has been written.
407−
408− * Markdown writer:
409−
410− + Use cleaner braceless syntax for code blocks with a
411− single class (#7242, Jan Tojnar).
412− + Add quotes properly in markdown YAML metadata fields (#7245).
413− This fixes a bug, which caused the writer to look at the *last*
414− rather than the *first* character in determining whether quotes
415− were needed. So we got spurious quotes in some cases and
416− didn't get necessary quotes in others.
417− + Use `@{..}` syntax for citations when needed.
418− + Use fewer unneeded escapes for `#` (see #6259).
419− + Improve escaping of `@`. We need to escape literal `@` before
420− `{` because of the new citation syntax.
421−
422− * Commonmark writer: Use backslash escapes for `<` and `|`...
423− instead of entities (#7208).
424−
425− * Powerpoint writer: allow `monofont` to be specified in metadata
426− (#7187).
427−
428− * LaTeX template:
429−
430− + Use non-starred names for xcolor color names (#6109).
431− This should make svgnames and x11names work properly.
432− + Fix bad vertical spacing after bibliography (#7234, badumont).
433− + List of figures before list of tables (#7235, Julien Dutant).
434− + Move CSL macro definitions before header-includes so they can be
435− overridden (#7286).
436− + Improve treatment of CSL `entry-spacing` (#7296).
437− Previously with the default template settings (`indent` variable
438− not set), we would get interparagraph spaces separating bib
439− entries even with `entry-spacing="0"`. On the other hand,
440− setting `entry-spacing="2"` gave ridiculously large spacing.
441− This change makes the spacing caused by `entry-spacing` a multiple
442− of `\parskip` by default, which gives aesthetically reasonable
443− output. Those who want a larger or smaller unit (e.g. because
444− they use `indent` which sets `\parskip` to 0) may
445− `\setlength{\cslentryspacingunit}{10pt}` in header-includes
446− to override the defaults.
447− + Move title, author, date up to top of preamble (#7295).
448− This allows header-includes to use them, and puts them
449− in a position where you can see them immediately.
450− + Define commands for zero width non-joiner character
451− (#6639, Albert Krewinkel). The zero-width non-joiner character
452− is used to avoid ligatures (e.g. in German).
453−
454− * ConTeXt template:
455−
456− + Define `enumerate` itemgroup (#5016, Denis Maier).
457− + List of figures before list of tables (#7235, Julien Dutant).
458−
459− * reveal.js template:
460−
461− + Support `toc-title` (#7171, Florian Kohrt).
462− + Use `hash: true` by default rather than `history: true` (#6968).
463−
464− * HTML-based slide shows: add support for `institute` (#7289, Thomas
465− Hodgson).
466−
467− * Text.Pandoc.Extensions: Add constructor `Ext_rebase_relative_paths` to
468− `Extensions` [API change].
469−
470− * Text.Pandoc.XML.Light: add Eq, Ord instances for Content,
471− Element, Attr, CDataKind [API change].
472−
473− * Text.Pandoc.MediaBag:
474−
475− + Change type to use a `Text` key instead of `[FilePath]`.
476− We normalize the path and use `/` separators for consistency.
477− + Export `MediaItem` type [API change].
478− + Change `MediaBag` type to a map from Text to MediaItem [API change].
479− + `lookupMedia` now returns a `MediaItem` [API change].
480− + Change `insertMedia` so it sets the `mediaPath` to a filename based on
481− the SHA1 hash of the contents. This will be used when contents
482− are extracted.
483−
484− * Text.Pandoc.Class.PandocMonad:
485−
486− + Remove `fetchMediaResource` [API change]. Use `fetchItem` to get
487− resources in `fillMediaBag`.
488− + Add informational message in `downloadOrRead` indicating what path
489− local resources have been loaded from.
490−
491− * Text.Pandoc.Logging:
492−
493− + Remove single quotes around paths in messages.
494− + Add LoadedResource constructor to LogMessage [API change].
495− This is for INFO-level messages telling where image data has been
496− loaded from. (This can vary because of the resource path.)
497−
498− * Text.Pandoc.Asciify: simplify code and export `toAsciiText` [API change].
499− Instead of encoding a giant (and incomplete) map, we now
500− just use unicode-transforms to normalize the text to
501− a canonical decomposition, and manipulate the result.
502−
503− * App: allow tabs expansion even if file-scope is used (Albert Krewinkel,
504− #6709). Tabs in plain-text inputs are now handled correctly, even if
505− the `--file-scope` flag is used.
506−
507− * Add new internal module Text.Pandoc.Writers.GridTable (Albert Krewinkel).
508−
509− * Text.Pandoc.Highlighting: Change type of `languagesByExtension`, adding
510− a parameter for a `SyntaxMap` [API change] (Jan Tojnar, #7241).
511− Languages defined using `--syntax-definition` were not recognized by
512− `languagesByExtension`. This patch corrects that, allowing the writers
513− to see all custom definitions. The LaTeX writer still uses the default
514− syntax map, but that's okay in that context, since
515− `--syntax-definition` won't create new listings styles.
516−
517− * Text.Pandoc.Citeproc:
518−
519− + Ensure that CSL-related attributes are passed on to a Div with id
520− 'refs'. Otherwise things like `entry-spacing` won't work when
521− such Divs are used.
522− + Use metadata's `lang` for the lang parameter of citeproc, overriding
523− `localeLanguage`.
524− + Recognize locators spelled with a capital letter (#7323).
525− + Add a comma and a space in front of the suffix if it doesn't start
526− with space or punctuation (#7324).
527− + Don't detect math elements as locators (#7321).
528−
529− * Remove Text.Pandoc.BCP47 module [API change]. Use types and functions
530− from UnicodeCollation.Lang instead. This is a richer implementation
531− of BCP 47.
532−
533− * Text.Pandoc.Shared:
534−
535− + Fix regression in grid tables for wide characters (#7214).
536− In the translation from String to Text, a char-width-sensitive
537− `splitAt'` was dropped. This commit reinstates it and uses it to make
538− `splitTextByInstances` char-width sensitive.
539− + Add `getLang` (formerly in the now-removed BCP47) [API change].
540−
541− * Text.Pandoc.SelfContained: use `application/octet-stream`
542− for unknown mime types instead of halting with an error (#7202).
543−
544− * Lua filters: respect Inlines/Blocks filter functions in `pandoc.walk_*`
545− (Albert Krewinkel).
546−
547− * Add text as build-depend for trypandoc (#7193, Roman Beránek).
548−
549− * Bump upper-bounds for network-uri, time, attoparsec.
550−
551− * Use citeproc 0.4.
552−
553− * Use texmath 0.12.3.
554−
555− * Use jira-wiki-markup 1.3.5 (Albert Krewinkel).
556−
557− * Require latest skylighting (fixes a bug in XML syntax highlighting).
558−
559− * Use latest xml-conduit.
560−
561− * Use latest commonmark, commonmark-extensions, commonmark-pandoc.
562−
563− * Use haddock-library-1.10.0 (Albert Krewinkel).
564−
565− * Allow compilation with base 4.15 (Albert Krewinkel).
566−
567− * MANUAL:
568−
569− + Add information about `lang` and bibliography sorting.
570− + Add info about YAML escape sequences, link to spec (#7152,
571− Albert Krewinkel).
572− + Note that `institute` variable works for HTML-based slides.
573− + Update documentation on citation syntax.
574− + Add citation example for locators and suffixes (Tristan Stenner)
575−
576− * Updated and fixed typos in documentation (Charanjit Singh,
577− Anti-Distinctlyminty, Tatiana Porras, obcat).
578−
579− * Add instructions for installing pandoc-types before compiling filter.
580−
581− * INSTALL: add note that parallel installations should be avoided
582− (#6865).
583−
584− * Remove `biblatex-nussbaum.md` test. It is basically the same
585− as `biblaetx-quotes.md`.
586−
587− * Command tests: fail if a file contains no tests---and fix a
588− test that failed in that way!
589−
590− * Use smaller images in tests, reducing the size of the source tarball by 8 MB.
591−
592−
593−## pandoc 2.13 (2021-03-21)
594−
595− * Support `yaml_metadata_block` extension for `commonmark`, `gfm` (#6537).
596− This supported is a bit more limited than with pandoc's
597− `markdown`. The YAML block must be the first thing in the input,
598− and the leaf notes are parsed in isolation from the rest of
599− the document. So, for example, you can't use reference
600− links if the references are defined later in the document.
601−
602− * Fix fallback to default partials when custom templates are used.
603− If the directory containing a template does not contain the partial,
604− it should be sought in the default templates, but this was not
605− working properly (#7164).
3+## pandoc 2.12.1 (PROVISIONAL)
6064
6075 * Handle `nocite` better with `--biblatex` and `--natbib` (#4585).
6086 Previously the nocite metadata field was ignored with these formats.
@@ -613,32 +11,6 @@
61311 that incorporates a prefix like `https://doi.org/` into a following link
61412 when appropriate.
61513
616− * Text.Pandoc.Shared:
617−
618− + Remove `backslashEscapes`, `escapeStringUsing` [API change]. Replace
619− these inefficient association list lookups with more efficient escaping
620− functions in the writers that used them (for a 10-25% performance boost
621− in org, haddock, rtf, texinfo writers).
622− + Remove `ToString`, `ToText` typeclasses [API change]. These were needed
623− for the transition from String to Text, but they are no longer used and
624− may clash with other things.
625− + Simplify `compactDL`.
626−
627− * Text.Pandoc.Parsing:
628−
629− + Change type of `readWithM` so that it is no longer polymorphic
630− [API change]. The `ToText` class has been removed, and now that we've
631− completed the transition to Text we no longer need this to operate
632− on Strings.
633− + Remove `F` type synonym [API change]. Muse and Org were defining their
634− own `F` anyway.
635−
636− * Text.Pandoc.Readers.Metadata:
637−
638− + Export `yamlMetaBlock` [API change].
639− + Make `yamlBsToMeta`, `yamlBsToRefs` polymorphic on the parser state
640− [API change].
641−
64214 * Markdown reader: Fix regression with `tex_math_backslash` (#7155).
64315
64416 * MediaWiki reader: Allow block-level content in notes (ref) (#7145).
@@ -655,11 +27,6 @@
65527 * RST reader: fix logic for ending comments (#7134). Previously comments
65628 sometimes got extended too far.
65729
658− * DocBook writer: include Header attributes as XML attributes on
659− section (Erik Rask). Attributes with key names that are not allowed
660− as XML attributes are dropped, as are attributes with invalid values
661− and `xml:id` (DocBook 5) and `id` (DocBook 4).
662−
66330 * Docx writer:
66431
66532 + Make `nsid` in `abstractNum` deterministic. Previously we assigned
@@ -689,19 +56,17 @@
68956
69057 * reveal.js template: replace JS comment with HTML (#7154, Florian Kohrt).
69158
59+ * Text.Pandoc.Shared: Simplify `compactDL`.
60+
69261 * Text.Pandoc.Logging: Add `DuplicateAttribute` constructor to `LogMessage`.
69362 [API change]
69463
695− * Use `-j4` for linux release build. This speeds up the build dramatically
696− on arm.
64+ * Use `-j4` for linux release build. This speeds up the build
65+ dramatically on arm.
69766
698− * cabal.project: remove ghcoptions. Move flags to top level, so they can
699− be set differently on the command line.
67+ * cabal.project: remove `-j`.
70068
70169 * Require latest texmath, skylighting, citeproc, jira-wiki-markup.
702− (The latest skylighting fixes a bad bug with Haskell syntax highlighting.)
703− Narrow version bounds for texmath, skylighting, and citeproc, since
704− the test output depend on them.
70570
70671 * Use doclayout 0.3.0.2. This significantly reduces the time and memory
70772 needed to compile pandoc.
@@ -710,26 +75,12 @@
71075
71176 * Update bounds for random (#7156, Alexey Kuleshevich).
71277
713− * Remove uses of some partial functions.
714−
715− * Don't bake in a larger stack size for the executable.
716−
717− * Test improvements:
718−
719− + Use `getExecutablePath` from base, avoiding the dependency on
720− `executable-path`.
721− + Factor out `setupEnvironment` in Helpers, to avoid code duplication.
722− + Fix finding of data files by setting teh `pandoc_datadir` environment
723− variable when we shell out to pandoc. This avoids the need to use
724− `--data-dir` for the tests, which caused problems finding `pandoc.lua`
725− when compiling without the `embed_data_files` flag (#7163).
726−
727− * Benchmark improvements:
78+ * Benchmark improvements.
72879
72980 + Build `+RTS -A8m -RTS` into default ghc-options for benchmark.
730− This is necessary to get accurate benchmark results; otherwise we
731− are largely measuring garbage collecting, some not related to the
732− current benchmark.
81+ This is necessary to get accurate benchmark results; otherwise
82+ we are largely measuring garbage collecting, some not related
83+ to the current benchmark.
73384 + Allow specifying BASELINE file in 'make bench' for comparison
73485 (otherwise the latest benchmark is chosen by default).
73586 + Force `readFile` in benchmarks early (Bodigrim).
data/docx/word/settings.xml+16−6
@@ -1,6 +1,6 @@
11<?xml version="1.0" encoding="UTF-8"?>
22<w:settings xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:r="http://schemas.openxmlformats.org/officeDocument/2006/relationships" xmlns:m="http://schemas.openxmlformats.org/officeDocument/2006/math" xmlns:v="urn:schemas-microsoft-com:vml" xmlns:w10="urn:schemas-microsoft-com:office:word" xmlns:w="http://schemas.openxmlformats.org/wordprocessingml/2006/main" xmlns:sl="http://schemas.openxmlformats.org/schemaLibrary/2006/main">
3− <w:zoom w:percent="100" />
3+ <w:zoom w:percent="90" />
44 <w:embedSystemFonts />
55 <w:proofState w:spelling="clean" w:grammar="clean" />
66 <w:stylePaneFormatFilter w:val="0004" />
@@ -17,21 +17,31 @@
1717 <w:characterSpacingControl w:val="doNotCompress" />
1818 <w:savePreviewPicture />
1919 <w:rsids>
20+ <w:rsidRoot w:val="00590D07" />
21+ <w:rsid w:val="00011C8B" />
22+ <w:rsid w:val="004E29B3" />
23+ <w:rsid w:val="00590D07" />
24+ <w:rsid w:val="00784D58" />
25+ <w:rsid w:val="008D6863" />
26+ <w:rsid w:val="00B86B75" />
27+ <w:rsid w:val="00BC48D5" />
28+ <w:rsid w:val="00C36279" />
29+ <w:rsid w:val="00E315A3" />
2030 </w:rsids>
2131 <m:mathPr>
22− <m:mathFont m:val="Cambria Math" />
32+ <m:mathFont m:val="Lucida Grande" />
2333 <m:brkBin m:val="before" />
2434 <m:brkBinSub m:val="--" />
25− <m:smallFrac m:val="0" />
26− <m:dispDef />
35+ <m:smallFrac m:val="false" />
36+ <m:dispDef m:val="false" />
2737 <m:lMargin m:val="0" />
2838 <m:rMargin m:val="0" />
2939 <m:wrapRight />
3040 <m:intLim m:val="subSup" />
31− <m:naryLim m:val="undOvr" />
41+ <m:naryLim m:val="subSup" />
3242 </m:mathPr>
3343 <w:themeFontLang w:val="en-US" />
3444 <w:clrSchemeMapping w:bg1="light1" w:t1="dark1" w:bg2="light2" w:t2="dark2" w:accent1="accent1" w:accent2="accent2" w:accent3="accent3" w:accent4="accent4" w:accent5="accent5" w:accent6="accent6" w:hyperlink="hyperlink" w:followedHyperlink="followedHyperlink" />
3545 <w:decimalSymbol w:val="." />
3646 <w:listSeparator w:val="," />
37−</w:settings>
47+</w:settings>
data/templates/default.context+3−7
@@ -51,7 +51,6 @@ $endif$
5151
5252% use microtypography
5353\definefontfeature[default][default][script=latn, protrusion=quality, expansion=quality, itlc=yes, textitalics=yes, onum=yes, pnum=yes]
54−\definefontfeature[default:tnum][default][tnum=yes, pnum=no]
5554\definefontfeature[smallcaps][script=latn, protrusion=quality, expansion=quality, smcp=yes, onum=yes, pnum=yes]
5655\setupalign[hz,hanging]
5756\setupitaliccorrection[global, always]
@@ -98,9 +97,6 @@ $endif$
9897\setupitemize[autointro] % prevent orphan list intro
9998\setupitemize[indentnext=no]
10099
101−\defineitemgroup[enumerate]
102−\setupenumerate[each][fit][itemalign=left,distance=.5em,style={\feature[+][default:tnum]}]
103−
104100\setupfloat[figure][default={here,nonumber}]
105101\setupfloat[table][default={here,nonumber}]
106102
@@ -164,12 +160,12 @@ $endfor$
164160$if(toc)$
165161\completecontent
166162$endif$
167−$if(lof)$
168−\completelistoffigures
169−$endif$
170163$if(lot)$
171164\completelistoftables
172165$endif$
166+$if(lof)$
167+\completelistoffigures
168+$endif$
173169
174170$body$
175171
data/templates/default.dzslides+1−1
@@ -171,7 +171,7 @@ $if(subtitle)$
171171 <h1 class="subtitle">$subtitle$</h1>
172172$endif$
173173 <footer>
174− $if(author)$<span class="author">$for(author)$$author$$sep$, $endfor$</span> · $endif$$if(institute)$<span class="institute">$for(institute)$$institute$$sep$, $endfor$</span> · $endif$$if(date)$<span class="date">$date$</span>$endif$
174+ $if(author)$<span class="author">$for(author)$$author$$sep$, $endfor$</span>$endif$ · $if(date)$<span class="date">$date$</span>$endif$
175175 </footer>
176176</section>
177177$endif$
data/templates/default.latex+26−48
@@ -2,7 +2,7 @@
22\PassOptionsToPackage{unicode$for(hyperrefoptions)$,$hyperrefoptions$$endfor$}{hyperref}
33\PassOptionsToPackage{hyphens}{url}
44$if(colorlinks)$
5−\PassOptionsToPackage{dvipsnames,svgnames,x11names}{xcolor}
5+\PassOptionsToPackage{dvipsnames,svgnames*,x11names*}{xcolor}
66$endif$
77$if(dir)$
88$if(latex-dir-rtl)$
@@ -156,25 +156,6 @@ $if(CJKmainfont)$
156156 \fi
157157$endif$
158158\fi
159−$if(zero-width-non-joiner)$
160−%% Support for zero-width non-joiner characters.
161−\makeatletter
162−\def\zerowidthnonjoiner{%
163− % Prevent ligatures and adjust kerning, but still support hyphenating.
164− \texorpdfstring{%
165− \textormath{\nobreak\discretionary{-}{}{\kern.03em}%
166− \ifvmode\else\nobreak\hskip\z@skip\fi}{}%
167− }{}%
168−}
169−\makeatother
170−\ifPDFTeX
171− \DeclareUnicodeCharacter{200C}{\zerowidthnonjoiner}
172−\else
173− \catcode`^^^^200c=\active
174− \protected\def ^^^^200c{\zerowidthnonjoiner}
175−\fi
176−%% End of ZWNJ support
177−$endif$
178159$if(beamer)$
179160$if(theme)$
180161\usetheme[$for(themeoptions)$$themeoptions$$sep$,$endfor$]{$theme$}
@@ -344,31 +325,6 @@ $endif$
344325$if(pagestyle)$
345326\pagestyle{$pagestyle$}
346327$endif$
347−$if(csl-refs)$
348−\newlength{\cslhangindent}
349−\setlength{\cslhangindent}{1.5em}
350−\newlength{\csllabelwidth}
351−\setlength{\csllabelwidth}{3em}
352−\newlength{\cslentryspacingunit} % times entry-spacing
353−\setlength{\cslentryspacingunit}{\parskip}
354−\newenvironment{CSLReferences}[2] % #1 hanging-ident, #2 entry spacing
355− {% don't indent paragraphs
356− \setlength{\parindent}{0pt}
357− % turn on hanging indent if param 1 is 1
358− \ifodd #1
359− \let\oldpar\par
360− \def\par{\hangindent=\cslhangindent\oldpar}
361− \fi
362− % set entry spacing
363− \setlength{\parskip}{#2\cslentryspacingunit}
364− }%
365− {}
366−\usepackage{calc}
367−\newcommand{\CSLBlock}[1]{#1\hfill\break}
368−\newcommand{\CSLLeftMargin}[1]{\parbox[t]{\csllabelwidth}{#1}}
369−\newcommand{\CSLRightInline}[1]{\parbox[t]{\linewidth - \csllabelwidth}{#1}\break}
370−\newcommand{\CSLIndent}[1]{\hspace{\cslhangindent}#1}
371−$endif$
372328$for(header-includes)$
373329$header-includes$
374330$endfor$
@@ -419,6 +375,28 @@ $endif$
419375$if(nocite-ids)$
420376\nocite{$for(nocite-ids)$$it$$sep$, $endfor$}
421377$endif$
378+$if(csl-refs)$
379+\newlength{\cslhangindent}
380+\setlength{\cslhangindent}{1.5em}
381+\newlength{\csllabelwidth}
382+\setlength{\csllabelwidth}{3em}
383+\newenvironment{CSLReferences}[2] % #1 hanging-ident, #2 entry spacing
384+ {% don't indent paragraphs
385+ \setlength{\parindent}{0pt}
386+ % turn on hanging indent if param 1 is 1
387+ \ifodd #1 \everypar{\setlength{\hangindent}{\cslhangindent}}\ignorespaces\fi
388+ % set entry spacing
389+ \ifnum #2 > 0
390+ \setlength{\parskip}{#2\baselineskip}
391+ \fi
392+ }%
393+ {}
394+\usepackage{calc}
395+\newcommand{\CSLBlock}[1]{#1\hfill\break}
396+\newcommand{\CSLLeftMargin}[1]{\parbox[t]{\csllabelwidth}{#1}}
397+\newcommand{\CSLRightInline}[1]{\parbox[t]{\linewidth - \csllabelwidth}{#1}\break}
398+\newcommand{\CSLIndent}[1]{\hspace{\cslhangindent}#1}
399+$endif$
422400$if(csquotes)$
423401\usepackage{csquotes}
424402$endif$
@@ -494,12 +472,12 @@ $endif$
494472}
495473$endif$
496474$endif$
497−$if(lof)$
498−\listoffigures
499−$endif$
500475$if(lot)$
501476\listoftables
502477$endif$
478+$if(lof)$
479+\listoffigures
480+$endif$
503481$if(linestretch)$
504482\setstretch{$linestretch$}
505483$endif$
data/templates/default.revealjs+128−78
@@ -52,9 +52,6 @@ $endif$
5252$for(author)$
5353 <p class="author">$author$</p>
5454$endfor$
55−$for(institute)$
56− <p class="institute">$institute$</p>
57−$endfor$
5855$if(date)$
5956 <p class="date">$date$</p>
6057$endif$
@@ -62,12 +59,7 @@ $endif$
6259$endif$
6360$if(toc)$
6461<section id="$idprefix$TOC">
65−<nav role="doc-toc">
66−$if(toc-title)$
67−<h2 id="$idprefix$toc-title">$toc-title$</h2>
68−$endif$
6962$table-of-contents$
70−</nav>
7163</section>
7264$endif$
7365
@@ -90,198 +82,256 @@ $endif$
9082 // Full list of configuration options available at:
9183 // https://revealjs.com/config/
9284 Reveal.initialize({
85+$if(center)$
86+ // Determines whether slide content should be vertically centered
87+ center: $center$,
88+$endif$
89+$if(controls)$
9390 // Display controls in the bottom right corner
9491 controls: $controls$,
95−
92+$endif$
93+$if(controlsTutorial)$
9694 // Help the user learn the controls by providing hints, for example by
9795 // bouncing the down arrow when they first encounter a vertical slide
9896 controlsTutorial: $controlsTutorial$,
99−
97+$endif$
98+$if(controlsLayout)$
10099 // Determines where controls appear, "edges" or "bottom-right"
101100 controlsLayout: '$controlsLayout$',
102−
101+$endif$
102+$if(controlsBackArrows)$
103103 // Visibility rule for backwards navigation arrows; "faded", "hidden"
104104 // or "visible"
105105 controlsBackArrows: '$controlsBackArrows$',
106−
106+$endif$
107+$if(progress)$
107108 // Display a presentation progress bar
108109 progress: $progress$,
109−
110+$endif$
111+$if(slideNumber)$
110112 // Display the page number of the current slide
111113 slideNumber: $slideNumber$,
112−
114+$endif$
115+$if(showSlideNumber)$
113116 // 'all', 'print', or 'speaker'
114117 showSlideNumber: '$showSlideNumber$',
115−
118+$endif$
119+$if(hash)$
116120 // Add the current slide number to the URL hash so that reloading the
117121 // page/copying the URL will return you to the same slide
118122 hash: $hash$,
119−
123+$endif$
124+$if(hashOneBasedIndex)$
120125 // Start with 1 for the hash rather than 0
121126 hashOneBasedIndex: $hashOneBasedIndex$,
122−
123− // Flags if we should monitor the hash and change slides accordingly
124− respondToHashChanges: $respondToHashChanges$,
125−
127+$endif$
126128 // Push each slide change to the browser history
127− history: $history$,
128−
129+ history: $if(history)$$history$$else$true$endif$,
130+$if(keyboard)$
129131 // Enable keyboard shortcuts for navigation
130132 keyboard: $keyboard$,
131−
133+$endif$
134+$if(overview)$
132135 // Enable the slide overview mode
133136 overview: $overview$,
134−
135− // Disables the default reveal.js slide layout (scaling and centering)
136− // so that you can use custom CSS layout
137− disableLayout: false,
138−
137+$endif$
138+$if(center)$
139139 // Vertical centering of slides
140140 center: $center$,
141−
141+$endif$
142+$if(touch)$
142143 // Enables touch navigation on devices with touch input
143144 touch: $touch$,
144−
145+$endif$
146+$if(loop)$
145147 // Loop the presentation
146148 loop: $loop$,
147−
149+$endif$
150+$if(rtl)$
148151 // Change the presentation direction to be RTL
149152 rtl: $rtl$,
150−
153+$endif$
154+$if(navigationMode)$
151155 // see https://revealjs.com/vertical-slides/#navigation-mode
152156 navigationMode: '$navigationMode$',
153−
157+$endif$
158+$if(shuffle)$
154159 // Randomizes the order of slides each time the presentation loads
155160 shuffle: $shuffle$,
156−
161+$endif$
162+$if(fragments)$
157163 // Turns fragments on and off globally
158164 fragments: $fragments$,
159−
165+$endif$
166+$if(fragmentInURL)$
160167 // Flags whether to include the current fragment in the URL,
161168 // so that reloading brings you to the same fragment position
162169 fragmentInURL: $fragmentInURL$,
163−
170+$endif$
171+$if(embedded)$
164172 // Flags if the presentation is running in an embedded mode,
165173 // i.e. contained within a limited portion of the screen
166174 embedded: $embedded$,
167−
175+$endif$
176+$if(help)$
168177 // Flags if we should show a help overlay when the questionmark
169178 // key is pressed
170179 help: $help$,
171−
172− // Flags if it should be possible to pause the presentation (blackout)
173− pause: $pause$,
174−
180+$endif$
181+$if(pause)$
182+ // Flags if it should be possible to pause the presentation (blackout)
183+ pause: $pause$,
184+$endif$
185+$if(showNotes)$
175186 // Flags if speaker notes should be visible to all viewers
176187 showNotes: $showNotes$,
177−
178− // Global override for autoplaying embedded media (null/true/false)
188+$endif$
189+$if(autoPlayMedia)$
190+ // Global override for autoplaying embedded media (video/audio/iframe)
191+ // - null: Media will only autoplay if data-autoplay is present
192+ // - true: All media will autoplay, regardless of individual setting
193+ // - false: No media will autoplay, regardless of individual setting
179194 autoPlayMedia: $autoPlayMedia$,
180−
181− // Global override for preloading lazy-loaded iframes (null/true/false)
195+$endif$
196+$if(preloadIframes)$
197+ // Global override for preloading lazy-loaded iframes
198+ // - null: Iframes with data-src AND data-preload will be loaded when within
199+ // the viewDistance, iframes with only data-src will be loaded when visible
200+ // - true: All iframes with data-src will be loaded when within the viewDistance
201+ // - false: All iframes with data-src will be loaded only when visible
182202 preloadIframes: $preloadIframes$,
183−
203+$endif$
204+$if(autoSlide)$
184205 // Number of milliseconds between automatically proceeding to the
185206 // next slide, disabled when set to 0, this value can be overwritten
186207 // by using a data-autoslide attribute on your slides
187208 autoSlide: $autoSlide$,
188−
209+$endif$
210+$if(autoSlideStoppable)$
189211 // Stop auto-sliding after user input
190212 autoSlideStoppable: $autoSlideStoppable$,
191−
213+$endif$
214+$if(autoSlideMethod)$
192215 // Use this method for navigation when auto-sliding
193216 autoSlideMethod: $autoSlideMethod$,
194−
217+$endif$
218+$if(defaultTiming)$
195219 // Specify the average time in seconds that you think you will spend
196220 // presenting each slide. This is used to show a pacing timer in the
197221 // speaker view
198222 defaultTiming: $defaultTiming$,
199−
223+$endif$
224+$if(totalTime)$
225+ // Specify the total time in seconds that is available to
226+ // present. If this is set to a nonzero value, the pacing
227+ // timer will work out the time available for each slide,
228+ // instead of using the defaultTiming value
229+ totalTime: $totalTime$,
230+$endif$
231+$if(minimumTimePerSlide)$
232+ // Specify the minimum amount of time you want to allot to
233+ // each slide, if using the totalTime calculation method. If
234+ // the automated time allocation causes slide pacing to fall
235+ // below this threshold, then you will see an alert in the
236+ // speaker notes window
237+ minimumTimePerSlide: $minimumTimePerSlide$,
238+$endif$
239+$if(mouseWheel)$
200240 // Enable slide navigation via mouse wheel
201241 mouseWheel: $mouseWheel$,
202−
203− // The display mode that will be used to show slides
204− display: '$display$',
205−
242+$endif$
243+$if(rollingLinks)$
244+ // Apply a 3D roll to links on hover
245+ rollingLinks: $rollingLinks$,
246+$endif$
247+$if(hideInactiveCursor)$
206248 // Hide cursor if inactive
207249 hideInactiveCursor: $hideInactiveCursor$,
208−
250+$endif$
251+$if(hideCursorTime)$
209252 // Time before the cursor is hidden (in ms)
210253 hideCursorTime: $hideCursorTime$,
211−
254+$endif$
255+$if(hideAddressBar)$
256+ // Hides the address bar on mobile devices
257+ hideAddressBar: $hideAddressBar$,
258+$endif$
259+$if(previewLinks)$
212260 // Opens links in an iframe preview overlay
213261 previewLinks: $previewLinks$,
214−
215− // Transition style (none/fade/slide/convex/concave/zoom)
216− transition: '$transition$',
217−
218− // Transition speed (default/fast/slow)
219− transitionSpeed: '$transitionSpeed$',
220−
262+$endif$
263+$if(transition)$
264+ // Transition style
265+ transition: '$transition$', // none/fade/slide/convex/concave/zoom
266+$endif$
267+$if(transitionSpeed)$
268+ // Transition speed
269+ transitionSpeed: '$transitionSpeed$', // default/fast/slow
270+$endif$
271+$if(backgroundTransition)$
221272 // Transition style for full page slide backgrounds
222− // (none/fade/slide/convex/concave/zoom)
223− backgroundTransition: '$backgroundTransition$',
224−
273+ backgroundTransition: '$backgroundTransition$', // none/fade/slide/convex/concave/zoom
274+$endif$
275+$if(viewDistance)$
225276 // Number of slides away from the current that are visible
226277 viewDistance: $viewDistance$,
227−
278+$endif$
279+$if(mobileViewDistance)$
228280 // Number of slides away from the current that are visible on mobile
229281 // devices. It is advisable to set this to a lower number than
230282 // viewDistance in order to save resources.
231283 mobileViewDistance: $mobileViewDistance$,
284+$endif$
232285$if(parallaxBackgroundImage)$
233−
234286 // Parallax background image
235287 parallaxBackgroundImage: '$parallaxBackgroundImage$', // e.g. "'https://s3.amazonaws.com/hakim-static/reveal-js/reveal-parallax-1.jpg'"
236288$else$
237289$if(background-image)$
238−
239290 // Parallax background image
240291 parallaxBackgroundImage: '$background-image$', // e.g. "'https://s3.amazonaws.com/hakim-static/reveal-js/reveal-parallax-1.jpg'"
241292$endif$
242293$endif$
243294$if(parallaxBackgroundSize)$
244−
245295 // Parallax background size
246296 parallaxBackgroundSize: '$parallaxBackgroundSize$', // CSS syntax, e.g. "2100px 900px"
247297$endif$
248298$if(parallaxBackgroundHorizontal)$
249−
250299 // Amount to move parallax background (horizontal and vertical) on slide change
251300 // Number, e.g. 100
252301 parallaxBackgroundHorizontal: $parallaxBackgroundHorizontal$,
253302$endif$
254303$if(parallaxBackgroundVertical)$
255−
256304 parallaxBackgroundVertical: $parallaxBackgroundVertical$,
257305$endif$
258306$if(width)$
259−
260307 // The "normal" size of the presentation, aspect ratio will be preserved
261308 // when the presentation is scaled to fit different resolutions. Can be
262309 // specified using percentage units.
263310 width: $width$,
264311$endif$
265312$if(height)$
266−
267313 height: $height$,
268314$endif$
269315$if(margin)$
270−
271316 // Factor of the display size that should remain empty around the content
272317 margin: $margin$,
273318$endif$
274319$if(minScale)$
275−
276320 // Bounds for smallest/largest possible scale to apply to content
277321 minScale: $minScale$,
278322$endif$
279323$if(maxScale)$
280−
281324 maxScale: $maxScale$,
282325$endif$
326+$if(zoomKey)$
327+ // Modifier key used to click-zoom to part of the slide
328+ zoomKey: '$zoomKey$',
329+$endif$
330+$if(display)$
331+ // The display mode that will be used to show slides
332+ display: '$display$',
333+$endif$
283334$if(mathjax)$
284−
285335 math: {
286336 mathjax: '$mathjaxurl$',
287337 config: 'TeX-AMS_HTML-full',
data/templates/default.s5−3
@@ -61,9 +61,6 @@ $endif$
6161$if(author)$
6262 <h3 class="author">$for(author)$$author$$sep$<br/>$endfor$</h3>
6363$endif$
64−$if(institute)$
65− <h3 class="institute">$for(institute)$$institute$$sep$<br/>$endfor$</h3>
66−$endif$
6764$if(date)$
6865 <h4 class="date">$date$</h4>
6966$endif$
data/templates/default.slideous−7
@@ -63,16 +63,9 @@ $if(title)$
6363$if(subtitle)$
6464 <h1 class="subtitle">$subtitle$</h1>
6565$endif$
66−$if(author)$
6766 <p class="author">
6867$for(author)$$author$$sep$<br/>$endfor$
6968 </p>
70−$endif$
71−$if(institute)$
72− <p class="institute">
73−$for(institute)$$institute$$sep$<br/>$endfor$
74− </p>
75−$endif$
7669$if(date)$
7770 <p class="date">$date$</p>
7871$endif$
data/templates/default.slidy−5
@@ -52,11 +52,6 @@ $if(author)$
5252$for(author)$$author$$sep$<br/>$endfor$
5353 </p>
5454$endif$
55−$if(institute)$
56− <p class="institute">
57−$for(institute)$$institute$$sep$<br/>$endfor$
58− </p>
59−$endif$
6055$if(date)$
6156 <p class="date">$date$</p>
6257$endif$
data/templates/styles.html+1−2
@@ -14,7 +14,7 @@ body {
1414 padding-top: $if(margin-top)$$margin-top$$else$50px$endif$;
1515 padding-bottom: $if(margin-bottom)$$margin-bottom$$else$50px$endif$;
1616 hyphens: auto;
17− overflow-wrap: break-word;
17+ word-wrap: break-word;
1818 text-rendering: optimizeLegibility;
1919 font-kerning: normal;
2020}
@@ -93,7 +93,6 @@ $endif$
9393pre code {
9494 padding: 0;
9595 overflow: visible;
96− overflow-wrap: normal;
9796}
9897.sourceCode {
9998 background-color: transparent;
doc/epub.md+2−9
@@ -141,15 +141,8 @@ Pandoc has an EPUB3 writer. It renders LaTeX math into MathML, which
141141EPUB3 readers are supposed to support (but unfortunately few do).
142142
143143Of course, this isn't much help if you want EPUB2 output (`pandoc -t epub2`)
144−or target readers that don't support MathML. Then you have two options:
145−
146−1. Use the [`--webtex`](https://pandoc.org/MANUAL.html#option--webtex) option,
147− which will use a web service to convert the TeX to an image.
148−2. Use the [`--gladtex`](https://pandoc.org/MANUAL.html#option--gladtex) option
149− to convert maths into SVG images on your local machine.
150−
151−Both GladTeX and WebTeX add the LaTeX source of the formula as alternative text
152−of the image, increasing accessibility for blind users.
144+or target readers that don't support MathML. Then you should try using the
145+`--webtex` option, which will use a web service to convert the TeX to an image.
153146
154147[KindleGen]: https://www.amazon.com/gp/feature.html?ie=UTF8&docId=1000765211
155148[EPUB]: https://en.wikipedia.org/wiki/EPUB
doc/faqs.mddeleted−128
@@ -1,128 +0,0 @@
1−% FAQs
2−
3−::: faqs
4−
5−## How can I convert a whole directory of files from Markdown to RTF?
6−
7−On linux or OSX:
8−
9− for f in *.txt; do pandoc "$f" -s -o "${f%.txt}.rtf"; done
10−
11−
12−In Windows Powershell:
13−
14− gci -r -i *.txt |foreach{$rtf=$_.directoryname+"\"+$_.basename+".rtf";pandoc -f markdown -s $_.name -o $rtf}
15−
16−## I used pandoc to convert a document to ICML (or OPML or RTF), and when I try to open it I'm told it's invalid. What have I done wrong?
17−
18−Be sure to use the `-s` or `--standalone` flag, or you just get a
19−fragment, not a full document with the required header:
20−
21− pandoc -s -f markdown -t icml -o my.icml my.md
22−
23−## I get a blank document when I try to convert a markdown document in Chinese to PDF.
24−
25−By default, pandoc uses pdflatex to generate the PDF, and pdflatex
26−doesn't handle Chinese characters. But you can change the default to
27−use xelatex instead. You should also make sure you're using a font
28−with Chinese glyphs. For example:
29−
30− pandoc -o c.pdf --pdf-engine=xelatex -V mainfont='Adobe Ming Std'
31−
32−## The Windows installer does a single user install, rather than installing pandoc for all users. How can I install pandoc for all users?
33−
34−Run the following command as admin:
35−
36− msiexec /i pandoc-VERSION.msi ALLUSERS=1
37−
38−This will put pandoc in `C:\Program Files\Pandoc`.
39−You can install Pandoc to a different directory by setting APPLICATIONFOLDER parameter,
40−for example:
41−
42− msiexec /i pandoc-1.11.1.msi ALLUSERS=1 APPLICATIONFOLDER="C:\Pandoc"
43−
44−## How do I change the margins in PDF output?
45−
46−The option
47−
48− -V geometry:margin=1in
49−
50−will set the margins to one inch on each side. If you don't want uniform
51−margins, you can do something like
52−
53− -V geometry:"top=2cm, bottom=1.5cm, left=1cm, right=1cm"
54−
55−Or
56−
57− -V geometry:"left=3cm, width=10cm"
58−
59−For more options, see the documentation for the LaTeX [geometry
60−package](https://www.ctan.org/pkg/geometry).
61−
62−## How does pandoc compare to multimarkdown?
63−
64−Here is a [wiki
65−page](https://github.com/jgm/pandoc/wiki/Pandoc-vs-Multimarkdown)
66−comparing the two.
67−
68−## When I specify an image width of 50% and convert to LaTeX, pandoc sets the height to textheight and the aspect ratio isn't preserved. How can I prevent this?
69−
70−For example, if you convert an image with `{width="50%"}`, the LaTeX produced
71−will be `\includegraphics[width=0.5\textwidth,height=\textheight]`.
72−
73−This output presupposes the following code in pandoc's default latex
74−template:
75−
76−```
77−% Scale images if necessary, so that they will not overflow the page
78−% margins by default, and it is still possible to overwrite the defaults
79−% using explicit options in \includegraphics[width, height, ...]{}
80−\setkeys{Gin}{width=\maxwidth,height=\maxheight,keepaspectratio}
81−```
82−
83−If you don't have this in your custom template, you should
84−add it. If we didn't set the `height` explicitly in this way,
85−the image would not be resized correctly unless it was
86−being resized to smaller than its original size.
87−
88−## Pandoc sometimes uses too much memory. How can I limit the memory used by pandoc?
89−
90−`pandoc +RTS -M30m -RTS` will limit heap memory to 30MB.
91−When converting a document requires more than this, an out of
92−memory error will be issued.
93−
94−## When using `--include-in-header` with PDF or LaTeX output, how do I reference tex declarations coming after `$header-includes$` in the default template?
95−
96−For various reasons, the `$header-includes$` are not at the very
97−end of the LaTeX preamble. This poses a problem when the code
98−you are inserting depends on declarations in the preamble coming
99−after the `$header-includes$` location. For example, you might
100−want to reference the `\author` and `\title` metadata values
101−(set at the very bottom of the preamble) and present them in
102−margins. In that case you can wrap your code in `etoolbox`'s
103−`\AtEndPreamble`. The technique is demonstrated in [this
104−gist](https://gist.github.com/JohnLukeBentley/9dda6166b9ee5c4127afd2b8cd16b70a).
105−When using `\AtEndPreamble`, keep any `makeatletter` or
106−`makeatother` outside of the `\AtEndPreamble`, as shown in the
107−example.
108−
109−## How can I convert PDFs to other formats using pandoc?
110−
111−You can't. You can try opening the PDF in Word or Google Docs
112−and saving in a format from which pandoc can convert directly.
113−
114−## Do I really need to install a 1 GB TeX installation to produce a PDF using pandoc?
115−
116−No. You can get by with a relatively small TeX installation,
117−for example, by starting with MacTeX's Basic TeX distribution
118−and using the `tlmgr` tool to install a few packages required by pandoc
119−(see https://pandoc.org/MANUAL.html#creating-a-pdf).
120−
121−Or, you can produce PDFs via HTML and `wkhtmltopdf`,
122−or via groff ms and `pdfroff`. (These don't produce as nice
123−topography as TeX, particularly when it comes to math, but they
124−may be fine for many purposes.)
125−
126−
127−:::
128−
doc/filters.md−2
@@ -394,8 +394,6 @@ automatically assign it `Just` the target format or `Nothing`.
394394
395395We compile our script:
396396
397− # first, make sure pandoc-types is installed:
398− cabal install --lib pandoc-types --package-env .
399397 ghc --make handleRuby
400398
401399Then run it:
doc/libraries.md−4
@@ -15,9 +15,6 @@ pandoc:
1515[texmath]
1616: Conversion of math between tex, Word equation, MathML, and GNU eqn.
1717
18−[unicode-collation]
19−: Proper Unicode collation (sorting).
20−
2118[doclayout]
2219: Combinators for laying out a textual document, with support
2320 for line wrapping, tabular layout, and more.
@@ -59,5 +56,4 @@ pandoc:
5956[rfc5051]: https://hackage.haskell.org/package/rfc5051
6057[emojis]: https://hackage.haskell.org/package/emojis
6158[jira-wiki-markup]: https://hackage.haskell.org/package/jira-wiki-markup
62−[unicode-collation]: https://hackage.haskell.org/package/unicode-collation
6359
doc/lua-filters.md+2−2
@@ -109,7 +109,7 @@ element filtering function. In other words, filter entries will
109109be called for each corresponding element in the document,
110110getting the respective element as input.
111111
112−The return of a filter function must be one of the following:
112+The return of a filter function must one of the following:
113113
114114- nil: this means that the object should remain unchanged.
115115- a pandoc object: this must be of the same type as the input
@@ -3205,7 +3205,7 @@ Usage:
32053205
32063206# Module pandoc.List
32073207
3208−This module defines pandoc's list type. It comes with useful
3208+The this module defines pandoc's list type. It comes with useful
32093209methods and convenience functions.
32103210
32113211## Constructor
doc/org.md+2−16
@@ -25,7 +25,8 @@ The following export keywords are supported:
2525- LANGUAGE: document language; included as plain-text metadata
2626 field `lang`. The value should be a [BCP47 language tag].
2727
28−- SELECT_TAGS: tags which select a tree for export.
28+- SELECT_TAGS: tags which select a tree for export. Currently
29+ *unsupported*.
2930
3031- EXCLUDE\_TAGS: tags which prevent a subtree from being
3132 exported. Fully supported.
@@ -36,21 +37,6 @@ The following export keywords are supported:
3637 defaults to stdout unless a target has to be given as a command
3738 line option.
3839
39−::: {.alert .alert-info}
40−Pandoc tries to be compatible with org-mode when exporting an org document. If
41−you find some behavior confusing, please do refer to org-mode
42−[Export-Settings](https://orgmode.org/manual/Export-Settings.html)
43−documentation. For example, a common confusion
44−([#3214](https://github.com/jgm/pandoc/issues/3214 "Problem with headers lower
45−then 3 in org-mode reader"), [#5169](https://github.com/jgm/pandoc/issues/5169
46−"org mode headings past level three converted to numbered outline list"),
47−[#6145](https://github.com/jgm/pandoc/issues/6145 "Headers 4 levels deep render
48−differently"), [#7236](https://github.com/jgm/pandoc/issues/7236 "In Org mode,
49−Header with level > 3 are not recognized as headers")) is treatment of headers
50−with level > 3 differently because org-mode sets `org-export-headline-levels`
51−(configurable with `#+OPTIONS: H:3`) to 3 by default.
52−:::
53−
5440[BCP47 language tag]: https://tools.ietf.org/html/bcp47
5541
5642Format-specific options
doc/using-the-pandoc-api.md+12−25
@@ -14,7 +14,7 @@ and types is available at
1414Pandoc is structured as a set of *readers*, which translate
1515various input formats into an abstract syntax tree (the
1616Pandoc AST) representing a structured document, and a set of
17−*writers*, which render this AST into various output formats.
17+*writers*, which render this AST into various input formats.
1818Pictorially:
1919
2020```
@@ -90,14 +90,8 @@ Some notes:
9090Let's look at the types of `readMarkdown` and `writeRST`:
9191
9292```haskell
93−readMarkdown :: (PandocMonad m, ToSources a)
94− => ReaderOptions
95− -> a
96− -> m Pandoc
97−writeRST :: PandocMonad m
98− => WriterOptions
99− -> Pandoc
100− -> m Text
93+readMarkdown :: PandocMonad m => ReaderOptions -> Text -> m Pandoc
94+writeRST :: PandocMonad m => WriterOptions -> Pandoc -> m Text
10195```
10296
10397The `PandocMonad m =>` part is a typeclass constraint.
@@ -139,7 +133,7 @@ report :: PandocMonad m => LogMessage -> m ()
139133-- | Fetch an image or other item from the local filesystem or the net.
140134-- Returns raw content and maybe mime type.
141135fetchItem :: PandocMonad m
142− => Text
136+ => String
143137 -> m (B.ByteString, Maybe MimeType)
144138
145139-- Set the resource path searched by 'fetchItem'.
@@ -161,13 +155,6 @@ Note that `PandocIO` is an instance of `MonadIO`, so you can
161155use `liftIO` to perform arbitrary IO operations inside a pandoc
162156conversion chain.
163157
164−`readMarkdown` is polymorphic in its second argument, which
165−can be any type that is an instance of the `ToSources`
166−typeclass. You can use `Text`, as in the example above.
167−But you can also use `[(FilePath, Text)]`, if the input comes
168−from multiple files and you want to track source positions
169−accurately.
170−
171158# Options
172159
173160The first argument of each reader or writer is for
@@ -213,8 +200,8 @@ of the Monoid typeclass and can easily be concatenated:
213200import Text.Pandoc.Builder
214201
215202mydoc :: Pandoc
216−mydoc = doc $ header 1 (text (T.pack "Hello!"))
217− <> para (emph (text (T.pack "hello world")) <> text (T.pack "."))
203+mydoc = doc $ header 1 (text "Hello!")
204+ <> para (emph (text "hello world") <> text ".")
218205
219206main :: IO ()
220207main = print mydoc
@@ -261,16 +248,16 @@ import qualified Data.Text as T
261248import Data.List (intersperse)
262249
263250data Station = Station{
264− address :: T.Text
265− , name :: T.Text
266− , cardsAccepted :: [T.Text]
251+ address :: String
252+ , name :: String
253+ , cardsAccepted :: [String]
267254 } deriving Show
268255
269256instance FromJSON Station where
270257 parseJSON (Object v) = Station <$>
271258 v .: "street_address" <*>
272259 v .: "station_name" <*>
273− (T.words <$> (v .:? "cards_accepted" .!= ""))
260+ (words <$> (v .:? "cards_accepted" .!= ""))
274261 parseJSON _ = mzero
275262
276263createLetter :: [Station] -> Pandoc
@@ -328,7 +315,7 @@ users to override the system defaults. If you want to disable
328315this behavior, use `setUserDataDir Nothing`.
329316
330317To render a template, use `renderTemplate'`, which takes two
331−arguments, a template (Text) and a context (any instance
318+arguments, a template (String) and a context (any instance
332319of ToJSON). If you want to create a context from the metadata
333320part of a Pandoc document, use `metaToJSON'` from
334321[Text.Pandoc.Writers.Shared]. If you also want to incorporate
@@ -426,7 +413,7 @@ concatenated together. Here's an example that returns a
426413list of the URLs linked to in a document:
427414
428415```haskell
429−listURLs :: Pandoc -> [Text]
416+listURLs :: Pandoc -> [String]
430417listURLs = query urls
431418 where urls (Link _ _ (src, _)) = [src]
432419 urls _ = []
man/pandoc.1+39−187
@@ -1,7 +1,7 @@
11'\" t
2−.\" Automatically generated by Pandoc 2.14.0.1
2+.\" Automatically generated by Pandoc 2.12
33.\"
4−.TH "Pandoc User\[cq]s Guide" "" "June 20, 2021" "pandoc 2.14.0.3" ""
4+.TH "Pandoc User\[cq]s Guide" "" "March 8, 2021" "pandoc 2.12" ""
55.hy
66.SH NAME
77pandoc - general markup converter
@@ -716,11 +716,11 @@ Extract images and other media contained in or linked from the source
716716document to the path \f[I]DIR\f[R], creating it if necessary, and adjust
717717the images references in the document so they point to the extracted
718718files.
719−Media are downloaded, read from the file system, or extracted from a
720−binary container (e.g.\ docx), as needed.
721−The original file paths are used if they are relative paths not
722−containing \f[C]..\f[R].
723−Otherwise filenames are constructed from the SHA1 hash of the contents.
719+If the source format is a binary container (docx, epub, or odt), the
720+media is extracted from the container and the original filenames are
721+used.
722+Otherwise the media is read from the file system or downloaded, and new
723+filenames are constructed based on SHA1 hashes of the contents.
724724.TP
725725\f[B]\f[CB]--abbreviations=\f[B]\f[R]\f[I]FILE\f[R]
726726Specifies a custom abbreviations file, with abbreviations one to a line.
@@ -1504,16 +1504,16 @@ inserted.
15041504.TP
15051505\f[B]\f[CB]--gladtex\f[B]\f[R]
15061506Enclose TeX math in \f[C]<eq>\f[R] tags in HTML output.
1507−The resulting HTML can then be processed by GladTeX to produce SVG
1508−images of the typeset formulas and an HTML file with these images
1509−embedded.
1507+The resulting HTML can then be processed by GladTeX to produce images of
1508+the typeset formulas and an HTML file with links to these images.
1509+So, the procedure is:
15101510.RS
15111511.IP
15121512.nf
15131513\f[C]
15141514pandoc -s --gladtex input.md -o myfile.htex
1515−gladtex -d image_dir myfile.htex
1516−# produces myfile.html and images in image_dir
1515+gladtex -d myfile-images myfile.htex
1516+# produces myfile.html and images in myfile-images
15171517\f[R]
15181518.fi
15191519.RE
@@ -2591,9 +2591,10 @@ YAML metadata or with \f[C]-M classoption=fleqn\f[R].
25912591.SS Variables for HTML slides
25922592.PP
25932593These affect HTML output when [producing slide shows with pandoc].
2594−.TP
2595−\f[B]\f[CB]institute\f[B]\f[R]
2596−author affiliations: can be a list when there are multiple authors
2594+.PP
2595+All reveal.js configuration options are available as variables.
2596+To turn off boolean flags that default to true in reveal.js, use
2597+\f[C]0\f[R].
25972598.TP
25982599\f[B]\f[CB]revealjs-url\f[B]\f[R]
25992600base URL for reveal.js documents (defaults to
@@ -2612,10 +2613,6 @@ base URL for Slideous documents (defaults to \f[C]slideous\f[R])
26122613\f[B]\f[CB]title-slide-attributes\f[B]\f[R]
26132614additional attributes for the title slide of reveal.js slide shows.
26142615See background in reveal.js and beamer for an example.
2615−.PP
2616−All reveal.js configuration options are available as variables.
2617−To turn off boolean flags that default to true in reveal.js, use
2618−\f[C]0\f[R].
26192616.SS Variables for Beamer slides
26202617.PP
26212618These variables change the appearance of PDF slides using
@@ -4275,7 +4272,7 @@ Term 2
42754272Note that space between items in a definition list is required.
42764273(A variant that loosens this requirement, but disallows \[lq]lazy\[rq]
42774274hard wrapping, can be activated with \f[C]compact_definition_lists\f[R]:
4278−see Non-default extensions, below.)
4275+see Non-pandoc extensions, below.)
42794276.SS Numbered example lists
42804277.SS Extension: \f[C]example_lists\f[R]
42814278.PP
@@ -4796,9 +4793,7 @@ All of the metadata will appear in a single block at the beginning of
47964793the document.
47974794.PP
47984795Note that YAML escaping rules must be followed.
4799−Thus, for example, if a title contains a colon, it must be quoted, and
4800−if it contains a backslash escape, then it must be ensured that it is
4801−not treated as a YAML escape sequence.
4796+Thus, for example, if a title contains a colon, it must be quoted.
48024797The pipe character (\f[C]|\f[R]) can be used to begin an indented block
48034798that will be interpreted literally, without need for escaping.
48044799This form is necessary when the field contains blank lines or
@@ -4820,13 +4815,6 @@ abstract: |
48204815\f[R]
48214816.fi
48224817.PP
4823−The literal block after the \f[C]|\f[R] must be indented relative to the
4824−line containing the \f[C]|\f[R].
4825−If it is not, the YAML will be invalid and pandoc will not interpret it
4826−as metadata.
4827−For an overview of the complex rules governing YAML, see the Wikipedia
4828−entry on YAML syntax.
4829−.PP
48304818Template variables will be set automatically from the metadata.
48314819Thus, for example, in writing HTML, the variable \f[C]abstract\f[R] will
48324820be set to the HTML equivalent of the Markdown in the \f[C]abstract\f[R]
@@ -4892,21 +4880,6 @@ header-includes:
48924880 \[ga]\[ga]\[ga]
48934881\f[R]
48944882.fi
4895−.PP
4896−Note: the \f[C]yaml_metadata_block\f[R] extension works with
4897−\f[C]commonmark\f[R] as well as \f[C]markdown\f[R] (and it is enabled by
4898−default in \f[C]gfm\f[R] and \f[C]commonmark_x\f[R]).
4899−However, in these formats the following restrictions apply:
4900−.IP \[bu] 2
4901−The YAML metadata block must occur at the beginning of the document (and
4902−there can be only one).
4903−If multiple files are given as arguments to pandoc, only the first can
4904−be a YAML metadata block.
4905−.IP \[bu] 2
4906−The leaf nodes of the YAML structure are parsed in isolation from each
4907−other and from the rest of the document.
4908−So, for example, you can\[cq]t use a reference link in these contexts if
4909−the link definition is somewhere else in the document.
49104883.SS Backslash escapes
49114884.SS Extension: \f[C]all_symbols_escapable\f[R]
49124885.PP
@@ -5787,70 +5760,27 @@ Inline and regular footnotes may be mixed freely.
57875760.SS Citation syntax
57885761.SS Extension: \f[C]citations\f[R]
57895762.PP
5790−To cite a bibliographic item with an identifier foo, use the syntax
5791−\f[C]\[at]foo\f[R].
5792−Normal citations should be included in square brackets, with semicolons
5793−separating distinct items:
5794−.IP
5795−.nf
5796−\f[C]
5797−Blah blah [\[at]doe99; \[at]smith2000; \[at]smith2004].
5798−\f[R]
5799−.fi
5800−.PP
5801−How this is rendered depends on the citation style.
5802−In an author-date style, it might render as
5803−.IP
5804−.nf
5805−\f[C]
5806−Blah blah (Doe 1999, Smith 2000, 2004).
5807−\f[R]
5808−.fi
5809−.PP
5810−In a footnote style, it might render as
5763+Markdown citations go inside square brackets and are separated by
5764+semicolons.
5765+Each citation must have a key, composed of `\[at]' + the citation
5766+identifier from the database, and may optionally have a prefix, a
5767+locator, and a suffix.
5768+The citation key must begin with a letter, digit, or \f[C]_\f[R], and
5769+may contain alphanumerics, \f[C]_\f[R], and internal punctuation
5770+characters (\f[C]:.#$%&-+?<>\[ti]/\f[R]).
5771+Here are some examples:
58115772.IP
58125773.nf
58135774\f[C]
5814−Blah blah.[\[ha]1]
5775+Blah blah [see \[at]doe99, pp. 33-35; also \[at]smith04, chap. 1].
58155776
5816−[\[ha]1]: John Doe, \[dq]Frogs,\[dq] *Journal of Amphibians* 44 (1999);
5817−Susan Smith, \[dq]Flies,\[dq] *Journal of Insects* (2000);
5818−Susan Smith, \[dq]Bees,\[dq] *Journal of Insects* (2004).
5819−\f[R]
5820−.fi
5821−.PP
5822−See the CSL user documentation for more information about CSL styles and
5823−how they affect rendering.
5824−.PP
5825−Unless a citation key start with a letter, digit, or \f[C]_\f[R], and
5826−contains only alphanumerics and internal punctuation characters
5827−(\f[C]:.#$%&-+?<>\[ti]/\f[R]), it must be surrounded by curly braces,
5828−which are not considered part of the key.
5829−In \f[C]\[at]Foo_bar.baz.\f[R], the key is \f[C]Foo_bar.baz\f[R].
5830−The final period is not \f[I]internal\f[R] punctuation, so it is not
5831−included in the key.
5832−In \f[C]\[at]{Foo_bar.baz.}\f[R], the key is \f[C]Foo_bar.baz.\f[R],
5833−including the final period.
5834−The curly braces are recommended if you use URLs as keys:
5835−\f[C][\[at]{https://example.com/bib?name=foobar&date=2000}, p. 33]\f[R].
5836−.PP
5837−Citation items may optionally include a prefix, a locator, and a suffix.
5838−In
5839−.IP
5840−.nf
5841−\f[C]
5842−Blah blah [see \[at]doe99, pp. 33-35 and *passim*; \[at]smith04, chap. 1].
5777+Blah blah [\[at]doe99, pp. 33-35, 38-39 and *passim*].
5778+
5779+Blah blah [\[at]smith04; \[at]doe99].
58435780\f[R]
58445781.fi
58455782.PP
5846−The first item (\f[C]doe99\f[R]) has prefix \f[C]see\f[R], locator
5847−\f[C]pp. 33-35\f[R], and suffix \f[C]and *passim*\f[R].
5848−The second item (\f[C]smith04\f[R]) has locator \f[C]chap. 1\f[R] and no
5849−prefix or suffix.
5850−.PP
5851−Pandoc uses some heuristics to separate the locator from the rest of the
5852−subject.
5853−It is sensitive to the locator terms defined in the CSL locale files.
5783+\f[C]pandoc\f[R] detects locator terms in the CSL locale files.
58545784Either abbreviated or unabbreviated forms are accepted.
58555785In the \f[C]en-US\f[R] locale, locator terms can be written in either
58565786singular or plural forms, as \f[C]book\f[R],
@@ -5872,15 +5802,14 @@ singular or plural forms, as \f[C]book\f[R],
58725802\f[C]\[sc]\f[R]/\f[C]\[sc]\[sc]\f[R].
58735803If no locator term is used, \[lq]page\[rq] is assumed.
58745804.PP
5875−In complex cases, you can force something to be treated as a locator by
5876−enclosing it in curly braces or prevent parsing the suffix as locator by
5877−prepending curly braces:
5805+\f[C]pandoc\f[R] will use heuristics to distinguish the locator from the
5806+suffix.
5807+In complex cases, the locator can be enclosed in curly braces:
58785808.IP
58795809.nf
58805810\f[C]
58815811[\[at]smith{ii, A, D-Z}, with a suffix]
58825812[\[at]smith, {pp. iv, vi-xi, (xv)-(xvii)} with suffix here]
5883−[\[at]smith{}, 99 years later]
58845813\f[R]
58855814.fi
58865815.PP
@@ -5894,8 +5823,7 @@ Smith says blah [-\[at]smith04].
58945823\f[R]
58955824.fi
58965825.PP
5897−You can also write an author-in-text citation, by omitting the square
5898−brackets:
5826+You can also write an in-text citation, as follows:
58995827.IP
59005828.nf
59015829\f[C]
@@ -5904,64 +5832,13 @@ brackets:
59045832\[at]smith04 [p. 33] says blah.
59055833\f[R]
59065834.fi
5907−.PP
5908−This will cause the author\[cq]s name to be rendered, followed by the
5909−bibliographical details.
5910−Use this form when you want to make the citation the subject of a
5911−sentence.
5912−.PP
5913−When you are using a note style, it is usually better to let citeproc
5914−create the footnotes from citations rather than writing an explicit
5915−note.
5916−If you do write an explicit note that contains a citation, note that
5917−normal citations will be put in parentheses, while author-in-text
5918−citations will not.
5919−For this reason, it is sometimes preferable to use the author-in-text
5920−style inside notes when using a note style.
5921−.SS Non-default extensions
5835+.SS Non-pandoc extensions
59225836.PP
59235837The following Markdown syntax extensions are not enabled by default in
59245838pandoc, but may be enabled by adding \f[C]+EXTENSION\f[R] to the format
59255839name, where \f[C]EXTENSION\f[R] is the name of the extension.
59265840Thus, for example, \f[C]markdown+hard_line_breaks\f[R] is Markdown with
59275841hard line breaks.
5928−.SS Extension: \f[C]rebase_relative_paths\f[R]
5929−.PP
5930−Rewrite relative paths for Markdown links and images, depending on the
5931−path of the file containing the link or image link.
5932−For each link or image, pandoc will compute the directory of the
5933−containing file, relative to the working directory, and prepend the
5934−resulting path to the link or image path.
5935−.PP
5936−The use of this extension is best understood by example.
5937−Suppose you have a a subdirectory for each chapter of a book,
5938−\f[C]chap1\f[R], \f[C]chap2\f[R], \f[C]chap3\f[R].
5939−Each contains a file \f[C]text.md\f[R] and a number of images used in
5940−the chapter.
5941−You would like to have \f[C]![image](spider.jpg)\f[R] in
5942−\f[C]chap1/text.md\f[R] refer to \f[C]chap1/spider.jpg\f[R] and
5943−\f[C]![image](spider.jpg)\f[R] in \f[C]chap2/text.md\f[R] refer to
5944−\f[C]chap2/spider.jpg\f[R].
5945−To do this, use
5946−.IP
5947−.nf
5948−\f[C]
5949−pandoc chap*/*.md -f markdown+rebase_relative_paths
5950−\f[R]
5951−.fi
5952−.PP
5953−Without this extension, you would have to use
5954−\f[C]![image](chap1/spider.jpg)\f[R] in \f[C]chap1/text.md\f[R] and
5955−\f[C]![image](chap2/spider.jpg)\f[R] in \f[C]chap2/text.md\f[R].
5956−Links with relative paths will be rewritten in the same way as images.
5957−.PP
5958−Absolute paths and URLs are not changed.
5959−Neither are empty paths or paths consisting entirely of a fragment,
5960−e.g., \f[C]#foo\f[R].
5961−.PP
5962−Note that relative paths in reference links and images will be rewritten
5963−relative to the file containing the link reference definition, not the
5964−file containing the reference link or image itself, if these differ.
59655842.SS Extension: \f[C]attributes\f[R]
59665843.PP
59675844Allows attributes to be attached to any inline or block-level element.
@@ -6591,29 +6468,9 @@ entries (for author-date and numerical styles only).
65916468.TP
65926469\f[B]\f[CB]lang\f[B]\f[R]
65936470The \f[C]lang\f[R] field will affect how the style is localized, for
6594−example in the translation of labels, the use of quotation marks, and
6595−the way items are sorted.
6471+example in the translation of labels and the use of quotation marks.
65966472(For backwards compatibility, \f[C]locale\f[R] may be used instead of
65976473\f[C]lang\f[R], but this use is deprecated.)
6598−.RS
6599−.PP
6600−A BCP 47 language tag is expected: for example, \f[C]en\f[R],
6601−\f[C]de\f[R], \f[C]en-US\f[R], \f[C]fr-CA\f[R], \f[C]ug-Cyrl\f[R].
6602−The unicode extension syntax (after \f[C]-u-\f[R]) may be used to
6603−specify options for collation (sorting) more precisely.
6604−Here are some examples:
6605−.IP \[bu] 2
6606−\f[C]zh-u-co-pinyin\f[R] \[en] Chinese with the Pinyin collation.
6607−.IP \[bu] 2
6608−\f[C]es-u-co-trad\f[R] \[en] Spanish with the traditional collation
6609−(with \f[C]Ch\f[R] sorting after \f[C]C\f[R]).
6610−.IP \[bu] 2
6611−\f[C]fr-u-kb\f[R] \[en] French with \[lq]backwards\[rq] accent sorting
6612−(with \f[C]cot\['e]\f[R] sorting after \f[C]c\[^o]te\f[R]).
6613−.IP \[bu] 2
6614−\f[C]en-US-u-kf-upper\f[R] \[en] English with uppercase letters sorting
6615−before lower (default is lower before upper).
6616−.RE
66176474.TP
66186475\f[B]\f[CB]notes-after-punctuation\f[B]\f[R]
66196476If true (the default), pandoc will put footnote citations after
@@ -6734,11 +6591,6 @@ A heading at the slide level always starts a new slide.
67346591.IP \[bu] 2
67356592Headings \f[I]below\f[R] the slide level in the hierarchy create
67366593headings \f[I]within\f[R] a slide.
6737−(In beamer, a \[lq]block\[rq] will be created.
6738−If the heading has the class \f[C]example\f[R], an
6739−\f[C]exampleblock\f[R] environment will be used; if it has the class
6740−\f[C]alert\f[R], an \f[C]alertblock\f[R] will be used; otherwise a
6741−regular \f[C]block\f[R] will be used.)
67426594.IP \[bu] 2
67436595Headings \f[I]above\f[R] the slide level in the hierarchy create
67446596\[lq]title slides,\[rq] which just contain the section title and help to
@@ -7708,7 +7560,7 @@ The HTML generated by pandoc is not guaranteed to be safe.
77087560If \f[C]raw_html\f[R] is enabled for the Markdown input, users can
77097561inject arbitrary HTML.
77107562Even if \f[C]raw_html\f[R] is disabled, users can include dangerous
7711−content in URLs and attributes.
7563+content in attributes for headings, spans, and code blocks.
77127564To be safe, you should run all the generated HTML through an HTML
77137565sanitizer.
77147566.SH AUTHORS
pandoc.cabal+19−28
@@ -1,6 +1,6 @@
11cabal-version: 2.2
22name: pandoc
3−version: 2.14.0.3
3+version: 2.12.1
44build-type: Simple
55license: GPL-2.0-or-later
66license-file: COPYING.md
@@ -12,7 +12,7 @@ stability: alpha
1212homepage: https://pandoc.org
1313category: Text
1414tested-with: GHC == 8.2.2, GHC == 8.4.4, GHC == 8.6.5,
15− GHC == 8.8.4, GHC == 8.10.2, GHC == 9.0.1
15+ GHC == 8.8.4, GHC == 8.10.2
1616synopsis: Conversion between markup formats
1717description: Pandoc is a Haskell library for converting from one markup
1818 format to another, and a command-line tool that uses
@@ -208,16 +208,12 @@ extra-source-files:
208208 test/command/*.md
209209 test/command/*.csl
210210 test/command/biblio.bib
211− test/command/averroes.bib
211+ test/command/biblatex-examples.bib
212212 test/command/A.txt
213213 test/command/B.txt
214214 test/command/C.txt
215215 test/command/D.txt
216216 test/command/01.csv
217− test/command/chap1/spider.png
218− test/command/chap2/spider.png
219− test/command/chap1/text.md
220− test/command/chap2/text.md
221217 test/command/defaults1.yaml
222218 test/command/defaults2.yaml
223219 test/command/defaults3.yaml
@@ -442,18 +438,17 @@ library
442438 SHA >= 1.6 && < 1.7,
443439 aeson >= 0.7 && < 1.6,
444440 aeson-pretty >= 0.8.5 && < 0.9,
445− array >= 0.5 && < 0.6,
446− attoparsec >= 0.12 && < 0.15,
441+ attoparsec >= 0.12 && < 0.14,
447442 base64-bytestring >= 0.1 && < 1.3,
448443 binary >= 0.7 && < 0.11,
449444 blaze-html >= 0.9 && < 0.10,
450445 blaze-markup >= 0.8 && < 0.9,
451446 bytestring >= 0.9 && < 0.12,
452447 case-insensitive >= 1.2 && < 1.3,
453− citeproc >= 0.4.0.1 && < 0.4.1,
454− commonmark >= 0.2.1 && < 0.3,
455− commonmark-extensions >= 0.2.1.2 && < 0.3,
456− commonmark-pandoc >= 0.2.1.1 && < 0.3,
448+ citeproc >= 0.3.0.9 && < 0.3.1,
449+ commonmark >= 0.1.1.3 && < 0.2,
450+ commonmark-extensions >= 0.2.0.4 && < 0.3,
451+ commonmark-pandoc >= 0.2 && < 0.3,
457452 connection >= 0.3.1,
458453 containers >= 0.4.2.1 && < 0.7,
459454 data-default >= 0.4 && < 0.8,
@@ -465,7 +460,7 @@ library
465460 exceptions >= 0.8 && < 0.11,
466461 file-embed >= 0.0 && < 0.1,
467462 filepath >= 1.1 && < 1.5,
468− haddock-library >= 1.10 && < 1.11,
463+ haddock-library >= 1.8 && < 1.10,
469464 hslua >= 1.1 && < 1.4,
470465 hslua-module-path >= 0.1.0 && < 0.2.0,
471466 hslua-module-system >= 0.2 && < 0.3,
@@ -474,31 +469,30 @@ library
474469 http-client-tls >= 0.2.4 && < 0.4,
475470 http-types >= 0.8 && < 0.13,
476471 ipynb >= 0.1 && < 0.2,
477− jira-wiki-markup >= 1.4 && < 1.5,
472+ jira-wiki-markup >= 1.3.4 && < 1.4,
478473 mtl >= 2.2 && < 2.3,
479474 network >= 2.6,
480− network-uri >= 2.6 && < 2.8,
475+ network-uri >= 2.6 && < 2.7,
481476 pandoc-types >= 1.22 && < 1.23,
482477 parsec >= 3.1 && < 3.2,
483478 process >= 1.2.3 && < 1.7,
484479 random >= 1 && < 1.3,
485480 safe >= 0.3.18 && < 0.4,
486481 scientific >= 0.3 && < 0.4,
487− skylighting >= 0.10.5.2 && < 0.10.6,
488− skylighting-core >= 0.10.5.2 && < 0.10.6,
482+ skylighting >= 0.10.5 && < 0.10.6,
483+ skylighting-core >= 0.10.5 && < 0.10.6,
489484 split >= 0.2 && < 0.3,
490485 syb >= 0.1 && < 0.8,
491486 tagsoup >= 0.14.6 && < 0.15,
492487 temporary >= 1.1 && < 1.4,
493− texmath >= 0.12.3 && < 0.12.4,
488+ texmath >= 0.12.2 && < 0.12.3,
494489 text >= 1.1.1.0 && < 1.3,
495490 text-conversions >= 0.3 && < 0.4,
496− time >= 1.5 && < 1.12,
491+ time >= 1.5 && < 1.10,
497492 unicode-transforms >= 0.3 && < 0.4,
498493 unordered-containers >= 0.2 && < 0.3,
499494 xml >= 1.3.12 && < 1.4,
500− xml-conduit >= 1.9.1.1 && < 1.10,
501− unicode-collation >= 0.1.1 && < 0.2,
495+ xml-conduit >= 1.7 && < 1.10,
502496 zip-archive >= 0.2.3.4 && < 0.5,
503497 zlib >= 0.5 && < 0.7
504498 if os(windows) && arch(i386)
@@ -517,7 +511,6 @@ library
517511 Text.Pandoc.Options,
518512 Text.Pandoc.Extensions,
519513 Text.Pandoc.Shared,
520− Text.Pandoc.Sources,
521514 Text.Pandoc.MediaBag,
522515 Text.Pandoc.Error,
523516 Text.Pandoc.Filter,
@@ -607,6 +600,7 @@ library
607600 Text.Pandoc.Asciify,
608601 Text.Pandoc.Emoji,
609602 Text.Pandoc.ImageSize,
603+ Text.Pandoc.BCP47,
610604 Text.Pandoc.Class,
611605 Text.Pandoc.Citeproc
612606 other-modules: Text.Pandoc.App.CommandLineOptions,
@@ -663,9 +657,6 @@ library
663657 Text.Pandoc.Readers.Metadata,
664658 Text.Pandoc.Readers.Roff,
665659 Text.Pandoc.Writers.Docx.StyleMap,
666− Text.Pandoc.Writers.Docx.Table,
667− Text.Pandoc.Writers.Docx.Types,
668− Text.Pandoc.Writers.GridTable
669660 Text.Pandoc.Writers.JATS.References,
670661 Text.Pandoc.Writers.JATS.Table,
671662 Text.Pandoc.Writers.JATS.Types,
@@ -738,7 +729,7 @@ executable trypandoc
738729 main-is: trypandoc.hs
739730 hs-source-dirs: trypandoc
740731 if flag(trypandoc)
741− build-depends: aeson, http-types, text, wai >= 0.3, wai-extra >= 3.0.24
732+ build-depends: aeson, http-types, wai >= 0.3, wai-extra >= 3.0.24
742733 buildable: True
743734 else
744735 buildable: False
@@ -768,7 +759,7 @@ test-suite test-pandoc
768759 tasty-lua >= 0.2 && < 0.3,
769760 tasty-quickcheck >= 0.8 && < 0.11,
770761 text >= 1.1.1.0 && < 1.3,
771− time >= 1.5 && < 1.12,
762+ time >= 1.5 && < 1.10,
772763 xml >= 1.3.12 && < 1.4,
773764 zip-archive >= 0.2.3.4 && < 0.5
774765 other-modules: Tests.Old
src/Text/Pandoc/App.hs+13−19
@@ -55,7 +55,7 @@ import Text.Pandoc.App.Opt (Opt (..), LineEnding (..), defaultOpts,
5555import Text.Pandoc.App.CommandLineOptions (parseOptions, parseOptionsFromArgs,
5656 options)
5757import Text.Pandoc.App.OutputSettings (OutputSettings (..), optToOutputSettings)
58−import Text.Collate.Lang (Lang (..), parseLang)
58+import Text.Pandoc.BCP47 (Lang (..), parseBCP47)
5959import Text.Pandoc.Filter (Filter (JSONFilter, LuaFilter), applyFilters)
6060import Text.Pandoc.PDF (makePDF)
6161import Text.Pandoc.SelfContained (makeSelfContained)
@@ -160,11 +160,9 @@ convertWithOpts opts = do
160160 else optTabStop opts)
161161
162162
163− let readSources :: [FilePath] -> PandocIO [(FilePath, Text)]
164− readSources srcs =
165− mapM (\fp -> do
166− t <- readSource fp
167− return (if fp == "-" then "" else fp, convertTabs t)) srcs
163+ let readSources :: [FilePath] -> PandocIO Text
164+ readSources srcs = convertTabs . T.intercalate (T.pack "\n") <$>
165+ mapM readSource srcs
168166
169167
170168 outputSettings <- optToOutputSettings opts
@@ -202,8 +200,8 @@ convertWithOpts opts = do
202200 Just f -> readFileStrict f
203201
204202 case lookupMetaString "lang" (optMetadata opts) of
205− "" -> setTranslations $ Lang "en" Nothing (Just "US") [] [] []
206− l -> case parseLang l of
203+ "" -> setTranslations $ Lang "en" "" "US" []
204+ l -> case parseBCP47 l of
207205 Left _ -> report $ InvalidLang l
208206 Right l' -> setTranslations l'
209207
@@ -257,17 +255,13 @@ convertWithOpts opts = do
257255 let sourceToDoc :: [FilePath] -> PandocIO Pandoc
258256 sourceToDoc sources' =
259257 case reader of
260− TextReader r
261− | readerNameBase == "json" ->
262− mconcat <$> mapM (readSource >=> r readerOpts) sources'
263− | optFileScope opts ->
264− -- Read source and convert tabs (see #6709)
265− let readSource' = fmap convertTabs . readSource
266− in mconcat <$> mapM (readSource' >=> r readerOpts) sources'
267− | otherwise ->
268− readSources sources' >>= r readerOpts
269− ByteStringReader r ->
270− mconcat <$> mapM (readFile' >=> r readerOpts) sources'
258+ TextReader r
259+ | optFileScope opts || readerNameBase == "json" ->
260+ mconcat <$> mapM (readSource >=> r readerOpts) sources'
261+ | otherwise ->
262+ readSources sources' >>= r readerOpts
263+ ByteStringReader r ->
264+ mconcat <$> mapM (readFile' >=> r readerOpts) sources'
271265
272266
273267 when (readerNameBase == "markdown_github" ||
src/Text/Pandoc/App/Opt.hs+1−2
@@ -686,8 +686,7 @@ yamlToMeta (Mapping _ _ m) =
686686 either (fail . show) return $ runEverything (yamlMap pMetaString m)
687687 where
688688 pMetaString = pure . MetaString <$> P.manyChar P.anyChar
689− runEverything p =
690− runPure (P.readWithM p (def :: P.ParserState) ("" :: Text))
689+ runEverything p = runPure (P.readWithM p def "")
691690 >>= fmap (Meta . flip P.runF def)
692691yamlToMeta _ = return mempty
693692
src/Text/Pandoc/Asciify.hs+390−13
@@ -10,19 +10,396 @@
1010Function to convert accented latin letters to their unaccented
1111ascii equivalents (used in constructing HTML identifiers).
1212-}
13−module Text.Pandoc.Asciify (toAsciiChar, toAsciiText)
13+module Text.Pandoc.Asciify (toAsciiChar)
1414where
15−import Data.Char (isAscii, isMark)
16−import qualified Data.Text.Normalize as TN
17−import Data.Text (Text)
18−import qualified Data.Text as T
19−
20−toAsciiText :: Text -> Text
21−toAsciiText = T.filter isAscii . TN.normalize (TN.NFD)
15+import Data.Char (isAscii)
16+import qualified Data.Map as M
2217
2318toAsciiChar :: Char -> Maybe Char
24−toAsciiChar c = case T.unpack (TN.normalize TN.NFD (T.singleton c)) of
25− (x:xs) | isAscii x
26− , all isMark xs
27− -> Just x
28− _ -> Nothing
19+toAsciiChar c | isAscii c = Just c
20+ | otherwise = M.lookup c asciiMap
21+
22+asciiMap :: M.Map Char Char
23+asciiMap = M.fromList
24+ [('\192','A')
25+ ,('\193','A')
26+ ,('\194','A')
27+ ,('\195','A')
28+ ,('\196','A')
29+ ,('\197','A')
30+ ,('\199','C')
31+ ,('\200','E')
32+ ,('\201','E')
33+ ,('\202','E')
34+ ,('\203','E')
35+ ,('\204','I')
36+ ,('\205','I')
37+ ,('\206','I')
38+ ,('\207','I')
39+ ,('\209','N')
40+ ,('\210','O')
41+ ,('\211','O')
42+ ,('\212','O')
43+ ,('\213','O')
44+ ,('\214','O')
45+ ,('\217','U')
46+ ,('\218','U')
47+ ,('\219','U')
48+ ,('\220','U')
49+ ,('\221','Y')
50+ ,('\224','a')
51+ ,('\225','a')
52+ ,('\226','a')
53+ ,('\227','a')
54+ ,('\228','a')
55+ ,('\229','a')
56+ ,('\231','c')
57+ ,('\232','e')
58+ ,('\233','e')
59+ ,('\234','e')
60+ ,('\235','e')
61+ ,('\236','i')
62+ ,('\237','i')
63+ ,('\238','i')
64+ ,('\239','i')
65+ ,('\241','n')
66+ ,('\242','o')
67+ ,('\243','o')
68+ ,('\244','o')
69+ ,('\245','o')
70+ ,('\246','o')
71+ ,('\249','u')
72+ ,('\250','u')
73+ ,('\251','u')
74+ ,('\252','u')
75+ ,('\253','y')
76+ ,('\255','y')
77+ ,('\256','A')
78+ ,('\257','a')
79+ ,('\258','A')
80+ ,('\259','a')
81+ ,('\260','A')
82+ ,('\261','a')
83+ ,('\262','C')
84+ ,('\263','c')
85+ ,('\264','C')
86+ ,('\265','c')
87+ ,('\266','C')
88+ ,('\267','c')
89+ ,('\268','C')
90+ ,('\269','c')
91+ ,('\270','D')
92+ ,('\271','d')
93+ ,('\274','E')
94+ ,('\275','e')
95+ ,('\276','E')
96+ ,('\277','e')
97+ ,('\278','E')
98+ ,('\279','e')
99+ ,('\280','E')
100+ ,('\281','e')
101+ ,('\282','E')
102+ ,('\283','e')
103+ ,('\284','G')
104+ ,('\285','g')
105+ ,('\286','G')
106+ ,('\287','g')
107+ ,('\288','G')
108+ ,('\289','g')
109+ ,('\290','G')
110+ ,('\291','g')
111+ ,('\292','H')
112+ ,('\293','h')
113+ ,('\296','I')
114+ ,('\297','i')
115+ ,('\298','I')
116+ ,('\299','i')
117+ ,('\300','I')
118+ ,('\301','i')
119+ ,('\302','I')
120+ ,('\303','i')
121+ ,('\304','I')
122+ ,('\305','i')
123+ ,('\308','J')
124+ ,('\309','j')
125+ ,('\310','K')
126+ ,('\311','k')
127+ ,('\313','L')
128+ ,('\314','l')
129+ ,('\315','L')
130+ ,('\316','l')
131+ ,('\317','L')
132+ ,('\318','l')
133+ ,('\323','N')
134+ ,('\324','n')
135+ ,('\325','N')
136+ ,('\326','n')
137+ ,('\327','N')
138+ ,('\328','n')
139+ ,('\332','O')
140+ ,('\333','o')
141+ ,('\334','O')
142+ ,('\335','o')
143+ ,('\336','O')
144+ ,('\337','o')
145+ ,('\340','R')
146+ ,('\341','r')
147+ ,('\342','R')
148+ ,('\343','r')
149+ ,('\344','R')
150+ ,('\345','r')
151+ ,('\346','S')
152+ ,('\347','s')
153+ ,('\348','S')
154+ ,('\349','s')
155+ ,('\350','S')
156+ ,('\351','s')
157+ ,('\352','S')
158+ ,('\353','s')
159+ ,('\354','T')
160+ ,('\355','t')
161+ ,('\356','T')
162+ ,('\357','t')
163+ ,('\360','U')
164+ ,('\361','u')
165+ ,('\362','U')
166+ ,('\363','u')
167+ ,('\364','U')
168+ ,('\365','u')
169+ ,('\366','U')
170+ ,('\367','u')
171+ ,('\368','U')
172+ ,('\369','u')
173+ ,('\370','U')
174+ ,('\371','u')
175+ ,('\372','W')
176+ ,('\373','w')
177+ ,('\374','Y')
178+ ,('\375','y')
179+ ,('\376','Y')
180+ ,('\377','Z')
181+ ,('\378','z')
182+ ,('\379','Z')
183+ ,('\380','z')
184+ ,('\381','Z')
185+ ,('\382','z')
186+ ,('\416','O')
187+ ,('\417','o')
188+ ,('\431','U')
189+ ,('\432','u')
190+ ,('\461','A')
191+ ,('\462','a')
192+ ,('\463','I')
193+ ,('\464','i')
194+ ,('\465','O')
195+ ,('\466','o')
196+ ,('\467','U')
197+ ,('\468','u')
198+ ,('\486','G')
199+ ,('\487','g')
200+ ,('\488','K')
201+ ,('\489','k')
202+ ,('\490','O')
203+ ,('\491','o')
204+ ,('\496','j')
205+ ,('\500','G')
206+ ,('\501','g')
207+ ,('\504','N')
208+ ,('\505','n')
209+ ,('\512','A')
210+ ,('\513','a')
211+ ,('\514','A')
212+ ,('\515','a')
213+ ,('\516','E')
214+ ,('\517','e')
215+ ,('\518','E')
216+ ,('\519','e')
217+ ,('\520','I')
218+ ,('\521','i')
219+ ,('\522','I')
220+ ,('\523','i')
221+ ,('\524','O')
222+ ,('\525','o')
223+ ,('\526','O')
224+ ,('\527','o')
225+ ,('\528','R')
226+ ,('\529','r')
227+ ,('\530','R')
228+ ,('\531','r')
229+ ,('\532','U')
230+ ,('\533','u')
231+ ,('\534','U')
232+ ,('\535','u')
233+ ,('\536','S')
234+ ,('\537','s')
235+ ,('\538','T')
236+ ,('\539','t')
237+ ,('\542','H')
238+ ,('\543','h')
239+ ,('\550','A')
240+ ,('\551','a')
241+ ,('\552','E')
242+ ,('\553','e')
243+ ,('\558','O')
244+ ,('\559','o')
245+ ,('\562','Y')
246+ ,('\563','y')
247+ ,('\894',';')
248+ ,('\7680','A')
249+ ,('\7681','a')
250+ ,('\7682','B')
251+ ,('\7683','b')
252+ ,('\7684','B')
253+ ,('\7685','b')
254+ ,('\7686','B')
255+ ,('\7687','b')
256+ ,('\7690','D')
257+ ,('\7691','d')
258+ ,('\7692','D')
259+ ,('\7693','d')
260+ ,('\7694','D')
261+ ,('\7695','d')
262+ ,('\7696','D')
263+ ,('\7697','d')
264+ ,('\7698','D')
265+ ,('\7699','d')
266+ ,('\7704','E')
267+ ,('\7705','e')
268+ ,('\7706','E')
269+ ,('\7707','e')
270+ ,('\7710','F')
271+ ,('\7711','f')
272+ ,('\7712','G')
273+ ,('\7713','g')
274+ ,('\7714','H')
275+ ,('\7715','h')
276+ ,('\7716','H')
277+ ,('\7717','h')
278+ ,('\7718','H')
279+ ,('\7719','h')
280+ ,('\7720','H')
281+ ,('\7721','h')
282+ ,('\7722','H')
283+ ,('\7723','h')
284+ ,('\7724','I')
285+ ,('\7725','i')
286+ ,('\7728','K')
287+ ,('\7729','k')
288+ ,('\7730','K')
289+ ,('\7731','k')
290+ ,('\7732','K')
291+ ,('\7733','k')
292+ ,('\7734','L')
293+ ,('\7735','l')
294+ ,('\7738','L')
295+ ,('\7739','l')
296+ ,('\7740','L')
297+ ,('\7741','l')
298+ ,('\7742','M')
299+ ,('\7743','m')
300+ ,('\7744','M')
301+ ,('\7745','m')
302+ ,('\7746','M')
303+ ,('\7747','m')
304+ ,('\7748','N')
305+ ,('\7749','n')
306+ ,('\7750','N')
307+ ,('\7751','n')
308+ ,('\7752','N')
309+ ,('\7753','n')
310+ ,('\7754','N')
311+ ,('\7755','n')
312+ ,('\7764','P')
313+ ,('\7765','p')
314+ ,('\7766','P')
315+ ,('\7767','p')
316+ ,('\7768','R')
317+ ,('\7769','r')
318+ ,('\7770','R')
319+ ,('\7771','r')
320+ ,('\7774','R')
321+ ,('\7775','r')
322+ ,('\7776','S')
323+ ,('\7777','s')
324+ ,('\7778','S')
325+ ,('\7779','s')
326+ ,('\7786','T')
327+ ,('\7787','t')
328+ ,('\7788','T')
329+ ,('\7789','t')
330+ ,('\7790','T')
331+ ,('\7791','t')
332+ ,('\7792','T')
333+ ,('\7793','t')
334+ ,('\7794','U')
335+ ,('\7795','u')
336+ ,('\7796','U')
337+ ,('\7797','u')
338+ ,('\7798','U')
339+ ,('\7799','u')
340+ ,('\7804','V')
341+ ,('\7805','v')
342+ ,('\7806','V')
343+ ,('\7807','v')
344+ ,('\7808','W')
345+ ,('\7809','w')
346+ ,('\7810','W')
347+ ,('\7811','w')
348+ ,('\7812','W')
349+ ,('\7813','w')
350+ ,('\7814','W')
351+ ,('\7815','w')
352+ ,('\7816','W')
353+ ,('\7817','w')
354+ ,('\7818','X')
355+ ,('\7819','x')
356+ ,('\7820','X')
357+ ,('\7821','x')
358+ ,('\7822','Y')
359+ ,('\7823','y')
360+ ,('\7824','Z')
361+ ,('\7825','z')
362+ ,('\7826','Z')
363+ ,('\7827','z')
364+ ,('\7828','Z')
365+ ,('\7829','z')
366+ ,('\7830','h')
367+ ,('\7831','t')
368+ ,('\7832','w')
369+ ,('\7833','y')
370+ ,('\7840','A')
371+ ,('\7841','a')
372+ ,('\7842','A')
373+ ,('\7843','a')
374+ ,('\7864','E')
375+ ,('\7865','e')
376+ ,('\7866','E')
377+ ,('\7867','e')
378+ ,('\7868','E')
379+ ,('\7869','e')
380+ ,('\7880','I')
381+ ,('\7881','i')
382+ ,('\7882','I')
383+ ,('\7883','i')
384+ ,('\7884','O')
385+ ,('\7885','o')
386+ ,('\7886','O')
387+ ,('\7887','o')
388+ ,('\7908','U')
389+ ,('\7909','u')
390+ ,('\7910','U')
391+ ,('\7911','u')
392+ ,('\7922','Y')
393+ ,('\7923','y')
394+ ,('\7924','Y')
395+ ,('\7925','y')
396+ ,('\7926','Y')
397+ ,('\7927','y')
398+ ,('\7928','Y')
399+ ,('\7929','y')
400+ ,('\8175','`')
401+ ,('\8490','K')
402+ ,('\8800','=')
403+ ,('\8814','<')
404+ ,('\8815','>')
405+ ]
src/Text/Pandoc/BCP47.hsnew file+112
@@ -0,0 +1,112 @@
1+{-# LANGUAGE OverloadedStrings #-}
2+{- |
3+ Module : Text.Pandoc.BCP47
4+ Copyright : Copyright (C) 2017-2021 John MacFarlane
5+ License : GNU GPL, version 2 or above
6+
7+ Maintainer : John MacFarlane <jgm@berkeley.edu>
8+ Stability : alpha
9+ Portability : portable
10+
11+Functions for parsing and rendering BCP47 language identifiers.
12+-}
13+module Text.Pandoc.BCP47 (
14+ getLang
15+ , parseBCP47
16+ , Lang(..)
17+ , renderLang
18+ )
19+where
20+import Control.Monad (guard)
21+import Data.Char (isAlphaNum, isAscii, isLetter, isLower, isUpper)
22+import Text.Pandoc.Definition
23+import Text.Pandoc.Options
24+import Text.DocTemplates (FromContext(..))
25+import qualified Data.Text as T
26+import qualified Text.Parsec as P
27+
28+-- | Represents BCP 47 language/country code.
29+data Lang = Lang{ langLanguage :: T.Text
30+ , langScript :: T.Text
31+ , langRegion :: T.Text
32+ , langVariants :: [T.Text] }
33+ deriving (Eq, Ord, Show)
34+
35+-- | Render a Lang as BCP 47.
36+renderLang :: Lang -> T.Text
37+renderLang lang = T.intercalate "-" (langLanguage lang : filter (not . T.null)
38+ ([langScript lang, langRegion lang] ++ langVariants lang))
39+
40+-- | Get the contents of the `lang` metadata field or variable.
41+getLang :: WriterOptions -> Meta -> Maybe T.Text
42+getLang opts meta =
43+ case lookupContext "lang" (writerVariables opts) of
44+ Just s -> Just s
45+ _ ->
46+ case lookupMeta "lang" meta of
47+ Just (MetaBlocks [Para [Str s]]) -> Just s
48+ Just (MetaBlocks [Plain [Str s]]) -> Just s
49+ Just (MetaInlines [Str s]) -> Just s
50+ Just (MetaString s) -> Just s
51+ _ -> Nothing
52+
53+-- | Parse a BCP 47 string as a Lang. Currently we parse
54+-- extensions and private-use fields as "variants," even
55+-- though officially they aren't.
56+parseBCP47 :: T.Text -> Either T.Text Lang
57+parseBCP47 lang =
58+ case P.parse bcp47 "lang" lang of
59+ Right r -> Right r
60+ Left e -> Left $ T.pack $ show e
61+ where bcp47 = do
62+ language <- pLanguage
63+ script <- P.option "" pScript
64+ region <- P.option "" pRegion
65+ variants <- P.many (pVariant P.<|> pExtension P.<|> pPrivateUse)
66+ P.eof
67+ return Lang{ langLanguage = language
68+ , langScript = script
69+ , langRegion = region
70+ , langVariants = variants }
71+ asciiLetter = P.satisfy (\c -> isAscii c && isLetter c)
72+ pLanguage = do
73+ cs <- P.many1 asciiLetter
74+ let lcs = length cs
75+ guard $ lcs == 2 || lcs == 3
76+ return $ T.toLower $ T.pack cs
77+ pScript = P.try $ do
78+ P.char '-'
79+ x <- P.satisfy (\c -> isAscii c && isLetter c && isUpper c)
80+ xs <- P.count 3
81+ (P.satisfy (\c -> isAscii c && isLetter c && isLower c))
82+ return $ T.toLower $ T.pack (x:xs)
83+ pRegion = P.try $ do
84+ P.char '-'
85+ cs <- P.many1 asciiLetter
86+ let lcs = length cs
87+ guard $ lcs == 2 || lcs == 3
88+ return $ T.toUpper $ T.pack cs
89+ pVariant = P.try $ do
90+ P.char '-'
91+ ds <- P.option "" (P.count 1 P.digit)
92+ cs <- P.many1 asciiLetter
93+ let var = ds ++ cs
94+ lv = length var
95+ guard $ if null ds
96+ then lv >= 5 && lv <= 8
97+ else lv == 4
98+ return $ T.toLower $ T.pack var
99+ pExtension = P.try $ do
100+ P.char '-'
101+ cs <- P.many1 $ P.satisfy (\c -> isAscii c && isAlphaNum c)
102+ let lcs = length cs
103+ guard $ lcs >= 2 && lcs <= 8
104+ return $ T.toLower $ T.pack cs
105+ pPrivateUse = P.try $ do
106+ P.char '-'
107+ P.char 'x'
108+ P.char '-'
109+ cs <- P.many1 $ P.satisfy (\c -> isAscii c && isAlphaNum c)
110+ guard $ not (null cs) && length cs <= 8
111+ let var = "x-" ++ cs
112+ return $ T.toLower $ T.pack var
src/Text/Pandoc/Citeproc.hs+51−70
@@ -18,6 +18,7 @@ import Text.Pandoc.Citeproc.CslJson (cslJsonToReferences)
1818import Text.Pandoc.Citeproc.BibTeX (readBibtexString, Variant(..))
1919import Text.Pandoc.Citeproc.MetaValue (metaValueToReference, metaValueToText)
2020import Text.Pandoc.Readers.Markdown (yamlToRefs)
21+import qualified Text.Pandoc.BCP47 as BCP47
2122import Text.Pandoc.Builder (Inlines, Many(..), deleteMeta, setMeta)
2223import qualified Text.Pandoc.Builder as B
2324import Text.Pandoc.Definition as Pandoc
@@ -27,7 +28,7 @@ import Text.Pandoc.Error (PandocError(..))
2728import Text.Pandoc.Extensions (pandocExtensions)
2829import Text.Pandoc.Logging (LogMessage(..))
2930import Text.Pandoc.Options (ReaderOptions(..))
30−import Text.Pandoc.Shared (stringify, ordNub, tshow)
31+import Text.Pandoc.Shared (stringify, ordNub, blocksToInlines, tshow)
3132import qualified Text.Pandoc.UTF8 as UTF8
3233import Text.Pandoc.Walk (query, walk, walkM)
3334import Control.Applicative ((<|>))
@@ -74,7 +75,8 @@ processCitations (Pandoc meta bs) = do
7475
7576 let linkCites = maybe False truish $ lookupMeta "link-citations" meta
7677 let opts = defaultCiteprocOptions{ linkCitations = linkCites }
77− let result = Citeproc.citeproc opts style mblang refs citations
78+ let result = Citeproc.citeproc opts style (localeLanguage locale)
79+ refs citations
7880 mapM_ (report . CiteprocWarning) (resultWarnings result)
7981 let sopts = styleOptions style
8082 let classes = "references" : -- TODO remove this or keep for compatibility?
@@ -91,18 +93,22 @@ processCitations (Pandoc meta bs) = do
9193 walk (convertQuotes locale) .
9294 insertSpace $ out)
9395 (resultBibliography result)
94− let moveNotes = styleIsNoteStyle sopts &&
95− maybe True truish (lookupMeta "notes-after-punctuation" meta)
96+ let moveNotes = maybe True truish $
97+ lookupMeta "notes-after-punctuation" meta
9698 let cits = map (walk (convertQuotes locale)) $
9799 resultCitations result
98100
101+ let fixQuotes = case localePunctuationInQuote locale of
102+ Just True ->
103+ B.toList . movePunctuationInsideQuotes . B.fromList
104+ _ -> id
105+
99106 let metanocites = lookupMeta "nocite" meta
100107 let Pandoc meta'' bs' =
101108 maybe id (setMeta "nocite") metanocites .
102− walk (mvPunct moveNotes locale) .
103− (if styleIsNoteStyle sopts
104− then walk addNote . walk deNote
105− else id) .
109+ walk (map capitalizeNoteCitation .
110+ fixQuotes . mvPunct moveNotes locale) .
111+ walk deNote .
106112 evalState (walkM insertResolvedCitations $ Pandoc meta' bs)
107113 $ cits
108114 return $ Pandoc meta''
@@ -191,9 +197,7 @@ getReferences mblocale (Pandoc meta bs) = do
191197 then const True
192198 else (`Set.member` citeIds)
193199 let inlineRefs = case lookupMeta "references" meta of
194− Just (MetaList rs) ->
195− filter (idpred . unItemId . referenceId)
196− $ mapMaybe metaValueToReference rs
200+ Just (MetaList rs) -> mapMaybe metaValueToReference rs
197201 _ -> []
198202 externalRefs <- case lookupMeta "bibliography" meta of
199203 Just (MetaList xs) ->
@@ -372,6 +376,7 @@ formatFromExtension fp = case dropWhile (== '.') $ takeExtension fp of
372376
373377
374378isNote :: Inline -> Bool
379+isNote (Note _) = True
375380isNote (Cite _ [Note _]) = True
376381 -- the following allows citation styles that are "in-text" but use superscript
377382 -- references to be treated as if they are "notes" for the purposes of moving
@@ -384,12 +389,6 @@ isSpacy Space = True
384389isSpacy SoftBreak = True
385390isSpacy _ = False
386391
387−movePunctInsideQuotes :: Locale -> [Inline] -> [Inline]
388−movePunctInsideQuotes locale
389− | localePunctuationInQuote locale == Just True
390− = B.toList . movePunctuationInsideQuotes . B.fromList
391− | otherwise
392− = id
393392
394393mvPunct :: Bool -> Locale -> [Inline] -> [Inline]
395394mvPunct moveNotes locale (x : xs)
@@ -402,8 +401,7 @@ mvPunct moveNotes locale (q : s : x : ys)
402401 in if moveNotes
403402 then if T.null spunct
404403 then q : x : mvPunct moveNotes locale ys
405− else movePunctInsideQuotes locale
406− [q , Str spunct , x] ++ mvPunct moveNotes locale
404+ else q : Str spunct : x : mvPunct moveNotes locale
407405 (B.toList
408406 (dropTextWhile isPunctuation (B.fromList ys)))
409407 else q : x : mvPunct moveNotes locale ys
@@ -415,10 +413,9 @@ mvPunct moveNotes locale (Cite cs ils : ys)
415413 , moveNotes
416414 = let s = stringify ys
417415 spunct = T.takeWhile isPunctuation s
418− in Cite cs (movePunctInsideQuotes locale $
419− init ils
420− ++ [Str spunct | not (endWithPunct False (init ils))]
421− ++ [last ils]) :
416+ in Cite cs (init ils
417+ ++ [Str spunct | not (endWithPunct False (init ils))]
418+ ++ [last ils]) :
422419 mvPunct moveNotes locale
423420 (B.toList (dropTextWhile isPunctuation (B.fromList ys)))
424421mvPunct moveNotes locale (s : x : ys) | isSpacy s, isNote x =
@@ -504,8 +501,7 @@ insertRefs refkvs refclasses meta refs bs =
504501 put True
505502 -- refHeader isn't used if you have an explicit references div
506503 let cs' = ordNub $ cs ++ refclasses
507− let kvs' = ordNub $ kvs ++ refkvs
508− return $ Div ("refs",cs',kvs') (xs ++ refs)
504+ return $ Div ("refs",cs',kvs) (xs ++ refs)
509505 go x = return x
510506
511507refTitle :: Meta -> Maybe [Inline]
@@ -564,62 +560,42 @@ extractText (FancyVal x) = toText x
564560extractText (NumVal n) = T.pack (show n)
565561extractText _ = mempty
566562
567−-- Here we take the Spans with class csl-note that are left
568−-- after deNote has removed nested ones, and convert them
569−-- into real notes.
570−addNote :: Inline -> Inline
571−addNote (Span ("",["csl-note"],[]) ils) =
572− Note [Para $
573− B.toList . addTextCase Nothing CapitalizeFirst . B.fromList $ ils]
574−addNote x = x
575−
576−-- Here we handle citation notes that occur inside footnotes
577−-- or other citation notes, in a note style. We don't want
578−-- notes inside notes, so we convert these to parenthesized
579−-- or comma-separated citations.
580−deNote :: Inline -> Inline
581−deNote (Note bs) =
582− case bs of
583− [Para (cit@(Cite (c:_) _) : ils)]
584− | citationMode c /= AuthorInText ->
585− -- if citation is first in note, no need to parenthesize.
586− Note [Para (walk removeNotes $ cit : walk addParens ils)]
587− _ -> Note (walk removeNotes . walk addParens $ bs)
588−
563+capitalizeNoteCitation :: Inline -> Inline
564+capitalizeNoteCitation (Cite cs [Note [Para ils]]) =
565+ Cite cs
566+ [Note [Para $ B.toList $ addTextCase Nothing CapitalizeFirst
567+ $ B.fromList ils]]
568+capitalizeNoteCitation x = x
569+
570+deNote :: [Inline] -> [Inline]
571+deNote [] = []
572+deNote (Note bs:rest) =
573+ Note (walk go bs) : deNote rest
589574 where
590− addParens [] = []
591− addParens (Cite (c:cs) ils : zs)
575+ go [] = []
576+ go (Cite (c:cs) ils : zs)
592577 | citationMode c == AuthorInText
593− = Cite (c:cs) (concatMap (noteAfterComma (needsPeriod zs)) ils) :
594− addParens zs
578+ = Cite (c:cs) (concatMap (noteAfterComma (needsPeriod zs)) ils) : go zs
595579 | otherwise
596− = Cite (c:cs) (concatMap noteInParens ils) : addParens zs
597− addParens (x:xs) = x : addParens xs
598−
599− removeNotes (Span ("",["csl-note"],[]) ils) = Span ("",[],[]) ils
600− removeNotes x = x
601−
580+ = Cite (c:cs) (concatMap noteInParens ils) : go zs
581+ go (x:xs) = x : go xs
602582 needsPeriod [] = True
603583 needsPeriod (Str t:_) = case T.uncons t of
604584 Nothing -> False
605585 Just (c,_) -> isUpper c
606586 needsPeriod (Space:zs) = needsPeriod zs
607587 needsPeriod _ = False
608−
609− noteInParens (Span ("",["csl-note"],[]) ils)
588+ noteInParens (Note bs')
610589 = Space : Str "(" :
611− removeFinalPeriod ils ++ [Str ")"]
590+ removeFinalPeriod (blocksToInlines bs') ++ [Str ")"]
612591 noteInParens x = [x]
613−
614− noteAfterComma needsPer (Span ("",["csl-note"],[]) ils)
615− | not (null ils)
592+ noteAfterComma needsPer (Note bs')
616593 = Str "," : Space :
617− if needsPer
618− then ils
619− else removeFinalPeriod ils
594+ (if needsPer
595+ then id
596+ else removeFinalPeriod) (blocksToInlines bs')
620597 noteAfterComma _ x = [x]
621−
622−deNote x = x
598+deNote (x:xs) = x : deNote xs
623599
624600-- Note: we can't use dropTextWhileEnd indiscriminately,
625601-- because this would remove the final period on abbreviations like Ibid.
@@ -654,8 +630,13 @@ removeFinalPeriod ils =
654630
655631bcp47LangToIETF :: PandocMonad m => Text -> m (Maybe Lang)
656632bcp47LangToIETF bcplang =
657− case parseLang bcplang of
633+ case BCP47.parseBCP47 bcplang of
658634 Left _ -> do
659635 report $ InvalidLang bcplang
660636 return Nothing
661− Right lang -> return $ Just lang
637+ Right lang ->
638+ return $ Just
639+ $ Lang (BCP47.langLanguage lang)
640+ (if T.null (BCP47.langRegion lang)
641+ then Nothing
642+ else Just (BCP47.langRegion lang))
src/Text/Pandoc/Citeproc/BibTeX.hs+15−25
@@ -59,11 +59,10 @@ data Variant = Bibtex | Biblatex
5959 deriving (Show, Eq, Ord)
6060
6161-- | Parse BibTeX or BibLaTeX into a list of 'Reference's.
62−readBibtexString :: ToSources a
63− => Variant -- ^ bibtex or biblatex
62+readBibtexString :: Variant -- ^ bibtex or biblatex
6463 -> Locale -- ^ Locale
6564 -> (Text -> Bool) -- ^ Filter on citation ids
66− -> a -- ^ bibtex/biblatex text
65+ -> Text -- ^ bibtex/biblatex text
6766 -> Either ParseError [Reference Inlines]
6867readBibtexString variant locale idpred contents = do
6968 case runParser (((resolveCrossRefs variant <$> bibEntries) <* eof) >>=
@@ -71,11 +70,9 @@ readBibtexString variant locale idpred contents = do
7170 filter (\item -> idpred (identifier item) &&
7271 entryType item /= "xdata"))
7372 (fromMaybe defaultLang $ localeLanguage locale, Map.empty)
74− (initialSourceName sources) sources of
73+ "" contents of
7574 Left err -> Left err
7675 Right xs -> return xs
77− where
78− sources = toSources contents
7976
8077-- | Write BibTeX or BibLaTeX given given a 'Reference'.
8178writeBibtexString :: WriterOptions -- ^ options (for writing LaTex)
@@ -158,7 +155,6 @@ writeBibtexString opts variant mblang ref =
158155 , "langid"
159156 , "abstract"
160157 , "keywords"
161− , "annote"
162158 ]
163159 Bibtex ->
164160 [ "author"
@@ -178,7 +174,6 @@ writeBibtexString opts variant mblang ref =
178174 , "address"
179175 , "type"
180176 , "note"
181− , "annote"
182177 ]
183178
184179 valToInlines (TextVal t) = B.text t
@@ -210,13 +205,10 @@ writeBibtexString opts variant mblang ref =
210205 [ (", " <>) <$> nameGiven name,
211206 nameDroppingParticle name ]
212207
213− mblang' = case getVariableAsText "language" of
214− Just l -> either (const Nothing) Just $ parseLang l
215− Nothing -> mblang
208+ mblang' = (parseLang <$> getVariableAsText "language") <|> mblang
216209
217210 titlecase = case mblang' of
218− Just lang | langLanguage lang == "en"
219− -> titlecase'
211+ Just (Lang "en" _) -> titlecase'
220212 Nothing -> titlecase'
221213 _ ->
222214 case variant of
@@ -339,12 +331,12 @@ writeBibtexString opts variant mblang ref =
339331 renderFields = mconcat . intersperse ("," <> cr) . mapMaybe renderField
340332
341333defaultLang :: Lang
342−defaultLang = Lang "en" Nothing (Just "US") [] [] []
334+defaultLang = Lang "en" (Just "US")
343335
344336-- a map of bibtex "string" macros
345337type StringMap = Map.Map Text Text
346338
347−type BibParser = Parser Sources (Lang, StringMap)
339+type BibParser = Parser Text (Lang, StringMap)
348340
349341data Item = Item{ identifier :: Text
350342 , sourcePos :: SourcePos
@@ -359,7 +351,9 @@ itemToReference locale variant item = do
359351 bib item $ do
360352 let lang = fromMaybe defaultLang $ localeLanguage locale
361353 modify $ \st -> st{ localeLang = lang,
362− untitlecase = langLanguage lang == "en" }
354+ untitlecase = case lang of
355+ (Lang "en" _) -> True
356+ _ -> False }
363357
364358 id' <- asks identifier
365359 otherIds <- (Just <$> getRawField "ids")
@@ -717,7 +711,7 @@ itemToReference locale variant item = do
717711
718712
719713bib :: Item -> Bib a -> BibParser a
720−bib entry m = fst <$> evalRWST m entry (BibState True defaultLang)
714+bib entry m = fst <$> evalRWST m entry (BibState True (Lang "en" (Just "US")))
721715
722716resolveCrossRefs :: Variant -> [Item] -> [Item]
723717resolveCrossRefs variant entries =
@@ -809,7 +803,7 @@ bibEntries = do
809803 (bibComment <|> bibPreamble <|> bibString))
810804
811805bibSkip :: BibParser ()
812−bibSkip = skipMany1 (satisfy (/='@'))
806+bibSkip = () <$ take1WhileP (/='@')
813807
814808bibComment :: BibParser ()
815809bibComment = do
@@ -834,9 +828,6 @@ bibString = do
834828 updateState (\(l,m) -> (l, Map.insert k v m))
835829 return ()
836830
837−take1WhileP :: Monad m => (Char -> Bool) -> ParserT Sources u m Text
838−take1WhileP f = T.pack <$> many1 (satisfy f)
839−
840831inBraces :: BibParser Text
841832inBraces = do
842833 char '{'
@@ -868,7 +859,7 @@ fieldName = resolveAlias . T.toLower
868859
869860isBibtexKeyChar :: Char -> Bool
870861isBibtexKeyChar c =
871− isAlphaNum c || c `elem` (".:;?!`'()$/*@_+=-[]*&" :: [Char])
862+ isAlphaNum c || c `elem` (".:;?!`'()/*@_+=-[]*&" :: [Char])
872863
873864bibItem :: BibParser Item
874865bibItem = do
@@ -1465,9 +1456,8 @@ resolveKey lang ils = Walk.walk go ils
14651456 go x = x
14661457
14671458resolveKey' :: Lang -> Text -> Text
1468−resolveKey' lang k =
1469− case Map.lookup (langLanguage lang) biblatexStringMap >>=
1470− Map.lookup (T.toLower k) of
1459+resolveKey' lang@(Lang l _) k =
1460+ case Map.lookup l biblatexStringMap >>= Map.lookup (T.toLower k) of
14711461 Nothing -> k
14721462 Just (x, _) -> either (const k) stringify $ parseLaTeX lang x
14731463
src/Text/Pandoc/Citeproc/Data.hs+6−7
@@ -10,7 +10,7 @@ import qualified Data.Text.Encoding as TE
1010import qualified Data.Text as T
1111import Data.Text (Text)
1212import Text.Pandoc.Citeproc.Util (toIETF)
13−import Text.Collate.Lang (Lang(..), parseLang)
13+import Citeproc (Lang(..), parseLang)
1414
1515biblatexLocalizations :: [(FilePath, ByteString)]
1616biblatexLocalizations = $(embedDir "citeproc/biblatex-localization")
@@ -21,12 +21,11 @@ biblatexStringMap :: M.Map Text (M.Map Text (Text, Text))
2121biblatexStringMap = foldr go mempty biblatexLocalizations
2222 where
2323 go (fp, bs) =
24− let ls = T.lines $ TE.decodeUtf8 bs
25− in case parseLang (toIETF $ T.takeWhile (/= '.') $ T.pack fp) of
26− Right lang | length ls > 4
27− -> M.insert (langLanguage lang)
28− (toStringMap $ map (T.splitOn "|") ls)
29− _ -> id
24+ let Lang lang _ = parseLang (toIETF $ T.takeWhile (/= '.') $ T.pack fp)
25+ ls = T.lines $ TE.decodeUtf8 bs
26+ in if length ls > 4
27+ then M.insert lang (toStringMap $ map (T.splitOn "|") ls)
28+ else id
3029 toStringMap = foldr go' mempty
3130 go' [term, x, y] = M.insert term (x, y)
3231 go' _ = id
src/Text/Pandoc/Citeproc/Locator.hs+3−18
@@ -20,7 +20,7 @@ parseLocator :: Locale -> [Inline] -> (Maybe (Text, Text), [Inline])
2020parseLocator locale inp =
2121 case parse (pLocatorWords (toLocatorMap locale)) "suffix" $ splitInp inp of
2222 Right r -> r
23− Left _ -> (Nothing, maybeAddComma inp)
23+ Left _ -> (Nothing, inp)
2424
2525splitInp :: [Inline] -> [Inline]
2626splitInp = splitStrWhen (\c -> isSpace c || (isPunctuation c && c /= ':'))
@@ -42,17 +42,9 @@ pLocatorWords locMap = do
4242 -- i.e. the first one will be " 9"
4343 return $
4444 if T.null la && T.null lo
45− then (Nothing, maybeAddComma s)
45+ then (Nothing, s)
4646 else (Just (la, T.strip lo), s)
4747
48−maybeAddComma :: [Inline] -> [Inline]
49−maybeAddComma [] = []
50−maybeAddComma ils@(Space : _) = ils
51−maybeAddComma ils@(Str t : _)
52− | Just (c, _) <- T.uncons t
53− , isPunctuation c = ils
54−maybeAddComma ils = Str "," : Space : ils
55−
5648pLocatorDelimited :: LocatorMap -> LocatorParser (Text, Text)
5749pLocatorDelimited locMap = try $ do
5850 _ <- pMatchChar "{" (== '{')
@@ -105,7 +97,7 @@ pLocatorLabel' locMap lim = go ""
10597 t <- anyToken
10698 ts <- manyTill anyToken (try $ lookAhead lim)
10799 let s = acc <> stringify (t:ts)
108− case M.lookup (T.toCaseFold $ T.strip s) locMap of
100+ case M.lookup (T.strip s) locMap of
109101 -- try to find a longer one, or return this one
110102 Just l -> go s <|> return (l, False)
111103 Nothing -> go s
@@ -189,7 +181,6 @@ pPageUnit = roman <|> plainUnit
189181 plainUnit = do
190182 ts <- many1 (notFollowedBy pSpace >>
191183 notFollowedBy pLocatorPunct >>
192− notFollowedBy pMath >>
193184 anyToken)
194185 let s = stringify ts
195186 -- otherwise look for actual digits or -s
@@ -220,12 +211,6 @@ pMatchChar msg f = satisfyTok f' <?> msg
220211pSpace :: LocatorParser Inline
221212pSpace = satisfyTok (\t -> isSpacey t || t == Str "\160") <?> "space"
222213
223−pMath :: LocatorParser Inline
224−pMath = satisfyTok isMath
225− where
226− isMath (Math{}) = True
227− isMath _ = False
228−
229214satisfyTok :: (Inline -> Bool) -> LocatorParser Inline
230215satisfyTok f = tokenPrim show (\sp _ _ -> sp) (\tok -> if f tok
231216 then Just tok
src/Text/Pandoc/Class/CommonState.hs+1−1
@@ -19,7 +19,7 @@ where
1919
2020import Data.Default (Default (def))
2121import Data.Text (Text)
22−import Text.Collate.Lang (Lang)
22+import Text.Pandoc.BCP47 (Lang)
2323import Text.Pandoc.MediaBag (MediaBag)
2424import Text.Pandoc.Logging (LogMessage, Verbosity (WARNING))
2525import Text.Pandoc.Translations (Translations)
src/Text/Pandoc/Class/IO.hs+22−21
@@ -62,7 +62,7 @@ import Text.Pandoc.Definition (Pandoc, Inline (Image))
6262import Text.Pandoc.Error (PandocError (..))
6363import Text.Pandoc.Logging (LogMessage (..), messageVerbosity, showLogMessage)
6464import Text.Pandoc.MIME (MimeType)
65−import Text.Pandoc.MediaBag (MediaBag, MediaItem(..), lookupMedia, mediaItems)
65+import Text.Pandoc.MediaBag (MediaBag, lookupMedia, mediaDirectory)
6666import Text.Pandoc.Walk (walk)
6767import qualified Control.Exception as E
6868import qualified Data.ByteString as B
@@ -200,32 +200,33 @@ alertIndent (l:ls) = do
200200extractMedia :: (PandocMonad m, MonadIO m) => FilePath -> Pandoc -> m Pandoc
201201extractMedia dir d = do
202202 media <- getMediaBag
203− let items = mediaItems media
204− if null items
205− then return d
206− else do
207− mapM_ (writeMedia dir) items
208− return $ walk (adjustImagePath dir media) d
203+ case [fp | (fp, _, _) <- mediaDirectory media] of
204+ [] -> return d
205+ fps -> do
206+ mapM_ (writeMedia dir media) fps
207+ return $ walk (adjustImagePath dir fps) d
209208
210209-- | Write the contents of a media bag to a path.
211210writeMedia :: (PandocMonad m, MonadIO m)
212− => FilePath
213− -> (FilePath, MimeType, BL.ByteString)
211+ => FilePath -> MediaBag -> FilePath
214212 -> m ()
215−writeMedia dir (fp, _mt, bs) = do
216− -- we normalize to get proper path separators for the platform
217− let fullpath = normalise $ dir </> fp
218− liftIOError (createDirectoryIfMissing True) (takeDirectory fullpath)
219− logIOError $ BL.writeFile fullpath bs
213+writeMedia dir mediabag subpath = do
214+ -- we join and split to convert a/b/c to a\b\c on Windows;
215+ -- in zip containers all paths use /
216+ let fullpath = dir </> unEscapeString (normalise subpath)
217+ let mbcontents = lookupMedia subpath mediabag
218+ case mbcontents of
219+ Nothing -> throwError $ PandocResourceNotFound $ pack subpath
220+ Just (_, bs) -> do
221+ report $ Extracting $ pack fullpath
222+ liftIOError (createDirectoryIfMissing True) (takeDirectory fullpath)
223+ logIOError $ BL.writeFile fullpath bs
220224
221225-- | If the given Inline element is an image with a @src@ path equal to
222226-- one in the list of @paths@, then prepends @dir@ to the image source;
223227-- returns the element unchanged otherwise.
224−adjustImagePath :: FilePath -> MediaBag -> Inline -> Inline
225−adjustImagePath dir mediabag (Image attr lab (src, tit)) =
226− case lookupMedia (T.unpack src) mediabag of
227− Nothing -> Image attr lab (src, tit)
228− Just item ->
229− let fullpath = dir </> mediaPath item
230− in Image attr lab (T.pack fullpath, tit)
228+adjustImagePath :: FilePath -> [FilePath] -> Inline -> Inline
229+adjustImagePath dir paths (Image attr lab (src, tit))
230+ | unpack src `elem` paths
231+ = Image attr lab (pack (normalise $ dir </> unpack src), tit)
231232adjustImagePath _ _ x = x
src/Text/Pandoc/Class/PandocMonad.hs+33−22
@@ -1,5 +1,4 @@
11{-# LANGUAGE CPP #-}
2−{-# LANGUAGE TupleSections #-}
32{-# LANGUAGE FlexibleContexts #-}
43{-# LANGUAGE FlexibleInstances #-}
54{-# LANGUAGE MultiParamTypeClasses #-}
@@ -38,6 +37,7 @@ module Text.Pandoc.Class.PandocMonad
3837 , setUserDataDir
3938 , getUserDataDir
4039 , fetchItem
40+ , fetchMediaResource
4141 , getInputFiles
4242 , setInputFiles
4343 , getOutputFile
@@ -57,6 +57,8 @@ module Text.Pandoc.Class.PandocMonad
5757import Codec.Archive.Zip
5858import Control.Monad.Except (MonadError (catchError, throwError),
5959 MonadTrans, lift, when)
60+import Data.Digest.Pure.SHA (sha1, showDigest)
61+import Data.Maybe (fromMaybe)
6062import Data.List (foldl')
6163import Data.Time (UTCTime)
6264import Data.Time.Clock.POSIX (POSIXTime, utcTimeToPOSIXSeconds,
@@ -65,16 +67,16 @@ import Data.Time.LocalTime (TimeZone, ZonedTime, utcToZonedTime)
6567import Network.URI ( escapeURIString, nonStrictRelativeTo,
6668 unEscapeString, parseURIReference, isAllowedInURI,
6769 parseURI, URI(..) )
68−import System.FilePath ((</>), takeExtension, dropExtension,
69− isRelative, splitDirectories, makeRelative)
70+import System.FilePath ((</>), (<.>), takeExtension, dropExtension,
71+ isRelative, splitDirectories)
7072import System.Random (StdGen)
71−import Text.Collate.Lang (Lang(..), parseLang, renderLang)
73+import Text.Pandoc.BCP47 (Lang(..), parseBCP47, renderLang)
7274import Text.Pandoc.Class.CommonState (CommonState (..))
7375import Text.Pandoc.Definition
7476import Text.Pandoc.Error
7577import Text.Pandoc.Logging
76−import Text.Pandoc.MIME (MimeType, getMimeType)
77−import Text.Pandoc.MediaBag (MediaBag, lookupMedia, MediaItem(..))
78+import Text.Pandoc.MIME (MimeType, getMimeType, extensionFromMimeType)
79+import Text.Pandoc.MediaBag (MediaBag, lookupMedia)
7880import Text.Pandoc.Shared (uriPathToPath, safeRead)
7981import Text.Pandoc.Translations (Term(..), Translations, lookupTerm,
8082 readTranslations)
@@ -283,7 +285,7 @@ readFileFromDirs (d:ds) f = catchError
283285toLang :: PandocMonad m => Maybe T.Text -> m (Maybe Lang)
284286toLang Nothing = return Nothing
285287toLang (Just s) =
286− case parseLang s of
288+ case parseBCP47 s of
287289 Left _ -> do
288290 report $ InvalidLang s
289291 return Nothing
@@ -374,8 +376,7 @@ fetchItem :: PandocMonad m
374376fetchItem s = do
375377 mediabag <- getMediaBag
376378 case lookupMedia (T.unpack s) mediabag of
377− Just item -> return (BL.toStrict (mediaContents item),
378− Just (mediaMimeType item))
379+ Just (mime, bs) -> return (BL.toStrict bs, Just mime)
379380 Nothing -> downloadOrRead s
380381
381382-- | Returns the content and, if available, the MIME type of a resource.
@@ -410,10 +411,9 @@ downloadOrRead s = do
410411 _ -> readLocalFile fp -- get from local file system
411412 where readLocalFile f = do
412413 resourcePath <- getResourcePath
413− (fp', cont) <- if isRelative f
414− then withPaths resourcePath readFileStrict f
415− else (f,) <$> readFileStrict f
416− report $ LoadedResource f (makeRelative "." fp')
414+ cont <- if isRelative f
415+ then withPaths resourcePath readFileStrict f
416+ else readFileStrict f
417417 return (cont, mime)
418418 httpcolon = URI{ uriScheme = "http:",
419419 uriAuthority = Nothing,
@@ -623,13 +623,25 @@ makeCanonical = Posix.joinPath . transformPathParts . splitDirectories
623623-- that filepath. Returns the result of the first successful execution
624624-- of the action, or throws a @PandocResourceNotFound@ exception if the
625625-- action errors for all filepaths.
626−withPaths :: PandocMonad m
627− => [FilePath] -> (FilePath -> m a) -> FilePath -> m (FilePath, a)
626+withPaths :: PandocMonad m => [FilePath] -> (FilePath -> m a) -> FilePath -> m a
628627withPaths [] _ fp = throwError $ PandocResourceNotFound $ T.pack fp
629628withPaths (p:ps) action fp =
630− catchError ((p </> fp,) <$> action (p </> fp))
629+ catchError (action (p </> fp))
631630 (\_ -> withPaths ps action fp)
632631
632+-- | Fetch local or remote resource (like an image) and provide data suitable
633+-- for adding it to the MediaBag.
634+fetchMediaResource :: PandocMonad m
635+ => T.Text -> m (FilePath, Maybe MimeType, BL.ByteString)
636+fetchMediaResource src = do
637+ (bs, mt) <- downloadOrRead src
638+ let ext = fromMaybe (T.pack $ takeExtension $ T.unpack src)
639+ (mt >>= extensionFromMimeType)
640+ let bs' = BL.fromChunks [bs]
641+ let basename = showDigest $ sha1 bs'
642+ let fname = basename <.> T.unpack ext
643+ return (fname, mt, bs')
644+
633645-- | Traverse tree, filling media bag for any images that
634646-- aren't already in the media bag.
635647fillMediaBag :: PandocMonad m => Pandoc -> m Pandoc
@@ -637,13 +649,12 @@ fillMediaBag d = walkM handleImage d
637649 where handleImage :: PandocMonad m => Inline -> m Inline
638650 handleImage (Image attr lab (src, tit)) = catchError
639651 (do mediabag <- getMediaBag
640− let fp = T.unpack src
641− case lookupMedia fp mediabag of
642− Just _ -> return ()
652+ case lookupMedia (T.unpack src) mediabag of
653+ Just (_, _) -> return $ Image attr lab (src, tit)
643654 Nothing -> do
644− (bs, mt) <- fetchItem src
645− insertMedia fp mt (BL.fromStrict bs)
646− return $ Image attr lab (src, tit))
655+ (fname, mt, bs) <- fetchMediaResource src
656+ insertMedia fname mt bs
657+ return $ Image attr lab (T.pack fname, tit))
647658 (\e ->
648659 case e of
649660 PandocResourceNotFound _ -> do
src/Text/Pandoc/Error.hs+16−23
@@ -23,27 +23,26 @@ import Control.Exception (Exception, displayException)
2323import Data.Typeable (Typeable)
2424import Data.Word (Word8)
2525import Data.Text (Text)
26−import Data.List (sortOn)
2726import qualified Data.Text as T
28−import Data.Ord (Down(..))
2927import GHC.Generics (Generic)
3028import Network.HTTP.Client (HttpException)
3129import System.Exit (ExitCode (..), exitWith)
3230import System.IO (stderr)
3331import qualified Text.Pandoc.UTF8 as UTF8
34−import Text.Pandoc.Sources (Sources(..))
3532import Text.Printf (printf)
3633import Text.Parsec.Error
3734import Text.Parsec.Pos hiding (Line)
3835import Text.Pandoc.Shared (tshow)
3936import Citeproc (CiteprocError, prettyCiteprocError)
4037
38+type Input = Text
39+
4140data PandocError = PandocIOError Text IOError
4241 | PandocHttpError Text HttpException
4342 | PandocShouldNeverHappenError Text
4443 | PandocSomeError Text
4544 | PandocParseError Text
46− | PandocParsecError Sources ParseError
45+ | PandocParsecError Input ParseError
4746 | PandocMakePDFError Text
4847 | PandocOptionError Text
4948 | PandocSyntaxMapError Text
@@ -82,28 +81,22 @@ renderError e =
8281 "Please report this to pandoc's developers: " <> s
8382 PandocSomeError s -> s
8483 PandocParseError s -> s
85− PandocParsecError (Sources inputs) err' ->
84+ PandocParsecError input err' ->
8685 let errPos = errorPos err'
8786 errLine = sourceLine errPos
8887 errColumn = sourceColumn errPos
89− errFile = sourceName errPos
90− errorInFile =
91− case sortOn (Down . sourceLine . fst)
92− [ (pos,t)
93− | (pos,t) <- inputs
94− , sourceName pos == errFile
95− , sourceLine pos <= errLine
96− ] of
97− [] -> ""
98− ((pos,txt):_) ->
99− let ls = T.lines txt <> [""]
100− ln = (errLine - sourceLine pos) + 1
101− in if length ls > ln && ln >= 1
102− then T.concat ["\n", ls !! (ln - 1)
103− ,"\n", T.replicate (errColumn - 1) " "
104− ,"^"]
105− else ""
106− in "Error at " <> tshow err' <> errorInFile
88+ ls = T.lines input <> [""]
89+ errorInFile = if length ls > errLine - 1
90+ then T.concat ["\n", ls !! (errLine - 1)
91+ ,"\n", T.replicate (errColumn - 1) " "
92+ ,"^"]
93+ else ""
94+ in "\nError at " <> tshow err' <>
95+ -- if error comes from a chunk or included file,
96+ -- then we won't get the right text this way:
97+ if sourceName errPos == "source"
98+ then errorInFile
99+ else ""
107100 PandocMakePDFError s -> s
108101 PandocOptionError s -> s
109102 PandocSyntaxMapError s -> s
src/Text/Pandoc/Extensions.hs−7
@@ -136,8 +136,6 @@ data Extension =
136136 | Ext_raw_html -- ^ Allow raw HTML
137137 | Ext_raw_tex -- ^ Allow raw TeX (other than math)
138138 | Ext_raw_markdown -- ^ Parse markdown in ipynb as raw markdown
139− | Ext_rebase_relative_paths -- ^ Rebase relative image and link paths,
140− -- relative to directory of containing file
141139 | Ext_shortcut_reference_links -- ^ Shortcut reference links
142140 | Ext_simple_tables -- ^ Pandoc-style simple tables
143141 | Ext_smart -- ^ "Smart" quotes, apostrophes, ellipses, dashes
@@ -356,7 +354,6 @@ getDefaultExtensions "gfm" = extensionsFromList
356354 , Ext_strikeout
357355 , Ext_task_lists
358356 , Ext_emoji
359− , Ext_yaml_metadata_block
360357 ]
361358getDefaultExtensions "commonmark" = extensionsFromList
362359 [Ext_raw_html]
@@ -382,7 +379,6 @@ getDefaultExtensions "commonmark_x" = extensionsFromList
382379 , Ext_raw_attribute
383380 , Ext_implicit_header_references
384381 , Ext_attributes
385− , Ext_yaml_metadata_block
386382 ]
387383getDefaultExtensions "org" = extensionsFromList
388384 [Ext_citations,
@@ -464,7 +460,6 @@ getAllExtensions f = universalExtensions <> getAll f
464460 , Ext_gutenberg
465461 , Ext_smart
466462 , Ext_literate_haskell
467− , Ext_rebase_relative_paths
468463 ]
469464 getAll "markdown_strict" = allMarkdownExtensions
470465 getAll "markdown_phpextra" = allMarkdownExtensions
@@ -516,8 +511,6 @@ getAllExtensions f = universalExtensions <> getAll f
516511 , Ext_implicit_header_references
517512 , Ext_attributes
518513 , Ext_sourcepos
519− , Ext_yaml_metadata_block
520− , Ext_rebase_relative_paths
521514 ]
522515 getAll "commonmark_x" = getAll "commonmark"
523516 getAll "org" = autoIdExtensions <>
src/Text/Pandoc/Highlighting.hs+5−5
@@ -52,12 +52,12 @@ highlightingStyles =
5252 ("breezedark", breezeDark),
5353 ("haddock", haddock)]
5454
55−languages :: SyntaxMap -> [T.Text]
56−languages syntaxmap = [T.toLower (sName s) | s <- M.elems syntaxmap]
55+languages :: [T.Text]
56+languages = [T.toLower (sName s) | s <- M.elems defaultSyntaxMap]
5757
58−languagesByExtension :: SyntaxMap -> T.Text -> [T.Text]
59−languagesByExtension syntaxmap ext =
60− [T.toLower (sName s) | s <- syntaxesByExtension syntaxmap (T.unpack ext)]
58+languagesByExtension :: T.Text -> [T.Text]
59+languagesByExtension ext =
60+ [T.toLower (sName s) | s <- syntaxesByExtension defaultSyntaxMap (T.unpack ext)]
6161
6262highlight :: SyntaxMap
6363 -> (FormatOptions -> [SourceLine] -> a) -- ^ Formatter
src/Text/Pandoc/ImageSize.hs+1−5
@@ -57,8 +57,7 @@ import Codec.Picture (decodeImageWithMetadata)
5757-- quick and dirty functions to get image sizes
5858-- algorithms borrowed from wwwis.pl
5959
60−data ImageType = Png | Gif | Jpeg | Svg | Pdf | Eps | Emf | Tiff
61− deriving Show
60+data ImageType = Png | Gif | Jpeg | Svg | Pdf | Eps | Emf deriving Show
6261data Direction = Width | Height
6362instance Show Direction where
6463 show Width = "width"
@@ -101,8 +100,6 @@ imageType :: ByteString -> Maybe ImageType
101100imageType img = case B.take 4 img of
102101 "\x89\x50\x4e\x47" -> return Png
103102 "\x47\x49\x46\x38" -> return Gif
104− "\x49\x49\x2a\x00" -> return Tiff
105− "\x4D\x4D\x00\x2a" -> return Tiff
106103 "\xff\xd8\xff\xe0" -> return Jpeg -- JFIF
107104 "\xff\xd8\xff\xe1" -> return Jpeg -- Exif
108105 "%PDF" -> return Pdf
@@ -127,7 +124,6 @@ imageSize opts img = checkDpi <$>
127124 Just Png -> getSize img
128125 Just Gif -> getSize img
129126 Just Jpeg -> getSize img
130− Just Tiff -> getSize img
131127 Just Svg -> mbToEither "could not determine SVG size" $ svgSize opts img
132128 Just Eps -> mbToEither "could not determine EPS size" $ epsSize img
133129 Just Pdf -> mbToEither "could not determine PDF size" $ pdfSize img
src/Text/Pandoc/Logging.hs+9−18
@@ -85,7 +85,6 @@ data LogMessage =
8585 | CouldNotParseCSS Text
8686 | Fetching Text
8787 | Extracting Text
88− | LoadedResource FilePath FilePath
8988 | NoTitleElement Text
9089 | NoLangSpecified
9190 | InvalidLang Text
@@ -196,9 +195,6 @@ instance ToJSON LogMessage where
196195 ["path" .= fp]
197196 Extracting fp ->
198197 ["path" .= fp]
199− LoadedResource orig found ->
200− ["for" .= orig
201− ,"from" .= found]
202198 NoTitleElement fallback ->
203199 ["fallback" .= fallback]
204200 NoLangSpecified -> []
@@ -245,11 +241,9 @@ instance ToJSON LogMessage where
245241showPos :: SourcePos -> Text
246242showPos pos = Text.pack $ sn ++ "line " ++
247243 show (sourceLine pos) ++ " column " ++ show (sourceColumn pos)
248− where
249− sn' = sourceName pos
250− sn = if sn' == "source" || sn' == "" || sn' == "-"
251− then ""
252− else sn' ++ " "
244+ where sn = if sourceName pos == "source" || sourceName pos == ""
245+ then ""
246+ else sourceName pos ++ " "
253247
254248encodeLogMessages :: [LogMessage] -> BL.ByteString
255249encodeLogMessages ms =
@@ -282,7 +276,7 @@ showLogMessage msg =
282276 ParsingUnescaped s pos ->
283277 "Parsing unescaped '" <> s <> "' at " <> showPos pos
284278 CouldNotLoadIncludeFile fp pos ->
285− "Could not load include file " <> fp <> " at " <> showPos pos
279+ "Could not load include file '" <> fp <> "' at " <> showPos pos
286280 MacroAlreadyDefined name pos ->
287281 "Macro '" <> name <> "' already defined, ignoring at " <> showPos pos
288282 InlineNotRendered il ->
@@ -294,18 +288,18 @@ showLogMessage msg =
294288 IgnoredIOError s ->
295289 "IO Error (ignored): " <> s
296290 CouldNotFetchResource fp s ->
297− "Could not fetch resource " <> fp <>
291+ "Could not fetch resource '" <> fp <> "'" <>
298292 if Text.null s then "" else ": " <> s
299293 CouldNotDetermineImageSize fp s ->
300− "Could not determine image size for " <> fp <>
294+ "Could not determine image size for '" <> fp <> "'" <>
301295 if Text.null s then "" else ": " <> s
302296 CouldNotConvertImage fp s ->
303− "Could not convert image " <> fp <>
297+ "Could not convert image '" <> fp <> "'" <>
304298 if Text.null s then "" else ": " <> s
305299 CouldNotDetermineMimeType fp ->
306− "Could not determine mime type for " <> fp
300+ "Could not determine mime type for '" <> fp <> "'"
307301 CouldNotConvertTeXMath s m ->
308− "Could not convert TeX math " <> s <> ", rendering as TeX" <>
302+ "Could not convert TeX math '" <> s <> "', rendering as TeX" <>
309303 if Text.null m then "" else ":\n" <> m
310304 CouldNotParseCSS m ->
311305 "Could not parse CSS" <> if Text.null m then "" else ":\n" <> m
@@ -313,8 +307,6 @@ showLogMessage msg =
313307 "Fetching " <> fp <> "..."
314308 Extracting fp ->
315309 "Extracting " <> fp <> "..."
316− LoadedResource orig found ->
317− "Loaded " <> Text.pack orig <> " from " <> Text.pack found
318310 NoTitleElement fallback ->
319311 "This document format requires a nonempty <title> element.\n" <>
320312 "Defaulting to '" <> fallback <> "' as the title.\n" <>
@@ -395,7 +387,6 @@ messageVerbosity msg =
395387 CouldNotParseCSS{} -> WARNING
396388 Fetching{} -> INFO
397389 Extracting{} -> INFO
398− LoadedResource{} -> INFO
399390 NoTitleElement{} -> WARNING
400391 NoLangSpecified -> INFO
401392 InvalidLang{} -> WARNING
src/Text/Pandoc/Lua/Filter.hs−2
@@ -13,9 +13,7 @@ module Text.Pandoc.Lua.Filter ( LuaFilterFunction
1313 , LuaFilter
1414 , runFilterFile
1515 , walkInlines
16− , walkInlineLists
1716 , walkBlocks
18− , walkBlockLists
1917 , module Text.Pandoc.Lua.Walk
2018 ) where
2119import Control.Applicative ((<|>))
src/Text/Pandoc/Lua/Module/MediaBag.hs+3−3
@@ -73,9 +73,9 @@ lookup fp = do
7373 res <- MB.lookupMedia fp <$> getMediaBag
7474 liftPandocLua $ case res of
7575 Nothing -> 1 <$ Lua.pushnil
76− Just item -> do
77− Lua.push $ MB.mediaMimeType item
78− Lua.push $ MB.mediaContents item
76+ Just (mimeType, contents) -> do
77+ Lua.push mimeType
78+ Lua.push contents
7979 return 2
8080
8181list :: PandocLua NumResults
src/Text/Pandoc/Lua/Module/Pandoc.hs+3−8
@@ -23,10 +23,8 @@ import Foreign.Lua (Lua, NumResults, Optional, Peekable, Pushable)
2323import System.Exit (ExitCode (..))
2424import Text.Pandoc.Class.PandocIO (runIO)
2525import Text.Pandoc.Definition (Block, Inline)
26−import Text.Pandoc.Lua.Filter (LuaFilter, SingletonsList (..), walkInlines,
27− walkInlineLists, walkBlocks, walkBlockLists)
26+import Text.Pandoc.Lua.Filter (walkInlines, walkBlocks, LuaFilter, SingletonsList (..))
2827import Text.Pandoc.Lua.Marshaling ()
29−import Text.Pandoc.Lua.Marshaling.List (List (..))
3028import Text.Pandoc.Lua.PandocLua (PandocLua, addFunction, liftPandocLua,
3129 loadDefaultModule)
3230import Text.Pandoc.Walk (Walkable)
@@ -53,12 +51,9 @@ pushModule = do
5351 return 1
5452
5553walkElement :: (Walkable (SingletonsList Inline) a,
56− Walkable (SingletonsList Block) a,
57− Walkable (List Inline) a,
58− Walkable (List Block) a)
54+ Walkable (SingletonsList Block) a)
5955 => a -> LuaFilter -> PandocLua a
60−walkElement x f = liftPandocLua $
61− walkInlines f x >>= walkInlineLists f >>= walkBlocks f >>= walkBlockLists f
56+walkElement x f = liftPandocLua $ walkInlines f x >>= walkBlocks f
6257
6358walk_inline :: Inline -> LuaFilter -> PandocLua Inline
6459walk_inline = walkElement
src/Text/Pandoc/Lua/Module/Utils.hs+1−1
@@ -146,7 +146,7 @@ from_simple_table (SimpleTable capt aligns widths head' body) = do
146146 nullAttr
147147 (Caption Nothing [Plain capt])
148148 (zipWith (\a w -> (a, toColWidth w)) aligns widths)
149− (TableHead nullAttr [blockListToRow head' | not (null head') ])
149+ (TableHead nullAttr [blockListToRow head'])
150150 [TableBody nullAttr 0 [] $ map blockListToRow body]
151151 (TableFoot nullAttr [])
152152 return (NumResults 1)
src/Text/Pandoc/MIME.hs−10
@@ -43,16 +43,6 @@ getMimeTypeDef :: FilePath -> MimeType
4343getMimeTypeDef = fromMaybe "application/octet-stream" . getMimeType
4444
4545extensionFromMimeType :: MimeType -> Maybe T.Text
46−-- few special cases, where there are multiple options:
47−extensionFromMimeType "text/plain" = Just "txt"
48−extensionFromMimeType "video/quicktime" = Just "mov"
49−extensionFromMimeType "video/mpeg" = Just "mpeg"
50−extensionFromMimeType "video/dv" = Just "dv"
51−extensionFromMimeType "image/vnd.djvu" = Just "djvu"
52−extensionFromMimeType "image/tiff" = Just "tiff"
53−extensionFromMimeType "image/jpeg" = Just "jpg"
54−extensionFromMimeType "application/xml" = Just "xml"
55−extensionFromMimeType "application/ogg" = Just "ogg"
5646extensionFromMimeType mimetype =
5747 M.lookup (T.takeWhile (/=';') mimetype) reverseMimeTypes
5848 -- note: we just look up the basic mime type, dropping the content-encoding etc.
src/Text/Pandoc/MediaBag.hs+14−45
@@ -1,5 +1,4 @@
11{-# LANGUAGE CPP #-}
2−{-# LANGUAGE OverloadedStrings #-}
32{-# LANGUAGE DeriveDataTypeable #-}
43{-# LANGUAGE GeneralizedNewtypeDeriving #-}
54{- |
@@ -15,7 +14,6 @@ Definition of a MediaBag object to hold binary resources, and an
1514interface for interacting with it.
1615-}
1716module Text.Pandoc.MediaBag (
18− MediaItem(..),
1917 MediaBag,
2018 deleteMedia,
2119 lookupMedia,
@@ -26,43 +24,29 @@ module Text.Pandoc.MediaBag (
2624import qualified Data.ByteString.Lazy as BL
2725import Data.Data (Data)
2826import qualified Data.Map as M
29−import Data.Maybe (fromMaybe, isNothing)
27+import Data.Maybe (fromMaybe)
3028import Data.Typeable (Typeable)
3129import System.FilePath
32−import Text.Pandoc.MIME (MimeType, getMimeTypeDef, extensionFromMimeType)
33−import Data.Text (Text)
34−import qualified Data.Text as T
35−import Data.Digest.Pure.SHA (sha1, showDigest)
36−import Network.URI (URI (..), parseURI)
37−
38−data MediaItem =
39− MediaItem
40− { mediaMimeType :: MimeType
41− , mediaPath :: FilePath
42− , mediaContents :: BL.ByteString
43− } deriving (Eq, Ord, Show, Data, Typeable)
30+import qualified System.FilePath.Posix as Posix
31+import Text.Pandoc.MIME (MimeType, getMimeTypeDef)
4432
4533-- | A container for a collection of binary resources, with names and
4634-- mime types. Note that a 'MediaBag' is a Monoid, so 'mempty'
4735-- can be used for an empty 'MediaBag', and '<>' can be used to append
4836-- two 'MediaBag's.
49−newtype MediaBag = MediaBag (M.Map Text MediaItem)
37+newtype MediaBag = MediaBag (M.Map [FilePath] (MimeType, BL.ByteString))
5038 deriving (Semigroup, Monoid, Data, Typeable)
5139
5240instance Show MediaBag where
5341 show bag = "MediaBag " ++ show (mediaDirectory bag)
5442
55−-- | We represent paths with /, in normalized form.
56−canonicalize :: FilePath -> Text
57−canonicalize = T.replace "\\" "/" . T.pack . normalise
58−
5943-- | Delete a media item from a 'MediaBag', or do nothing if no item corresponds
6044-- to the given path.
6145deleteMedia :: FilePath -- ^ relative path and canonical name of resource
6246 -> MediaBag
6347 -> MediaBag
6448deleteMedia fp (MediaBag mediamap) =
65− MediaBag $ M.delete (canonicalize fp) mediamap
49+ MediaBag $ M.delete (splitDirectories fp) mediamap
6650
6751-- | Insert a media item into a 'MediaBag', replacing any existing
6852-- value with the same name.
@@ -72,41 +56,26 @@ insertMedia :: FilePath -- ^ relative path and canonical name of resource
7256 -> MediaBag
7357 -> MediaBag
7458insertMedia fp mbMime contents (MediaBag mediamap) =
75− MediaBag (M.insert fp' mediaItem mediamap)
76− where mediaItem = MediaItem{ mediaPath = newpath
77− , mediaContents = contents
78− , mediaMimeType = mt }
79− fp' = canonicalize fp
80− uri = parseURI fp
81− newpath = if isRelative fp
82− && isNothing uri
83− && ".." `notElem` splitPath fp
84− then T.unpack fp'
85− else showDigest (sha1 contents) <> "." <> ext
59+ MediaBag (M.insert (splitDirectories fp) (mime, contents) mediamap)
60+ where mime = fromMaybe fallback mbMime
8661 fallback = case takeExtension fp of
8762 ".gz" -> getMimeTypeDef $ dropExtension fp
8863 _ -> getMimeTypeDef fp
89− mt = fromMaybe fallback mbMime
90− path = maybe fp uriPath uri
91− ext = case takeExtension path of
92− '.':e -> e
93− _ -> maybe "" T.unpack $ extensionFromMimeType mt
94−
9564
9665-- | Lookup a media item in a 'MediaBag', returning mime type and contents.
9766lookupMedia :: FilePath
9867 -> MediaBag
99− -> Maybe MediaItem
100−lookupMedia fp (MediaBag mediamap) = M.lookup (canonicalize fp) mediamap
68+ -> Maybe (MimeType, BL.ByteString)
69+lookupMedia fp (MediaBag mediamap) = M.lookup (splitDirectories fp) mediamap
10170
10271-- | Get a list of the file paths stored in a 'MediaBag', with
10372-- their corresponding mime types and the lengths in bytes of the contents.
10473mediaDirectory :: MediaBag -> [(FilePath, MimeType, Int)]
105−mediaDirectory mediabag =
106− map (\(fp, mt, bs) -> (fp, mt, fromIntegral (BL.length bs)))
107− (mediaItems mediabag)
74+mediaDirectory (MediaBag mediamap) =
75+ M.foldrWithKey (\fp (mime,contents) ->
76+ ((Posix.joinPath fp, mime, fromIntegral $ BL.length contents):)) [] mediamap
10877
10978mediaItems :: MediaBag -> [(FilePath, MimeType, BL.ByteString)]
11079mediaItems (MediaBag mediamap) =
111− map (\item -> (mediaPath item, mediaMimeType item, mediaContents item))
112− (M.elems mediamap)
80+ M.foldrWithKey (\fp (mime,contents) ->
81+ ((Posix.joinPath fp, mime, contents):)) [] mediamap
src/Text/Pandoc/Options.hs+17−17
@@ -315,23 +315,6 @@ defaultMathJaxURL = "https://cdn.jsdelivr.net/npm/mathjax@3/es5/tex-chtml-full.j
315315defaultKaTeXURL :: Text
316316defaultKaTeXURL = "https://cdnjs.cloudflare.com/ajax/libs/KaTeX/0.11.1/"
317317
318−-- Update documentation in doc/filters.md if this is changed.
319−$(deriveJSON defaultOptions{ constructorTagModifier =
320− camelCaseStrToHyphenated
321− } ''TrackChanges)
322−
323−$(deriveJSON defaultOptions{ constructorTagModifier =
324− camelCaseStrToHyphenated
325− } ''WrapOption)
326−
327−$(deriveJSON defaultOptions{ constructorTagModifier =
328− camelCaseStrToHyphenated . drop 8
329− } ''TopLevelDivision)
330−
331−$(deriveJSON defaultOptions{ constructorTagModifier =
332− camelCaseStrToHyphenated
333− } ''ReferenceLocation)
334−
335318-- Update documentation in doc/filters.md if this is changed.
336319$(deriveJSON defaultOptions ''ReaderOptions)
337320
@@ -355,3 +338,20 @@ $(deriveJSON defaultOptions{ constructorTagModifier =
355338 } ''ObfuscationMethod)
356339
357340$(deriveJSON defaultOptions ''HTMLSlideVariant)
341+
342+-- Update documentation in doc/filters.md if this is changed.
343+$(deriveJSON defaultOptions{ constructorTagModifier =
344+ camelCaseStrToHyphenated
345+ } ''TrackChanges)
346+
347+$(deriveJSON defaultOptions{ constructorTagModifier =
348+ camelCaseStrToHyphenated
349+ } ''WrapOption)
350+
351+$(deriveJSON defaultOptions{ constructorTagModifier =
352+ camelCaseStrToHyphenated . drop 8
353+ } ''TopLevelDivision)
354+
355+$(deriveJSON defaultOptions{ constructorTagModifier =
356+ camelCaseStrToHyphenated
357+ } ''ReferenceLocation)
src/Text/Pandoc/PDF.hs+3−16
@@ -202,7 +202,7 @@ convertImage opts tmpdir fname = do
202202 Just "image/svg+xml" -> E.catch (do
203203 (exit, _) <- pipeProcess Nothing "rsvg-convert"
204204 ["-f","pdf","-a","--dpi-x",dpi,"--dpi-y",dpi,
205− "-o",pdfOut,svgIn] BL.empty
205+ "-o",pdfOut,fname] BL.empty
206206 if exit == ExitSuccess
207207 then return $ Right pdfOut
208208 else return $ Left "conversion from SVG failed")
@@ -217,7 +217,6 @@ convertImage opts tmpdir fname = do
217217 where
218218 pngOut = replaceDirectory (replaceExtension fname ".png") tmpdir
219219 pdfOut = replaceDirectory (replaceExtension fname ".pdf") tmpdir
220− svgIn = tmpdir </> fname
221220 mime = getMimeType fname
222221 doNothing = return (Right fname)
223222
@@ -507,20 +506,8 @@ showVerboseInfo mbTmpDir program programArgs env source = do
507506 UTF8.hPutStrLn stderr $
508507 T.pack program <> " " <> T.pack (unwords (map show programArgs))
509508 UTF8.hPutStr stderr "\n"
510− UTF8.hPutStrLn stderr "[makePDF] Relevant environment variables:"
511− -- we filter out irrelevant stuff to avoid leaking passwords and keys!
512− let isRelevant ("PATH",_) = True
513− isRelevant ("TMPDIR",_) = True
514− isRelevant ("PWD",_) = True
515− isRelevant ("LANG",_) = True
516− isRelevant ("HOME",_) = True
517− isRelevant ("LUA_PATH",_) = True
518− isRelevant ("LUA_CPATH",_) = True
519− isRelevant ("SHELL",_) = True
520− isRelevant ("TEXINPUTS",_) = True
521− isRelevant ("TEXMFOUTPUT",_) = True
522− isRelevant _ = False
523− mapM_ (UTF8.hPutStrLn stderr . tshow) (filter isRelevant env)
509+ UTF8.hPutStrLn stderr "[makePDF] Environment:"
510+ mapM_ (UTF8.hPutStrLn stderr . tshow) env
524511 UTF8.hPutStr stderr "\n"
525512 UTF8.hPutStrLn stderr "[makePDF] Source:"
526513 UTF8.hPutStrLn stderr source
src/Text/Pandoc/Parsing.hs+242−360
@@ -5,6 +5,7 @@
55{-# LANGUAGE GeneralizedNewtypeDeriving #-}
66{-# LANGUAGE IncoherentInstances #-}
77{-# LANGUAGE MultiParamTypeClasses #-}
8+{-# LANGUAGE ViewPatterns #-}
89{-# LANGUAGE OverloadedStrings #-}
910{- |
1011 Module : Text.Pandoc.Parsing
@@ -18,7 +19,8 @@
1819A utility library with parsers used in pandoc readers.
1920-}
2021
21−module Text.Pandoc.Parsing ( module Text.Pandoc.Sources,
22+module Text.Pandoc.Parsing ( take1WhileP,
23+ takeP,
2224 countChar,
2325 textStr,
2426 anyLine,
@@ -103,14 +105,14 @@ module Text.Pandoc.Parsing ( module Text.Pandoc.Sources,
103105 singleQuoteEnd,
104106 doubleQuoteStart,
105107 doubleQuoteEnd,
106− apostrophe,
107− doubleCloseQuote,
108108 ellipses,
109+ apostrophe,
109110 dash,
110111 nested,
111112 citeKey,
112113 Parser,
113114 ParserT,
115+ F,
114116 Future(..),
115117 runF,
116118 askF,
@@ -121,6 +123,7 @@ module Text.Pandoc.Parsing ( module Text.Pandoc.Sources,
121123 (<+?>),
122124 extractIdClass,
123125 insertIncludedFile,
126+ insertIncludedFileF,
124127 -- * Re-exports from Text.Parsec
125128 Stream,
126129 runParser,
@@ -131,10 +134,22 @@ module Text.Pandoc.Parsing ( module Text.Pandoc.Sources,
131134 getInput,
132135 setInput,
133136 unexpected,
137+ char,
138+ letter,
139+ digit,
140+ alphaNum,
134141 skipMany,
135142 skipMany1,
143+ spaces,
144+ space,
145+ anyChar,
146+ satisfy,
147+ newline,
148+ string,
136149 count,
137150 eof,
151+ noneOf,
152+ oneOf,
138153 lookAhead,
139154 notFollowedBy,
140155 many,
@@ -159,8 +174,6 @@ module Text.Pandoc.Parsing ( module Text.Pandoc.Sources,
159174 SourcePos,
160175 getPosition,
161176 setPosition,
162− sourceName,
163− setSourceName,
164177 sourceColumn,
165178 sourceLine,
166179 setSourceColumn,
@@ -176,141 +189,48 @@ module Text.Pandoc.Parsing ( module Text.Pandoc.Sources,
176189where
177190
178191import Control.Monad.Identity
179− ( guard,
180− join,
181− unless,
182− when,
183− void,
184− liftM2,
185− liftM,
186− Identity(..),
187− MonadPlus(mzero) )
188192import Control.Monad.Reader
189− ( asks, runReader, MonadReader(ask), Reader, ReaderT(ReaderT) )
190193import Data.Char (chr, isAlphaNum, isAscii, isAsciiUpper, isAsciiLower,
191− isSpace, ord, toLower, toUpper)
192−import Data.Default ( Default(..) )
194+ isPunctuation, isSpace, ord, toLower, toUpper)
195+import Data.Default
193196import Data.Functor (($>))
194197import Data.List (intercalate, transpose)
195198import qualified Data.Map as M
196−import Data.Maybe (fromMaybe)
199+import Data.Maybe (mapMaybe, fromMaybe)
197200import qualified Data.Set as Set
201+import Data.String
198202import Data.Text (Text)
199203import qualified Data.Text as T
200204import Text.HTML.TagSoup.Entity (lookupEntity)
201−import Text.Pandoc.Asciify (toAsciiText)
205+import Text.Pandoc.Asciify (toAsciiChar)
202206import Text.Pandoc.Builder (Blocks, HasMeta (..), Inlines, trimInlines)
203207import qualified Text.Pandoc.Builder as B
204208import Text.Pandoc.Class.PandocMonad (PandocMonad, readFileFromDirs, report)
205209import Text.Pandoc.Definition
206− ( Target,
207− nullMeta,
208− nullAttr,
209− Meta,
210− ColWidth(ColWidthDefault, ColWidth),
211− TableFoot(TableFoot),
212− TableBody(TableBody),
213− Attr,
214− TableHead(TableHead),
215− Row(..),
216− Alignment(..),
217− Inline(Str),
218− ListNumberDelim(..),
219− ListAttributes,
220− ListNumberStyle(..) )
221210import Text.Pandoc.Logging
222− ( LogMessage(CouldNotLoadIncludeFile, DuplicateIdentifier) )
223211import Text.Pandoc.Options
224− ( extensionEnabled,
225− Extension(Ext_old_dashes, Ext_tex_math_dollars,
226− Ext_tex_math_single_backslash, Ext_tex_math_double_backslash,
227− Ext_auto_identifiers, Ext_ascii_identifiers, Ext_smart),
228− ReaderOptions(readerTabStop, readerColumns, readerExtensions) )
229212import Text.Pandoc.Readers.LaTeX.Types (Macro)
230213import Text.Pandoc.Shared
231− ( uniqueIdent,
232− tshow,
233− mapLeft,
234− compactify,
235− trim,
236− trimr,
237− splitTextByIndices,
238− safeRead,
239− trimMath,
240− schemes,
241− escapeURI )
242−import Text.Pandoc.Sources
243214import qualified Text.Pandoc.UTF8 as UTF8 (putStrLn)
244215import Text.Pandoc.XML (fromEntities)
245−import Text.Parsec
246− ( between,
247− setSourceName,
248− Parsec,
249− Column,
250− Line,
251− incSourceLine,
252− incSourceColumn,
253− setSourceLine,
254− setSourceColumn,
255− sourceLine,
256− sourceColumn,
257− sourceName,
258− setSourceName,
259− setPosition,
260− getPosition,
261− updateState,
262− setState,
263− getState,
264− optionMaybe,
265− optional,
266− option,
267− endBy1,
268− endBy,
269− sepEndBy1,
270− sepEndBy,
271− sepBy1,
272− sepBy,
273− try,
274− choice,
275− (<?>),
276− (<|>),
277− manyTill,
278− many1,
279− many,
280− notFollowedBy,
281− lookAhead,
282− eof,
283− count,
284− skipMany1,
285− skipMany,
286− unexpected,
287− setInput,
288− getInput,
289− anyToken,
290− tokenPrim,
291− parse,
292− runParserT,
293− runParser,
294− ParseError,
295− ParsecT,
296− SourcePos,
297− Stream(..) )
298−import Text.Parsec.Pos (initialPos, newPos)
299−import Control.Monad.Except ( MonadError(throwError) )
216+import Text.Parsec hiding (token)
217+import Text.Parsec.Pos (initialPos, newPos, updatePosString)
218+
219+import Control.Monad.Except
300220import Text.Pandoc.Error
301− ( PandocError(PandocParseError, PandocParsecError) )
302221
303222type Parser t s = Parsec t s
304223
305224type ParserT = ParsecT
306225
307−
308226-- | Reader monad wrapping the parser state. This is used to possibly delay
309227-- evaluation until all relevant information has been parsed and made available
310228-- in the parser state.
311229newtype Future s a = Future { runDelayed :: Reader s a }
312230 deriving (Monad, Applicative, Functor)
313231
232+type F = Future ParserState
233+
314234runF :: Future s a -> s -> a
315235runF = runReader . runDelayed
316236
@@ -333,48 +253,70 @@ instance (Semigroup a, Monoid a) => Monoid (Future s a) where
333253 mappend = (<>)
334254
335255-- | Like @count@, but packs its result
336−countChar :: (Stream s m Char, UpdateSourcePos s Char, Monad m)
256+countChar :: (Stream s m Char, Monad m)
337257 => Int
338258 -> ParsecT s st m Char
339259 -> ParsecT s st m Text
340260countChar n = fmap T.pack . count n
341261
342262-- | Like @string@, but uses @Text@.
343−textStr :: (Stream s m Char, UpdateSourcePos s Char)
344− => Text -> ParsecT s u m Text
263+textStr :: Stream s m Char => Text -> ParsecT s u m Text
345264textStr t = string (T.unpack t) $> t
346265
347−
348−-- | Parse any line of text, returning the contents without the
349−-- final newline.
350−anyLine :: Monad m => ParserT Sources st m Text
266+-- | Parse characters while a predicate is true.
267+take1WhileP :: Monad m
268+ => (Char -> Bool)
269+ -> ParserT Text st m Text
270+take1WhileP f = do
271+ -- needed to persuade parsec that this won't match an empty string:
272+ c <- satisfy f
273+ inp <- getInput
274+ pos <- getPosition
275+ let (t, rest) = T.span f inp
276+ setInput rest
277+ setPosition $
278+ if f '\t' || f '\n'
279+ then updatePosString pos $ T.unpack t
280+ else incSourceColumn pos (T.length t)
281+ return $ T.singleton c <> t
282+
283+-- Parse n characters of input (or the rest of the input if
284+-- there aren't n characters).
285+takeP :: Monad m => Int -> ParserT Text st m Text
286+takeP n = do
287+ guard (n > 0)
288+ -- faster than 'count n anyChar'
289+ inp <- getInput
290+ pos <- getPosition
291+ let (xs, rest) = T.splitAt n inp
292+ -- needed to persuade parsec that this won't match an empty string:
293+ anyChar
294+ setInput rest
295+ setPosition $ updatePosString pos $ T.unpack xs
296+ return xs
297+
298+-- | Parse any line of text
299+anyLine :: Monad m => ParserT Text st m Text
351300anyLine = do
352301 -- This is much faster than:
353302 -- manyTill anyChar newline
354303 inp <- getInput
355− case inp of
356− Sources [] -> mzero
357− Sources ((fp,t):inps) ->
358− -- we assume that lines don't span different input files
359− case T.break (=='\n') t of
360− (this, rest)
361− | T.null rest
362− , not (null inps) ->
363− -- line may span different input files, so do it
364− -- character by character
365− T.pack <$> manyTill anyChar newline
366− | otherwise -> do -- either end of inputs or newline in rest
367− setInput $ Sources ((fp, rest):inps)
368− char '\n' -- needed so parsec knows we won't match empty string
369− -- and so source pos is updated
370− return this
304+ pos <- getPosition
305+ case T.break (=='\n') inp of
306+ (this, T.uncons -> Just ('\n', rest)) -> do
307+ -- needed to persuade parsec that this won't match an empty string:
308+ anyChar
309+ setInput rest
310+ setPosition $ incSourceLine (setSourceColumn pos 1) 1
311+ return this
312+ _ -> mzero
371313
372314-- | Parse any line, include the final newline in the output
373−anyLineNewline :: Monad m => ParserT Sources st m Text
315+anyLineNewline :: Monad m => ParserT Text st m Text
374316anyLineNewline = (<> "\n") <$> anyLine
375317
376318-- | Parse indent by specified number of spaces (or equiv. tabs)
377−indentWith :: (Stream s m Char, UpdateSourcePos s Char)
319+indentWith :: Stream s m Char
378320 => HasReaderOptions st
379321 => Int -> ParserT s st m Text
380322indentWith num = do
@@ -459,13 +401,11 @@ notFollowedBy' p = try $ join $ do a <- try p
459401 return (return ())
460402-- (This version due to Andrew Pimlott on the Haskell mailing list.)
461403
462−oneOfStrings' :: (Stream s m Char, UpdateSourcePos s Char)
463− => (Char -> Char -> Bool) -> [Text] -> ParserT s st m Text
404+oneOfStrings' :: Stream s m Char => (Char -> Char -> Bool) -> [Text] -> ParserT s st m Text
464405oneOfStrings' f = fmap T.pack . oneOfStrings'' f . fmap T.unpack
465406
466407-- TODO: This should be re-implemented in a Text-aware way
467−oneOfStrings'' :: (Stream s m Char, UpdateSourcePos s Char)
468− => (Char -> Char -> Bool) -> [String] -> ParserT s st m String
408+oneOfStrings'' :: Stream s m Char => (Char -> Char -> Bool) -> [String] -> ParserT s st m String
469409oneOfStrings'' _ [] = Prelude.fail "no strings"
470410oneOfStrings'' matches strs = try $ do
471411 c <- anyChar
@@ -480,16 +420,14 @@ oneOfStrings'' matches strs = try $ do
480420-- | Parses one of a list of strings. If the list contains
481421-- two strings one of which is a prefix of the other, the longer
482422-- string will be matched if possible.
483−oneOfStrings :: (Stream s m Char, UpdateSourcePos s Char)
484− => [Text] -> ParserT s st m Text
423+oneOfStrings :: Stream s m Char => [Text] -> ParserT s st m Text
485424oneOfStrings = oneOfStrings' (==)
486425
487426-- | Parses one of a list of strings (tried in order), case insensitive.
488427
489428-- TODO: This will not be accurate with general Unicode (neither
490429-- Text.toLower nor Text.toCaseFold can be implemented with a map)
491−oneOfStringsCI :: (Stream s m Char, UpdateSourcePos s Char)
492− => [Text] -> ParserT s st m Text
430+oneOfStringsCI :: Stream s m Char => [Text] -> ParserT s st m Text
493431oneOfStringsCI = oneOfStrings' ciMatch
494432 where ciMatch x y = toLower' x == toLower' y
495433 -- this optimizes toLower by checking common ASCII case
@@ -500,13 +438,11 @@ oneOfStringsCI = oneOfStrings' ciMatch
500438 | otherwise = toLower c
501439
502440-- | Parses a space or tab.
503−spaceChar :: (Stream s m Char, UpdateSourcePos s Char)
504− => ParserT s st m Char
441+spaceChar :: Stream s m Char => ParserT s st m Char
505442spaceChar = satisfy $ \c -> c == ' ' || c == '\t'
506443
507444-- | Parses a nonspace, nonnewline character.
508−nonspaceChar :: (Stream s m Char, UpdateSourcePos s Char)
509− => ParserT s st m Char
445+nonspaceChar :: Stream s m Char => ParserT s st m Char
510446nonspaceChar = satisfy (not . isSpaceChar)
511447
512448isSpaceChar :: Char -> Bool
@@ -517,24 +453,21 @@ isSpaceChar '\r' = True
517453isSpaceChar _ = False
518454
519455-- | Skips zero or more spaces or tabs.
520−skipSpaces :: (Stream s m Char, UpdateSourcePos s Char)
521− => ParserT s st m ()
456+skipSpaces :: Stream s m Char => ParserT s st m ()
522457skipSpaces = skipMany spaceChar
523458
524459-- | Skips zero or more spaces or tabs, then reads a newline.
525−blankline :: (Stream s m Char, UpdateSourcePos s Char)
526− => ParserT s st m Char
460+blankline :: Stream s m Char => ParserT s st m Char
527461blankline = try $ skipSpaces >> newline
528462
529463-- | Parses one or more blank lines and returns a string of newlines.
530−blanklines :: (Stream s m Char, UpdateSourcePos s Char)
531− => ParserT s st m Text
464+blanklines :: Stream s m Char => ParserT s st m Text
532465blanklines = T.pack <$> many1 blankline
533466
534467-- | Gobble n spaces; if tabs are encountered, expand them
535468-- and gobble some or all of their spaces, leaving the rest.
536469gobbleSpaces :: (HasReaderOptions st, Monad m)
537− => Int -> ParserT Sources st m ()
470+ => Int -> ParserT Text st m ()
538471gobbleSpaces 0 = return ()
539472gobbleSpaces n
540473 | n < 0 = error "gobbleSpaces called with negative number"
@@ -542,26 +475,18 @@ gobbleSpaces n
542475 char ' ' <|> eatOneSpaceOfTab
543476 gobbleSpaces (n - 1)
544477
545−eatOneSpaceOfTab :: (HasReaderOptions st, Monad m) => ParserT Sources st m Char
478+eatOneSpaceOfTab :: (HasReaderOptions st, Monad m) => ParserT Text st m Char
546479eatOneSpaceOfTab = do
547− lookAhead (char '\t')
548− pos <- getPosition
480+ char '\t'
549481 tabstop <- getOption readerTabStop
550− -- replace the tab on the input stream with spaces
551− let numSpaces = tabstop - ((sourceColumn pos - 1) `mod` tabstop)
552482 inp <- getInput
553− setInput $
554− case inp of
555− Sources [] -> error "eatOneSpaceOfTab - empty Sources list"
556− Sources ((fp,t):rest) ->
557− -- drop the tab and add spaces
558− Sources ((fp, T.replicate numSpaces " " <> T.drop 1 t):rest)
559− char ' '
483+ setInput $ T.replicate (tabstop - 1) " " <> inp
484+ return ' '
560485
561486-- | Gobble up to n spaces; if tabs are encountered, expand them
562487-- and gobble some or all of their spaces, leaving the rest.
563488gobbleAtMostSpaces :: (HasReaderOptions st, Monad m)
564− => Int -> ParserT Sources st m Int
489+ => Int -> ParserT Text st m Int
565490gobbleAtMostSpaces 0 = return 0
566491gobbleAtMostSpaces n
567492 | n < 0 = error "gobbleAtMostSpaces called with negative number"
@@ -570,8 +495,7 @@ gobbleAtMostSpaces n
570495 (+ 1) <$> gobbleAtMostSpaces (n - 1)
571496
572497-- | Parses material enclosed between start and end parsers.
573−enclosed :: (Show end, Stream s m Char, UpdateSourcePos s Char)
574− => ParserT s st m t -- ^ start parser
498+enclosed :: (Show end, Stream s m Char) => ParserT s st m t -- ^ start parser
575499 -> ParserT s st m end -- ^ end parser
576500 -> ParserT s st m a -- ^ content parser (to be used repeatedly)
577501 -> ParserT s st m [a]
@@ -579,41 +503,39 @@ enclosed start end parser = try $
579503 start >> notFollowedBy space >> many1Till parser end
580504
581505-- | Parse string, case insensitive.
582−stringAnyCase :: (Stream s m Char, UpdateSourcePos s Char)
583− => Text -> ParserT s st m Text
506+stringAnyCase :: Stream s m Char => Text -> ParserT s st m Text
584507stringAnyCase = fmap T.pack . stringAnyCase' . T.unpack
585508
586−stringAnyCase' :: (Stream s m Char, UpdateSourcePos s Char)
587− => String -> ParserT s st m String
509+stringAnyCase' :: Stream s m Char => String -> ParserT s st m String
588510stringAnyCase' [] = string ""
589511stringAnyCase' (x:xs) = do
590512 firstChar <- char (toUpper x) <|> char (toLower x)
591513 rest <- stringAnyCase' xs
592514 return (firstChar:rest)
593515
594−-- TODO rewrite by just adding to Sources stream?
595516-- | Parse contents of 'str' using 'parser' and return result.
596−parseFromString :: Monad m
597− => ParserT Sources st m r
517+parseFromString :: (Stream s m Char, IsString s)
518+ => ParserT s st m r
598519 -> Text
599− -> ParserT Sources st m r
520+ -> ParserT s st m r
600521parseFromString parser str = do
601522 oldPos <- getPosition
602523 setPosition $ initialPos "chunk"
603524 oldInput <- getInput
604− setInput $ toSources str
525+ setInput $ fromString $ T.unpack str
605526 result <- parser
606527 spaces
528+ eof
607529 setInput oldInput
608530 setPosition oldPos
609531 return result
610532
611533-- | Like 'parseFromString' but specialized for 'ParserState'.
612534-- This resets 'stateLastStrPos', which is almost always what we want.
613−parseFromString' :: (Monad m, HasLastStrPosition u)
614− => ParserT Sources u m a
535+parseFromString' :: (Stream s m Char, IsString s, HasLastStrPosition u)
536+ => ParserT s u m a
615537 -> Text
616− -> ParserT Sources u m a
538+ -> ParserT s u m a
617539parseFromString' parser str = do
618540 oldLastStrPos <- getLastStrPos <$> getState
619541 updateState $ setLastStrPos Nothing
@@ -622,7 +544,7 @@ parseFromString' parser str = do
622544 return res
623545
624546-- | Parse raw line block up to and including blank lines.
625−lineClump :: Monad m => ParserT Sources st m Text
547+lineClump :: Monad m => ParserT Text st m Text
626548lineClump = blanklines
627549 <|> (T.unlines <$> many1 (notFollowedBy blankline >> anyLine))
628550
@@ -631,7 +553,7 @@ lineClump = blanklines
631553-- pairs of open and close, which must be different. For example,
632554-- @charsInBalanced '(' ')' anyChar@ will parse "(hello (there))"
633555-- and return "hello (there)".
634−charsInBalanced :: (Stream s m Char, UpdateSourcePos s Char) => Char -> Char -> ParserT s st m Char
556+charsInBalanced :: Stream s m Char => Char -> Char -> ParserT s st m Char
635557 -> ParserT s st m Text
636558charsInBalanced open close parser = try $ do
637559 char open
@@ -650,7 +572,7 @@ charsInBalanced open close parser = try $ do
650572-- Auxiliary functions for romanNumeral:
651573
652574-- | Parses a roman numeral (uppercase or lowercase), returns number.
653−romanNumeral :: (Stream s m Char, UpdateSourcePos s Char) => Bool -- ^ Uppercase if true
575+romanNumeral :: Stream s m Char => Bool -- ^ Uppercase if true
654576 -> ParserT s st m Int
655577romanNumeral upperCase = do
656578 let rchar uc = char $ if upperCase then uc else toLower uc
@@ -686,19 +608,20 @@ romanNumeral upperCase = do
686608
687609-- | Parses an email address; returns original and corresponding
688610-- escaped mailto: URI.
689−emailAddress :: (Stream s m Char, UpdateSourcePos s Char) => ParserT s st m (Text, Text)
611+emailAddress :: Stream s m Char => ParserT s st m (Text, Text)
690612emailAddress = try $ toResult <$> mailbox <*> (char '@' *> domain)
691613 where toResult mbox dom = let full = fromEntities $ T.pack $ mbox ++ '@':dom
692614 in (full, escapeURI $ "mailto:" <> full)
693615 mailbox = intercalate "." <$> (emailWord `sepBy1'` dot)
694616 domain = intercalate "." <$> (subdomain `sepBy1'` dot)
695617 dot = char '.'
696− subdomain = many1 $ alphaNum <|> innerPunct (=='-')
618+ subdomain = many1 $ alphaNum <|> innerPunct
697619 -- this excludes some valid email addresses, since an
698620 -- email could contain e.g. '__', but gives better results
699621 -- for our purposes, when combined with markdown parsing:
700− innerPunct f = try (satisfy f
701− <* notFollowedBy (satisfy (not . isAlphaNum)))
622+ innerPunct = try (satisfy (\c -> isEmailPunct c || c == '@')
623+ <* notFollowedBy space
624+ <* notFollowedBy (satisfy isPunctuation))
702625 -- technically an email address could begin with a symbol,
703626 -- but allowing this creates too many problems.
704627 -- See e.g. https://github.com/jgm/pandoc/issues/2940
@@ -709,11 +632,11 @@ emailAddress = try $ toResult <$> mailbox <*> (char '@' *> domain)
709632 isEmailPunct c = T.any (== c) "!\"#$%&'*+-/=?^_{|}~;"
710633
711634
712−uriScheme :: (Stream s m Char, UpdateSourcePos s Char) => ParserT s st m Text
635+uriScheme :: Stream s m Char => ParserT s st m Text
713636uriScheme = oneOfStringsCI (Set.toList schemes)
714637
715638-- | Parses a URI. Returns pair of original and URI-escaped version.
716−uri :: (Stream s m Char, UpdateSourcePos s Char) => ParserT s st m (Text, Text)
639+uri :: Stream s m Char => ParserT s st m (Text, Text)
717640uri = try $ do
718641 scheme <- uriScheme
719642 char ':'
@@ -756,7 +679,7 @@ uri = try $ do
756679 uriChunkBetween l r = try $ do chunk <- between (char l) (char r) uriChunk
757680 return (T.pack $ [l] ++ chunk ++ [r])
758681
759−mathInlineWith :: (Stream s m Char, UpdateSourcePos s Char) => Text -> Text -> ParserT s st m Text
682+mathInlineWith :: Stream s m Char => Text -> Text -> ParserT s st m Text
760683mathInlineWith op cl = try $ do
761684 textStr op
762685 when (op == "$") $ notFollowedBy space
@@ -777,10 +700,10 @@ mathInlineWith op cl = try $ do
777700 notFollowedBy digit -- to prevent capture of $5
778701 return $ trimMath $ T.concat words'
779702 where
780− inBalancedBraces :: (Stream s m Char, UpdateSourcePos s Char) => Int -> Text -> ParserT s st m Text
703+ inBalancedBraces :: Stream s m Char => Int -> Text -> ParserT s st m Text
781704 inBalancedBraces n = fmap T.pack . inBalancedBraces' n . T.unpack
782705
783− inBalancedBraces' :: (Stream s m Char, UpdateSourcePos s Char) => Int -> String -> ParserT s st m String
706+ inBalancedBraces' :: Stream s m Char => Int -> String -> ParserT s st m String
784707 inBalancedBraces' 0 "" = do
785708 c <- anyChar
786709 if c == '{'
@@ -797,13 +720,13 @@ mathInlineWith op cl = try $ do
797720 '{' -> inBalancedBraces' (numOpen + 1) (c:xs)
798721 _ -> inBalancedBraces' numOpen (c:xs)
799722
800−mathDisplayWith :: (Stream s m Char, UpdateSourcePos s Char) => Text -> Text -> ParserT s st m Text
723+mathDisplayWith :: Stream s m Char => Text -> Text -> ParserT s st m Text
801724mathDisplayWith op cl = try $ fmap T.pack $ do
802725 textStr op
803726 many1Till (satisfy (/= '\n') <|> (newline <* notFollowedBy' blankline))
804727 (try $ textStr cl)
805728
806−mathDisplay :: (HasReaderOptions st, Stream s m Char, UpdateSourcePos s Char)
729+mathDisplay :: (HasReaderOptions st, Stream s m Char)
807730 => ParserT s st m Text
808731mathDisplay =
809732 (guardEnabled Ext_tex_math_dollars >> mathDisplayWith "$$" "$$")
@@ -812,7 +735,7 @@ mathDisplay =
812735 <|> (guardEnabled Ext_tex_math_double_backslash >>
813736 mathDisplayWith "\\\\[" "\\\\]")
814737
815−mathInline :: (HasReaderOptions st, Stream s m Char, UpdateSourcePos s Char)
738+mathInline :: (HasReaderOptions st , Stream s m Char)
816739 => ParserT s st m Text
817740mathInline =
818741 (guardEnabled Ext_tex_math_dollars >> mathInlineWith "$" "$")
@@ -825,7 +748,7 @@ mathInline =
825748-- displacement (the difference between the source column at the end
826749-- and the source column at the beginning). Vertical displacement
827750-- (source row) is ignored.
828−withHorizDisplacement :: (Stream s m Char, UpdateSourcePos s Char)
751+withHorizDisplacement :: Stream s m Char
829752 => ParserT s st m a -- ^ Parser to apply
830753 -> ParserT s st m (a, Int) -- ^ (result, displacement)
831754withHorizDisplacement parser = do
@@ -837,37 +760,30 @@ withHorizDisplacement parser = do
837760-- | Applies a parser and returns the raw string that was parsed,
838761-- along with the value produced by the parser.
839762withRaw :: Monad m
840− => ParsecT Sources st m a
841− -> ParsecT Sources st m (a, Text)
763+ => ParsecT Text st m a
764+ -> ParsecT Text st m (a, Text)
842765withRaw parser = do
843− inps1 <- getInput
766+ pos1 <- getPosition
767+ inp <- getInput
844768 result <- parser
845− inps2 <- getInput
846− -- 'raw' is the difference between inps1 and inps2
847− return (result, sourcesDifference inps1 inps2)
848−
849−sourcesDifference :: Sources -> Sources -> Text
850−sourcesDifference (Sources is1) (Sources is2) = go is1 is2
851− where
852− go inps1 inps2 =
853− case (inps1, inps2) of
854− ([], _) -> mempty
855− (_, []) -> mconcat $ map snd inps1
856− ((p1,t1):rest1, (p2, t2):rest2)
857− | p1 == p2
858− , t1 == t2 -> go rest1 rest2
859− | p1 == p2
860− , t1 /= t2 -> fromMaybe mempty $ T.stripSuffix t2 t1
861− | otherwise -> t1 <> go rest1 inps2
769+ pos2 <- getPosition
770+ let (l1,c1) = (sourceLine pos1, sourceColumn pos1)
771+ let (l2,c2) = (sourceLine pos2, sourceColumn pos2)
772+ let inplines = take ((l2 - l1) + 1) $ T.lines inp
773+ let raw = case inplines of
774+ [] -> ""
775+ [l] -> T.take (c2 - c1) l
776+ ls -> T.unlines (init ls) <> T.take (c2 - 1) (last ls)
777+ return (result, raw)
862778
863779-- | Parses backslash, then applies character parser.
864−escaped :: (Stream s m Char, UpdateSourcePos s Char)
780+escaped :: Stream s m Char
865781 => ParserT s st m Char -- ^ Parser for character to escape
866782 -> ParserT s st m Char
867783escaped parser = try $ char '\\' >> parser
868784
869785-- | Parse character entity.
870−characterReference :: (Stream s m Char, UpdateSourcePos s Char) => ParserT s st m Char
786+characterReference :: Stream s m Char => ParserT s st m Char
871787characterReference = try $ do
872788 char '&'
873789 ent <- many1Till nonspaceChar (char ';')
@@ -880,19 +796,19 @@ characterReference = try $ do
880796 _ -> Prelude.fail "entity not found"
881797
882798-- | Parses an uppercase roman numeral and returns (UpperRoman, number).
883−upperRoman :: (Stream s m Char, UpdateSourcePos s Char) => ParserT s st m (ListNumberStyle, Int)
799+upperRoman :: Stream s m Char => ParserT s st m (ListNumberStyle, Int)
884800upperRoman = do
885801 num <- romanNumeral True
886802 return (UpperRoman, num)
887803
888804-- | Parses a lowercase roman numeral and returns (LowerRoman, number).
889−lowerRoman :: (Stream s m Char, UpdateSourcePos s Char) => ParserT s st m (ListNumberStyle, Int)
805+lowerRoman :: Stream s m Char => ParserT s st m (ListNumberStyle, Int)
890806lowerRoman = do
891807 num <- romanNumeral False
892808 return (LowerRoman, num)
893809
894810-- | Parses a decimal numeral and returns (Decimal, number).
895−decimal :: (Stream s m Char, UpdateSourcePos s Char) => ParserT s st m (ListNumberStyle, Int)
811+decimal :: Stream s m Char => ParserT s st m (ListNumberStyle, Int)
896812decimal = do
897813 num <- many1 digit
898814 return (Decimal, fromMaybe 1 $ safeRead $ T.pack num)
@@ -901,7 +817,7 @@ decimal = do
901817-- returns (DefaultStyle, [next example number]). The next
902818-- example number is incremented in parser state, and the label
903819-- (if present) is added to the label table.
904−exampleNum :: (Stream s m Char, UpdateSourcePos s Char)
820+exampleNum :: Stream s m Char
905821 => ParserT s ParserState m (ListNumberStyle, Int)
906822exampleNum = do
907823 char '@'
@@ -920,37 +836,37 @@ exampleNum = do
920836 return (Example, num)
921837
922838-- | Parses a '#' returns (DefaultStyle, 1).
923−defaultNum :: (Stream s m Char, UpdateSourcePos s Char) => ParserT s st m (ListNumberStyle, Int)
839+defaultNum :: Stream s m Char => ParserT s st m (ListNumberStyle, Int)
924840defaultNum = do
925841 char '#'
926842 return (DefaultStyle, 1)
927843
928844-- | Parses a lowercase letter and returns (LowerAlpha, number).
929−lowerAlpha :: (Stream s m Char, UpdateSourcePos s Char) => ParserT s st m (ListNumberStyle, Int)
845+lowerAlpha :: Stream s m Char => ParserT s st m (ListNumberStyle, Int)
930846lowerAlpha = do
931847 ch <- satisfy isAsciiLower
932848 return (LowerAlpha, ord ch - ord 'a' + 1)
933849
934850-- | Parses an uppercase letter and returns (UpperAlpha, number).
935−upperAlpha :: (Stream s m Char, UpdateSourcePos s Char) => ParserT s st m (ListNumberStyle, Int)
851+upperAlpha :: Stream s m Char => ParserT s st m (ListNumberStyle, Int)
936852upperAlpha = do
937853 ch <- satisfy isAsciiUpper
938854 return (UpperAlpha, ord ch - ord 'A' + 1)
939855
940856-- | Parses a roman numeral i or I
941−romanOne :: (Stream s m Char, UpdateSourcePos s Char) => ParserT s st m (ListNumberStyle, Int)
857+romanOne :: Stream s m Char => ParserT s st m (ListNumberStyle, Int)
942858romanOne = (char 'i' >> return (LowerRoman, 1)) <|>
943859 (char 'I' >> return (UpperRoman, 1))
944860
945861-- | Parses an ordered list marker and returns list attributes.
946−anyOrderedListMarker :: (Stream s m Char, UpdateSourcePos s Char) => ParserT s ParserState m ListAttributes
862+anyOrderedListMarker :: Stream s m Char => ParserT s ParserState m ListAttributes
947863anyOrderedListMarker = choice
948864 [delimParser numParser | delimParser <- [inPeriod, inOneParen, inTwoParens],
949865 numParser <- [decimal, exampleNum, defaultNum, romanOne,
950866 lowerAlpha, lowerRoman, upperAlpha, upperRoman]]
951867
952868-- | Parses a list number (num) followed by a period, returns list attributes.
953−inPeriod :: (Stream s m Char, UpdateSourcePos s Char)
869+inPeriod :: Stream s m Char
954870 => ParserT s st m (ListNumberStyle, Int)
955871 -> ParserT s st m ListAttributes
956872inPeriod num = try $ do
@@ -962,7 +878,7 @@ inPeriod num = try $ do
962878 return (start, style, delim)
963879
964880-- | Parses a list number (num) followed by a paren, returns list attributes.
965−inOneParen :: (Stream s m Char, UpdateSourcePos s Char)
881+inOneParen :: Stream s m Char
966882 => ParserT s st m (ListNumberStyle, Int)
967883 -> ParserT s st m ListAttributes
968884inOneParen num = try $ do
@@ -971,7 +887,7 @@ inOneParen num = try $ do
971887 return (start, style, OneParen)
972888
973889-- | Parses a list number (num) enclosed in parens, returns list attributes.
974−inTwoParens :: (Stream s m Char, UpdateSourcePos s Char)
890+inTwoParens :: Stream s m Char
975891 => ParserT s st m (ListNumberStyle, Int)
976892 -> ParserT s st m ListAttributes
977893inTwoParens num = try $ do
@@ -982,7 +898,7 @@ inTwoParens num = try $ do
982898
983899-- | Parses an ordered list marker with a given style and delimiter,
984900-- returns number.
985−orderedListMarker :: (Stream s m Char, UpdateSourcePos s Char)
901+orderedListMarker :: Stream s m Char
986902 => ListNumberStyle
987903 -> ListNumberDelim
988904 -> ParserT s ParserState m Int
@@ -1005,10 +921,10 @@ orderedListMarker style delim = do
1005921 return start
1006922
1007923-- | Parses a character reference and returns a Str element.
1008−charRef :: (Stream s m Char, UpdateSourcePos s Char) => ParserT s st m Inline
924+charRef :: Stream s m Char => ParserT s st m Inline
1009925charRef = Str . T.singleton <$> characterReference
1010926
1011−lineBlockLine :: Monad m => ParserT Sources st m Text
927+lineBlockLine :: Monad m => ParserT Text st m Text
1012928lineBlockLine = try $ do
1013929 char '|'
1014930 char ' '
@@ -1018,11 +934,11 @@ lineBlockLine = try $ do
1018934 continuations <- many (try $ char ' ' >> anyLine)
1019935 return $ white <> T.unwords (line : continuations)
1020936
1021−blankLineBlockLine :: (Stream s m Char, UpdateSourcePos s Char) => ParserT s st m Char
937+blankLineBlockLine :: Stream s m Char => ParserT s st m Char
1022938blankLineBlockLine = try (char '|' >> blankline)
1023939
1024940-- | Parses an RST-style line block and returns a list of strings.
1025−lineBlockLines :: Monad m => ParserT Sources st m [Text]
941+lineBlockLines :: Monad m => ParserT Text st m [Text]
1026942lineBlockLines = try $ do
1027943 lines' <- many1 (lineBlockLine <|> (T.singleton <$> blankLineBlockLine))
1028944 skipMany blankline
@@ -1030,8 +946,7 @@ lineBlockLines = try $ do
1030946
1031947-- | Parse a table using 'headerParser', 'rowParser',
1032948-- 'lineParser', and 'footerParser'.
1033−tableWith :: (Stream s m Char, UpdateSourcePos s Char,
1034− HasReaderOptions st, Monad mf)
949+tableWith :: (Stream s m Char, HasReaderOptions st, Monad mf)
1035950 => ParserT s st m (mf [Blocks], [Alignment], [Int])
1036951 -> ([Int] -> ParserT s st m (mf [Blocks]))
1037952 -> ParserT s st m sep
@@ -1051,8 +966,7 @@ tableWith headerParser rowParser lineParser footerParser = try $ do
1051966
1052967type TableComponents mf = ([Alignment], [Double], mf [Row], mf [Row])
1053968
1054−tableWith' :: (Stream s m Char, UpdateSourcePos s Char,
1055− HasReaderOptions st, Monad mf)
969+tableWith' :: (Stream s m Char, HasReaderOptions st, Monad mf)
1056970 => ParserT s st m (mf [Blocks], [Alignment], [Int])
1057971 -> ([Int] -> ParserT s st m (mf [Blocks]))
1058972 -> ParserT s st m sep
@@ -1101,19 +1015,20 @@ widthsFromIndices numColumns' indices =
11011015-- (which may be grid), then the rows,
11021016-- which may be grid, separated by blank lines, and
11031017-- ending with a footer (dashed line followed by blank line).
1104−gridTableWith :: (Monad m, HasReaderOptions st, HasLastStrPosition st, Monad mf)
1105− => ParserT Sources st m (mf Blocks) -- ^ Block list parser
1018+gridTableWith :: (Stream s m Char, HasReaderOptions st, HasLastStrPosition st,
1019+ Monad mf, IsString s)
1020+ => ParserT s st m (mf Blocks) -- ^ Block list parser
11061021 -> Bool -- ^ Headerless table
1107− -> ParserT Sources st m (mf Blocks)
1022+ -> ParserT s st m (mf Blocks)
11081023gridTableWith blocks headless =
11091024 tableWith (gridTableHeader headless blocks) (gridTableRow blocks)
11101025 (gridTableSep '-') gridTableFooter
11111026
1112−gridTableWith' :: (Monad m, HasReaderOptions st, HasLastStrPosition st,
1113− Monad mf)
1114− => ParserT Sources st m (mf Blocks) -- ^ Block list parser
1027+gridTableWith' :: (Stream s m Char, HasReaderOptions st, HasLastStrPosition st,
1028+ Monad mf, IsString s)
1029+ => ParserT s st m (mf Blocks) -- ^ Block list parser
11151030 -> Bool -- ^ Headerless table
1116− -> ParserT Sources st m (TableComponents mf)
1031+ -> ParserT s st m (TableComponents mf)
11171032gridTableWith' blocks headless =
11181033 tableWith' (gridTableHeader headless blocks) (gridTableRow blocks)
11191034 (gridTableSep '-') gridTableFooter
@@ -1122,7 +1037,7 @@ gridTableSplitLine :: [Int] -> Text -> [Text]
11221037gridTableSplitLine indices line = map removeFinalBar $ tail $
11231038 splitTextByIndices (init indices) $ trimr line
11241039
1125−gridPart :: Monad m => Char -> ParserT Sources st m ((Int, Int), Alignment)
1040+gridPart :: Stream s m Char => Char -> ParserT s st m ((Int, Int), Alignment)
11261041gridPart ch = do
11271042 leftColon <- option False (True <$ char ':')
11281043 dashes <- many1 (char ch)
@@ -1137,7 +1052,7 @@ gridPart ch = do
11371052 (False, False) -> AlignDefault
11381053 return ((lengthDashes, lengthDashes + 1), alignment)
11391054
1140−gridDashedLines :: Monad m => Char -> ParserT Sources st m [((Int, Int), Alignment)]
1055+gridDashedLines :: Stream s m Char => Char -> ParserT s st m [((Int, Int), Alignment)]
11411056gridDashedLines ch = try $ char '+' >> many1 (gridPart ch) <* blankline
11421057
11431058removeFinalBar :: Text -> Text
@@ -1146,14 +1061,14 @@ removeFinalBar = T.dropWhileEnd go . T.dropWhileEnd (=='|')
11461061 go c = T.any (== c) " \t"
11471062
11481063-- | Separator between rows of grid table.
1149−gridTableSep :: Monad m => Char -> ParserT Sources st m Char
1064+gridTableSep :: Stream s m Char => Char -> ParserT s st m Char
11501065gridTableSep ch = try $ gridDashedLines ch >> return '\n'
11511066
11521067-- | Parse header for a grid table.
1153−gridTableHeader :: (Monad m, Monad mf, HasLastStrPosition st)
1068+gridTableHeader :: (Stream s m Char, Monad mf, IsString s, HasLastStrPosition st)
11541069 => Bool -- ^ Headerless table
1155− -> ParserT Sources st m (mf Blocks)
1156− -> ParserT Sources st m (mf [Blocks], [Alignment], [Int])
1070+ -> ParserT s st m (mf Blocks)
1071+ -> ParserT s st m (mf [Blocks], [Alignment], [Int])
11571072gridTableHeader True _ = do
11581073 optional blanklines
11591074 dashes <- gridDashedLines '-'
@@ -1176,17 +1091,17 @@ gridTableHeader False blocks = try $ do
11761091 heads <- sequence <$> mapM (parseFromString' blocks . trim) rawHeads
11771092 return (heads, aligns, indices)
11781093
1179−gridTableRawLine :: (Stream s m Char, UpdateSourcePos s Char) => [Int] -> ParserT s st m [Text]
1094+gridTableRawLine :: Stream s m Char => [Int] -> ParserT s st m [Text]
11801095gridTableRawLine indices = do
11811096 char '|'
11821097 line <- many1Till anyChar newline
11831098 return (gridTableSplitLine indices $ T.pack line)
11841099
11851100-- | Parse row of grid table.
1186−gridTableRow :: (Monad m, Monad mf, HasLastStrPosition st)
1187− => ParserT Sources st m (mf Blocks)
1101+gridTableRow :: (Stream s m Char, Monad mf, IsString s, HasLastStrPosition st)
1102+ => ParserT s st m (mf Blocks)
11881103 -> [Int]
1189− -> ParserT Sources st m (mf [Blocks])
1104+ -> ParserT s st m (mf [Blocks])
11901105gridTableRow blocks indices = do
11911106 colLines <- many1 (gridTableRawLine indices)
11921107 let cols = map ((<> "\n") . T.unlines . removeOneLeadingSpace) $
@@ -1207,38 +1122,34 @@ removeOneLeadingSpace xs =
12071122 Just (c, _) -> c == ' '
12081123
12091124-- | Parse footer for a grid table.
1210−gridTableFooter :: (Stream s m Char, UpdateSourcePos s Char) => ParserT s st m ()
1125+gridTableFooter :: Stream s m Char => ParserT s st m ()
12111126gridTableFooter = optional blanklines
12121127
12131128---
12141129
12151130-- | Removes the ParsecT layer from the monad transformer stack
1216−readWithM :: (Monad m, ToSources t)
1217− => ParserT Sources st m a -- ^ parser
1218− -> st -- ^ initial state
1219− -> t -- ^ input
1131+readWithM :: Monad m
1132+ => ParserT Text st m a -- ^ parser
1133+ -> st -- ^ initial state
1134+ -> Text -- ^ input
12201135 -> m (Either PandocError a)
12211136readWithM parser state input =
1222− mapLeft (PandocParsecError sources)
1223− <$> runParserT parser state (initialSourceName sources) sources
1224− where
1225− sources = toSources input
1137+ mapLeft (PandocParsecError input) <$> runParserT parser state "source" input
12261138
12271139-- | Parse a string with a given parser and state
1228−readWith :: ToSources t
1229− => Parser Sources st a
1140+readWith :: Parser Text st a
12301141 -> st
1231− -> t
1142+ -> Text
12321143 -> Either PandocError a
12331144readWith p t inp = runIdentity $ readWithM p t inp
12341145
12351146-- | Parse a string with @parser@ (for testing).
12361147testStringWith :: Show a
1237− => ParserT Sources ParserState Identity a
1148+ => ParserT Text ParserState Identity a
12381149 -> Text
12391150 -> IO ()
12401151testStringWith parser str = UTF8.putStrLn $ tshow $
1241− readWith parser defaultParserState (toSources str)
1152+ readWith parser defaultParserState str
12421153
12431154-- | Parsing options.
12441155data ParserState = ParserState
@@ -1258,7 +1169,7 @@ data ParserState = ParserState
12581169 stateInNote :: Bool, -- ^ True if parsing note contents
12591170 stateNoteNumber :: Int, -- ^ Last note number for citations
12601171 stateMeta :: Meta, -- ^ Document metadata
1261− stateMeta' :: Future ParserState Meta, -- ^ Document metadata
1172+ stateMeta' :: F Meta, -- ^ Document metadata
12621173 stateCitations :: M.Map Text Text, -- ^ RST-style citations
12631174 stateHeaderTable :: [HeaderType], -- ^ Ordered list of header types used
12641175 stateIdentifiers :: Set.Set Text, -- ^ Header identifiers used
@@ -1437,7 +1348,7 @@ data QuoteContext
14371348
14381349type NoteTable = [(Text, Text)]
14391350
1440−type NoteTable' = M.Map Text (SourcePos, Future ParserState Blocks)
1351+type NoteTable' = M.Map Text (SourcePos, F Blocks)
14411352-- used in markdown reader
14421353
14431354newtype Key = Key Text deriving (Show, Read, Eq, Ord)
@@ -1472,7 +1383,7 @@ registerHeader (ident,classes,kvs) header' = do
14721383 then do
14731384 let id' = uniqueIdent exts (B.toList header') ids
14741385 let id'' = if Ext_ascii_identifiers `extensionEnabled` exts
1475− then toAsciiText id'
1386+ then T.pack $ mapMaybe toAsciiChar $ T.unpack id'
14761387 else id'
14771388 updateState $ updateIdentifierList $ Set.insert id'
14781389 updateState $ updateIdentifierList $ Set.insert id''
@@ -1485,42 +1396,34 @@ registerHeader (ident,classes,kvs) header' = do
14851396 updateState $ updateIdentifierList $ Set.insert ident
14861397 return (ident,classes,kvs)
14871398
1488−smartPunctuation :: (HasReaderOptions st, HasLastStrPosition st,
1489− HasQuoteContext st m,
1490− Stream s m Char, UpdateSourcePos s Char)
1399+smartPunctuation :: (HasReaderOptions st, HasLastStrPosition st, HasQuoteContext st m, Stream s m Char)
14911400 => ParserT s st m Inlines
14921401 -> ParserT s st m Inlines
14931402smartPunctuation inlineParser = do
14941403 guardEnabled Ext_smart
1495− choice [ quoted inlineParser, apostrophe, doubleCloseQuote, dash, ellipses ]
1404+ choice [ quoted inlineParser, apostrophe, dash, ellipses ]
14961405
1497−quoted :: (HasLastStrPosition st, HasQuoteContext st m,
1498− Stream s m Char, UpdateSourcePos s Char)
1406+apostrophe :: Stream s m Char => ParserT s st m Inlines
1407+apostrophe = (char '\'' <|> char '\8217') >> return (B.str "\x2019")
1408+
1409+quoted :: (HasLastStrPosition st, HasQuoteContext st m, Stream s m Char)
14991410 => ParserT s st m Inlines
15001411 -> ParserT s st m Inlines
15011412quoted inlineParser = doubleQuoted inlineParser <|> singleQuoted inlineParser
15021413
1503−singleQuoted :: (HasLastStrPosition st, HasQuoteContext st m,
1504− Stream s m Char, UpdateSourcePos s Char)
1414+singleQuoted :: (HasLastStrPosition st, HasQuoteContext st m, Stream s m Char)
15051415 => ParserT s st m Inlines
15061416 -> ParserT s st m Inlines
1507−singleQuoted inlineParser = do
1508− singleQuoteStart
1509− (B.singleQuoted . mconcat <$>
1510− try
1511− (withQuoteContext InSingleQuote (many1Till inlineParser singleQuoteEnd)))
1512− <|> pure "\8217"
1513−
1514−doubleQuoted :: (HasQuoteContext st m, HasLastStrPosition st,
1515− Stream s m Char, UpdateSourcePos s Char)
1417+singleQuoted inlineParser = try $ B.singleQuoted . mconcat
1418+ <$ singleQuoteStart
1419+ <*> withQuoteContext InSingleQuote (many1Till inlineParser singleQuoteEnd)
1420+
1421+doubleQuoted :: (HasQuoteContext st m, Stream s m Char)
15161422 => ParserT s st m Inlines
15171423 -> ParserT s st m Inlines
1518−doubleQuoted inlineParser = do
1519− doubleQuoteStart
1520− (B.doubleQuoted . mconcat <$>
1521− try
1522− (withQuoteContext InDoubleQuote (manyTill inlineParser doubleQuoteEnd)))
1523− <|> pure (B.str "\8220")
1424+doubleQuoted inlineParser = try $ B.doubleQuoted . mconcat
1425+ <$ doubleQuoteStart
1426+ <*> withQuoteContext InDoubleQuote (manyTill inlineParser doubleQuoteEnd)
15241427
15251428failIfInQuoteContext :: (HasQuoteContext st m, Stream s m t)
15261429 => QuoteContext
@@ -1529,14 +1432,13 @@ failIfInQuoteContext context = do
15291432 context' <- getQuoteContext
15301433 when (context' == context) $ Prelude.fail "already inside quotes"
15311434
1532−charOrRef :: (Stream s m Char, UpdateSourcePos s Char) => [Char] -> ParserT s st m Char
1435+charOrRef :: Stream s m Char => [Char] -> ParserT s st m Char
15331436charOrRef cs =
15341437 oneOf cs <|> try (do c <- characterReference
15351438 guard (c `elem` cs)
15361439 return c)
15371440
1538−singleQuoteStart :: (HasLastStrPosition st, HasQuoteContext st m,
1539− Stream s m Char, UpdateSourcePos s Char)
1441+singleQuoteStart :: (HasLastStrPosition st, HasQuoteContext st m, Stream s m Char)
15401442 => ParserT s st m ()
15411443singleQuoteStart = do
15421444 failIfInQuoteContext InSingleQuote
@@ -1544,39 +1446,30 @@ singleQuoteStart = do
15441446 guard =<< notAfterString
15451447 try $ do
15461448 charOrRef "'\8216\145"
1547− void $ lookAhead (satisfy (not . isSpaceChar))
1449+ notFollowedBy (oneOf [' ', '\t', '\n'])
15481450
1549−singleQuoteEnd :: (Stream s m Char, UpdateSourcePos s Char)
1451+singleQuoteEnd :: Stream s m Char
15501452 => ParserT s st m ()
15511453singleQuoteEnd = try $ do
15521454 charOrRef "'\8217\146"
15531455 notFollowedBy alphaNum
15541456
1555−doubleQuoteStart :: (HasLastStrPosition st,
1556− HasQuoteContext st m,
1557− Stream s m Char, UpdateSourcePos s Char)
1457+doubleQuoteStart :: (HasQuoteContext st m, Stream s m Char)
15581458 => ParserT s st m ()
15591459doubleQuoteStart = do
15601460 failIfInQuoteContext InDoubleQuote
1561− guard =<< notAfterString
15621461 try $ do charOrRef "\"\8220\147"
1563− void $ lookAhead (satisfy (not . isSpaceChar))
1462+ notFollowedBy (oneOf [' ', '\t', '\n'])
15641463
1565−doubleQuoteEnd :: (Stream s m Char, UpdateSourcePos s Char)
1464+doubleQuoteEnd :: Stream s m Char
15661465 => ParserT s st m ()
15671466doubleQuoteEnd = void (charOrRef "\"\8221\148")
15681467
1569−apostrophe :: (Stream s m Char, UpdateSourcePos s Char) => ParserT s st m Inlines
1570−apostrophe = (char '\'' <|> char '\8217') >> return (B.str "\8217")
1571−
1572−doubleCloseQuote :: (Stream s m Char, UpdateSourcePos s Char) => ParserT s st m Inlines
1573−doubleCloseQuote = B.str "\8221" <$ char '"'
1574−
1575−ellipses :: (Stream s m Char, UpdateSourcePos s Char)
1468+ellipses :: Stream s m Char
15761469 => ParserT s st m Inlines
15771470ellipses = try (string "..." >> return (B.str "\8230"))
15781471
1579−dash :: (HasReaderOptions st, Stream s m Char, UpdateSourcePos s Char)
1472+dash :: (HasReaderOptions st, Stream s m Char)
15801473 => ParserT s st m Inlines
15811474dash = try $ do
15821475 oldDashes <- extensionEnabled Ext_old_dashes <$> getOption readerExtensions
@@ -1603,28 +1496,20 @@ nested p = do
16031496 updateState $ \st -> st{ stateMaxNestingLevel = nestlevel }
16041497 return res
16051498
1606−citeKey :: (Stream s m Char, UpdateSourcePos s Char, HasLastStrPosition st)
1607− => Bool -- ^ If True, allow expanded @{..} syntax.
1608− -> ParserT s st m (Bool, Text)
1609−citeKey allowBraced = try $ do
1499+citeKey :: (Stream s m Char, HasLastStrPosition st)
1500+ => ParserT s st m (Bool, Text)
1501+citeKey = try $ do
16101502 guard =<< notAfterString
16111503 suppress_author <- option False (True <$ char '-')
16121504 char '@'
1613− key <- simpleCiteIdentifier
1614− <|> if allowBraced
1615− then charsInBalanced '{' '}' (satisfy (not . isSpace))
1616− else mzero
1617− return (suppress_author, key)
1618−
1619−simpleCiteIdentifier :: (Stream s m Char, UpdateSourcePos s Char)
1620− => ParserT s st m Text
1621−simpleCiteIdentifier = do
16221505 firstChar <- alphaNum <|> char '_' <|> char '*' -- @* for wildcard in nocite
16231506 let regchar = satisfy (\c -> isAlphaNum c || c == '_')
16241507 let internal p = try $ p <* lookAhead regchar
16251508 rest <- many $ regchar <|> internal (oneOf ":.#$%&-+?<>~/") <|>
16261509 try (oneOf ":/" <* lookAhead (char '/'))
1627− return $ T.pack $ firstChar:rest
1510+ let key = firstChar:rest
1511+ return (suppress_author, T.pack key)
1512+
16281513
16291514token :: (Stream s m t)
16301515 => (t -> Text)
@@ -1644,15 +1529,12 @@ extractIdClass (ident, cls, kvs) = (ident', cls', kvs')
16441529 cls' = maybe cls T.words $ lookup "class" kvs
16451530 kvs' = filter (\(k,_) -> k /= "id" || k /= "class") kvs
16461531
1647−insertIncludedFile :: (PandocMonad m, HasIncludeFiles st)
1648− => ParserT a st m b -- ^ parser to apply
1649− -> (Text -> a) -- ^ convert Text to stream type
1650− -> [FilePath] -- ^ search path (directories)
1651− -> FilePath -- ^ path of file to include
1652− -> Maybe Int -- ^ start line (negative counts from end)
1653− -> Maybe Int -- ^ end line (negative counts from end)
1654− -> ParserT a st m b
1655−insertIncludedFile parser toStream dirs f mbstartline mbendline = do
1532+insertIncludedFile' :: (PandocMonad m, HasIncludeFiles st)
1533+ => ParserT a st m (mf Blocks)
1534+ -> (Text -> a)
1535+ -> [FilePath] -> FilePath
1536+ -> ParserT a st m (mf Blocks)
1537+insertIncludedFile' blocks totoks dirs f = do
16561538 oldPos <- getPosition
16571539 oldInput <- getInput
16581540 containers <- getIncludeFiles <$> getState
@@ -1661,32 +1543,32 @@ insertIncludedFile parser toStream dirs f mbstartline mbendline = do
16611543 updateState $ addIncludeFile $ T.pack f
16621544 mbcontents <- readFileFromDirs dirs f
16631545 contents <- case mbcontents of
1664− Just s -> return $ exciseLines mbstartline mbendline s
1546+ Just s -> return s
16651547 Nothing -> do
16661548 report $ CouldNotLoadIncludeFile (T.pack f) oldPos
16671549 return ""
1668− setInput $ toStream contents
1669− setPosition $ newPos f (fromMaybe 1 mbstartline) 1
1670− result <- parser
1550+ setPosition $ newPos f 1 1
1551+ setInput $ totoks contents
1552+ bs <- blocks
16711553 setInput oldInput
16721554 setPosition oldPos
16731555 updateState dropLatestIncludeFile
1674− return result
1675−
1676−exciseLines :: Maybe Int -> Maybe Int -> Text -> Text
1677−exciseLines Nothing Nothing t = t
1678−exciseLines mbstartline mbendline t =
1679− T.unlines $ take (endline' - (startline' - 1))
1680− $ drop (startline' - 1) contentLines
1681− where
1682− contentLines = T.lines t
1683− numLines = length contentLines
1684− startline' = case mbstartline of
1685− Nothing -> 1
1686− Just x | x >= 0 -> x
1687− | otherwise -> numLines + x -- negative from end
1688− endline' = case mbendline of
1689− Nothing -> numLines
1690− Just x | x >= 0 -> x
1691− | otherwise -> numLines + x -- negative from end
1556+ return bs
16921557
1558+-- | Parse content of include file as blocks. Circular includes result in an
1559+-- @PandocParseError@.
1560+insertIncludedFile :: (PandocMonad m, HasIncludeFiles st)
1561+ => ParserT [a] st m Blocks
1562+ -> (Text -> [a])
1563+ -> [FilePath] -> FilePath
1564+ -> ParserT [a] st m Blocks
1565+insertIncludedFile blocks totoks dirs f =
1566+ runIdentity <$> insertIncludedFile' (Identity <$> blocks) totoks dirs f
1567+
1568+-- | Parse content of include file as future blocks. Circular includes result in
1569+-- an @PandocParseError@.
1570+insertIncludedFileF :: (PandocMonad m, HasIncludeFiles st)
1571+ => ParserT Text st m (Future st Blocks)
1572+ -> [FilePath] -> FilePath
1573+ -> ParserT Text st m (Future st Blocks)
1574+insertIncludedFileF p = insertIncludedFile' p id
src/Text/Pandoc/Readers.hs+48−55
@@ -1,5 +1,4 @@
11{-# LANGUAGE MonoLocalBinds #-}
2−{-# LANGUAGE RankNTypes #-}
32{-# LANGUAGE ScopedTypeVariables #-}
43{-# LANGUAGE OverloadedStrings #-}
54{- |
@@ -66,14 +65,12 @@ import Data.Aeson
6665import qualified Data.ByteString.Lazy as BL
6766import Data.Text (Text)
6867import qualified Data.Text as T
69−import Text.Pandoc.Shared (tshow)
7068import Text.Pandoc.Class
7169import Text.Pandoc.Definition
7270import Text.Pandoc.Error
7371import Text.Pandoc.Extensions
7472import Text.Pandoc.Options
7573import Text.Pandoc.Readers.CommonMark
76−import Text.Pandoc.Readers.Markdown
7774import Text.Pandoc.Readers.Creole
7875import Text.Pandoc.Readers.DocBook
7976import Text.Pandoc.Readers.Docx
@@ -86,6 +83,7 @@ import Text.Pandoc.Readers.HTML (readHtml)
8683import Text.Pandoc.Readers.JATS (readJATS)
8784import Text.Pandoc.Readers.Jira (readJira)
8885import Text.Pandoc.Readers.LaTeX
86+import Text.Pandoc.Readers.Markdown
8987import Text.Pandoc.Readers.MediaWiki
9088import Text.Pandoc.Readers.Muse
9189import Text.Pandoc.Readers.Native
@@ -103,60 +101,59 @@ import Text.Pandoc.Readers.CSV
103101import Text.Pandoc.Readers.CslJson
104102import Text.Pandoc.Readers.BibTeX
105103import qualified Text.Pandoc.UTF8 as UTF8
106−import Text.Pandoc.Sources (ToSources(..), sourcesToText)
104+import Text.Parsec.Error
107105
108−data Reader m = TextReader (forall a . ToSources a =>
109− ReaderOptions -> a -> m Pandoc)
106+data Reader m = TextReader (ReaderOptions -> Text -> m Pandoc)
110107 | ByteStringReader (ReaderOptions -> BL.ByteString -> m Pandoc)
111108
112109-- | Association list of formats and readers.
113110readers :: PandocMonad m => [(Text, Reader m)]
114−readers = [("native" , TextReader readNative)
115− ,("json" , TextReader readJSON)
116− ,("markdown" , TextReader readMarkdown)
117− ,("markdown_strict" , TextReader readMarkdown)
118− ,("markdown_phpextra" , TextReader readMarkdown)
119− ,("markdown_github" , TextReader readMarkdown)
120− ,("markdown_mmd", TextReader readMarkdown)
121− ,("commonmark" , TextReader readCommonMark)
122− ,("commonmark_x" , TextReader readCommonMark)
123− ,("creole" , TextReader readCreole)
124− ,("dokuwiki" , TextReader readDokuWiki)
125− ,("gfm" , TextReader readCommonMark)
126− ,("rst" , TextReader readRST)
127− ,("mediawiki" , TextReader readMediaWiki)
128− ,("vimwiki" , TextReader readVimwiki)
129− ,("docbook" , TextReader readDocBook)
130− ,("opml" , TextReader readOPML)
131− ,("org" , TextReader readOrg)
132− ,("textile" , TextReader readTextile) -- TODO : textile+lhs
133− ,("html" , TextReader readHtml)
134− ,("jats" , TextReader readJATS)
135− ,("jira" , TextReader readJira)
136− ,("latex" , TextReader readLaTeX)
137− ,("haddock" , TextReader readHaddock)
138− ,("twiki" , TextReader readTWiki)
139− ,("tikiwiki" , TextReader readTikiWiki)
140− ,("docx" , ByteStringReader readDocx)
141− ,("odt" , ByteStringReader readOdt)
142− ,("t2t" , TextReader readTxt2Tags)
143− ,("epub" , ByteStringReader readEPUB)
144− ,("muse" , TextReader readMuse)
145− ,("man" , TextReader readMan)
146− ,("fb2" , TextReader readFB2)
147− ,("ipynb" , TextReader readIpynb)
148− ,("csv" , TextReader readCSV)
149− ,("csljson" , TextReader readCslJson)
150− ,("bibtex" , TextReader readBibTeX)
151− ,("biblatex" , TextReader readBibLaTeX)
111+readers = [ ("native" , TextReader readNative)
112+ ,("json" , TextReader readJSON)
113+ ,("markdown" , TextReader readMarkdown)
114+ ,("markdown_strict" , TextReader readMarkdown)
115+ ,("markdown_phpextra" , TextReader readMarkdown)
116+ ,("markdown_github" , TextReader readMarkdown)
117+ ,("markdown_mmd", TextReader readMarkdown)
118+ ,("commonmark" , TextReader readCommonMark)
119+ ,("commonmark_x" , TextReader readCommonMark)
120+ ,("creole" , TextReader readCreole)
121+ ,("dokuwiki" , TextReader readDokuWiki)
122+ ,("gfm" , TextReader readCommonMark)
123+ ,("rst" , TextReader readRST)
124+ ,("mediawiki" , TextReader readMediaWiki)
125+ ,("vimwiki" , TextReader readVimwiki)
126+ ,("docbook" , TextReader readDocBook)
127+ ,("opml" , TextReader readOPML)
128+ ,("org" , TextReader readOrg)
129+ ,("textile" , TextReader readTextile) -- TODO : textile+lhs
130+ ,("html" , TextReader readHtml)
131+ ,("jats" , TextReader readJATS)
132+ ,("jira" , TextReader readJira)
133+ ,("latex" , TextReader readLaTeX)
134+ ,("haddock" , TextReader readHaddock)
135+ ,("twiki" , TextReader readTWiki)
136+ ,("tikiwiki" , TextReader readTikiWiki)
137+ ,("docx" , ByteStringReader readDocx)
138+ ,("odt" , ByteStringReader readOdt)
139+ ,("t2t" , TextReader readTxt2Tags)
140+ ,("epub" , ByteStringReader readEPUB)
141+ ,("muse" , TextReader readMuse)
142+ ,("man" , TextReader readMan)
143+ ,("fb2" , TextReader readFB2)
144+ ,("ipynb" , TextReader readIpynb)
145+ ,("csv" , TextReader readCSV)
146+ ,("csljson" , TextReader readCslJson)
147+ ,("bibtex" , TextReader readBibTeX)
148+ ,("biblatex" , TextReader readBibLaTeX)
152149 ]
153150
154151-- | Retrieve reader, extensions based on formatSpec (format+extensions).
155152getReader :: PandocMonad m => Text -> m (Reader m, Extensions)
156153getReader s =
157154 case parseFormatSpec s of
158− Left e -> throwError $ PandocAppError $
159− "Error parsing reader format " <> tshow s <> ": " <> tshow e
155+ Left e -> throwError $ PandocAppError
156+ $ T.intercalate "\n" [T.pack m | Message m <- errorMessages e]
160157 Right (readerName, extsToEnable, extsToDisable) ->
161158 case lookup readerName readers of
162159 Nothing -> throwError $ PandocUnknownReaderError
@@ -176,13 +173,9 @@ getReader s =
176173 return (r, exts)
177174
178175-- | Read pandoc document from JSON format.
179−readJSON :: (PandocMonad m, ToSources a)
180− => ReaderOptions
181− -> a
182− -> m Pandoc
183−readJSON _ s =
184− case eitherDecode' . BL.fromStrict . UTF8.fromText
185− . sourcesToText . toSources $ s of
176+readJSON :: PandocMonad m
177+ => ReaderOptions -> Text -> m Pandoc
178+readJSON _ t =
179+ case eitherDecode' . BL.fromStrict . UTF8.fromText $ t of
186180 Right doc -> return doc
187− Left e -> throwError $ PandocParseError ("JSON parse error: "
188− <> T.pack e)
181+ Left e -> throwError $ PandocParseError ("JSON parse error: " <> T.pack e)
src/Text/Pandoc/Readers/BibTeX.hs+8−14
@@ -23,47 +23,41 @@ where
2323import Text.Pandoc.Options
2424import Text.Pandoc.Definition
2525import Text.Pandoc.Builder (setMeta, cite, str)
26+import Data.Text (Text)
2627import Citeproc (Lang(..), parseLang)
2728import Citeproc.Locale (getLocale)
2829import Text.Pandoc.Error (PandocError(..))
2930import Text.Pandoc.Class (PandocMonad, lookupEnv)
3031import Text.Pandoc.Citeproc.BibTeX as BibTeX
3132import Text.Pandoc.Citeproc.MetaValue (referenceToMetaValue)
32−import Text.Pandoc.Sources (ToSources(..))
3333import Control.Monad.Except (throwError)
3434
3535-- | Read BibTeX from an input string and return a Pandoc document.
3636-- The document will have only metadata, with an empty body.
3737-- The metadata will contain a `references` field with the
3838-- bibliography entries, and a `nocite` field with the wildcard `[@*]`.
39−readBibTeX :: (PandocMonad m, ToSources a)
40− => ReaderOptions -> a -> m Pandoc
39+readBibTeX :: PandocMonad m => ReaderOptions -> Text -> m Pandoc
4140readBibTeX = readBibTeX' BibTeX.Bibtex
4241
4342-- | Read BibLaTeX from an input string and return a Pandoc document.
4443-- The document will have only metadata, with an empty body.
4544-- The metadata will contain a `references` field with the
4645-- bibliography entries, and a `nocite` field with the wildcard `[@*]`.
47−readBibLaTeX :: (PandocMonad m, ToSources a)
48− => ReaderOptions -> a -> m Pandoc
46+readBibLaTeX :: PandocMonad m => ReaderOptions -> Text -> m Pandoc
4947readBibLaTeX = readBibTeX' BibTeX.Biblatex
5048
51−readBibTeX' :: (PandocMonad m, ToSources a)
52− => Variant -> ReaderOptions -> a -> m Pandoc
49+readBibTeX' :: PandocMonad m => Variant -> ReaderOptions -> Text -> m Pandoc
5350readBibTeX' variant _opts t = do
54− mblangEnv <- lookupEnv "LANG"
55− let defaultLang = Lang "en" Nothing (Just "US") [] [] []
56− let lang = case mblangEnv of
57− Nothing -> defaultLang
58− Just l -> either (const defaultLang) id $ parseLang l
51+ lang <- maybe (Lang "en" (Just "US")) parseLang
52+ <$> lookupEnv "LANG"
5953 locale <- case getLocale lang of
6054 Left e ->
61− case getLocale (Lang "en" Nothing (Just "US") [] [] []) of
55+ case getLocale (Lang "en" (Just "US")) of
6256 Right l -> return l
6357 Left _ -> throwError $ PandocCiteprocError e
6458 Right l -> return l
6559 case BibTeX.readBibtexString variant locale (const True) t of
66− Left e -> throwError $ PandocParsecError (toSources t) e
60+ Left e -> throwError $ PandocParsecError t e
6761 Right refs -> return $ setMeta "references"
6862 (map referenceToMetaValue refs)
6963 . setMeta "nocite"
src/Text/Pandoc/Readers/CSV.hs+7−7
@@ -13,23 +13,23 @@
1313Conversion from CSV to a 'Pandoc' table.
1414-}
1515module Text.Pandoc.Readers.CSV ( readCSV ) where
16+import Data.Text (Text)
1617import qualified Data.Text as T
1718import Text.Pandoc.CSV (parseCSV, defaultCSVOptions)
1819import Text.Pandoc.Definition
1920import qualified Text.Pandoc.Builder as B
2021import Text.Pandoc.Class (PandocMonad)
22+import Text.Pandoc.Shared (crFilter)
2123import Text.Pandoc.Error
22−import Text.Pandoc.Sources (ToSources(..), sourcesToText)
2324import Text.Pandoc.Options (ReaderOptions)
2425import Control.Monad.Except (throwError)
2526
26−readCSV :: (PandocMonad m, ToSources a)
27+readCSV :: PandocMonad m
2728 => ReaderOptions -- ^ Reader options
28− -> a
29+ -> Text -- ^ Text to parse (assuming @'\n'@ line endings)
2930 -> m Pandoc
30−readCSV _opts s = do
31− let txt = sourcesToText $ toSources s
32− case parseCSV defaultCSVOptions txt of
31+readCSV _opts s =
32+ case parseCSV defaultCSVOptions (crFilter s) of
3333 Right (r:rs) -> return $ B.doc $ B.table capt
3434 (zip aligns widths)
3535 (TableHead nullAttr hdrs)
@@ -45,4 +45,4 @@ readCSV _opts s = do
4545 aligns = replicate numcols AlignDefault
4646 widths = replicate numcols ColWidthDefault
4747 Right [] -> return $ B.doc mempty
48− Left e -> throwError $ PandocParsecError (toSources [("",txt)]) e
48+ Left e -> throwError $ PandocParsecError s e
src/Text/Pandoc/Readers/CommonMark.hs+4−46
@@ -26,59 +26,19 @@ import Text.Pandoc.Definition
2626import Text.Pandoc.Builder as B
2727import Text.Pandoc.Options
2828import Text.Pandoc.Error
29−import Text.Pandoc.Readers.Metadata (yamlMetaBlock)
3029import Control.Monad.Except
3130import Data.Functor.Identity (runIdentity)
3231import Data.Typeable
33−import Text.Pandoc.Parsing (runParserT, getInput,
34− runF, defaultParserState, option, many1, anyChar,
35− Sources(..), ToSources(..), ParserT, Future,
36− sourceName)
37−import qualified Data.Text as T
3832
3933-- | Parse a CommonMark formatted string into a 'Pandoc' structure.
40−readCommonMark :: (PandocMonad m, ToSources a)
41− => ReaderOptions -> a -> m Pandoc
34+readCommonMark :: PandocMonad m => ReaderOptions -> Text -> m Pandoc
4235readCommonMark opts s
43− | isEnabled Ext_yaml_metadata_block opts = do
44− let sources = toSources s
45− let toks = concatMap sourceToToks (unSources sources)
46− res <- runParserT (do meta <- yamlMetaBlock (metaValueParser opts)
47− rest <- getInput
48− return (meta, rest))
49− defaultParserState "YAML metadata" (toSources s)
50− case res of
51− Left _ -> readCommonMarkBody opts sources toks
52− Right (meta, rest) -> do
53− -- strip off metadata section and parse body
54− let body = concatMap sourceToToks (unSources rest)
55− Pandoc _ bs <- readCommonMarkBody opts sources body
56− return $ Pandoc (runF meta defaultParserState) bs
57− | otherwise = do
58− let sources = toSources s
59− let toks = concatMap sourceToToks (unSources sources)
60− readCommonMarkBody opts sources toks
61−
62−sourceToToks :: (SourcePos, Text) -> [Tok]
63−sourceToToks (pos, s) = tokenize (sourceName pos) s
64−
65−metaValueParser :: Monad m
66− => ReaderOptions -> ParserT Sources st m (Future st MetaValue)
67−metaValueParser opts = do
68− inp <- option "" $ T.pack <$> many1 anyChar
69− let toks = concatMap sourceToToks (unSources (toSources inp))
70− case runIdentity (parseCommonmarkWith (specFor opts) toks) of
71− Left _ -> mzero
72− Right (Cm bls :: Cm () Blocks) -> return $ return $ B.toMetaValue bls
73−
74−readCommonMarkBody :: PandocMonad m => ReaderOptions -> Sources -> [Tok] -> m Pandoc
75−readCommonMarkBody opts s toks
7636 | isEnabled Ext_sourcepos opts =
77− case runIdentity (parseCommonmarkWith (specFor opts) toks) of
37+ case runIdentity (commonmarkWith (specFor opts) "" s) of
7838 Left err -> throwError $ PandocParsecError s err
7939 Right (Cm bls :: Cm SourceRange Blocks) -> return $ B.doc bls
8040 | otherwise =
81− case runIdentity (parseCommonmarkWith (specFor opts) toks) of
41+ case runIdentity (commonmarkWith (specFor opts) "" s) of
8242 Left err -> throwError $ PandocParsecError s err
8343 Right (Cm bls :: Cm () Blocks) -> return $ B.doc bls
8444
@@ -112,7 +72,5 @@ specFor opts = foldr ($) defaultSyntaxSpec exts
11272 | isEnabled Ext_implicit_header_references opts ] ++
11373 [ (footnoteSpec <>) | isEnabled Ext_footnotes opts ] ++
11474 [ (definitionListSpec <>) | isEnabled Ext_definition_lists opts ] ++
115− [ (taskListSpec <>) | isEnabled Ext_task_lists opts ] ++
116− [ (rebaseRelativePathsSpec <>)
117− | isEnabled Ext_rebase_relative_paths opts ]
75+ [ (taskListSpec <>) | isEnabled Ext_task_lists opts ]
11876
src/Text/Pandoc/Readers/Creole.hs+6−5
@@ -23,20 +23,21 @@ import Text.Pandoc.Class.PandocMonad (PandocMonad (..))
2323import Text.Pandoc.Definition
2424import Text.Pandoc.Options
2525import Text.Pandoc.Parsing hiding (enclosed)
26+import Text.Pandoc.Shared (crFilter)
27+
2628
2729-- | Read creole from an input string and return a Pandoc document.
28−readCreole :: (PandocMonad m, ToSources a)
30+readCreole :: PandocMonad m
2931 => ReaderOptions
30− -> a
32+ -> Text
3133 -> m Pandoc
3234readCreole opts s = do
33− let sources = ensureFinalNewlines 2 (toSources s)
34− res <- readWithM parseCreole def{ stateOptions = opts } sources
35+ res <- readWithM parseCreole def{ stateOptions = opts } $ crFilter s <> "\n\n"
3536 case res of
3637 Left e -> throwError e
3738 Right d -> return d
3839
39−type CRLParser = ParserT Sources ParserState
40+type CRLParser = ParserT Text ParserState
4041
4142--
4243-- Utility functions
src/Text/Pandoc/Readers/CslJson.hs+4−5
@@ -24,22 +24,21 @@ import Text.Pandoc.Options
2424import Text.Pandoc.Definition
2525import Text.Pandoc.Builder (setMeta, cite, str)
2626import qualified Text.Pandoc.UTF8 as UTF8
27+import Data.Text (Text)
2728import qualified Data.Text as T
2829import Text.Pandoc.Error (PandocError(..))
2930import Text.Pandoc.Class (PandocMonad)
3031import Text.Pandoc.Citeproc.CslJson (cslJsonToReferences)
3132import Text.Pandoc.Citeproc.MetaValue (referenceToMetaValue)
3233import Control.Monad.Except (throwError)
33−import Text.Pandoc.Sources (ToSources(..), sourcesToText)
3434
3535-- | Read CSL JSON from an input string and return a Pandoc document.
3636-- The document will have only metadata, with an empty body.
3737-- The metadata will contain a `references` field with the
3838-- bibliography entries, and a `nocite` field with the wildcard `[@*]`.
39−readCslJson :: (PandocMonad m, ToSources a)
40− => ReaderOptions -> a -> m Pandoc
41−readCslJson _opts x =
42− case cslJsonToReferences (UTF8.fromText $ sourcesToText $ toSources x) of
39+readCslJson :: PandocMonad m => ReaderOptions -> Text -> m Pandoc
40+readCslJson _opts t =
41+ case cslJsonToReferences (UTF8.fromText t) of
4342 Left e -> throwError $ PandocParseError $ T.pack e
4443 Right refs -> return $ setMeta "references"
4544 (map referenceToMetaValue refs)
src/Text/Pandoc/Readers/DocBook.hs+12−27
@@ -30,8 +30,7 @@ import Text.Pandoc.Builder
3030import Text.Pandoc.Class.PandocMonad (PandocMonad, report)
3131import Text.Pandoc.Options
3232import Text.Pandoc.Logging (LogMessage(..))
33−import Text.Pandoc.Shared (safeRead, extractSpaces)
34−import Text.Pandoc.Sources (ToSources(..), sourcesToText)
33+import Text.Pandoc.Shared (crFilter, safeRead, extractSpaces)
3534import Text.TeXMath (readMathML, writeTeX)
3635import Text.Pandoc.XML.Light
3736
@@ -134,7 +133,6 @@ List of all DocBook tags, with [x] indicating implemented,
134133[ ] corpcredit - A corporation or organization credited in a document
135134[ ] corpname - The name of a corporation
136135[ ] country - The name of a country
137−[x] danger - An admonition set off from the text indicating hazardous situation
138136[ ] database - The name of a database, or part of a database
139137[x] date - The date of publication or revision of a document
140138[ ] dedication - A wrapper for the dedication section of a book
@@ -541,15 +539,11 @@ instance Default DBState where
541539 , dbContent = [] }
542540
543541
544−readDocBook :: (PandocMonad m, ToSources a)
545− => ReaderOptions
546− -> a
547− -> m Pandoc
542+readDocBook :: PandocMonad m => ReaderOptions -> Text -> m Pandoc
548543readDocBook _ inp = do
549− let sources = toSources inp
550544 tree <- either (throwError . PandocXMLError "") return $
551545 parseXMLContents
552− (TL.fromStrict . handleInstructions . sourcesToText $ sources)
546+ (TL.fromStrict . handleInstructions $ crFilter inp)
553547 (bs, st') <- flip runStateT (def{ dbContent = tree }) $ mapM parseBlock tree
554548 return $ Pandoc (dbMeta st') (toList . mconcat $ bs)
555549
@@ -601,24 +595,16 @@ addMetadataFromElement e = do
601595 Nothing -> return ()
602596 Just z -> addMetaField "author" z
603597 addMetaField "subtitle" e
604− addAuthor e
598+ addMetaField "author" e
605599 addMetaField "date" e
606600 addMetaField "release" e
607601 addMetaField "releaseinfo" e
608602 return mempty
609− where
610− addAuthor elt =
611− case filterChildren (named "author") elt of
612− [] -> return ()
613− [z] -> fromAuthor z >>= addMeta "author"
614− zs -> mapM fromAuthor zs >>= addMeta "author"
615− fromAuthor elt =
616− mconcat . intersperse space <$> mapM getInlines (elChildren elt)
617− addMetaField fieldname elt =
618− case filterChildren (named fieldname) elt of
619− [] -> return ()
620− [z] -> getInlines z >>= addMeta fieldname
621− zs -> mapM getInlines zs >>= addMeta fieldname
603+ where addMetaField fieldname elt =
604+ case filterChildren (named fieldname) elt of
605+ [] -> return ()
606+ [z] -> getInlines z >>= addMeta fieldname
607+ zs -> mapM getInlines zs >>= addMeta fieldname
622608
623609addMeta :: PandocMonad m => ToMetaValue a => Text -> a -> DB m ()
624610addMeta field val = modify (setMeta field val)
@@ -719,7 +705,7 @@ blockTags =
719705 ] ++ admonitionTags
720706
721707admonitionTags :: [Text]
722−admonitionTags = ["caution","danger","important","note","tip","warning"]
708+admonitionTags = ["important","caution","note","tip","warning"]
723709
724710-- Trim leading and trailing newline characters
725711trimNl :: Text -> Text
@@ -1089,7 +1075,7 @@ parseInline (Elem e) =
10891075 return $ spanWith (attrValue "id" e, [], []) mempty
10901076 "phrase" -> do
10911077 let ident = attrValue "id" e
1092− let classes = T.words $ attrValue "role" e
1078+ let classes = T.words $ attrValue "class" e
10931079 if ident /= "" || classes /= []
10941080 then innerInlines (spanWith (ident,classes,[]))
10951081 else innerInlines id
@@ -1253,8 +1239,7 @@ equation e constructor =
12531239 where
12541240 mathMLEquations :: [Text]
12551241 mathMLEquations = map writeTeX $ rights $ readMath
1256− (\x -> qName (elName x) == "math" &&
1257− qURI (elName x) == Just "http://www.w3.org/1998/Math/MathML")
1242+ (\x -> qName (elName x) == "math" && qPrefix (elName x) == Just "mml")
12581243 (readMathML . showElement)
12591244
12601245 latexEquations :: [Text]
src/Text/Pandoc/Readers/Docx.hs+37−58
@@ -61,14 +61,13 @@ module Text.Pandoc.Readers.Docx
6161import Codec.Archive.Zip
6262import Control.Monad.Reader
6363import Control.Monad.State.Strict
64−import Data.Bifunctor (bimap, first)
6564import qualified Data.ByteString.Lazy as B
6665import Data.Default (Default)
67−import Data.List (delete, intersect, foldl')
66+import Data.List (delete, intersect)
6867import Data.Char (isSpace)
6968import qualified Data.Map as M
7069import qualified Data.Text as T
71−import Data.Maybe (catMaybes, isJust, fromMaybe)
70+import Data.Maybe (isJust, fromMaybe)
7271import Data.Sequence (ViewL (..), viewl)
7372import qualified Data.Sequence as Seq
7473import qualified Data.Set as Set
@@ -114,7 +113,6 @@ data DState = DState { docxAnchorMap :: M.Map T.Text T.Text
114113 -- restarting
115114 , docxListState :: M.Map (T.Text, T.Text) Integer
116115 , docxPrevPara :: Inlines
117− , docxTableCaptions :: [Blocks]
118116 }
119117
120118instance Default DState where
@@ -125,7 +123,6 @@ instance Default DState where
125123 , docxDropCap = mempty
126124 , docxListState = M.empty
127125 , docxPrevPara = mempty
128− , docxTableCaptions = []
129126 }
130127
131128data DEnv = DEnv { docxOptions :: ReaderOptions
@@ -494,32 +491,15 @@ singleParaToPlain blks
494491 singleton $ Plain ils
495492singleParaToPlain blks = blks
496493
497−cellToCell :: PandocMonad m => RowSpan -> Docx.Cell -> DocxContext m Pandoc.Cell
498−cellToCell rowSpan (Docx.Cell gridSpan _ bps) = do
494+cellToBlocks :: PandocMonad m => Docx.Cell -> DocxContext m Blocks
495+cellToBlocks (Docx.Cell bps) = do
499496 blks <- smushBlocks <$> mapM bodyPartToBlocks bps
500− let blks' = singleParaToPlain $ fromList $ blocksToDefinitions $ blocksToBullets $ toList blks
501− return (cell AlignDefault rowSpan (ColSpan (fromIntegral gridSpan)) blks')
502−
503−rowsToRows :: PandocMonad m => [Docx.Row] -> DocxContext m [Pandoc.Row]
504−rowsToRows rows = do
505− let rowspans = (fmap . fmap) (first RowSpan) (Docx.rowsToRowspans rows)
506− cells <- traverse (traverse (uncurry cellToCell)) rowspans
507− return (fmap (Pandoc.Row nullAttr) cells)
508−
509−splitHeaderRows :: Bool -> [Docx.Row] -> ([Docx.Row], [Docx.Row])
510−splitHeaderRows hasFirstRowFormatting rs = bimap reverse reverse $ fst
511− $ if hasFirstRowFormatting
512− then foldl' f ((take 1 rs, []), True) (drop 1 rs)
513− else foldl' f (([], []), False) rs
514− where
515− f ((headerRows, bodyRows), previousRowWasHeader) r@(Docx.Row h cs)
516− | h == HasTblHeader || (previousRowWasHeader && any isContinuationCell cs)
517− = ((r : headerRows, bodyRows), True)
518− | otherwise
519− = ((headerRows, r : bodyRows), False)
520−
521− isContinuationCell (Docx.Cell _ vm _) = vm == Docx.Continue
497+ return $ fromList $ blocksToDefinitions $ blocksToBullets $ toList blks
522498
499+rowToBlocksList :: PandocMonad m => Docx.Row -> DocxContext m [Blocks]
500+rowToBlocksList (Docx.Row cells) = do
501+ blksList <- mapM cellToBlocks cells
502+ return $ map singleParaToPlain blksList
523503
524504-- like trimInlines, but also take out linebreaks
525505trimSps :: Inlines -> Inlines
@@ -566,11 +546,6 @@ normalizeToClassName = T.map go . fromStyleName
566546 where go c | isSpace c = '-'
567547 | otherwise = c
568548
569−bodyPartToTableCaption :: PandocMonad m => BodyPart -> DocxContext m (Maybe Blocks)
570−bodyPartToTableCaption (TblCaption pPr parparts) =
571− Just <$> bodyPartToBlocks (Paragraph pPr parparts)
572−bodyPartToTableCaption _ = pure Nothing
573−
574549bodyPartToBlocks :: PandocMonad m => BodyPart -> DocxContext m Blocks
575550bodyPartToBlocks (Paragraph pPr parparts)
576551 | Just True <- pBidi pPr = do
@@ -662,43 +637,49 @@ bodyPartToBlocks (ListItem pPr _ _ _ parparts) =
662637 let pPr' = pPr {pStyle = constructBogusParStyleData "list-paragraph": pStyle pPr}
663638 in
664639 bodyPartToBlocks $ Paragraph pPr' parparts
665−bodyPartToBlocks (TblCaption _ _) =
666− return $ para mempty -- collected separately
667640bodyPartToBlocks (Tbl _ _ _ []) =
668641 return $ para mempty
669−bodyPartToBlocks (Tbl cap grid look parts) = do
670− captions <- gets docxTableCaptions
671− fullCaption <- case captions of
672− c : cs -> do
673− modify (\s -> s { docxTableCaptions = cs })
674− return c
675− [] -> return $ if T.null cap then mempty else plain (text cap)
676− let shortCaption = if T.null cap then Nothing else Just (toList (text cap))
677− cap' = caption shortCaption fullCaption
678− (hdr, rows) = splitHeaderRows (firstRowFormatting look) parts
642+bodyPartToBlocks (Tbl cap _ look parts@(r:rs)) = do
643+ let cap' = simpleCaption $ plain $ text cap
644+ (hdr, rows) = case firstRowFormatting look of
645+ True | null rs -> (Nothing, [r])
646+ | otherwise -> (Just r, rs)
647+ False -> (Nothing, r:rs)
648+
649+ cells <- mapM rowToBlocksList rows
679650
680651 let width = maybe 0 maximum $ nonEmpty $ map rowLength parts
681652 rowLength :: Docx.Row -> Int
682− rowLength (Docx.Row _ c) = sum (fmap (\(Docx.Cell gridSpan _ _) -> fromIntegral gridSpan) c)
653+ rowLength (Docx.Row c) = length c
683654
684− headerCells <- rowsToRows hdr
685− bodyCells <- rowsToRows rows
655+ let toRow = Pandoc.Row nullAttr . map simpleCell
656+ toHeaderRow l = [toRow l | not (null l)]
686657
687− -- Horizontal column alignment goes to the default at the moment. Getting
688− -- it might be difficult, since there doesn't seem to be a column entity
689− -- in docx.
658+ -- pad cells. New Text.Pandoc.Builder will do that for us,
659+ -- so this is for compatibility while we switch over.
660+ let cells' = map (\row -> toRow $ take width (row ++ repeat mempty)) cells
661+
662+ hdrCells <- case hdr of
663+ Just r' -> toHeaderRow <$> rowToBlocksList r'
664+ Nothing -> return []
665+
666+ -- The two following variables (horizontal column alignment and
667+ -- relative column widths) go to the default at the
668+ -- moment. Width information is in the TblGrid field of the Tbl,
669+ -- so should be possible. Alignment might be more difficult,
670+ -- since there doesn't seem to be a column entity in docx.
690671 let alignments = replicate width AlignDefault
691− totalWidth = sum grid
692− widths = (\w -> ColWidth (fromInteger w / fromInteger totalWidth)) <$> grid
672+ widths = replicate width ColWidthDefault
693673
694674 return $ table cap'
695675 (zip alignments widths)
696− (TableHead nullAttr headerCells)
697− [TableBody nullAttr 0 [] bodyCells]
676+ (TableHead nullAttr hdrCells)
677+ [TableBody nullAttr 0 [] cells']
698678 (TableFoot nullAttr [])
699679bodyPartToBlocks (OMathPara e) =
700680 return $ para $ displayMath (writeTeX e)
701681
682+
702683-- replace targets with generated anchors.
703684rewriteLink' :: PandocMonad m => Inline -> DocxContext m Inline
704685rewriteLink' l@(Link attr ils (T.uncons -> Just ('#',target), title)) = do
@@ -734,8 +715,6 @@ bodyToOutput :: PandocMonad m => Body -> DocxContext m (Meta, [Block])
734715bodyToOutput (Body bps) = do
735716 let (metabps, blkbps) = sepBodyParts bps
736717 meta <- bodyPartsToMeta metabps
737− captions <- catMaybes <$> mapM bodyPartToTableCaption blkbps
738− modify (\s -> s { docxTableCaptions = captions })
739718 blks <- smushBlocks <$> mapM bodyPartToBlocks blkbps
740719 blks' <- rewriteLinks $ blocksToDefinitions $ blocksToBullets $ toList blks
741720 blks'' <- removeOrphanAnchors blks'
src/Text/Pandoc/Readers/Docx/Combine.hs+3−3
@@ -61,7 +61,7 @@ import Data.List
6161import Data.Bifunctor
6262import Data.Sequence ( ViewL (..), ViewR (..), viewl, viewr, spanr, spanl
6363 , (><), (|>) )
64−import Text.Pandoc.Builder as B
64+import Text.Pandoc.Builder
6565
6666data Modifier a = Modifier (a -> a)
6767 | AttrModifier (Attr -> a -> a) Attr
@@ -116,12 +116,12 @@ ilModifierAndInnards ils = case viewl $ unMany ils of
116116
117117inlinesL :: Inlines -> (Inlines, Inlines)
118118inlinesL ils = case viewl $ unMany ils of
119− (s :< sq) -> (B.singleton s, Many sq)
119+ (s :< sq) -> (singleton s, Many sq)
120120 _ -> (mempty, ils)
121121
122122inlinesR :: Inlines -> (Inlines, Inlines)
123123inlinesR ils = case viewr $ unMany ils of
124− (sq :> s) -> (Many sq, B.singleton s)
124+ (sq :> s) -> (Many sq, singleton s)
125125 _ -> (ils, mempty)
126126
127127combineInlines :: Inlines -> Inlines -> Inlines
src/Text/Pandoc/Readers/Docx/Parse.hs+21−121
@@ -33,9 +33,7 @@ module Text.Pandoc.Readers.Docx.Parse ( Docx(..)
3333 , ParStyle
3434 , CharStyle(cStyleData)
3535 , Row(..)
36− , TblHeader(..)
3736 , Cell(..)
38− , VMerge(..)
3937 , TrackedChange(..)
4038 , ChangeType(..)
4139 , ChangeInfo(..)
@@ -52,7 +50,6 @@ module Text.Pandoc.Readers.Docx.Parse ( Docx(..)
5250 , pHeading
5351 , constructBogusParStyleData
5452 , leftBiasedMergeRunStyle
55− , rowsToRowspans
5653 ) where
5754import Text.Pandoc.Readers.Docx.Parse.Styles
5855import Codec.Archive.Zip
@@ -228,7 +225,6 @@ defaultParagraphStyle = ParagraphStyle { pStyle = []
228225data BodyPart = Paragraph ParagraphStyle [ParPart]
229226 | ListItem ParagraphStyle T.Text T.Text (Maybe Level) [ParPart]
230227 | Tbl T.Text TblGrid TblLook [Row]
231− | TblCaption ParagraphStyle [ParPart]
232228 | OMathPara [Exp]
233229 deriving Show
234230
@@ -240,61 +236,12 @@ newtype TblLook = TblLook {firstRowFormatting::Bool}
240236defaultTblLook :: TblLook
241237defaultTblLook = TblLook{firstRowFormatting = False}
242238
243−data Row = Row TblHeader [Cell] deriving Show
244−
245−data TblHeader = HasTblHeader | NoTblHeader deriving (Show, Eq)
239+newtype Row = Row [Cell]
240+ deriving Show
246241
247−data Cell = Cell GridSpan VMerge [BodyPart]
242+newtype Cell = Cell [BodyPart]
248243 deriving Show
249244
250−type GridSpan = Integer
251−
252−data VMerge = Continue
253− -- ^ This cell should be merged with the one above it
254− | Restart
255− -- ^ This cell should not be merged with the one above it
256− deriving (Show, Eq)
257−
258−rowsToRowspans :: [Row] -> [[(Int, Cell)]]
259−rowsToRowspans rows = let
260− removeMergedCells = fmap (filter (\(_, Cell _ vmerge _) -> vmerge == Restart))
261− in removeMergedCells (foldr f [] rows)
262− where
263− f :: Row -> [[(Int, Cell)]] -> [[(Int, Cell)]]
264− f (Row _ cells) acc = let
265− spans = g cells Nothing (listToMaybe acc)
266− in spans : acc
267−
268− g ::
269− -- | The current row
270− [Cell] ->
271− -- | Number of columns left below
272− Maybe Integer ->
273− -- | (rowspan so far, cell) for the row below this one
274− Maybe [(Int, Cell)] ->
275− -- | (rowspan so far, cell) for this row
276− [(Int, Cell)]
277− g cells _ Nothing = zip (repeat 1) cells
278− g cells columnsLeftBelow (Just rowBelow) =
279− case cells of
280− [] -> []
281− thisCell@(Cell thisGridSpan _ _) : restOfRow -> case rowBelow of
282− [] -> zip (repeat 1) cells
283− (spanSoFarBelow, Cell gridSpanBelow vmerge _) : _ ->
284− let spanSoFar = case vmerge of
285− Restart -> 1
286− Continue -> 1 + spanSoFarBelow
287− columnsToDrop = thisGridSpan + (gridSpanBelow - fromMaybe gridSpanBelow columnsLeftBelow)
288− (newColumnsLeftBelow, restOfRowBelow) = dropColumns columnsToDrop rowBelow
289− in (spanSoFar, thisCell) : g restOfRow (Just newColumnsLeftBelow) (Just restOfRowBelow)
290−
291− dropColumns :: Integer -> [(a, Cell)] -> (Integer, [(a, Cell)])
292− dropColumns n [] = (n, [])
293− dropColumns n cells@((_, Cell gridSpan _ _) : otherCells) =
294− if n < gridSpan
295− then (gridSpan - n, cells)
296− else dropColumns (n - gridSpan) otherCells
297−
298245leftBiasedMergeRunStyle :: RunStyle -> RunStyle -> RunStyle
299246leftBiasedMergeRunStyle a b = RunStyle
300247 { isBold = isBold a <|> isBold b
@@ -479,26 +426,20 @@ filePathToRelType path docXmlPath =
479426 then Just InDocument
480427 else Nothing
481428
482−relElemToRelationship :: FilePath -> DocumentLocation -> Element
483− -> Maybe Relationship
484−relElemToRelationship fp relType element | qName (elName element) == "Relationship" =
429+relElemToRelationship :: DocumentLocation -> Element -> Maybe Relationship
430+relElemToRelationship relType element | qName (elName element) == "Relationship" =
485431 do
486432 relId <- findAttr (QName "Id" Nothing Nothing) element
487433 target <- findAttr (QName "Target" Nothing Nothing) element
488− -- target may be relative (media/image1.jpeg) or absolute
489− -- (/word/media/image1.jpeg); we need to relativize it (see #7374)
490− let frontOfFp = T.pack $ takeWhile (/= '_') fp
491− let target' = fromMaybe target $
492− T.stripPrefix frontOfFp $ T.dropWhile (== '/') target
493− return $ Relationship relType relId target'
494−relElemToRelationship _ _ _ = Nothing
434+ return $ Relationship relType relId target
435+relElemToRelationship _ _ = Nothing
495436
496437filePathToRelationships :: Archive -> FilePath -> FilePath -> [Relationship]
497438filePathToRelationships ar docXmlPath fp
498439 | Just relType <- filePathToRelType fp docXmlPath
499440 , Just entry <- findEntryByPath fp ar
500441 , Just relElems <- parseXMLFromEntry entry =
501− mapMaybe (relElemToRelationship fp relType) $ elChildren relElems
442+ mapMaybe (relElemToRelationship relType) $ elChildren relElems
502443filePathToRelationships _ _ _ = []
503444
504445archiveToRelationships :: Archive -> FilePath -> [Relationship]
@@ -622,7 +563,7 @@ elemToTblGrid :: NameSpaces -> Element -> D TblGrid
622563elemToTblGrid ns element | isElem ns "w" "tblGrid" element =
623564 let cols = findChildrenByName ns "w" "gridCol" element
624565 in
625− mapD (\e -> maybeToD (findAttrByName ns "w" "w" e >>= stringToInteger))
566+ mapD (\e -> maybeToD (findAttrByName ns "w" "val" e >>= stringToInteger))
626567 cols
627568elemToTblGrid _ _ = throwError WrongElem
628569
@@ -646,31 +587,14 @@ elemToRow ns element | isElem ns "w" "tr" element =
646587 do
647588 let cellElems = findChildrenByName ns "w" "tc" element
648589 cells <- mapD (elemToCell ns) cellElems
649− let hasTblHeader = maybe NoTblHeader (const HasTblHeader)
650− (findChildByName ns "w" "trPr" element
651− >>= findChildByName ns "w" "tblHeader")
652− return $ Row hasTblHeader cells
590+ return $ Row cells
653591elemToRow _ _ = throwError WrongElem
654592
655593elemToCell :: NameSpaces -> Element -> D Cell
656594elemToCell ns element | isElem ns "w" "tc" element =
657595 do
658− let properties = findChildByName ns "w" "tcPr" element
659− let gridSpan = properties
660− >>= findChildByName ns "w" "gridSpan"
661− >>= findAttrByName ns "w" "val"
662− >>= stringToInteger
663− let vMerge = case properties >>= findChildByName ns "w" "vMerge" of
664− Nothing -> Restart
665− Just e ->
666− fromMaybe Continue $ do
667− s <- findAttrByName ns "w" "val" e
668− case s of
669− "continue" -> Just Continue
670− "restart" -> Just Restart
671− _ -> Nothing
672596 cellContents <- mapD (elemToBodyPart ns) (elChildren element)
673− return $ Cell (fromMaybe 1 gridSpan) vMerge cellContents
597+ return $ Cell cellContents
674598elemToCell _ _ = throwError WrongElem
675599
676600elemToParIndentation :: NameSpaces -> Element -> Maybe ParIndentation
@@ -702,9 +626,10 @@ pNumInfo = getParStyleField numInfo . pStyle
702626elemToBodyPart :: NameSpaces -> Element -> D BodyPart
703627elemToBodyPart ns element
704628 | isElem ns "w" "p" element
705− , (c:_) <- findChildrenByName ns "m" "oMathPara" element = do
706− expsLst <- eitherToD $ readOMML $ showElement c
707− return $ OMathPara expsLst
629+ , (c:_) <- findChildrenByName ns "m" "oMathPara" element =
630+ do
631+ expsLst <- eitherToD $ readOMML $ showElement c
632+ return $ OMathPara expsLst
708633elemToBodyPart ns element
709634 | isElem ns "w" "p" element
710635 , Just (numId, lvl) <- getNumInfo ns element = do
@@ -722,31 +647,13 @@ elemToBodyPart ns element
722647 Nothing | Just (numId, lvl) <- pNumInfo parstyle -> do
723648 levelInfo <- lookupLevel numId lvl <$> asks envNumbering
724649 return $ ListItem parstyle numId lvl levelInfo parparts
725− _ -> let
726− hasCaptionStyle = elem "Caption" (pStyleId <$> pStyle parstyle)
727−
728− hasSimpleTableField = fromMaybe False $ do
729− fldSimple <- findChildByName ns "w" "fldSimple" element
730− instr <- findAttrByName ns "w" "instr" fldSimple
731− pure ("Table" `elem` T.words instr)
732−
733− hasComplexTableField = fromMaybe False $ do
734− instrText <- findElementByName ns "w" "instrText" element
735− pure ("Table" `elem` T.words (strContent instrText))
736−
737− in if hasCaptionStyle && (hasSimpleTableField || hasComplexTableField)
738− then return $ TblCaption parstyle parparts
739− else return $ Paragraph parstyle parparts
740−
650+ _ -> return $ Paragraph parstyle parparts
741651elemToBodyPart ns element
742652 | isElem ns "w" "tbl" element = do
743− let tblProperties = findChildByName ns "w" "tblPr" element
744− caption = fromMaybe "" $ tblProperties
653+ let caption' = findChildByName ns "w" "tblPr" element
745654 >>= findChildByName ns "w" "tblCaption"
746655 >>= findAttrByName ns "w" "val"
747− description = fromMaybe "" $ tblProperties
748− >>= findChildByName ns "w" "tblDescription"
749− >>= findAttrByName ns "w" "val"
656+ caption = fromMaybe "" caption'
750657 grid' = case findChildByName ns "w" "tblGrid" element of
751658 Just g -> elemToTblGrid ns g
752659 Nothing -> return []
@@ -759,7 +666,7 @@ elemToBodyPart ns element
759666 grid <- grid'
760667 tblLook <- tblLook'
761668 rows <- mapD (elemToRow ns) (elChildren element)
762− return $ Tbl (caption <> description) grid tblLook rows
669+ return $ Tbl caption grid tblLook rows
763670elemToBodyPart _ _ = throwError WrongElem
764671
765672lookupRelationship :: DocumentLocation -> RelId -> [Relationship] -> Maybe Target
@@ -802,8 +709,7 @@ elemToParPart ns element
802709 case drawing of
803710 Just s -> expandDrawingId s >>= (\(fp, bs) -> return $ Drawing fp title alt bs $ elemToExtent drawingElem)
804711 Nothing -> throwError WrongElem
805−-- The two cases below are an attempt to deal with images in deprecated vml format.
806−-- Todo: check out title and attr for deprecated format.
712+-- The below is an attempt to deal with images in deprecated vml format.
807713elemToParPart ns element
808714 | isElem ns "w" "r" element
809715 , Just _ <- findChildByName ns "w" "pict" element =
@@ -811,15 +717,9 @@ elemToParPart ns element
811717 >>= findAttrByName ns "r" "id"
812718 in
813719 case drawing of
720+ -- Todo: check out title and attr for deprecated format.
814721 Just s -> expandDrawingId s >>= (\(fp, bs) -> return $ Drawing fp "" "" bs Nothing)
815722 Nothing -> throwError WrongElem
816−elemToParPart ns element
817− | isElem ns "w" "r" element
818− , Just objectElem <- findChildByName ns "w" "object" element
819− , Just shapeElem <- findChildByName ns "v" "shape" objectElem
820− , Just imagedataElem <- findChildByName ns "v" "imagedata" shapeElem
821− , Just drawingId <- findAttrByName ns "r" "id" imagedataElem
822− = expandDrawingId drawingId >>= (\(fp, bs) -> return $ Drawing fp "" "" bs Nothing)
823723-- Chart
824724elemToParPart ns element
825725 | isElem ns "w" "r" element
src/Text/Pandoc/Readers/Docx/Util.hs−7
@@ -19,7 +19,6 @@ module Text.Pandoc.Readers.Docx.Util (
1919 , elemToNameSpaces
2020 , findChildByName
2121 , findChildrenByName
22− , findElementByName
2322 , findAttrByName
2423 ) where
2524
@@ -57,12 +56,6 @@ findChildrenByName ns pref name el =
5756 let ns' = ns <> elemToNameSpaces el
5857 in findChildren (elemName ns' pref name) el
5958
60−-- | Like 'findChildrenByName', but searches descendants.
61−findElementByName :: NameSpaces -> Text -> Text -> Element -> Maybe Element
62−findElementByName ns pref name el =
63− let ns' = ns <> elemToNameSpaces el
64− in findElement (elemName ns' pref name) el
65−
6659findAttrByName :: NameSpaces -> Text -> Text -> Element -> Maybe Text
6760findAttrByName ns pref name el =
6861 let ns' = ns <> elemToNameSpaces el
src/Text/Pandoc/Readers/DokuWiki.hs+8−9
@@ -29,27 +29,26 @@ import Text.Pandoc.Definition
2929import Text.Pandoc.Error (PandocError (PandocParsecError))
3030import Text.Pandoc.Options
3131import Text.Pandoc.Parsing hiding (enclosed, nested)
32−import Text.Pandoc.Shared (trim, stringify, tshow)
32+import Text.Pandoc.Shared (crFilter, trim, stringify, tshow)
3333
3434-- | Read DokuWiki from an input string and return a Pandoc document.
35−readDokuWiki :: (PandocMonad m, ToSources a)
35+readDokuWiki :: PandocMonad m
3636 => ReaderOptions
37− -> a
37+ -> Text
3838 -> m Pandoc
3939readDokuWiki opts s = do
40− let sources = toSources s
41− res <- runParserT parseDokuWiki def {stateOptions = opts }
42− (initialSourceName sources) sources
40+ let input = crFilter s
41+ res <- runParserT parseDokuWiki def {stateOptions = opts } "source" input
4342 case res of
44− Left e -> throwError $ PandocParsecError sources e
43+ Left e -> throwError $ PandocParsecError input e
4544 Right d -> return d
4645
47−type DWParser = ParserT Sources ParserState
46+type DWParser = ParserT Text ParserState
4847
4948-- * Utility functions
5049
5150-- | Parse end-of-line, which can be either a newline or end-of-file.
52−eol :: (Stream s m Char, UpdateSourcePos s Char) => ParserT s st m ()
51+eol :: Stream s m Char => ParserT s st m ()
5352eol = void newline <|> eof
5453
5554nested :: PandocMonad m => DWParser m a -> DWParser m a
src/Text/Pandoc/Readers/FB2.hs+3−6
@@ -40,9 +40,9 @@ import Text.Pandoc.Class.PandocMonad (PandocMonad, insertMedia, report)
4040import Text.Pandoc.Error
4141import Text.Pandoc.Logging
4242import Text.Pandoc.Options
43+import Text.Pandoc.Shared (crFilter)
4344import Text.Pandoc.XML.Light
4445import qualified Text.Pandoc.UTF8 as UTF8
45−import Text.Pandoc.Sources (ToSources(..), sourcesToText)
4646
4747type FB2 m = StateT FB2State m
4848
@@ -63,12 +63,9 @@ instance HasMeta FB2State where
6363 setMeta field v s = s {fb2Meta = setMeta field v (fb2Meta s)}
6464 deleteMeta field s = s {fb2Meta = deleteMeta field (fb2Meta s)}
6565
66−readFB2 :: (PandocMonad m, ToSources a)
67− => ReaderOptions
68− -> a
69− -> m Pandoc
66+readFB2 :: PandocMonad m => ReaderOptions -> Text -> m Pandoc
7067readFB2 _ inp =
71− case parseXMLElement $ TL.fromStrict $ sourcesToText $ toSources inp of
68+ case parseXMLElement $ TL.fromStrict $ crFilter inp of
7269 Left msg -> throwError $ PandocXMLError "" msg
7370 Right el -> do
7471 (bs, st) <- runStateT (parseRootElement el) def
src/Text/Pandoc/Readers/HTML.hs+27−43
@@ -62,21 +62,21 @@ import Text.Pandoc.Options (
6262 extensionEnabled)
6363import Text.Pandoc.Parsing hiding ((<|>))
6464import Text.Pandoc.Shared (
65− addMetaField, blocksToInlines', escapeURI, extractSpaces,
65+ addMetaField, blocksToInlines', crFilter, escapeURI, extractSpaces,
6666 htmlSpanLikeElements, renderTags', safeRead, tshow)
6767import Text.Pandoc.Walk
6868import Text.Parsec.Error
6969import Text.TeXMath (readMathML, writeTeX)
7070
7171-- | Convert HTML-formatted string to 'Pandoc' document.
72−readHtml :: (PandocMonad m, ToSources a)
72+readHtml :: PandocMonad m
7373 => ReaderOptions -- ^ Reader options
74− -> a -- ^ Input to parse
74+ -> Text -- ^ String to parse (assumes @'\n'@ line endings)
7575 -> m Pandoc
7676readHtml opts inp = do
7777 let tags = stripPrefixes $ canonicalizeTags $
7878 parseTagsOptions parseOptions{ optTagPosition = True }
79− (sourcesToText $ toSources inp)
79+ (crFilter inp)
8080 parseDoc = do
8181 blocks <- fixPlains False . mconcat <$> manyTill block eof
8282 meta <- stateMeta . parserState <$> getState
@@ -205,7 +205,6 @@ block = ((do
205205 | otherwise
206206 -> pDiv
207207 "section" -> pDiv
208− "header" -> pDiv
209208 "main" -> pDiv
210209 "figure" -> pFigure
211210 "iframe" -> pIframe
@@ -405,7 +404,6 @@ pLineBlock = try $ do
405404isDivLike :: Text -> Bool
406405isDivLike "div" = True
407406isDivLike "section" = True
408−isDivLike "header" = True
409407isDivLike "main" = True
410408isDivLike _ = False
411409
@@ -501,13 +499,17 @@ pHeader = try $ do
501499 tagOpen (`elem` ["h1","h2","h3","h4","h5","h6"])
502500 (const True)
503501 let attr = toStringAttr attr'
502+ let bodyTitle = TagOpen tagtype attr' ~== TagOpen ("h1" :: Text)
503+ [("class","title")]
504504 level <- headerLevel tagtype
505505 contents <- trimInlines . mconcat <$> manyTill inline (pCloses tagtype <|> eof)
506506 let ident = fromMaybe "" $ lookup "id" attr
507507 let classes = maybe [] T.words $ lookup "class" attr
508508 let keyvals = [(k,v) | (k,v) <- attr, k /= "class", k /= "id"]
509509 attr'' <- registerHeader (ident, classes, keyvals) contents
510− return $ B.headerWith attr'' level contents
510+ return $ if bodyTitle
511+ then mempty -- skip a representation of the title in the body
512+ else B.headerWith attr'' level contents
511513
512514pHrule :: PandocMonad m => TagParser m Blocks
513515pHrule = do
@@ -557,18 +559,7 @@ pFigure = try $ do
557559pCodeBlock :: PandocMonad m => TagParser m Blocks
558560pCodeBlock = try $ do
559561 TagOpen _ attr' <- pSatisfy (matchTagOpen "pre" [])
560− -- if the `pre` has no attributes, try if it is followed by a `code`
561− -- element and use those attributes if possible.
562− attr <- case attr' of
563− _:_ -> pure (toAttr attr')
564− [] -> option nullAttr $ do
565− TagOpen _ codeAttr <- pSatisfy (matchTagOpen "code" [])
566− pure $ toAttr
567− [ (k, v') | (k, v) <- codeAttr
568− -- strip language from class
569− , let v' = if k == "class"
570− then fromMaybe v (T.stripPrefix "language-" v)
571− else v ]
562+ let attr = toAttr attr'
572563 contents <- manyTill pAny (pCloses "pre" <|> eof)
573564 let rawText = T.concat $ map tagToText contents
574565 -- drop leading newline if any
@@ -839,19 +830,17 @@ pInlinesInTags tagtype f = extractSpaces f <$> pInTags tagtype inline
839830
840831pTagText :: PandocMonad m => TagParser m Inlines
841832pTagText = try $ do
842− pos <- getPosition
843833 (TagText str) <- pSatisfy isTagText
844834 st <- getState
845835 qu <- ask
846836 parsed <- lift $ lift $
847− flip runReaderT qu $ runParserT (many pTagContents) st "text"
848− (Sources [(pos, str)])
837+ flip runReaderT qu $ runParserT (many pTagContents) st "text" str
849838 case parsed of
850839 Left _ -> throwError $ PandocParseError $
851840 "Could not parse `" <> str <> "'"
852841 Right result -> return $ mconcat result
853842
854−type InlinesParser m = HTMLParser m Sources
843+type InlinesParser m = HTMLParser m Text
855844
856845pTagContents :: PandocMonad m => InlinesParser m Inlines
857846pTagContents =
@@ -951,15 +940,13 @@ getTagName (TagClose t) = Just t
951940getTagName _ = Nothing
952941
953942isInlineTag :: Tag Text -> Bool
954−isInlineTag t = isCommentTag t || case t of
955− TagOpen "script" _ -> "math/tex" `T.isPrefixOf` fromAttrib "type" t
956− TagClose "script" -> True
957− TagOpen name _ -> isInlineTagName name
958− TagClose name -> isInlineTagName name
959− _ -> False
960− where isInlineTagName x =
961− x `Set.notMember` blockTags ||
962− T.take 1 x == "?" -- processing instr.
943+isInlineTag t =
944+ isCommentTag t ||
945+ case getTagName t of
946+ Nothing -> False
947+ Just "script" -> "math/tex" `T.isPrefixOf` fromAttrib "type" t
948+ Just x -> x `Set.notMember` blockTags ||
949+ T.take 1 x == "?" -- processing instr.
963950
964951isBlockTag :: Tag Text -> Bool
965952isBlockTag t = isBlockTagName || isTagComment t
@@ -983,14 +970,13 @@ isCommentTag = tagComment (const True)
983970-- | Matches a stretch of HTML in balanced tags.
984971htmlInBalanced :: Monad m
985972 => (Tag Text -> Bool)
986− -> ParserT Sources st m Text
973+ -> ParserT Text st m Text
987974htmlInBalanced f = try $ do
988975 lookAhead (char '<')
989− sources <- getInput
990− let ts = canonicalizeTags
991− $ parseTagsOptions parseOptions{ optTagWarning = True,
992− optTagPosition = True }
993− $ sourcesToText sources
976+ inp <- getInput
977+ let ts = canonicalizeTags $
978+ parseTagsOptions parseOptions{ optTagWarning = True,
979+ optTagPosition = True } inp
994980 case ts of
995981 (TagPosition sr sc : t@(TagOpen tn _) : rest) -> do
996982 guard $ f t
@@ -1032,17 +1018,15 @@ hasTagWarning _ = False
10321018-- | Matches a tag meeting a certain condition.
10331019htmlTag :: (HasReaderOptions st, Monad m)
10341020 => (Tag Text -> Bool)
1035− -> ParserT Sources st m (Tag Text, Text)
1021+ -> ParserT Text st m (Tag Text, Text)
10361022htmlTag f = try $ do
10371023 lookAhead (char '<')
10381024 startpos <- getPosition
1039− sources <- getInput
1040− let inp = sourcesToText sources
1025+ inp <- getInput
10411026 let ts = canonicalizeTags $ parseTagsOptions
10421027 parseOptions{ optTagWarning = False
10431028 , optTagPosition = True }
1044− (inp <> " ")
1045− -- add space to ensure that
1029+ (inp <> " ") -- add space to ensure that
10461030 -- we get a TagPosition after the tag
10471031 (next, ln, col) <- case ts of
10481032 (TagPosition{} : next : TagPosition ln col : _)
src/Text/Pandoc/Readers/HTML/Table.hs+14−33
@@ -17,7 +17,6 @@ module Text.Pandoc.Readers.HTML.Table (pTable) where
1717
1818import Control.Applicative ((<|>))
1919import Data.Maybe (fromMaybe)
20−import Data.Either (lefts, rights)
2120import Data.List.NonEmpty (nonEmpty)
2221import Data.Text (Text)
2322import Text.HTML.TagSoup
@@ -34,51 +33,34 @@ import Text.Pandoc.Shared (onlySimpleTableCells, safeRead)
3433import qualified Data.Text as T
3534import qualified Text.Pandoc.Builder as B
3635
37−-- | Parses a @<col>@ element, returning the column's width.
38−-- An Either value is used: Left i means a "relative length" with
39−-- integral value i (see https://www.w3.org/TR/html4/types.html#h-6.6);
40−-- Right w means a regular width. Defaults to @'Right ColWidthDefault'@
41−-- if the width is not set or cannot be determined.
42−pCol :: PandocMonad m => TagParser m (Either Int ColWidth)
36+-- | Parses a @<col>@ element, returning the column's width. Defaults to
37+-- @'ColWidthDefault'@ if the width is not set or cannot be determined.
38+pCol :: PandocMonad m => TagParser m ColWidth
4339pCol = try $ do
4440 TagOpen _ attribs' <- pSatisfy (matchTagOpen "col" [])
4541 let attribs = toStringAttr attribs'
4642 skipMany pBlank
4743 optional $ pSatisfy (matchTagClose "col")
4844 skipMany pBlank
49− return $ case lookup "width" attribs of
45+ let width = case lookup "width" attribs of
5046 Nothing -> case lookup "style" attribs of
5147 Just (T.stripPrefix "width:" -> Just xs) | T.any (== '%') xs ->
52− maybe (Right ColWidthDefault) (Right . ColWidth . (/ 100.0))
53− $ safeRead (T.filter
54− (`notElem` (" \t\r\n%'\";" :: [Char])) xs)
55− _ -> Right ColWidthDefault
56− Just (T.unsnoc -> Just (xs, '*')) ->
57− maybe (Left 1) Left $ safeRead xs
48+ fromMaybe 0.0 $ safeRead (T.filter
49+ (`notElem` (" \t\r\n%'\";" :: [Char])) xs)
50+ _ -> 0.0
5851 Just (T.unsnoc -> Just (xs, '%')) ->
59− maybe (Right ColWidthDefault)
60− (Right . ColWidth . (/ 100.0)) $ safeRead xs
61− _ -> Right ColWidthDefault
52+ fromMaybe 0.0 $ safeRead xs
53+ _ -> 0.0
54+ if width > 0.0
55+ then return $ ColWidth $ width / 100.0
56+ else return ColWidthDefault
6257
63−pColgroup :: PandocMonad m => TagParser m [Either Int ColWidth]
58+pColgroup :: PandocMonad m => TagParser m [ColWidth]
6459pColgroup = try $ do
6560 pSatisfy (matchTagOpen "colgroup" [])
6661 skipMany pBlank
6762 manyTill pCol (pCloses "colgroup" <|> eof) <* skipMany pBlank
6863
69−resolveRelativeLengths :: [Either Int ColWidth] -> [ColWidth]
70−resolveRelativeLengths ws =
71− let remaining = 1 - sum (map getColWidth $ rights ws)
72− relatives = sum $ lefts ws
73− relUnit = remaining / fromIntegral relatives
74− toColWidth (Right x) = x
75− toColWidth (Left i) = ColWidth (fromIntegral i * relUnit)
76− in map toColWidth ws
77−
78−getColWidth :: ColWidth -> Double
79−getColWidth ColWidthDefault = 0
80−getColWidth (ColWidth w) = w
81−
8264data CellType
8365 = HeaderCell
8466 | BodyCell
@@ -200,8 +182,7 @@ pTable :: PandocMonad m
200182pTable block = try $ do
201183 TagOpen _ attribs <- pSatisfy (matchTagOpen "table" []) <* skipMany pBlank
202184 caption <- option mempty $ pInTags "caption" block <* skipMany pBlank
203− widths <- resolveRelativeLengths <$>
204− ((mconcat <$> many1 pColgroup) <|> many pCol) <* skipMany pBlank
185+ widths <- ((mconcat <$> many1 pColgroup) <|> many pCol) <* skipMany pBlank
205186 thead <- pTableHead block <* skipMany pBlank
206187 topfoot <- optionMaybe (pTableFoot block) <* skipMany pBlank
207188 tbodies <- many (pTableBody block) <* skipMany pBlank
src/Text/Pandoc/Readers/Haddock.hs+6−9
@@ -19,7 +19,7 @@ import Control.Monad.Except (throwError)
1919import Data.List (intersperse)
2020import Data.List.NonEmpty (nonEmpty)
2121import Data.Maybe (fromMaybe)
22−import Data.Text (unpack)
22+import Data.Text (Text, unpack)
2323import qualified Data.Text as T
2424import Documentation.Haddock.Parser
2525import Documentation.Haddock.Types as H
@@ -29,17 +29,15 @@ import Text.Pandoc.Class.PandocMonad (PandocMonad)
2929import Text.Pandoc.Definition
3030import Text.Pandoc.Error
3131import Text.Pandoc.Options
32−import Text.Pandoc.Sources (ToSources(..), sourcesToText)
33−import Text.Pandoc.Shared (splitTextBy, trim)
32+import Text.Pandoc.Shared (crFilter, splitTextBy, trim)
3433
3534
3635-- | Parse Haddock markup and return a 'Pandoc' document.
37−readHaddock :: (PandocMonad m, ToSources a)
36+readHaddock :: PandocMonad m
3837 => ReaderOptions
39− -> a
38+ -> Text
4039 -> m Pandoc
41−readHaddock opts s = case readHaddockEither opts
42− (unpack . sourcesToText . toSources $ s) of
40+readHaddock opts s = case readHaddockEither opts (unpack (crFilter s)) of
4341 Right result -> return result
4442 Left e -> throwError e
4543
@@ -131,8 +129,7 @@ docHToInlines isCode d' =
131129 DocIdentifier s -> B.codeWith ("",["haskell","identifier"],[]) $ T.pack s
132130 _ -> mempty
133131 DocIdentifierUnchecked s -> B.codeWith ("",["haskell","identifier"],[]) $ T.pack s
134− DocModule s -> B.codeWith ("",["haskell","module"],[]) $
135− T.pack (modLinkName s)
132+ DocModule s -> B.codeWith ("",["haskell","module"],[]) $ T.pack s
136133 DocWarning _ -> mempty -- TODO
137134 DocEmphasis d -> B.emph (docHToInlines isCode d)
138135 DocMonospaced (DocString s) -> B.code $ T.pack s
src/Text/Pandoc/Readers/Ipynb.hs+3−5
@@ -39,12 +39,10 @@ import Data.Aeson as Aeson
3939import Control.Monad.Except (throwError)
4040import Text.Pandoc.Readers.Markdown (readMarkdown)
4141import qualified Text.Pandoc.UTF8 as UTF8
42−import Text.Pandoc.Sources (ToSources(..), sourcesToText)
4342
44−readIpynb :: (PandocMonad m, ToSources a)
45− => ReaderOptions -> a -> m Pandoc
46−readIpynb opts x = do
47− let src = BL.fromStrict . TE.encodeUtf8 . sourcesToText $ toSources x
43+readIpynb :: PandocMonad m => ReaderOptions -> Text -> m Pandoc
44+readIpynb opts t = do
45+ let src = BL.fromStrict (TE.encodeUtf8 t)
4846 case eitherDecode src of
4947 Right (notebook4 :: Notebook NbV4) -> notebookToPandoc opts notebook4
5048 Left _ ->
src/Text/Pandoc/Readers/JATS.hs+6−13
@@ -29,12 +29,11 @@ import Text.HTML.TagSoup.Entity (lookupEntity)
2929import Text.Pandoc.Builder
3030import Text.Pandoc.Class.PandocMonad (PandocMonad)
3131import Text.Pandoc.Options
32−import Text.Pandoc.Shared (safeRead, extractSpaces)
32+import Text.Pandoc.Shared (crFilter, safeRead, extractSpaces)
3333import Text.TeXMath (readMathML, writeTeX)
3434import Text.Pandoc.XML.Light
3535import qualified Data.Set as S (fromList, member)
3636import Data.Set ((\\))
37−import Text.Pandoc.Sources (ToSources(..), sourcesToText)
3837
3938type JATS m = StateT JATSState m
4039
@@ -53,14 +52,10 @@ instance Default JATSState where
5352 , jatsContent = [] }
5453
5554
56−readJATS :: (PandocMonad m, ToSources a)
57− => ReaderOptions
58− -> a
59− -> m Pandoc
55+readJATS :: PandocMonad m => ReaderOptions -> Text -> m Pandoc
6056readJATS _ inp = do
61− let sources = toSources inp
6257 tree <- either (throwError . PandocXMLError "") return $
63− parseXMLContents (TL.fromStrict . sourcesToText $ sources)
58+ parseXMLContents (TL.fromStrict $ crFilter inp)
6459 (bs, st') <- flip runStateT (def{ jatsContent = tree }) $ mapM parseBlock tree
6560 return $ Pandoc (jatsMeta st') (toList . mconcat $ bs)
6661
@@ -496,8 +491,7 @@ parseInline (Elem e) =
496491
497492 "disp-formula" -> formula displayMath
498493 "inline-formula" -> formula math
499− "math" | qURI (elName e) == Just "http://www.w3.org/1998/Math/MathML"
500− -> return . math $ mathML e
494+ "math" | qPrefix (elName e) == Just "mml" -> return . math $ mathML e
501495 "tex-math" -> return . math $ textContent e
502496
503497 "email" -> return $ link ("mailto:" <> textContent e) ""
@@ -520,9 +514,8 @@ parseInline (Elem e) =
520514 filterChildren isMathML whereToLook
521515 return . mconcat . take 1 . map constructor $ texMaths ++ mathMLs
522516
523− isMathML x = qName (elName x) == "math" &&
524− qURI (elName x) ==
525− Just "http://www.w3.org/1998/Math/MathML"
517+ isMathML x = qName (elName x) == "math" &&
518+ qPrefix (elName x) == Just "mml"
526519 removePrefix elname = elname { qPrefix = Nothing }
527520 codeWithLang = do
528521 let classes' = case attrValue "language" e of
src/Text/Pandoc/Readers/Jira.hs+7−11
@@ -20,20 +20,18 @@ import Text.Pandoc.Builder hiding (cell)
2020import Text.Pandoc.Error (PandocError (PandocParseError))
2121import Text.Pandoc.Options (ReaderOptions)
2222import Text.Pandoc.Shared (stringify)
23−import Text.Pandoc.Sources (ToSources(..), sourcesToText)
23+
2424import qualified Text.Jira.Markup as Jira
2525
2626-- | Read Jira wiki markup.
27−readJira :: (PandocMonad m, ToSources a)
27+readJira :: PandocMonad m
2828 => ReaderOptions
29− -> a
29+ -> Text
3030 -> m Pandoc
31−readJira _opts inp = do
32− let sources = toSources inp
33− case parse (sourcesToText sources) of
34− Right d -> return $ jiraToPandoc d
35− Left e -> throwError . PandocParseError $
36− "Jira parse error" `append` pack (show e)
31+readJira _opts s = case parse s of
32+ Right d -> return $ jiraToPandoc d
33+ Left e -> throwError . PandocParseError $
34+ "Jira parse error" `append` pack (show e)
3735
3836jiraToPandoc :: Jira.Doc -> Pandoc
3937jiraToPandoc (Jira.Doc blks) = doc $ foldMap jiraToPandocBlocks blks
@@ -172,8 +170,6 @@ jiraLinkToPandoc linkType alias url =
172170 Jira.Email -> link ("mailto:" <> url') "" alias'
173171 Jira.Attachment -> linkWith ("", ["attachment"], []) url' "" alias'
174172 Jira.User -> linkWith ("", ["user-account"], []) url' "" alias'
175− Jira.SmartCard -> linkWith ("", ["smart-card"], []) url' "" alias'
176− Jira.SmartLink -> linkWith ("", ["smart-link"], []) url' "" alias'
177173
178174-- | Get unicode representation of a Jira icon.
179175iconUnicode :: Jira.Icon -> Text
src/Text/Pandoc/Readers/LaTeX.hs+27−20
@@ -24,7 +24,7 @@ module Text.Pandoc.Readers.LaTeX ( readLaTeX,
2424import Control.Applicative (many, optional, (<|>))
2525import Control.Monad
2626import Control.Monad.Except (throwError)
27−import Data.Char (isDigit, isLetter, isAlphaNum, toUpper, chr)
27+import Data.Char (isDigit, isLetter, toUpper, chr)
2828import Data.Default
2929import Data.List (intercalate)
3030import qualified Data.Map as M
@@ -32,9 +32,8 @@ import Data.Maybe (fromMaybe, maybeToList)
3232import qualified Data.Set as Set
3333import Data.Text (Text)
3434import qualified Data.Text as T
35−import Skylighting (defaultSyntaxMap)
3635import System.FilePath (addExtension, replaceExtension, takeExtension)
37−import Text.Collate.Lang (renderLang)
36+import Text.Pandoc.BCP47 (renderLang)
3837import Text.Pandoc.Builder as B
3938import Text.Pandoc.Class.PandocPure (PandocPure)
4039import Text.Pandoc.Class.PandocMonad (PandocMonad (..), getResourcePath,
@@ -77,17 +76,16 @@ import Data.List.NonEmpty (nonEmpty)
7776-- import Debug.Trace (traceShowId)
7877
7978-- | Parse LaTeX from string and return 'Pandoc' document.
80−readLaTeX :: (PandocMonad m, ToSources a)
79+readLaTeX :: PandocMonad m
8180 => ReaderOptions -- ^ Reader options
82− -> a -- ^ Input to parse
81+ -> Text -- ^ String to parse (assumes @'\n'@ line endings)
8382 -> m Pandoc
8483readLaTeX opts ltx = do
85− let sources = toSources ltx
8684 parsed <- runParserT parseLaTeX def{ sOptions = opts } "source"
87− (tokenizeSources sources)
85+ (tokenize "source" (crFilter ltx))
8886 case parsed of
8987 Right result -> return result
90− Left e -> throwError $ PandocParsecError sources e
88+ Left e -> throwError $ PandocParsecError ltx e
9189
9290parseLaTeX :: PandocMonad m => LP m Pandoc
9391parseLaTeX = do
@@ -133,11 +131,11 @@ resolveRefs _ x = x
133131
134132
135133rawLaTeXBlock :: (PandocMonad m, HasMacros s, HasReaderOptions s)
136− => ParserT Sources s m Text
134+ => ParserT Text s m Text
137135rawLaTeXBlock = do
138136 lookAhead (try (char '\\' >> letter))
139137 inp <- getInput
140− let toks = tokenizeSources inp
138+ let toks = tokenize "source" inp
141139 snd <$> (rawLaTeXParser toks False (macroDef (const mempty)) blocks
142140 <|> rawLaTeXParser toks True
143141 (do choice (map controlSeq
@@ -164,11 +162,11 @@ beginOrEndCommand = try $ do
164162 (txt <> untokenize rawargs)
165163
166164rawLaTeXInline :: (PandocMonad m, HasMacros s, HasReaderOptions s)
167− => ParserT Sources s m Text
165+ => ParserT Text s m Text
168166rawLaTeXInline = do
169167 lookAhead (try (char '\\' >> letter))
170168 inp <- getInput
171− let toks = tokenizeSources inp
169+ let toks = tokenize "source" inp
172170 raw <- snd <$>
173171 ( rawLaTeXParser toks True
174172 (mempty <$ (controlSeq "input" >> skipMany rawopt >> braced))
@@ -179,11 +177,11 @@ rawLaTeXInline = do
179177 finalbraces <- mconcat <$> many (try (string "{}")) -- see #5439
180178 return $ raw <> T.pack finalbraces
181179
182−inlineCommand :: PandocMonad m => ParserT Sources ParserState m Inlines
180+inlineCommand :: PandocMonad m => ParserT Text ParserState m Inlines
183181inlineCommand = do
184182 lookAhead (try (char '\\' >> letter))
185183 inp <- getInput
186− let toks = tokenizeSources inp
184+ let toks = tokenize "source" inp
187185 fst <$> rawLaTeXParser toks True (inlineEnvironment <|> inlineCommand')
188186 inlines
189187
@@ -232,6 +230,16 @@ mkImage options (T.unpack -> src) = do
232230 _ -> return src
233231 return $ imageWith attr (T.pack src') "" alt
234232
233+doxspace :: PandocMonad m => LP m Inlines
234+doxspace =
235+ (space <$ lookAhead (satisfyTok startsWithLetter)) <|> return mempty
236+ where startsWithLetter (Tok _ Word t) =
237+ case T.uncons t of
238+ Just (c, _) | isLetter c -> True
239+ _ -> False
240+ startsWithLetter _ = False
241+
242+
235243removeDoubleQuotes :: Text -> Text
236244removeDoubleQuotes t =
237245 Data.Maybe.fromMaybe t $ T.stripPrefix "\"" t >>= T.stripSuffix "\""
@@ -300,9 +308,7 @@ inlineCommand' :: PandocMonad m => LP m Inlines
300308inlineCommand' = try $ do
301309 Tok _ (CtrlSeq name) cmd <- anyControlSeq
302310 guard $ name /= "begin" && name /= "end" && name /= "and"
303− star <- if T.all isAlphaNum name
304− then option "" ("*" <$ symbol '*' <* sp)
305− else pure ""
311+ star <- option "" ("*" <$ symbol '*' <* sp)
306312 overlay <- option "" overlaySpecification
307313 let name' = name <> star <> overlay
308314 let names = ordNub [name', name] -- check non-starred as fallback
@@ -409,6 +415,8 @@ inlineCommands = M.unions
409415 -- LaTeX colors
410416 , ("textcolor", coloredInline "color")
411417 , ("colorbox", coloredInline "background-color")
418+ -- xspace
419+ , ("xspace", doxspace)
412420 -- etoolbox
413421 , ("ifstrequal", ifstrequal)
414422 , ("newtoggle", braced >>= newToggle)
@@ -632,7 +640,7 @@ opt = do
632640 parsed <- runParserT (mconcat <$> many inline) st "bracketed option" toks
633641 case parsed of
634642 Right result -> return result
635− Left e -> throwError $ PandocParsecError (toSources toks) e
643+ Left e -> throwError $ PandocParsecError (untokenize toks) e
636644
637645-- block elements:
638646
@@ -1162,8 +1170,7 @@ inputListing = do
11621170 let (ident,classes,kvs) = parseListingsOptions options
11631171 let classes' =
11641172 (case listingsLanguage options of
1165− Nothing -> (take 1 (languagesByExtension defaultSyntaxMap
1166− (T.pack $ takeExtension $ T.unpack f)) <>)
1173+ Nothing -> (take 1 (languagesByExtension (T.pack $ takeExtension $ T.unpack f)) <>)
11671174 Just _ -> id) classes
11681175 let firstline = fromMaybe 1 $ lookup "firstline" options >>= safeRead
11691176 let lastline = fromMaybe (length codeLines) $
src/Text/Pandoc/Readers/LaTeX/Citation.hs+1−1
@@ -120,7 +120,7 @@ simpleCiteArgs inline = try $ do
120120 runParserT (mconcat <$> many inline) st "bracketed option" toks
121121 case parsed of
122122 Right result -> return result
123− Left e -> throwError $ PandocParsecError (toSources toks) e
123+ Left e -> throwError $ PandocParsecError (untokenize toks) e
124124
125125
126126
src/Text/Pandoc/Readers/LaTeX/Lang.hs+119−122
@@ -23,7 +23,7 @@ import qualified Data.Map as M
2323import Data.Text (Text)
2424import qualified Data.Text as T
2525import Text.Pandoc.Shared (extractSpaces)
26−import Text.Collate.Lang (Lang(..), renderLang)
26+import Text.Pandoc.BCP47 (Lang(..), renderLang)
2727import Text.Pandoc.Class (PandocMonad(..), setTranslations)
2828import Text.Pandoc.Readers.LaTeX.Parsing
2929import Text.Pandoc.Parsing (updateState, option, getState, QuoteContext(..),
@@ -99,136 +99,133 @@ setDefaultLanguage = do
9999polyglossiaLangToBCP47 :: M.Map T.Text (T.Text -> Lang)
100100polyglossiaLangToBCP47 = M.fromList
101101 [ ("arabic", \o -> case T.filter (/=' ') o of
102− "locale=algeria" -> Lang "ar" Nothing (Just "DZ") [] [] []
103− "locale=mashriq" -> Lang "ar" Nothing (Just "SY") [] [] []
104− "locale=libya" -> Lang "ar" Nothing (Just "LY") [] [] []
105− "locale=morocco" -> Lang "ar" Nothing (Just "MA") [] [] []
106− "locale=mauritania" -> Lang "ar" Nothing (Just "MR") [] [] []
107− "locale=tunisia" -> Lang "ar" Nothing (Just "TN") [] [] []
108− _ -> Lang "ar" Nothing (Just "") [] [] [])
102+ "locale=algeria" -> Lang "ar" "" "DZ" []
103+ "locale=mashriq" -> Lang "ar" "" "SY" []
104+ "locale=libya" -> Lang "ar" "" "LY" []
105+ "locale=morocco" -> Lang "ar" "" "MA" []
106+ "locale=mauritania" -> Lang "ar" "" "MR" []
107+ "locale=tunisia" -> Lang "ar" "" "TN" []
108+ _ -> Lang "ar" "" "" [])
109109 , ("german", \o -> case T.filter (/=' ') o of
110− "spelling=old" -> Lang "de" Nothing (Just "DE") ["1901"] [] []
110+ "spelling=old" -> Lang "de" "" "DE" ["1901"]
111111 "variant=austrian,spelling=old"
112− -> Lang "de" Nothing (Just "AT") ["1901"] [] []
113− "variant=austrian" -> Lang "de" Nothing (Just "AT") [] [] []
112+ -> Lang "de" "" "AT" ["1901"]
113+ "variant=austrian" -> Lang "de" "" "AT" []
114114 "variant=swiss,spelling=old"
115− -> Lang "de" Nothing (Just "CH") ["1901"] [] []
116− "variant=swiss" -> Lang "de" Nothing (Just "CH") [] [] []
117− _ -> Lang "de" Nothing Nothing [] [] [])
118− , ("lsorbian", \_ -> Lang "dsb" Nothing Nothing [] [] [])
115+ -> Lang "de" "" "CH" ["1901"]
116+ "variant=swiss" -> Lang "de" "" "CH" []
117+ _ -> Lang "de" "" "" [])
118+ , ("lsorbian", \_ -> Lang "dsb" "" "" [])
119119 , ("greek", \o -> case T.filter (/=' ') o of
120− "variant=poly" -> Lang "el" Nothing (Just "polyton") [] [] []
121− "variant=ancient" -> Lang "grc" Nothing Nothing [] [] []
122− _ -> Lang "el" Nothing Nothing [] [] [])
120+ "variant=poly" -> Lang "el" "" "polyton" []
121+ "variant=ancient" -> Lang "grc" "" "" []
122+ _ -> Lang "el" "" "" [])
123123 , ("english", \o -> case T.filter (/=' ') o of
124− "variant=australian" -> Lang "en" Nothing (Just "AU") [] [] []
125− "variant=canadian" -> Lang "en" Nothing (Just "CA") [] [] []
126− "variant=british" -> Lang "en" Nothing (Just "GB") [] [] []
127− "variant=newzealand" -> Lang "en" Nothing (Just "NZ") [] [] []
128− "variant=american" -> Lang "en" Nothing (Just "US") [] [] []
129− _ -> Lang "en" Nothing (Just "") [] [] [])
130− , ("usorbian", \_ -> Lang "hsb" Nothing Nothing [] [] [])
124+ "variant=australian" -> Lang "en" "" "AU" []
125+ "variant=canadian" -> Lang "en" "" "CA" []
126+ "variant=british" -> Lang "en" "" "GB" []
127+ "variant=newzealand" -> Lang "en" "" "NZ" []
128+ "variant=american" -> Lang "en" "" "US" []
129+ _ -> Lang "en" "" "" [])
130+ , ("usorbian", \_ -> Lang "hsb" "" "" [])
131131 , ("latin", \o -> case T.filter (/=' ') o of
132− "variant=classic" -> Lang "la" Nothing Nothing ["x-classic"] [] []
133− _ -> Lang "la" Nothing Nothing [] [] [])
134− , ("slovenian", \_ -> Lang "sl" Nothing Nothing [] [] [])
135− , ("serbianc", \_ -> Lang "sr" (Just "Cyrl") Nothing [] [] [])
136− , ("pinyin", \_ -> Lang "zh" (Just "Latn") Nothing ["pinyin"] [] [])
137− , ("afrikaans", \_ -> simpleLang "af")
138− , ("amharic", \_ -> simpleLang "am")
139− , ("assamese", \_ -> simpleLang "as")
140− , ("asturian", \_ -> simpleLang "ast")
141− , ("bulgarian", \_ -> simpleLang "bg")
142− , ("bengali", \_ -> simpleLang "bn")
143− , ("tibetan", \_ -> simpleLang "bo")
144− , ("breton", \_ -> simpleLang "br")
145− , ("catalan", \_ -> simpleLang "ca")
146− , ("welsh", \_ -> simpleLang "cy")
147− , ("czech", \_ -> simpleLang "cs")
148− , ("coptic", \_ -> simpleLang "cop")
149− , ("danish", \_ -> simpleLang "da")
150− , ("divehi", \_ -> simpleLang "dv")
151− , ("esperanto", \_ -> simpleLang "eo")
152− , ("spanish", \_ -> simpleLang "es")
153− , ("estonian", \_ -> simpleLang "et")
154− , ("basque", \_ -> simpleLang "eu")
155− , ("farsi", \_ -> simpleLang "fa")
156− , ("finnish", \_ -> simpleLang "fi")
157− , ("french", \_ -> simpleLang "fr")
158− , ("friulan", \_ -> simpleLang "fur")
159− , ("irish", \_ -> simpleLang "ga")
160− , ("scottish", \_ -> simpleLang "gd")
161− , ("ethiopic", \_ -> simpleLang "gez")
162− , ("galician", \_ -> simpleLang "gl")
163− , ("hebrew", \_ -> simpleLang "he")
164− , ("hindi", \_ -> simpleLang "hi")
165− , ("croatian", \_ -> simpleLang "hr")
166− , ("magyar", \_ -> simpleLang "hu")
167− , ("armenian", \_ -> simpleLang "hy")
168− , ("interlingua", \_ -> simpleLang "ia")
169− , ("indonesian", \_ -> simpleLang "id")
170− , ("icelandic", \_ -> simpleLang "is")
171− , ("italian", \_ -> simpleLang "it")
172− , ("japanese", \_ -> simpleLang "jp")
173− , ("khmer", \_ -> simpleLang "km")
174− , ("kurmanji", \_ -> simpleLang "kmr")
175− , ("kannada", \_ -> simpleLang "kn")
176− , ("korean", \_ -> simpleLang "ko")
177− , ("lao", \_ -> simpleLang "lo")
178− , ("lithuanian", \_ -> simpleLang "lt")
179− , ("latvian", \_ -> simpleLang "lv")
180− , ("malayalam", \_ -> simpleLang "ml")
181− , ("mongolian", \_ -> simpleLang "mn")
182− , ("marathi", \_ -> simpleLang "mr")
183− , ("dutch", \_ -> simpleLang "nl")
184− , ("nynorsk", \_ -> simpleLang "nn")
185− , ("norsk", \_ -> simpleLang "no")
186− , ("nko", \_ -> simpleLang "nqo")
187− , ("occitan", \_ -> simpleLang "oc")
188− , ("panjabi", \_ -> simpleLang "pa")
189− , ("polish", \_ -> simpleLang "pl")
190− , ("piedmontese", \_ -> simpleLang "pms")
191− , ("portuguese", \_ -> simpleLang "pt")
192− , ("romansh", \_ -> simpleLang "rm")
193− , ("romanian", \_ -> simpleLang "ro")
194− , ("russian", \_ -> simpleLang "ru")
195− , ("sanskrit", \_ -> simpleLang "sa")
196− , ("samin", \_ -> simpleLang "se")
197− , ("slovak", \_ -> simpleLang "sk")
198− , ("albanian", \_ -> simpleLang "sq")
199− , ("serbian", \_ -> simpleLang "sr")
200− , ("swedish", \_ -> simpleLang "sv")
201− , ("syriac", \_ -> simpleLang "syr")
202− , ("tamil", \_ -> simpleLang "ta")
203− , ("telugu", \_ -> simpleLang "te")
204− , ("thai", \_ -> simpleLang "th")
205− , ("turkmen", \_ -> simpleLang "tk")
206− , ("turkish", \_ -> simpleLang "tr")
207− , ("ukrainian", \_ -> simpleLang "uk")
208− , ("urdu", \_ -> simpleLang "ur")
209− , ("vietnamese", \_ -> simpleLang "vi")
132+ "variant=classic" -> Lang "la" "" "" ["x-classic"]
133+ _ -> Lang "la" "" "" [])
134+ , ("slovenian", \_ -> Lang "sl" "" "" [])
135+ , ("serbianc", \_ -> Lang "sr" "cyrl" "" [])
136+ , ("pinyin", \_ -> Lang "zh" "Latn" "" ["pinyin"])
137+ , ("afrikaans", \_ -> Lang "af" "" "" [])
138+ , ("amharic", \_ -> Lang "am" "" "" [])
139+ , ("assamese", \_ -> Lang "as" "" "" [])
140+ , ("asturian", \_ -> Lang "ast" "" "" [])
141+ , ("bulgarian", \_ -> Lang "bg" "" "" [])
142+ , ("bengali", \_ -> Lang "bn" "" "" [])
143+ , ("tibetan", \_ -> Lang "bo" "" "" [])
144+ , ("breton", \_ -> Lang "br" "" "" [])
145+ , ("catalan", \_ -> Lang "ca" "" "" [])
146+ , ("welsh", \_ -> Lang "cy" "" "" [])
147+ , ("czech", \_ -> Lang "cs" "" "" [])
148+ , ("coptic", \_ -> Lang "cop" "" "" [])
149+ , ("danish", \_ -> Lang "da" "" "" [])
150+ , ("divehi", \_ -> Lang "dv" "" "" [])
151+ , ("esperanto", \_ -> Lang "eo" "" "" [])
152+ , ("spanish", \_ -> Lang "es" "" "" [])
153+ , ("estonian", \_ -> Lang "et" "" "" [])
154+ , ("basque", \_ -> Lang "eu" "" "" [])
155+ , ("farsi", \_ -> Lang "fa" "" "" [])
156+ , ("finnish", \_ -> Lang "fi" "" "" [])
157+ , ("french", \_ -> Lang "fr" "" "" [])
158+ , ("friulan", \_ -> Lang "fur" "" "" [])
159+ , ("irish", \_ -> Lang "ga" "" "" [])
160+ , ("scottish", \_ -> Lang "gd" "" "" [])
161+ , ("ethiopic", \_ -> Lang "gez" "" "" [])
162+ , ("galician", \_ -> Lang "gl" "" "" [])
163+ , ("hebrew", \_ -> Lang "he" "" "" [])
164+ , ("hindi", \_ -> Lang "hi" "" "" [])
165+ , ("croatian", \_ -> Lang "hr" "" "" [])
166+ , ("magyar", \_ -> Lang "hu" "" "" [])
167+ , ("armenian", \_ -> Lang "hy" "" "" [])
168+ , ("interlingua", \_ -> Lang "ia" "" "" [])
169+ , ("indonesian", \_ -> Lang "id" "" "" [])
170+ , ("icelandic", \_ -> Lang "is" "" "" [])
171+ , ("italian", \_ -> Lang "it" "" "" [])
172+ , ("japanese", \_ -> Lang "jp" "" "" [])
173+ , ("khmer", \_ -> Lang "km" "" "" [])
174+ , ("kurmanji", \_ -> Lang "kmr" "" "" [])
175+ , ("kannada", \_ -> Lang "kn" "" "" [])
176+ , ("korean", \_ -> Lang "ko" "" "" [])
177+ , ("lao", \_ -> Lang "lo" "" "" [])
178+ , ("lithuanian", \_ -> Lang "lt" "" "" [])
179+ , ("latvian", \_ -> Lang "lv" "" "" [])
180+ , ("malayalam", \_ -> Lang "ml" "" "" [])
181+ , ("mongolian", \_ -> Lang "mn" "" "" [])
182+ , ("marathi", \_ -> Lang "mr" "" "" [])
183+ , ("dutch", \_ -> Lang "nl" "" "" [])
184+ , ("nynorsk", \_ -> Lang "nn" "" "" [])
185+ , ("norsk", \_ -> Lang "no" "" "" [])
186+ , ("nko", \_ -> Lang "nqo" "" "" [])
187+ , ("occitan", \_ -> Lang "oc" "" "" [])
188+ , ("panjabi", \_ -> Lang "pa" "" "" [])
189+ , ("polish", \_ -> Lang "pl" "" "" [])
190+ , ("piedmontese", \_ -> Lang "pms" "" "" [])
191+ , ("portuguese", \_ -> Lang "pt" "" "" [])
192+ , ("romansh", \_ -> Lang "rm" "" "" [])
193+ , ("romanian", \_ -> Lang "ro" "" "" [])
194+ , ("russian", \_ -> Lang "ru" "" "" [])
195+ , ("sanskrit", \_ -> Lang "sa" "" "" [])
196+ , ("samin", \_ -> Lang "se" "" "" [])
197+ , ("slovak", \_ -> Lang "sk" "" "" [])
198+ , ("albanian", \_ -> Lang "sq" "" "" [])
199+ , ("serbian", \_ -> Lang "sr" "" "" [])
200+ , ("swedish", \_ -> Lang "sv" "" "" [])
201+ , ("syriac", \_ -> Lang "syr" "" "" [])
202+ , ("tamil", \_ -> Lang "ta" "" "" [])
203+ , ("telugu", \_ -> Lang "te" "" "" [])
204+ , ("thai", \_ -> Lang "th" "" "" [])
205+ , ("turkmen", \_ -> Lang "tk" "" "" [])
206+ , ("turkish", \_ -> Lang "tr" "" "" [])
207+ , ("ukrainian", \_ -> Lang "uk" "" "" [])
208+ , ("urdu", \_ -> Lang "ur" "" "" [])
209+ , ("vietnamese", \_ -> Lang "vi" "" "" [])
210210 ]
211211
212−simpleLang :: Text -> Lang
213−simpleLang l = Lang l Nothing Nothing [] [] []
214−
215212babelLangToBCP47 :: T.Text -> Maybe Lang
216213babelLangToBCP47 s =
217214 case s of
218− "austrian" -> Just $ Lang "de" Nothing (Just "AT") ["1901"] [] []
219− "naustrian" -> Just $ Lang "de" Nothing (Just "AT") [] [] []
220− "swissgerman" -> Just $ Lang "de" Nothing (Just "CH") ["1901"] [] []
221− "nswissgerman" -> Just $ Lang "de" Nothing (Just "CH") [] [] []
222− "german" -> Just $ Lang "de" Nothing (Just "DE") ["1901"] [] []
223− "ngerman" -> Just $ Lang "de" Nothing (Just "DE") [] [] []
224− "lowersorbian" -> Just $ Lang "dsb" Nothing Nothing [] [] []
225− "uppersorbian" -> Just $ Lang "hsb" Nothing Nothing [] [] []
226− "polutonikogreek" -> Just $ Lang "el" Nothing Nothing ["polyton"] [] []
227− "slovene" -> Just $ simpleLang "sl"
228− "australian" -> Just $ Lang "en" Nothing (Just "AU") [] [] []
229− "canadian" -> Just $ Lang "en" Nothing (Just "CA") [] [] []
230− "british" -> Just $ Lang "en" Nothing (Just "GB") [] [] []
231− "newzealand" -> Just $ Lang "en" Nothing (Just "NZ") [] [] []
232− "american" -> Just $ Lang "en" Nothing (Just "US") [] [] []
233− "classiclatin" -> Just $ Lang "la" Nothing Nothing ["x-classic"] [] []
215+ "austrian" -> Just $ Lang "de" "" "AT" ["1901"]
216+ "naustrian" -> Just $ Lang "de" "" "AT" []
217+ "swissgerman" -> Just $ Lang "de" "" "CH" ["1901"]
218+ "nswissgerman" -> Just $ Lang "de" "" "CH" []
219+ "german" -> Just $ Lang "de" "" "DE" ["1901"]
220+ "ngerman" -> Just $ Lang "de" "" "DE" []
221+ "lowersorbian" -> Just $ Lang "dsb" "" "" []
222+ "uppersorbian" -> Just $ Lang "hsb" "" "" []
223+ "polutonikogreek" -> Just $ Lang "el" "" "" ["polyton"]
224+ "slovene" -> Just $ Lang "sl" "" "" []
225+ "australian" -> Just $ Lang "en" "" "AU" []
226+ "canadian" -> Just $ Lang "en" "" "CA" []
227+ "british" -> Just $ Lang "en" "" "GB" []
228+ "newzealand" -> Just $ Lang "en" "" "NZ" []
229+ "american" -> Just $ Lang "en" "" "US" []
230+ "classiclatin" -> Just $ Lang "la" "" "" ["x-classic"]
234231 _ -> ($ "") <$> M.lookup s polyglossiaLangToBCP47
src/Text/Pandoc/Readers/LaTeX/Macro.hs+14−45
@@ -14,7 +14,6 @@ import Text.Pandoc.Parsing hiding (blankline, mathDisplay, mathInline,
1414import Control.Applicative ((<|>), optional)
1515import qualified Data.Map as M
1616import Data.Text (Text)
17−import qualified Data.Text as T
1817
1918macroDef :: (PandocMonad m, Monoid a) => (Text -> a) -> LP m a
2019macroDef constructor = do
@@ -23,11 +22,9 @@ macroDef constructor = do
2322 guardDisabled Ext_latex_macros)
2423 <|> return mempty
2524 where commandDef = do
26− nameMacroPairs <- newcommand <|> letmacro <|> defmacro <|> newif
25+ (name, macro') <- newcommand <|> letmacro <|> defmacro
2726 guardDisabled Ext_latex_macros <|>
28− mapM_ (\(name, macro') ->
29− updateState (\s -> s{ sMacros = M.insert name macro'
30− (sMacros s) })) nameMacroPairs
27+ updateState (\s -> s{ sMacros = M.insert name macro' (sMacros s) })
3128 environmentDef = do
3229 mbenv <- newenvironment
3330 case mbenv of
@@ -43,7 +40,7 @@ macroDef constructor = do
4340 -- @\newcommand{\envname}[n-args][default]{begin}@
4441 -- @\newcommand{\endenvname}@
4542
46−letmacro :: PandocMonad m => LP m [(Text, Macro)]
43+letmacro :: PandocMonad m => LP m (Text, Macro)
4744letmacro = do
4845 controlSeq "let"
4946 (name, contents) <- withVerbatimMode $ do
@@ -56,47 +53,18 @@ letmacro = do
5653 contents <- bracedOrToken
5754 return (name, contents)
5855 contents' <- doMacros' 0 contents
59− return [(name, Macro ExpandWhenDefined [] Nothing contents')]
56+ return (name, Macro ExpandWhenDefined [] Nothing contents')
6057
61−defmacro :: PandocMonad m => LP m [(Text, Macro)]
62−defmacro = do
58+defmacro :: PandocMonad m => LP m (Text, Macro)
59+defmacro = try $
6360 -- we use withVerbatimMode, because macros are to be expanded
6461 -- at point of use, not point of definition
65− controlSeq "def"
6662 withVerbatimMode $ do
63+ controlSeq "def"
6764 Tok _ (CtrlSeq name) _ <- anyControlSeq
6865 argspecs <- many (argspecArg <|> argspecPattern)
6966 contents <- bracedOrToken
70− return [(name, Macro ExpandWhenUsed argspecs Nothing contents)]
71−
72−-- \newif\iffoo' defines:
73−-- \iffoo to be \iffalse
74−-- \footrue to be a command that defines \iffoo to be \iftrue
75−-- \foofalse to be a command that defines \iffoo to be \iffalse
76−newif :: PandocMonad m => LP m [(Text, Macro)]
77−newif = do
78− controlSeq "newif"
79− withVerbatimMode $ do
80− Tok pos (CtrlSeq name) _ <- anyControlSeq
81− -- \def\iffoo\iffalse
82− -- \def\footrue{\def\iffoo\iftrue}
83− -- \def\foofalse{\def\iffoo\iffalse}
84− let base = T.drop 2 name
85− return [ (name, Macro ExpandWhenUsed [] Nothing
86− [Tok pos (CtrlSeq "iffalse") "\\iffalse"])
87− , (base <> "true",
88− Macro ExpandWhenUsed [] Nothing
89− [ Tok pos (CtrlSeq "def") "\\def"
90− , Tok pos (CtrlSeq name) ("\\" <> name)
91− , Tok pos (CtrlSeq "iftrue") "\\iftrue"
92− ])
93− , (base <> "false",
94− Macro ExpandWhenUsed [] Nothing
95− [ Tok pos (CtrlSeq "def") "\\def"
96− , Tok pos (CtrlSeq name) ("\\" <> name)
97− , Tok pos (CtrlSeq "iffalse") "\\iffalse"
98− ])
99− ]
67+ return (name, Macro ExpandWhenUsed argspecs Nothing contents)
10068
10169argspecArg :: PandocMonad m => LP m ArgSpec
10270argspecArg = do
@@ -109,9 +77,10 @@ argspecPattern =
10977 (toktype' == Symbol || toktype' == Word) &&
11078 (txt /= "{" && txt /= "\\" && txt /= "}")))
11179
112−newcommand :: PandocMonad m => LP m [(Text, Macro)]
80+newcommand :: PandocMonad m => LP m (Text, Macro)
11381newcommand = do
114− Tok pos (CtrlSeq mtype) _ <- controlSeq "newcommand" <|>
82+ pos <- getPosition
83+ Tok _ (CtrlSeq mtype) _ <- controlSeq "newcommand" <|>
11584 controlSeq "renewcommand" <|>
11685 controlSeq "providecommand" <|>
11786 controlSeq "DeclareMathOperator" <|>
@@ -143,9 +112,9 @@ newcommand = do
143112 Just macro
144113 | mtype == "newcommand" -> do
145114 report $ MacroAlreadyDefined txt pos
146− return [(name, macro)]
147− | mtype == "providecommand" -> return [(name, macro)]
148− _ -> return [(name, Macro ExpandWhenUsed argspecs optarg contents)]
115+ return (name, macro)
116+ | mtype == "providecommand" -> return (name, macro)
117+ _ -> return (name, Macro ExpandWhenUsed argspecs optarg contents)
149118
150119newenvironment :: PandocMonad m => LP m (Maybe (Text, Macro, Macro))
151120newenvironment = do
src/Text/Pandoc/Readers/LaTeX/Parsing.hs+7−48
@@ -27,7 +27,6 @@ module Text.Pandoc.Readers.LaTeX.Parsing
2727 , rawLaTeXParser
2828 , applyMacros
2929 , tokenize
30− , tokenizeSources
3130 , untokenize
3231 , untoken
3332 , totoks
@@ -113,6 +112,7 @@ import Text.Pandoc.Readers.LaTeX.Types (ExpansionPoint (..), Macro (..),
113112 ArgSpec (..), Tok (..), TokType (..))
114113import Text.Pandoc.Shared
115114import Text.Parsec.Pos
115+-- import Debug.Trace
116116
117117newtype DottedNum = DottedNum [Int]
118118 deriving (Show, Eq)
@@ -248,7 +248,7 @@ withVerbatimMode parser = do
248248
249249rawLaTeXParser :: (PandocMonad m, HasMacros s, HasReaderOptions s)
250250 => [Tok] -> Bool -> LP m a -> LP m a
251− -> ParserT Sources s m (a, Text)
251+ -> ParserT Text s m (a, Text)
252252rawLaTeXParser toks retokenize parser valParser = do
253253 pstate <- getState
254254 let lstate = def{ sOptions = extractReaderOptions pstate }
@@ -268,7 +268,7 @@ rawLaTeXParser toks retokenize parser valParser = do
268268 Left _ -> mzero
269269 Right ((val, raw), st) -> do
270270 updateState (updateMacros (sMacros st <>))
271− void $ count (T.length (untokenize toks')) anyChar
271+ _ <- takeP (T.length (untokenize toks'))
272272 let result = untokenize raw
273273 -- ensure we end with space if input did, see #4442
274274 let result' =
@@ -281,7 +281,7 @@ rawLaTeXParser toks retokenize parser valParser = do
281281 return (val, result')
282282
283283applyMacros :: (PandocMonad m, HasMacros s, HasReaderOptions s)
284− => Text -> ParserT Sources s m Text
284+ => Text -> ParserT Text s m Text
285285applyMacros s = (guardDisabled Ext_latex_macros >> return s) <|>
286286 do let retokenize = untokenize <$> many (satisfyTok (const True))
287287 pstate <- getState
@@ -301,11 +301,6 @@ QuickCheck property:
301301> let t = T.pack s in untokenize (tokenize "random" t) == t
302302-}
303303
304−tokenizeSources :: Sources -> [Tok]
305−tokenizeSources = concatMap tokenizeSource . unSources
306− where
307− tokenizeSource (pos, t) = totoks pos t
308−
309304tokenize :: SourceName -> Text -> [Tok]
310305tokenize sourcename = totoks (initialPos sourcename)
311306
@@ -463,7 +458,7 @@ satisfyTok f = do
463458doMacros :: PandocMonad m => LP m ()
464459doMacros = do
465460 st <- getState
466− unless (sVerbatimMode st) $
461+ unless (sVerbatimMode st || M.null (sMacros st)) $ do
467462 getInput >>= doMacros' 1 >>= setInput
468463
469464doMacros' :: PandocMonad m => Int -> [Tok] -> LP m [Tok]
@@ -525,7 +520,7 @@ doMacros' n inp =
525520 $ throwError $ PandocMacroLoop name
526521 macros <- sMacros <$> getState
527522 case M.lookup name macros of
528− Nothing -> trySpecialMacro name ts
523+ Nothing -> mzero
529524 Just (Macro expansionPoint argspecs optarg newtoks) -> do
530525 let getargs' = do
531526 args <-
@@ -553,41 +548,6 @@ doMacros' n inp =
553548 ExpandWhenUsed -> doMacros' (n' + 1) result
554549 ExpandWhenDefined -> return result
555550
556−-- | Certain macros do low-level tex manipulations that can't
557−-- be represented in our Macro type, so we handle them here.
558−trySpecialMacro :: PandocMonad m => Text -> [Tok] -> LP m [Tok]
559−trySpecialMacro "xspace" ts = do
560− ts' <- doMacros' 1 ts
561− case ts' of
562− Tok pos Word t : _
563− | startsWithAlphaNum t -> return $ Tok pos Spaces " " : ts'
564− _ -> return ts'
565−trySpecialMacro "iftrue" ts = handleIf True ts
566−trySpecialMacro "iffalse" ts = handleIf False ts
567−trySpecialMacro _ _ = mzero
568−
569−handleIf :: PandocMonad m => Bool -> [Tok] -> LP m [Tok]
570−handleIf b ts = do
571− res' <- lift $ runParserT (ifParser b) defaultLaTeXState "tokens" ts
572− case res' of
573− Left _ -> Prelude.fail "Could not parse conditional"
574− Right ts' -> return ts'
575−
576−ifParser :: PandocMonad m => Bool -> LP m [Tok]
577−ifParser b = do
578− ifToks <- many (notFollowedBy (controlSeq "else" <|> controlSeq "fi")
579− *> anyTok)
580− elseToks <- (controlSeq "else" >> manyTill anyTok (controlSeq "fi"))
581− <|> ([] <$ controlSeq "fi")
582− rest <- getInput
583− return $ (if b then ifToks else elseToks) ++ rest
584−
585−startsWithAlphaNum :: Text -> Bool
586−startsWithAlphaNum t =
587− case T.uncons t of
588− Just (c, _) | isAlphaNum c -> True
589− _ -> False
590−
591551setpos :: SourcePos -> Tok -> Tok
592552setpos spos (Tok _ tt txt) = Tok spos tt txt
593553
@@ -823,8 +783,7 @@ withRaw parser = do
823783
824784keyval :: PandocMonad m => LP m (Text, Text)
825785keyval = try $ do
826− key <- untokenize <$> many1 (notFollowedBy (symbol '=') >>
827− (symbol '-' <|> symbol '_' <|> satisfyTok isWordTok))
786+ Tok _ Word key <- satisfyTok isWordTok
828787 sp
829788 val <- option mempty $ do
830789 symbol '='
src/Text/Pandoc/Readers/LaTeX/SIunitx.hs+66−140
@@ -1,4 +1,3 @@
1−{-# LANGUAGE ScopedTypeVariables #-}
21{-# LANGUAGE OverloadedStrings #-}
32module Text.Pandoc.Readers.LaTeX.SIunitx
43 ( siunitxCommands )
@@ -10,32 +9,27 @@ import Text.Pandoc.Class
109import Text.Pandoc.Parsing hiding (blankline, mathDisplay, mathInline,
1110 optional, space, spaces, withRaw, (<|>))
1211import Control.Applicative ((<|>))
13−import Control.Monad (void)
1412import qualified Data.Map as M
1513import Data.Char (isDigit)
1614import Data.Text (Text)
1715import qualified Data.Text as T
1816import Data.List (intersperse)
19−import qualified Data.Sequence as Seq
20−import Text.Pandoc.Walk (walk)
17+
2118
2219siunitxCommands :: PandocMonad m
2320 => LP m Inlines -> M.Map Text (LP m Inlines)
2421siunitxCommands tok = M.fromList
25− [ ("si", dosi tok)
22+ [ ("si", skipopts *> dosi tok)
2623 , ("SI", doSI tok)
2724 , ("SIrange", doSIrange True tok)
2825 , ("numrange", doSIrange False tok)
2926 , ("numlist", doSInumlist)
30− , ("SIlist", doSIlist tok)
3127 , ("num", doSInum)
3228 , ("ang", doSIang)
3329 ]
3430
3531dosi :: PandocMonad m => LP m Inlines -> LP m Inlines
36−dosi tok = do
37− options <- option [] keyvals
38− grouped (siUnit options tok) <|> siUnit options tok
32+dosi tok = grouped (siUnit tok) <|> siUnit tok
3933
4034-- converts e.g. \SI{1}[\$]{} to "$ 1" or \SI{1}{\euro} to "1 €"
4135doSI :: PandocMonad m => LP m Inlines -> LP m Inlines
@@ -70,50 +64,23 @@ doSInumlist = do
7064 mconcat (intersperse (str "," <> space) (init xs)) <>
7165 text ", & " <> last xs
7266
73−doSIlist :: PandocMonad m => LP m Inlines -> LP m Inlines
74−doSIlist tok = do
75− options <- option [] keyvals
76− nums <- map tonum . T.splitOn ";" . untokenize <$> braced
77− unit <- grouped (siUnit options tok) <|> siUnit options tok
78− let xs = map (<> (str "\xa0" <> unit)) nums
79− case xs of
80− [] -> return mempty
81− [x] -> return x
82− _ -> return $
83− mconcat (intersperse (str "," <> space) (init xs)) <>
84− text ", & " <> last xs
85−
8667parseNum :: Parser Text () Inlines
8768parseNum = (mconcat <$> many parseNumPart) <* eof
8869
89−minus :: Text
90−minus = "\x2212"
91−
92−hyphenToMinus :: Inline -> Inline
93−hyphenToMinus (Str t) = Str (T.replace "-" minus t)
94−hyphenToMinus x = x
95−
9670parseNumPart :: Parser Text () Inlines
9771parseNumPart =
9872 parseDecimalNum <|>
9973 parseComma <|>
10074 parsePlusMinus <|>
101− parsePM <|>
10275 parseI <|>
10376 parseExp <|>
10477 parseX <|>
10578 parseSpace
10679 where
107− parseDecimalNum, parsePlusMinus, parsePM,
108− parseComma, parseI, parseX,
109− parseExp, parseSpace :: Parser Text () Inlines
110− parseDecimalNum = try $ do
111− pref <- option mempty $ (mempty <$ char '+') <|> (minus <$ char '-')
112− basenum' <- many1 (satisfy (\c -> isDigit c || c == '.'))
113− let basenum = pref <> T.pack
114− (case basenum' of
115− '.':_ -> '0':basenum'
116− _ -> basenum')
80+ parseDecimalNum = do
81+ pref <- option mempty $ (mempty <$ char '+') <|> ("\x2212" <$ char '-')
82+ basenum <- (pref <>) . T.pack
83+ <$> many1 (satisfy (\c -> isDigit c || c == '.'))
11784 uncertainty <- option mempty $ T.pack <$> parseParens
11885 if T.null uncertainty
11986 then return $ str basenum
@@ -131,7 +98,6 @@ parseNumPart =
13198 | otherwise -> "." <> t
13299 parseComma = str "." <$ char ','
133100 parsePlusMinus = str "\xa0\xb1\xa0" <$ try (string "+-")
134− parsePM = str "\xa0\xb1\xa0" <$ try (string "\\pm")
135101 parseParens =
136102 char '(' *> many1 (satisfy (\c -> isDigit c || c == '.')) <* char ')'
137103 parseI = str "i" <$ char 'i'
@@ -144,14 +110,11 @@ doSIang :: PandocMonad m => LP m Inlines
144110doSIang = do
145111 skipopts
146112 ps <- T.splitOn ";" . untokenize <$> braced
147− let dropPlus t = case T.uncons t of
148− Just ('+',t') -> t'
149− _ -> t
150113 case ps ++ repeat "" of
151114 (d:m:s:_) -> return $
152− (if T.null d then mempty else str (dropPlus d) <> str "\xb0") <>
153− (if T.null m then mempty else str (dropPlus m) <> str "\x2032") <>
154− (if T.null s then mempty else str (dropPlus s) <> str "\x2033")
115+ (if T.null d then mempty else str d <> str "\xb0") <>
116+ (if T.null m then mempty else str m <> str "\x2032") <>
117+ (if T.null s then mempty else str s <> str "\x2033")
155118 _ -> return mempty
156119
157120-- converts e.g. \SIrange{100}{200}{\ms} to "100 ms--200 ms"
@@ -180,99 +143,40 @@ doSIrange includeUnits tok = do
180143emptyOr160 :: Inlines -> Inlines
181144emptyOr160 x = if x == mempty then x else str "\160"
182145
183−siUnit :: forall m. PandocMonad m => [(Text,Text)] -> LP m Inlines -> LP m Inlines
184−siUnit options tok = mconcat . intersperse (str "\xa0") <$> many1 siUnitPart
185− where
186− siUnitPart :: LP m Inlines
187− siUnitPart = try $ do
188− skipMany (void (symbol '.') <|> void (symbol '~') <|> spaces1)
189− x <- ((siPrefix <*> siBase)
190− <|> (do u <- siBase <|> tok
191− option u $ siSuffix <*> pure u))
192− option x (siInfix x)
193− siInfix :: Inlines -> LP m Inlines
194− siInfix u1 = try $
195− (do _ <- controlSeq "per"
196− u2 <- siUnitPart
197− let useSlash = lookup "per-mode" options == Just "symbol"
198− if useSlash
199− then return (u1 <> str "/" <> u2)
200− else return (u1 <> str "\xa0" <> negateExponent u2))
201− <|> (do _ <- symbol '/'
202− u2 <- siUnitPart
203− return (u1 <> str "/" <> u2))
204− siPrefix :: LP m (Inlines -> Inlines)
205− siPrefix =
206− (do _ <- controlSeq "square"
207− skipopts
208− return (<> superscript "2"))
209− <|> (do _ <- controlSeq "cubic"
210− skipopts
211− return (<> superscript "3"))
212− <|> (do _ <- controlSeq "raisetothe"
213− skipopts
214− n <- walk hyphenToMinus <$> tok
215− return (<> superscript n))
216− siSuffix :: LP m (Inlines -> Inlines)
217− siSuffix =
218− (do _ <- controlSeq "squared"
219− skipopts
220− return (<> superscript "2"))
221− <|> (do _ <- controlSeq "cubed"
222− skipopts
223− return (<> superscript "3"))
224− <|> (do _ <- controlSeq "tothe"
225− skipopts
226− n <- walk hyphenToMinus <$> tok
227− return (<> superscript n))
228− <|> (symbol '^' *> (do n <- walk hyphenToMinus <$> tok
229− return (<> superscript n)))
230− <|> (symbol '_' *> (do n <- walk hyphenToMinus <$> tok
231− return (<> subscript n)))
232− negateExponent :: Inlines -> Inlines
233− negateExponent ils =
234− case Seq.viewr (unMany ils) of
235− xs Seq.:> Superscript ss -> (Many xs) <>
236− superscript (str minus <> fromList ss)
237− _ -> ils <> superscript (str (minus <> "1"))
238− siBase :: LP m Inlines
239− siBase =
240− ((try
241− (do Tok _ (CtrlSeq name) _ <- anyControlSeq
242− case M.lookup name siUnitModifierMap of
243− Just il -> (il <>) <$> siBase
244− Nothing ->
245− case M.lookup name siUnitMap of
246− Just il -> pure il
247− Nothing -> fail "not a unit command"))
248− <|> (do Tok _ Word t <- satisfyTok isWordTok
249− return $ str t)
250− )
251−
252−siUnitModifierMap :: M.Map Text Inlines
253−siUnitModifierMap = M.fromList
254− [ ("atto", str "a")
255− , ("centi", str "c")
256− , ("deca", str "d")
257− , ("deci", str "d")
258− , ("deka", str "d")
259− , ("exa", str "E")
260− , ("femto", str "f")
261− , ("giga", str "G")
262− , ("hecto", str "h")
263− , ("kilo", str "k")
264− , ("mega", str "M")
265− , ("micro", str "μ")
266− , ("milli", str "m")
267− , ("nano", str "n")
268− , ("peta", str "P")
269− , ("pico", str "p")
270− , ("tera", str "T")
271− , ("yocto", str "y")
272− , ("yotta", str "Y")
273− , ("zepto", str "z")
274− , ("zetta", str "Z")
275− ]
146+siUnit :: PandocMonad m => LP m Inlines -> LP m Inlines
147+siUnit tok = try (do
148+ Tok _ (CtrlSeq name) _ <- anyControlSeq
149+ case name of
150+ "square" -> do
151+ unit <- siUnit tok
152+ return $ unit <> superscript "2"
153+ "cubic" -> do
154+ unit <- siUnit tok
155+ return $ unit <> superscript "3"
156+ "raisetothe" -> do
157+ n <- tok
158+ unit <- siUnit tok
159+ return $ unit <> superscript n
160+ _ ->
161+ case M.lookup name siUnitMap of
162+ Just il ->
163+ option il $
164+ choice
165+ [ (il <> superscript "2") <$ controlSeq "squared"
166+ , (il <> superscript "3") <$ controlSeq "cubed"
167+ , (\n -> il <> superscript n) <$> (controlSeq "tothe" *> tok)
168+ ]
169+ Nothing -> fail "not an siunit unit command")
170+ <|> (lookAhead anyControlSeq >> tok)
171+ <|> (do Tok _ Word t <- satisfyTok isWordTok
172+ return $ str t)
173+ <|> (symbol '^' *> (superscript <$> tok))
174+ <|> (symbol '_' *> (subscript <$> tok))
175+ <|> ("\xa0" <$ symbol '.')
176+ <|> ("\xa0" <$ symbol '~')
177+ <|> tok
178+ <|> (do Tok _ _ t <- anyTok
179+ return (str t))
276180
277181siUnitMap :: M.Map Text Inlines
278182siUnitMap = M.fromList
@@ -372,6 +276,7 @@ siUnitMap = M.fromList
372276 , ("arcsecond", str "″")
373277 , ("astronomicalunit", str "ua")
374278 , ("atomicmassunit", str "u")
279+ , ("atto", str "a")
375280 , ("bar", str "bar")
376281 , ("barn", str "b")
377282 , ("becquerel", str "Bq")
@@ -379,38 +284,51 @@ siUnitMap = M.fromList
379284 , ("bohr", emph (str "a") <> subscript (str "0"))
380285 , ("candela", str "cd")
381286 , ("celsius", str "°C")
287+ , ("centi", str "c")
382288 , ("clight", emph (str "c") <> subscript (str "0"))
383289 , ("coulomb", str "C")
384290 , ("dalton", str "Da")
385291 , ("day", str "d")
292+ , ("deca", str "d")
293+ , ("deci", str "d")
386294 , ("decibel", str "db")
387295 , ("degreeCelsius",str "°C")
388296 , ("degree", str "°")
297+ , ("deka", str "d")
389298 , ("electronmass", emph (str "m") <> subscript (str "e"))
390299 , ("electronvolt", str "eV")
391300 , ("elementarycharge", emph (str "e"))
301+ , ("exa", str "E")
392302 , ("farad", str "F")
303+ , ("femto", str "f")
304+ , ("giga", str "G")
393305 , ("gram", str "g")
394306 , ("gray", str "Gy")
395307 , ("hartree", emph (str "E") <> subscript (str "h"))
396308 , ("hectare", str "ha")
309+ , ("hecto", str "h")
397310 , ("henry", str "H")
398311 , ("hertz", str "Hz")
399312 , ("hour", str "h")
400313 , ("joule", str "J")
401314 , ("katal", str "kat")
402315 , ("kelvin", str "K")
316+ , ("kilo", str "k")
403317 , ("kilogram", str "kg")
404318 , ("knot", str "kn")
405319 , ("liter", str "L")
406320 , ("litre", str "l")
407321 , ("lumen", str "lm")
408322 , ("lux", str "lx")
323+ , ("mega", str "M")
409324 , ("meter", str "m")
410325 , ("metre", str "m")
326+ , ("micro", str "μ")
327+ , ("milli", str "m")
411328 , ("minute", str "min")
412329 , ("mmHg", str "mmHg")
413330 , ("mole", str "mol")
331+ , ("nano", str "n")
414332 , ("nauticalmile", str "M")
415333 , ("neper", str "Np")
416334 , ("newton", str "N")
@@ -418,17 +336,25 @@ siUnitMap = M.fromList
418336 , ("Pa", str "Pa")
419337 , ("pascal", str "Pa")
420338 , ("percent", str "%")
339+ , ("per", str "/")
340+ , ("peta", str "P")
341+ , ("pico", str "p")
421342 , ("planckbar", emph (str "\x210f"))
422343 , ("radian", str "rad")
423344 , ("second", str "s")
424345 , ("siemens", str "S")
425346 , ("sievert", str "Sv")
426347 , ("steradian", str "sr")
348+ , ("tera", str "T")
427349 , ("tesla", str "T")
428350 , ("tonne", str "t")
429351 , ("volt", str "V")
430352 , ("watt", str "W")
431353 , ("weber", str "Wb")
354+ , ("yocto", str "y")
355+ , ("yotta", str "Y")
356+ , ("zepto", str "z")
357+ , ("zetta", str "Z")
432358 ]
433359
434360
src/Text/Pandoc/Readers/LaTeX/Types.hs+1−14
@@ -1,4 +1,3 @@
1−{-# LANGUAGE FlexibleInstances #-}
21{- |
32 Module : Text.Pandoc.Readers.LaTeX.Types
43 Copyright : Copyright (C) 2017-2021 John MacFarlane
@@ -19,9 +18,7 @@ module Text.Pandoc.Readers.LaTeX.Types ( Tok(..)
1918 )
2019where
2120import Data.Text (Text)
22−import Text.Parsec.Pos (SourcePos, sourceName)
23−import Text.Pandoc.Sources
24−import Data.List (groupBy)
21+import Text.Parsec.Pos (SourcePos)
2522
2623data TokType = CtrlSeq Text | Spaces | Newline | Symbol | Word | Comment |
2724 Esc1 | Esc2 | Arg Int
@@ -30,16 +27,6 @@ data TokType = CtrlSeq Text | Spaces | Newline | Symbol | Word | Comment |
3027data Tok = Tok SourcePos TokType Text
3128 deriving (Eq, Ord, Show)
3229
33−instance ToSources [Tok] where
34− toSources = Sources
35− . map (\ts -> case ts of
36− Tok p _ _ : _ -> (p, mconcat $ map tokToText ts)
37− _ -> error "toSources [Tok] encountered empty group")
38− . groupBy (\(Tok p1 _ _) (Tok p2 _ _) -> sourceName p1 == sourceName p2)
39−
40−tokToText :: Tok -> Text
41−tokToText (Tok _ _ t) = t
42−
4330data ExpansionPoint = ExpandWhenDefined | ExpandWhenUsed
4431 deriving (Eq, Ord, Show)
4532
src/Text/Pandoc/Readers/Man.hs+11−18
@@ -20,7 +20,7 @@ import Control.Monad (liftM, mzero, guard, void)
2020import Control.Monad.Trans (lift)
2121import Control.Monad.Except (throwError)
2222import Data.Maybe (catMaybes, isJust)
23−import Data.List (intersperse)
23+import Data.List (intersperse, intercalate)
2424import qualified Data.Text as T
2525import Text.Pandoc.Builder as B
2626import Text.Pandoc.Class.PandocMonad (PandocMonad(..), report)
@@ -29,8 +29,9 @@ import Text.Pandoc.Logging (LogMessage(..))
2929import Text.Pandoc.Options
3030import Text.Pandoc.Parsing
3131import Text.Pandoc.Walk (query)
32−import Text.Pandoc.Shared (mapLeft)
32+import Text.Pandoc.Shared (crFilter, mapLeft)
3333import Text.Pandoc.Readers.Roff -- TODO explicit imports
34+import Text.Parsec hiding (tokenPrim)
3435import qualified Text.Parsec as Parsec
3536import Text.Parsec.Pos (updatePosString)
3637import qualified Data.Foldable as Foldable
@@ -49,20 +50,13 @@ type ManParser m = ParserT [RoffToken] ManState m
4950
5051
5152-- | Read man (troff) from an input string and return a Pandoc document.
52−readMan :: (PandocMonad m, ToSources a)
53− => ReaderOptions
54− -> a
55− -> m Pandoc
56−readMan opts s = do
57− let Sources inps = toSources s
58− tokenz <- mconcat <$> mapM (uncurry lexRoff) inps
53+readMan :: PandocMonad m => ReaderOptions -> T.Text -> m Pandoc
54+readMan opts txt = do
55+ tokenz <- lexRoff (initialPos "input") (crFilter txt)
5956 let state = def {readerOptions = opts} :: ManState
60− let fixError (PandocParsecError _ e) = PandocParsecError (Sources inps) e
61− fixError e = e
6257 eitherdoc <- readWithMTokens parseMan state
6358 (Foldable.toList . unRoffTokens $ tokenz)
64− either (throwError . fixError) return eitherdoc
65−
59+ either throwError return eitherdoc
6660
6761readWithMTokens :: PandocMonad m
6862 => ParserT [RoffToken] ManState m a -- ^ parser
@@ -70,10 +64,9 @@ readWithMTokens :: PandocMonad m
7064 -> [RoffToken] -- ^ input
7165 -> m (Either PandocError a)
7266readWithMTokens parser state input =
73− let leftF = PandocParsecError mempty
67+ let leftF = PandocParsecError . T.pack . intercalate "\n" $ show <$> input
7468 in mapLeft leftF `liftM` runParserT parser state "source" input
7569
76−
7770parseMan :: PandocMonad m => ManParser m Pandoc
7871parseMan = do
7972 bs <- many parseBlock <* eof
@@ -96,7 +89,7 @@ parseBlock = choice [ parseList
9689
9790parseTable :: PandocMonad m => ManParser m Blocks
9891parseTable = do
99− updateState $ \st -> st { tableCellsPlain = True }
92+ modifyState $ \st -> st { tableCellsPlain = True }
10093 let isTbl Tbl{} = True
10194 isTbl _ = False
10295 Tbl _opts rows pos <- msatisfy isTbl
@@ -142,7 +135,7 @@ parseTable = do
142135 case res' of
143136 Left _ -> Prelude.fail "Could not parse table cell"
144137 Right x -> do
145− updateState $ \s -> s{ tableCellsPlain = False }
138+ modifyState $ \s -> s{ tableCellsPlain = False }
146139 return x
147140 Right x -> return x
148141
@@ -229,7 +222,7 @@ parseTitle = do
229222 setMeta "section" (linePartsToInlines y)
230223 [x] -> setMeta "title" (linePartsToInlines x)
231224 [] -> id
232− updateState $ \st -> st{ metadata = adjustMeta $ metadata st }
225+ modifyState $ \st -> st{ metadata = adjustMeta $ metadata st }
233226 return mempty
234227
235228linePartsToInlines :: [LinePart] -> Inlines
src/Text/Pandoc/Readers/Markdown.hs+67−86
@@ -28,10 +28,9 @@ import Data.Maybe
2828import qualified Data.Set as Set
2929import Data.Text (Text)
3030import qualified Data.Text as T
31+import qualified Data.Text.Lazy as TL
3132import qualified Data.ByteString.Lazy as BL
32−import System.FilePath (addExtension, takeExtension, takeDirectory)
33−import qualified System.FilePath.Windows as Windows
34−import qualified System.FilePath.Posix as Posix
33+import System.FilePath (addExtension, takeExtension)
3534import Text.HTML.TagSoup hiding (Row)
3635import Text.Pandoc.Builder (Blocks, Inlines)
3736import qualified Text.Pandoc.Builder as B
@@ -47,22 +46,20 @@ import Text.Pandoc.Readers.HTML (htmlInBalanced, htmlTag, isBlockTag,
4746 isCommentTag, isInlineTag, isTextTag)
4847import Text.Pandoc.Readers.LaTeX (applyMacros, rawLaTeXBlock, rawLaTeXInline)
4948import Text.Pandoc.Shared
49+import qualified Text.Pandoc.UTF8 as UTF8
5050import Text.Pandoc.XML (fromEntities)
51−import Text.Pandoc.Readers.Metadata (yamlBsToMeta, yamlBsToRefs, yamlMetaBlock)
52−-- import Debug.Trace (traceShowId)
51+import Text.Pandoc.Readers.Metadata (yamlBsToMeta, yamlBsToRefs)
5352
54−type MarkdownParser m = ParserT Sources ParserState m
55−
56−type F = Future ParserState
53+type MarkdownParser m = ParserT Text ParserState m
5754
5855-- | Read markdown from an input string and return a Pandoc document.
59−readMarkdown :: (PandocMonad m, ToSources a)
56+readMarkdown :: PandocMonad m
6057 => ReaderOptions -- ^ Reader options
61− -> a -- ^ Input
58+ -> Text -- ^ String to parse (assuming @'\n'@ line endings)
6259 -> m Pandoc
6360readMarkdown opts s = do
6461 parsed <- readWithM parseMarkdown def{ stateOptions = opts }
65− (ensureFinalNewlines 3 (toSources s))
62+ (crFilter s <> "\n\n")
6663 case parsed of
6764 Right result -> return result
6865 Left e -> throwError e
@@ -83,7 +80,7 @@ yamlToMeta opts mbfp bstr = do
8380 meta <- yamlBsToMeta (fmap B.toMetaValue <$> parseBlocks) bstr
8481 setPosition oldPos
8582 return $ runF meta defaultParserState
86− parsed <- readWithM parser def{ stateOptions = opts } ("" :: Text)
83+ parsed <- readWithM parser def{ stateOptions = opts } ""
8784 case parsed of
8885 Right result -> return result
8986 Left e -> throwError e
@@ -99,12 +96,14 @@ yamlToRefs :: PandocMonad m
9996 -> m [MetaValue]
10097yamlToRefs idpred opts mbfp bstr = do
10198 let parser = do
99+ oldPos <- getPosition
102100 case mbfp of
103101 Nothing -> return ()
104102 Just fp -> setPosition $ initialPos fp
105103 refs <- yamlBsToRefs (fmap B.toMetaValue <$> parseBlocks) idpred bstr
104+ setPosition oldPos
106105 return $ runF refs defaultParserState
107− parsed <- readWithM parser def{ stateOptions = opts } ("" :: Text)
106+ parsed <- readWithM parser def{ stateOptions = opts } ""
108107 case parsed of
109108 Right result -> return result
110109 Left e -> throwError e
@@ -147,14 +146,14 @@ inList = do
147146 ctx <- stateParserContext <$> getState
148147 guard (ctx == ListItemState)
149148
150−spnl :: PandocMonad m => ParserT Sources st m ()
149+spnl :: PandocMonad m => ParserT Text st m ()
151150spnl = try $ do
152151 skipSpaces
153152 optional newline
154153 skipSpaces
155154 notFollowedBy (char '\n')
156155
157−spnl' :: PandocMonad m => ParserT Sources st m Text
156+spnl' :: PandocMonad m => ParserT Text st m Text
158157spnl' = try $ do
159158 xs <- many spaceChar
160159 ys <- option "" $ try $ (:) <$> newline
@@ -273,13 +272,25 @@ pandocTitleBlock = do
273272 $ nullMeta
274273 updateState $ \st -> st{ stateMeta' = stateMeta' st <> meta' }
275274
276−yamlMetaBlock' :: PandocMonad m => MarkdownParser m (F Blocks)
277−yamlMetaBlock' = do
275+yamlMetaBlock :: PandocMonad m => MarkdownParser m (F Blocks)
276+yamlMetaBlock = do
278277 guardEnabled Ext_yaml_metadata_block
279− newMetaF <- yamlMetaBlock (fmap B.toMetaValue <$> parseBlocks)
280− -- Since `<>` is left-biased, existing values are not touched:
281− updateState $ \st -> st{ stateMeta' = stateMeta' st <> newMetaF }
282− return mempty
278+ try $ do
279+ string "---"
280+ blankline
281+ notFollowedBy blankline -- if --- is followed by a blank it's an HRULE
282+ rawYamlLines <- manyTill anyLine stopLine
283+ -- by including --- and ..., we allow yaml blocks with just comments:
284+ let rawYaml = T.unlines ("---" : (rawYamlLines ++ ["..."]))
285+ optional blanklines
286+ newMetaF <- yamlBsToMeta (fmap B.toMetaValue <$> parseBlocks)
287+ $ UTF8.fromTextLazy $ TL.fromStrict rawYaml
288+ -- Since `<>` is left-biased, existing values are not touched:
289+ updateState $ \st -> st{ stateMeta' = stateMeta' st <> newMetaF }
290+ return mempty
291+
292+stopLine :: PandocMonad m => MarkdownParser m ()
293+stopLine = try $ (string "---" <|> string "...") >> blankline >> return ()
283294
284295mmdTitleBlock :: PandocMonad m => MarkdownParser m ()
285296mmdTitleBlock = do
@@ -299,7 +310,7 @@ kvPair allowEmpty = try $ do
299310 (try $ newline >> lookAhead (blankline <|> nonspaceChar))
300311 guard $ allowEmpty || not (T.null val)
301312 let key' = T.concat $ T.words $ T.toLower key
302− let val' = MetaInlines $ B.toList $ B.text val
313+ let val' = MetaBlocks $ B.toList $ B.plain $ B.text val
303314 return (key',val')
304315
305316parseMarkdown :: PandocMonad m => MarkdownParser m Pandoc
@@ -338,9 +349,7 @@ referenceKey = try $ do
338349 notFollowedBy' (() <$ reference)
339350 many1Char $ notFollowedBy space >> litChar
340351 let betweenAngles = try $ char '<' >> manyTillChar litChar (char '>')
341− rebase <- option False (True <$ guardEnabled Ext_rebase_relative_paths)
342− src <- (if rebase then rebasePath pos else id) <$>
343− (try betweenAngles <|> sourceURL)
352+ src <- try betweenAngles <|> sourceURL
344353 tit <- option "" referenceTitle
345354 attr <- option nullAttr $ try $
346355 do guardEnabled Ext_link_attributes
@@ -445,7 +454,7 @@ block :: PandocMonad m => MarkdownParser m (F Blocks)
445454block = do
446455 res <- choice [ mempty <$ blanklines
447456 , codeBlockFenced
448− , yamlMetaBlock'
457+ , yamlMetaBlock
449458 -- note: bulletList needs to be before header because of
450459 -- the possibility of empty list items: -
451460 , bulletList
@@ -571,7 +580,7 @@ registerImplicitHeader raw attr@(ident, _, _)
571580-- hrule block
572581--
573582
574−hrule :: PandocMonad m => ParserT Sources st m (F Blocks)
583+hrule :: PandocMonad m => ParserT Text st m (F Blocks)
575584hrule = try $ do
576585 skipSpaces
577586 start <- satisfy isHruleChar
@@ -591,7 +600,7 @@ indentedLine = indentSpaces >> anyLineNewline
591600blockDelimiter :: PandocMonad m
592601 => (Char -> Bool)
593602 -> Maybe Int
594− -> ParserT Sources ParserState m Int
603+ -> ParserT Text ParserState m Int
595604blockDelimiter f len = try $ do
596605 skipNonindentSpaces
597606 c <- lookAhead (satisfy f)
@@ -735,7 +744,7 @@ lhsCodeBlockBirdWith c = try $ do
735744 blanklines
736745 return $ T.intercalate "\n" lns'
737746
738−birdTrackLine :: PandocMonad m => Char -> ParserT Sources st m Text
747+birdTrackLine :: PandocMonad m => Char -> ParserT Text st m Text
739748birdTrackLine c = try $ do
740749 char c
741750 -- allow html tags on left margin:
@@ -1028,7 +1037,7 @@ para = try $ do
10281037 option (B.plain <$> result)
10291038 $ try $ do
10301039 newline
1031− (mempty <$ blanklines)
1040+ (blanklines >> return mempty)
10321041 <|> (guardDisabled Ext_blank_before_blockquote >> () <$ lookAhead blockQuote)
10331042 <|> (guardEnabled Ext_backtick_code_blocks >> () <$ lookAhead codeBlockFenced)
10341043 <|> (guardDisabled Ext_blank_before_header >> () <$ lookAhead header)
@@ -1173,7 +1182,7 @@ lineBlock = do
11731182-- and the length including trailing space.
11741183dashedLine :: PandocMonad m
11751184 => Char
1176− -> ParserT Sources st m (Int, Int)
1185+ -> ParserT Text st m (Int, Int)
11771186dashedLine ch = do
11781187 dashes <- many1 (char ch)
11791188 sp <- many spaceChar
@@ -1242,7 +1251,7 @@ rawTableLine :: PandocMonad m
12421251 -> MarkdownParser m [Text]
12431252rawTableLine indices = do
12441253 notFollowedBy' (blanklines' <|> tableFooter)
1245− line <- anyLine
1254+ line <- take1WhileP (/='\n') <* newline
12461255 return $ map trim $ tail $
12471256 splitTextByIndices (init indices) line
12481257
@@ -1393,7 +1402,7 @@ pipeTableCell =
13931402 return $ B.plain <$> result)
13941403 <|> return mempty
13951404
1396−pipeTableHeaderPart :: PandocMonad m => ParserT Sources st m (Alignment, Int)
1405+pipeTableHeaderPart :: PandocMonad m => ParserT Text st m (Alignment, Int)
13971406pipeTableHeaderPart = try $ do
13981407 skipMany spaceChar
13991408 left <- optionMaybe (char ':')
@@ -1409,14 +1418,10 @@ pipeTableHeaderPart = try $ do
14091418 (Just _,Just _) -> AlignCenter, len)
14101419
14111420-- Succeed only if current line contains a pipe.
1412−scanForPipe :: PandocMonad m => ParserT Sources st m ()
1421+scanForPipe :: PandocMonad m => ParserT Text st m ()
14131422scanForPipe = do
1414− Sources inps <- getInput
1415− let ln = case inps of
1416− [] -> ""
1417− ((_,t):(_,t'):_) | T.null t -> t'
1418− ((_,t):_) -> t
1419− case T.break (\c -> c == '\n' || c == '|') ln of
1423+ inp <- getInput
1424+ case T.break (\c -> c == '\n' || c == '|') inp of
14201425 (_, T.uncons -> Just ('|', _)) -> return ()
14211426 _ -> mzero
14221427
@@ -1710,13 +1715,13 @@ whitespace = spaceChar >> return <$> (lb <|> regsp) <?> "whitespace"
17101715 where lb = spaceChar >> skipMany spaceChar >> option B.space (endline >> return B.linebreak)
17111716 regsp = skipMany spaceChar >> return B.space
17121717
1713−nonEndline :: PandocMonad m => ParserT Sources st m Char
1718+nonEndline :: PandocMonad m => ParserT Text st m Char
17141719nonEndline = satisfy (/='\n')
17151720
17161721str :: PandocMonad m => MarkdownParser m (F Inlines)
17171722str = do
17181723 result <- mconcat <$> many1
1719− ( T.pack <$> (many1 alphaNum)
1724+ ( take1WhileP isAlphaNum
17201725 <|> "." <$ try (char '.' <* notFollowedBy (char '.')) )
17211726 updateLastStrPos
17221727 (do guardEnabled Ext_smart
@@ -1840,12 +1845,9 @@ regLink :: PandocMonad m
18401845 -> MarkdownParser m (F Inlines)
18411846regLink constructor lab = try $ do
18421847 (src, tit) <- source
1843− rebase <- option False (True <$ guardEnabled Ext_rebase_relative_paths)
1844− pos <- getPosition
1845− let src' = if rebase then rebasePath pos src else src
18461848 attr <- option nullAttr $
18471849 guardEnabled Ext_link_attributes >> attributes
1848− return $ constructor attr src' tit <$> lab
1850+ return $ constructor attr src tit <$> lab
18491851
18501852-- a link like [this][ref] or [this][] or [this]
18511853referenceLink :: PandocMonad m
@@ -1885,8 +1887,7 @@ referenceLink constructor (lab, raw) = do
18851887 Just ((src, tit), _) -> constructor nullAttr src tit <$> lab
18861888 Nothing -> makeFallback
18871889 else makeFallback
1888− Just ((src,tit), attr) ->
1889− constructor attr src tit <$> lab
1890+ Just ((src,tit), attr) -> constructor attr src tit <$> lab
18901891
18911892dropBrackets :: Text -> Text
18921893dropBrackets = dropRB . dropLB
@@ -1919,33 +1920,15 @@ autoLink = try $ do
19191920 return $ return $ B.linkWith attr (src <> escapeURI extra) ""
19201921 (B.str $ orig <> extra)
19211922
1922−-- | Rebase a relative path, by adding the (relative) directory
1923−-- of the containing source position. Absolute links and URLs
1924−-- are untouched.
1925−rebasePath :: SourcePos -> Text -> Text
1926−rebasePath pos path = do
1927− let fp = sourceName pos
1928− isFragment = T.take 1 path == "#"
1929− path' = T.unpack path
1930− isAbsolutePath = Posix.isAbsolute path' || Windows.isAbsolute path'
1931− in if T.null path || isFragment || isAbsolutePath || isURI path
1932− then path
1933− else
1934− case takeDirectory fp of
1935− "" -> path
1936− "." -> path
1937− d -> T.pack d <> "/" <> path
1938−
19391923image :: PandocMonad m => MarkdownParser m (F Inlines)
19401924image = try $ do
19411925 char '!'
19421926 (lab,raw) <- reference
19431927 defaultExt <- getOption readerDefaultImageExtension
1944− let constructor attr' src =
1945− case takeExtension (T.unpack src) of
1946− "" -> B.imageWith attr' (T.pack $ addExtension (T.unpack src)
1947− $ T.unpack defaultExt)
1948− _ -> B.imageWith attr' src
1928+ let constructor attr' src = case takeExtension (T.unpack src) of
1929+ "" -> B.imageWith attr' (T.pack $ addExtension (T.unpack src)
1930+ $ T.unpack defaultExt)
1931+ _ -> B.imageWith attr' src
19491932 regLink constructor lab <|> referenceLink constructor (lab,raw)
19501933
19511934note :: PandocMonad m => MarkdownParser m (F Inlines)
@@ -1991,7 +1974,7 @@ rawLaTeXInline' = do
19911974 s <- rawLaTeXInline
19921975 return $ return $ B.rawInline "tex" s -- "tex" because it might be context
19931976
1994−rawConTeXtEnvironment :: PandocMonad m => ParserT Sources st m Text
1977+rawConTeXtEnvironment :: PandocMonad m => ParserT Text st m Text
19951978rawConTeXtEnvironment = try $ do
19961979 string "\\start"
19971980 completion <- inBrackets (letter <|> digit <|> spaceChar)
@@ -2000,7 +1983,7 @@ rawConTeXtEnvironment = try $ do
20001983 (try $ string "\\stop" >> textStr completion)
20011984 return $ "\\start" <> completion <> T.concat contents <> "\\stop" <> completion
20021985
2003−inBrackets :: PandocMonad m => ParserT Sources st m Char -> ParserT Sources st m Text
1986+inBrackets :: PandocMonad m => ParserT Text st m Char -> ParserT Text st m Text
20041987inBrackets parser = do
20051988 char '['
20061989 contents <- manyChar parser
@@ -2120,7 +2103,7 @@ cite = do
21202103
21212104textualCite :: PandocMonad m => MarkdownParser m (F Inlines)
21222105textualCite = try $ do
2123− (suppressAuthor, key) <- citeKey True
2106+ (suppressAuthor, key) <- citeKey
21242107 -- If this is a reference to an earlier example list item,
21252108 -- then don't parse it as a citation. If the example list
21262109 -- item comes later, we'll parse it here and figure out in
@@ -2200,7 +2183,7 @@ prefix = trimInlinesF . mconcat <$>
22002183 manyTill inline (char ']'
22012184 <|> lookAhead
22022185 (try $ do optional (try (char ';' >> spnl))
2203− citeKey True
2186+ citeKey
22042187 return ']'))
22052188
22062189citeList :: PandocMonad m => MarkdownParser m (F [Citation])
@@ -2209,7 +2192,7 @@ citeList = fmap sequence $ sepBy1 citation (try $ char ';' >> spnl)
22092192citation :: PandocMonad m => MarkdownParser m (F Citation)
22102193citation = try $ do
22112194 pref <- prefix
2212− (suppress_author, key) <- citeKey True
2195+ (suppress_author, key) <- citeKey
22132196 suff <- suffix
22142197 noteNum <- stateNoteNumber <$> getState
22152198 return $ do
@@ -2228,30 +2211,28 @@ citation = try $ do
22282211smart :: PandocMonad m => MarkdownParser m (F Inlines)
22292212smart = do
22302213 guardEnabled Ext_smart
2231− doubleQuoted <|> singleQuoted <|> (return <$> doubleCloseQuote) <|>
2232− (return <$> apostrophe) <|> (return <$> dash) <|> (return <$> ellipses)
2214+ doubleQuoted <|> singleQuoted <|>
2215+ choice (map (return <$>) [apostrophe, dash, ellipses])
22332216
22342217singleQuoted :: PandocMonad m => MarkdownParser m (F Inlines)
2235−singleQuoted = do
2218+singleQuoted = try $ do
22362219 singleQuoteStart
2237− (try (withQuoteContext InSingleQuote $
2220+ withQuoteContext InSingleQuote $
22382221 fmap B.singleQuoted . trimInlinesF . mconcat <$>
2239− many1Till inline singleQuoteEnd))
2240− <|> (return (return (B.str "\8217")))
2222+ many1Till inline singleQuoteEnd
22412223
22422224-- doubleQuoted will handle regular double-quoted sections, as well
22432225-- as dialogues with an open double-quote without a close double-quote
22442226-- in the same paragraph.
22452227doubleQuoted :: PandocMonad m => MarkdownParser m (F Inlines)
2246−doubleQuoted = do
2228+doubleQuoted = try $ do
22472229 doubleQuoteStart
2248− (try (withQuoteContext InDoubleQuote $
2230+ withQuoteContext InDoubleQuote $
22492231 fmap B.doubleQuoted . trimInlinesF . mconcat <$>
2250− many1Till inline doubleQuoteEnd))
2251− <|> (return (return (B.str "\8220")))
2232+ many1Till inline doubleQuoteEnd
22522233
22532234toRow :: [Blocks] -> Row
22542235toRow = Row nullAttr . map B.simpleCell
22552236
22562237toHeaderRow :: [Blocks] -> [Row]
2257−toHeaderRow l = [toRow l | not (null l) && not (all null l)]
2238+toHeaderRow l = [toRow l | not (null l)]
src/Text/Pandoc/Readers/MediaWiki.hs+6−7
@@ -36,18 +36,17 @@ import Text.Pandoc.Logging
3636import Text.Pandoc.Options
3737import Text.Pandoc.Parsing hiding (nested)
3838import Text.Pandoc.Readers.HTML (htmlTag, isBlockTag, isCommentTag)
39−import Text.Pandoc.Shared (safeRead, stringify, stripTrailingNewlines,
39+import Text.Pandoc.Shared (crFilter, safeRead, stringify, stripTrailingNewlines,
4040 trim, splitTextBy, tshow)
4141import Text.Pandoc.Walk (walk)
4242import Text.Pandoc.XML (fromEntities)
4343
4444-- | Read mediawiki from an input string and return a Pandoc document.
45−readMediaWiki :: (PandocMonad m, ToSources a)
46− => ReaderOptions
47− -> a
45+readMediaWiki :: PandocMonad m
46+ => ReaderOptions -- ^ Reader options
47+ -> Text -- ^ String to parse (assuming @'\n'@ line endings)
4848 -> m Pandoc
4949readMediaWiki opts s = do
50− let sources = toSources s
5150 parsed <- readWithM parseMediaWiki MWState{ mwOptions = opts
5251 , mwMaxNestingLevel = 4
5352 , mwNextLinkNumber = 1
@@ -56,7 +55,7 @@ readMediaWiki opts s = do
5655 , mwLogMessages = []
5756 , mwInTT = False
5857 }
59− sources
58+ (crFilter s <> "\n")
6059 case parsed of
6160 Right result -> return result
6261 Left e -> throwError e
@@ -70,7 +69,7 @@ data MWState = MWState { mwOptions :: ReaderOptions
7069 , mwInTT :: Bool
7170 }
7271
73−type MWParser m = ParserT Sources MWState m
72+type MWParser m = ParserT Text MWState m
7473
7574instance HasReaderOptions MWState where
7675 extractReaderOptions = mwOptions
src/Text/Pandoc/Readers/Metadata.hs+17−44
@@ -14,7 +14,6 @@ Parse YAML/JSON metadata to 'Pandoc' 'Meta'.
1414module Text.Pandoc.Readers.Metadata (
1515 yamlBsToMeta,
1616 yamlBsToRefs,
17− yamlMetaBlock,
1817 yamlMap ) where
1918
2019import Control.Monad
@@ -31,13 +30,11 @@ import Text.Pandoc.Definition
3130import Text.Pandoc.Error
3231import Text.Pandoc.Parsing hiding (tableWith)
3332import Text.Pandoc.Shared
34−import qualified Data.Text.Lazy as TL
35−import qualified Text.Pandoc.UTF8 as UTF8
3633
37−yamlBsToMeta :: (PandocMonad m, HasLastStrPosition st)
38− => ParserT Sources st m (Future st MetaValue)
34+yamlBsToMeta :: PandocMonad m
35+ => ParserT Text ParserState m (F MetaValue)
3936 -> BL.ByteString
40− -> ParserT Sources st m (Future st Meta)
37+ -> ParserT Text ParserState m (F Meta)
4138yamlBsToMeta pMetaValue bstr = do
4239 case YAML.decodeNode' YAML.failsafeSchemaResolver False False bstr of
4340 Right (YAML.Doc (YAML.Mapping _ _ o):_)
@@ -45,9 +42,6 @@ yamlBsToMeta pMetaValue bstr = do
4542 Right [] -> return . return $ mempty
4643 Right [YAML.Doc (YAML.Scalar _ YAML.SNull)]
4744 -> return . return $ mempty
48− -- the following is what we get from a comment:
49− Right [YAML.Doc (YAML.Scalar _ (YAML.SUnknown _ ""))]
50− -> return . return $ mempty
5145 Right _ -> Prelude.fail "expected YAML object"
5246 Left (yamlpos, err')
5347 -> do pos <- getPosition
@@ -69,11 +63,11 @@ lookupYAML t (YAML.Mapping _ _ m) =
6963lookupYAML _ _ = Nothing
7064
7165-- Returns filtered list of references.
72−yamlBsToRefs :: (PandocMonad m, HasLastStrPosition st)
73− => ParserT Sources st m (Future st MetaValue)
66+yamlBsToRefs :: PandocMonad m
67+ => ParserT Text ParserState m (F MetaValue)
7468 -> (Text -> Bool) -- ^ Filter for id
7569 -> BL.ByteString
76− -> ParserT Sources st m (Future st [MetaValue])
70+ -> ParserT Text ParserState m (F [MetaValue])
7771yamlBsToRefs pMetaValue idpred bstr =
7872 case YAML.decodeNode' YAML.failsafeSchemaResolver False False bstr of
7973 Right (YAML.Doc o@YAML.Mapping{}:_)
@@ -101,12 +95,8 @@ yamlBsToRefs pMetaValue idpred bstr =
10195 Right [YAML.Doc (YAML.Scalar _ YAML.SNull)]
10296 -> return . return $ mempty
10397 Right _ -> Prelude.fail "expecting YAML object"
104− Left (yamlpos, err')
105− -> do pos <- getPosition
106− setPosition $ incSourceLine
107− (setSourceColumn pos (YE.posColumn yamlpos))
108− (YE.posLine yamlpos - 1)
109− Prelude.fail err'
98+ Left (_pos, err')
99+ -> Prelude.fail err'
110100
111101
112102nodeToKey :: YAML.Node YE.Pos -> Maybe Text
@@ -114,10 +104,10 @@ nodeToKey (YAML.Scalar _ (YAML.SStr t)) = Just t
114104nodeToKey (YAML.Scalar _ (YAML.SUnknown _ t)) = Just t
115105nodeToKey _ = Nothing
116106
117−normalizeMetaValue :: (PandocMonad m, HasLastStrPosition st)
118− => ParserT Sources st m (Future st MetaValue)
107+normalizeMetaValue :: PandocMonad m
108+ => ParserT Text ParserState m (F MetaValue)
119109 -> Text
120− -> ParserT Sources st m (Future st MetaValue)
110+ -> ParserT Text ParserState m (F MetaValue)
121111normalizeMetaValue pMetaValue x =
122112 -- Note: a standard quoted or unquoted YAML value will
123113 -- not end in a newline, but a "block" set off with
@@ -139,10 +129,10 @@ checkBoolean t
139129 | t == T.pack "false" || t == T.pack "False" || t == T.pack "FALSE" = Just False
140130 | otherwise = Nothing
141131
142−yamlToMetaValue :: (PandocMonad m, HasLastStrPosition st)
143− => ParserT Sources st m (Future st MetaValue)
132+yamlToMetaValue :: PandocMonad m
133+ => ParserT Text ParserState m (F MetaValue)
144134 -> YAML.Node YE.Pos
145− -> ParserT Sources st m (Future st MetaValue)
135+ -> ParserT Text ParserState m (F MetaValue)
146136yamlToMetaValue pMetaValue (YAML.Scalar _ x) =
147137 case x of
148138 YAML.SStr t -> normalizeMetaValue pMetaValue t
@@ -162,10 +152,10 @@ yamlToMetaValue pMetaValue (YAML.Mapping _ _ o) =
162152 fmap MetaMap <$> yamlMap pMetaValue o
163153yamlToMetaValue _ _ = return $ return $ MetaString ""
164154
165−yamlMap :: (PandocMonad m, HasLastStrPosition st)
166− => ParserT Sources st m (Future st MetaValue)
155+yamlMap :: PandocMonad m
156+ => ParserT Text ParserState m (F MetaValue)
167157 -> M.Map (YAML.Node YE.Pos) (YAML.Node YE.Pos)
168− -> ParserT Sources st m (Future st (M.Map Text MetaValue))
158+ -> ParserT Text ParserState m (F (M.Map Text MetaValue))
169159yamlMap pMetaValue o = do
170160 kvs <- forM (M.toList o) $ \(key, v) -> do
171161 k <- maybe (throwError $ PandocParseError
@@ -181,20 +171,3 @@ yamlMap pMetaValue o = do
181171 return $ do
182172 v' <- fv
183173 return (k, v')
184−
185−-- | Parse a YAML metadata block using the supplied 'MetaValue' parser.
186−yamlMetaBlock :: (HasLastStrPosition st, PandocMonad m)
187− => ParserT Sources st m (Future st MetaValue)
188− -> ParserT Sources st m (Future st Meta)
189−yamlMetaBlock parser = try $ do
190− string "---"
191− blankline
192− notFollowedBy blankline -- if --- is followed by a blank it's an HRULE
193− rawYamlLines <- manyTill anyLine stopLine
194− -- by including --- and ..., we allow yaml blocks with just comments:
195− let rawYaml = T.unlines ("---" : (rawYamlLines ++ ["..."]))
196− optional blanklines
197− yamlBsToMeta parser $ UTF8.fromTextLazy $ TL.fromStrict rawYaml
198−
199−stopLine :: Monad m => ParserT Sources st m ()
200−stopLine = try $ (string "---" <|> string "...") >> blankline >> return ()
src/Text/Pandoc/Readers/Muse.hs+9−10
@@ -36,20 +36,19 @@ import Text.Pandoc.Definition
3636import Text.Pandoc.Error (PandocError (PandocParsecError))
3737import Text.Pandoc.Logging
3838import Text.Pandoc.Options
39−import Text.Pandoc.Parsing
40−import Text.Pandoc.Shared (trimr, tshow)
39+import Text.Pandoc.Parsing hiding (F)
40+import Text.Pandoc.Shared (crFilter, trimr, tshow)
4141
4242-- | Read Muse from an input string and return a Pandoc document.
43−readMuse :: (PandocMonad m, ToSources a)
43+readMuse :: PandocMonad m
4444 => ReaderOptions
45− -> a
45+ -> Text
4646 -> m Pandoc
4747readMuse opts s = do
48− let sources = toSources s
49− res <- flip runReaderT def $ runParserT parseMuse def{ museOptions = opts }
50− (initialSourceName sources) sources
48+ let input = crFilter s
49+ res <- flip runReaderT def $ runParserT parseMuse def{ museOptions = opts } "source" input
5150 case res of
52− Left e -> throwError $ PandocParsecError sources e
51+ Left e -> throwError $ PandocParsecError input e
5352 Right d -> return d
5453
5554type F = Future MuseState
@@ -83,7 +82,7 @@ instance Default MuseEnv where
8382 , museInPara = False
8483 }
8584
86−type MuseParser m = ParserT Sources MuseState (ReaderT MuseEnv m)
85+type MuseParser m = ParserT Text MuseState (ReaderT MuseEnv m)
8786
8887instance HasReaderOptions MuseState where
8988 extractReaderOptions = museOptions
@@ -156,7 +155,7 @@ firstColumn = getPosition >>= \pos -> guard (sourceColumn pos == 1)
156155-- * Parsers
157156
158157-- | Parse end-of-line, which can be either a newline or end-of-file.
159−eol :: (Stream s m Char, UpdateSourcePos s Char) => ParserT s st m ()
158+eol :: Stream s m Char => ParserT s st m ()
160159eol = void newline <|> eof
161160
162161getIndent :: PandocMonad m
src/Text/Pandoc/Readers/Native.hs+5−7
@@ -21,7 +21,6 @@ import Control.Monad.Except (throwError)
2121import Data.Text (Text)
2222import Text.Pandoc.Class.PandocMonad (PandocMonad)
2323import Text.Pandoc.Error
24−import Text.Pandoc.Sources (ToSources(..), sourcesToText)
2524
2625-- | Read native formatted text and return a Pandoc document.
2726-- The input may be a full pandoc document, a block list, a block,
@@ -33,15 +32,14 @@ import Text.Pandoc.Sources (ToSources(..), sourcesToText)
3332--
3433-- > Pandoc nullMeta [Plain [Str "hi"]]
3534--
36−readNative :: (PandocMonad m, ToSources a)
35+readNative :: PandocMonad m
3736 => ReaderOptions
38− -> a
37+ -> Text -- ^ String to parse (assuming @'\n'@ line endings)
3938 -> m Pandoc
4039readNative _ s =
41− let t = sourcesToText . toSources $ s
42− in case maybe (Pandoc nullMeta <$> readBlocks t) Right (safeRead t) of
43− Right doc -> return doc
44− Left _ -> throwError $ PandocParseError "couldn't read native"
40+ case maybe (Pandoc nullMeta <$> readBlocks s) Right (safeRead s) of
41+ Right doc -> return doc
42+ Left _ -> throwError $ PandocParseError "couldn't read native"
4543
4644readBlocks :: Text -> Either PandocError [Block]
4745readBlocks s = maybe ((:[]) <$> readBlock s) Right (safeRead s)
src/Text/Pandoc/Readers/OPML.hs+4−9
@@ -24,8 +24,7 @@ import Text.Pandoc.Options
2424import Text.Pandoc.Error (PandocError(..))
2525import Text.Pandoc.Readers.HTML (readHtml)
2626import Text.Pandoc.Readers.Markdown (readMarkdown)
27−import Text.Pandoc.Shared (blocksToInlines')
28−import Text.Pandoc.Sources (ToSources(..), sourcesToText)
27+import Text.Pandoc.Shared (crFilter, blocksToInlines')
2928import Text.Pandoc.XML.Light
3029import Control.Monad.Except (throwError)
3130
@@ -47,14 +46,10 @@ instance Default OPMLState where
4746 , opmlOptions = def
4847 }
4948
50−readOPML :: (PandocMonad m, ToSources a)
51− => ReaderOptions
52− -> a
53− -> m Pandoc
49+readOPML :: PandocMonad m => ReaderOptions -> Text -> m Pandoc
5450readOPML opts inp = do
55− let sources = toSources inp
56− (bs, st') <-
57− runStateT (case parseXMLContents (TL.fromStrict . sourcesToText $ sources) of
51+ (bs, st') <- runStateT
52+ (case parseXMLContents (TL.fromStrict (crFilter inp)) of
5853 Left msg -> throwError $ PandocXMLError "" msg
5954 Right ns -> mapM parseBlock ns)
6055 def{ opmlOptions = opts }
src/Text/Pandoc/Readers/Odt/ContentReader.hs+7−12
@@ -1,5 +1,4 @@
11{-# LANGUAGE Arrows #-}
2−{-# LANGUAGE CPP #-}
32{-# LANGUAGE DeriveFoldable #-}
43{-# LANGUAGE GeneralizedNewtypeDeriving #-}
54{-# LANGUAGE PatternGuards #-}
@@ -34,7 +33,7 @@ import Data.List (find)
3433import qualified Data.Map as M
3534import qualified Data.Text as T
3635import Data.Maybe
37−import Data.Monoid (Alt (..))
36+import Data.Semigroup (First(..), Option(..))
3837
3938import Text.TeXMath (readMathML, writeTeX)
4039import qualified Text.Pandoc.XML.Light as XML
@@ -506,11 +505,13 @@ type InlineMatcher = ElementMatcher Inlines
506505
507506type BlockMatcher = ElementMatcher Blocks
508507
509−newtype FirstMatch a = FirstMatch (Alt Maybe a)
510− deriving (Foldable, Monoid, Semigroup)
508+
509+newtype FirstMatch a = FirstMatch (Option (First a))
510+ deriving (Foldable, Monoid, Semigroup)
511511
512512firstMatch :: a -> FirstMatch a
513−firstMatch = FirstMatch . Alt . Just
513+firstMatch = FirstMatch . Option . Just . First
514+
514515
515516--
516517matchingElement :: (Monoid e)
@@ -576,10 +577,7 @@ read_spaces = matchingElement NsText "s" (
576577read_line_break :: InlineMatcher
577578read_line_break = matchingElement NsText "line-break"
578579 $ returnV linebreak
579−--
580−read_tab :: InlineMatcher
581−read_tab = matchingElement NsText "tab"
582− $ returnV space
580+
583581--
584582read_span :: InlineMatcher
585583read_span = matchingElement NsText "span"
@@ -587,7 +585,6 @@ read_span = matchingElement NsText "span"
587585 $ matchChildContent [ read_span
588586 , read_spaces
589587 , read_line_break
590− , read_tab
591588 , read_link
592589 , read_note
593590 , read_citation
@@ -607,7 +604,6 @@ read_paragraph = matchingElement NsText "p"
607604 $ matchChildContent [ read_span
608605 , read_spaces
609606 , read_line_break
610− , read_tab
611607 , read_link
612608 , read_note
613609 , read_citation
@@ -634,7 +630,6 @@ read_header = matchingElement NsText "h"
634630 children <- ( matchChildContent [ read_span
635631 , read_spaces
636632 , read_line_break
637− , read_tab
638633 , read_link
639634 , read_note
640635 , read_citation
src/Text/Pandoc/Readers/Org.hs+7−4
@@ -18,19 +18,22 @@ import Text.Pandoc.Class.PandocMonad (PandocMonad)
1818import Text.Pandoc.Definition
1919import Text.Pandoc.Options
2020import Text.Pandoc.Parsing (reportLogMessages)
21−import Text.Pandoc.Sources (ToSources(..), ensureFinalNewlines)
21+import Text.Pandoc.Shared (crFilter)
22+
2223import Control.Monad.Except (throwError)
2324import Control.Monad.Reader (runReaderT)
2425
26+import Data.Text (Text)
27+
2528-- | Parse org-mode string and return a Pandoc document.
26−readOrg :: (PandocMonad m, ToSources a)
29+readOrg :: PandocMonad m
2730 => ReaderOptions -- ^ Reader options
28− -> a
31+ -> Text -- ^ String to parse (assuming @'\n'@ line endings)
2932 -> m Pandoc
3033readOrg opts s = do
3134 parsed <- flip runReaderT def $
3235 readWithM parseOrg (optionsToParserState opts)
33− (ensureFinalNewlines 2 (toSources s))
36+ (crFilter s <> "\n\n")
3437 case parsed of
3538 Right result -> return result
3639 Left e -> throwError e
src/Text/Pandoc/Readers/Org/Blocks.hs+2−5
@@ -40,11 +40,10 @@ import Data.List (foldl', intersperse)
4040import Data.Maybe (fromMaybe, isJust, isNothing)
4141import Data.Text (Text)
4242import Data.List.NonEmpty (nonEmpty)
43−import System.FilePath
43+
4444import qualified Data.Text as T
4545import qualified Text.Pandoc.Builder as B
4646import qualified Text.Pandoc.Walk as Walk
47−import Text.Pandoc.Sources (ToSources(..))
4847
4948--
5049-- parsing blocks
@@ -528,9 +527,7 @@ include = try $ do
528527 _ -> nullAttr
529528 return $ pure . B.codeBlockWith attr <$> parseRaw
530529 _ -> return $ return . B.fromList . blockFilter params <$> blockList
531− currentDir <- takeDirectory . sourceName <$> getPosition
532− insertIncludedFile blocksParser toSources
533− [currentDir] filename Nothing Nothing
530+ insertIncludedFileF blocksParser ["."] filename
534531 where
535532 includeTarget :: PandocMonad m => OrgParser m FilePath
536533 includeTarget = do
src/Text/Pandoc/Readers/Org/Inlines.hs+5−6
@@ -29,7 +29,6 @@ import Text.Pandoc.Definition
2929import Text.Pandoc.Options
3030import Text.Pandoc.Readers.LaTeX (inlineCommand, rawLaTeXInline)
3131import Text.TeXMath (DisplayType (..), readTeX, writePandoc)
32−import Text.Pandoc.Sources (ToSources(..))
3332import qualified Text.TeXMath.Readers.MathML.EntityMap as MathMLEntityMap
3433
3534import Control.Monad (guard, mplus, mzero, unless, void, when)
@@ -263,7 +262,7 @@ berkeleyCitationList = try $ do
263262 where
264263 citationListPart :: PandocMonad m => OrgParser m (F Inlines)
265264 citationListPart = fmap (trimInlinesF . mconcat) . try . many1 $ do
266− notFollowedBy' $ citeKey False
265+ notFollowedBy' citeKey
267266 notFollowedBy (oneOf ";]")
268267 inline
269268
@@ -278,7 +277,7 @@ berkeleyBareTag' = try $ void (string "cite")
278277
279278berkeleyTextualCite :: PandocMonad m => OrgParser m (F [Citation])
280279berkeleyTextualCite = try $ do
281− (suppressAuthor, key) <- citeKey False
280+ (suppressAuthor, key) <- citeKey
282281 returnF . return $ Citation
283282 { citationId = key
284283 , citationPrefix = mempty
@@ -351,7 +350,7 @@ citeList = sequence <$> sepEndBy1 citation (try $ char ';' *> skipSpaces)
351350citation :: PandocMonad m => OrgParser m (F Citation)
352351citation = try $ do
353352 pref <- prefix
354− (suppress_author, key) <- citeKey False
353+ (suppress_author, key) <- citeKey
355354 suff <- suffix
356355 return $ do
357356 x <- pref
@@ -368,7 +367,7 @@ citation = try $ do
368367 }
369368 where
370369 prefix = trimInlinesF . mconcat <$>
371− manyTill inline (char ']' <|> (']' <$ lookAhead (citeKey False)))
370+ manyTill inline (char ']' <|> (']' <$ lookAhead citeKey))
372371 suffix = try $ do
373372 hasSpace <- option False (notFollowedBy nonspaceChar >> return True)
374373 skipSpaces
@@ -803,7 +802,7 @@ inlineLaTeX = try $ do
803802 parseAsInlineLaTeX :: PandocMonad m
804803 => Text -> TeXExport -> OrgParser m (Maybe Inlines)
805804 parseAsInlineLaTeX cs = \case
806− TeXExport -> maybeRight <$> runParserT inlineCommand state "" (toSources cs)
805+ TeXExport -> maybeRight <$> runParserT inlineCommand state "" cs
807806 TeXIgnore -> return (Just mempty)
808807 TeXVerbatim -> return (Just $ B.str cs)
809808
src/Text/Pandoc/Readers/Org/Parsing.hs+5−5
@@ -63,7 +63,8 @@ module Text.Pandoc.Readers.Org.Parsing
6363 , ellipses
6464 , citeKey
6565 , gridTableWith
66− , insertIncludedFile
66+ , insertIncludedFileF
67+ -- * Re-exports from Text.Pandoc.Parsec
6768 , runParser
6869 , runParserT
6970 , getInput
@@ -99,22 +100,21 @@ module Text.Pandoc.Readers.Org.Parsing
99100 , getState
100101 , updateState
101102 , SourcePos
102− , sourceName
103103 , getPosition
104104 ) where
105105
106106import Data.Text (Text)
107107import Text.Pandoc.Readers.Org.ParserState
108108
109−import Text.Pandoc.Parsing hiding (anyLine, blanklines, newline,
110− parseFromString)
109+import Text.Pandoc.Parsing hiding (F, anyLine, blanklines, newline,
110+ parseFromString)
111111import qualified Text.Pandoc.Parsing as P
112112
113113import Control.Monad (guard)
114114import Control.Monad.Reader (ReaderT)
115115
116116-- | The parser used to read org files.
117−type OrgParser m = ParserT Sources OrgParserState (ReaderT OrgParserLocal m)
117+type OrgParser m = ParserT Text OrgParserState (ReaderT OrgParserLocal m)
118118
119119--
120120-- Adaptions and specializations of parsing utilities
src/Text/Pandoc/Readers/RST.hs+109−76
@@ -27,7 +27,8 @@ import Data.Text (Text)
2727import qualified Data.Text as T
2828import Text.Pandoc.Builder (Blocks, Inlines, fromList, setMeta, trimInlines)
2929import qualified Text.Pandoc.Builder as B
30−import Text.Pandoc.Class.PandocMonad (PandocMonad, fetchItem, getTimestamp)
30+import Text.Pandoc.Class.PandocMonad (PandocMonad, fetchItem,
31+ readFileFromDirs, getTimestamp)
3132import Text.Pandoc.CSV (CSVOptions (..), defaultCSVOptions, parseCSV)
3233import Text.Pandoc.Definition
3334import Text.Pandoc.Error
@@ -37,25 +38,25 @@ import Text.Pandoc.Options
3738import Text.Pandoc.Parsing
3839import Text.Pandoc.Shared
3940import qualified Text.Pandoc.UTF8 as UTF8
41+import Text.Printf (printf)
4042import Data.Time.Format
41−import System.FilePath (takeDirectory)
4243
4344-- TODO:
4445-- [ ] .. parsed-literal
4546
4647-- | Parse reStructuredText string and return Pandoc document.
47−readRST :: (PandocMonad m, ToSources a)
48+readRST :: PandocMonad m
4849 => ReaderOptions -- ^ Reader options
49− -> a
50+ -> Text -- ^ Text to parse (assuming @'\n'@ line endings)
5051 -> m Pandoc
5152readRST opts s = do
5253 parsed <- readWithM parseRST def{ stateOptions = opts }
53− (ensureFinalNewlines 2 (toSources s))
54+ (crFilter s <> "\n\n")
5455 case parsed of
5556 Right result -> return result
5657 Left e -> throwError e
5758
58−type RSTParser m = ParserT Sources ParserState m
59+type RSTParser m = ParserT Text ParserState m
5960
6061--
6162-- Constants and data structure definitions
@@ -150,19 +151,11 @@ parseRST = do
150151 startPos <- getPosition
151152 -- go through once just to get list of reference keys and notes
152153 -- docMinusKeys is the raw document with blanks where the keys were...
153− let chunk = referenceKey
154− <|> anchorDef
155− <|> noteBlock
156− <|> citationBlock
157− <|> (snd <$> withRaw comment)
158− <|> headerBlock
159− <|> lineClump
160− docMinusKeys <- Sources <$>
161− manyTill (do pos <- getPosition
162− t <- chunk
163− return (pos, t)) eof
164− -- UGLY: we collapse source position information.
165− -- TODO: fix the parser to use the F monad instead of two passes
154+ docMinusKeys <- T.concat <$>
155+ manyTill (referenceKey <|> anchorDef <|>
156+ noteBlock <|> citationBlock <|>
157+ (snd <$> withRaw comment) <|>
158+ headerBlock <|> lineClump) eof
166159 setInput docMinusKeys
167160 setPosition startPos
168161 st' <- getState
@@ -355,7 +348,7 @@ singleHeader' = try $ do
355348-- hrule block
356349--
357350
358−hrule :: Monad m => ParserT Sources st m Blocks
351+hrule :: Monad m => ParserT Text st m Blocks
359352hrule = try $ do
360353 chr <- oneOf underlineChars
361354 count 3 (char chr)
@@ -370,7 +363,7 @@ hrule = try $ do
370363
371364-- read a line indented by a given string
372365indentedLine :: (HasReaderOptions st, Monad m)
373− => Int -> ParserT Sources st m Text
366+ => Int -> ParserT Text st m Text
374367indentedLine indents = try $ do
375368 lookAhead spaceChar
376369 gobbleAtMostSpaces indents
@@ -379,7 +372,7 @@ indentedLine indents = try $ do
379372-- one or more indented lines, possibly separated by blank lines.
380373-- any amount of indentation will work.
381374indentedBlock :: (HasReaderOptions st, Monad m)
382− => ParserT Sources st m Text
375+ => ParserT Text st m Text
383376indentedBlock = try $ do
384377 indents <- length <$> lookAhead (many1 spaceChar)
385378 lns <- many1 $ try $ do b <- option "" blanklines
@@ -388,20 +381,20 @@ indentedBlock = try $ do
388381 optional blanklines
389382 return $ T.unlines lns
390383
391−quotedBlock :: Monad m => ParserT Sources st m Text
384+quotedBlock :: Monad m => ParserT Text st m Text
392385quotedBlock = try $ do
393386 quote <- lookAhead $ oneOf "!\"#$%&'()*+,-./:;<=>?@[\\]^_`{|}~"
394387 lns <- many1 $ lookAhead (char quote) >> anyLine
395388 optional blanklines
396389 return $ T.unlines lns
397390
398−codeBlockStart :: Monad m => ParserT Sources st m Char
391+codeBlockStart :: Monad m => ParserT Text st m Char
399392codeBlockStart = string "::" >> blankline >> blankline
400393
401−codeBlock :: Monad m => ParserT Sources ParserState m Blocks
394+codeBlock :: Monad m => ParserT Text ParserState m Blocks
402395codeBlock = try $ codeBlockStart >> codeBlockBody
403396
404−codeBlockBody :: Monad m => ParserT Sources ParserState m Blocks
397+codeBlockBody :: Monad m => ParserT Text ParserState m Blocks
405398codeBlockBody = do
406399 lang <- stateRstHighlight <$> getState
407400 try $ B.codeBlockWith ("", maybeToList lang, []) . stripTrailingNewlines <$>
@@ -417,14 +410,14 @@ lhsCodeBlock = try $ do
417410 return $ B.codeBlockWith ("", ["haskell","literate"], [])
418411 $ T.intercalate "\n" lns
419412
420−latexCodeBlock :: Monad m => ParserT Sources st m [Text]
413+latexCodeBlock :: Monad m => ParserT Text st m [Text]
421414latexCodeBlock = try $ do
422415 try (latexBlockLine "\\begin{code}")
423416 many1Till anyLine (try $ latexBlockLine "\\end{code}")
424417 where
425418 latexBlockLine s = skipMany spaceChar >> string s >> blankline
426419
427−birdCodeBlock :: Monad m => ParserT Sources st m [Text]
420+birdCodeBlock :: Monad m => ParserT Text st m [Text]
428421birdCodeBlock = filterSpace <$> many1 birdTrackLine
429422 where filterSpace lns =
430423 -- if (as is normal) there is always a space after >, drop it
@@ -432,7 +425,7 @@ birdCodeBlock = filterSpace <$> many1 birdTrackLine
432425 then map (T.drop 1) lns
433426 else lns
434427
435−birdTrackLine :: Monad m => ParserT Sources st m Text
428+birdTrackLine :: Monad m => ParserT Text st m Text
436429birdTrackLine = char '>' >> anyLine
437430
438431--
@@ -453,39 +446,64 @@ encoding
453446-}
454447
455448includeDirective :: PandocMonad m
456− => Text
457− -> [(Text, Text)]
458− -> Text
449+ => Text -> [(Text, Text)] -> Text
459450 -> RSTParser m Blocks
460451includeDirective top fields body = do
461− let f = T.unpack $ trim top
462− guard $ not $ null f
452+ let f = trim top
453+ guard $ not (T.null f)
463454 guard $ T.null (trim body)
464− let startLine = lookup "start-line" fields >>= safeRead
465− let endLine = lookup "end-line" fields >>= safeRead
466− let classes = maybe [] T.words (lookup "class" fields)
467− let ident = maybe "" trimr $ lookup "name" fields
468− let parser =
469− case lookup "code" fields of
470− Just lang ->
471− (codeblock ident classes fields (trimr lang) False
472− . sourcesToText) <$> getInput
473− Nothing ->
474− case lookup "literal" fields of
475− Just _ -> B.rawBlock "rst" . sourcesToText <$> getInput
476− Nothing -> parseBlocks
477− let selectLines =
478− (case trim <$> lookup "end-before" fields of
479− Just patt -> takeWhile (not . (patt `T.isInfixOf`))
480− Nothing -> id) .
481− (case trim <$> lookup "start-after" fields of
482− Just patt -> drop 1 .
483− dropWhile (not . (patt `T.isInfixOf`))
484− Nothing -> id)
485− let toStream t =
486− toSources [(f, T.unlines . selectLines . T.lines $ t)]
487− currentDir <- takeDirectory . sourceName <$> getPosition
488− insertIncludedFile parser toStream [currentDir] f startLine endLine
455+ -- options
456+ let (startLine :: Maybe Int) = lookup "start-line" fields >>= safeRead
457+ let (endLine :: Maybe Int) = lookup "end-line" fields >>= safeRead
458+ oldPos <- getPosition
459+ oldInput <- getInput
460+ containers <- stateContainers <$> getState
461+ when (f `elem` containers) $
462+ throwError $ PandocParseError $ "Include file loop at " <> tshow oldPos
463+ updateState $ \s -> s{ stateContainers = f : stateContainers s }
464+ mbContents <- readFileFromDirs ["."] $ T.unpack f
465+ contentLines <- case mbContents of
466+ Just s -> return $ T.lines s
467+ Nothing -> do
468+ logMessage $ CouldNotLoadIncludeFile f oldPos
469+ return []
470+ let numLines = length contentLines
471+ let startLine' = case startLine of
472+ Nothing -> 1
473+ Just x | x >= 0 -> x
474+ | otherwise -> numLines + x -- negative from end
475+ let endLine' = case endLine of
476+ Nothing -> numLines + 1
477+ Just x | x >= 0 -> x
478+ | otherwise -> numLines + x -- negative from end
479+ let contentLines' = drop (startLine' - 1)
480+ $ take (endLine' - 1) contentLines
481+ let contentLines'' = (case trim <$> lookup "end-before" fields of
482+ Just patt -> takeWhile (not . (patt `T.isInfixOf`))
483+ Nothing -> id) .
484+ (case trim <$> lookup "start-after" fields of
485+ Just patt -> drop 1 .
486+ dropWhile (not . (patt `T.isInfixOf`))
487+ Nothing -> id) $ contentLines'
488+ let contents' = T.unlines contentLines''
489+ case lookup "code" fields of
490+ Just lang -> do
491+ let classes = maybe [] T.words (lookup "class" fields)
492+ let ident = maybe "" trimr $ lookup "name" fields
493+ codeblock ident classes fields (trimr lang) contents' False
494+ Nothing -> case lookup "literal" fields of
495+ Just _ -> return $ B.rawBlock "rst" contents'
496+ Nothing -> do
497+ setPosition $ newPos (T.unpack f) 1 1
498+ setInput $ contents' <> "\n"
499+ bs <- optional blanklines >>
500+ (mconcat <$> many block)
501+ setInput oldInput
502+ setPosition oldPos
503+ updateState $ \s -> s{ stateContainers =
504+ tail $ stateContainers s }
505+ return bs
506+
489507
490508--
491509-- list blocks
@@ -508,7 +526,7 @@ definitionList :: PandocMonad m => RSTParser m Blocks
508526definitionList = B.definitionList <$> many1 definitionListItem
509527
510528-- parses bullet list start and returns its length (inc. following whitespace)
511−bulletListStart :: Monad m => ParserT Sources st m Int
529+bulletListStart :: Monad m => ParserT Text st m Int
512530bulletListStart = try $ do
513531 notFollowedBy' hrule -- because hrules start out just like lists
514532 marker <- oneOf bulletListMarkers
@@ -714,8 +732,8 @@ directive' = do
714732 "" -> stateRstHighlight def
715733 lang -> Just lang })
716734 x | x == "code" || x == "code-block" || x == "sourcecode" ->
717− return $ codeblock name classes (map (second trimr) fields)
718− (trim top) True body
735+ codeblock name classes (map (second trimr) fields)
736+ (trim top) body True
719737 "aafig" -> do
720738 let attribs = (name, ["aafig"], map (second trimr) fields)
721739 return $ B.codeBlockWith attribs $ stripTrailingNewlines body
@@ -1001,10 +1019,10 @@ toChunks = dropWhile T.null
10011019 then "\\begin{aligned}\n" <> s <> "\n\\end{aligned}"
10021020 else s
10031021
1004−codeblock :: Text -> [Text] -> [(Text, Text)] -> Text -> Bool -> Text
1005− -> Blocks
1006−codeblock ident classes fields lang rmTrailingNewlines body =
1007− B.codeBlockWith attribs $ stripTrailingNewlines' body
1022+codeblock :: Text -> [Text] -> [(Text, Text)] -> Text -> Text -> Bool
1023+ -> RSTParser m Blocks
1024+codeblock ident classes fields lang body rmTrailingNewlines =
1025+ return $ B.codeBlockWith attribs $ stripTrailingNewlines' body
10081026 where stripTrailingNewlines' = if rmTrailingNewlines
10091027 then stripTrailingNewlines
10101028 else id
@@ -1085,7 +1103,7 @@ quotedReferenceName = try $ do
10851103-- plus isolated (no two adjacent) internal hyphens, underscores,
10861104-- periods, colons and plus signs; no whitespace or other characters
10871105-- are allowed.
1088−simpleReferenceName :: Monad m => ParserT Sources st m Text
1106+simpleReferenceName :: Monad m => ParserT Text st m Text
10891107simpleReferenceName = do
10901108 x <- alphaNum
10911109 xs <- many $ alphaNum
@@ -1104,7 +1122,7 @@ referenceKey = do
11041122 -- return enough blanks to replace key
11051123 return $ T.replicate (sourceLine endPos - sourceLine startPos) "\n"
11061124
1107−targetURI :: Monad m => ParserT Sources st m Text
1125+targetURI :: Monad m => ParserT Text st m Text
11081126targetURI = do
11091127 skipSpaces
11101128 optional $ try $ newline >> notFollowedBy blankline
@@ -1142,10 +1160,8 @@ anonymousKey :: Monad m => RSTParser m ()
11421160anonymousKey = try $ do
11431161 oneOfStrings [".. __:", "__"]
11441162 src <- targetURI
1145− -- we need to ensure that the keys are ordered by occurrence in
1146− -- the document.
1147− numKeys <- M.size . stateKeys <$> getState
1148− let key = toKey $ "_" <> T.pack (show numKeys)
1163+ pos <- getPosition
1164+ let key = toKey $ "_" <> T.pack (printf "%09d" (sourceLine pos))
11491165 updateState $ \s -> s { stateKeys = M.insert key ((src,""), nullAttr) $
11501166 stateKeys s }
11511167
@@ -1234,13 +1250,13 @@ headerBlock = do
12341250-- Grid tables TODO:
12351251-- - column spans
12361252
1237−dashedLine :: Monad m => Char -> ParserT Sources st m (Int, Int)
1253+dashedLine :: Monad m => Char -> ParserT Text st m (Int, Int)
12381254dashedLine ch = do
12391255 dashes <- many1 (char ch)
12401256 sp <- many (char ' ')
12411257 return (length dashes, length $ dashes ++ sp)
12421258
1243−simpleDashedLines :: Monad m => Char -> ParserT Sources st m [(Int,Int)]
1259+simpleDashedLines :: Monad m => Char -> ParserT Text st m [(Int,Int)]
12441260simpleDashedLines ch = try $ many1 (dashedLine ch)
12451261
12461262-- Parse a table row separator
@@ -1366,7 +1382,7 @@ hyphens = do
13661382 -- don't want to treat endline after hyphen or dash as a space
13671383 return $ B.str result
13681384
1369−escapedChar :: Monad m => ParserT Sources st m Inlines
1385+escapedChar :: Monad m => ParserT Text st m Inlines
13701386escapedChar = do c <- escaped anyChar
13711387 return $ if c == ' ' || c == '\n' || c == '\r'
13721388 -- '\ ' is null in RST
@@ -1642,4 +1658,21 @@ note = try $ do
16421658 return $ B.note contents
16431659
16441660smart :: PandocMonad m => RSTParser m Inlines
1645−smart = smartPunctuation inline
1661+smart = do
1662+ guardEnabled Ext_smart
1663+ doubleQuoted <|> singleQuoted <|>
1664+ choice [apostrophe, dash, ellipses]
1665+
1666+singleQuoted :: PandocMonad m => RSTParser m Inlines
1667+singleQuoted = try $ do
1668+ singleQuoteStart
1669+ withQuoteContext InSingleQuote $
1670+ B.singleQuoted . trimInlines . mconcat <$>
1671+ many1Till inline singleQuoteEnd
1672+
1673+doubleQuoted :: PandocMonad m => RSTParser m Inlines
1674+doubleQuoted = try $ do
1675+ doubleQuoteStart
1676+ withQuoteContext InDoubleQuote $
1677+ B.doubleQuoted . trimInlines . mconcat <$>
1678+ many1Till inline doubleQuoteEnd
src/Text/Pandoc/Readers/Roff.hs+18−16
@@ -42,6 +42,7 @@ import Text.Pandoc.Logging (LogMessage(..))
4242import Text.Pandoc.Options
4343import Text.Pandoc.Parsing
4444import Text.Pandoc.Shared (safeRead)
45+import Text.Parsec hiding (tokenPrim)
4546import Text.Pandoc.RoffChar (characterCodes, combiningAccents)
4647import qualified Data.Sequence as Seq
4748import qualified Data.Foldable as Foldable
@@ -121,16 +122,16 @@ instance Default RoffState where
121122 , afterConditional = False
122123 }
123124
124−type RoffLexer m = ParserT Sources RoffState m
125+type RoffLexer m = ParserT T.Text RoffState m
125126
126127--
127128-- Lexer: T.Text -> RoffToken
128129--
129130
130−eofline :: (Stream s m Char, UpdateSourcePos s Char) => ParserT s u m ()
131+eofline :: Stream s m Char => ParsecT s u m ()
131132eofline = void newline <|> eof <|> () <$ lookAhead (string "\\}")
132133
133−spacetab :: (Stream s m Char, UpdateSourcePos s Char) => ParserT s u m Char
134+spacetab :: Stream s m Char => ParsecT s u m Char
134135spacetab = char ' ' <|> char '\t'
135136
136137characterCodeMap :: M.Map T.Text Char
@@ -302,7 +303,8 @@ expandString = try $ do
302303 char '*'
303304 cs <- escapeArg <|> countChar 1 anyChar
304305 s <- linePartsToText <$> resolveText cs pos
305− addToInput s
306+ getInput >>= setInput . (s <>)
307+ return ()
306308
307309-- Parses: '..'
308310quoteArg :: PandocMonad m => RoffLexer m T.Text
@@ -314,7 +316,7 @@ escFont = do
314316 font' <- if T.null font || font == "P"
315317 then prevFont <$> getState
316318 else return $ foldr processFontLetter defaultFontSpec $ T.unpack font
317− updateState $ \st -> st{ prevFont = currentFont st
319+ modifyState $ \st -> st{ prevFont = currentFont st
318320 , currentFont = font' }
319321 return [Font font']
320322 where
@@ -370,8 +372,8 @@ lexTable pos = do
370372 spaces
371373 opts <- try tableOptions <|> [] <$ optional (char ';')
372374 case lookup "tab" opts of
373− Just (T.uncons -> Just (c, _)) -> updateState $ \st -> st{ tableTabChar = c }
374− _ -> updateState $ \st -> st{ tableTabChar = '\t' }
375+ Just (T.uncons -> Just (c, _)) -> modifyState $ \st -> st{ tableTabChar = c }
376+ _ -> modifyState $ \st -> st{ tableTabChar = '\t' }
375377 spaces
376378 skipMany lexComment
377379 spaces
@@ -487,18 +489,18 @@ lexConditional mname = do
487489 ifPart <- do
488490 optional $ try $ char '\\' >> newline
489491 lexGroup
490− <|> do updateState $ \s -> s{ afterConditional = True }
492+ <|> do modifyState $ \s -> s{ afterConditional = True }
491493 t <- manToken
492− updateState $ \s -> s{ afterConditional = False }
494+ modifyState $ \s -> s{ afterConditional = False }
493495 return t
494496 case mbtest of
495497 Nothing -> do
496− setState st -- reset state, so we don't record macros in skipped section
498+ putState st -- reset state, so we don't record macros in skipped section
497499 report $ SkippedContent (T.cons '.' mname) pos
498500 return mempty
499501 Just True -> return ifPart
500502 Just False -> do
501− setState st
503+ putState st
502504 return mempty
503505
504506expression :: PandocMonad m => RoffLexer m (Maybe Bool)
@@ -513,7 +515,7 @@ expression = do
513515 _ -> Nothing
514516 where
515517 returnValue v = do
516− updateState $ \st -> st{ lastExpression = v }
518+ modifyState $ \st -> st{ lastExpression = v }
517519 return v
518520
519521lexGroup :: PandocMonad m => RoffLexer m RoffTokens
@@ -534,7 +536,7 @@ lexIncludeFile args = do
534536 result <- readFileFromDirs dirs $ T.unpack fp
535537 case result of
536538 Nothing -> report $ CouldNotLoadIncludeFile fp pos
537− Just s -> addToInput s
539+ Just s -> getInput >>= setInput . (s <>)
538540 return mempty
539541 [] -> return mempty
540542
@@ -562,13 +564,13 @@ lexStringDef args = do -- string definition
562564 (x:ys) -> do
563565 let ts = singleTok $ TextLine (intercalate [RoffStr " " ] ys)
564566 let stringName = linePartsToText x
565− updateState $ \st ->
567+ modifyState $ \st ->
566568 st{ customMacros = M.insert stringName ts (customMacros st) }
567569 return mempty
568570
569571lexMacroDef :: PandocMonad m => [Arg] -> RoffLexer m RoffTokens
570572lexMacroDef args = do -- macro definition
571− updateState $ \st -> st{ roffMode = CopyMode }
573+ modifyState $ \st -> st{ roffMode = CopyMode }
572574 (macroName, stopMacro) <-
573575 case args of
574576 (x : y : _) -> return (linePartsToText x, linePartsToText y)
@@ -582,7 +584,7 @@ lexMacroDef args = do -- macro definition
582584 _ <- lexArgs
583585 return ()
584586 ts <- mconcat <$> manyTill manToken stop
585− updateState $ \st ->
587+ modifyState $ \st ->
586588 st{ customMacros = M.insert macroName ts (customMacros st)
587589 , roffMode = NormalMode }
588590 return mempty
src/Text/Pandoc/Readers/TWiki.hs+27−7
@@ -28,22 +28,22 @@ import Text.Pandoc.Definition
2828import Text.Pandoc.Options
2929import Text.Pandoc.Parsing hiding (enclosed, nested)
3030import Text.Pandoc.Readers.HTML (htmlTag, isCommentTag)
31−import Text.Pandoc.Shared (tshow)
31+import Text.Pandoc.Shared (crFilter, tshow)
3232import Text.Pandoc.XML (fromEntities)
3333
3434-- | Read twiki from an input string and return a Pandoc document.
35−readTWiki :: (PandocMonad m, ToSources a)
35+readTWiki :: PandocMonad m
3636 => ReaderOptions
37− -> a
37+ -> Text
3838 -> m Pandoc
3939readTWiki opts s = do
40− let sources = ensureFinalNewlines 2 (toSources s)
41− res <- readWithM parseTWiki def{ stateOptions = opts } sources
40+ res <- readWithM parseTWiki def{ stateOptions = opts }
41+ (crFilter s <> "\n\n")
4242 case res of
4343 Left e -> throwError e
4444 Right d -> return d
4545
46−type TWParser = ParserT Sources ParserState
46+type TWParser = ParserT Text ParserState
4747
4848--
4949-- utility functions
@@ -469,7 +469,27 @@ symbol :: PandocMonad m => TWParser m B.Inlines
469469symbol = B.str <$> countChar 1 nonspaceChar
470470
471471smart :: PandocMonad m => TWParser m B.Inlines
472−smart = smartPunctuation inline
472+smart = do
473+ guardEnabled Ext_smart
474+ doubleQuoted <|> singleQuoted <|>
475+ choice [ apostrophe
476+ , dash
477+ , ellipses
478+ ]
479+
480+singleQuoted :: PandocMonad m => TWParser m B.Inlines
481+singleQuoted = try $ do
482+ singleQuoteStart
483+ withQuoteContext InSingleQuote
484+ (B.singleQuoted . B.trimInlines . mconcat <$> many1Till inline singleQuoteEnd)
485+
486+doubleQuoted :: PandocMonad m => TWParser m B.Inlines
487+doubleQuoted = try $ do
488+ doubleQuoteStart
489+ contents <- mconcat <$> many (try $ notFollowedBy doubleQuoteEnd >> inline)
490+ withQuoteContext InDoubleQuote (doubleQuoteEnd >>
491+ return (B.doubleQuoted $ B.trimInlines contents))
492+ <|> return (B.str "\8220" B.<> contents)
473493
474494link :: PandocMonad m => TWParser m B.Inlines
475495link = try $ do
src/Text/Pandoc/Readers/Textile.hs+84−88
@@ -53,34 +53,30 @@ import Text.Pandoc.Options
5353import Text.Pandoc.Parsing
5454import Text.Pandoc.Readers.HTML (htmlTag, isBlockTag, isInlineTag)
5555import Text.Pandoc.Readers.LaTeX (rawLaTeXBlock, rawLaTeXInline)
56−import Text.Pandoc.Shared (trim, tshow)
56+import Text.Pandoc.Shared (crFilter, trim, tshow)
5757
5858-- | Parse a Textile text and return a Pandoc document.
59−readTextile :: (PandocMonad m, ToSources a)
59+readTextile :: PandocMonad m
6060 => ReaderOptions -- ^ Reader options
61− -> a
61+ -> Text -- ^ String to parse (assuming @'\n'@ line endings)
6262 -> m Pandoc
6363readTextile opts s = do
64− let sources = ensureFinalNewlines 2 (toSources s)
65− parsed <- readWithM parseTextile def{ stateOptions = opts } sources
64+ parsed <- readWithM parseTextile def{ stateOptions = opts }
65+ (crFilter s <> "\n\n")
6666 case parsed of
6767 Right result -> return result
6868 Left e -> throwError e
6969
70−type TextileParser = ParserT Sources ParserState
7170
7271-- | Generate a Pandoc ADT from a textile document
73−parseTextile :: PandocMonad m => TextileParser m Pandoc
72+parseTextile :: PandocMonad m => ParserT Text ParserState m Pandoc
7473parseTextile = do
7574 many blankline
7675 startPos <- getPosition
7776 -- go through once just to get list of reference keys and notes
7877 -- docMinusKeys is the raw document with blanks where the keys/notes were...
79− let firstPassParser = do
80− pos <- getPosition
81− t <- noteBlock <|> lineClump
82− return (pos, t)
83− manyTill firstPassParser eof >>= setInput . Sources
78+ let firstPassParser = noteBlock <|> lineClump
79+ manyTill firstPassParser eof >>= setInput . T.concat
8480 setPosition startPos
8581 st' <- getState
8682 let reversedNotes = stateNotes st'
@@ -88,10 +84,10 @@ parseTextile = do
8884 -- now parse it for real...
8985 Pandoc nullMeta . B.toList <$> parseBlocks -- FIXME
9086
91−noteMarker :: PandocMonad m => TextileParser m Text
87+noteMarker :: PandocMonad m => ParserT Text ParserState m Text
9288noteMarker = skipMany spaceChar >> string "fn" >> T.pack <$> manyTill digit (char '.')
9389
94−noteBlock :: PandocMonad m => TextileParser m Text
90+noteBlock :: PandocMonad m => ParserT Text ParserState m Text
9591noteBlock = try $ do
9692 startPos <- getPosition
9793 ref <- noteMarker
@@ -106,11 +102,11 @@ noteBlock = try $ do
106102 return $ T.replicate (sourceLine endPos - sourceLine startPos) "\n"
107103
108104-- | Parse document blocks
109−parseBlocks :: PandocMonad m => TextileParser m Blocks
105+parseBlocks :: PandocMonad m => ParserT Text ParserState m Blocks
110106parseBlocks = mconcat <$> manyTill block eof
111107
112108-- | Block parsers list tried in definition order
113−blockParsers :: PandocMonad m => [TextileParser m Blocks]
109+blockParsers :: PandocMonad m => [ParserT Text ParserState m Blocks]
114110blockParsers = [ codeBlock
115111 , header
116112 , blockQuote
@@ -125,22 +121,22 @@ blockParsers = [ codeBlock
125121 ]
126122
127123-- | Any block in the order of definition of blockParsers
128−block :: PandocMonad m => TextileParser m Blocks
124+block :: PandocMonad m => ParserT Text ParserState m Blocks
129125block = do
130126 res <- choice blockParsers <?> "block"
131127 trace (T.take 60 $ tshow $ B.toList res)
132128 return res
133129
134−commentBlock :: PandocMonad m => TextileParser m Blocks
130+commentBlock :: PandocMonad m => ParserT Text ParserState m Blocks
135131commentBlock = try $ do
136132 string "###."
137133 manyTill anyLine blanklines
138134 return mempty
139135
140−codeBlock :: PandocMonad m => TextileParser m Blocks
136+codeBlock :: PandocMonad m => ParserT Text ParserState m Blocks
141137codeBlock = codeBlockTextile <|> codeBlockHtml
142138
143−codeBlockTextile :: PandocMonad m => TextileParser m Blocks
139+codeBlockTextile :: PandocMonad m => ParserT Text ParserState m Blocks
144140codeBlockTextile = try $ do
145141 string "bc." <|> string "pre."
146142 extended <- option False (True <$ char '.')
@@ -160,7 +156,7 @@ trimTrailingNewlines :: Text -> Text
160156trimTrailingNewlines = T.dropWhileEnd (=='\n')
161157
162158-- | Code Blocks in Textile are between <pre> and </pre>
163−codeBlockHtml :: PandocMonad m => TextileParser m Blocks
159+codeBlockHtml :: PandocMonad m => ParserT Text ParserState m Blocks
164160codeBlockHtml = try $ do
165161 (t@(TagOpen _ attrs),_) <- htmlTag (tagOpen (=="pre") (const True))
166162 result' <- T.pack <$> manyTill anyChar (htmlTag (tagClose (=="pre")))
@@ -178,7 +174,7 @@ codeBlockHtml = try $ do
178174 return $ B.codeBlockWith (ident,classes,kvs) result'''
179175
180176-- | Header of the form "hN. content" with N in 1..6
181−header :: PandocMonad m => TextileParser m Blocks
177+header :: PandocMonad m => ParserT Text ParserState m Blocks
182178header = try $ do
183179 char 'h'
184180 level <- digitToInt <$> oneOf "123456"
@@ -190,14 +186,14 @@ header = try $ do
190186 return $ B.headerWith attr' level name
191187
192188-- | Blockquote of the form "bq. content"
193−blockQuote :: PandocMonad m => TextileParser m Blocks
189+blockQuote :: PandocMonad m => ParserT Text ParserState m Blocks
194190blockQuote = try $ do
195191 string "bq" >> attributes >> char '.' >> whitespace
196192 B.blockQuote <$> para
197193
198194-- Horizontal rule
199195
200−hrule :: PandocMonad m => TextileParser m Blocks
196+hrule :: PandocMonad m => ParserT Text st m Blocks
201197hrule = try $ do
202198 skipSpaces
203199 start <- oneOf "-*"
@@ -212,39 +208,39 @@ hrule = try $ do
212208-- | Can be a bullet list or an ordered list. This implementation is
213209-- strict in the nesting, sublist must start at exactly "parent depth
214210-- plus one"
215−anyList :: PandocMonad m => TextileParser m Blocks
211+anyList :: PandocMonad m => ParserT Text ParserState m Blocks
216212anyList = try $ anyListAtDepth 1 <* blanklines
217213
218214-- | This allow one type of list to be nested into an other type,
219215-- provided correct nesting
220−anyListAtDepth :: PandocMonad m => Int -> TextileParser m Blocks
216+anyListAtDepth :: PandocMonad m => Int -> ParserT Text ParserState m Blocks
221217anyListAtDepth depth = choice [ bulletListAtDepth depth,
222218 orderedListAtDepth depth,
223219 definitionList ]
224220
225221-- | Bullet List of given depth, depth being the number of leading '*'
226−bulletListAtDepth :: PandocMonad m => Int -> TextileParser m Blocks
222+bulletListAtDepth :: PandocMonad m => Int -> ParserT Text ParserState m Blocks
227223bulletListAtDepth depth = try $ B.bulletList <$> many1 (bulletListItemAtDepth depth)
228224
229225-- | Bullet List Item of given depth, depth being the number of
230226-- leading '*'
231−bulletListItemAtDepth :: PandocMonad m => Int -> TextileParser m Blocks
227+bulletListItemAtDepth :: PandocMonad m => Int -> ParserT Text ParserState m Blocks
232228bulletListItemAtDepth = genericListItemAtDepth '*'
233229
234230-- | Ordered List of given depth, depth being the number of
235231-- leading '#'
236−orderedListAtDepth :: PandocMonad m => Int -> TextileParser m Blocks
232+orderedListAtDepth :: PandocMonad m => Int -> ParserT Text ParserState m Blocks
237233orderedListAtDepth depth = try $ do
238234 items <- many1 (orderedListItemAtDepth depth)
239235 return $ B.orderedList items
240236
241237-- | Ordered List Item of given depth, depth being the number of
242238-- leading '#'
243−orderedListItemAtDepth :: PandocMonad m => Int -> TextileParser m Blocks
239+orderedListItemAtDepth :: PandocMonad m => Int -> ParserT Text ParserState m Blocks
244240orderedListItemAtDepth = genericListItemAtDepth '#'
245241
246242-- | Common implementation of list items
247−genericListItemAtDepth :: PandocMonad m => Char -> Int -> TextileParser m Blocks
243+genericListItemAtDepth :: PandocMonad m => Char -> Int -> ParserT Text ParserState m Blocks
248244genericListItemAtDepth c depth = try $ do
249245 count depth (char c) >> attributes >> whitespace
250246 contents <- mconcat <$> many ((B.plain . mconcat <$> many1 inline) <|>
@@ -254,25 +250,25 @@ genericListItemAtDepth c depth = try $ do
254250 return $ contents <> sublist
255251
256252-- | A definition list is a set of consecutive definition items
257−definitionList :: PandocMonad m => TextileParser m Blocks
253+definitionList :: PandocMonad m => ParserT Text ParserState m Blocks
258254definitionList = try $ B.definitionList <$> many1 definitionListItem
259255
260256-- | List start character.
261−listStart :: PandocMonad m => TextileParser m ()
257+listStart :: PandocMonad m => ParserT Text ParserState m ()
262258listStart = genericListStart '*'
263259 <|> () <$ genericListStart '#'
264260 <|> () <$ definitionListStart
265261
266−genericListStart :: PandocMonad m => Char -> TextileParser m ()
262+genericListStart :: PandocMonad m => Char -> ParserT Text st m ()
267263genericListStart c = () <$ try (many1 (char c) >> whitespace)
268264
269−basicDLStart :: PandocMonad m => TextileParser m ()
265+basicDLStart :: PandocMonad m => ParserT Text ParserState m ()
270266basicDLStart = do
271267 char '-'
272268 whitespace
273269 notFollowedBy newline
274270
275−definitionListStart :: PandocMonad m => TextileParser m Inlines
271+definitionListStart :: PandocMonad m => ParserT Text ParserState m Inlines
276272definitionListStart = try $ do
277273 basicDLStart
278274 trimInlines . mconcat <$>
@@ -285,15 +281,15 @@ definitionListStart = try $ do
285281-- the term defined, then spaces and ":=". The definition follows, on
286282-- the same single line, or spaned on multiple line, after a line
287283-- break.
288−definitionListItem :: PandocMonad m => TextileParser m (Inlines, [Blocks])
284+definitionListItem :: PandocMonad m => ParserT Text ParserState m (Inlines, [Blocks])
289285definitionListItem = try $ do
290286 term <- mconcat . intersperse B.linebreak <$> many1 definitionListStart
291287 def' <- string ":=" *> optional whitespace *> (multilineDef <|> inlineDef)
292288 return (term, def')
293− where inlineDef :: PandocMonad m => TextileParser m [Blocks]
289+ where inlineDef :: PandocMonad m => ParserT Text ParserState m [Blocks]
294290 inlineDef = liftM (\d -> [B.plain d])
295291 $ optional whitespace >> (trimInlines . mconcat <$> many inline) <* newline
296− multilineDef :: PandocMonad m => TextileParser m [Blocks]
292+ multilineDef :: PandocMonad m => ParserT Text ParserState m [Blocks]
297293 multilineDef = try $ do
298294 optional whitespace >> newline
299295 s <- T.pack <$> many1Till anyChar (try (string "=:" >> newline))
@@ -304,7 +300,7 @@ definitionListItem = try $ do
304300-- raw content
305301
306302-- | A raw Html Block, optionally followed by blanklines
307−rawHtmlBlock :: PandocMonad m => TextileParser m Blocks
303+rawHtmlBlock :: PandocMonad m => ParserT Text ParserState m Blocks
308304rawHtmlBlock = try $ do
309305 skipMany spaceChar
310306 (_,b) <- htmlTag isBlockTag
@@ -312,14 +308,14 @@ rawHtmlBlock = try $ do
312308 return $ B.rawBlock "html" b
313309
314310-- | Raw block of LaTeX content
315−rawLaTeXBlock' :: PandocMonad m => TextileParser m Blocks
311+rawLaTeXBlock' :: PandocMonad m => ParserT Text ParserState m Blocks
316312rawLaTeXBlock' = do
317313 guardEnabled Ext_raw_tex
318314 B.rawBlock "latex" <$> (rawLaTeXBlock <* spaces)
319315
320316
321317-- | In textile, paragraphs are separated by blank lines.
322−para :: PandocMonad m => TextileParser m Blocks
318+para :: PandocMonad m => ParserT Text ParserState m Blocks
323319para = B.para . trimInlines . mconcat <$> many1 inline
324320
325321-- Tables
@@ -330,7 +326,7 @@ toAlignment '>' = AlignRight
330326toAlignment '=' = AlignCenter
331327toAlignment _ = AlignDefault
332328
333−cellAttributes :: PandocMonad m => TextileParser m (Bool, Alignment)
329+cellAttributes :: PandocMonad m => ParserT Text ParserState m (Bool, Alignment)
334330cellAttributes = try $ do
335331 isHeader <- option False (True <$ char '_')
336332 -- we just ignore colspan and rowspan markers:
@@ -343,7 +339,7 @@ cellAttributes = try $ do
343339 return (isHeader, alignment)
344340
345341-- | A table cell spans until a pipe |
346−tableCell :: PandocMonad m => TextileParser m ((Bool, Alignment), Blocks)
342+tableCell :: PandocMonad m => ParserT Text ParserState m ((Bool, Alignment), Blocks)
347343tableCell = try $ do
348344 char '|'
349345 (isHeader, alignment) <- option (False, AlignDefault) cellAttributes
@@ -354,7 +350,7 @@ tableCell = try $ do
354350 return ((isHeader, alignment), B.plain content)
355351
356352-- | A table row is made of many table cells
357−tableRow :: PandocMonad m => TextileParser m [((Bool, Alignment), Blocks)]
353+tableRow :: PandocMonad m => ParserT Text ParserState m [((Bool, Alignment), Blocks)]
358354tableRow = try $ do
359355 -- skip optional row attributes
360356 optional $ try $ do
@@ -364,7 +360,7 @@ tableRow = try $ do
364360 many1 tableCell <* char '|' <* blankline
365361
366362-- | A table with an optional header.
367−table :: PandocMonad m => TextileParser m Blocks
363+table :: PandocMonad m => ParserT Text ParserState m Blocks
368364table = try $ do
369365 -- ignore table attributes
370366 caption <- option mempty $ try $ do
@@ -392,7 +388,7 @@ table = try $ do
392388 (TableFoot nullAttr [])
393389
394390-- | Ignore markers for cols, thead, tfoot.
395−ignorableRow :: PandocMonad m => TextileParser m ()
391+ignorableRow :: PandocMonad m => ParserT Text ParserState m ()
396392ignorableRow = try $ do
397393 char '|'
398394 oneOf ":^-~"
@@ -401,7 +397,7 @@ ignorableRow = try $ do
401397 _ <- anyLine
402398 return ()
403399
404−explicitBlockStart :: PandocMonad m => Text -> TextileParser m ()
400+explicitBlockStart :: PandocMonad m => Text -> ParserT Text ParserState m ()
405401explicitBlockStart name = try $ do
406402 string (T.unpack name)
407403 attributes
@@ -413,8 +409,8 @@ explicitBlockStart name = try $ do
413409-- However, they can be used to set HTML/CSS attributes when needed.
414410maybeExplicitBlock :: PandocMonad m
415411 => Text -- ^ block tag name
416− -> TextileParser m Blocks -- ^ implicit block
417− -> TextileParser m Blocks
412+ -> ParserT Text ParserState m Blocks -- ^ implicit block
413+ -> ParserT Text ParserState m Blocks
418414maybeExplicitBlock name blk = try $ do
419415 optional $ explicitBlockStart name
420416 blk
@@ -427,11 +423,11 @@ maybeExplicitBlock name blk = try $ do
427423
428424
429425-- | Any inline element
430−inline :: PandocMonad m => TextileParser m Inlines
426+inline :: PandocMonad m => ParserT Text ParserState m Inlines
431427inline = choice inlineParsers <?> "inline"
432428
433429-- | Inline parsers tried in order
434−inlineParsers :: PandocMonad m => [TextileParser m Inlines]
430+inlineParsers :: PandocMonad m => [ParserT Text ParserState m Inlines]
435431inlineParsers = [ str
436432 , whitespace
437433 , endline
@@ -451,7 +447,7 @@ inlineParsers = [ str
451447 ]
452448
453449-- | Inline markups
454−inlineMarkup :: PandocMonad m => TextileParser m Inlines
450+inlineMarkup :: PandocMonad m => ParserT Text ParserState m Inlines
455451inlineMarkup = choice [ simpleInline (string "??") (B.cite [])
456452 , simpleInline (string "**") B.strong
457453 , simpleInline (string "__") B.emph
@@ -465,29 +461,29 @@ inlineMarkup = choice [ simpleInline (string "??") (B.cite [])
465461 ]
466462
467463-- | Trademark, registered, copyright
468−mark :: PandocMonad m => TextileParser m Inlines
464+mark :: PandocMonad m => ParserT Text st m Inlines
469465mark = try $ char '(' >> (try tm <|> try reg <|> copy)
470466
471−reg :: PandocMonad m => TextileParser m Inlines
467+reg :: PandocMonad m => ParserT Text st m Inlines
472468reg = do
473469 oneOf "Rr"
474470 char ')'
475471 return $ B.str "\174"
476472
477−tm :: PandocMonad m => TextileParser m Inlines
473+tm :: PandocMonad m => ParserT Text st m Inlines
478474tm = do
479475 oneOf "Tt"
480476 oneOf "Mm"
481477 char ')'
482478 return $ B.str "\8482"
483479
484−copy :: PandocMonad m => TextileParser m Inlines
480+copy :: PandocMonad m => ParserT Text st m Inlines
485481copy = do
486482 oneOf "Cc"
487483 char ')'
488484 return $ B.str "\169"
489485
490−note :: PandocMonad m => TextileParser m Inlines
486+note :: PandocMonad m => ParserT Text ParserState m Inlines
491487note = try $ do
492488 ref <- char '[' *> many1 digit <* char ']'
493489 notes <- stateNotes <$> getState
@@ -511,13 +507,13 @@ wordBoundaries :: [Char]
511507wordBoundaries = markupChars <> stringBreakers
512508
513509-- | Parse a hyphened sequence of words
514−hyphenedWords :: PandocMonad m => TextileParser m Text
510+hyphenedWords :: PandocMonad m => ParserT Text ParserState m Text
515511hyphenedWords = do
516512 x <- wordChunk
517513 xs <- many (try $ char '-' >> wordChunk)
518514 return $ T.intercalate "-" (x:xs)
519515
520−wordChunk :: PandocMonad m => TextileParser m Text
516+wordChunk :: PandocMonad m => ParserT Text ParserState m Text
521517wordChunk = try $ do
522518 hd <- noneOf wordBoundaries
523519 tl <- many ( noneOf wordBoundaries <|>
@@ -526,7 +522,7 @@ wordChunk = try $ do
526522 return $ T.pack $ hd:tl
527523
528524-- | Any string
529−str :: PandocMonad m => TextileParser m Inlines
525+str :: PandocMonad m => ParserT Text ParserState m Inlines
530526str = do
531527 baseStr <- hyphenedWords
532528 -- RedCloth compliance : if parsed word is uppercase and immediately
@@ -539,11 +535,11 @@ str = do
539535 return $ B.str fullStr
540536
541537-- | Some number of space chars
542−whitespace :: PandocMonad m => TextileParser m Inlines
538+whitespace :: PandocMonad m => ParserT Text st m Inlines
543539whitespace = many1 spaceChar >> return B.space <?> "whitespace"
544540
545541-- | In Textile, an isolated endline character is a line break
546−endline :: PandocMonad m => TextileParser m Inlines
542+endline :: PandocMonad m => ParserT Text ParserState m Inlines
547543endline = try $ do
548544 newline
549545 notFollowedBy blankline
@@ -551,18 +547,18 @@ endline = try $ do
551547 notFollowedBy rawHtmlBlock
552548 return B.linebreak
553549
554−rawHtmlInline :: PandocMonad m => TextileParser m Inlines
550+rawHtmlInline :: PandocMonad m => ParserT Text ParserState m Inlines
555551rawHtmlInline = B.rawInline "html" . snd <$> htmlTag isInlineTag
556552
557553-- | Raw LaTeX Inline
558−rawLaTeXInline' :: PandocMonad m => TextileParser m Inlines
554+rawLaTeXInline' :: PandocMonad m => ParserT Text ParserState m Inlines
559555rawLaTeXInline' = try $ do
560556 guardEnabled Ext_raw_tex
561557 B.rawInline "latex" <$> rawLaTeXInline
562558
563559-- | Textile standard link syntax is "label":target. But we
564560-- can also have ["label":target].
565−link :: PandocMonad m => TextileParser m Inlines
561+link :: PandocMonad m => ParserT Text ParserState m Inlines
566562link = try $ do
567563 bracketed <- (True <$ char '[') <|> return False
568564 char '"' *> notFollowedBy (oneOf " \t\n\r")
@@ -582,7 +578,7 @@ link = try $ do
582578 else B.spanWith attr $ B.link url "" name'
583579
584580-- | image embedding
585−image :: PandocMonad m => TextileParser m Inlines
581+image :: PandocMonad m => ParserT Text ParserState m Inlines
586582image = try $ do
587583 char '!' >> notFollowedBy space
588584 (ident, cls, kvs) <- attributes
@@ -594,51 +590,51 @@ image = try $ do
594590 char '!'
595591 return $ B.imageWith attr src alt (B.str alt)
596592
597−escapedInline :: PandocMonad m => TextileParser m Inlines
593+escapedInline :: PandocMonad m => ParserT Text ParserState m Inlines
598594escapedInline = escapedEqs <|> escapedTag
599595
600−escapedEqs :: PandocMonad m => TextileParser m Inlines
596+escapedEqs :: PandocMonad m => ParserT Text ParserState m Inlines
601597escapedEqs = B.str . T.pack <$>
602598 try (string "==" *> manyTill anyChar' (try $ string "=="))
603599
604600-- | literal text escaped btw <notextile> tags
605−escapedTag :: PandocMonad m => TextileParser m Inlines
601+escapedTag :: PandocMonad m => ParserT Text ParserState m Inlines
606602escapedTag = B.str . T.pack <$>
607603 try (string "<notextile>" *>
608604 manyTill anyChar' (try $ string "</notextile>"))
609605
610606-- | Any special symbol defined in wordBoundaries
611−symbol :: PandocMonad m => TextileParser m Inlines
607+symbol :: PandocMonad m => ParserT Text ParserState m Inlines
612608symbol = B.str . T.singleton <$> (notFollowedBy newline *>
613609 notFollowedBy rawHtmlBlock *>
614610 oneOf wordBoundaries)
615611
616612-- | Inline code
617−code :: PandocMonad m => TextileParser m Inlines
613+code :: PandocMonad m => ParserT Text ParserState m Inlines
618614code = code1 <|> code2
619615
620616-- any character except a newline before a blank line
621−anyChar' :: PandocMonad m => TextileParser m Char
617+anyChar' :: PandocMonad m => ParserT Text ParserState m Char
622618anyChar' =
623619 satisfy (/='\n') <|>
624620 try (char '\n' <* notFollowedBy blankline)
625621
626−code1 :: PandocMonad m => TextileParser m Inlines
622+code1 :: PandocMonad m => ParserT Text ParserState m Inlines
627623code1 = B.code . T.pack <$> surrounded (char '@') anyChar'
628624
629−code2 :: PandocMonad m => TextileParser m Inlines
625+code2 :: PandocMonad m => ParserT Text ParserState m Inlines
630626code2 = do
631627 htmlTag (tagOpen (=="tt") null)
632628 B.code . T.pack <$> manyTill anyChar' (try $ htmlTag $ tagClose (=="tt"))
633629
634630-- | Html / CSS attributes
635−attributes :: PandocMonad m => TextileParser m Attr
631+attributes :: PandocMonad m => ParserT Text ParserState m Attr
636632attributes = foldl' (flip ($)) ("",[],[]) <$>
637633 try (do special <- option id specialAttribute
638634 attrs <- many attribute
639635 return (special : attrs))
640636
641−specialAttribute :: PandocMonad m => TextileParser m (Attr -> Attr)
637+specialAttribute :: PandocMonad m => ParserT Text ParserState m (Attr -> Attr)
642638specialAttribute = do
643639 alignStr <- ("center" <$ char '=') <|>
644640 ("justify" <$ try (string "<>")) <|>
@@ -647,11 +643,11 @@ specialAttribute = do
647643 notFollowedBy spaceChar
648644 return $ addStyle $ T.pack $ "text-align:" ++ alignStr
649645
650−attribute :: PandocMonad m => TextileParser m (Attr -> Attr)
646+attribute :: PandocMonad m => ParserT Text ParserState m (Attr -> Attr)
651647attribute = try $
652648 (classIdAttr <|> styleAttr <|> langAttr) <* notFollowedBy spaceChar
653649
654−classIdAttr :: PandocMonad m => TextileParser m (Attr -> Attr)
650+classIdAttr :: PandocMonad m => ParserT Text ParserState m (Attr -> Attr)
655651classIdAttr = try $ do -- (class class #id)
656652 char '('
657653 ws <- T.words `fmap` T.pack <$> manyTill anyChar' (char ')')
@@ -663,7 +659,7 @@ classIdAttr = try $ do -- (class class #id)
663659 classes'
664660 -> return $ \(_,_,keyvals) -> ("",classes',keyvals)
665661
666−styleAttr :: PandocMonad m => TextileParser m (Attr -> Attr)
662+styleAttr :: PandocMonad m => ParserT Text ParserState m (Attr -> Attr)
667663styleAttr = do
668664 style <- try $ enclosed (char '{') (char '}') anyChar'
669665 return $ addStyle $ T.pack style
@@ -674,23 +670,23 @@ addStyle style (id',classes,keyvals) =
674670 where keyvals' = ("style", style') : [(k,v) | (k,v) <- keyvals, k /= "style"]
675671 style' = style <> ";" <> T.concat [v | ("style",v) <- keyvals]
676672
677−langAttr :: PandocMonad m => TextileParser m (Attr -> Attr)
673+langAttr :: PandocMonad m => ParserT Text ParserState m (Attr -> Attr)
678674langAttr = do
679675 lang <- try $ enclosed (char '[') (char ']') alphaNum
680676 return $ \(id',classes,keyvals) -> (id',classes,("lang",T.pack lang):keyvals)
681677
682678-- | Parses material surrounded by a parser.
683679surrounded :: (PandocMonad m, Show t)
684− => ParserT Sources st m t -- ^ surrounding parser
685− -> ParserT Sources st m a -- ^ content parser (to be used repeatedly)
686− -> ParserT Sources st m [a]
680+ => ParserT Text st m t -- ^ surrounding parser
681+ -> ParserT Text st m a -- ^ content parser (to be used repeatedly)
682+ -> ParserT Text st m [a]
687683surrounded border =
688684 enclosed (border *> notFollowedBy (oneOf " \t\n\r")) (try border)
689685
690686simpleInline :: PandocMonad m
691− => TextileParser m t -- ^ surrounding parser
687+ => ParserT Text ParserState m t -- ^ surrounding parser
692688 -> (Inlines -> Inlines) -- ^ Inline constructor
693− -> TextileParser m Inlines -- ^ content parser (to be used repeatedly)
689+ -> ParserT Text ParserState m Inlines -- ^ content parser (to be used repeatedly)
694690simpleInline border construct = try $ do
695691 notAfterString
696692 border *> notFollowedBy (oneOf " \t\n\r")
@@ -704,7 +700,7 @@ simpleInline border construct = try $ do
704700 then body
705701 else B.spanWith attr body
706702
707−groupedInlineMarkup :: PandocMonad m => TextileParser m Inlines
703+groupedInlineMarkup :: PandocMonad m => ParserT Text ParserState m Inlines
708704groupedInlineMarkup = try $ do
709705 char '['
710706 sp1 <- option mempty $ B.space <$ whitespace
@@ -713,5 +709,5 @@ groupedInlineMarkup = try $ do
713709 char ']'
714710 return $ sp1 <> result <> sp2
715711
716−eof' :: Monad m => ParserT Sources s m Char
712+eof' :: Monad m => ParserT Text s m Char
717713eof' = '\n' <$ eof
src/Text/Pandoc/Readers/TikiWiki.hs+6−6
@@ -30,23 +30,23 @@ import Text.Pandoc.Definition
3030import Text.Pandoc.Logging (Verbosity (..))
3131import Text.Pandoc.Options
3232import Text.Pandoc.Parsing hiding (enclosed, nested)
33−import Text.Pandoc.Shared (safeRead)
33+import Text.Pandoc.Shared (crFilter, safeRead)
3434import Text.Pandoc.XML (fromEntities)
3535import Text.Printf (printf)
3636
3737-- | Read TikiWiki from an input string and return a Pandoc document.
38−readTikiWiki :: (PandocMonad m, ToSources a)
38+readTikiWiki :: PandocMonad m
3939 => ReaderOptions
40− -> a
40+ -> Text
4141 -> m Pandoc
4242readTikiWiki opts s = do
43− let sources = ensureFinalNewlines 2 (toSources s)
44− res <- readWithM parseTikiWiki def{ stateOptions = opts } sources
43+ res <- readWithM parseTikiWiki def{ stateOptions = opts }
44+ (crFilter s <> "\n\n")
4545 case res of
4646 Left e -> throwError e
4747 Right d -> return d
4848
49−type TikiWikiParser = ParserT Sources ParserState
49+type TikiWikiParser = ParserT Text ParserState
5050
5151--
5252-- utility functions
src/Text/Pandoc/Readers/Txt2Tags.hs+7−27
@@ -33,9 +33,9 @@ import Data.Time (defaultTimeLocale)
3333import Text.Pandoc.Definition
3434import Text.Pandoc.Options
3535import Text.Pandoc.Parsing hiding (space, spaces, uri)
36−import Text.Pandoc.Shared (compactify, compactifyDL, escapeURI)
36+import Text.Pandoc.Shared (compactify, compactifyDL, crFilter, escapeURI)
3737
38−type T2T = ParserT Sources ParserState (Reader T2TMeta)
38+type T2T = ParserT Text ParserState (Reader T2TMeta)
3939
4040-- | An object for the T2T macros meta information
4141-- the contents of each field is simply substituted verbatim into the file
@@ -68,15 +68,15 @@ getT2TMeta = do
6868 (intercalate ", " inps) outp
6969
7070-- | Read Txt2Tags from an input string returning a Pandoc document
71−readTxt2Tags :: (PandocMonad m, ToSources a)
71+readTxt2Tags :: PandocMonad m
7272 => ReaderOptions
73− -> a
73+ -> Text
7474 -> m Pandoc
7575readTxt2Tags opts s = do
76− let sources = ensureFinalNewlines 2 (toSources s)
7776 meta <- getT2TMeta
7877 let parsed = flip runReader meta $
79− readWithM parseT2T (def {stateOptions = opts}) sources
78+ readWithM parseT2T (def {stateOptions = opts}) $
79+ crFilter s <> "\n\n"
8080 case parsed of
8181 Right result -> return result
8282 Left e -> throwError e
@@ -478,29 +478,9 @@ macro = try $ do
478478-- raw URLs in text are automatically linked
479479url :: T2T Inlines
480480url = try $ do
481− (rawUrl, escapedUrl) <- try uri <|> emailAddress'
481+ (rawUrl, escapedUrl) <- try uri <|> emailAddress
482482 return $ B.link rawUrl "" (B.str escapedUrl)
483483
484−emailAddress' :: T2T (Text, Text)
485−emailAddress' = do
486− (base, mailURI) <- emailAddress
487− query <- option "" emailQuery
488− return (base <> query, mailURI <> query)
489−
490−emailQuery :: T2T Text
491−emailQuery = do
492− char '?'
493− parts <- kv `sepBy1` (char '&')
494− return $ "?" <> T.intercalate "&" parts
495−
496−kv :: T2T Text
497−kv = do
498− k <- T.pack <$> many1 alphaNum
499− char '='
500− let vchar = alphaNum <|> try (oneOf "%._/~:,=$@&+-;*" <* lookAhead alphaNum)
501− v <- T.pack <$> many1 vchar
502− return (k <> "=" <> v)
503−
504484uri :: T2T (Text, Text)
505485uri = try $ do
506486 address <- t2tURI
src/Text/Pandoc/Readers/Vimwiki.hs+7−12
@@ -74,28 +74,23 @@ import Text.Pandoc.Parsing (ParserState, ParserT, blanklines, emailAddress,
7474 many1Till, orderedListMarker, readWithM,
7575 registerHeader, spaceChar, stateMeta,
7676 stateOptions, uri, manyTillChar, manyChar, textStr,
77− many1Char, countChar, many1TillChar,
78− alphaNum, anyChar, char, newline, noneOf, oneOf,
79− space, spaces, string)
80−import Text.Pandoc.Sources (ToSources(..), Sources)
81−import Text.Pandoc.Shared (splitTextBy, stringify, stripFirstAndLast,
77+ many1Char, countChar, many1TillChar)
78+import Text.Pandoc.Shared (crFilter, splitTextBy, stringify, stripFirstAndLast,
8279 isURI, tshow)
80+import Text.Parsec.Char (alphaNum, anyChar, char, newline, noneOf, oneOf, space,
81+ spaces, string)
8382import Text.Parsec.Combinator (between, choice, eof, lookAhead, many1,
8483 manyTill, notFollowedBy, option, skipMany1)
8584import Text.Parsec.Prim (getState, many, try, updateState, (<|>))
8685
87−readVimwiki :: (PandocMonad m, ToSources a)
88− => ReaderOptions
89− -> a
90− -> m Pandoc
86+readVimwiki :: PandocMonad m => ReaderOptions -> Text -> m Pandoc
9187readVimwiki opts s = do
92− let sources = toSources s
93− res <- readWithM parseVimwiki def{ stateOptions = opts } sources
88+ res <- readWithM parseVimwiki def{ stateOptions = opts } $ crFilter s
9489 case res of
9590 Left e -> throwError e
9691 Right result -> return result
9792
98−type VwParser = ParserT Sources ParserState
93+type VwParser = ParserT Text ParserState
9994
10095
10196-- constants
src/Text/Pandoc/SelfContained.hs+7−4
@@ -16,6 +16,7 @@ the HTML using data URIs.
1616module Text.Pandoc.SelfContained ( makeDataURI, makeSelfContained ) where
1717import Codec.Compression.GZip as Gzip
1818import Control.Applicative ((<|>))
19+import Control.Monad.Except (throwError)
1920import Control.Monad.Trans (lift)
2021import Data.ByteString (ByteString)
2122import Data.ByteString.Base64
@@ -28,6 +29,7 @@ import System.FilePath (takeDirectory, takeExtension, (</>))
2829import Text.HTML.TagSoup
2930import Text.Pandoc.Class.PandocMonad (PandocMonad (..), fetchItem,
3031 getInputFiles, report, setInputFiles)
32+import Text.Pandoc.Error
3133import Text.Pandoc.Logging
3234import Text.Pandoc.MIME (MimeType)
3335import Text.Pandoc.Shared (isURI, renderTags', trim)
@@ -242,10 +244,11 @@ getData mimetype src
242244 let raw' = if ext `elem` [".gz", ".svgz"]
243245 then B.concat $ L.toChunks $ Gzip.decompress $ L.fromChunks [raw]
244246 else raw
245− let mime = case (mimetype, respMime) of
246− ("",Nothing) -> "application/octet-stream"
247− (x, Nothing) -> x
248− (_, Just x ) -> x
247+ mime <- case (mimetype, respMime) of
248+ ("",Nothing) -> throwError $ PandocSomeError
249+ $ "Could not determine mime type for `" <> src <> "'"
250+ (x, Nothing) -> return x
251+ (_, Just x ) -> return x
249252 result <- if "text/css" `T.isPrefixOf` mime
250253 then do
251254 oldInputs <- getInputFiles
src/Text/Pandoc/Shared.hs+21−16
@@ -26,6 +26,8 @@ module Text.Pandoc.Shared (
2626 findM,
2727 -- * Text processing
2828 tshow,
29+ backslashEscapes,
30+ escapeStringUsing,
2931 elemText,
3032 notElemText,
3133 stripTrailingNewlines,
@@ -123,7 +125,7 @@ import Text.HTML.TagSoup (RenderOptions (..), Tag (..), renderOptions,
123125import Text.Pandoc.Builder (Blocks, Inlines, ToMetaValue (..))
124126import qualified Text.Pandoc.Builder as B
125127import Data.Time
126−import Text.Pandoc.Asciify (toAsciiText)
128+import Text.Pandoc.Asciify (toAsciiChar)
127129import Text.Pandoc.Definition
128130import Text.Pandoc.Extensions (Extensions, Extension(..), extensionEnabled)
129131import Text.Pandoc.Generic (bottomUp)
@@ -153,20 +155,12 @@ splitTextBy isSep t
153155 in first : splitTextBy isSep (T.dropWhile isSep rest)
154156
155157splitTextByIndices :: [Int] -> T.Text -> [T.Text]
156−splitTextByIndices ns = splitTextByRelIndices (zipWith (-) ns (0:ns)) . T.unpack
158+splitTextByIndices ns = splitTextByRelIndices (zipWith (-) ns (0:ns))
157159 where
158− splitTextByRelIndices [] cs = [T.pack cs]
159− splitTextByRelIndices (x:xs) cs =
160− let (first, rest) = splitAt' x cs
161− in T.pack first : splitTextByRelIndices xs rest
162−
163−-- Note: don't replace this with T.splitAt, which is not sensitive
164−-- to character widths!
165−splitAt' :: Int -> [Char] -> ([Char],[Char])
166−splitAt' _ [] = ([],[])
167−splitAt' n xs | n <= 0 = ([],xs)
168−splitAt' n (x:xs) = (x:ys,zs)
169− where (ys,zs) = splitAt' (n - charWidth x) xs
160+ splitTextByRelIndices [] t = [t]
161+ splitTextByRelIndices (x:xs) t =
162+ let (first, rest) = T.splitAt x t
163+ in first : splitTextByRelIndices xs rest
170164
171165ordNub :: (Ord a) => [a] -> [a]
172166ordNub l = go Set.empty l
@@ -190,6 +184,17 @@ findM p = foldr go (pure Nothing)
190184tshow :: Show a => a -> T.Text
191185tshow = T.pack . show
192186
187+-- | Returns an association list of backslash escapes for the
188+-- designated characters.
189+backslashEscapes :: [Char] -- ^ list of special characters to escape
190+ -> [(Char, T.Text)]
191+backslashEscapes = map (\ch -> (ch, T.pack ['\\',ch]))
192+
193+-- | Escape a string of characters, using an association list of
194+-- characters and strings.
195+escapeStringUsing :: [(Char, T.Text)] -> T.Text -> T.Text
196+escapeStringUsing tbl = T.concatMap $ \c -> fromMaybe (T.singleton c) $ lookup c tbl
197+
193198-- | @True@ exactly when the @Char@ appears in the @Text@.
194199elemText :: Char -> T.Text -> Bool
195200elemText c = T.any (== c)
@@ -298,7 +303,6 @@ tabFilter tabStop = T.unlines . map go . T.lines
298303 (tabStop - (T.length s1 `mod` tabStop)) (T.pack " ")
299304 <> go (T.drop 1 s2)
300305
301−{-# DEPRECATED crFilter "readers filter crs automatically" #-}
302306-- | Strip out DOS line endings.
303307crFilter :: T.Text -> T.Text
304308crFilter = T.filter (/= '\r')
@@ -487,7 +491,7 @@ inlineListToIdentifier exts =
487491 | otherwise = T.dropWhile (not . isAlpha)
488492 filterAscii
489493 | extensionEnabled Ext_ascii_identifiers exts
490− = toAsciiText
494+ = T.pack . mapMaybe toAsciiChar . T.unpack
491495 | otherwise = id
492496 toIdent
493497 | extensionEnabled Ext_gfm_auto_identifiers exts =
@@ -853,6 +857,7 @@ filteredFilesFromArchive zf f =
853857 fileAndBinary :: Archive -> FilePath -> Maybe (FilePath, BL.ByteString)
854858 fileAndBinary a fp = findEntryByPath fp a >>= \e -> Just (fp, fromEntry e)
855859
860+
856861--
857862-- IANA URIs
858863--
src/Text/Pandoc/Sources.hsdeleted−195
@@ -1,195 +0,0 @@
1−{-# LANGUAGE FlexibleInstances #-}
2−{-# LANGUAGE FlexibleContexts #-}
3−{-# LANGUAGE MultiParamTypeClasses #-}
4−{-# LANGUAGE GeneralizedNewtypeDeriving #-}
5−{-# LANGUAGE OverloadedStrings #-}
6−{- |
7− Module : Text.Pandoc.Sources
8− Copyright : Copyright (C) 2021 John MacFarlane
9− License : GNU GPL, version 2 or above
10−
11− Maintainer : John MacFarlane <jgm@berkeley.edu>
12− Stability : alpha
13− Portability : portable
14−
15−Defines Sources object to be used as input to pandoc parsers and redefines Char
16−parsers so they get source position information from it.
17−-}
18−
19−module Text.Pandoc.Sources
20− ( Sources(..)
21− , ToSources(..)
22− , UpdateSourcePos(..)
23− , sourcesToText
24− , initialSourceName
25− , addToSources
26− , ensureFinalNewlines
27− , addToInput
28− , satisfy
29− , oneOf
30− , noneOf
31− , anyChar
32− , char
33− , string
34− , newline
35− , space
36− , spaces
37− , letter
38− , digit
39− , hexDigit
40− , alphaNum
41− )
42−where
43−import qualified Text.Parsec as P
44−import Text.Parsec (Stream(..), ParsecT)
45−import Text.Parsec.Pos as P
46−import Data.Text (Text)
47−import qualified Data.Text as T
48−import Data.Char (isSpace, isLetter, isAlphaNum, isDigit, isHexDigit)
49−import Data.String (IsString(..))
50−import qualified Data.List.NonEmpty as NonEmpty
51−
52−-- | A list of inputs labeled with source positions. It is assumed
53−-- that the 'Text's have @\n@ line endings.
54−newtype Sources = Sources { unSources :: [(SourcePos, Text)] }
55− deriving (Show, Semigroup, Monoid)
56−
57−instance Monad m => Stream Sources m Char where
58− uncons (Sources []) = return Nothing
59− uncons (Sources ((pos,t):rest)) =
60− case T.uncons t of
61− Nothing -> uncons (Sources rest)
62− Just (c,t') -> return $ Just (c, Sources ((pos,t'):rest))
63−
64−instance IsString Sources where
65− fromString s = Sources [(P.initialPos "", T.pack (filter (/='\r') s))]
66−
67−class ToSources a where
68− toSources :: a -> Sources
69−
70−instance ToSources Text where
71− toSources t = Sources [(P.initialPos "", T.filter (/='\r') t)]
72−
73−instance ToSources [(FilePath, Text)] where
74− toSources = Sources
75− . map (\(fp,t) ->
76− (P.initialPos fp, T.snoc (T.filter (/='\r') t) '\n'))
77−
78−instance ToSources Sources where
79− toSources = id
80−
81−sourcesToText :: Sources -> Text
82−sourcesToText (Sources xs) = mconcat $ map snd xs
83−
84−addToSources :: Monad m => SourcePos -> Text -> ParsecT Sources u m ()
85−addToSources pos t = do
86− curpos <- P.getPosition
87− Sources xs <- P.getInput
88− let xs' = case xs of
89− [] -> []
90− ((_,t'):rest) -> (curpos,t'):rest
91− P.setInput $ Sources ((pos, T.filter (/='\r') t):xs')
92−
93−ensureFinalNewlines :: Int -- ^ number of trailing newlines
94− -> Sources
95− -> Sources
96−ensureFinalNewlines n (Sources xs) =
97− case NonEmpty.nonEmpty xs of
98− Nothing -> Sources [(initialPos "", T.replicate n "\n")]
99− Just lst ->
100− case NonEmpty.last lst of
101− (spos, t) ->
102− case T.length (T.takeWhileEnd (=='\n') t) of
103− len | len >= n -> Sources xs
104− | otherwise -> Sources (NonEmpty.init lst ++
105− [(spos,
106− t <> T.replicate (n - len) "\n")])
107−
108−class UpdateSourcePos s c where
109− updateSourcePos :: SourcePos -> c -> s -> SourcePos
110−
111−instance UpdateSourcePos Text Char where
112− updateSourcePos pos c _ = updatePosChar pos c
113−
114−instance UpdateSourcePos Sources Char where
115− updateSourcePos pos c sources =
116− case sources of
117− Sources [] -> updatePosChar pos c
118− Sources ((_,t):(pos',_):_)
119− | T.null t -> pos'
120− Sources _ ->
121− case c of
122− '\n' -> incSourceLine (setSourceColumn pos 1) 1
123− '\t' -> incSourceColumn pos (4 - ((sourceColumn pos - 1) `mod` 4))
124− _ -> incSourceColumn pos 1
125−
126−-- | Get name of first source in 'Sources'.
127−initialSourceName :: Sources -> FilePath
128−initialSourceName (Sources []) = ""
129−initialSourceName (Sources ((pos,_):_)) = sourceName pos
130−
131−-- | Add some text to the beginning of the input sources.
132−-- This simplifies code that expands macros.
133−addToInput :: Monad m => Text -> ParsecT Sources u m ()
134−addToInput t = do
135− Sources xs <- P.getInput
136− case xs of
137− [] -> P.setInput $ Sources [(initialPos "",t)]
138− (pos,t'):rest -> P.setInput $ Sources ((pos, t <> t'):rest)
139−
140−-- We need to redefine the parsers in Text.Parsec.Char so that they
141−-- update source positions properly from the Sources stream.
142−
143−satisfy :: (Monad m, Stream s m Char, UpdateSourcePos s Char)
144− => (Char -> Bool) -> ParsecT s u m Char
145−satisfy f = P.tokenPrim show updateSourcePos matcher
146− where
147− matcher c = if f c then Just c else Nothing
148−
149−oneOf :: (Monad m, Stream s m Char, UpdateSourcePos s Char)
150− => [Char] -> ParsecT s u m Char
151−oneOf cs = satisfy (`elem` cs)
152−
153−noneOf :: (Monad m, Stream s m Char, UpdateSourcePos s Char)
154− => [Char] -> ParsecT s u m Char
155−noneOf cs = satisfy (`notElem` cs)
156−
157−anyChar :: (Monad m, Stream s m Char, UpdateSourcePos s Char)
158− => ParsecT s u m Char
159−anyChar = satisfy (const True)
160−
161−char :: (Monad m, Stream s m Char, UpdateSourcePos s Char)
162− => Char -> ParsecT s u m Char
163−char c = satisfy (== c)
164−
165−string :: (Monad m, Stream s m Char, UpdateSourcePos s Char)
166− => [Char] -> ParsecT s u m [Char]
167−string = mapM char
168−
169−newline :: (Monad m, Stream s m Char, UpdateSourcePos s Char)
170− => ParsecT s u m Char
171−newline = satisfy (== '\n')
172−
173−space :: (Monad m, Stream s m Char, UpdateSourcePos s Char)
174− => ParsecT s u m Char
175−space = satisfy isSpace
176−
177−spaces :: (Monad m, Stream s m Char, UpdateSourcePos s Char)
178− => ParsecT s u m ()
179−spaces = P.skipMany space P.<?> "white space"
180−
181−letter :: (Monad m, Stream s m Char, UpdateSourcePos s Char)
182− => ParsecT s u m Char
183−letter = satisfy isLetter
184−
185−alphaNum :: (Monad m, Stream s m Char, UpdateSourcePos s Char)
186− => ParsecT s u m Char
187−alphaNum = satisfy isAlphaNum
188−
189−digit :: (Monad m, Stream s m Char, UpdateSourcePos s Char)
190− => ParsecT s u m Char
191−digit = satisfy isDigit
192−
193−hexDigit :: (Monad m, Stream s m Char, UpdateSourcePos s Char)
194− => ParsecT s u m Char
195−hexDigit = satisfy isHexDigit
src/Text/Pandoc/Writers.hs+3−3
@@ -81,7 +81,6 @@ import Data.Aeson
8181import qualified Data.ByteString.Lazy as BL
8282import Data.Text (Text)
8383import qualified Data.Text as T
84−import Text.Pandoc.Shared (tshow)
8584import Text.Pandoc.Class
8685import Text.Pandoc.Definition
8786import Text.Pandoc.Options
@@ -123,6 +122,7 @@ import Text.Pandoc.Writers.Texinfo
123122import Text.Pandoc.Writers.Textile
124123import Text.Pandoc.Writers.XWiki
125124import Text.Pandoc.Writers.ZimWiki
125+import Text.Parsec.Error
126126
127127data Writer m = TextWriter (WriterOptions -> Pandoc -> m Text)
128128 | ByteStringWriter (WriterOptions -> Pandoc -> m BL.ByteString)
@@ -196,8 +196,8 @@ writers = [
196196getWriter :: PandocMonad m => Text -> m (Writer m, Extensions)
197197getWriter s =
198198 case parseFormatSpec s of
199− Left e -> throwError $ PandocAppError $
200− "Error parsing writer format " <> tshow s <> ": " <> tshow e
199+ Left e -> throwError $ PandocAppError
200+ $ T.intercalate "\n" [T.pack m | Message m <- errorMessages e]
201201 Right (writerName, extsToEnable, extsToDisable) ->
202202 case lookup writerName writers of
203203 Nothing -> throwError $
src/Text/Pandoc/Writers/AsciiDoc.hs+3−8
@@ -105,11 +105,8 @@ pandocToAsciiDoc opts (Pandoc meta blocks) = do
105105
106106-- | Escape special characters for AsciiDoc.
107107escapeString :: Text -> Text
108−escapeString t
109− | T.any (== '{') t = T.concatMap escChar t
110− | otherwise = t
111− where escChar '{' = "\\{"
112− escChar c = T.singleton c
108+escapeString = escapeStringUsing escs
109+ where escs = backslashEscapes "{"
113110
114111-- | Ordered list start parser for use in Para below.
115112olMarker :: Parser Text ParserState Char
@@ -499,9 +496,7 @@ inlineToAsciiDoc opts (Quoted qt lst) = do
499496 | otherwise -> [Str "``"] ++ lst ++ [Str "''"]
500497inlineToAsciiDoc _ (Code _ str) = do
501498 isAsciidoctor <- gets asciidoctorVariant
502− let escChar '`' = "\\'"
503− escChar c = T.singleton c
504− let contents = literal (T.concatMap escChar str)
499+ let contents = literal (escapeStringUsing (backslashEscapes "`") str)
505500 return $
506501 if isAsciidoctor
507502 then text "`+" <> contents <> "+`"
src/Text/Pandoc/Writers/BibTeX.hs+1−1
@@ -43,7 +43,7 @@ writeBibTeX' :: PandocMonad m => Variant -> WriterOptions -> Pandoc -> m Text
4343writeBibTeX' variant opts (Pandoc meta _) = do
4444 let mblang = case lookupMetaString "lang" meta of
4545 "" -> Nothing
46− t -> either (const Nothing) Just $ parseLang t
46+ t -> Just $ parseLang t
4747 let refs = case lookupMeta "references" meta of
4848 Just (MetaList xs) -> mapMaybe metaValueToReference xs
4949 _ -> []
src/Text/Pandoc/Writers/ConTeXt.hs+40−44
@@ -16,11 +16,12 @@ module Text.Pandoc.Writers.ConTeXt ( writeConTeXt ) where
1616import Control.Monad.State.Strict
1717import Data.Char (ord, isDigit)
1818import Data.List (intersperse)
19+import Data.List.NonEmpty (nonEmpty)
1920import Data.Maybe (mapMaybe)
2021import Data.Text (Text)
2122import qualified Data.Text as T
2223import Network.URI (unEscapeString)
23−import Text.Collate.Lang (Lang(..))
24+import Text.Pandoc.BCP47
2425import Text.Pandoc.Class.PandocMonad (PandocMonad, report, toLang)
2526import Text.Pandoc.Definition
2627import Text.Pandoc.ImageSize
@@ -177,12 +178,8 @@ blockToConTeXt (Para lst) = do
177178 contents <- inlineListToConTeXt lst
178179 return $ contents <> blankline
179180blockToConTeXt (LineBlock lns) = do
180− let emptyToBlankline doc = if isEmpty doc
181− then blankline
182− else doc
183− doclines <- mapM inlineListToConTeXt lns
184− let contextLines = vcat . map emptyToBlankline $ doclines
185− return $ "\\startlines" $$ contextLines $$ "\\stoplines" <> blankline
181+ doclines <- nowrap . vcat <$> mapM inlineListToConTeXt lns
182+ return $ "\\startlines" $$ doclines $$ "\\stoplines" <> blankline
186183blockToConTeXt (BlockQuote lst) = do
187184 contents <- blockListToConTeXt lst
188185 return $ "\\startblockquote" $$ nest 0 contents $$ "\\stopblockquote" <> blankline
@@ -232,7 +229,14 @@ blockToConTeXt (OrderedList (start, style', delim) lst) = do
232229 Period -> "stopper=."
233230 OneParen -> "stopper=)"
234231 TwoParens -> "left=(,stopper=)"
235− let specs2Items = filter (not . T.null) [start', delim']
232+ let width = maybe 0 maximum $ nonEmpty $ map T.length $
233+ take (length contents)
234+ (orderedListMarkers (start, style', delim))
235+ let width' = (toEnum width + 1) / 2
236+ let width'' = if width' > (1.5 :: Double)
237+ then "width=" <> tshow width' <> "em"
238+ else ""
239+ let specs2Items = filter (not . T.null) [start', delim', width'']
236240 let specs2 = if null specs2Items
237241 then ""
238242 else "[" <> T.intercalate "," specs2Items <> "]"
@@ -246,8 +250,8 @@ blockToConTeXt (OrderedList (start, style', delim) lst) = do
246250 UpperAlpha -> 'A') :
247251 if isTightList lst then ",packed]" else "]"
248252 let specs = T.pack style'' <> specs2
249− return $ "\\startenumerate" <> literal specs $$ vcat contents $$
250− "\\stopenumerate" <> blankline
253+ return $ "\\startitemize" <> literal specs $$ vcat contents $$
254+ "\\stopitemize" <> blankline
251255blockToConTeXt (DefinitionList lst) =
252256 liftM vcat $ mapM defListItemToConTeXt lst
253257blockToConTeXt HorizontalRule = return $ "\\thinrule" <> blankline
@@ -430,13 +434,9 @@ inlineToConTeXt (Link _ txt (src, _)) = do
430434 put $ st {stNextRef = next + 1}
431435 let ref = "url" <> tshow next
432436 contents <- inlineListToConTeXt txt
433− let escChar '#' = "\\#"
434− escChar '%' = "\\%"
435− escChar c = T.singleton c
436− let escContextURL = T.concatMap escChar
437437 return $ "\\useURL"
438438 <> brackets (literal ref)
439− <> brackets (literal $ escContextURL src)
439+ <> brackets (literal $ escapeStringUsing [('#',"\\#"),('%',"\\%")] src)
440440 <> (if isAutolink
441441 then empty
442442 else brackets empty <> brackets contents)
@@ -479,7 +479,7 @@ inlineToConTeXt (Note contents) = do
479479 then literal "\\footnote{" <> nest 2 (chomp contents') <> char '}'
480480 else literal "\\startbuffer " <> nest 2 (chomp contents') <>
481481 literal "\\stopbuffer\\footnote{\\getbuffer}"
482−inlineToConTeXt (Span (ident,_,kvs) ils) = do
482+inlineToConTeXt (Span (_,_,kvs) ils) = do
483483 mblang <- fromBCP47 (lookup "lang" kvs)
484484 let wrapDir txt = case lookup "dir" kvs of
485485 Just "rtl" -> braces $ "\\righttoleft " <> txt
@@ -489,11 +489,7 @@ inlineToConTeXt (Span (ident,_,kvs) ils) = do
489489 Just lng -> braces ("\\language" <>
490490 brackets (literal lng) <> txt)
491491 Nothing -> txt
492− addReference =
493− if T.null ident
494− then id
495− else (("\\reference" <> brackets (literal ident) <> "{}") <>)
496− addReference . wrapLang . wrapDir <$> inlineListToConTeXt ils
492+ wrapLang . wrapDir <$> inlineListToConTeXt ils
497493
498494-- | Craft the section header, inserting the section reference, if supplied.
499495sectionHeader :: PandocMonad m
@@ -555,26 +551,26 @@ fromBCP47 mbs = fromBCP47' <$> toLang mbs
555551-- https://tools.ietf.org/html/bcp47#section-2.1
556552-- http://wiki.contextgarden.net/Language_Codes
557553fromBCP47' :: Maybe Lang -> Maybe Text
558−fromBCP47' (Just (Lang "ar" _ (Just "SY") _ _ _)) = Just "ar-sy"
559−fromBCP47' (Just (Lang "ar" _ (Just "IQ") _ _ _)) = Just "ar-iq"
560−fromBCP47' (Just (Lang "ar" _ (Just "JO") _ _ _)) = Just "ar-jo"
561−fromBCP47' (Just (Lang "ar" _ (Just "LB") _ _ _)) = Just "ar-lb"
562−fromBCP47' (Just (Lang "ar" _ (Just "DZ") _ _ _)) = Just "ar-dz"
563−fromBCP47' (Just (Lang "ar" _ (Just "MA") _ _ _)) = Just "ar-ma"
564−fromBCP47' (Just (Lang "de" _ _ ["1901"] _ _)) = Just "deo"
565−fromBCP47' (Just (Lang "de" _ (Just "DE") _ _ _)) = Just "de-de"
566−fromBCP47' (Just (Lang "de" _ (Just "AT") _ _ _)) = Just "de-at"
567−fromBCP47' (Just (Lang "de" _ (Just "CH") _ _ _)) = Just "de-ch"
568−fromBCP47' (Just (Lang "el" _ _ ["poly"] _ _)) = Just "agr"
569−fromBCP47' (Just (Lang "en" _ (Just "US") _ _ _)) = Just "en-us"
570−fromBCP47' (Just (Lang "en" _ (Just "GB") _ _ _)) = Just "en-gb"
571−fromBCP47' (Just (Lang "grc"_ _ _ _ _)) = Just "agr"
572−fromBCP47' (Just (Lang "el" _ _ _ _ _)) = Just "gr"
573−fromBCP47' (Just (Lang "eu" _ _ _ _ _)) = Just "ba"
574−fromBCP47' (Just (Lang "he" _ _ _ _ _)) = Just "il"
575−fromBCP47' (Just (Lang "jp" _ _ _ _ _)) = Just "ja"
576−fromBCP47' (Just (Lang "uk" _ _ _ _ _)) = Just "ua"
577−fromBCP47' (Just (Lang "vi" _ _ _ _ _)) = Just "vn"
578−fromBCP47' (Just (Lang "zh" _ _ _ _ _)) = Just "cn"
579−fromBCP47' (Just (Lang l _ _ _ _ _)) = Just l
580−fromBCP47' Nothing = Nothing
554+fromBCP47' (Just (Lang "ar" _ "SY" _) ) = Just "ar-sy"
555+fromBCP47' (Just (Lang "ar" _ "IQ" _) ) = Just "ar-iq"
556+fromBCP47' (Just (Lang "ar" _ "JO" _) ) = Just "ar-jo"
557+fromBCP47' (Just (Lang "ar" _ "LB" _) ) = Just "ar-lb"
558+fromBCP47' (Just (Lang "ar" _ "DZ" _) ) = Just "ar-dz"
559+fromBCP47' (Just (Lang "ar" _ "MA" _) ) = Just "ar-ma"
560+fromBCP47' (Just (Lang "de" _ _ ["1901"]) ) = Just "deo"
561+fromBCP47' (Just (Lang "de" _ "DE" _) ) = Just "de-de"
562+fromBCP47' (Just (Lang "de" _ "AT" _) ) = Just "de-at"
563+fromBCP47' (Just (Lang "de" _ "CH" _) ) = Just "de-ch"
564+fromBCP47' (Just (Lang "el" _ _ ["poly"]) ) = Just "agr"
565+fromBCP47' (Just (Lang "en" _ "US" _) ) = Just "en-us"
566+fromBCP47' (Just (Lang "en" _ "GB" _) ) = Just "en-gb"
567+fromBCP47' (Just (Lang "grc"_ _ _) ) = Just "agr"
568+fromBCP47' (Just (Lang "el" _ _ _) ) = Just "gr"
569+fromBCP47' (Just (Lang "eu" _ _ _) ) = Just "ba"
570+fromBCP47' (Just (Lang "he" _ _ _) ) = Just "il"
571+fromBCP47' (Just (Lang "jp" _ _ _) ) = Just "ja"
572+fromBCP47' (Just (Lang "uk" _ _ _) ) = Just "ua"
573+fromBCP47' (Just (Lang "vi" _ _ _) ) = Just "vn"
574+fromBCP47' (Just (Lang "zh" _ _ _) ) = Just "cn"
575+fromBCP47' (Just (Lang l _ _ _) ) = Just l
576+fromBCP47' Nothing = Nothing
src/Text/Pandoc/Writers/CslJson.hs+3−4
@@ -34,16 +34,15 @@ import Control.Monad.Identity
3434import Citeproc.Locale (getLocale)
3535import Citeproc.CslJson
3636import Text.Pandoc.Options (WriterOptions)
37−import Data.Maybe (mapMaybe, fromMaybe)
37+import Data.Maybe (mapMaybe)
3838import Data.Aeson.Encode.Pretty (Config (..), Indent (Spaces),
3939 NumberFormat (Generic),
4040 defConfig, encodePretty')
4141
4242writeCslJson :: PandocMonad m => WriterOptions -> Pandoc -> m Text
4343writeCslJson _opts (Pandoc meta _) = do
44− let lang = fromMaybe (Lang "en" Nothing (Just "US") [] [] [])
45− (lookupMeta "lang" meta >>= metaValueToText >>=
46− either (const Nothing) Just . parseLang)
44+ let lang = maybe (Lang "en" (Just "US")) parseLang
45+ (lookupMeta "lang" meta >>= metaValueToText)
4746 locale <- case getLocale lang of
4847 Left e -> throwError $ PandocCiteprocError e
4948 Right l -> return l
src/Text/Pandoc/Writers/Docbook.hs+7−50
@@ -168,7 +168,7 @@ blockToDocbook :: PandocMonad m => WriterOptions -> Block -> DB m (Doc Text)
168168blockToDocbook _ Null = return empty
169169-- Add ids to paragraphs in divs with ids - this is needed for
170170-- pandoc-citeproc to get link anchors in bibliographies:
171−blockToDocbook opts (Div (id',"section":_,_) (Header lvl (_,_,attrs) ils : xs)) = do
171+blockToDocbook opts (Div (id',"section":_,_) (Header lvl _ ils : xs)) = do
172172 version <- ask
173173 -- Docbook doesn't allow sections with no content, so insert some if needed
174174 let bs = if null xs
@@ -188,17 +188,15 @@ blockToDocbook opts (Div (id',"section":_,_) (Header lvl (_,_,attrs) ils : xs))
188188 -- standalone documents will include them in the template.
189189 then [("xmlns", "http://docbook.org/ns/docbook"),("xmlns:xlink", "http://www.w3.org/1999/xlink")]
190190 else []
191−
192− -- Populate miscAttr with Header.Attr.attributes, filtering out non-valid DocBook section attributes, id, and xml:id
193− miscAttr = filter (isSectionAttr version) attrs
194− attribs = nsAttr <> idAttr <> miscAttr
191+ attribs = nsAttr <> idAttr
195192 title' <- inlinesToDocbook opts ils
196193 contents <- blocksToDocbook opts bs
197194 return $ inTags True tag attribs $ inTagsSimple "title" title' $$ contents
198195blockToDocbook opts (Div (ident,classes,_) bs) = do
199196 version <- ask
200197 let identAttribs = [(idName version, ident) | not (T.null ident)]
201− admonitions = ["caution","danger","important","note","tip","warning"]
198+ admonitions = ["attention","caution","danger","error","hint",
199+ "important","note","tip","warning"]
202200 case classes of
203201 (l:_) | l `elem` admonitions -> do
204202 let (mTitleBs, bodyBs) =
@@ -252,18 +250,17 @@ blockToDocbook opts (LineBlock lns) =
252250 blockToDocbook opts $ linesToPara lns
253251blockToDocbook opts (BlockQuote blocks) =
254252 inTagsIndented "blockquote" <$> blocksToDocbook opts blocks
255−blockToDocbook opts (CodeBlock (_,classes,_) str) = return $
253+blockToDocbook _ (CodeBlock (_,classes,_) str) = return $
256254 literal ("<programlisting" <> lang <> ">") <> cr <>
257255 flush (literal (escapeStringForXML str) <> cr <> literal "</programlisting>")
258256 where lang = if null langs
259257 then ""
260258 else " language=\"" <> escapeStringForXML (head langs) <>
261259 "\""
262− syntaxMap = writerSyntaxMap opts
263− isLang l = T.toLower l `elem` map T.toLower (languages syntaxMap)
260+ isLang l = T.toLower l `elem` map T.toLower languages
264261 langsFrom s = if isLang s
265262 then [s]
266− else (languagesByExtension syntaxMap) . T.toLower $ s
263+ else languagesByExtension . T.toLower $ s
267264 langs = concatMap langsFrom classes
268265blockToDocbook opts (BulletList lst) = do
269266 let attribs = [("spacing", "compact") | isTightList lst]
@@ -454,43 +451,3 @@ idAndRole (id',cls,_) = ident <> role
454451 where
455452 ident = [("id", id') | not (T.null id')]
456453 role = [("role", T.unwords cls) | not (null cls)]
457−
458−isSectionAttr :: DocBookVersion -> (Text, Text) -> Bool
459−isSectionAttr _ ("label",_) = True
460−isSectionAttr _ ("status",_) = True
461−isSectionAttr DocBook5 ("annotations",_) = True
462−isSectionAttr DocBook5 ("dir","ltr") = True
463−isSectionAttr DocBook5 ("dir","rtl") = True
464−isSectionAttr DocBook5 ("dir","lro") = True
465−isSectionAttr DocBook5 ("dir","rlo") = True
466−isSectionAttr _ ("remap",_) = True
467−isSectionAttr _ ("revisionflag","changed") = True
468−isSectionAttr _ ("revisionflag","added") = True
469−isSectionAttr _ ("revisionflag","deleted") = True
470−isSectionAttr _ ("revisionflag","off") = True
471−isSectionAttr _ ("role",_) = True
472−isSectionAttr DocBook5 ("version",_) = True
473−isSectionAttr DocBook5 ("xml:base",_) = True
474−isSectionAttr DocBook5 ("xml:lang",_) = True
475−isSectionAttr _ ("xreflabel",_) = True
476−isSectionAttr DocBook5 ("linkend",_) = True
477−isSectionAttr DocBook5 ("linkends",_) = True
478−isSectionAttr DocBook5 ("xlink:actuate",_) = True
479−isSectionAttr DocBook5 ("xlink:arcrole",_) = True
480−isSectionAttr DocBook5 ("xlink:from",_) = True
481−isSectionAttr DocBook5 ("xlink:href",_) = True
482−isSectionAttr DocBook5 ("xlink:label",_) = True
483−isSectionAttr DocBook5 ("xlink:role",_) = True
484−isSectionAttr DocBook5 ("xlink:show",_) = True
485−isSectionAttr DocBook5 ("xlink:title",_) = True
486−isSectionAttr DocBook5 ("xlink:to",_) = True
487−isSectionAttr DocBook5 ("xlink:type",_) = True
488−isSectionAttr DocBook4 ("arch",_) = True
489−isSectionAttr DocBook4 ("condition",_) = True
490−isSectionAttr DocBook4 ("conformance",_) = True
491−isSectionAttr DocBook4 ("lang",_) = True
492−isSectionAttr DocBook4 ("os",_) = True
493−isSectionAttr DocBook4 ("revision",_) = True
494−isSectionAttr DocBook4 ("security",_) = True
495−isSectionAttr DocBook4 ("vendor",_) = True
496−isSectionAttr _ (_,_) = False
src/Text/Pandoc/Writers/Docx.hs+238−56
@@ -22,6 +22,7 @@ import Control.Applicative ((<|>))
2222import Control.Monad.Except (catchError, throwError)
2323import Control.Monad.Reader
2424import Control.Monad.State.Strict
25+import qualified Data.ByteString as B
2526import qualified Data.ByteString.Lazy as BL
2627import Data.Char (isSpace, isLetter)
2728import Data.List (intercalate, isPrefixOf, isSuffixOf)
@@ -35,9 +36,8 @@ import qualified Data.Text.Lazy as TL
3536import Data.Time.Clock.POSIX
3637import Data.Digest.Pure.SHA (sha1, showDigest)
3738import Skylighting
38−import Text.Collate.Lang (renderLang)
39−import Text.Pandoc.Class.PandocMonad (PandocMonad, report, toLang, translateTerm)
40−import qualified Text.Pandoc.Translations as Term
39+import Text.Pandoc.BCP47 (getLang, renderLang)
40+import Text.Pandoc.Class.PandocMonad (PandocMonad, report, toLang)
4141import qualified Text.Pandoc.Class.PandocMonad as P
4242import Data.Time
4343import Text.Pandoc.UTF8 (fromTextLazy)
@@ -47,25 +47,123 @@ import Text.Pandoc.Highlighting (highlight)
4747import Text.Pandoc.Error
4848import Text.Pandoc.ImageSize
4949import Text.Pandoc.Logging
50−import Text.Pandoc.MIME (extensionFromMimeType, getMimeType, getMimeTypeDef)
50+import Text.Pandoc.MIME (MimeType, extensionFromMimeType, getMimeType,
51+ getMimeTypeDef)
5152import Text.Pandoc.Options
5253import Text.Pandoc.Writers.Docx.StyleMap
53−import Text.Pandoc.Writers.Docx.Table
54−import Text.Pandoc.Writers.Docx.Types
5554import Text.Pandoc.Shared
5655import Text.Pandoc.Walk
57−import qualified Text.Pandoc.Writers.GridTable as Grid
5856import Text.Pandoc.Writers.Math
5957import Text.Pandoc.Writers.Shared
58+import Text.Printf (printf)
6059import Text.TeXMath
6160import Text.Pandoc.Writers.OOXML
6261import Text.Pandoc.XML.Light as XML
6362import Data.Generics (mkT, everywhere)
6463
64+data ListMarker = NoMarker
65+ | BulletMarker
66+ | NumberMarker ListNumberStyle ListNumberDelim Int
67+ deriving (Show, Read, Eq, Ord)
68+
69+listMarkerToId :: ListMarker -> Text
70+listMarkerToId NoMarker = "990"
71+listMarkerToId BulletMarker = "991"
72+listMarkerToId (NumberMarker sty delim n) = T.pack $
73+ '9' : '9' : styNum : delimNum : show n
74+ where styNum = case sty of
75+ DefaultStyle -> '2'
76+ Example -> '3'
77+ Decimal -> '4'
78+ LowerRoman -> '5'
79+ UpperRoman -> '6'
80+ LowerAlpha -> '7'
81+ UpperAlpha -> '8'
82+ delimNum = case delim of
83+ DefaultDelim -> '0'
84+ Period -> '1'
85+ OneParen -> '2'
86+ TwoParens -> '3'
87+
88+data EnvProps = EnvProps{ styleElement :: Maybe Element
89+ , otherElements :: [Element]
90+ }
91+
92+instance Semigroup EnvProps where
93+ EnvProps s es <> EnvProps s' es' = EnvProps (s <|> s') (es ++ es')
94+
95+instance Monoid EnvProps where
96+ mempty = EnvProps Nothing []
97+ mappend = (<>)
98+
6599squashProps :: EnvProps -> [Element]
66100squashProps (EnvProps Nothing es) = es
67101squashProps (EnvProps (Just e) es) = e : es
68102
103+data WriterEnv = WriterEnv{ envTextProperties :: EnvProps
104+ , envParaProperties :: EnvProps
105+ , envRTL :: Bool
106+ , envListLevel :: Int
107+ , envListNumId :: Int
108+ , envInDel :: Bool
109+ , envChangesAuthor :: Text
110+ , envChangesDate :: Text
111+ , envPrintWidth :: Integer
112+ }
113+
114+defaultWriterEnv :: WriterEnv
115+defaultWriterEnv = WriterEnv{ envTextProperties = mempty
116+ , envParaProperties = mempty
117+ , envRTL = False
118+ , envListLevel = -1
119+ , envListNumId = 1
120+ , envInDel = False
121+ , envChangesAuthor = "unknown"
122+ , envChangesDate = "1969-12-31T19:00:00Z"
123+ , envPrintWidth = 1
124+ }
125+
126+data WriterState = WriterState{
127+ stFootnotes :: [Element]
128+ , stComments :: [([(Text, Text)], [Inline])]
129+ , stSectionIds :: Set.Set Text
130+ , stExternalLinks :: M.Map Text Text
131+ , stImages :: M.Map FilePath (String, String, Maybe MimeType, B.ByteString)
132+ , stLists :: [ListMarker]
133+ , stInsId :: Int
134+ , stDelId :: Int
135+ , stStyleMaps :: StyleMaps
136+ , stFirstPara :: Bool
137+ , stInTable :: Bool
138+ , stInList :: Bool
139+ , stTocTitle :: [Inline]
140+ , stDynamicParaProps :: Set.Set ParaStyleName
141+ , stDynamicTextProps :: Set.Set CharStyleName
142+ , stCurId :: Int
143+ }
144+
145+defaultWriterState :: WriterState
146+defaultWriterState = WriterState{
147+ stFootnotes = defaultFootnotes
148+ , stComments = []
149+ , stSectionIds = Set.empty
150+ , stExternalLinks = M.empty
151+ , stImages = M.empty
152+ , stLists = [NoMarker]
153+ , stInsId = 1
154+ , stDelId = 1
155+ , stStyleMaps = StyleMaps M.empty M.empty
156+ , stFirstPara = False
157+ , stInTable = False
158+ , stInList = False
159+ , stTocTitle = [Str "Table of Contents"]
160+ , stDynamicParaProps = Set.empty
161+ , stDynamicTextProps = Set.empty
162+ , stCurId = 20
163+ }
164+
165+type WS m = ReaderT WriterEnv (StateT WriterState m)
166+
69167renumIdMap :: Int -> [Element] -> M.Map Text Text
70168renumIdMap _ [] = M.empty
71169renumIdMap n (e:es)
@@ -470,27 +568,12 @@ writeDocx opts doc = do
470568 -- adds references to footnotes or endnotes we don't have...
471569 -- we do, however, copy some settings over from reference
472570 let settingsPath = "word/settings.xml"
473− settingsList = [ "zoom"
474− , "embedSystemFonts"
475− , "doNotTrackMoves"
476− , "defaultTabStop"
477− , "drawingGridHorizontalSpacing"
478− , "drawingGridVerticalSpacing"
479− , "displayHorizontalDrawingGridEvery"
480− , "displayVerticalDrawingGridEvery"
481− , "characterSpacingControl"
482− , "savePreviewPicture"
483− , "mathPr"
484− , "themeFontLang"
485− , "decimalSymbol"
486− , "listSeparator"
487− , "autoHyphenation"
488− , "consecutiveHyphenLimit"
489− , "hyphenationZone"
490− , "doNotHyphenateCap"
491− , "evenAndOddHeaders"
492− , "proofState"
493− , "compat"
571+ settingsList = [ "w:autoHyphenation"
572+ , "w:consecutiveHyphenLimit"
573+ , "w:hyphenationZone"
574+ , "w:doNotHyphenateCap"
575+ , "w:evenAndOddHeaders"
576+ , "w:proofState"
494577 ]
495578 settingsEntry <- copyChildren refArchive distArchive settingsPath epochtime settingsList
496579
@@ -593,17 +676,16 @@ copyChildren :: (PandocMonad m)
593676copyChildren refArchive distArchive path timestamp elNames = do
594677 ref <- parseXml refArchive distArchive path
595678 dist <- parseXml distArchive distArchive path
596− let elsToCopy =
597− map cleanElem $ filterChildrenName (\e -> qName e `elem` elNames) ref
598− let elsToKeep =
599− [e | Elem e <- elContent dist, not (any (hasSameNameAs e) elsToCopy)]
600679 return $ toEntry path timestamp $ renderXml dist{
601− elContent = map Elem elsToKeep ++ map Elem elsToCopy
680+ elContent = elContent dist ++ copyContent ref
602681 }
603682 where
604− hasSameNameAs (Element {elName = n1}) (Element {elName = n2}) =
605− qName n1 == qName n2
606− cleanElem el@Element{elName=name} = el{elName=name{qURI=Nothing}}
683+ strName QName{qName=name, qPrefix=prefix}
684+ | Just p <- prefix = p <> ":" <> name
685+ | otherwise = name
686+ shouldCopy = (`elem` elNames) . strName
687+ cleanElem el@Element{elName=name} = Elem el{elName=name{qURI=Nothing}}
688+ copyContent = map cleanElem . filterChildrenName shouldCopy
607689
608690-- this is the lowest number used for a list numId
609691baseListId :: Int
@@ -776,6 +858,12 @@ separateTables (x@Table{}:xs@(Table{}:_)) =
776858 x : RawBlock (Format "openxml") "<w:p />" : separateTables xs
777859separateTables (x:xs) = x : separateTables xs
778860
861+pStyleM :: (PandocMonad m) => ParaStyleName -> WS m XML.Element
862+pStyleM styleName = do
863+ pStyleMap <- gets (smParaStyle . stStyleMaps)
864+ let sty' = getStyleIdFromName styleName pStyleMap
865+ return $ mknode "w:pStyle" [("w:val", fromStyleId sty')] ()
866+
779867rStyleM :: (PandocMonad m) => CharStyleName -> WS m XML.Element
780868rStyleM styleName = do
781869 cStyleMap <- gets (smCharStyle . stStyleMaps)
@@ -855,28 +943,14 @@ blockToOpenXML' opts (Plain lst) = do
855943-- title beginning with fig: indicates that the image is a figure
856944blockToOpenXML' opts (Para [Image attr alt (src,T.stripPrefix "fig:" -> Just tit)]) = do
857945 setFirstPara
858− fignum <- gets stNextFigureNum
859− unless (null alt) $ modify $ \st -> st{ stNextFigureNum = fignum + 1 }
860− let figid = "fig" <> tshow fignum
861− figname <- translateTerm Term.Figure
862946 prop <- pStyleM $
863947 if null alt
864948 then "Figure"
865949 else "Captioned Figure"
866950 paraProps <- local (\env -> env { envParaProperties = EnvProps (Just prop) [] <> envParaProperties env }) (getParaProps False)
867951 contents <- inlinesToOpenXML opts [Image attr alt (src,tit)]
868− captionNode <- if null alt
869− then return []
870− else withParaPropM (pStyleM "Image Caption")
871− $ blockToOpenXML opts
872− (Para $ Span (figid,[],[])
873− [Str (figname <> "\160"),
874− RawInline (Format "openxml")
875− ("<w:fldSimple w:instr=\"SEQ Figure"
876− <> " \\* ARABIC \"><w:r><w:t>"
877− <> tshow fignum
878− <> "</w:t></w:r></w:fldSimple>"),
879− Str ":", Space] : alt)
952+ captionNode <- withParaPropM (pStyleM "Image Caption")
953+ $ blockToOpenXML opts (Para alt)
880954 return $
881955 Elem (mknode "w:p" [] (map Elem paraProps ++ contents))
882956 : captionNode
@@ -921,9 +995,78 @@ blockToOpenXML' _ HorizontalRule = do
921995 $ mknode "v:rect" [("style","width:0;height:1.5pt"),
922996 ("o:hralign","center"),
923997 ("o:hrstd","t"),("o:hr","t")] () ]
924−blockToOpenXML' opts (Table attr caption colspecs thead tbodies tfoot) =
925− tableToOpenXML (blocksToOpenXML opts)
926− (Grid.toTable attr caption colspecs thead tbodies tfoot)
998+blockToOpenXML' opts (Table _ blkCapt specs thead tbody tfoot) = do
999+ let (caption, aligns, widths, headers, rows) = toLegacyTable blkCapt specs thead tbody tfoot
1000+ setFirstPara
1001+ modify $ \s -> s { stInTable = True }
1002+ let captionStr = stringify caption
1003+ caption' <- if null caption
1004+ then return []
1005+ else withParaPropM (pStyleM "Table Caption")
1006+ $ blockToOpenXML opts (Para caption)
1007+ let alignmentFor al = mknode "w:jc" [("w:val",alignmentToString al)] ()
1008+ -- Table cells require a <w:p> element, even an empty one!
1009+ -- Not in the spec but in Word 2007, 2010. See #4953. And
1010+ -- apparently the last element must be a <w:p>, see #6983.
1011+ let cellToOpenXML (al, cell) = do
1012+ es <- withParaProp (alignmentFor al) $ blocksToOpenXML opts cell
1013+ return $
1014+ case reverse (onlyElems es) of
1015+ b:e:_ | qName (elName b) == "bookmarkEnd"
1016+ , qName (elName e) == "p" -> es
1017+ e:_ | qName (elName e) == "p" -> es
1018+ _ -> es ++ [Elem $ mknode "w:p" [] ()]
1019+ headers' <- mapM cellToOpenXML $ zip aligns headers
1020+ rows' <- mapM (mapM cellToOpenXML . zip aligns) rows
1021+ compactStyle <- pStyleM "Compact"
1022+ let emptyCell' = [Elem $ mknode "w:p" [] [mknode "w:pPr" [] [compactStyle]]]
1023+ let mkcell contents = mknode "w:tc" []
1024+ $ if null contents
1025+ then emptyCell'
1026+ else contents
1027+ let mkrow cells =
1028+ mknode "w:tr" [] $
1029+ map mkcell cells
1030+ let textwidth = 7920 -- 5.5 in in twips, 1/20 pt
1031+ let fullrow = 5000 -- 100% specified in pct
1032+ let (rowwidth :: Int) = round $ fullrow * sum widths
1033+ let mkgridcol w = mknode "w:gridCol"
1034+ [("w:w", tshow (floor (textwidth * w) :: Integer))] ()
1035+ let hasHeader = not $ all null headers
1036+ modify $ \s -> s { stInTable = False }
1037+ -- for compatibility with Word <= 2007, we include a val with a bitmask
1038+ -- 0×0020 Apply first row conditional formatting
1039+ -- 0×0040 Apply last row conditional formatting
1040+ -- 0×0080 Apply first column conditional formatting
1041+ -- 0×0100 Apply last column conditional formatting
1042+ -- 0×0200 Do not apply row banding conditional formatting
1043+ -- 0×0400 Do not apply column banding conditional formattin
1044+ let tblLookVal :: Int
1045+ tblLookVal = if hasHeader then 0x20 else 0
1046+ return $
1047+ caption' ++
1048+ [Elem $
1049+ mknode "w:tbl" []
1050+ ( mknode "w:tblPr" []
1051+ ( mknode "w:tblStyle" [("w:val","Table")] () :
1052+ mknode "w:tblW" [("w:type", "pct"), ("w:w", tshow rowwidth)] () :
1053+ mknode "w:tblLook" [("w:firstRow",if hasHeader then "1" else "0")
1054+ ,("w:lastRow","0")
1055+ ,("w:firstColumn","0")
1056+ ,("w:lastColumn","0")
1057+ ,("w:noHBand","0")
1058+ ,("w:noVBand","0")
1059+ ,("w:val", T.pack $ printf "%04x" tblLookVal)
1060+ ] () :
1061+ [ mknode "w:tblCaption" [("w:val", captionStr)] ()
1062+ | not (null caption) ] )
1063+ : mknode "w:tblGrid" []
1064+ (if all (==0) widths
1065+ then []
1066+ else map mkgridcol widths)
1067+ : [ mkrow headers' | hasHeader ] ++
1068+ map mkrow rows'
1069+ )]
9271070blockToOpenXML' opts el
9281071 | BulletList lst <- el = addOpenXMLList BulletMarker lst
9291072 | OrderedList (start, numstyle, numdelim) lst <- el
@@ -978,6 +1121,13 @@ listItemToOpenXML opts numid (first:rest) = do
9781121 modify $ \st -> st{ stInList = oldInList }
9791122 return $ first'' ++ rest''
9801123
1124+alignmentToString :: Alignment -> Text
1125+alignmentToString alignment = case alignment of
1126+ AlignLeft -> "left"
1127+ AlignRight -> "right"
1128+ AlignCenter -> "center"
1129+ AlignDefault -> "left"
1130+
9811131-- | Convert a list of inline elements to OpenXML.
9821132inlinesToOpenXML :: PandocMonad m => WriterOptions -> [Inline] -> WS m [Content]
9831133inlinesToOpenXML opts lst = concat `fmap` mapM (inlineToOpenXML opts) lst
@@ -988,6 +1138,10 @@ withNumId numid = local $ \env -> env{ envListNumId = numid }
9881138asList :: (PandocMonad m) => WS m a -> WS m a
9891139asList = local $ \env -> env{ envListLevel = envListLevel env + 1 }
9901140
1141+isStyle :: Element -> Bool
1142+isStyle e = isElem [] "w" "rStyle" e ||
1143+ isElem [] "w" "pStyle" e
1144+
9911145getTextProps :: (PandocMonad m) => WS m [Element]
9921146getTextProps = do
9931147 props <- asks envTextProperties
@@ -1016,6 +1170,16 @@ getParaProps displayMathPara = do
10161170 [] -> []
10171171 ps -> [mknode "w:pPr" [] ps]
10181172
1173+withParaProp :: PandocMonad m => Element -> WS m a -> WS m a
1174+withParaProp d p =
1175+ local (\env -> env {envParaProperties = ep <> envParaProperties env}) p
1176+ where ep = if isStyle d then EnvProps (Just d) [] else EnvProps Nothing [d]
1177+
1178+withParaPropM :: PandocMonad m => WS m Element -> WS m a -> WS m a
1179+withParaPropM md p = do
1180+ d <- md
1181+ withParaProp d p
1182+
10191183formattedString :: PandocMonad m => Text -> WS m [Element]
10201184formattedString str =
10211185 -- properly handle soft hyphens
@@ -1036,6 +1200,9 @@ formattedRun els = do
10361200 props <- getTextProps
10371201 return [ mknode "w:r" [] $ props ++ els ]
10381202
1203+setFirstPara :: PandocMonad m => WS m ()
1204+setFirstPara = modify $ \s -> s { stFirstPara = True }
1205+
10391206-- | Convert an inline element to OpenXML.
10401207inlineToOpenXML :: PandocMonad m => WriterOptions -> Inline -> WS m [Content]
10411208inlineToOpenXML opts il = withDirection $ inlineToOpenXML' opts il
@@ -1304,7 +1471,6 @@ inlineToOpenXML' opts (Image attr@(imgident, _, _) alt (src, title)) = do
13041471 Just Eps -> ".eps"
13051472 Just Svg -> ".svg"
13061473 Just Emf -> ".emf"
1307− Just Tiff -> ".tiff"
13081474 Nothing -> ""
13091475 imgpath = "media/" <> ident <> imgext
13101476 mbMimeType = mt <|> getMimeType (T.unpack imgpath)
@@ -1328,6 +1494,22 @@ inlineToOpenXML' opts (Image attr@(imgident, _, _) alt (src, title)) = do
13281494br :: Element
13291495br = mknode "w:r" [] [mknode "w:br" [] ()]
13301496
1497+-- Word will insert these footnotes into the settings.xml file
1498+-- (whether or not they're visible in the document). If they're in the
1499+-- file, but not in the footnotes.xml file, it will produce
1500+-- problems. So we want to make sure we insert them into our document.
1501+defaultFootnotes :: [Element]
1502+defaultFootnotes = [ mknode "w:footnote"
1503+ [("w:type", "separator"), ("w:id", "-1")]
1504+ [ mknode "w:p" []
1505+ [mknode "w:r" []
1506+ [ mknode "w:separator" [] ()]]]
1507+ , mknode "w:footnote"
1508+ [("w:type", "continuationSeparator"), ("w:id", "0")]
1509+ [ mknode "w:p" []
1510+ [ mknode "w:r" []
1511+ [ mknode "w:continuationSeparator" [] ()]]]]
1512+
13311513
13321514withDirection :: PandocMonad m => WS m a -> WS m a
13331515withDirection x = do
src/Text/Pandoc/Writers/Docx/Table.hsdeleted−227
@@ -1,227 +0,0 @@
1−{-# LANGUAGE LambdaCase #-}
2−{-# LANGUAGE OverloadedStrings #-}
3−{-# LANGUAGE ScopedTypeVariables #-}
4−{- |
5−Module : Text.Pandoc.Writers.Docx.Table
6−Copyright : Copyright (C) 2012-2021 John MacFarlane
7−License : GNU GPL, version 2 or above
8−Maintainer : John MacFarlane <jgm@berkeley.edu>
9−
10−Conversion of table blocks to docx.
11−-}
12−module Text.Pandoc.Writers.Docx.Table
13− ( tableToOpenXML
14− ) where
15−
16−import Control.Monad.State.Strict
17−import Data.Array
18−import Data.Text (Text)
19−import Text.Pandoc.Definition
20−import Text.Pandoc.Class.PandocMonad (PandocMonad, translateTerm)
21−import Text.Pandoc.Writers.Docx.Types
22−import Text.Pandoc.Shared
23−import Text.Printf (printf)
24−import Text.Pandoc.Writers.GridTable hiding (Table)
25−import Text.Pandoc.Writers.OOXML
26−import Text.Pandoc.XML.Light as XML hiding (Attr)
27−import qualified Data.Text as T
28−import qualified Text.Pandoc.Translations as Term
29−import qualified Text.Pandoc.Writers.GridTable as Grid
30−
31−tableToOpenXML :: PandocMonad m
32− => ([Block] -> WS m [Content])
33− -> Grid.Table
34− -> WS m [Content]
35−tableToOpenXML blocksToOpenXML gridTable = do
36− setFirstPara
37− let (Grid.Table (ident,_,_) caption colspecs _rowheads thead tbodies tfoot) =
38− gridTable
39− let (Caption _maybeShortCaption captionBlocks) = caption
40− tablenum <- gets stNextTableNum
41− unless (null captionBlocks) $
42− modify $ \st -> st{ stNextTableNum = tablenum + 1 }
43− let tableid = if T.null ident
44− then "table" <> tshow tablenum
45− else ident
46− tablename <- translateTerm Term.Table
47− let captionStr = stringify captionBlocks
48− let aligns = map fst $ elems colspecs
49− captionXml <- if null captionBlocks
50− then return []
51− else withParaPropM (pStyleM "Table Caption")
52− $ blocksToOpenXML
53− $ addLabel tableid tablename tablenum captionBlocks
54− -- We set "in table" after processing the caption, because we don't
55− -- want the "Table Caption" style to be overwritten with "Compact".
56− modify $ \s -> s { stInTable = True }
57− head' <- cellGridToOpenXML blocksToOpenXML HeadRow aligns thead
58− bodies <- mapM (cellGridToOpenXML blocksToOpenXML BodyRow aligns) tbodies
59− foot' <- cellGridToOpenXML blocksToOpenXML FootRow aligns tfoot
60−
61− let hasHeader = not . null . indices . partRowAttrs $ thead
62− let hasFooter = not . null . indices . partRowAttrs $ tfoot
63− -- for compatibility with Word <= 2007, we include a val with a bitmask
64− -- 0×0020 Apply first row conditional formatting
65− -- 0×0040 Apply last row conditional formatting
66− -- 0×0080 Apply first column conditional formatting
67− -- 0×0100 Apply last column conditional formatting
68− -- 0×0200 Do not apply row banding conditional formatting
69− -- 0×0400 Do not apply column banding conditional formattin
70− let tblLookVal = if hasHeader then (0x20 :: Int) else 0
71− let (gridCols, tblWattr) = tableLayout (elems colspecs)
72− let tbl = mknode "w:tbl" []
73− ( mknode "w:tblPr" []
74− ( mknode "w:tblStyle" [("w:val","Table")] () :
75− mknode "w:tblW" tblWattr () :
76− mknode "w:tblLook" [("w:firstRow",if hasHeader then "1" else "0")
77− ,("w:lastRow",if hasFooter then "1" else "0")
78− ,("w:firstColumn","0")
79− ,("w:lastColumn","0")
80− ,("w:noHBand","0")
81− ,("w:noVBand","0")
82− ,("w:val", T.pack $ printf "%04x" tblLookVal)
83− ] () :
84− [ mknode "w:tblCaption" [("w:val", captionStr)] ()
85− | not (T.null captionStr) ]
86− )
87− : mknode "w:tblGrid" [] gridCols
88− : head' ++ mconcat bodies ++ foot'
89− )
90− modify $ \s -> s { stInTable = False }
91− return $ captionXml ++ [Elem tbl]
92−
93−addLabel :: Text -> Text -> Int -> [Block] -> [Block]
94−addLabel tableid tablename tablenum bs =
95− case bs of
96− (Para ils : rest) -> Para (label : Space : ils) : rest
97− (Plain ils : rest) -> Plain (label : Space : ils) : rest
98− _ -> Para [label] : bs
99− where
100− label = Span (tableid,[],[])
101− [Str (tablename <> "\160"),
102− RawInline (Format "openxml")
103− ("<w:fldSimple w:instr=\"SEQ Table"
104− <> " \\* ARABIC \"><w:r><w:t>"
105− <> tshow tablenum
106− <> "</w:t></w:r></w:fldSimple>"),
107− Str ":"]
108−
109−-- | Parts of a table
110−data RowType = HeadRow | BodyRow | FootRow
111−
112−alignmentToString :: Alignment -> Text
113−alignmentToString = \case
114− AlignLeft -> "left"
115− AlignRight -> "right"
116− AlignCenter -> "center"
117− AlignDefault -> "left"
118−
119−tableLayout :: [ColSpec] -> ([Element], [(Text, Text)])
120−tableLayout specs =
121− let
122− textwidth = 7920 -- 5.5 in in twips (1 twip == 1/20 pt)
123− fullrow = 5000 -- 100% specified in pct (1 pct == 1/50th of a percent)
124− ncols = length specs
125− getWidth = \case
126− ColWidth n -> n
127− _ -> 0
128− widths = map (getWidth . snd) specs
129− rowwidth = round (fullrow * sum widths) :: Int
130− widthToTwips w = floor (textwidth * w) :: Int
131− mkGridCol w = mknode "w:gridCol" [("w:w", tshow (widthToTwips w))] ()
132− in if all (== 0) widths
133− then ( replicate ncols $ mkGridCol (1.0 / fromIntegral ncols)
134− , [ ("w:type", "auto"), ("w:w", "0")])
135− else ( map mkGridCol widths
136− , [ ("w:type", "pct"), ("w:w", tshow rowwidth) ])
137−
138−cellGridToOpenXML :: PandocMonad m
139− => ([Block] -> WS m [Content])
140− -> RowType
141− -> [Alignment]
142− -> Part
143− -> WS m [Element]
144−cellGridToOpenXML blocksToOpenXML rowType aligns part@(Part _ cellArray _) =
145− if null (elems cellArray)
146− then return mempty
147− else mapM (rowToOpenXML blocksToOpenXML) $
148− partToRows rowType aligns part
149−
150−data OOXMLCell
151− = OOXMLCell Attr Alignment RowSpan ColSpan [Block]
152− | OOXMLCellMerge ColSpan
153−
154−data OOXMLRow = OOXMLRow RowType Attr [OOXMLCell]
155−
156−partToRows :: RowType -> [Alignment] -> Part -> [OOXMLRow]
157−partToRows rowType aligns part =
158− let
159− toOOXMLCell :: Alignment -> RowIndex -> ColIndex -> GridCell -> [OOXMLCell]
160− toOOXMLCell columnAlign ridx cidx = \case
161− ContentCell attr align rowspan colspan blocks ->
162− -- Respect non-default, cell specific alignment.
163− let align' = case align of
164− AlignDefault -> columnAlign
165− _ -> align
166− in [OOXMLCell attr align' rowspan colspan blocks]
167− ContinuationCell idx'@(ridx',cidx') | ridx /= ridx', cidx == cidx' ->
168− case (partCellArray part)!idx' of
169− (ContentCell _ _ _ colspan _) -> [OOXMLCellMerge colspan]
170− x -> error $ "Content cell expected, got, " ++ show x ++
171− " at index " ++ show idx'
172− _ -> mempty
173− mkRow :: (RowIndex, Attr) -> OOXMLRow
174− mkRow (ridx, attr) = OOXMLRow rowType attr
175− . mconcat
176− . zipWith (\align -> uncurry $ toOOXMLCell align ridx)
177− aligns
178− . assocs
179− . rowArray ridx
180− $ partCellArray part
181− in map mkRow $ assocs (partRowAttrs part)
182−
183−rowToOpenXML :: PandocMonad m
184− => ([Block] -> WS m [Content])
185− -> OOXMLRow
186− -> WS m Element
187−rowToOpenXML blocksToOpenXML (OOXMLRow rowType _attr cells) = do
188− xmlcells <- mapM (ooxmlCellToOpenXML blocksToOpenXML) cells
189− let addTrPr = case rowType of
190− HeadRow -> (mknode "w:trPr" []
191− [mknode "w:tblHeader" [("w:val", "true")] ()] :)
192− BodyRow -> id
193− FootRow -> id
194− return $ mknode "w:tr" [] (addTrPr xmlcells)
195−
196−ooxmlCellToOpenXML :: PandocMonad m
197− => ([Block] -> WS m [Content])
198− -> OOXMLCell
199− -> WS m Element
200−ooxmlCellToOpenXML blocksToOpenXML = \case
201− OOXMLCellMerge (ColSpan colspan) -> do
202− return $ mknode "w:tc" []
203− [ mknode "w:tcPr" [] [ mknode "w:gridSpan" [("w:val", tshow colspan)] ()
204− , mknode "w:vMerge" [("w:val", "continue")] () ]
205− , mknode "w:p" [] [mknode "w:pPr" [] ()]]
206− OOXMLCell _attr align rowspan (ColSpan colspan) contents -> do
207− compactStyle <- pStyleM "Compact"
208− es <- withParaProp (alignmentFor align) $ blocksToOpenXML contents
209− -- Table cells require a <w:p> element, even an empty one!
210− -- Not in the spec but in Word 2007, 2010. See #4953. And
211− -- apparently the last element must be a <w:p>, see #6983.
212− return . mknode "w:tc" [] $
213− Elem
214− (mknode "w:tcPr" [] ([ mknode "w:gridSpan" [("w:val", tshow colspan)] ()
215− | colspan > 1] ++
216− [ mknode "w:vMerge" [("w:val", "restart")] ()
217− | rowspan > RowSpan 1 ])) :
218− if null contents
219− then [Elem $ mknode "w:p" [] [mknode "w:pPr" [] [compactStyle]]]
220− else case reverse (onlyElems es) of
221− b:e:_ | qName (elName b) == "bookmarkEnd" -- y tho?
222− , qName (elName e) == "p" -> es
223− e:_ | qName (elName e) == "p" -> es
224− _ -> es ++ [Elem $ mknode "w:p" [] ()]
225−
226−alignmentFor :: Alignment -> Element
227−alignmentFor al = mknode "w:jc" [("w:val",alignmentToString al)] ()
src/Text/Pandoc/Writers/Docx/Types.hsdeleted−185
@@ -1,185 +0,0 @@
1−{-# LANGUAGE OverloadedStrings #-}
2−{- |
3−Module : Text.Pandoc.Writers.Docx
4−Copyright : Copyright (C) 2012-2021 John MacFarlane
5−License : GNU GPL, version 2 or above
6−Maintainer : John MacFarlane <jgm@berkeley.edu>
7−
8−Conversion of table blocks to docx.
9−-}
10−module Text.Pandoc.Writers.Docx.Types
11− ( EnvProps (..)
12− , WriterEnv (..)
13− , defaultWriterEnv
14− , WriterState (..)
15− , defaultWriterState
16− , WS
17− , ListMarker (..)
18− , listMarkerToId
19− , pStyleM
20− , isStyle
21− , setFirstPara
22− , withParaProp
23− , withParaPropM
24− ) where
25−
26−import Control.Applicative ((<|>))
27−import Control.Monad.Reader
28−import Control.Monad.State.Strict
29−import Data.Text (Text)
30−import Text.Pandoc.Class.PandocMonad (PandocMonad)
31−import Text.Pandoc.Definition
32−import Text.Pandoc.MIME (MimeType)
33−import Text.Pandoc.Writers.Docx.StyleMap
34−import Text.Pandoc.Writers.OOXML
35−import Text.Pandoc.XML.Light as XML
36−import qualified Data.ByteString as B
37−import qualified Data.Map as M
38−import qualified Data.Set as Set
39−import qualified Data.Text as T
40−
41−data ListMarker = NoMarker
42− | BulletMarker
43− | NumberMarker ListNumberStyle ListNumberDelim Int
44− deriving (Show, Read, Eq, Ord)
45−
46−listMarkerToId :: ListMarker -> Text
47−listMarkerToId NoMarker = "990"
48−listMarkerToId BulletMarker = "991"
49−listMarkerToId (NumberMarker sty delim n) = T.pack $
50− '9' : '9' : styNum : delimNum : show n
51− where styNum = case sty of
52− DefaultStyle -> '2'
53− Example -> '3'
54− Decimal -> '4'
55− LowerRoman -> '5'
56− UpperRoman -> '6'
57− LowerAlpha -> '7'
58− UpperAlpha -> '8'
59− delimNum = case delim of
60− DefaultDelim -> '0'
61− Period -> '1'
62− OneParen -> '2'
63− TwoParens -> '3'
64−
65−
66−data EnvProps = EnvProps{ styleElement :: Maybe Element
67− , otherElements :: [Element]
68− }
69−
70−instance Semigroup EnvProps where
71− EnvProps s es <> EnvProps s' es' = EnvProps (s <|> s') (es ++ es')
72−
73−instance Monoid EnvProps where
74− mempty = EnvProps Nothing []
75− mappend = (<>)
76−
77−data WriterEnv = WriterEnv
78− { envTextProperties :: EnvProps
79− , envParaProperties :: EnvProps
80− , envRTL :: Bool
81− , envListLevel :: Int
82− , envListNumId :: Int
83− , envInDel :: Bool
84− , envChangesAuthor :: Text
85− , envChangesDate :: Text
86− , envPrintWidth :: Integer
87− }
88−
89−defaultWriterEnv :: WriterEnv
90−defaultWriterEnv = WriterEnv
91− { envTextProperties = mempty
92− , envParaProperties = mempty
93− , envRTL = False
94− , envListLevel = -1
95− , envListNumId = 1
96− , envInDel = False
97− , envChangesAuthor = "unknown"
98− , envChangesDate = "1969-12-31T19:00:00Z"
99− , envPrintWidth = 1
100− }
101−
102−
103−data WriterState = WriterState{
104− stFootnotes :: [Element]
105− , stComments :: [([(Text, Text)], [Inline])]
106− , stSectionIds :: Set.Set Text
107− , stExternalLinks :: M.Map Text Text
108− , stImages :: M.Map FilePath (String, String, Maybe MimeType, B.ByteString)
109− , stLists :: [ListMarker]
110− , stInsId :: Int
111− , stDelId :: Int
112− , stStyleMaps :: StyleMaps
113− , stFirstPara :: Bool
114− , stInTable :: Bool
115− , stInList :: Bool
116− , stTocTitle :: [Inline]
117− , stDynamicParaProps :: Set.Set ParaStyleName
118− , stDynamicTextProps :: Set.Set CharStyleName
119− , stCurId :: Int
120− , stNextFigureNum :: Int
121− , stNextTableNum :: Int
122− }
123−
124−defaultWriterState :: WriterState
125−defaultWriterState = WriterState{
126− stFootnotes = defaultFootnotes
127− , stComments = []
128− , stSectionIds = Set.empty
129− , stExternalLinks = M.empty
130− , stImages = M.empty
131− , stLists = [NoMarker]
132− , stInsId = 1
133− , stDelId = 1
134− , stStyleMaps = StyleMaps M.empty M.empty
135− , stFirstPara = False
136− , stInTable = False
137− , stInList = False
138− , stTocTitle = [Str "Table of Contents"]
139− , stDynamicParaProps = Set.empty
140− , stDynamicTextProps = Set.empty
141− , stCurId = 20
142− , stNextFigureNum = 1
143− , stNextTableNum = 1
144− }
145−
146−setFirstPara :: PandocMonad m => WS m ()
147−setFirstPara = modify $ \s -> s { stFirstPara = True }
148−
149−type WS m = ReaderT WriterEnv (StateT WriterState m)
150−
151−-- Word will insert these footnotes into the settings.xml file
152−-- (whether or not they're visible in the document). If they're in the
153−-- file, but not in the footnotes.xml file, it will produce
154−-- problems. So we want to make sure we insert them into our document.
155−defaultFootnotes :: [Element]
156−defaultFootnotes = [ mknode "w:footnote"
157− [("w:type", "separator"), ("w:id", "-1")]
158− [ mknode "w:p" []
159− [mknode "w:r" []
160− [ mknode "w:separator" [] ()]]]
161− , mknode "w:footnote"
162− [("w:type", "continuationSeparator"), ("w:id", "0")]
163− [ mknode "w:p" []
164− [ mknode "w:r" []
165− [ mknode "w:continuationSeparator" [] ()]]]]
166−
167−pStyleM :: (PandocMonad m) => ParaStyleName -> WS m XML.Element
168−pStyleM styleName = do
169− pStyleMap <- gets (smParaStyle . stStyleMaps)
170− let sty' = getStyleIdFromName styleName pStyleMap
171− return $ mknode "w:pStyle" [("w:val", fromStyleId sty')] ()
172−
173−withParaProp :: PandocMonad m => Element -> WS m a -> WS m a
174−withParaProp d p =
175− local (\env -> env {envParaProperties = ep <> envParaProperties env}) p
176− where ep = if isStyle d then EnvProps (Just d) [] else EnvProps Nothing [d]
177−
178−withParaPropM :: PandocMonad m => WS m Element -> WS m a -> WS m a
179−withParaPropM md p = do
180− d <- md
181− withParaProp d p
182−
183−isStyle :: Element -> Bool
184−isStyle e = isElem [] "w" "rStyle" e ||
185− isElem [] "w" "pStyle" e
src/Text/Pandoc/Writers/EPUB.hs+3−3
@@ -991,12 +991,12 @@ metadataElement version md currentTime =
991991 showDateTimeISO8601 currentTime | version == EPUB3 ]
992992 belongsToCollectionNodes =
993993 maybe []
994− (\belongsToCollection -> (unode "meta" ! [("property", "belongs-to-collection"), ("id", "epub-collection-1")] $ belongsToCollection )
994+ (\belongsToCollection -> (unode "meta" ! [("property", "belongs-to-collection"), ("id", "epub-id-1")] $ belongsToCollection )
995995 :
996− [unode "meta" ! [("refines", "#epub-collection-1"), ("property", "collection-type")] $ ("series" :: Text) ])
996+ [unode "meta" ! [("refines", "#epub-id-1"), ("property", "collection-type")] $ ("series" :: Text) ])
997997 (epubBelongsToCollection md)++
998998 maybe []
999− (\groupPosition -> [unode "meta" ! [("refines", "#epub-collection-1"), ("property", "group-position")] $ groupPosition ])
999+ (\groupPosition -> [unode "meta" ! [("refines", "#epub-id-1"), ("property", "group-position")] $ groupPosition ])
10001000 (epubGroupPosition md)
10011001 dcTag n s = unode ("dc:" <> n) s
10021002 dcTag' n s = [dcTag n s]
src/Text/Pandoc/Writers/GridTable.hsdeleted−157
@@ -1,157 +0,0 @@
1−{-# LANGUAGE FlexibleContexts #-}
2−{-# LANGUAGE GeneralizedNewtypeDeriving #-}
3−{-# LANGUAGE LambdaCase #-}
4−{-# LANGUAGE TupleSections #-}
5−
6−{- |
7−Module : Text.Pandoc.Writers.GridTable
8−Copyright : © 2020-2021 Albert Krewinkel
9−License : GNU GPL, version 2 or above
10−
11−Maintainer : Albert Krewinkel <albert@zeitkraut.de>
12−
13−Grid representation of pandoc tables.
14−-}
15−module Text.Pandoc.Writers.GridTable
16− ( Table (..)
17− , GridCell (..)
18− , RowIndex (..)
19− , ColIndex (..)
20− , CellIndex
21− , Part (..)
22− , toTable
23− , rowArray
24− ) where
25−
26−import Control.Monad (forM_)
27−import Control.Monad.ST
28−import Data.Array
29−import Data.Array.MArray
30−import Data.Array.ST
31−import Data.Maybe (listToMaybe)
32−import Data.STRef
33−import Text.Pandoc.Definition hiding (Table)
34−import qualified Text.Pandoc.Builder as B
35−
36−-- | A grid cell contains either a real table cell, or is the
37−-- continuation of a column or row-spanning cell. In the latter case,
38−-- the index of the continued cell is provided.
39−data GridCell
40− = ContentCell Attr Alignment RowSpan ColSpan [Block]
41− | ContinuationCell CellIndex
42− deriving (Show)
43−
44−-- | Row index in a table part.
45−newtype RowIndex = RowIndex Int deriving (Enum, Eq, Ix, Ord, Show)
46−-- | Column index in a table part.
47−newtype ColIndex = ColIndex Int deriving (Enum, Eq, Ix, Ord, Show)
48−
49−-- | Index to a cell in a table part.
50−type CellIndex = (RowIndex, ColIndex)
51−
52−-- | Cells are placed on a grid. Row attributes are stored in a separate
53−-- array.
54−data Part = Part
55− { partAttr :: Attr
56− , partCellArray :: Array (RowIndex,ColIndex) GridCell
57− , partRowAttrs :: Array RowIndex Attr
58− }
59−
60−data Table = Table
61− { tableAttr :: Attr
62− , tableCaption :: Caption
63− , tableColSpecs :: Array ColIndex ColSpec
64− , tableRowHeads :: RowHeadColumns
65− , tableHead :: Part
66− , tableBodies :: [Part]
67− , tableFoot :: Part
68− }
69−
70−toTable
71− :: B.Attr
72− -> B.Caption
73− -> [B.ColSpec]
74− -> B.TableHead
75− -> [B.TableBody]
76− -> B.TableFoot
77− -> Table
78−toTable attr caption colSpecs thead tbodies tfoot =
79− Table attr caption colSpecs' rowHeads thGrid tbGrids tfGrid
80− where
81− colSpecs' = listArray (ColIndex 1, ColIndex $ length colSpecs) colSpecs
82− rowHeads = case listToMaybe tbodies of
83− Nothing -> RowHeadColumns 0
84− Just (TableBody _attr rowHeadCols _headerRows _rows) -> rowHeadCols
85− thGrid = let (TableHead headAttr rows) = thead
86− in rowsToPart headAttr rows
87− tbGrids = map bodyToGrid tbodies
88− tfGrid = let (TableFoot footAttr rows) = tfoot
89− in rowsToPart footAttr rows
90− bodyToGrid (TableBody bodyAttr _rowHeadCols headRows rows) =
91− rowsToPart bodyAttr (headRows ++ rows)
92−
93−data BuilderCell
94− = FilledCell GridCell
95− | FreeCell
96−
97−fromBuilderCell :: BuilderCell -> GridCell
98−fromBuilderCell = \case
99− FilledCell c -> c
100− FreeCell -> error "Found an unassigned cell."
101−
102−rowsToPart :: Attr -> [B.Row] -> Part
103−rowsToPart attr = \case
104− [] -> Part
105− attr
106− (listArray ((RowIndex 1, ColIndex 1), (RowIndex 0, ColIndex 0)) [])
107− (listArray (RowIndex 1, RowIndex 0) [])
108− rows@(Row _attr firstRow:_) ->
109− let nrows = length rows
110− ncols = sum $ map (\(Cell _ _ _ (ColSpan cs) _) -> cs) firstRow
111− gbounds = ((RowIndex 1, ColIndex 1), (RowIndex nrows, ColIndex ncols))
112− mutableGrid :: ST s (STArray s CellIndex GridCell)
113− mutableGrid = do
114− grid <- newArray gbounds FreeCell
115− ridx <- newSTRef (RowIndex 1)
116− forM_ rows $ \(Row _attr cells) -> do
117− cidx <- newSTRef (ColIndex 1)
118− forM_ cells $ \(Cell cellAttr align rs cs blks) -> do
119− ridx' <- readSTRef ridx
120− let nextFreeInRow colindex@(ColIndex c) = do
121− readArray grid (ridx', colindex) >>= \case
122− FreeCell -> pure colindex
123− _ -> nextFreeInRow $ ColIndex (c + 1)
124− cidx' <- readSTRef cidx >>= nextFreeInRow
125− writeArray grid (ridx', cidx') . FilledCell $
126− ContentCell cellAttr align rs cs blks
127− forM_ (continuationIndices ridx' cidx' rs cs) $ \idx -> do
128− writeArray grid idx . FilledCell $
129− ContinuationCell (ridx', cidx')
130− -- go to new column
131− writeSTRef cidx cidx'
132− -- go to next row
133− modifySTRef ridx (incrRowIndex 1)
134− -- Swap BuilderCells with normal GridCells.
135− mapArray fromBuilderCell grid
136− in Part
137− { partCellArray = runSTArray mutableGrid
138− , partRowAttrs = listArray (RowIndex 1, RowIndex nrows) $
139− map (\(Row rowAttr _) -> rowAttr) rows
140− , partAttr = attr
141− }
142−
143−continuationIndices :: RowIndex -> ColIndex -> RowSpan -> ColSpan -> [CellIndex]
144−continuationIndices (RowIndex ridx) (ColIndex cidx) rowspan colspan =
145− let (RowSpan rs) = rowspan
146− (ColSpan cs) = colspan
147− in [ (RowIndex r, ColIndex c) | r <- [ridx..(ridx + rs - 1)]
148− , c <- [cidx..(cidx + cs - 1)]
149− , (r, c) /= (ridx, cidx)]
150−
151−rowArray :: RowIndex -> Array CellIndex GridCell -> Array ColIndex GridCell
152−rowArray ridx grid =
153− let ((_minRidx, minCidx), (_maxRidx, maxCidx)) = bounds grid
154− in ixmap (minCidx, maxCidx) (ridx,) grid
155−
156−incrRowIndex :: RowSpan -> RowIndex -> RowIndex
157−incrRowIndex (RowSpan n) (RowIndex r) = RowIndex $ r + n
src/Text/Pandoc/Writers/HTML.hs+12−80
@@ -26,13 +26,8 @@ module Text.Pandoc.Writers.HTML (
2626 writeSlideous,
2727 writeDZSlides,
2828 writeRevealJs,
29− tagWithAttributes,
30− inlineToHtml,
31− blockToHtml,
32− WriterState(..),
33− defaultWriterState
29+ tagWithAttributes
3430 ) where
35−
3631import Control.Monad.State.Strict
3732import Data.Char (ord)
3833import Data.List (intercalate, intersperse, partition, delete, (\\), foldl')
@@ -349,52 +344,6 @@ pandocToHtml opts (Pandoc meta blocks) = do
349344 PlainMath -> defField "displaymath-css" True
350345 WebTeX _ -> defField "displaymath-css" True
351346 _ -> id) .
352− (if slideVariant == RevealJsSlides
353− then -- set boolean options explicitly, since
354− -- template can't distinguish False/undefined
355− defField "controls" True .
356− defField "controlsTutorial" True .
357− defField "controlsLayout" ("bottom-right" :: Text) .
358− defField "controlsBackArrows" ("faded" :: Text) .
359− defField "progress" True .
360− defField "slideNumber" False .
361− defField "showSlideNumber" ("all" :: Text) .
362− defField "hashOneBasedIndex" False .
363− defField "hash" False .
364− defField "respondToHashChanges" True .
365− defField "history" False .
366− defField "keyboard" True .
367− defField "overview" True .
368− defField "disableLayout" False .
369− defField "center" True .
370− defField "touch" True .
371− defField "loop" False .
372− defField "rtl" False .
373− defField "navigationMode" ("default" :: Text) .
374− defField "shuffle" False .
375− defField "fragments" True .
376− defField "fragmentInURL" True .
377− defField "embedded" False .
378− defField "help" True .
379− defField "pause" True .
380− defField "showNotes" False .
381− defField "autoPlayMedia" ("null" :: Text) .
382− defField "preloadIframes" ("null" :: Text) .
383− defField "autoSlide" ("0" :: Text) .
384− defField "autoSlideStoppable" True .
385− defField "autoSlideMethod" ("null" :: Text) .
386− defField "defaultTiming" ("null" :: Text) .
387− defField "mouseWheel" False .
388− defField "display" ("block" :: Text) .
389− defField "hideInactiveCursor" True .
390− defField "hideCursorTime" ("5000" :: Text) .
391− defField "previewLinks" False .
392− defField "transition" ("slide" :: Text) .
393− defField "transitionSpeed" ("default" :: Text) .
394− defField "backgroundTransition" ("fade" :: Text) .
395− defField "viewDistance" ("3" :: Text) .
396− defField "mobileViewDistance" ("2" :: Text)
397− else id) .
398347 defField "document-css" (isNothing mCss && slideVariant == NoSlides) .
399348 defField "quotes" (stQuotes st) .
400349 -- for backwards compatibility we populate toc
@@ -664,20 +613,17 @@ dimensionsToAttrList attr = consolidateStyles $ go Width ++ go Height
664613figure :: PandocMonad m
665614 => WriterOptions -> Attr -> [Inline] -> (Text, Text)
666615 -> StateT WriterState m Html
667−figure opts attr@(_, _, attrList) txt (s,tit) = do
616+figure opts attr txt (s,tit) = do
668617 html5 <- gets stHtml5
669618 -- Screen-readers will normally read the @alt@ text and the figure; we
670619 -- want to avoid them reading the same text twice. With HTML5 we can
671620 -- use aria-hidden for the caption; with HTML4, we use an empty
672621 -- alt-text instead.
673− -- When the alt text differs from the caption both should be read.
674622 let alt = if html5 then txt else [Str ""]
675623 let tocapt = if html5
676− then (H5.figcaption !) $
677− if isJust (lookup "alt" attrList)
678− then mempty
679− else H5.customAttribute (textTag "aria-hidden")
680− (toValue @Text "true")
624+ then H5.figcaption !
625+ H5.customAttribute (textTag "aria-hidden")
626+ (toValue @Text "true")
681627 else H.p ! A.class_ "caption"
682628 img <- inlineToHtml opts (Image attr alt (s,tit))
683629 capt <- if null txt
@@ -824,10 +770,9 @@ blockToHtml opts (Div attr@(ident, classes, kvs') bs) = do
824770 lookup "entry-spacing" kvs' >>=
825771 safeRead }
826772 let isCslBibEntry = "csl-entry" `elem` classes
827− let kvs = [(k,v) | (k,v) <- kvs'
828− , k /= "width" || "column" `notElem` classes] ++
829− [("style", "width:" <> w <> ";") | "column" `elem` classes
830− , ("width", w) <- kvs'] ++
773+ let kvs = [(k,v) | (k,v) <- kvs', k /= "width"] ++
774+ [("style", "width:" <> w <> ";") | "column" `elem` classes,
775+ ("width", w) <- kvs'] ++
831776 [("role", "doc-bibliography") | isCslBibBody && html5] ++
832777 [("role", "doc-biblioentry") | isCslBibEntry && html5]
833778 let speakerNotes = "notes" `elem` classes
@@ -937,7 +882,7 @@ blockToHtml opts (BlockQuote blocks) = do
937882 else do
938883 contents <- blockListToHtml opts blocks
939884 return $ H.blockquote $ nl opts >> contents >> nl opts
940−blockToHtml opts (Header level (ident,classes,kvs) lst) = do
885+blockToHtml opts (Header level attr@(_,classes,kvs) lst) = do
941886 contents <- inlineListToHtml opts lst
942887 let secnum = fromMaybe mempty $ lookup "number" kvs
943888 let contents' = if writerNumberSections opts && not (T.null secnum)
@@ -945,13 +890,7 @@ blockToHtml opts (Header level (ident,classes,kvs) lst) = do
945890 then (H.span ! A.class_ "header-section-number"
946891 $ toHtml secnum) >> strToHtml " " >> contents
947892 else contents
948− html5 <- gets stHtml5
949− let kvs' = if html5
950− then kvs
951− else [ (k, v) | (k, v) <- kvs
952− , k `elem` (["lang", "dir", "title", "style"
953− , "align"] ++ intrinsicEventsHTML4)]
954− addAttrs opts (ident,classes,kvs')
893+ addAttrs opts attr
955894 $ case level of
956895 1 -> H.h1 contents'
957896 2 -> H.h2 contents'
@@ -1441,7 +1380,7 @@ inlineToHtml opts inline = do
14411380 return $ if T.null tit
14421381 then link'
14431382 else link' ! A.title (toValue tit)
1444− (Image attr@(_, _, attrList) txt (s, tit)) -> do
1383+ (Image attr txt (s,tit)) -> do
14451384 let alternate = stringify txt
14461385 slideVariant <- gets stSlideVariant
14471386 let isReveal = slideVariant == RevealJsSlides
@@ -1454,8 +1393,7 @@ inlineToHtml opts inline = do
14541393 [A.title $ toValue tit | not (T.null tit)] ++
14551394 attrs
14561395 imageTag = (if html5 then H5.img else H.img
1457− , [A.alt $ toValue alternate | not (null txt) &&
1458− isNothing (lookup "alt" attrList)] )
1396+ , [A.alt $ toValue alternate | not (null txt)] )
14591397 mediaTag tg fallbackTxt =
14601398 let linkTxt = if null txt
14611399 then fallbackTxt
@@ -1588,12 +1526,6 @@ allowsMathEnvironments MathML = True
15881526allowsMathEnvironments (WebTeX _) = True
15891527allowsMathEnvironments _ = False
15901528
1591−-- | List of intrinsic event attributes allowed on all elements in HTML4.
1592−intrinsicEventsHTML4 :: [Text]
1593−intrinsicEventsHTML4 =
1594− [ "onclick", "ondblclick", "onmousedown", "onmouseup", "onmouseover"
1595− , "onmouseout", "onmouseout", "onkeypress", "onkeydown", "onkeyup"]
1596−
15971529isRawHtml :: PandocMonad m => Format -> StateT WriterState m Bool
15981530isRawHtml f = do
15991531 html5 <- gets stHtml5
src/Text/Pandoc/Writers/Haddock.hs+2−13
@@ -15,7 +15,6 @@ Haddock: <http://www.haskell.org/haddock/doc/html/>
1515-}
1616module Text.Pandoc.Writers.Haddock (writeHaddock) where
1717import Control.Monad.State.Strict
18−import Data.Char (isAlphaNum)
1918import Data.Default
2019import Data.Text (Text)
2120import qualified Data.Text as T
@@ -72,18 +71,8 @@ notesToHaddock opts notes =
7271
7372-- | Escape special characters for Haddock.
7473escapeString :: Text -> Text
75−escapeString t
76− | T.all isAlphaNum t = t
77− | otherwise = T.concatMap escChar t
78− where
79− escChar '\\' = "\\\\"
80− escChar '/' = "\\/"
81− escChar '\'' = "\\'"
82− escChar '`' = "\\`"
83− escChar '"' = "\\\""
84− escChar '@' = "\\@"
85− escChar '<' = "\\<"
86− escChar c = T.singleton c
74+escapeString = escapeStringUsing haddockEscapes
75+ where haddockEscapes = backslashEscapes "\\/'`\"@<"
8776
8877-- | Convert Pandoc block element to haddock.
8978blockToHaddock :: PandocMonad m
src/Text/Pandoc/Writers/JATS.hs+44−67
@@ -1,7 +1,6 @@
1−{-# LANGUAGE LambdaCase #-}
2−{-# LANGUAGE OverloadedStrings #-}
31{-# LANGUAGE ScopedTypeVariables #-}
4−{-# LANGUAGE ViewPatterns #-}
2+{-# LANGUAGE OverloadedStrings #-}
3+{-# LANGUAGE ViewPatterns #-}
54{- |
65 Module : Text.Pandoc.Writers.JATS
76 Copyright : 2017-2021 John MacFarlane
@@ -21,13 +20,12 @@ module Text.Pandoc.Writers.JATS
2120 , writeJatsPublishing
2221 , writeJatsArticleAuthoring
2322 ) where
24−import Control.Applicative ((<|>))
2523import Control.Monad.Reader
2624import Control.Monad.State
2725import Data.Generics (everywhere, mkT)
2826import Data.List (partition)
2927import qualified Data.Map as M
30−import Data.Maybe (fromMaybe, listToMaybe)
28+import Data.Maybe (fromMaybe)
3129import Data.Time (toGregorian, Day, parseTimeM, defaultTimeLocale, formatTime)
3230import qualified Data.Text as T
3331import Data.Text (Text)
@@ -82,7 +80,7 @@ writeJats tagSet opts d = do
8280 let environment = JATSEnv
8381 { jatsTagSet = tagSet
8482 , jatsInlinesWriter = inlinesToJATS
85− , jatsBlockWriter = wrappedBlocksToJATS
83+ , jatsBlockWriter = blockToJATS
8684 , jatsReferences = refs
8785 }
8886 let initialState = JATSState { jatsNotes = [] }
@@ -164,9 +162,11 @@ wrappedBlocksToJATS needsWrap opts =
164162 wrappedBlockToJATS b = do
165163 inner <- blockToJATS opts b
166164 return $
167− if needsWrap b
165+ if needsWrap b || isBlockQuote b -- see #7041
168166 then inTags True "p" [("specific-use","wrapper")] inner
169167 else inner
168+ isBlockQuote (BlockQuote _) = True
169+ isBlockQuote _ = False
170170
171171-- | Auxiliary function to convert Plain block to Para.
172172plainToPara :: Block -> Block
@@ -225,36 +225,33 @@ imageMimeType src kvs =
225225 (T.drop 1 . T.dropWhile (/='/') <$> mbMT)
226226 in (maintype, subtype)
227227
228−languageFor :: WriterOptions -> [Text] -> Text
229−languageFor opts classes =
228+languageFor :: [Text] -> Text
229+languageFor classes =
230230 case langs of
231231 (l:_) -> escapeStringForXML l
232232 [] -> ""
233− where
234− syntaxMap = writerSyntaxMap opts
235− isLang l = T.toLower l `elem` map T.toLower (languages syntaxMap)
233+ where isLang l = T.toLower l `elem` map T.toLower languages
236234 langsFrom s = if isLang s
237235 then [s]
238− else (languagesByExtension syntaxMap) . T.toLower $ s
236+ else languagesByExtension . T.toLower $ s
239237 langs = concatMap langsFrom classes
240238
241−codeAttr :: WriterOptions -> Attr -> (Text, [(Text, Text)])
242−codeAttr opts (ident,classes,kvs) = (lang, attr)
239+codeAttr :: Attr -> (Text, [(Text, Text)])
240+codeAttr (ident,classes,kvs) = (lang, attr)
243241 where
244− attr = [("id", escapeNCName ident) | not (T.null ident)] ++
242+ attr = [("id",ident) | not (T.null ident)] ++
245243 [("language",lang) | not (T.null lang)] ++
246244 [(k,v) | (k,v) <- kvs, k `elem` ["code-type",
247245 "code-version", "executable",
248246 "language-version", "orientation",
249247 "platforms", "position", "specific-use"]]
250− lang = languageFor opts classes
248+ lang = languageFor classes
251249
252250-- | Convert a Pandoc block element to JATS.
253251blockToJATS :: PandocMonad m => WriterOptions -> Block -> JATS m (Doc Text)
254252blockToJATS _ Null = return empty
255253blockToJATS opts (Div (id',"section":_,kvs) (Header _lvl _ ils : xs)) = do
256− let idAttr = [ ("id", writerIdentifierPrefix opts <> escapeNCName id')
257− | not (T.null id')]
254+ let idAttr = [("id", writerIdentifierPrefix opts <> id') | not (T.null id')]
258255 let otherAttrs = ["sec-type", "specific-use"]
259256 let attribs = idAttr ++ [(k,v) | (k,v) <- kvs, k `elem` otherAttrs]
260257 title' <- inlinesToJATS opts ils
@@ -263,7 +260,7 @@ blockToJATS opts (Div (id',"section":_,kvs) (Header _lvl _ ils : xs)) = do
263260 inTagsSimple "title" title' $$ contents
264261-- Bibliography reference:
265262blockToJATS opts (Div (ident,_,_) [Para lst]) | "ref-" `T.isPrefixOf` ident =
266− inTags True "ref" [("id", escapeNCName ident)] .
263+ inTags True "ref" [("id", ident)] .
267264 inTagsSimple "mixed-citation" <$>
268265 inlinesToJATS opts lst
269266blockToJATS opts (Div ("refs",_,_) xs) = do
@@ -274,14 +271,14 @@ blockToJATS opts (Div ("refs",_,_) xs) = do
274271 return $ inTagsIndented "ref-list" contents
275272blockToJATS opts (Div (ident,[cls],kvs) bs) | cls `elem` ["fig", "caption", "table-wrap"] = do
276273 contents <- blocksToJATS opts bs
277− let attr = [("id", escapeNCName ident) | not (T.null ident)] ++
274+ let attr = [("id", ident) | not (T.null ident)] ++
278275 [("xml:lang",l) | ("lang",l) <- kvs] ++
279276 [(k,v) | (k,v) <- kvs, k `elem` ["specific-use",
280277 "content-type", "orientation", "position"]]
281278 return $ inTags True cls attr contents
282279blockToJATS opts (Div (ident,_,kvs) bs) = do
283280 contents <- blocksToJATS opts bs
284− let attr = [("id", escapeNCName ident) | not (T.null ident)] ++
281+ let attr = [("id", ident) | not (T.null ident)] ++
285282 [("xml:lang",l) | ("lang",l) <- kvs] ++
286283 [(k,v) | (k,v) <- kvs, k `elem` ["specific-use",
287284 "content-type", "orientation", "position"]]
@@ -299,7 +296,7 @@ blockToJATS opts (Para [Image (ident,_,kvs) txt
299296 let capt = if null txt
300297 then empty
301298 else inTagsSimple "caption" $ inTagsSimple "p" alt
302− let attr = [("id", escapeNCName ident) | not (T.null ident)] ++
299+ let attr = [("id", ident) | not (T.null ident)] ++
303300 [(k,v) | (k,v) <- kvs, k `elem` ["fig-type", "orientation",
304301 "position", "specific-use"]]
305302 let graphicattr = [("mimetype",maintype),
@@ -310,7 +307,7 @@ blockToJATS opts (Para [Image (ident,_,kvs) txt
310307 capt $$ selfClosingTag "graphic" graphicattr
311308blockToJATS _ (Para [Image (ident,_,kvs) _ (src, tit)]) = do
312309 let (maintype, subtype) = imageMimeType src kvs
313− let attr = [("id", escapeNCName ident) | not (T.null ident)] ++
310+ let attr = [("id", ident) | not (T.null ident)] ++
314311 [("mimetype", maintype),
315312 ("mime-subtype", subtype),
316313 ("xlink:href", src)] ++
@@ -326,16 +323,13 @@ blockToJATS opts (LineBlock lns) =
326323 blockToJATS opts $ linesToPara lns
327324blockToJATS opts (BlockQuote blocks) = do
328325 tagSet <- asks jatsTagSet
329− let needsWrap = if tagSet == TagSetArticleAuthoring
330− then not . isPara
331− else \case
332− Header{} -> True
333− HorizontalRule -> True
334− _ -> False
335− inTagsIndented "disp-quote" <$> wrappedBlocksToJATS needsWrap opts blocks
336−blockToJATS opts (CodeBlock a str) = return $
326+ let blocksToJats' = if tagSet == TagSetArticleAuthoring
327+ then wrappedBlocksToJATS (not . isPara)
328+ else blocksToJATS
329+ inTagsIndented "disp-quote" <$> blocksToJats' opts blocks
330+blockToJATS _ (CodeBlock a str) = return $
337331 inTags False tag attr (flush (text (T.unpack $ escapeStringForXML str)))
338− where (lang, attr) = codeAttr opts a
332+ where (lang, attr) = codeAttr a
339333 tag = if T.null lang then "preformat" else "code"
340334blockToJATS _ (BulletList []) = return empty
341335blockToJATS opts (BulletList lst) =
@@ -415,9 +409,9 @@ inlineToJATS opts (Quoted SingleQuote lst) = do
415409inlineToJATS opts (Quoted DoubleQuote lst) = do
416410 contents <- inlinesToJATS opts lst
417411 return $ char '“' <> contents <> char '”'
418−inlineToJATS opts (Code a str) =
412+inlineToJATS _ (Code a str) =
419413 return $ inTags False tag attr $ literal (escapeStringForXML str)
420− where (lang, attr) = codeAttr opts a
414+ where (lang, attr) = codeAttr a
421415 tag = if T.null lang then "monospace" else "code"
422416inlineToJATS _ il@(RawInline f x)
423417 | f == "jats" = return $ literal x
@@ -440,8 +434,7 @@ inlineToJATS opts (Note contents) = do
440434 let notenum = case notes of
441435 (n, _):_ -> n + 1
442436 [] -> 1
443− thenote <- inTags True "fn" [("id", "fn" <> tshow notenum)]
444− . (inTagsSimple "label" (literal $ tshow notenum) <>)
437+ thenote <- inTags True "fn" [("id","fn" <> tshow notenum)]
445438 <$> wrappedBlocksToJATS (not . isPara) opts
446439 (walk demoteHeaderAndRefs contents)
447440 modify $ \st -> st{ jatsNotes = (notenum, thenote) : notes }
@@ -449,34 +442,18 @@ inlineToJATS opts (Note contents) = do
449442 ("rid", "fn" <> tshow notenum)]
450443 $ text (show notenum)
451444inlineToJATS opts (Cite _ lst) =
445+ -- TODO revisit this after examining the jats.csl pipeline
452446 inlinesToJATS opts lst
453−inlineToJATS opts (Span (ident,classes,kvs) ils) = do
447+inlineToJATS opts (Span ("",_,[]) ils) = inlinesToJATS opts ils
448+inlineToJATS opts (Span (ident,_,kvs) ils) = do
454449 contents <- inlinesToJATS opts ils
455− let commonAttr = [("id", escapeNCName ident) | not (T.null ident)] ++
456− [("xml:lang",l) | ("lang",l) <- kvs] ++
457− [(k,v) | (k,v) <- kvs, k `elem` ["alt", "specific-use"]]
458− -- A named-content element is a good fit for spans, but requires a
459− -- content-type attribute to be present. We use either the explicit
460− -- attribute or the first class as content type. If neither is
461− -- available, then we fall back to using a @styled-content@ element.
462− let (tag, specificAttr) =
463− case lookup "content-type" kvs <|> listToMaybe classes of
464− Just ct -> ( "named-content"
465− , ("content-type", ct) :
466− [(k, v) | (k, v) <- kvs
467− , k `elem` ["rid", "vocab", "vocab-identifier",
468− "vocab-term", "vocab-term-identifier"]])
469− -- Fall back to styled-content
470− Nothing -> ("styled-content"
471− , [(k, v) | (k,v) <- kvs
472− , k `elem` ["style", "style-type", "style-detail",
473− "toggle"]])
474− let attr = commonAttr ++ specificAttr
475− -- unwrap if wrapping element would have no attributes
476− return $
477− if null attr
478− then contents
479− else inTags False tag attr contents
450+ let attr = [("id",ident) | not (T.null ident)] ++
451+ [("xml:lang",l) | ("lang",l) <- kvs] ++
452+ [(k,v) | (k,v) <- kvs
453+ , k `elem` ["content-type", "rationale",
454+ "rid", "specific-use"]]
455+ return $ selfClosingTag "milestone-start" attr <> contents <>
456+ selfClosingTag "milestone-end" []
480457inlineToJATS _ (Math t str) = do
481458 let addPref (Xml.Attr q v)
482459 | Xml.qName q == "xmlns" = Xml.Attr q{ Xml.qName = "xmlns:mml" } v
@@ -511,9 +488,9 @@ inlineToJATS _ (Link _attr [Str t] (T.stripPrefix "mailto:" -> Just email, _))
511488 return $ inTagsSimple "email" $ literal (escapeStringForXML email)
512489inlineToJATS opts (Link (ident,_,kvs) txt (T.uncons -> Just ('#', src), _)) = do
513490 let attr = mconcat
514− [ [("id", escapeNCName ident) | not (T.null ident)]
491+ [ [("id", ident) | not (T.null ident)]
515492 , [("alt", stringify txt) | not (null txt)]
516− , [("rid", escapeNCName src)]
493+ , [("rid", src)]
517494 , [(k,v) | (k,v) <- kvs, k `elem` ["ref-type", "specific-use"]]
518495 , [("ref-type", "bibr") | "ref-" `T.isPrefixOf` src]
519496 ]
@@ -523,7 +500,7 @@ inlineToJATS opts (Link (ident,_,kvs) txt (T.uncons -> Just ('#', src), _)) = do
523500 contents <- inlinesToJATS opts txt
524501 return $ inTags False "xref" attr contents
525502inlineToJATS opts (Link (ident,_,kvs) txt (src, tit)) = do
526− let attr = [("id", escapeNCName ident) | not (T.null ident)] ++
503+ let attr = [("id", ident) | not (T.null ident)] ++
527504 [("ext-link-type", "uri"),
528505 ("xlink:href", src)] ++
529506 [("xlink:title", tit) | not (T.null tit)] ++
@@ -541,7 +518,7 @@ inlineToJATS _ (Image (ident,_,kvs) _ (src, tit)) = do
541518 let subtype = fromMaybe "" $
542519 lookup "mime-subtype" kvs `mplus`
543520 (T.drop 1 . T.dropWhile (/='/') <$> mbMT)
544− let attr = [("id", escapeNCName ident) | not (T.null ident)] ++
521+ let attr = [("id", ident) | not (T.null ident)] ++
545522 [("mimetype", maintype),
546523 ("mime-subtype", subtype),
547524 ("xlink:href", src)] ++
src/Text/Pandoc/Writers/JATS/References.hs+2−3
@@ -29,7 +29,7 @@ import Text.Pandoc.Builder (Inlines)
2929import Text.Pandoc.Options (WriterOptions)
3030import Text.Pandoc.Shared (tshow)
3131import Text.Pandoc.Writers.JATS.Types
32−import Text.Pandoc.XML (escapeNCName, escapeStringForXML, inTags)
32+import Text.Pandoc.XML (escapeStringForXML, inTags)
3333import qualified Data.Text as T
3434
3535referencesToJATS :: PandocMonad m
@@ -46,8 +46,7 @@ referenceToJATS :: PandocMonad m
4646referenceToJATS _opts ref = do
4747 let refType = referenceType ref
4848 let pubType = [("publication-type", refType) | not (T.null refType)]
49− let ident = escapeNCName $ "ref-" <> unItemId (referenceId ref)
50− let wrap = inTags True "ref" [("id", ident)]
49+ let wrap = inTags True "ref" [("id", "ref-" <> unItemId (referenceId ref))]
5150 . inTags True "element-citation" pubType
5251 return . wrap . vcat $
5352 [ authors
src/Text/Pandoc/Writers/JATS/Table.hs+5−25
@@ -24,7 +24,7 @@ import Text.Pandoc.Definition
2424import Text.Pandoc.Options (WriterOptions)
2525import Text.Pandoc.Shared (tshow)
2626import Text.Pandoc.Writers.JATS.Types
27−import Text.Pandoc.XML (escapeNCName, inTags, inTagsIndented, selfClosingTag)
27+import Text.Pandoc.XML (inTags, inTagsIndented, selfClosingTag)
2828import qualified Data.Text as T
2929import qualified Text.Pandoc.Writers.AnnotatedTable as Ann
3030
@@ -34,19 +34,13 @@ tableToJATS :: PandocMonad m
3434 -> JATS m (Doc Text)
3535tableToJATS opts (Ann.Table attr caption colspecs thead tbodies tfoot) = do
3636 let (Caption _maybeShortCaption captionBlocks) = caption
37− -- Only paragraphs are allowed in captions, all other blocks must be
38− -- wrapped in @<p>@ elements.
39− let needsWrapping = \case
40− Plain{} -> False
41− Para{} -> False
42− _ -> True
4337 tbl <- captionlessTable opts attr colspecs thead tbodies tfoot
4438 captionDoc <- if null captionBlocks
4539 then return empty
4640 else do
4741 blockToJATS <- asks jatsBlockWriter
48− inTagsIndented "caption" <$>
49− blockToJATS needsWrapping opts captionBlocks
42+ inTagsIndented "caption" . vcat <$>
43+ mapM (blockToJATS opts) captionBlocks
5044 return $ inTags True "table-wrap" [] $ captionDoc $$ tbl
5145
5246captionlessTable :: PandocMonad m
@@ -222,7 +216,7 @@ cellToJats opts celltype (Ann.Cell (colspec :| _) _colNum cell) =
222216
223217toAttribs :: Attr -> [Text] -> [(Text, Text)]
224218toAttribs (ident, _classes, kvs) knownAttribs =
225− (if T.null ident then id else (("id", escapeNCName ident) :)) $
219+ (if T.null ident then id else (("id", ident) :)) $
226220 filter ((`elem` knownAttribs) . fst) kvs
227221
228222tableCellToJats :: PandocMonad m
@@ -236,7 +230,7 @@ tableCellToJats opts ctype colAlign (Cell attr align rowspan colspan item) = do
236230 inlinesToJats <- asks jatsInlinesWriter
237231 let cellContents = \case
238232 [Plain inlines] -> inlinesToJats opts inlines
239− blocks -> blockToJats needsWrapInCell opts blocks
233+ blocks -> vcat <$> mapM (blockToJats opts) blocks
240234 let tag' = case ctype of
241235 BodyCell -> "td"
242236 HeaderCell -> "th"
@@ -252,17 +246,3 @@ tableCellToJats opts ctype colAlign (Cell attr align rowspan colspan item) = do
252246 . maybeCons (colspanAttrib colspan)
253247 $ toAttribs attr validAttribs
254248 inTags False tag' attribs <$> cellContents item
255−
256−-- | Whether the JATS produced from this block should be wrapped in a
257−-- @<p>@ element when put directly below a @<td>@ element.
258−needsWrapInCell :: Block -> Bool
259−needsWrapInCell = \case
260− Plain{} -> False -- should be unwrapped anyway
261− Para{} -> False
262− BulletList{} -> False
263− OrderedList{} -> False
264− DefinitionList{} -> False
265− HorizontalRule -> False
266− CodeBlock{} -> False
267− RawBlock{} -> False -- responsibility of the user
268− _ -> True
src/Text/Pandoc/Writers/JATS/Types.hs+3−12
@@ -37,20 +37,11 @@ newtype JATSState = JATSState
3737 { jatsNotes :: [(Int, Doc Text)]
3838 }
3939
40−-- | Environment containing all information relevant for rendering.
4140data JATSEnv m = JATSEnv
42− { jatsTagSet :: JATSTagSet -- ^ The tag set that's being ouput
43−
44− , jatsBlockWriter :: (Block -> Bool)
45− -> WriterOptions -> [Block] -> JATS m (Doc Text)
46− -- ^ Converts a block list to JATS, wrapping top-level blocks into a
47− -- @<p>@ element if the property evaluates to @True@.
48− -- See #7227.
49−
41+ { jatsTagSet :: JATSTagSet
5042 , jatsInlinesWriter :: WriterOptions -> [Inline] -> JATS m (Doc Text)
51− -- ^ Converts an inline list to JATS.
52−
53− , jatsReferences :: [Reference Inlines] -- ^ List of references
43+ , jatsBlockWriter :: WriterOptions -> Block -> JATS m (Doc Text)
44+ , jatsReferences :: [Reference Inlines]
5445 }
5546
5647-- | JATS writer type
src/Text/Pandoc/Writers/Jira.hs+3−9
@@ -280,8 +280,6 @@ toJiraLink (_, classes, _) (url, _) alias = do
280280 | Just email <- T.stripPrefix "mailto:" url' = (Jira.Email, email)
281281 | "user-account" `elem` classes = (Jira.User, dropTilde url)
282282 | "attachment" `elem` classes = (Jira.Attachment, url)
283− | "smart-card" `elem` classes = (Jira.SmartCard, url)
284− | "smart-link" `elem` classes = (Jira.SmartLink, url)
285283 | otherwise = (Jira.External, url)
286284 dropTilde txt = case T.uncons txt of
287285 Just ('~', username) -> username
@@ -311,13 +309,9 @@ quotedToJira qtype xs = do
311309spanToJira :: PandocMonad m
312310 => Attr -> [Inline]
313311 -> JiraConverter m [Jira.Inline]
314−spanToJira (ident, _classes, attribs) inls =
315− let wrap = case lookup "color" attribs of
316− Nothing -> id
317− Just color -> singleton . Jira.ColorInline (Jira.ColorName color)
318− in wrap <$> case ident of
319− "" -> toJiraInlines inls
320− _ -> (Jira.Anchor ident :) <$> toJiraInlines inls
312+spanToJira (ident, _classes, _attribs) inls = case ident of
313+ "" -> toJiraInlines inls
314+ _ -> (Jira.Anchor ident :) <$> toJiraInlines inls
321315
322316registerNotes :: PandocMonad m => [Block] -> JiraConverter m [Jira.Inline]
323317registerNotes contents = do
src/Text/Pandoc/Writers/LaTeX.hs+10−27
@@ -29,7 +29,7 @@ import qualified Data.Text as T
2929import Network.URI (unEscapeString)
3030import Text.DocTemplates (FromContext(lookupContext), renderTemplate,
3131 Val(..), Context(..))
32−import Text.Collate.Lang (Lang (..), renderLang)
32+import Text.Pandoc.BCP47 (Lang (..), getLang, renderLang)
3333import Text.Pandoc.Class.PandocMonad (PandocMonad, report, toLang)
3434import Text.Pandoc.Definition
3535import Text.Pandoc.Highlighting (formatLaTeXBlock, formatLaTeXInline, highlight,
@@ -173,7 +173,6 @@ pandocToLaTeX options (Pandoc meta blocks) = do
173173 defField "has-chapters" (stHasChapters st) $
174174 defField "has-frontmatter" (documentClass `elem` frontmatterClasses) $
175175 defField "listings" (writerListings options || stLHS st) $
176− defField "zero-width-non-joiner" (stZwnj st) $
177176 defField "beamer" beamer $
178177 (if stHighlighting st
179178 then case writerHighlightStyle options of
@@ -291,12 +290,7 @@ blockToLaTeX :: PandocMonad m
291290 => Block -- ^ Block to convert
292291 -> LW m (Doc Text)
293292blockToLaTeX Null = return empty
294−blockToLaTeX (Div attr@(identifier,"block":dclasses,_)
295− (Header _ _ ils : bs)) = do
296− let blockname
297− | "example" `elem` dclasses = "exampleblock"
298− | "alert" `elem` dclasses = "alertblock"
299− | otherwise = "block"
293+blockToLaTeX (Div attr@(identifier,"block":_,_) (Header _ _ ils : bs)) = do
300294 ref <- toLabel identifier
301295 let anchor = if T.null identifier
302296 then empty
@@ -304,8 +298,8 @@ blockToLaTeX (Div attr@(identifier,"block":dclasses,_)
304298 braces (literal ref) <> braces empty
305299 title' <- inlineListToLaTeX ils
306300 contents <- blockListToLaTeX bs
307− wrapDiv attr $ ("\\begin" <> braces blockname <> braces title' <> anchor) $$
308− contents $$ "\\end" <> braces blockname
301+ wrapDiv attr $ ("\\begin{block}" <> braces title' <> anchor) $$
302+ contents $$ "\\end{block}"
309303blockToLaTeX (Div (identifier,"slide":dclasses,dkvs)
310304 (Header _ (_,hclasses,hkvs) ils : bs)) = do
311305 -- note: [fragile] is required or verbatim breaks
@@ -831,19 +825,7 @@ inlineToLaTeX (Code (_,classes,kvs) str) = do
831825 let chr = case "!\"'()*,-./:;?@" \\ T.unpack str of
832826 (c:_) -> c
833827 [] -> '!'
834− let isEscapable '\\' = True
835− isEscapable '{' = True
836− isEscapable '}' = True
837− isEscapable '%' = True
838− isEscapable '~' = True
839− isEscapable '_' = True
840− isEscapable '&' = True
841− isEscapable '#' = True
842− isEscapable '^' = True
843− isEscapable _ = False
844− let escChar c | isEscapable c = T.pack ['\\',c]
845− | otherwise = T.singleton c
846− let str' = T.concatMap escChar str
828+ let str' = escapeStringUsing (backslashEscapes "\\{}%~_&#^") str
847829 -- we always put lstinline in a dummy 'passthrough' command
848830 -- (defined in the default template) so that we don't have
849831 -- to change the way we escape characters depending on whether
@@ -894,9 +876,8 @@ inlineToLaTeX (Quoted qt lst) = do
894876 then char '`' <> inner <> char '\''
895877 else char '\x2018' <> inner <> char '\x2019'
896878 where
897− isQuoted (Span _ (x:_)) = isQuoted x
898− isQuoted (Quoted _ _) = True
899− isQuoted _ = False
879+ isQuoted (Quoted _ _) = True
880+ isQuoted _ = False
900881inlineToLaTeX (Str str) = do
901882 setEmptyLine False
902883 liftM literal $ stringToLaTeX TextString str
@@ -919,7 +900,7 @@ inlineToLaTeX il@(RawInline f str) = do
919900inlineToLaTeX LineBreak = do
920901 emptyLine <- gets stEmptyLine
921902 setEmptyLine True
922− return $ (if emptyLine then "\\strut " else "") <> "\\\\" <> cr
903+ return $ (if emptyLine then "~" else "") <> "\\\\" <> cr
923904inlineToLaTeX SoftBreak = do
924905 wrapText <- gets (writerWrapText . stOptions)
925906 case wrapText of
@@ -1050,3 +1031,5 @@ extractInline _ _ = []
10501031-- Look up a key in an attribute and give a list of its values
10511032lookKey :: Text -> Attr -> [Text]
10521033lookKey key (_,_,kvs) = maybe [] T.words $ lookup key kvs
1034+
1035+
src/Text/Pandoc/Writers/LaTeX/Lang.hs+60−61
@@ -15,7 +15,7 @@ module Text.Pandoc.Writers.LaTeX.Lang
1515 toBabel
1616 ) where
1717import Data.Text (Text)
18−import Text.Collate.Lang (Lang(..))
18+import Text.Pandoc.BCP47 (Lang (..))
1919
2020
2121-- In environments \Arabic instead of \arabic is used
@@ -25,89 +25,88 @@ toPolyglossiaEnv l =
2525 ("arabic", o) -> ("Arabic", o)
2626 x -> x
2727
28−-- Takes a list of the constituents of a BCP47 language code and
28+-- Takes a list of the constituents of a BCP 47 language code and
2929-- converts it to a Polyglossia (language, options) tuple
3030-- http://mirrors.ctan.org/macros/latex/contrib/polyglossia/polyglossia.pdf
3131toPolyglossia :: Lang -> (Text, Text)
32−toPolyglossia (Lang "ar" _ (Just "DZ") _ _ _) = ("arabic", "locale=algeria")
33−toPolyglossia (Lang "ar" _ (Just "IQ") _ _ _) = ("arabic", "locale=mashriq")
34−toPolyglossia (Lang "ar" _ (Just "JO") _ _ _) = ("arabic", "locale=mashriq")
35−toPolyglossia (Lang "ar" _ (Just "LB") _ _ _) = ("arabic", "locale=mashriq")
36−toPolyglossia (Lang "ar" _ (Just "LY") _ _ _) = ("arabic", "locale=libya")
37−toPolyglossia (Lang "ar" _ (Just "MA") _ _ _) = ("arabic", "locale=morocco")
38−toPolyglossia (Lang "ar" _ (Just "MR") _ _ _) = ("arabic", "locale=mauritania")
39−toPolyglossia (Lang "ar" _ (Just "PS") _ _ _) = ("arabic", "locale=mashriq")
40−toPolyglossia (Lang "ar" _ (Just "SY") _ _ _) = ("arabic", "locale=mashriq")
41−toPolyglossia (Lang "ar" _ (Just "TN") _ _ _) = ("arabic", "locale=tunisia")
42−toPolyglossia (Lang "de" _ _ vars _ _)
43− | "1901" `elem` vars = ("german", "spelling=old")
44−toPolyglossia (Lang "de" _ (Just "AT") vars _ _)
45− | "1901" `elem` vars = ("german", "variant=austrian, spelling=old")
46−toPolyglossia (Lang "de" _ (Just "AT") _ _ _) = ("german", "variant=austrian")
47−toPolyglossia (Lang "de" _ (Just "CH") vars _ _)
48− | "1901" `elem` vars = ("german", "variant=swiss, spelling=old")
49−toPolyglossia (Lang "de" _ (Just "CH") _ _ _) = ("german", "variant=swiss")
50−toPolyglossia (Lang "de" _ _ _ _ _) = ("german", "")
51−toPolyglossia (Lang "dsb" _ _ _ _ _) = ("lsorbian", "")
52−toPolyglossia (Lang "el" _ _ vars _ _)
53− | "polyton" `elem` vars = ("greek", "variant=poly")
54−toPolyglossia (Lang "en" _ (Just "AU") _ _ _) = ("english", "variant=australian")
55−toPolyglossia (Lang "en" _ (Just "CA") _ _ _) = ("english", "variant=canadian")
56−toPolyglossia (Lang "en" _ (Just "GB") _ _ _) = ("english", "variant=british")
57−toPolyglossia (Lang "en" _ (Just "NZ") _ _ _) = ("english", "variant=newzealand")
58−toPolyglossia (Lang "en" _ (Just "UK") _ _ _) = ("english", "variant=british")
59−toPolyglossia (Lang "en" _ (Just "US") _ _ _) = ("english", "variant=american")
60−toPolyglossia (Lang "grc" _ _ _ _ _) = ("greek", "variant=ancient")
61−toPolyglossia (Lang "hsb" _ _ _ _ _) = ("usorbian", "")
62−toPolyglossia (Lang "la" _ _ vars _ _)
63− | "x-classic" `elem` vars = ("latin", "variant=classic")
64−toPolyglossia (Lang "pt" _ (Just "BR") _ _ _) = ("portuguese", "variant=brazilian")
65−toPolyglossia (Lang "sl" _ _ _ _ _) = ("slovenian", "")
66−toPolyglossia x = (commonFromBcp47 x, "")
32+toPolyglossia (Lang "ar" _ "DZ" _) = ("arabic", "locale=algeria")
33+toPolyglossia (Lang "ar" _ "IQ" _) = ("arabic", "locale=mashriq")
34+toPolyglossia (Lang "ar" _ "JO" _) = ("arabic", "locale=mashriq")
35+toPolyglossia (Lang "ar" _ "LB" _) = ("arabic", "locale=mashriq")
36+toPolyglossia (Lang "ar" _ "LY" _) = ("arabic", "locale=libya")
37+toPolyglossia (Lang "ar" _ "MA" _) = ("arabic", "locale=morocco")
38+toPolyglossia (Lang "ar" _ "MR" _) = ("arabic", "locale=mauritania")
39+toPolyglossia (Lang "ar" _ "PS" _) = ("arabic", "locale=mashriq")
40+toPolyglossia (Lang "ar" _ "SY" _) = ("arabic", "locale=mashriq")
41+toPolyglossia (Lang "ar" _ "TN" _) = ("arabic", "locale=tunisia")
42+toPolyglossia (Lang "de" _ _ vars)
43+ | "1901" `elem` vars = ("german", "spelling=old")
44+toPolyglossia (Lang "de" _ "AT" vars)
45+ | "1901" `elem` vars = ("german", "variant=austrian, spelling=old")
46+toPolyglossia (Lang "de" _ "AT" _) = ("german", "variant=austrian")
47+toPolyglossia (Lang "de" _ "CH" vars)
48+ | "1901" `elem` vars = ("german", "variant=swiss, spelling=old")
49+toPolyglossia (Lang "de" _ "CH" _) = ("german", "variant=swiss")
50+toPolyglossia (Lang "de" _ _ _) = ("german", "")
51+toPolyglossia (Lang "dsb" _ _ _) = ("lsorbian", "")
52+toPolyglossia (Lang "el" _ "polyton" _) = ("greek", "variant=poly")
53+toPolyglossia (Lang "en" _ "AU" _) = ("english", "variant=australian")
54+toPolyglossia (Lang "en" _ "CA" _) = ("english", "variant=canadian")
55+toPolyglossia (Lang "en" _ "GB" _) = ("english", "variant=british")
56+toPolyglossia (Lang "en" _ "NZ" _) = ("english", "variant=newzealand")
57+toPolyglossia (Lang "en" _ "UK" _) = ("english", "variant=british")
58+toPolyglossia (Lang "en" _ "US" _) = ("english", "variant=american")
59+toPolyglossia (Lang "grc" _ _ _) = ("greek", "variant=ancient")
60+toPolyglossia (Lang "hsb" _ _ _) = ("usorbian", "")
61+toPolyglossia (Lang "la" _ _ vars)
62+ | "x-classic" `elem` vars = ("latin", "variant=classic")
63+toPolyglossia (Lang "pt" _ "BR" _) = ("portuguese", "variant=brazilian")
64+toPolyglossia (Lang "sl" _ _ _) = ("slovenian", "")
65+toPolyglossia x = (commonFromBcp47 x, "")
6766
68−-- Takes a list of the constituents of a BCP47 language code and
67+-- Takes a list of the constituents of a BCP 47 language code and
6968-- converts it to a Babel language string.
7069-- http://mirrors.ctan.org/macros/latex/required/babel/base/babel.pdf
7170-- List of supported languages (slightly outdated):
7271-- http://tug.ctan.org/language/hyph-utf8/doc/generic/hyph-utf8/hyphenation.pdf
7372toBabel :: Lang -> Text
74−toBabel (Lang "de" _ (Just "AT") vars _ _)
73+toBabel (Lang "de" _ "AT" vars)
7574 | "1901" `elem` vars = "austrian"
7675 | otherwise = "naustrian"
77−toBabel (Lang "de" _ (Just "CH") vars _ _)
76+toBabel (Lang "de" _ "CH" vars)
7877 | "1901" `elem` vars = "swissgerman"
7978 | otherwise = "nswissgerman"
80−toBabel (Lang "de" _ _ vars _ _)
79+toBabel (Lang "de" _ _ vars)
8180 | "1901" `elem` vars = "german"
8281 | otherwise = "ngerman"
83−toBabel (Lang "dsb" _ _ _ _ _) = "lowersorbian"
84−toBabel (Lang "el" _ _ vars _ _)
82+toBabel (Lang "dsb" _ _ _) = "lowersorbian"
83+toBabel (Lang "el" _ _ vars)
8584 | "polyton" `elem` vars = "polutonikogreek"
86−toBabel (Lang "en" _ (Just "AU") _ _ _) = "australian"
87−toBabel (Lang "en" _ (Just "CA") _ _ _) = "canadian"
88−toBabel (Lang "en" _ (Just "GB") _ _ _) = "british"
89−toBabel (Lang "en" _ (Just "NZ") _ _ _) = "newzealand"
90−toBabel (Lang "en" _ (Just "UK") _ _ _) = "british"
91−toBabel (Lang "en" _ (Just "US") _ _ _) = "american"
92−toBabel (Lang "fr" _ (Just "CA") _ _ _) = "canadien"
93−toBabel (Lang "fra" _ _ vars _ _)
85+toBabel (Lang "en" _ "AU" _) = "australian"
86+toBabel (Lang "en" _ "CA" _) = "canadian"
87+toBabel (Lang "en" _ "GB" _) = "british"
88+toBabel (Lang "en" _ "NZ" _) = "newzealand"
89+toBabel (Lang "en" _ "UK" _) = "british"
90+toBabel (Lang "en" _ "US" _) = "american"
91+toBabel (Lang "fr" _ "CA" _) = "canadien"
92+toBabel (Lang "fra" _ _ vars)
9493 | "aca" `elem` vars = "acadian"
95−toBabel (Lang "grc" _ _ _ _ _) = "polutonikogreek"
96−toBabel (Lang "hsb" _ _ _ _ _) = "uppersorbian"
97−toBabel (Lang "la" _ _ vars _ _)
94+toBabel (Lang "grc" _ _ _) = "polutonikogreek"
95+toBabel (Lang "hsb" _ _ _) = "uppersorbian"
96+toBabel (Lang "la" _ _ vars)
9897 | "x-classic" `elem` vars = "classiclatin"
99−toBabel (Lang "pt" _ (Just "BR") _ _ _) = "brazilian"
100−toBabel (Lang "sl" _ _ _ _ _) = "slovene"
98+toBabel (Lang "pt" _ "BR" _) = "brazilian"
99+toBabel (Lang "sl" _ _ _) = "slovene"
101100toBabel x = commonFromBcp47 x
102101
103−-- Takes a list of the constituents of a BCP47 language code
102+-- Takes a list of the constituents of a BCP 47 language code
104103-- and converts it to a string shared by Babel and Polyglossia.
105104-- https://tools.ietf.org/html/bcp47#section-2.1
106105commonFromBcp47 :: Lang -> Text
107−commonFromBcp47 (Lang "sr" (Just "Cyrl") _ _ _ _) = "serbianc"
108−commonFromBcp47 (Lang "zh" (Just "Latn") _ vars _ _)
109− | "pinyin" `elem` vars = "pinyin"
110−commonFromBcp47 (Lang l _ _ _ _ _) = fromIso l
106+commonFromBcp47 (Lang "sr" "Cyrl" _ _) = "serbianc"
107+commonFromBcp47 (Lang "zh" "Latn" _ vars)
108+ | "pinyin" `elem` vars = "pinyin"
109+commonFromBcp47 (Lang l _ _ _) = fromIso l
111110 where
112111 fromIso "af" = "afrikaans"
113112 fromIso "am" = "amharic"
src/Text/Pandoc/Writers/LaTeX/Table.hs+8−21
@@ -16,7 +16,6 @@ module Text.Pandoc.Writers.LaTeX.Table
1616 ) where
1717import Control.Monad.State.Strict
1818import Data.List (intersperse)
19−import qualified Data.List.NonEmpty as NonEmpty
2019import Data.List.NonEmpty (NonEmpty ((:|)))
2120import Data.Text (Text)
2221import qualified Data.Text as T
@@ -26,8 +25,7 @@ import Text.DocLayout
2625 ( Doc, braces, cr, empty, hcat, hsep, isEmpty, literal, nest
2726 , text, vcat, ($$) )
2827import Text.Pandoc.Shared (blocksToInlines, splitBy, tshow)
29−import Text.Pandoc.Walk (walk, query)
30−import Data.Monoid (Any(..))
28+import Text.Pandoc.Walk (walk)
3129import Text.Pandoc.Writers.LaTeX.Caption (getCaption)
3230import Text.Pandoc.Writers.LaTeX.Notes (notesToLaTeX)
3331import Text.Pandoc.Writers.LaTeX.Types
@@ -221,7 +219,9 @@ footRows (Ann.TableFoot _attr rows) = map headerRowCells rows
221219-- we need to go to some lengths to get line breaks working:
222220-- as LineBreak bs = \vtop{\hbox{\strut as}\hbox{\strut bs}}.
223221fixLineBreaks :: Block -> Block
224−fixLineBreaks = walk fixLineBreaks'
222+fixLineBreaks (Para ils) = Para $ fixLineBreaks' ils
223+fixLineBreaks (Plain ils) = Plain $ fixLineBreaks' ils
224+fixLineBreaks x = x
225225
226226fixLineBreaks' :: [Inline] -> [Inline]
227227fixLineBreaks' ils = case splitBy (== LineBreak) ils of
@@ -245,13 +245,8 @@ cellToLaTeX :: PandocMonad m
245245 -> Ann.Cell
246246 -> LW m (Doc Text)
247247cellToLaTeX blockListToLaTeX celltype annotatedCell = do
248− let (Ann.Cell specs _colnum cell) = annotatedCell
249− let hasWidths = snd (NonEmpty.head specs) /= ColWidthDefault
250− let specAlign = fst (NonEmpty.head specs)
251− let (Cell _attr align' rowspan colspan blocks) = cell
252− let align = case align' of
253− AlignDefault -> specAlign
254− _ -> align'
248+ let (Ann.Cell _specs _colnum cell) = annotatedCell
249+ let (Cell _attr align rowspan colspan blocks) = cell
255250 beamer <- gets stBeamer
256251 externalNotes <- gets stExternalNotes
257252 inMinipage <- gets stInMinipage
@@ -262,13 +257,8 @@ cellToLaTeX blockListToLaTeX celltype annotatedCell = do
262257 Para{} -> True
263258 Plain{} -> True
264259 _ -> False
265− let hasLineBreak LineBreak = Any True
266− hasLineBreak _ = Any False
267− let hasLineBreaks = getAny $ query hasLineBreak blocks
268260 result <-
269− if not hasWidths || (celltype /= HeaderCell
270− && all isPlainOrPara blocks
271− && not hasLineBreaks)
261+ if all isPlainOrPara blocks
272262 then
273263 blockListToLaTeX $ walk fixLineBreaks $ walk displayMathToInline blocks
274264 else do
@@ -281,9 +271,7 @@ cellToLaTeX blockListToLaTeX celltype annotatedCell = do
281271 let halign = literal $ alignCommand align
282272 return $ "\\begin{minipage}" <> valign <>
283273 braces "\\linewidth" <> halign <> cr <>
284− cellContents <>
285− (if hasLineBreaks then "\\strut" else mempty)
286− <> cr <>
274+ cellContents <> cr <>
287275 "\\end{minipage}"
288276 modify $ \st -> st{ stExternalNotes = externalNotes }
289277 when (rowspan /= RowSpan 1) $
@@ -304,4 +292,3 @@ cellToLaTeX blockListToLaTeX celltype annotatedCell = do
304292data CellType
305293 = HeaderCell
306294 | BodyCell
307− deriving Eq
src/Text/Pandoc/Writers/LaTeX/Types.hs+1−2
@@ -40,7 +40,7 @@ data WriterState =
4040 , stCsquotes :: Bool -- ^ true if document uses csquotes
4141 , stHighlighting :: Bool -- ^ true if document has highlighted code
4242 , stIncremental :: Bool -- ^ true if beamer lists should be
43− , stZwnj :: Bool -- ^ true if document has a ZWNJ character
43+ -- displayed bit by bit
4444 , stInternalLinks :: [Text] -- ^ list of internal link targets
4545 , stBeamer :: Bool -- ^ produce beamer
4646 , stEmptyLine :: Bool -- ^ true if no content on line
@@ -74,7 +74,6 @@ startingState options =
7474 , stCsquotes = False
7575 , stHighlighting = False
7676 , stIncremental = writerIncremental options
77− , stZwnj = False
7877 , stInternalLinks = []
7978 , stBeamer = False
8079 , stEmptyLine = True
src/Text/Pandoc/Writers/LaTeX/Util.hs+3−4
@@ -22,7 +22,6 @@ module Text.Pandoc.Writers.LaTeX.Util (
2222where
2323
2424import Control.Applicative ((<|>))
25−import Control.Monad (when)
2625import Text.Pandoc.Class (PandocMonad, toLang)
2726import Text.Pandoc.Options (WriterOptions(..), isEnabled)
2827import Text.Pandoc.Writers.LaTeX.Types (LW, WriterState(..))
@@ -31,7 +30,7 @@ import Text.Pandoc.Highlighting (toListingsLanguage)
3130import Text.DocLayout
3231import Text.Pandoc.Definition
3332import Text.Pandoc.ImageSize (showFl)
34−import Control.Monad.State.Strict (gets, modify)
33+import Control.Monad.State.Strict (gets)
3534import Data.Text (Text)
3635import qualified Data.Text as T
3736import Text.Pandoc.Extensions (Extension(Ext_smart))
@@ -50,8 +49,6 @@ data StringContext = TextString
5049stringToLaTeX :: PandocMonad m => StringContext -> Text -> LW m Text
5150stringToLaTeX context zs = do
5251 opts <- gets stOptions
53− when ('\x200c' `elemText` zs) $
54− modify (\s -> s { stZwnj = True })
5552 return $ T.pack $
5653 foldr (go opts context) mempty $ T.unpack $
5754 if writerPreferAscii opts
@@ -273,3 +270,5 @@ mbBraced :: Text -> Text
273270mbBraced x = if not (T.all isAlphaNum x)
274271 then "{" <> x <> "}"
275272 else x
273+
274+
src/Text/Pandoc/Writers/Markdown.hs+41−36
@@ -26,7 +26,7 @@ import Data.Default
2626import Data.List (intersperse, sortOn, transpose)
2727import Data.List.NonEmpty (nonEmpty, NonEmpty(..))
2828import qualified Data.Map as M
29−import Data.Maybe (fromMaybe, mapMaybe, isNothing)
29+import Data.Maybe (fromMaybe, mapMaybe)
3030import qualified Data.Set as Set
3131import Data.Text (Text)
3232import qualified Data.Text as T
@@ -43,7 +43,7 @@ import Text.Pandoc.Templates (renderTemplate)
4343import Text.DocTemplates (Val(..), Context(..), FromContext(..))
4444import Text.Pandoc.Walk
4545import Text.Pandoc.Writers.HTML (writeHtml5String)
46−import Text.Pandoc.Writers.Markdown.Inline (inlineListToMarkdown, linkAttributes, attrsToMarkdown)
46+import Text.Pandoc.Writers.Markdown.Inline (inlineListToMarkdown)
4747import Text.Pandoc.Writers.Markdown.Types (MarkdownVariant(..),
4848 WriterState(..),
4949 WriterEnv(..),
@@ -67,16 +67,7 @@ writePlain opts document =
6767-- | Convert Pandoc to Commonmark.
6868writeCommonMark :: PandocMonad m => WriterOptions -> Pandoc -> m Text
6969writeCommonMark opts document =
70− evalMD (pandocToMarkdown opts' document) def{ envVariant = Commonmark } def
71− where
72− opts' = opts{ writerExtensions =
73− -- These extensions can't be enabled or disabled
74− -- for commonmark because they're part of the core;
75− -- we set them here so that escapeText will behave
76− -- properly.
77− enableExtension Ext_all_symbols_escapable $
78− enableExtension Ext_intraword_underscores $
79− writerExtensions opts }
70+ evalMD (pandocToMarkdown opts document) def{ envVariant = Commonmark } def
8071
8172pandocTitleBlock :: Doc Text -> [Doc Text] -> Doc Text -> Doc Text
8273pandocTitleBlock tit auths dat =
@@ -141,17 +132,18 @@ valToYaml (SimpleVal x)
141132 | otherwise =
142133 if hasNewlines x
143134 then hang 0 ("|" <> cr) x
144− else if isNothing $ foldM needsDoubleQuotes True x
135+ else if fst $ foldr needsDoubleQuotes (False, True) x
145136 then "\"" <> fmap escapeInDoubleQuotes x <> "\""
146137 else x
147138 where
148− needsDoubleQuotes isFirst t
139+ needsDoubleQuotes t (positive, isFirst)
149140 = if T.any isBadAnywhere t ||
150141 (isFirst && T.any isYamlPunct (T.take 1 t))
151− then Nothing
152− else Just False
142+ then (True, False)
143+ else (positive, False)
153144 isBadAnywhere '#' = True
154145 isBadAnywhere ':' = True
146+ isBadAnywhere '`' = False
155147 isBadAnywhere _ = False
156148 hasNewlines NewLine = True
157149 hasNewlines BlankLines{} = True
@@ -256,11 +248,32 @@ noteToMarkdown opts num blocks = do
256248 then hang (writerTabStop opts) (marker <> spacer) contents
257249 else marker <> spacer <> contents
258250
259−-- | (Code) blocks with a single class and no attributes can just use it
260−-- standalone, no need to bother with curly braces.
261−classOrAttrsToMarkdown :: Attr -> Doc Text
262−classOrAttrsToMarkdown ("",[cls],[]) = literal cls
263−classOrAttrsToMarkdown attrs = attrsToMarkdown attrs
251+attrsToMarkdown :: Attr -> Doc Text
252+attrsToMarkdown attribs = braces $ hsep [attribId, attribClasses, attribKeys]
253+ where attribId = case attribs of
254+ ("",_,_) -> empty
255+ (i,_,_) -> "#" <> escAttr i
256+ attribClasses = case attribs of
257+ (_,[],_) -> empty
258+ (_,cs,_) -> hsep $
259+ map (escAttr . ("."<>))
260+ cs
261+ attribKeys = case attribs of
262+ (_,_,[]) -> empty
263+ (_,_,ks) -> hsep $
264+ map (\(k,v) -> escAttr k
265+ <> "=\"" <>
266+ escAttr v <> "\"") ks
267+ escAttr = mconcat . map escAttrChar . T.unpack
268+ escAttrChar '"' = literal "\\\""
269+ escAttrChar '\\' = literal "\\\\"
270+ escAttrChar c = literal $ T.singleton c
271+
272+linkAttributes :: WriterOptions -> Attr -> Doc Text
273+linkAttributes opts attr =
274+ if isEnabled Ext_link_attributes opts && attr /= nullAttr
275+ then attrsToMarkdown attr
276+ else empty
264277
265278-- | Ordered list start parser for use in Para below.
266279olMarker :: Parser Text ParserState ()
@@ -321,12 +334,9 @@ blockToMarkdown' opts (Div attrs ils) = do
321334 case () of
322335 _ | isEnabled Ext_fenced_divs opts &&
323336 attrs /= nullAttr ->
324− let attrsToMd = if variant == Commonmark
325− then attrsToMarkdown
326− else classOrAttrsToMarkdown
327− in nowrap (literal ":::" <+> attrsToMd attrs) $$
328− chomp contents $$
329− literal ":::" <> blankline
337+ nowrap (literal ":::" <+> attrsToMarkdown attrs) $$
338+ chomp contents $$
339+ literal ":::" <> blankline
330340 | isEnabled Ext_native_divs opts ||
331341 (isEnabled Ext_raw_html opts &&
332342 (variant == Commonmark ||
@@ -368,7 +378,7 @@ blockToMarkdown' opts (Plain inlines) = do
368378-- title beginning with fig: indicates figure
369379blockToMarkdown' opts (Para [Image attr alt (src,tgt@(T.stripPrefix "fig:" -> Just tit))])
370380 | isEnabled Ext_raw_html opts &&
371− not (isEnabled Ext_link_attributes opts || isEnabled Ext_attributes opts) &&
381+ not (isEnabled Ext_link_attributes opts) &&
372382 attr /= nullAttr = -- use raw HTML
373383 (<> blankline) . literal . T.strip <$>
374384 writeHtml5String opts{ writerTemplate = Nothing }
@@ -433,8 +443,7 @@ blockToMarkdown' opts (Header level attr inlines) = do
433443 && id' == autoId -> empty
434444 (id',_,_) | isEnabled Ext_mmd_header_identifiers opts ->
435445 space <> brackets (literal id')
436− _ | isEnabled Ext_header_attributes opts ||
437− isEnabled Ext_attributes opts ->
446+ _ | isEnabled Ext_header_attributes opts ->
438447 space <> attrsToMarkdown attr
439448 | otherwise -> empty
440449 contents <- inlineListToMarkdown opts $
@@ -493,9 +502,8 @@ blockToMarkdown' opts (CodeBlock attribs str) = do
493502 endline c = literal $ T.replicate (endlineLen c) $ T.singleton c
494503 backticks = endline '`'
495504 tildes = endline '~'
496− attrs = if isEnabled Ext_fenced_code_attributes opts ||
497− isEnabled Ext_attributes opts
498− then nowrap $ " " <> classOrAttrsToMarkdown attribs
505+ attrs = if isEnabled Ext_fenced_code_attributes opts
506+ then nowrap $ " " <> attrsToMarkdown attribs
499507 else case attribs of
500508 (_,cls:_,_) -> " " <> literal cls
501509 _ -> empty
@@ -791,9 +799,6 @@ blockListToMarkdown opts blocks = do
791799 b1 : commentSep : fixBlocks (b2:bs)
792800 fixBlocks (Plain ils : bs@(RawBlock{}:_)) =
793801 Plain ils : fixBlocks bs
794− fixBlocks (Plain ils : bs@(Div{}:_))
795− | isEnabled Ext_fenced_divs opts =
796− Para ils : fixBlocks bs
797802 fixBlocks (Plain ils : bs) | inlist =
798803 Plain ils : fixBlocks bs
799804 fixBlocks (Plain ils : bs) =
src/Text/Pandoc/Writers/Markdown/Inline.hs+16−34
@@ -11,9 +11,7 @@
1111 Portability : portable
1212-}
1313module Text.Pandoc.Writers.Markdown.Inline (
14− inlineListToMarkdown,
15− linkAttributes,
16− attrsToMarkdown
14+ inlineListToMarkdown
1715 ) where
1816import Control.Monad.Reader
1917import Control.Monad.State.Strict
@@ -45,11 +43,7 @@ import Text.Pandoc.Writers.Markdown.Types (MarkdownVariant(..),
4543-- | Escape special characters for Markdown.
4644escapeText :: WriterOptions -> Text -> Text
4745escapeText opts = T.pack . go . T.unpack
48− where
49− startsWithSpace (' ':_) = True
50− startsWithSpace ('\t':_) = True
51− startsWithSpace [] = True
52− startsWithSpace _ = False
46+ where
5347 go [] = []
5448 go (c:cs) =
5549 case c of
@@ -62,13 +56,10 @@ escapeText opts = T.pack . go . T.unpack
6256 '@' | isEnabled Ext_citations opts ->
6357 case cs of
6458 (d:_)
65− | isAlphaNum d || d == '_' || d == '{'
59+ | isAlphaNum d || d == '_'
6660 -> '\\':'@':go cs
6761 _ -> '@':go cs
68− '#' | isEnabled Ext_space_in_atx_header opts
69− , startsWithSpace cs
70− -> '\\':'#':go cs
71− _ | c `elem` ['\\','`','*','_','[',']'] ->
62+ _ | c `elem` ['\\','`','*','_','[',']','#'] ->
7263 '\\':c:go cs
7364 '|' | isEnabled Ext_pipe_tables opts -> '\\':'|':go cs
7465 '^' | isEnabled Ext_superscript opts -> '\\':'^':go cs
@@ -90,8 +81,6 @@ escapeText opts = T.pack . go . T.unpack
9081 | isEnabled Ext_intraword_underscores opts
9182 , isAlphaNum c
9283 , isAlphaNum x -> c : '_' : x : go xs
93− '#':xs -> c : '#' : go xs
94− '>':xs -> c : '>' : go xs
9584 _ -> c : go cs
9685
9786attrsToMarkdown :: Attr -> Doc Text
@@ -117,7 +106,7 @@ attrsToMarkdown attribs = braces $ hsep [attribId, attribClasses, attribKeys]
117106
118107linkAttributes :: WriterOptions -> Attr -> Doc Text
119108linkAttributes opts attr =
120− if (isEnabled Ext_link_attributes opts || isEnabled Ext_attributes opts) && attr /= nullAttr
109+ if isEnabled Ext_link_attributes opts && attr /= nullAttr
121110 then attrsToMarkdown attr
122111 else empty
123112
@@ -394,15 +383,13 @@ inlineToMarkdown opts (Quoted DoubleQuote lst) = do
394383 then "&ldquo;" <> contents <> "&rdquo;"
395384 else "“" <> contents <> "”"
396385inlineToMarkdown opts (Code attr str) = do
397− let tickGroups = filter (T.any (== '`')) $ T.group str
398− let longest = maybe 0 maximum $ nonEmpty $ map T.length tickGroups
399− let marker = T.replicate (longest + 1) "`"
400− let spacer = if longest == 0 then "" else " "
401− let attrsEnabled = isEnabled Ext_inline_code_attributes opts ||
402− isEnabled Ext_attributes opts
403− let attrs = if attrsEnabled && attr /= nullAttr
404− then attrsToMarkdown attr
405− else empty
386+ let tickGroups = filter (T.any (== '`')) $ T.group str
387+ let longest = maybe 0 maximum $ nonEmpty $ map T.length tickGroups
388+ let marker = T.replicate (longest + 1) "`"
389+ let spacer = if longest == 0 then "" else " "
390+ let attrs = if isEnabled Ext_inline_code_attributes opts && attr /= nullAttr
391+ then attrsToMarkdown attr
392+ else empty
406393 variant <- asks envVariant
407394 case variant of
408395 PlainText -> return $ literal str
@@ -504,16 +491,11 @@ inlineToMarkdown opts (Cite (c:cs) lst)
504491 rest <- mapM convertOne cs
505492 let inbr = suffs <+> joincits rest
506493 br = if isEmpty inbr then empty else char '[' <> inbr <> char ']'
507− return $ literal ("@" <> maybeInBraces (citationId c)) <+> br
494+ return $ literal ("@" <> citationId c) <+> br
508495 else do
509496 cits <- mapM convertOne (c:cs)
510497 return $ literal "[" <> joincits cits <> literal "]"
511498 where
512− maybeInBraces key =
513− case readWith (citeKey False >> spaces >> eof)
514− defaultParserState ("@" <> key) of
515− Left _ -> "{" <> key <> "}"
516− Right _ -> key
517499 joincits = hcat . intersperse (literal "; ") . filter (not . isEmpty)
518500 convertOne Citation { citationId = k
519501 , citationPrefix = pinlines
@@ -522,7 +504,7 @@ inlineToMarkdown opts (Cite (c:cs) lst)
522504 = do
523505 pdoc <- inlineListToMarkdown opts pinlines
524506 sdoc <- inlineListToMarkdown opts sinlines
525− let k' = literal (modekey m <> "@" <> maybeInBraces k)
507+ let k' = literal (modekey m <> "@" <> k)
526508 r = case sinlines of
527509 Str (T.uncons -> Just (y,_)):_ | y `elem` (",;]@" :: String) -> k' <> sdoc
528510 _ -> k' <+> sdoc
@@ -561,7 +543,7 @@ inlineToMarkdown opts lnk@(Link attr txt (src, tit)) = do
561543 else "[" <> reftext <> "]"
562544 in return $ first <> second
563545 | isEnabled Ext_raw_html opts
564− , not (isEnabled Ext_link_attributes opts || isEnabled Ext_attributes opts)
546+ , not (isEnabled Ext_link_attributes opts)
565547 , attr /= nullAttr -> -- use raw HTML to render attributes
566548 literal . T.strip <$>
567549 writeHtml5String opts{ writerTemplate = Nothing }
@@ -571,7 +553,7 @@ inlineToMarkdown opts lnk@(Link attr txt (src, tit)) = do
571553 linkAttributes opts attr
572554inlineToMarkdown opts img@(Image attr alternate (source, tit))
573555 | isEnabled Ext_raw_html opts &&
574− not (isEnabled Ext_link_attributes opts || isEnabled Ext_attributes opts) &&
556+ not (isEnabled Ext_link_attributes opts) &&
575557 attr /= nullAttr = -- use raw HTML
576558 literal . T.strip <$>
577559 writeHtml5String opts{ writerTemplate = Nothing } (Pandoc nullMeta [Plain [img]])
src/Text/Pandoc/Writers/Ms.hs+6−22
@@ -245,17 +245,13 @@ blockToMs opts (Table _ blkCapt specs thead tbody tfoot) =
245245 aligncode AlignDefault = "l"
246246 in do
247247 caption' <- inlineListToMs' opts caption
248− let isSimple = all (== 0) widths
249− let totalWidth = 70
248+ let iwidths = if all (== 0) widths
249+ then repeat ""
250+ else map (T.pack . printf "w(%0.1fn)" . (70 *)) widths
250251 -- 78n default width - 8n indent = 70n
251252 let coldescriptions = literal $ T.unwords
252− (zipWith (\align width -> aligncode align <>
253− if width == 0
254− then ""
255− else T.pack $
256− printf "w(%0.1fn)"
257− (totalWidth * width))
258− alignments widths) <> "."
253+ (zipWith (\align width -> aligncode align <> width)
254+ alignments iwidths) <> "."
259255 colheadings <- mapM (blockListToMs opts) headers
260256 let makeRow cols = literal "T{" $$
261257 vcat (intersperse (literal "T}\tT{") cols) $$
@@ -264,25 +260,13 @@ blockToMs opts (Table _ blkCapt specs thead tbody tfoot) =
264260 then empty
265261 else makeRow colheadings $$ char '_'
266262 body <- mapM (\row -> do
267− cols <- mapM (\(cell, w) ->
268− (if isSimple
269− then id
270− else (literal (".nr LL " <>
271− T.pack (printf "%0.1fn"
272− (w * totalWidth))) $$)) <$>
273− blockListToMs opts cell) (zip row widths)
263+ cols <- mapM (blockListToMs opts) row
274264 return $ makeRow cols) rows
275265 setFirstPara
276266 return $ literal ".PP" $$ caption' $$
277267 literal ".na" $$ -- we don't want justification in table cells
278− (if isSimple
279− then ""
280− else ".nr LLold \\n[LL]") $$
281268 literal ".TS" $$ literal "delim(@@) tab(\t);" $$ coldescriptions $$
282269 colheadings' $$ vcat body $$ literal ".TE" $$
283− (if isSimple
284− then ""
285− else ".nr LL \\n[LLold]") $$
286270 literal ".ad"
287271
288272blockToMs opts (BulletList items) = do
src/Text/Pandoc/Writers/ODT.hs+3−4
@@ -16,7 +16,6 @@ import Codec.Archive.Zip
1616import Control.Monad.Except (catchError, throwError)
1717import Control.Monad.State.Strict
1818import qualified Data.ByteString.Lazy as B
19−import Data.Maybe (fromMaybe)
2019import Data.Generics (everywhere', mkT)
2120import Data.List (isPrefixOf)
2221import qualified Data.Map as Map
@@ -24,7 +23,7 @@ import qualified Data.Text as T
2423import qualified Data.Text.Lazy as TL
2524import Data.Time
2625import System.FilePath (takeDirectory, takeExtension, (<.>))
27−import Text.Collate.Lang (Lang (..), renderLang)
26+import Text.Pandoc.BCP47 (Lang (..), getLang, renderLang)
2827import Text.Pandoc.Class.PandocMonad (PandocMonad, report, toLang)
2928import qualified Text.Pandoc.Class.PandocMonad as P
3029import Text.Pandoc.Definition
@@ -36,7 +35,7 @@ import Text.Pandoc.Options (WrapOption (..), WriterOptions (..))
3635import Text.DocLayout
3736import Text.Pandoc.Shared (stringify, pandocVersion, tshow)
3837import Text.Pandoc.Writers.Shared (lookupMetaString, lookupMetaBlocks,
39− fixDisplayMath, getLang)
38+ fixDisplayMath)
4039import Text.Pandoc.UTF8 (fromStringLazy, fromTextLazy, toTextLazy)
4140import Text.Pandoc.Walk
4241import Text.Pandoc.Writers.OpenDocument (writeOpenDocument)
@@ -195,7 +194,7 @@ addLang lang = everywhere' (mkT updateLangAttr)
195194 where updateLangAttr (Attr n@(QName "language" _ (Just "fo")) _)
196195 = Attr n (langLanguage lang)
197196 updateLangAttr (Attr n@(QName "country" _ (Just "fo")) _)
198− = Attr n (fromMaybe "" $ langRegion lang)
197+ = Attr n (langRegion lang)
199198 updateLangAttr x = x
200199
201200-- | transform both Image and Math elements
src/Text/Pandoc/Writers/OpenDocument.hs+54−50
@@ -1,5 +1,4 @@
11{-# LANGUAGE FlexibleContexts #-}
2−{-# LANGUAGE LambdaCase #-}
32{-# LANGUAGE OverloadedStrings #-}
43{-# LANGUAGE PatternGuards #-}
54{-# LANGUAGE ViewPatterns #-}
@@ -26,7 +25,7 @@ import Data.Ord (comparing)
2625import qualified Data.Set as Set
2726import Data.Text (Text)
2827import qualified Data.Text as T
29−import Text.Collate.Lang (Lang (..), parseLang)
28+import Text.Pandoc.BCP47 (Lang (..), parseBCP47)
3029import Text.Pandoc.Class.PandocMonad (PandocMonad, report, translateTerm,
3130 setTranslations, toLang)
3231import Text.Pandoc.Definition
@@ -237,7 +236,7 @@ handleSpaces s = case T.uncons s of
237236-- | Convert Pandoc document to string in OpenDocument format.
238237writeOpenDocument :: PandocMonad m => WriterOptions -> Pandoc -> m Text
239238writeOpenDocument opts (Pandoc meta blocks) = do
240− let defLang = Lang "en" (Just "US") Nothing [] [] []
239+ let defLang = Lang "en" "US" "" []
241240 lang <- case lookupMetaString "lang" meta of
242241 "" -> pure defLang
243242 s -> fromMaybe defLang <$> toLang (Just s)
@@ -373,32 +372,36 @@ blocksToOpenDocument o b = vcat <$> mapM (blockToOpenDocument o) b
373372
374373-- | Convert a Pandoc block element to OpenDocument.
375374blockToOpenDocument :: PandocMonad m => WriterOptions -> Block -> OD m (Doc Text)
376−blockToOpenDocument o = \case
377− Plain b -> if null b
378− then return empty
379− else inParagraphTags =<< inlinesToOpenDocument o b
380− Para [Image attr c (s,T.stripPrefix "fig:" -> Just t)] -> figure attr c s t
381− Para b -> if null b &&
382− not (isEnabled Ext_empty_paragraphs o)
383− then return empty
384− else inParagraphTags =<< inlinesToOpenDocument o b
385− LineBlock b -> blockToOpenDocument o $ linesToPara b
386− Div attr xs -> mkDiv attr xs
387− Header i (ident,_,_) b -> do
388− setFirstPara
389− inHeaderTags i ident =<< inlinesToOpenDocument o b
390− BlockQuote b -> setFirstPara >> mkBlockQuote b
391− DefinitionList b -> setFirstPara >> defList b
392− BulletList b -> setFirstPara >> bulletListToOpenDocument o b
393− OrderedList a b -> setFirstPara >> orderedList a b
394− CodeBlock _ s -> setFirstPara >> preformatted s
395− Table a bc s th tb tf -> setFirstPara >> table (Ann.toTable a bc s th tb tf)
396− HorizontalRule -> setFirstPara >> return (selfClosingTag "text:p"
397− [ ("text:style-name", "Horizontal_20_Line") ])
398− b@(RawBlock f s) -> if f == Format "opendocument"
399− then return $ text $ T.unpack s
400− else empty <$ report (BlockNotRendered b)
401− Null -> return empty
375+blockToOpenDocument o bs
376+ | Plain b <- bs = if null b
377+ then return empty
378+ else inParagraphTags =<< inlinesToOpenDocument o b
379+ | Para [Image attr c (s,T.stripPrefix "fig:" -> Just t)] <- bs
380+ = figure attr c s t
381+ | Para b <- bs = if null b &&
382+ not (isEnabled Ext_empty_paragraphs o)
383+ then return empty
384+ else inParagraphTags =<< inlinesToOpenDocument o b
385+ | LineBlock b <- bs = blockToOpenDocument o $ linesToPara b
386+ | Div attr xs <- bs = mkDiv attr xs
387+ | Header i (ident,_,_) b
388+ <- bs = setFirstPara >> (inHeaderTags i ident
389+ =<< inlinesToOpenDocument o b)
390+ | BlockQuote b <- bs = setFirstPara >> mkBlockQuote b
391+ | DefinitionList b <- bs = setFirstPara >> defList b
392+ | BulletList b <- bs = setFirstPara >> bulletListToOpenDocument o b
393+ | OrderedList a b <- bs = setFirstPara >> orderedList a b
394+ | CodeBlock _ s <- bs = setFirstPara >> preformatted s
395+ | Table a bc s th tb tf <- bs = setFirstPara >> table (Ann.toTable a bc s th tb tf)
396+ | HorizontalRule <- bs = setFirstPara >> return (selfClosingTag "text:p"
397+ [ ("text:style-name", "Horizontal_20_Line") ])
398+ | RawBlock f s <- bs = if f == Format "opendocument"
399+ then return $ text $ T.unpack s
400+ else do
401+ report $ BlockNotRendered bs
402+ return empty
403+ | Null <- bs = return empty
404+ | otherwise = return empty
402405 where
403406 defList b = do setInDefinitionList True
404407 r <- vcat <$> mapM (deflistItemToOpenDocument o) b
@@ -871,33 +874,34 @@ data TextStyle = Italic
871874textStyleAttr :: Map.Map Text Text
872875 -> TextStyle
873876 -> Map.Map Text Text
874−textStyleAttr m = \case
875− Italic -> Map.insert "fo:font-style" "italic" .
876− Map.insert "style:font-style-asian" "italic" .
877− Map.insert "style:font-style-complex" "italic" $ m
878− Bold -> Map.insert "fo:font-weight" "bold" .
879− Map.insert "style:font-weight-asian" "bold" .
880− Map.insert "style:font-weight-complex" "bold" $ m
881− Under -> Map.insert "style:text-underline-style" "solid" .
882− Map.insert "style:text-underline-width" "auto" .
883− Map.insert "style:text-underline-color" "font-color" $ m
884− Strike -> Map.insert "style:text-line-through-style" "solid" m
885− Sub -> Map.insert "style:text-position" "sub 58%" m
886− Sup -> Map.insert "style:text-position" "super 58%" m
887− SmallC -> Map.insert "fo:font-variant" "small-caps" m
888− Pre -> Map.insert "style:font-name" "Courier New" .
889− Map.insert "style:font-name-asian" "Courier New" .
890− Map.insert "style:font-name-complex" "Courier New" $ m
891− Language lang ->
892− Map.insert "fo:language" (langLanguage lang) .
893− maybe id (Map.insert "fo:country") (langRegion lang) $ m
877+textStyleAttr m s
878+ | Italic <- s = Map.insert "fo:font-style" "italic" .
879+ Map.insert "style:font-style-asian" "italic" .
880+ Map.insert "style:font-style-complex" "italic" $ m
881+ | Bold <- s = Map.insert "fo:font-weight" "bold" .
882+ Map.insert "style:font-weight-asian" "bold" .
883+ Map.insert "style:font-weight-complex" "bold" $ m
884+ | Under <- s = Map.insert "style:text-underline-style" "solid" .
885+ Map.insert "style:text-underline-width" "auto" .
886+ Map.insert "style:text-underline-color" "font-color" $ m
887+ | Strike <- s = Map.insert "style:text-line-through-style" "solid" m
888+ | Sub <- s = Map.insert "style:text-position" "sub 58%" m
889+ | Sup <- s = Map.insert "style:text-position" "super 58%" m
890+ | SmallC <- s = Map.insert "fo:font-variant" "small-caps" m
891+ | Pre <- s = Map.insert "style:font-name" "Courier New" .
892+ Map.insert "style:font-name-asian" "Courier New" .
893+ Map.insert "style:font-name-complex" "Courier New" $ m
894+ | Language lang <- s
895+ = Map.insert "fo:language" (langLanguage lang) .
896+ Map.insert "fo:country" (langRegion lang) $ m
897+ | otherwise = m
894898
895899withLangFromAttr :: PandocMonad m => Attr -> OD m a -> OD m a
896900withLangFromAttr (_,_,kvs) action =
897901 case lookup "lang" kvs of
898902 Nothing -> action
899903 Just l ->
900− case parseLang l of
904+ case parseBCP47 l of
901905 Right lang -> withTextStyle (Language lang) action
902906 Left _ -> do
903907 report $ InvalidLang l
src/Text/Pandoc/Writers/Org.hs+8−13
@@ -84,15 +84,12 @@ noteToOrg num note = do
8484
8585-- | Escape special characters for Org.
8686escapeString :: Text -> Text
87−escapeString t
88− | T.all (\c -> c < '\x2013' || c > '\x2026') t = t
89− | otherwise = T.concatMap escChar t
90− where
91− escChar '\x2013' = "--"
92− escChar '\x2014' = "---"
93− escChar '\x2019' = "'"
94− escChar '\x2026' = "..."
95− escChar c = T.singleton c
87+escapeString = escapeStringUsing
88+ [ ('\x2014',"---")
89+ , ('\x2013',"--")
90+ , ('\x2019',"'")
91+ , ('\x2026',"...")
92+ ]
9693
9794isRawFormat :: Format -> Bool
9895isRawFormat f =
@@ -404,11 +401,9 @@ inlineToOrg (Str str) = return . literal $ escapeString str
404401inlineToOrg (Math t str) = do
405402 modify $ \st -> st{ stHasMath = True }
406403 return $ if t == InlineMath
407− then "\\(" <> literal str <> "\\)"
408− else "\\[" <> literal str <> "\\]"
404+ then "$" <> literal str <> "$"
405+ else "$$" <> literal str <> "$$"
409406inlineToOrg il@(RawInline f str)
410− | elem f ["tex", "latex"] && T.isPrefixOf "\\begin" str =
411− return $ cr <> literal str <> cr
412407 | isRawFormat f = return $ literal str
413408 | otherwise = do
414409 report $ InlineNotRendered il
src/Text/Pandoc/Writers/Powerpoint.hs+1−1
@@ -39,5 +39,5 @@ writePowerpoint opts (Pandoc meta blks) = do
3939 let blks' = walk fixDisplayMath blks
4040 let (pres, logMsgs) = documentToPresentation opts (Pandoc meta blks')
4141 mapM_ report logMsgs
42− archv <- presentationToArchive opts meta pres
42+ archv <- presentationToArchive opts pres
4343 return $ fromArchive archv
src/Text/Pandoc/Writers/Powerpoint/Output.hs+5−19
@@ -38,19 +38,17 @@ import qualified Text.Pandoc.Class.PandocMonad as P
3838import Text.Pandoc.Options
3939import Text.Pandoc.MIME
4040import qualified Data.ByteString.Lazy as BL
41−import Text.Pandoc.Writers.Shared (metaToContext)
4241import Text.Pandoc.Writers.OOXML
4342import qualified Data.Map as M
4443import Data.Maybe (mapMaybe, listToMaybe, fromMaybe, maybeToList, catMaybes, isJust)
4544import Text.Pandoc.ImageSize
4645import Control.Applicative ((<|>))
4746import System.FilePath.Glob
48−import Text.DocTemplates (FromContext(lookupContext), Context)
49−import Text.DocLayout (literal)
47+import Text.DocTemplates (FromContext(lookupContext))
5048import Text.TeXMath
5149import Text.Pandoc.Writers.Math (convertMath)
5250import Text.Pandoc.Writers.Powerpoint.Presentation
53−import Text.Pandoc.Shared (tshow, stringify)
51+import Text.Pandoc.Shared (tshow)
5452import Skylighting (fromColor)
5553import Data.List.NonEmpty (nonEmpty)
5654
@@ -99,7 +97,6 @@ data WriterEnv = WriterEnv { envRefArchive :: Archive
9997 , envDistArchive :: Archive
10098 , envUTCTime :: UTCTime
10199 , envOpts :: WriterOptions
102− , envContext :: Context Text
103100 , envPresentationSize :: (Integer, Integer)
104101 , envSlideHasHeader :: Bool
105102 , envInList :: Bool
@@ -125,7 +122,6 @@ instance Default WriterEnv where
125122 , envDistArchive = emptyArchive
126123 , envUTCTime = posixSecondsToUTCTime 0
127124 , envOpts = def
128− , envContext = mempty
129125 , envPresentationSize = (720, 540)
130126 , envSlideHasHeader = False
131127 , envInList = False
@@ -172,7 +168,7 @@ runP env st p = evalStateT (runReaderT p env) st
172168
173169monospaceFont :: Monad m => P m T.Text
174170monospaceFont = do
175− vars <- asks envContext
171+ vars <- writerVariables <$> asks envOpts
176172 case lookupContext "monofont" vars of
177173 Just s -> return s
178174 Nothing -> return "Courier"
@@ -308,9 +304,8 @@ makeSpeakerNotesMap (Presentation _ slides) =
308304 then Nothing
309305 else Just n
310306
311−presentationToArchive :: PandocMonad m
312− => WriterOptions -> Meta -> Presentation -> m Archive
313−presentationToArchive opts meta pres = do
307+presentationToArchive :: PandocMonad m => WriterOptions -> Presentation -> m Archive
308+presentationToArchive opts pres = do
314309 distArchive <- toArchive . BL.fromStrict <$>
315310 P.readDefaultDataFile "reference.pptx"
316311 refArchive <- case writerReferenceDoc opts of
@@ -326,18 +321,10 @@ presentationToArchive opts meta pres = do
326321 PandocSomeError
327322 "Could not determine presentation size"
328323
329− -- note, we need writerTemplate to be Just _ or metaToContext does
330− -- nothing
331− context <- metaToContext opts{ writerTemplate =
332− writerTemplate opts <|> Just mempty }
333− (return . literal . stringify)
334− (return . literal . stringify) meta
335−
336324 let env = def { envRefArchive = refArchive
337325 , envDistArchive = distArchive
338326 , envUTCTime = utctime
339327 , envOpts = opts
340− , envContext = context
341328 , envPresentationSize = presSize
342329 , envSlideIdMap = makeSlideIdMap pres
343330 , envSpeakerNotesIdMap = makeSpeakerNotesMap pres
@@ -537,7 +524,6 @@ registerMedia fp caption = do
537524 Just Eps -> Just ".eps"
538525 Just Svg -> Just ".svg"
539526 Just Emf -> Just ".emf"
540− Just Tiff -> Just ".tiff"
541527 Nothing -> Nothing
542528
543529 let newGlobalId = fromMaybe (maxGlobalId + 1) (M.lookup fp globalIds)
src/Text/Pandoc/Writers/RST.hs+8−12
@@ -17,7 +17,7 @@ module Text.Pandoc.Writers.RST ( writeRST, flatten ) where
1717import Control.Monad.State.Strict
1818import Data.Char (isSpace)
1919import Data.List (transpose, intersperse, foldl')
20−import qualified Data.List.NonEmpty as NE
20+import Data.List.NonEmpty (nonEmpty)
2121import Data.Maybe (fromMaybe)
2222import qualified Data.Text as T
2323import Data.Text (Text)
@@ -336,7 +336,7 @@ blockToRST (OrderedList (start, style', delim) items) = do
336336 then replicate (length items) "#."
337337 else take (length items) $ orderedListMarkers
338338 (start, style', delim)
339− let maxMarkerLength = maybe 0 maximum $ NE.nonEmpty $ map T.length markers
339+ let maxMarkerLength = maybe 0 maximum $ nonEmpty $ map T.length markers
340340 let markers' = map (\m -> let s = maxMarkerLength - T.length m
341341 in m <> T.replicate s " ") markers
342342 contents <- zipWithM orderedListItemToRST markers' items
@@ -538,15 +538,11 @@ flatten outer
538538 collapse f i = appendToLast f $ dropInlineParent i
539539
540540 appendToLast :: [Inline] -> [Inline] -> [Inline]
541− appendToLast flattened toAppend =
542− case NE.nonEmpty flattened of
543− Nothing -> [setInlineChildren outer toAppend]
544− Just xs ->
545− if isOuter lastFlat
546− then NE.init xs <> [appendTo lastFlat toAppend]
547− else flattened <> [setInlineChildren outer toAppend]
548− where
549− lastFlat = NE.last xs
541+ appendToLast [] toAppend = [setInlineChildren outer toAppend]
542+ appendToLast flattened toAppend
543+ | isOuter lastFlat = init flattened <> [appendTo lastFlat toAppend]
544+ | otherwise = flattened <> [setInlineChildren outer toAppend]
545+ where lastFlat = last flattened
550546 appendTo o i = mapNested (<> i) o
551547 isOuter i = emptyParent i == emptyParent outer
552548 emptyParent i = setInlineChildren i []
@@ -766,7 +762,7 @@ simpleTable opts blocksToDoc headers rows = do
766762 then return []
767763 else fixEmpties <$> mapM (blocksToDoc opts) headers
768764 rowDocs <- mapM (fmap fixEmpties . mapM (blocksToDoc opts)) rows
769− let numChars = maybe 0 maximum . NE.nonEmpty . map offset
765+ let numChars = maybe 0 maximum . nonEmpty . map offset
770766 let colWidths = map numChars $ transpose (headerDocs : rowDocs)
771767 let toRow = mconcat . intersperse (lblock 1 " ") . zipWith lblock colWidths
772768 let hline = nowrap $ hsep (map (\n -> literal (T.replicate n "=")) colWidths)
src/Text/Pandoc/Writers/RTF.hs+10−16
@@ -16,7 +16,7 @@ module Text.Pandoc.Writers.RTF ( writeRTF
1616import Control.Monad.Except (catchError, throwError)
1717import Control.Monad
1818import qualified Data.ByteString as B
19−import Data.Char (chr, isDigit, ord, isAlphaNum)
19+import Data.Char (chr, isDigit, ord)
2020import qualified Data.Map as M
2121import Data.Text (Text)
2222import qualified Data.Text as T
@@ -137,21 +137,15 @@ handleUnicode = T.concatMap $ \c ->
137137
138138-- | Escape special characters.
139139escapeSpecial :: Text -> Text
140−escapeSpecial t
141− | T.all isAlphaNum t = t
142− | otherwise = T.concatMap escChar t
143− where
144− escChar '\t' = "\\tab "
145− escChar '\8216' = "\\u8216'"
146− escChar '\8217' = "\\u8217'"
147− escChar '\8220' = "\\u8220\""
148− escChar '\8221' = "\\u8221\""
149− escChar '\8211' = "\\u8211-"
150− escChar '\8212' = "\\u8212-"
151− escChar '{' = "\\{"
152− escChar '}' = "\\}"
153− escChar '\\' = "\\\\"
154− escChar c = T.singleton c
140+escapeSpecial = escapeStringUsing $
141+ [ ('\t',"\\tab ")
142+ , ('\8216',"\\u8216'")
143+ , ('\8217',"\\u8217'")
144+ , ('\8220',"\\u8220\"")
145+ , ('\8221',"\\u8221\"")
146+ , ('\8211',"\\u8211-")
147+ , ('\8212',"\\u8212-")
148+ ] <> backslashEscapes "{\\}"
155149
156150-- | Escape strings as needed for rich text format.
157151stringToRTF :: Text -> Text
src/Text/Pandoc/Writers/Shared.hs−15
@@ -20,7 +20,6 @@ module Text.Pandoc.Writers.Shared (
2020 , setField
2121 , resetField
2222 , defField
23− , getLang
2423 , tagWithAttrs
2524 , isDisplayMath
2625 , fixDisplayMath
@@ -148,19 +147,6 @@ defField field val (Context m) =
148147 where
149148 f _newval oldval = oldval
150149
151−-- | Get the contents of the `lang` metadata field or variable.
152−getLang :: WriterOptions -> Meta -> Maybe T.Text
153−getLang opts meta =
154− case lookupContext "lang" (writerVariables opts) of
155− Just s -> Just s
156− _ ->
157− case lookupMeta "lang" meta of
158− Just (MetaBlocks [Para [Str s]]) -> Just s
159− Just (MetaBlocks [Plain [Str s]]) -> Just s
160− Just (MetaInlines [Str s]) -> Just s
161− Just (MetaString s) -> Just s
162− _ -> Nothing
163−
164150-- | Produce an HTML tag with the given pandoc attributes.
165151tagWithAttrs :: HasChars a => T.Text -> Attr -> Doc a
166152tagWithAttrs tag (ident,classes,kvs) = hsep
@@ -394,7 +380,6 @@ toSuperscript '2' = Just '\x00B2'
394380toSuperscript '3' = Just '\x00B3'
395381toSuperscript '+' = Just '\x207A'
396382toSuperscript '-' = Just '\x207B'
397−toSuperscript '\x2212' = Just '\x207B' -- unicode minus
398383toSuperscript '=' = Just '\x207C'
399384toSuperscript '(' = Just '\x207D'
400385toSuperscript ')' = Just '\x207E'
src/Text/Pandoc/Writers/TEI.hs+3−4
@@ -146,17 +146,16 @@ blockToTEI opts (LineBlock lns) =
146146 blockToTEI opts $ linesToPara lns
147147blockToTEI opts (BlockQuote blocks) =
148148 inTagsIndented "quote" <$> blocksToTEI opts blocks
149−blockToTEI opts (CodeBlock (_,classes,_) str) =
149+blockToTEI _ (CodeBlock (_,classes,_) str) =
150150 return $ literal ("<ab type='codeblock " <> lang <> "'>") <> cr <>
151151 flush (literal (escapeStringForXML str) <> cr <> text "</ab>")
152152 where lang = if null langs
153153 then ""
154154 else escapeStringForXML (head langs)
155− syntaxMap = writerSyntaxMap opts
156− isLang l = T.toLower l `elem` map T.toLower (languages syntaxMap)
155+ isLang l = T.toLower l `elem` map T.toLower languages
157156 langsFrom s = if isLang s
158157 then [s]
159− else (languagesByExtension syntaxMap) . T.toLower $ s
158+ else languagesByExtension . T.toLower $ s
160159 langs = concatMap langsFrom classes
161160blockToTEI opts (BulletList lst) = do
162161 let attribs = [("type", "unordered")]
src/Text/Pandoc/Writers/Texinfo.hs+11−13
@@ -14,7 +14,7 @@ Conversion of 'Pandoc' format into Texinfo.
1414module Text.Pandoc.Writers.Texinfo ( writeTexinfo ) where
1515import Control.Monad.Except (throwError)
1616import Control.Monad.State.Strict
17−import Data.Char (chr, ord, isAlphaNum)
17+import Data.Char (chr, ord)
1818import Data.List (maximumBy, transpose, foldl')
1919import Data.List.NonEmpty (nonEmpty)
2020import Data.Ord (comparing)
@@ -85,18 +85,16 @@ pandocToTexinfo options (Pandoc meta blocks) = do
8585
8686-- | Escape things as needed for Texinfo.
8787stringToTexinfo :: Text -> Text
88−stringToTexinfo t
89− | T.all isAlphaNum t = t
90− | otherwise = T.concatMap escChar t
91− where escChar '{' = "@{"
92− escChar '}' = "@}"
93− escChar '@' = "@@"
94− escChar '\160' = "@ "
95− escChar '\x2014' = "---"
96− escChar '\x2013' = "--"
97− escChar '\x2026' = "@dots{}"
98− escChar '\x2019' = "'"
99− escChar c = T.singleton c
88+stringToTexinfo = escapeStringUsing texinfoEscapes
89+ where texinfoEscapes = [ ('{', "@{")
90+ , ('}', "@}")
91+ , ('@', "@@")
92+ , ('\160', "@ ")
93+ , ('\x2014', "---")
94+ , ('\x2013', "--")
95+ , ('\x2026', "@dots{}")
96+ , ('\x2019', "'")
97+ ]
10098
10199escapeCommas :: PandocMonad m => TI m (Doc Text) -> TI m (Doc Text)
102100escapeCommas parser = do
src/Text/Pandoc/Writers/ZimWiki.hs+1−1
@@ -116,7 +116,7 @@ blockToZimWiki opts b@(RawBlock f str)
116116blockToZimWiki _ HorizontalRule = return "\n----\n"
117117
118118blockToZimWiki opts (Header level _ inlines) = do
119− contents <- inlineListToZimWiki opts inlines
119+ contents <- inlineListToZimWiki opts $ removeFormatting inlines -- emphasis, links etc. not allowed in headers
120120 let eqs = T.replicate ( 7 - level ) "="
121121 return $ eqs <> " " <> contents <> " " <> eqs <> "\n"
122122
src/Text/Pandoc/XML.hs+2−28
@@ -13,7 +13,6 @@ Functions for escaping and formatting XML.
1313-}
1414module Text.Pandoc.XML ( escapeCharForXML,
1515 escapeStringForXML,
16− escapeNCName,
1716 inTags,
1817 selfClosingTag,
1918 inTagsSimple,
@@ -25,7 +24,7 @@ module Text.Pandoc.XML ( escapeCharForXML,
2524 html5Attributes,
2625 rdfaAttributes ) where
2726
28−import Data.Char (isAscii, isSpace, ord, isLetter, isDigit)
27+import Data.Char (isAscii, isSpace, ord)
2928import Data.Text (Text)
3029import qualified Data.Text as T
3130import Text.HTML.TagSoup.Entity (lookupEntity, htmlEntities)
@@ -120,33 +119,8 @@ html5EntityMap = foldr go mempty htmlEntities
120119 where ent' = T.takeWhile (/=';') (T.pack ent)
121120 _ -> entmap
122121
123−-- | Converts a string into an NCName, i.e., an XML name without colons.
124−-- Disallowed characters are escaped using @ux%x@, where @%x@ is the
125−-- hexadecimal unicode identifier of the escaped character.
126−escapeNCName :: Text -> Text
127−escapeNCName t = case T.uncons t of
128− Nothing -> T.empty
129− Just (c, cs) -> escapeStartChar c <> T.concatMap escapeNCNameChar cs
130− where
131− escapeStartChar :: Char -> Text
132− escapeStartChar c = if isLetter c || c == '_'
133− then T.singleton c
134− else escapeChar c
135122
136− escapeNCNameChar :: Char -> Text
137− escapeNCNameChar c = if isNCNameChar c
138− then T.singleton c
139− else escapeChar c
140−
141− isNCNameChar :: Char -> Bool
142− isNCNameChar c = isLetter c || c `elem` ("_-.·" :: String) || isDigit c
143− || '\x0300' <= c && c <= '\x036f'
144− || '\x203f' <= c && c <= '\x2040'
145−
146− escapeChar :: Char -> Text
147− escapeChar = T.pack . printf "U%04X" . ord
148−
149−-- | Unescapes XML entities
123+-- Unescapes XML entities
150124fromEntities :: Text -> Text
151125fromEntities t
152126 = let (x, y) = T.break (== '&') t
src/Text/Pandoc/XML/Light/Types.hs+4−4
@@ -53,7 +53,7 @@ type Line = Integer
5353data Content = Elem Element
5454 | Text CData
5555 | CRef Text
56− deriving (Show, Typeable, Data, Ord, Eq)
56+ deriving (Show, Typeable, Data)
5757
5858-- | XML elements
5959data Element = Element {
@@ -61,7 +61,7 @@ data Element = Element {
6161 elAttribs :: [Attr],
6262 elContent :: [Content],
6363 elLine :: Maybe Line
64− } deriving (Show, Typeable, Data, Ord, Eq)
64+ } deriving (Show, Typeable, Data)
6565
6666-- | XML attributes
6767data Attr = Attr {
@@ -74,13 +74,13 @@ data CData = CData {
7474 cdVerbatim :: CDataKind,
7575 cdData :: Text,
7676 cdLine :: Maybe Line
77− } deriving (Show, Typeable, Data, Ord, Eq)
77+ } deriving (Show, Typeable, Data)
7878
7979data CDataKind
8080 = CDataText -- ^ Ordinary character data; pretty printer escapes &, < etc.
8181 | CDataVerbatim -- ^ Unescaped character data; pretty printer embeds it in <![CDATA[..
8282 | CDataRaw -- ^ As-is character data; pretty printer passes it along without any escaping or CDATA wrap-up.
83− deriving ( Eq, Ord, Show, Typeable, Data )
83+ deriving ( Eq, Show, Typeable, Data )
8484
8585-- | XML qualified names
8686data QName = QName {
stack.yaml+10−9
@@ -7,16 +7,17 @@ flags:
77packages:
88- '.'
99extra-deps:
10−- commonmark-0.2.1
11−- commonmark-pandoc-0.2.1.1
12−- skylighting-core-0.10.5.2
13−- skylighting-0.10.5.2
14−- git: https://github.com/jgm/doctemplates
15− commit: 428c26d5303cf7a2b1051fe1ffd9aafe9ba71c81
16−- git: https://github.com/jgm/citeproc
17− commit: 4ce0501cd6f9c86eee087afcf878c256e49b9615
10+- hslua-1.3.0
11+- hslua-module-path-0.1.0
12+- jira-wiki-markup-1.3.4
13+- skylighting-core-0.10.5
14+- skylighting-0.10.5
15+- doclayout-0.3.0.2
16+- citeproc-0.3.0.9
17+- texmath-0.12.2
18+- random-1.2.0
1819ghc-options:
1920 "$locals": -fhide-source-paths -Wno-missing-home-modules
20−resolver: lts-18.0
21+resolver: lts-17.5
2122nix:
2223 packages: [zlib]
test/Tests/Command.hs+1−4
@@ -130,7 +130,4 @@ extractCommandTest testExePath fp = unsafePerformIO $ do
130130 def{ readerExtensions = pandocExtensions } contents)
131131 let codeblocks = map extractCode $ filter isCodeBlock blocks
132132 let cases = zipWith (runCommandTest testExePath fp) [1..] codeblocks
133− return $ testGroup fp
134− $ if null cases
135− then [testCase "!!" $ assertFailure "No command tests defined"]
136− else cases
133+ return $ testGroup fp cases
test/Tests/Readers/Docx.hs+5−25
@@ -24,7 +24,7 @@ import Test.Tasty.HUnit
2424import Tests.Helpers
2525import Text.Pandoc
2626import qualified Text.Pandoc.Class as P
27−import qualified Text.Pandoc.MediaBag as MB
27+import Text.Pandoc.MediaBag (MediaBag, lookupMedia, mediaDirectory)
2828import Text.Pandoc.UTF8 as UTF8
2929
3030-- We define a wrapper around pandoc that doesn't normalize in the
@@ -91,11 +91,11 @@ getMedia :: FilePath -> FilePath -> IO (Maybe B.ByteString)
9191getMedia archivePath mediaPath = fmap fromEntry . findEntryByPath
9292 ("word/" ++ mediaPath) . toArchive <$> B.readFile archivePath
9393
94−compareMediaPathIO :: FilePath -> MB.MediaBag -> FilePath -> IO Bool
94+compareMediaPathIO :: FilePath -> MediaBag -> FilePath -> IO Bool
9595compareMediaPathIO mediaPath mediaBag docxPath = do
9696 docxMedia <- getMedia docxPath mediaPath
97− let mbBS = case MB.lookupMedia mediaPath mediaBag of
98− Just item -> MB.mediaContents item
97+ let mbBS = case lookupMedia mediaPath mediaBag of
98+ Just (_, bs) -> bs
9999 Nothing -> error ("couldn't find " ++
100100 mediaPath ++
101101 " in media bag")
@@ -110,7 +110,7 @@ compareMediaBagIO docxFile = do
110110 mb <- runIOorExplode $ readDocx defopts df >> P.getMediaBag
111111 bools <- mapM
112112 (\(fp, _, _) -> compareMediaPathIO fp mb docxFile)
113− (MB.mediaDirectory mb)
113+ (mediaDirectory mb)
114114 return $ and bools
115115
116116testMediaBagIO :: String -> FilePath -> IO TestTree
@@ -155,10 +155,6 @@ tests = [ testGroup "document"
155155 "VML image"
156156 "docx/image_vml.docx"
157157 "docx/image_vml.native"
158− , testCompare
159− "VML image as object"
160− "docx/image_vml_as_object.docx"
161− "docx/image_vml_as_object.native"
162158 , testCompare
163159 "inline image in links"
164160 "docx/inline_images.docx"
@@ -317,30 +313,14 @@ tests = [ testGroup "document"
317313 "tables with lists in cells"
318314 "docx/table_with_list_cell.docx"
319315 "docx/table_with_list_cell.native"
320− , testCompare
321− "a table with a header which contains rowspans greater than 1"
322− "docx/table_header_rowspan.docx"
323− "docx/table_header_rowspan.native"
324316 , testCompare
325317 "tables with one row"
326318 "docx/table_one_row.docx"
327319 "docx/table_one_row.native"
328− , testCompare
329− "tables with just one row, which is a header"
330− "docx/table_one_header_row.docx"
331− "docx/table_one_header_row.native"
332320 , testCompare
333321 "tables with variable width"
334322 "docx/table_variable_width.docx"
335323 "docx/table_variable_width.native"
336− , testCompare
337− "tables with captions which contain a Table field"
338− "docx/table_captions_with_field.docx"
339− "docx/table_captions_with_field.native"
340− , testCompare
341− "tables with captions which don't contain a Table field"
342− "docx/table_captions_no_field.docx"
343− "docx/table_captions_no_field.native"
344324 , testCompare
345325 "code block"
346326 "docx/codeblock.docx"
test/Tests/Readers/EPUB.hs+1−1
@@ -47,7 +47,7 @@ featuresBag = [("img/check.gif","image/gif",1340)
4747
4848-- with additional meta tag for cover in EPUB2 format
4949epub3CoverBag :: [(String, String, Int)]
50−epub3CoverBag = [("wasteland-cover.jpg","image/jpeg", 16586)]
50+epub3CoverBag = [("wasteland-cover.jpg","image/jpeg",103477)]
5151
5252epub3NoCoverBag :: [(String, String, Int)]
5353epub3NoCoverBag = [("img/check.gif","image/gif",1340)
test/Tests/Readers/HTML.hs+5−20
@@ -99,26 +99,11 @@ tests = [ testGroup "base tag"
9999 plain (codeWith ("",["sample"],[]) "Answer is 42")
100100 ]
101101 , testGroup "var"
102− [ test html "inline var block" $
103− "<var>result</var>" =?>
104− plain (codeWith ("",["variable"],[]) "result")
105− ]
106− , testGroup "header"
107− [ test htmlNativeDivs "<header> is parsed as a div" $
108− "<header id=\"title\">Title</header>" =?>
109− divWith ("title", mempty, mempty) (plain "Title")
110− ]
111− , testGroup "code block"
112− [ test html "attributes in pre > code element" $
113− "<pre><code id=\"a\" class=\"python\">\nprint('hi')\n</code></pre>"
114− =?>
115− codeBlockWith ("a", ["python"], []) "print('hi')"
116−
117− , test html "attributes in pre take precendence" $
118− "<pre id=\"c\"><code id=\"d\">\nprint('hi mom!')\n</code></pre>"
119− =?>
120− codeBlockWith ("c", [], []) "print('hi mom!')"
121− ]
102+ [
103+ test html "inline var block" $
104+ "<var>result</var>" =?>
105+ plain (codeWith ("",["variable"],[]) "result")
106+ ]
122107 , askOption $ \(QuickCheckTests numtests) ->
123108 testProperty "Round trip" $
124109 withMaxSuccess (if QuickCheckTests numtests == defaultValue
test/Tests/Readers/Jira.hs−8
@@ -167,14 +167,6 @@ tests =
167167 , "user with description" =:
168168 "[John Doe|~johndoe]" =?>
169169 para (linkWith ("", ["user-account"], []) "~johndoe" "" "John Doe")
170−
171− , "'smart' link" =:
172− "[x|http://example.com|smart-link]" =?>
173− para (linkWith ("", ["smart-link"], []) "http://example.com" "" "x")
174−
175− , "'smart' card" =:
176− "[x|http://example.com|smart-card]" =?>
177− para (linkWith ("", ["smart-card"], []) "http://example.com" "" "x")
178170 ]
179171
180172 , "image" =:
test/Tests/Readers/Markdown.hs+3−3
@@ -358,7 +358,7 @@ tests = [ testGroup "inline code"
358358 para (text "The value of the " <> math "x" <> text "\8217s and the systems\8217 condition.")
359359 , test markdownSmart "unclosed double quote"
360360 ("**this should \"be bold**"
361− =?> para (strong "this should \8220be bold"))
361+ =?> para (strong "this should \"be bold"))
362362 ]
363363 , testGroup "footnotes"
364364 [ "indent followed by newline and flush-left text" =:
@@ -374,8 +374,8 @@ tests = [ testGroup "inline code"
374374 , testGroup "lhs"
375375 [ test (purely $ readMarkdown def{ readerExtensions = enableExtension
376376 Ext_literate_haskell pandocExtensions })
377− "inverse bird tracks and html"
378− $ ("> a\n\n< b\n\n<div>\n" :: Text)
377+ "inverse bird tracks and html" $
378+ "> a\n\n< b\n\n<div>\n"
379379 =?> codeBlockWith ("",["haskell","literate"],[]) "a"
380380 <>
381381 codeBlockWith ("",["haskell"],[]) "b"
test/Tests/Readers/Odt.hs−1
@@ -176,7 +176,6 @@ namesOfTestsComparingToNative = [ "blockquote"
176176 , "referenceToText"
177177 , "simpleTable"
178178 , "simpleTableWithCaption"
179− , "tab"
180179-- , "table"
181180 , "textMixedStyles"
182181 , "tableWithContents"
test/Tests/Writers/ConTeXt.hs+113−122
@@ -39,125 +39,116 @@ infix 4 =:
3939(=:) = test context
4040
4141tests :: [TestTree]
42−tests =
43− [ testGroup "inline code"
44− [ "with '}'" =: code "}" =?> "\\mono{\\}}"
45− , "without '}'" =: code "]" =?> "\\type{]}"
46− , "span with ID" =:
47− spanWith ("city", [], []) "Berlin" =?>
48− "\\reference[city]{}Berlin"
49− , testProperty "code property" $ \s -> null s || '\n' `elem` s ||
50− if '{' `elem` s || '}' `elem` s
51− then context' (code $ pack s) == "\\mono{" ++
52− context' (str $ pack s) ++ "}"
53− else context' (code $ pack s) == "\\type{" ++ s ++ "}"
54− ]
55− , testGroup "headers"
56− [ "level 1" =:
57− headerWith ("my-header",[],[]) 1 "My header" =?>
58− "\\section[title={My header},reference={my-header}]"
59− , test contextDiv "section-divs" $
60− ( headerWith ("header1", [], []) 1 (text "Header1")
61− <> headerWith ("header2", [], []) 2 (text "Header2")
62− <> headerWith ("header3", [], []) 3 (text "Header3")
63− <> headerWith ("header4", [], []) 4 (text "Header4")
64− <> headerWith ("header5", [], []) 5 (text "Header5")
65− <> headerWith ("header6", [], []) 6 (text "Header6"))
66− =?>
67− unlines
68− [ "\\startsection[title={Header1},reference={header1}]\n"
69− , "\\startsubsection[title={Header2},reference={header2}]\n"
70− , "\\startsubsubsection[title={Header3},reference={header3}]\n"
71− , "\\startsubsubsubsection[title={Header4},reference={header4}]\n"
72− , "\\startsubsubsubsubsection[title={Header5},reference={header5}]\n"
73− , "\\startsubsubsubsubsubsection[title={Header6},reference={header6}]\n"
74− , "\\stopsubsubsubsubsubsection\n"
75− , "\\stopsubsubsubsubsection\n"
76− , "\\stopsubsubsubsection\n"
77− , "\\stopsubsubsection\n"
78− , "\\stopsubsection\n"
79− , "\\stopsection" ]
80− ]
81− , testGroup "bullet lists"
82− [ "nested" =:
83− bulletList [
84− plain (text "top")
85− <> bulletList [
86− plain (text "next")
87− <> bulletList [plain (text "bot")]
88− ]
89− ] =?> unlines
90− [ "\\startitemize[packed]"
91− , "\\item"
92− , " top"
93− , " \\startitemize[packed]"
94− , " \\item"
95− , " next"
96− , " \\startitemize[packed]"
97− , " \\item"
98− , " bot"
99− , " \\stopitemize"
100− , " \\stopitemize"
101− , "\\stopitemize" ]
102− ]
103− , testGroup "natural tables"
104− [ test contextNtb "table with header and caption" $
105− let capt = text "Table 1"
106− aligns = [ (AlignRight, ColWidthDefault)
107− , (AlignLeft, ColWidthDefault)
108− , (AlignCenter, ColWidthDefault)
109− , (AlignDefault, ColWidthDefault) ]
110− headers = [plain $ text "Right",
111− plain $ text "Left",
112− plain $ text "Center",
113− plain $ text "Default"]
114− rows = [[plain $ text "1.1",
115− plain $ text "1.2",
116− plain $ text "1.3",
117− plain $ text "1.4"]
118− ,[plain $ text "2.1",
119− plain $ text "2.2",
120− plain $ text "2.3",
121− plain $ text "2.4"]
122− ,[plain $ text "3.1",
123− plain $ text "3.2",
124− plain $ text "3.3",
125− plain $ text "3.4"]]
126− toRow = Row nullAttr . map simpleCell
127− in table (simpleCaption $ plain capt)
128− aligns
129− (TableHead nullAttr [toRow headers])
130− [TableBody nullAttr 0 [] $ map toRow rows]
131− (TableFoot nullAttr [])
132− =?> unlines [ "\\startplacetable[title={Table 1}]"
133− , "\\startTABLE"
134− , "\\startTABLEhead"
135− , "\\NC[align=left] Right"
136− , "\\NC[align=right] Left"
137− , "\\NC[align=middle] Center"
138− , "\\NC Default"
139− , "\\NC\\NR"
140− , "\\stopTABLEhead"
141− , "\\startTABLEbody"
142− , "\\NC[align=left] 1.1"
143− , "\\NC[align=right] 1.2"
144− , "\\NC[align=middle] 1.3"
145− , "\\NC 1.4"
146− , "\\NC\\NR"
147− , "\\NC[align=left] 2.1"
148− , "\\NC[align=right] 2.2"
149− , "\\NC[align=middle] 2.3"
150− , "\\NC 2.4"
151− , "\\NC\\NR"
152− , "\\stopTABLEbody"
153− , "\\startTABLEfoot"
154− , "\\NC[align=left] 3.1"
155− , "\\NC[align=right] 3.2"
156− , "\\NC[align=middle] 3.3"
157− , "\\NC 3.4"
158− , "\\NC\\NR"
159− , "\\stopTABLEfoot"
160− , "\\stopTABLE"
161− , "\\stopplacetable" ]
162− ]
163− ]
42+tests = [ testGroup "inline code"
43+ [ "with '}'" =: code "}" =?> "\\mono{\\}}"
44+ , "without '}'" =: code "]" =?> "\\type{]}"
45+ , testProperty "code property" $ \s -> null s || '\n' `elem` s ||
46+ if '{' `elem` s || '}' `elem` s
47+ then context' (code $ pack s) == "\\mono{" ++
48+ context' (str $ pack s) ++ "}"
49+ else context' (code $ pack s) == "\\type{" ++ s ++ "}"
50+ ]
51+ , testGroup "headers"
52+ [ "level 1" =:
53+ headerWith ("my-header",[],[]) 1 "My header" =?> "\\section[title={My header},reference={my-header}]"
54+ , test contextDiv "section-divs" $
55+ ( headerWith ("header1", [], []) 1 (text "Header1")
56+ <> headerWith ("header2", [], []) 2 (text "Header2")
57+ <> headerWith ("header3", [], []) 3 (text "Header3")
58+ <> headerWith ("header4", [], []) 4 (text "Header4")
59+ <> headerWith ("header5", [], []) 5 (text "Header5")
60+ <> headerWith ("header6", [], []) 6 (text "Header6"))
61+ =?>
62+ unlines [ "\\startsection[title={Header1},reference={header1}]\n"
63+ , "\\startsubsection[title={Header2},reference={header2}]\n"
64+ , "\\startsubsubsection[title={Header3},reference={header3}]\n"
65+ , "\\startsubsubsubsection[title={Header4},reference={header4}]\n"
66+ , "\\startsubsubsubsubsection[title={Header5},reference={header5}]\n"
67+ , "\\startsubsubsubsubsubsection[title={Header6},reference={header6}]\n"
68+ , "\\stopsubsubsubsubsubsection\n"
69+ , "\\stopsubsubsubsubsection\n"
70+ , "\\stopsubsubsubsection\n"
71+ , "\\stopsubsubsection\n"
72+ , "\\stopsubsection\n"
73+ , "\\stopsection" ]
74+ ]
75+ , testGroup "bullet lists"
76+ [ "nested" =:
77+ bulletList [
78+ plain (text "top")
79+ <> bulletList [
80+ plain (text "next")
81+ <> bulletList [plain (text "bot")]
82+ ]
83+ ] =?> unlines
84+ [ "\\startitemize[packed]"
85+ , "\\item"
86+ , " top"
87+ , " \\startitemize[packed]"
88+ , " \\item"
89+ , " next"
90+ , " \\startitemize[packed]"
91+ , " \\item"
92+ , " bot"
93+ , " \\stopitemize"
94+ , " \\stopitemize"
95+ , "\\stopitemize" ]
96+ ]
97+ , testGroup "natural tables"
98+ [ test contextNtb "table with header and caption" $
99+ let capt = text "Table 1"
100+ aligns = [(AlignRight, ColWidthDefault), (AlignLeft, ColWidthDefault), (AlignCenter, ColWidthDefault), (AlignDefault, ColWidthDefault)]
101+ headers = [plain $ text "Right",
102+ plain $ text "Left",
103+ plain $ text "Center",
104+ plain $ text "Default"]
105+ rows = [[plain $ text "1.1",
106+ plain $ text "1.2",
107+ plain $ text "1.3",
108+ plain $ text "1.4"]
109+ ,[plain $ text "2.1",
110+ plain $ text "2.2",
111+ plain $ text "2.3",
112+ plain $ text "2.4"]
113+ ,[plain $ text "3.1",
114+ plain $ text "3.2",
115+ plain $ text "3.3",
116+ plain $ text "3.4"]]
117+ toRow = Row nullAttr . map simpleCell
118+ in table (simpleCaption $ plain capt)
119+ aligns
120+ (TableHead nullAttr [toRow headers])
121+ [TableBody nullAttr 0 [] $ map toRow rows]
122+ (TableFoot nullAttr [])
123+ =?> unlines [ "\\startplacetable[title={Table 1}]"
124+ , "\\startTABLE"
125+ , "\\startTABLEhead"
126+ , "\\NC[align=left] Right"
127+ , "\\NC[align=right] Left"
128+ , "\\NC[align=middle] Center"
129+ , "\\NC Default"
130+ , "\\NC\\NR"
131+ , "\\stopTABLEhead"
132+ , "\\startTABLEbody"
133+ , "\\NC[align=left] 1.1"
134+ , "\\NC[align=right] 1.2"
135+ , "\\NC[align=middle] 1.3"
136+ , "\\NC 1.4"
137+ , "\\NC\\NR"
138+ , "\\NC[align=left] 2.1"
139+ , "\\NC[align=right] 2.2"
140+ , "\\NC[align=middle] 2.3"
141+ , "\\NC 2.4"
142+ , "\\NC\\NR"
143+ , "\\stopTABLEbody"
144+ , "\\startTABLEfoot"
145+ , "\\NC[align=left] 3.1"
146+ , "\\NC[align=right] 3.2"
147+ , "\\NC[align=middle] 3.3"
148+ , "\\NC 3.4"
149+ , "\\NC\\NR"
150+ , "\\stopTABLEfoot"
151+ , "\\stopTABLE"
152+ , "\\stopplacetable" ]
153+ ]
154+ ]
test/Tests/Writers/Docbook.hs+6−43
@@ -11,14 +11,9 @@ import Text.Pandoc.Builder
1111docbook :: (ToPandoc a) => a -> String
1212docbook = docbookWithOpts def{ writerWrapText = WrapNone }
1313
14−docbook5 :: (ToPandoc a) => a -> String
15−docbook5 = docbook5WithOpts def{ writerWrapText = WrapNone }
16−
1714docbookWithOpts :: ToPandoc a => WriterOptions -> a -> String
1815docbookWithOpts opts = unpack . purely (writeDocbook4 opts) . toPandoc
1916
20−docbook5WithOpts :: ToPandoc a => WriterOptions -> a -> String
21−docbook5WithOpts opts = unpack . purely (writeDocbook5 opts) . toPandoc
2217{-
2318 "my test" =: X =?> Y
2419
@@ -83,32 +78,32 @@ tests = [ testGroup "line blocks"
8378 , "</warning>"
8479 ]
8580 , "admonition-with-title" =:
86− divWith ("foo", ["note"], []) (
81+ divWith ("foo", ["attention"], []) (
8782 divWith ("foo", ["title"], [])
8883 (plain (text "This is title")) <>
8984 para "This is a test"
9085 )
9186 =?> unlines
92− [ "<note id=\"foo\">"
87+ [ "<attention id=\"foo\">"
9388 , " <title>This is title</title>"
9489 , " <para>"
9590 , " This is a test"
9691 , " </para>"
97− , "</note>"
92+ , "</attention>"
9893 ]
9994 , "admonition-with-title-in-para" =:
100− divWith ("foo", ["note"], []) (
95+ divWith ("foo", ["attention"], []) (
10196 divWith ("foo", ["title"], [])
10297 (para "This is title") <>
10398 para "This is a test"
10499 )
105100 =?> unlines
106− [ "<note id=\"foo\">"
101+ [ "<attention id=\"foo\">"
107102 , " <title>This is title</title>"
108103 , " <para>"
109104 , " This is a test"
110105 , " </para>"
111− , "</note>"
106+ , "</attention>"
112107 ]
113108 , "single-child" =:
114109 divWith ("foo", [], []) (para "This is a test")
@@ -371,36 +366,4 @@ tests = [ testGroup "line blocks"
371366 ]
372367 ]
373368 ]
374− , testGroup "section attributes" $
375− let
376− headers = headerWith ("myid1",[],[("role","internal"),("xml:id","anotherid"),("dir","rtl")]) 1 "header1"
377− <> headerWith ("myid2",[],[("invalidname","value"),("arch","linux"),("dir","invaliddir")]) 1 "header2"
378− in
379− [ test docbook5 "sections with attributes (db5)" $
380− headers =?>
381− unlines [ "<section xmlns=\"http://docbook.org/ns/docbook\" xmlns:xlink=\"http://www.w3.org/1999/xlink\" xml:id=\"myid1\" role=\"internal\" dir=\"rtl\">"
382− , " <title>header1</title>"
383− , " <para>"
384− , " </para>"
385− , "</section>"
386− , "<section xmlns=\"http://docbook.org/ns/docbook\" xmlns:xlink=\"http://www.w3.org/1999/xlink\" xml:id=\"myid2\">"
387− , " <title>header2</title>"
388− , " <para>"
389− , " </para>"
390− , "</section>"
391− ]
392− , test docbook "sections with attributes (db4)" $
393− headers =?>
394− unlines [ "<sect1 id=\"myid1\" role=\"internal\">"
395− , " <title>header1</title>"
396− , " <para>"
397− , " </para>"
398− , "</sect1>"
399− , "<sect1 id=\"myid2\" arch=\"linux\">"
400− , " <title>header2</title>"
401− , " <para>"
402− , " </para>"
403− , "</sect1>"
404− ]
405− ]
406369 ]
test/Tests/Writers/Docx.hs−5
@@ -111,11 +111,6 @@ tests = [ testGroup "inlines"
111111 def
112112 "docx/tables.native"
113113 "docx/golden/tables.docx"
114− , docxTest
115− "tables without explicit column widths"
116− def
117− "docx/tables-default-widths.native"
118− "docx/golden/tables-default-widths.docx"
119114 , docxTest
120115 "tables with lists in cells"
121116 def
test/Tests/Writers/HTML.hs+52−57
@@ -34,60 +34,55 @@ infix 4 =:
3434(=:) = test html
3535
3636tests :: [TestTree]
37−tests =
38− [ testGroup "inline code"
39− [ "basic" =: code "@&" =?> "<code>@&amp;</code>"
40− , "haskell" =: codeWith ("",["haskell"],[]) ">>="
41− =?> "<code class=\"sourceCode haskell\"><span class=\"op\">&gt;&gt;=</span></code>"
42− , "nolanguage" =: codeWith ("",["nolanguage"],[]) ">>="
43− =?> "<code class=\"nolanguage\">&gt;&gt;=</code>"
44− ]
45− , testGroup "images"
46− [ "alt with formatting" =:
47− image "/url" "title" ("my " <> emph "image")
48− =?> "<img src=\"/url\" title=\"title\" alt=\"my image\" />"
49− ]
50− , testGroup "blocks"
51− [ "definition list with empty <dt>" =:
52− definitionList [(mempty, [para $ text "foo bar"])]
53− =?> "<dl><dt></dt><dd><p>foo bar</p></dd></dl>"
54− , "heading with disallowed attributes" =:
55− headerWith ("", [], [("invalid","1"), ("lang", "en")]) 1 "test"
56− =?>
57− "<h1 lang=\"en\">test</h1>"
58− ]
59− , testGroup "quotes"
60− [ "quote with cite attribute (without q-tags)" =:
61− doubleQuoted (spanWith ("", [], [("cite", "http://example.org")]) (str "examples"))
62− =?> "“<span cite=\"http://example.org\">examples</span>”"
63− , tQ "quote with cite attribute (with q-tags)" $
64− doubleQuoted (spanWith ("", [], [("cite", "http://example.org")]) (str "examples"))
65− =?> "<q cite=\"http://example.org\">examples</q>"
66− ]
67− , testGroup "sample"
68− [ "sample should be rendered correctly" =:
69− plain (codeWith ("",["sample"],[]) "Answer is 42") =?>
70− "<samp>Answer is 42</samp>"
71− ]
72− , testGroup "variable"
73− [ "variable should be rendered correctly" =:
74− plain (codeWith ("",["variable"],[]) "result") =?>
75− "<var>result</var>"
76− ]
77− , testGroup "sample with style"
78− [ "samp should wrap highlighted code" =:
79− codeWith ("",["sample","haskell"],[]) ">>="
80− =?> ("<samp><code class=\"sourceCode haskell\">" ++
81− "<span class=\"op\">&gt;&gt;=</span></code></samp>")
82− ]
83− , testGroup "variable with style"
84− [ "var should wrap highlighted code" =:
85− codeWith ("",["haskell","variable"],[]) ">>="
86− =?> ("<var><code class=\"sourceCode haskell\">" ++
87− "<span class=\"op\">&gt;&gt;=</span></code></var>")
88− ]
89− ]
90− where
91− tQ :: (ToString a, ToPandoc a)
92− => String -> (a, String) -> TestTree
93− tQ = test htmlQTags
37+tests = [ testGroup "inline code"
38+ [ "basic" =: code "@&" =?> "<code>@&amp;</code>"
39+ , "haskell" =: codeWith ("",["haskell"],[]) ">>="
40+ =?> "<code class=\"sourceCode haskell\"><span class=\"op\">&gt;&gt;=</span></code>"
41+ , "nolanguage" =: codeWith ("",["nolanguage"],[]) ">>="
42+ =?> "<code class=\"nolanguage\">&gt;&gt;=</code>"
43+ ]
44+ , testGroup "images"
45+ [ "alt with formatting" =:
46+ image "/url" "title" ("my " <> emph "image")
47+ =?> "<img src=\"/url\" title=\"title\" alt=\"my image\" />"
48+ ]
49+ , testGroup "blocks"
50+ [ "definition list with empty <dt>" =:
51+ definitionList [(mempty, [para $ text "foo bar"])]
52+ =?> "<dl><dt></dt><dd><p>foo bar</p></dd></dl>"
53+ ]
54+ , testGroup "quotes"
55+ [ "quote with cite attribute (without q-tags)" =:
56+ doubleQuoted (spanWith ("", [], [("cite", "http://example.org")]) (str "examples"))
57+ =?> "“<span cite=\"http://example.org\">examples</span>”"
58+ , tQ "quote with cite attribute (with q-tags)" $
59+ doubleQuoted (spanWith ("", [], [("cite", "http://example.org")]) (str "examples"))
60+ =?> "<q cite=\"http://example.org\">examples</q>"
61+ ]
62+ , testGroup "sample"
63+ [ "sample should be rendered correctly" =:
64+ plain (codeWith ("",["sample"],[]) "Answer is 42") =?>
65+ "<samp>Answer is 42</samp>"
66+ ]
67+ , testGroup "variable"
68+ [ "variable should be rendered correctly" =:
69+ plain (codeWith ("",["variable"],[]) "result") =?>
70+ "<var>result</var>"
71+ ]
72+ , testGroup "sample with style"
73+ [ "samp should wrap highlighted code" =:
74+ codeWith ("",["sample","haskell"],[]) ">>="
75+ =?> ("<samp><code class=\"sourceCode haskell\">" ++
76+ "<span class=\"op\">&gt;&gt;=</span></code></samp>")
77+ ]
78+ , testGroup "variable with style"
79+ [ "var should wrap highlighted code" =:
80+ codeWith ("",["haskell","variable"],[]) ">>="
81+ =?> ("<var><code class=\"sourceCode haskell\">" ++
82+ "<span class=\"op\">&gt;&gt;=</span></code></var>")
83+ ]
84+ ]
85+ where
86+ tQ :: (ToString a, ToPandoc a)
87+ => String -> (a, String) -> TestTree
88+ tQ = test htmlQTags
test/Tests/Writers/JATS.hs+91−135
@@ -1,21 +1,21 @@
11{-# LANGUAGE OverloadedStrings #-}
22module Tests.Writers.JATS (tests) where
33
4−import Data.Text (Text)
4+import Data.Text (unpack)
55import Test.Tasty
66import Tests.Helpers
77import Text.Pandoc
88import Text.Pandoc.Arbitrary ()
99import Text.Pandoc.Builder
10−import qualified Data.Text as T
1110
12−jats :: (ToPandoc a) => a -> Text
13−jats = purely (writeJATS def{ writerWrapText = WrapNone })
14− . toPandoc
11+jats :: (ToPandoc a) => a -> String
12+jats = unpack
13+ . purely (writeJATS def{ writerWrapText = WrapNone })
14+ . toPandoc
1515
16−jatsArticleAuthoring :: (ToPandoc a) => a -> Text
17−jatsArticleAuthoring =
18− purely (writeJatsArticleAuthoring def{ writerWrapText = WrapNone })
16+jatsArticleAuthoring :: (ToPandoc a) => a -> String
17+jatsArticleAuthoring = unpack
18+ . purely (writeJatsArticleAuthoring def{ writerWrapText = WrapNone })
1919 . toPandoc
2020
2121{-
@@ -32,133 +32,89 @@ which is in turn shorthand for
3232
3333infix 4 =:
3434(=:) :: (ToString a, ToPandoc a)
35− => String -> (a, Text) -> TestTree
35+ => String -> (a, String) -> TestTree
3636(=:) = test jats
3737
3838tests :: [TestTree]
39−tests =
40− [ testGroup "inline code"
41− [ "basic" =: code "@&" =?> "<p><monospace>@&amp;</monospace></p>"
42− , "lang" =: codeWith ("", ["c"], []) "@&" =?> "<p><code language=\"c\">@&amp;</code></p>"
43− ]
44− , testGroup "block code"
45− [ "basic" =: codeBlock "@&" =?> "<preformat>@&amp;</preformat>"
46− , "lang" =: codeBlockWith ("", ["c"], []) "@&" =?> "<code language=\"c\">@&amp;</code>"
47− ]
48− , testGroup "images"
49− [ "basic" =:
50− image "/url" "title" mempty
51− =?> "<graphic mimetype=\"image\" mime-subtype=\"\" xlink:href=\"/url\" xlink:title=\"title\" />"
52− ]
53− , testGroup "inlines"
54− [ "Emphasis" =: emph "emphasized"
55− =?> "<p><italic>emphasized</italic></p>"
56−
57− , test jatsArticleAuthoring "footnote in articleauthoring tag set"
58− ("test" <> note (para "footnote") =?>
59− unlines [ "<p>test<fn>"
60− , " <p>footnote</p>"
61− , "</fn></p>"
62− ])
63− ]
64− , "bullet list" =: bulletList [ plain $ text "first"
65− , plain $ text "second"
66− , plain $ text "third"
67− ]
68− =?> "<list list-type=\"bullet\">\n\
69− \ <list-item>\n\
70− \ <p>first</p>\n\
71− \ </list-item>\n\
72− \ <list-item>\n\
73− \ <p>second</p>\n\
74− \ </list-item>\n\
75− \ <list-item>\n\
76− \ <p>third</p>\n\
77− \ </list-item>\n\
78− \</list>"
79− , testGroup "definition lists"
80− [ "with internal link" =: definitionList [(link "#go" "" (str "testing"),
81− [plain (text "hi there")])] =?>
82− "<def-list>\n\
83− \ <def-item>\n\
84− \ <term><xref alt=\"testing\" rid=\"go\">testing</xref></term>\n\
85− \ <def>\n\
86− \ <p>hi there</p>\n\
87− \ </def>\n\
88− \ </def-item>\n\
89− \</def-list>"
90− ]
91− , testGroup "math"
92− [ "escape |" =: para (math "\\sigma|_{\\{x\\}}") =?>
93− "<p><inline-formula><alternatives>\n\
94− \<tex-math><![CDATA[\\sigma|_{\\{x\\}}]]></tex-math>\n\
95− \<mml:math display=\"inline\" xmlns:mml=\"http://www.w3.org/1998/Math/MathML\"><mml:mrow><mml:mi>σ</mml:mi><mml:msub><mml:mo stretchy=\"false\" form=\"prefix\">|</mml:mo><mml:mrow><mml:mo stretchy=\"false\" form=\"prefix\">{</mml:mo><mml:mi>x</mml:mi><mml:mo stretchy=\"false\" form=\"postfix\">}</mml:mo></mml:mrow></mml:msub></mml:mrow></mml:math></alternatives></inline-formula></p>"
96− ]
97− , testGroup "headers"
98− [ "unnumbered header" =:
99− headerWith ("foo",["unnumbered"],[]) 1
100− (text "Header 1" <> note (plain $ text "note")) =?>
101− "<sec id=\"foo\">\n\
102− \ <title>Header 1<xref ref-type=\"fn\" rid=\"fn1\">1</xref></title>\n\
103− \</sec>"
104− , "unnumbered sub header" =:
105− headerWith ("foo",["unnumbered"],[]) 1
106− (text "Header")
107− <> headerWith ("foo",["unnumbered"],[]) 2
108− (text "Sub-Header") =?>
109− "<sec id=\"foo\">\n\
110− \ <title>Header</title>\n\
111− \ <sec id=\"foo\">\n\
112− \ <title>Sub-Header</title>\n\
113− \ </sec>\n\
114− \</sec>"
115− , "containing image" =:
116− header 1 (image "imgs/foo.jpg" "" (text "Alt text")) =?>
117− "<sec>\n\
118− \ <title><inline-graphic mimetype=\"image\" mime-subtype=\"jpeg\" xlink:href=\"imgs/foo.jpg\" /></title>\n\
119− \</sec>"
120− ]
121−
122− , testGroup "ids"
123− [ "non-ASCII in header ID" =:
124− headerWith ("smørbrød",[],[]) 1 (text "smørbrød") =?>
125− T.unlines [ "<sec id=\"smørbrød\">"
126− , " <title>smørbrød</title>"
127− , "</sec>"
128− ]
129−
130− , "disallowed symbol in header id" =:
131− headerWith ("i/o",[],[]) 1 (text "I/O") =?>
132− T.unlines [ "<sec id=\"iU002Fo\">"
133− , " <title>I/O</title>"
134− , "</sec>"
135− ]
136−
137− , "disallowed symbols in internal link target" =:
138− link "#foo:bar" "" "baz" =?>
139− "<p><xref alt=\"baz\" rid=\"fooU003Abar\">baz</xref></p>"
140−
141− , "code id starting with a number" =:
142− codeWith ("7y",[],[]) "print 5" =?>
143− "<p><monospace id=\"U0037y\">print 5</monospace></p>"
144− ]
145−
146− , testGroup "spans"
147− [ "unwrapped if no attributes given" =:
148− spanWith nullAttr "text in span" =?>
149− "<p>text in span</p>"
150−
151− , "converted to named-content element if class given" =:
152− spanWith ("a", ["genus-species"], [("alt", "aa")]) "C. elegans" =?>
153− ("<p><named-content id=\"a\" alt=\"aa\" content-type=\"genus-species\">"
154− <> "C. elegans</named-content></p>")
155−
156− , "unwrapped if styled-content element would have no attributes" =:
157− spanWith ("", [], [("hidden", "true")]) "text in span" =?>
158− "<p>text in span</p>"
159−
160− , "use content-type attribute if present" =:
161− spanWith ("", [], [("content-type", "species")]) "E. coli" =?>
162− "<p><named-content content-type=\"species\">E. coli</named-content></p>"
163− ]
164− ]
39+tests = [ testGroup "inline code"
40+ [ "basic" =: code "@&" =?> "<p><monospace>@&amp;</monospace></p>"
41+ , "lang" =: codeWith ("", ["c"], []) "@&" =?> "<p><code language=\"c\">@&amp;</code></p>"
42+ ]
43+ , testGroup "block code"
44+ [ "basic" =: codeBlock "@&" =?> "<preformat>@&amp;</preformat>"
45+ , "lang" =: codeBlockWith ("", ["c"], []) "@&" =?> "<code language=\"c\">@&amp;</code>"
46+ ]
47+ , testGroup "images"
48+ [ "basic" =:
49+ image "/url" "title" mempty
50+ =?> "<graphic mimetype=\"image\" mime-subtype=\"\" xlink:href=\"/url\" xlink:title=\"title\" />"
51+ ]
52+ , testGroup "inlines"
53+ [ "Emphasis" =: emph "emphasized"
54+ =?> "<p><italic>emphasized</italic></p>"
55+
56+ , test jatsArticleAuthoring "footnote in articleauthoring tag set"
57+ ("test" <> note (para "footnote") =?>
58+ unlines [ "<p>test<fn>"
59+ , " <p>footnote</p>"
60+ , "</fn></p>"
61+ ])
62+ ]
63+ , "bullet list" =: bulletList [ plain $ text "first"
64+ , plain $ text "second"
65+ , plain $ text "third"
66+ ]
67+ =?> "<list list-type=\"bullet\">\n\
68+ \ <list-item>\n\
69+ \ <p>first</p>\n\
70+ \ </list-item>\n\
71+ \ <list-item>\n\
72+ \ <p>second</p>\n\
73+ \ </list-item>\n\
74+ \ <list-item>\n\
75+ \ <p>third</p>\n\
76+ \ </list-item>\n\
77+ \</list>"
78+ , testGroup "definition lists"
79+ [ "with internal link" =: definitionList [(link "#go" "" (str "testing"),
80+ [plain (text "hi there")])] =?>
81+ "<def-list>\n\
82+ \ <def-item>\n\
83+ \ <term><xref alt=\"testing\" rid=\"go\">testing</xref></term>\n\
84+ \ <def>\n\
85+ \ <p>hi there</p>\n\
86+ \ </def>\n\
87+ \ </def-item>\n\
88+ \</def-list>"
89+ ]
90+ , testGroup "math"
91+ [ "escape |" =: para (math "\\sigma|_{\\{x\\}}") =?>
92+ "<p><inline-formula><alternatives>\n\
93+ \<tex-math><![CDATA[\\sigma|_{\\{x\\}}]]></tex-math>\n\
94+ \<mml:math display=\"inline\" xmlns:mml=\"http://www.w3.org/1998/Math/MathML\"><mml:mrow><mml:mi>σ</mml:mi><mml:msub><mml:mo stretchy=\"false\" form=\"prefix\">|</mml:mo><mml:mrow><mml:mo stretchy=\"false\" form=\"prefix\">{</mml:mo><mml:mi>x</mml:mi><mml:mo stretchy=\"false\" form=\"postfix\">}</mml:mo></mml:mrow></mml:msub></mml:mrow></mml:math></alternatives></inline-formula></p>"
95+ ]
96+ , testGroup "headers"
97+ [ "unnumbered header" =:
98+ headerWith ("foo",["unnumbered"],[]) 1
99+ (text "Header 1" <> note (plain $ text "note")) =?>
100+ "<sec id=\"foo\">\n\
101+ \ <title>Header 1<xref ref-type=\"fn\" rid=\"fn1\">1</xref></title>\n\
102+ \</sec>"
103+ , "unnumbered sub header" =:
104+ headerWith ("foo",["unnumbered"],[]) 1
105+ (text "Header")
106+ <> headerWith ("foo",["unnumbered"],[]) 2
107+ (text "Sub-Header") =?>
108+ "<sec id=\"foo\">\n\
109+ \ <title>Header</title>\n\
110+ \ <sec id=\"foo\">\n\
111+ \ <title>Sub-Header</title>\n\
112+ \ </sec>\n\
113+ \</sec>"
114+ , "containing image" =:
115+ header 1 (image "imgs/foo.jpg" "" (text "Alt text")) =?>
116+ "<sec>\n\
117+ \ <title><inline-graphic mimetype=\"image\" mime-subtype=\"jpeg\" xlink:href=\"imgs/foo.jpg\" /></title>\n\
118+ \</sec>"
119+ ]
120+ ]
test/Tests/Writers/Jira.hs−12
@@ -61,24 +61,12 @@ tests =
6161 , "user link with user as description" =:
6262 linkWith ("", ["user-account"], []) "~johndoe" "" "~johndoe" =?>
6363 "[~johndoe]"
64−
65− , "'smart' link" =:
66− para (linkWith ("", ["smart-link"], []) "http://example.com" "" "x") =?>
67− "[x|http://example.com|smart-link]"
68−
69− , "'smart' card" =:
70− para (linkWith ("", ["smart-card"], []) "http://example.org" "" "x") =?>
71− "[x|http://example.org|smart-card]"
7264 ]
7365
7466 , testGroup "spans"
7567 [ "id is used as anchor" =:
7668 spanWith ("unicorn", [], []) (str "Unicorn") =?>
7769 "{anchor:unicorn}Unicorn"
78−
79− , "use `color` attribute" =:
80− spanWith ("",[],[("color","red")]) "ruby" =?>
81− "{color:red}ruby{color}"
8270 ]
8371
8472 , testGroup "code"
test/Tests/Writers/OOXML.hs+1−3
@@ -55,9 +55,7 @@ testArchive :: (WriterOptions -> Pandoc -> PandocIO BL.ByteString)
5555 -> IO Archive
5656testArchive writerFn opts fp = do
5757 txt <- T.readFile fp
58− bs <- runIOorExplode $ do
59− setTranslations "en-US"
60− readNative def txt >>= writerFn opts
58+ bs <- runIOorExplode $ readNative def txt >>= writerFn opts
6159 return $ toArchive bs
6260
6361compareFileList :: FilePath -> Archive -> Archive -> Maybe String
test/command/1279.md+1−1
@@ -9,7 +9,7 @@ title: My Article
99[^1]: Dept. of This and That
1010^D
1111---
12−author: John Doe[^1]
12+author: "John Doe[^1]"
1313date: 2014
1414title: My Article
1515---
test/command/2103.mddeleted−8
@@ -1,8 +0,0 @@
1−```
2−pandoc -t latex
3−| A happy pandoc user said "fix this bug please
4−| or I'll go crazy!"
5−^D
6−A happy pandoc user said ``fix this bug please\\
7−or I'll go crazy!''
8−```
test/command/2874.md+2−2
@@ -3,12 +3,12 @@
33<a></a>
44<br/>
55^D
6−{}\strut \\
6+{}~\\
77```
88
99```
1010% pandoc -f html -t latex
1111<a name="foo"></a><br/>
1212^D
13−\protect\hypertarget{foo}{}{}\strut \\
13+\protect\hypertarget{foo}{}{}~\\
1414```
test/command/3752.mddeleted−60
@@ -1,60 +0,0 @@
1−```
2−% pandoc command/chap1/text.md command/chap2/text.md -f markdown+rebase_relative_paths --verbose -t docx -o - | pandoc -f docx -t plain
3−^D
4−[INFO] Loaded command/chap1/spider.png from command/chap1/spider.png
5−[INFO] Loaded command/chap2/spider.png from command/chap2/spider.png
6−[INFO] Loaded command/chap1/../../lalune.jpg from command/chap1/../../lalune.jpg
7−Chapter one
8−
9−A spider: [spider]
10−
11−Another spider: [another spider]
12−
13−The moon: [moon]
14−
15−Link to spider picture.
16−
17−URL left alone: manual.
18−
19−Absolute path left alone: absolute.
20−
21−Link to fragment: chapter two.
22−
23−Empty path: empty.
24−
25−Chapter two
26−
27−A spider: [spider]
28−```
29−
30−```
31−% pandoc command/chap1/text.md command/chap2/text.md -f markdown+rebase_relative_paths -t html
32−^D
33−<h1 id="chapter-one">Chapter one</h1>
34−<p>A spider: <img src="command/chap1/spider.png" alt="spider" /></p>
35−<p>Another spider: <img src="command/chap2/spider.png" alt="another spider" /></p>
36−<p>The moon: <img src="command/chap1/../../lalune.jpg" alt="moon" /></p>
37−<p>Link to <a href="command/chap1/spider.png">spider picture</a>.</p>
38−<p>URL left alone: <a href="https://pandoc.org/MANUAL.html">manual</a>.</p>
39−<p>Absolute path left alone: <a href="/foo/bar/baz.png">absolute</a>.</p>
40−<p>Link to fragment: <a href="#chapter-two">chapter two</a>.</p>
41−<p>Empty path: <a href="">empty</a>.</p>
42−<h1 id="chapter-two">Chapter two</h1>
43−<p>A spider: <img src="command/chap2/spider.png" alt="spider" /></p>
44−```
45−
46−```
47−% pandoc command/chap1/text.md command/chap2/text.md -f commonmark+rebase_relative_paths -t html
48−^D
49−<h1>Chapter one</h1>
50−<p>A spider: <img src="command/chap1/spider.png" alt="spider" /></p>
51−<p>Another spider: <img src="command/chap2/spider.png" alt="another spider" /></p>
52−<p>The moon: <img src="command/chap1/../../lalune.jpg" alt="moon" /></p>
53−<p>Link to <a href="command/chap1/spider.png">spider picture</a>.</p>
54−<p>URL left alone: <a href="https://pandoc.org/MANUAL.html">manual</a>.</p>
55−<p>Absolute path left alone: <a href="/foo/bar/baz.png">absolute</a>.</p>
56−<p>Link to fragment: <a href="#chapter-two">chapter two</a>.</p>
57−<p>Empty path: <a href="">empty</a>.</p>
58−<h1>Chapter two</h1>
59−<p>A spider: <img src="command/chap2/spider.png" alt="spider" /></p>
60−```
test/command/3792.md+1−1
@@ -6,7 +6,7 @@ and properly escaped.
66ok
77^D
88---
9−title: \<this> \*that\*
9+title: \<this\> \*that\*
1010---
1111
1212ok
test/command/4063.mddeleted−29
@@ -1,29 +0,0 @@
1−```
2−% pandoc -f html -t native
3−<table>
4−<colgroup>
5− <col width="30%" />
6− <col width="*" />
7−</colgroup>
8−<tr>
9− <td>1</td>
10− <td>2</td>
11−</tr>
12−</table>
13−^D
14−[Table ("",[],[]) (Caption Nothing
15− [])
16− [(AlignDefault,ColWidth 0.3)
17− ,(AlignDefault,ColWidth 0.7)]
18− (TableHead ("",[],[])
19− [])
20− [(TableBody ("",[],[]) (RowHeadColumns 0)
21− []
22− [Row ("",[],[])
23− [Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
24− [Plain [Str "1"]]
25− ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
26− [Plain [Str "2"]]]])]
27− (TableFoot ("",[],[])
28− [])]
29−```
test/command/4164.md+1−1
@@ -26,6 +26,6 @@ Here is inline html:
2626
2727Here is inline html:
2828
29−\<div> \<balise> bla bla \</div>
29+\<div\> \<balise\> bla bla \</div\>
3030
3131```
test/command/4442.md+1−1
@@ -5,5 +5,5 @@
55^D
66\newcommand{\myFruit}{Mango\xspace}
77
8−Mango is the king of fruits.
8+Mango\xspace is the king of fruits.
99```
test/command/4465.mddeleted−15
@@ -1,15 +0,0 @@
1−```
2−% pandoc -f html -t markdown
3−<ol>
4− <li>An ordered list can contain block-level elements ind html, it means that divs are also allowed.</li>
5− <li>Let's see the problem! <div class="example">This is an example.</div></li>
6−</ol>
7−^D
8−1. An ordered list can contain block-level elements ind html, it means
9− that divs are also allowed.
10−2. Let\'s see the problem!
11−
12− ::: example
13− This is an example.
14− :::
15−```
test/command/5304.md+1−1
@@ -11,7 +11,7 @@
1111...
1212```
1313^D
14−``` markdown
14+``` {.markdown}
1515`«sträng»`
1616
1717`` «sträng» ``
test/command/5367.md+2−6
@@ -24,15 +24,11 @@ hello\footnote{doc footnote}
2424 >{\centering\arraybackslash}p{(\columnwidth - 0\tabcolsep) * \real{0.17}}@{}}
2525\caption[Sample table.]{Sample table.\footnote{caption footnote}}\tabularnewline
2626\toprule
27−\begin{minipage}[b]{\linewidth}\centering
28−Fruit\footnote{header footnote}
29−\end{minipage} \\
27+Fruit\footnote{header footnote} \\
3028\midrule
3129\endfirsthead
3230\toprule
33−\begin{minipage}[b]{\linewidth}\centering
34−Fruit{}
35−\end{minipage} \\
31+Fruit{} \\
3632\midrule
3733\endhead
3834Bans\footnote{table cell footnote} \\
test/command/5519.md+1−1
@@ -6,7 +6,7 @@
66 ```
77``````
88^D
9−```` attr
9+```` {.attr}
1010 ```
1111 code
1212 ```
test/command/6026.mddeleted−19
@@ -1,19 +0,0 @@
1−```
2−% pandoc -t native
3−@{https://openreview.net/forum?id=HkwoSDPgg}
4−
5−@https://openreview.net/forum?id=HkwoSDPgg
6−^D
7−[Para [Cite [Citation {citationId = "https://openreview.net/forum?id=HkwoSDPgg", citationPrefix = [], citationSuffix = [], citationMode = AuthorInText, citationNoteNum = 1, citationHash = 0}] [Str "@https://openreview.net/forum?id=HkwoSDPgg"]]
8−,Para [Cite [Citation {citationId = "https://openreview.net/forum?id", citationPrefix = [], citationSuffix = [], citationMode = AuthorInText, citationNoteNum = 2, citationHash = 0}] [Str "@https://openreview.net/forum?id"],Str "=HkwoSDPgg"]]
9−```
10−```
11−% pandoc -t markdown
12−@{https://openreview.net/forum?id=HkwoSDPgg}
13−
14−@https://openreview.net/forum?id=HkwoSDPgg
15−^D
16−@{https://openreview.net/forum?id=HkwoSDPgg}
17−
18−@https://openreview.net/forum?id=HkwoSDPgg
19−```
test/command/6541.mddeleted−27
@@ -1,27 +0,0 @@
1−```
2−% pandoc -f docbook -t markdown -s
3−<?xml version="1.0"?>
4−<!DOCTYPE book PUBLIC "-//OASIS//DTD DocBook XML V4.2//EN"
5− "http://www.oasis-open.org/docbook/xml/4.2/docbookx.dtd">
6−<book>
7−
8−<bookinfo>
9−<title>Title</title>
10−<author>
11−<firstname>Firstname</firstname><surname>Lastname</surname>
12−</author>
13−<releaseinfo>1.17</releaseinfo>
14−</bookinfo>
15−
16−<para>Text.</para>
17−
18−</book>
19−^D
20−---
21−author: Firstname Lastname
22−releaseinfo: 1.17
23−title: Title
24−---
25−
26−Text.
27−```
test/command/6620.md−3
@@ -7,12 +7,9 @@
77\SI{0.135(21)}{\m}
88
99\SI{12.3(60)}{\m}
10−
11−\SI{10.0 \pm 3.3}{\ms}
1210^D
1311<p>23 ± 2 m</p>
1412<p>125 ± 12 m</p>
1513<p>0.135 ± 0.021 m</p>
1614<p>12.3 ± 6 m</p>
17−<p>10.0 ± 3.3 ms</p>
1815```
test/command/6658.mddeleted−75
@@ -1,75 +0,0 @@
1−```
2−pandoc -f latex -t html
3−\num{12345,67890}
4−
5−\num{1+-2i}
6−
7−\num{.3e45}
8−
9−\num{1.654 x 2.34 x 3.430}
10−
11−\si{kg.m.s^{-1}}
12−
13−\si{\kilogram\metre\per\second}
14−
15−\si[per-mode=symbol]{\kilogram\metre\per\second}
16−
17−\si[per-mode=symbol]{\kilogram\metre\per\ampere\per\second}
18−
19−\numlist{10;20;30}
20−
21−\SIlist{0.13;0.67;0.80}{\milli\metre}
22−
23−\numrange{10}{20}
24−
25−\SIrange{0.13}{0.67}{\milli\metre}
26−
27−\ang{10}
28−
29−\ang{1;2;3}
30−
31−\ang{;;1}
32−
33−\ang{+10;;}
34−
35−\ang{-0;1;}
36−
37−\si{kg.m/s^2}
38−
39−\si{g_{polymer}~mol_{cat}.s^{-1}}
40−
41−\si{\kilo\gram\metre\per\square\second}
42−
43−\si{\gram\per\cubic\centi\metre}
44−
45−\si{\square\volt\cubic\lumen\per\farad}
46−
47−\si{\metre\squared\per\gray\cubic\lux}
48−
49−\si{\henry\second}
50−^D
51−<p>12345.67890</p>
52−<p>1 ± 2i</p>
53−<p>0.3 × 10<sup>45</sup></p>
54−<p>1.654 × 2.34 × 3.430</p>
55−<p>kg m s<sup>−1</sup></p>
56−<p>kg m s<sup>−1</sup></p>
57−<p>kg m/s</p>
58−<p>kg m/A/s</p>
59−<p>10, 20, &amp; 30</p>
60−<p>0.13 mm, 0.67 mm, &amp; 0.80 mm</p>
61−<p>10–20</p>
62−<p>0.13 mm–0.67 mm</p>
63−<p>10°</p>
64−<p>1°2′3″</p>
65−<p>1″</p>
66−<p>10°</p>
67−<p>-0°1′</p>
68−<p>kg m/s<sup>2</sup></p>
69−<p>g<sub>polymer</sub> mol<sub>cat</sub> s<sup>−1</sup></p>
70−<p>kg m s<sup>−2</sup></p>
71−<p>g cm<sup>−3</sup></p>
72−<p>V<sup>2</sup> lm<sup>3</sup> F<sup>−1</sup></p>
73−<p>m<sup>2</sup> Gy<sup>−1</sup> lx<sup>3</sup></p>
74−<p>H s</p>
75−```
test/command/6709.mddeleted−11
@@ -1,11 +0,0 @@
1−Tabs must be expanded even if --file-scope is used
2−````
3−% pandoc -t native --file-scope --tab-stop=2
4−```
5−if true; then
6− echo "yup"
7−fi
8−```
9−^D
10−[CodeBlock ("",[],[]) "if true; then\n echo \"yup\"\nfi"]
11−````
test/command/6890.md+2−2
@@ -23,12 +23,12 @@ references:
2323
2424@fruchtel-sozialer-2013a
2525
26−Some text.[^1]
26+Some text [^1].
2727
2828[^1]: @fruchtel-sozialer-2013a
2929^D
3030[Para [Cite [Citation {citationId = "fruchtel-sozialer-2013a", citationPrefix = [], citationSuffix = [], citationMode = AuthorInText, citationNoteNum = 1, citationHash = 0}] [Str "Fr\252chtel,",Space,Str "Budde,",Space,Str "and",Space,Str "Cyprian",Space,Str "(2013)"]]
31−,Para [Str "Some",Space,Str "text.",Note [Para [Cite [Citation {citationId = "fruchtel-sozialer-2013a", citationPrefix = [], citationSuffix = [], citationMode = AuthorInText, citationNoteNum = 2, citationHash = 0}] [Str "Fr\252chtel,",Space,Str "Budde,",Space,Str "and",Space,Str "Cyprian",Space,Str "(2013)"]]]]
31+,Para [Str "Some",Space,Str "text",Str ".",Note [Para [Cite [Citation {citationId = "fruchtel-sozialer-2013a", citationPrefix = [], citationSuffix = [], citationMode = AuthorInText, citationNoteNum = 2, citationHash = 0}] [Str "Fr\252chtel,",Space,Str "Budde,",Space,Str "and",Space,Str "Cyprian",Space,Str "(2013)"]]],Str ""]
3232,Div ("refs",["references","csl-bib-body","hanging-indent"],[])
3333 [Div ("ref-fruchtel-sozialer-2013a",["csl-entry"],[])
3434 [Para [Str "Fr\252chtel,",Space,Str "Frank,",Space,Str "Wolfgang",Space,Str "Budde,",Space,Str "and",Space,Str "Gudrun",Space,Str "Cyprian.",Space,Str "2013.",Space,Emph [Str "Sozialer",Space,Str "Raum",Space,Str "und",Space,Str "Soziale",Space,Str "Arbeit",Space,Str "Fieldbook:",Space,Str "Methoden",Space,Str "und",Space,Str "Techniken"],Str ".",Space,Str "3rd",Space,Str "ed.",Space,Str "Wiesbaden,",Space,Str "Germany:",Space,Str "Springer",Space,Str "VS."]]]]
test/command/6925.md+2−2
@@ -20,13 +20,13 @@ a
2020\end{thm2}
2121\end{document}
2222^D
23−::: thm
23+::: {.thm}
2424**Theorem 1**. *a*
2525
2626![image](1.png)
2727:::
2828
29−::: thm2
29+::: {.thm2}
3030**Theorem 1**. a
3131
3232![image](1.png)
test/command/6958.mddeleted−10
@@ -1,10 +0,0 @@
1−Add thin space between single and double quotes.
2−```
3−% pandoc -t latex+smart
4−---
5−lang: en-GB
6−---
7−'["On the Outside"]{}: Constructing Cycling Citizenship.'
8−^D
9−`\,{``On the Outside''}: Constructing Cycling Citizenship.'
10−```
test/command/7041.mddeleted−23
@@ -1,23 +0,0 @@
1−```
2−% pandoc -f html -t jats
3−<table>
4− <tr><td><blockquote>Fly, you fools!</blockquote></td></tr>
5−</table>
6−^D
7−<table-wrap>
8− <table>
9− <colgroup>
10− <col width="100%" />
11− </colgroup>
12− <tbody>
13− <tr>
14− <td><p specific-use="wrapper">
15− <disp-quote>
16− <p>Fly, you fools!</p>
17− </disp-quote>
18− </p></td>
19− </tr>
20− </tbody>
21− </table>
22−</table-wrap>
23−```
test/command/7099.md+1−1
@@ -11,7 +11,7 @@
1111<iframe src="h:invalid@url"></iframe>
1212^D
1313[INFO] Fetching h:invalid@url...
14−[WARNING] Could not fetch resource h:invalid@url: Could not fetch h:invalid@url
14+[WARNING] Could not fetch resource 'h:invalid@url': Could not fetch h:invalid@url
1515 InvalidUrlException "h:invalid@url" "Invalid scheme"
1616[INFO] Skipped '<iframe src="h:invalid@url"></iframe>' at input line 1 column 29
1717[]
test/command/7173.mddeleted−137
@@ -1,137 +0,0 @@
1−```
2−% pandoc -f docbook -t latex
3−<?xml version="1.0" encoding="UTF-8"?>
4−<!DOCTYPE article PUBLIC "-//W3C//DTD MathML 2.0//EN" "http://www.w3.org/Math/DTD/mathml2/mathml2.dtd">
5−<?xml-model href="http://www.oxygenxml.com/docbook/xml/5.0/rng/dbmathml.rng" schematypens="http://relaxng.org/ns/structure/1.0"?>
6−<?xml-model href="http://docbook.org/xml/5.0/rng/docbook.rng" type="application/xml" schematypens="http://purl.oclc.org/dsdl/schematron"?>
7−<article xmlns="http://docbook.org/ns/docbook"
8− xmlns:xlink="http://www.w3.org/1999/xlink"
9− version="5.1">
10− <title>Untitled Document</title>
11− <para>Word</para>
12− <informalequation>
13− <alt role='tex'>1+2</alt>
14− <m:math xmlns:m="http://www.w3.org/1998/Math/MathML">
15− <m:mrow>
16− <m:mrow><m:mn>1</m:mn><m:mo>+</m:mo><m:mn>2</m:mn>
17− </m:mrow>
18− </m:mrow>
19− </m:math>
20− </informalequation>
21−</article>
22−^D
23−Word
24−
25−\[1 + 2\]
26−```
27−
28−```
29−% pandoc -f docbook -t latex
30−<?xml version="1.0" encoding="UTF-8"?>
31−<!DOCTYPE article PUBLIC "-//W3C//DTD MathML 2.0//EN" "http://www.w3.org/Math/DTD/mathml2/mathml2.dtd">
32−<?xml-model href="http://www.oxygenxml.com/docbook/xml/5.0/rng/dbmathml.rng" schematypens="http://relaxng.org/ns/structure/1.0"?>
33−<?xml-model href="http://docbook.org/xml/5.0/rng/docbook.rng" type="application/xml" schematypens="http://purl.oclc.org/dsdl/schematron"?>
34−<article xmlns="http://docbook.org/ns/docbook"
35− xmlns:xlink="http://www.w3.org/1999/xlink"
36− version="5.1">
37− <title>Untitled Document</title>
38− <para>Word</para>
39− <informalequation>
40− <alt role='tex'>1+2</alt>
41− <mml:math xmlns:mml="http://www.w3.org/1998/Math/MathML">
42− <mml:mrow>
43− <mml:mrow><mml:mn>1</mml:mn><mml:mo>+</mml:mo><mml:mn>2</mml:mn>
44− </mml:mrow>
45− </mml:mrow>
46− </mml:math>
47− </informalequation>
48−</article>
49−^D
50−Word
51−
52−\[1 + 2\]
53−```
54−
55−```
56−% pandoc -f docbook -t latex
57−<?xml version="1.0" encoding="UTF-8"?>
58−<!DOCTYPE article PUBLIC "-//W3C//DTD MathML 2.0//EN" "http://www.w3.org/Math/DTD/mathml2/mathml2.dtd">
59−<?xml-model href="http://www.oxygenxml.com/docbook/xml/5.0/rng/dbmathml.rng" schematypens="http://relaxng.org/ns/structure/1.0"?>
60−<?xml-model href="http://docbook.org/xml/5.0/rng/docbook.rng" type="application/xml" schematypens="http://purl.oclc.org/dsdl/schematron"?>
61−<article xmlns="http://docbook.org/ns/docbook"
62− xmlns:xlink="http://www.w3.org/1999/xlink"
63− version="5.1">
64− <title>Untitled Document</title>
65− <para>Word</para>
66− <informalequation>
67− <alt role='tex'>1+2</alt>
68− <math xmlns="http://www.w3.org/1998/Math/MathML">
69− <mrow>
70− <mrow><mn>1</mn><mo>+</mo><mn>2</mn>
71− </mrow>
72− </mrow>
73− </math>
74− </informalequation>
75−</article>
76−^D
77−Word
78−
79−\[1 + 2\]
80−```
81−
82−```
83−% pandoc -f docbook -t latex
84−<?xml version="1.0" encoding="UTF-8"?>
85−<!DOCTYPE article PUBLIC "-//W3C//DTD MathML 2.0//EN" "http://www.w3.org/Math/DTD/mathml2/mathml2.dtd">
86−<?xml-model href="http://www.oxygenxml.com/docbook/xml/5.0/rng/dbmathml.rng" schematypens="http://relaxng.org/ns/structure/1.0"?>
87−<?xml-model href="http://docbook.org/xml/5.0/rng/docbook.rng" type="application/xml" schematypens="http://purl.oclc.org/dsdl/schematron"?>
88−<article xmlns="http://docbook.org/ns/docbook"
89− xmlns:xlink="http://www.w3.org/1999/xlink"
90− xmlns:m="http://www.w3.org/1998/Math/MathML"
91− version="5.1">
92− <title>Untitled Document</title>
93− <para>Word</para>
94− <informalequation>
95− <alt role='tex'>1+2</alt>
96− <m:math>
97− <m:mrow>
98− <m:mrow><m:mn>1</m:mn><m:mo>+</m:mo><m:mn>2</m:mn>
99− </m:mrow>
100− </m:mrow>
101− </m:math>
102− </informalequation>
103−</article>
104−^D
105−Word
106−
107−\[1 + 2\]
108−```
109−
110−```
111−% pandoc -f docbook -t latex
112−<?xml version="1.0" encoding="UTF-8"?>
113−<!DOCTYPE article PUBLIC "-//W3C//DTD MathML 2.0//EN" "http://www.w3.org/Math/DTD/mathml2/mathml2.dtd">
114−<?xml-model href="http://www.oxygenxml.com/docbook/xml/5.0/rng/dbmathml.rng" schematypens="http://relaxng.org/ns/structure/1.0"?>
115−<?xml-model href="http://docbook.org/xml/5.0/rng/docbook.rng" type="application/xml" schematypens="http://purl.oclc.org/dsdl/schematron"?>
116−<article xmlns="http://docbook.org/ns/docbook"
117− xmlns:xlink="http://www.w3.org/1999/xlink"
118− xmlns:mml="http://www.w3.org/1998/Math/MathML"
119− version="5.1">
120− <title>Untitled Document</title>
121− <para>Word</para>
122− <informalequation>
123− <alt role='tex'>1+2</alt>
124− <mml:math>
125− <mml:mrow>
126− <mml:mrow><mml:mn>1</mml:mn><mml:mo>+</mml:mo><mml:mn>2</mml:mn>
127− </mml:mrow>
128− </mml:mrow>
129− </mml:math>
130− </informalequation>
131−</article>
132−^D
133−Word
134−
135−\[1 + 2\]
136−```
137−
test/command/7208.mddeleted−6
@@ -1,6 +0,0 @@
1−```
2−% pandoc -t gfm
3−\<hi\>
4−^D
5−\<hi>
6−```
test/command/7214.mddeleted−28
@@ -1,28 +0,0 @@
1−```
2−% pandoc
3−+------------+----------+------------------+
4−|日本語 | の文字列 | words in english |
5−+------------+----------+------------------+
6−|abc defghij | def | xyz |
7−+------------+----------+------------------+
8−^D
9−<table style="width:60%;">
10−<colgroup>
11−<col style="width: 18%" />
12−<col style="width: 15%" />
13−<col style="width: 26%" />
14−</colgroup>
15−<tbody>
16−<tr class="odd">
17−<td>日本語</td>
18−<td>の文字列</td>
19−<td>words in english</td>
20−</tr>
21−<tr class="even">
22−<td>abc defghij</td>
23−<td>def</td>
24−<td>xyz</td>
25−</tr>
26−</tbody>
27−</table>
28−```
test/command/7216.mddeleted−19
@@ -1,19 +0,0 @@
1−```
2−pandoc -t latex
3−"This is some text in quotes. Another paragraph by the same speaker follows. The first paragraph should have no close quote.
4−
5−"The second paragraph should have open and close quotes."
6−
7−| "Open quote on this line,
8−| Close quote on the next line."
9−| "Quotes on the same line."
10−^D
11−``This is some text in quotes. Another paragraph by the same speaker
12−follows. The first paragraph should have no close quote.
13−
14−``The second paragraph should have open and close quotes.''
15−
16−``Open quote on this line,\\
17−Close quote on the next line.''\\
18−``Quotes on the same line.''
19−```
test/command/7266.mddeleted−10
@@ -1,10 +0,0 @@
1−```
2−% pandoc -f biblatex -t biblatex -s
3−@article{id,
4− annote = "annotation"
5−}
6−^D
7−@article{id,
8− annote = {annotation}
9−}
10−```
test/command/7272.mddeleted−27
@@ -1,27 +0,0 @@
1−```
2−% pandoc -t latex -f html
3−<table>
4− <tbody>
5− <tr>
6− <td>
7− <span>
8− text
9− <br />
10− text2
11− </span>
12− </td>
13− </tr>
14− </tbody>
15−</table>
16−^D
17−\begin{longtable}[]{@{}
18− >{\raggedright\arraybackslash}p{(\columnwidth - 0\tabcolsep) * \real{1.00}}@{}}
19−\toprule
20−\endhead
21−\begin{minipage}[t]{\linewidth}\raggedright
22−{ text\\
23−text2 }\strut
24−\end{minipage} \\
25−\bottomrule
26−\end{longtable}
27−```
test/command/7278.mddeleted−38
@@ -1,38 +0,0 @@
1−```
2−% pandoc -t beamer
3−# Slide
4−
5−Some blocks:
6−
7−## example block title {.example}
8−
9−text in block
10−
11−## alert block title {.alert}
12−
13−text in block
14−
15−## block title
16−
17−text in block
18−^D
19−\begin{frame}{Slide}
20−\protect\hypertarget{slide}{}
21−Some blocks:
22−
23−\begin{exampleblock}{example block title}
24−\protect\hypertarget{example-block-title}{}
25−text in block
26−\end{exampleblock}
27−
28−\begin{alertblock}{alert block title}
29−\protect\hypertarget{alert-block-title}{}
30−text in block
31−\end{alertblock}
32−
33−\begin{block}{block title}
34−\protect\hypertarget{block-title}{}
35−text in block
36−\end{block}
37−\end{frame}
38−```
test/command/7282.mddeleted−7
@@ -1,7 +0,0 @@
1−Don't crash on unmatched closing tag.
2−```
3−% pandoc -f html -t native
4−</script>
5−^D
6−[]
7−```
test/command/7288.mddeleted−40
@@ -1,40 +0,0 @@
1−```
2−% pandoc -f rst -t ms
3−.. list-table::
4− :widths: 50 50
5− :header-rows: 1
6−
7− * - Left
8− - Right
9− * - Long text that should be easy to break up into multiple lines
10− - Another long text that should be easy to break up into multiple lines
11−
12− Bar
13−^D
14−.PP
15−.na
16−.nr LLold \n[LL]
17−.TS
18−delim(@@) tab( );
19−lw(35.0n) lw(35.0n).
20−T{
21−Left
22−T} T{
23−Right
24−T}
25−_
26−T{
27−.nr LL 35.0n
28−.LP
29−Long text that should be easy to break up into multiple lines
30−T} T{
31−.nr LL 35.0n
32−.PP
33−Another long text that should be easy to break up into multiple lines
34−.PP
35−Bar
36−T}
37−.TE
38−.nr LL \n[LLold]
39−.ad
40−```
test/command/7299.mddeleted−23
@@ -1,23 +0,0 @@
1−```
2−% pandoc -f latex -t plain
3−$1-{\ensuremath{r}\xspace}$
4−^D
5−1 − r
6−```
7−
8−```
9−% pandoc -f latex -t plain
10−\newcommand{\foo}{Foo\xspace}
11−
12−$\text{\foo bar}$
13−^D
14−Foo bar
15−```
16−
17−```
18−% pandoc -f latex -t plain
19−a\xspace b
20−^D
21−a b
22−```
23−
test/command/7321.mddeleted−24
@@ -1,24 +0,0 @@
1−```
2−% pandoc -t plain --citeproc --wrap=none
3−---
4−references:
5−- id: fenner2012a
6− title: One-click science marketing
7− author:
8− - family: Fenner
9− given: Martin
10− container-title: Nature Materials
11− volume: 11
12− issue: 4
13− publisher: Nature Publishing Group
14− type: article-journal
15− issued:
16− year: 2012
17−---
18−
19−[@fenner2012a, $a^2+b^2=c^2$]
20−^D
21−(Fenner 2012, a² + b² = c²)
22−
23−Fenner, Martin. 2012. “One-Click Science Marketing.” Nature Materials 11 (4).
24−```
test/command/7323.mddeleted−29
@@ -1,29 +0,0 @@
1−```
2−% pandoc --citeproc -t plain
3−---
4−references:
5−- id: smith
6− author: John Smith
7− issued: 2019
8− title: Insects
9− type: book
10−...
11−
12−@smith [chap. 6]
13−
14−@smith [chapter 6]
15−
16−@smith [Chap. 6]
17−
18−@smith [Chapter 6]
19−^D
20−John Smith (2019, chap. 6)
21−
22−John Smith (2019, chap. 6)
23−
24−John Smith (2019, chap. 6)
25−
26−John Smith (2019, chap. 6)
27−
28−John Smith. 2019. Insects.
29−```
test/command/7324.mddeleted−25
@@ -1,25 +0,0 @@
1−```
2−% pandoc --citeproc -t plain
3−---
4−references:
5−- id: smith
6− author: John Smith
7− issued: 2019
8− title: Insects
9− type: book
10−...
11−
12−@smith [, among others]
13−
14−@smith [ among others]
15−
16−@smith [among others]
17−^D
18−John Smith (2019, among others)
19−
20−John Smith (2019 among others)
21−
22−John Smith (2019, among others)
23−
24−John Smith. 2019. Insects.
25−```
test/command/7339.mddeleted−11
@@ -1,11 +0,0 @@
1−```
2−% pandoc -f gfm -s -t native
3−---
4−title: Test
5−---
6−
7−Hi
8−^D
9−Pandoc (Meta {unMeta = fromList [("title",MetaInlines [Str "Test"])]})
10−[Para [Str "Hi"]]
11−```
test/command/7340.mddeleted−6
@@ -1,6 +0,0 @@
1−```
2−% pandoc -f latex -t native
3−\(*\)
4−^D
5−[Para [Math InlineMath "*"]]
6−```
test/command/7376.mddeleted−16
@@ -1,16 +0,0 @@
1−```
2−% pandoc --citeproc -t plain
3−---
4−references:
5−- id: item1
6− type: book
7− author:
8− - family: Doe
9− given: Jane
10− issued: 2020
11− title: The title
12−...
13−^D
14−
15−
16−```
test/command/7394.mddeleted−85
@@ -1,85 +0,0 @@
1−```
2−% pandoc -f markdown -t plain --citeproc
3−---
4−csl: command/chicago-fullnote-bibliography.csl
5−references:
6−- author:
7− - family: Wandt
8− given: Manfred
9− edition: 6
10− id: wandt2014ges-sv
11− issued: 2014
12− publisher: Franz Vahlen
13− publisher-place: München
14− title: Gesetzliche schuldverhältnisse
15− title-short: Gesetzl SV
16− type: book
17−- author:
18− - family: Smith
19− given: Zenda
20− edition: 6
21− id: smith2015
22− issued: 2015
23− publisher: Macmillan
24− publisher-place: New York
25− title: A verb and a noun
26− type: book
27−---
28−
29−Hi^[@wandt2014ges-sv.].
30−
31−Hi^[[@wandt2014ges-sv].].
32−
33−Hi^[[See also @wandt2014ges-sv].].
34−
35−Hi^[See also @wandt2014ges-sv.].
36−
37−Hi^[@wandt2014ges-sv [@smith2015].].
38−
39−Hi^[[@wandt2014ges-sv; @smith2015].].
40−
41−Hi [@wandt2014ges-sv].
42−
43−Hi [see also @wandt2014ges-sv].
44−
45−^D
46−Hi[1].
47−
48−Hi[2].
49−
50−Hi[3].
51−
52−Hi[4].
53−
54−Hi[5].
55−
56−Hi[6].
57−
58−Hi.[7]
59−
60−Hi.[8]
61−
62−Smith, Zenda. A Verb and a Noun. 6th ed. New York: Macmillan, 2015.
63−
64−Wandt, Manfred. Gesetzliche Schuldverhältnisse. 6th ed. München: Franz
65−Vahlen, 2014.
66−
67−[1] Manfred Wandt, Gesetzliche Schuldverhältnisse, 6th ed. (München:
68−Franz Vahlen, 2014).
69−
70−[2] Wandt.
71−
72−[3] See also Wandt.
73−
74−[4] See also Wandt.
75−
76−[5] Wandt, Zenda Smith, A Verb and a Noun, 6th ed. (New York: Macmillan,
77−2015).
78−
79−[6] Wandt, Gesetzl SV; Smith, A Verb and a Noun.
80−
81−[7] Wandt, Gesetzl SV.
82−
83−[8] See also Wandt.
84−```
85−
test/command/7397.mddeleted−14
@@ -1,14 +0,0 @@
1−````
2−% pandoc -t markdown
3−~~~~ { .haskell startFrom="100"}
4−qsort [] = []
5−qsort (x:xs) = qsort (filter (< x) xs) ++ [x] ++
6− qsort (filter (>= x) xs)
7−~~~~
8−^D
9−``` {.haskell startFrom="100"}
10−qsort [] = []
11−qsort (x:xs) = qsort (filter (< x) xs) ++ [x] ++
12− qsort (filter (>= x) xs)
13−```
14−````
test/command/7400.mddeleted−9
@@ -1,9 +0,0 @@
1−```
2−% pandoc -t native -s
3−---
4−# Comment only
5−...
6−^D
7−Pandoc (Meta {unMeta = fromList []})
8−[]
9−```
test/command/7416.mddeleted−19
@@ -1,19 +0,0 @@
1−```
2−% pandoc -f markdown -t html
3−![caption](../media/rId25.jpg "title"){alt="alt"}
4−
5−^D
6−<figure>
7−<img src="../media/rId25.jpg" title="title" alt="alt" /><figcaption>caption</figcaption>
8−</figure>
9−```
10−
11−```
12−% pandoc -f markdown -t html
13−![caption](../media/rId25.jpg "title")
14−
15−^D
16−<figure>
17−<img src="../media/rId25.jpg" title="title" alt="caption" /><figcaption aria-hidden="true">caption</figcaption>
18−</figure>
19−```
test/command/averroes.bibdeleted−95
@@ -1,95 +0,0 @@
1−@string{anch-ie = {Angew.~Chem. Int.~Ed.}}
2−@string{cup = {Cambridge University Press}}
3−@string{dtv = {Deutscher Taschenbuch-Verlag}}
4−@string{hup = {Harvard University Press}}
5−@string{jams = {J.~Amer. Math. Soc.}}
6−@string{jchph = {J.~Chem. Phys.}}
7−@string{jomch = {J.~Organomet. Chem.}}
8−@string{pup = {Princeton University Press}}
9−
10−@book{averroes/bland,
11− author = {Averroes},
12− title = {The Epistle on the Possibility of Conjunction with the Active
13− Intellect by {Ibn Rushd} with the Commentary of {Moses Narboni}},
14− date = 1982,
15− editor = {Bland, Kalman P.},
16− translator = {Bland, Kalman P.},
17− series = {Moreshet: Studies in {Jewish} History, Literature and Thought},
18− number = 7,
19− publisher = {Jewish Theological Seminary of America},
20− location = {New York},
21− keywords = {primary},
22− langid = {english},
23− langidopts = {variant=american},
24− indextitle = {Epistle on the Possibility of Conjunction, The},
25− shorttitle = {Possibility of Conjunction},
26− annotation = {A \texttt{book} entry with a \texttt{series} and a
27− \texttt{number}. Note the concatenation of the \texttt{editor}
28− and \texttt{translator} fields as well as the
29− \texttt{indextitle} field},
30−}
31−
32−@book{averroes/hannes,
33− author = {Averroes},
34− title = {Des Averro{\"e}s Abhandlung: \mkbibquote{{\"U}ber die
35− M{\"o}glichkeit der Conjunktion} oder \mkbibquote{{\"U}ber den
36− materiellen Intellekt}},
37− date = 1892,
38− editor = {Hannes, Ludwig},
39− translator = {Hannes, Ludwig},
40− annotator = {Hannes, Ludwig},
41− publisher = {C.~A. Kaemmerer},
42− location = {Halle an der Saale},
43− keywords = {primary},
44− langid = {german},
45− sorttitle = {Uber die Moglichkeit der Conjunktion},
46− indexsorttitle= {Uber die Moglichkeit der Conjunktion},
47− indextitle = {{\"U}ber die M{\"o}glichkeit der Conjunktion},
48− shorttitle = {{\"U}ber die M{\"o}glichkeit der Conjunktion},
49− annotation = {An annotated edition. Note the concatenation of the
50− \texttt{editor}, \texttt{translator}, and \texttt{annotator}
51− fields. Also note the \texttt{shorttitle},
52− \texttt{indextitle}, \texttt{sorttitle}, and
53− \texttt{indexsorttitle} fields},
54−}
55−
56−@book{averroes/hercz,
57− author = {Averroes},
58− title = {Drei Abhandlungen {\"u}ber die Conjunction des separaten
59− Intellects mit dem Menschen},
60− date = 1869,
61− editor = {Hercz, J.},
62− translator = {Hercz, J.},
63− publisher = {S.~Hermann},
64− location = {Berlin},
65− keywords = {primary},
66− langid = {german},
67− indexsorttitle= {Drei Abhandlungen uber die Conjunction},
68− indextitle = {Drei Abhandlungen {\"u}ber die Conjunction},
69− subtitle = {Von Averroes (Vater und Sohn), aus dem Arabischen
70− {\"u}bersetzt von Samuel Ibn Tibbon},
71− shorttitle = {Drei Abhandlungen},
72− annotation = {A \texttt{book} entry. Note the concatenation of the
73− \texttt{editor} and \texttt{translator} fields as well as the
74− \texttt{indextitle} and \texttt{indexsorttitle} fields},
75−}
76−
77−@book{cicero,
78− author = {Cicero, Marcus Tullius},
79− title = {De natura deorum. {\"U}ber das Wesen der G{\"o}tter},
80− date = 1995,
81− editor = {Blank-Sangmeister, Ursula},
82− translator = {Blank-Sangmeister, Ursula},
83− afterword = {Thraede, Klaus},
84− language = {langlatin and langgerman},
85− publisher = {Reclam},
86− location = {Stuttgart},
87− langid = {german},
88− indextitle = {De natura deorum},
89− shorttitle = {De natura deorum},
90− annotation = {A bilingual edition of Cicero's \emph{De natura deorum}, with
91− a German translation. Note the format of the \texttt{language}
92− field in the database file, the concatenation of the
93− \texttt{editor} and \texttt{translator} fields, and the
94− \texttt{afterword} field},
95−}
test/command/biblatex-basic.md+3−5
@@ -1,5 +1,3 @@
1−```
2−% pandoc -f biblatex -t markdown -s
31@Book{item1,
42author="John Doe",
53title="First Book",
@@ -29,7 +27,7 @@ year="2007"
2927
3028^D
3129---
32−nocite: "[@*]"
30+nocite: '[@*]'
3331references:
3432- author:
3533 - family: Doe
@@ -46,9 +44,9 @@ references:
4644 container-title: Journal of Generic Studies
4745 id: item2
4846 issued: 2006
49− page: 33-34
47+ page: '33-34'
5048 title: Article
51− type: article-journal
49+ type: 'article-journal'
5250 volume: 6
5351- author:
5452 - family: Doe
test/command/biblatex-examples.bibnew file+1674
@@ -0,0 +1,1674 @@
1+@string{anch-ie = {Angew.~Chem. Int.~Ed.}}
2+@string{cup = {Cambridge University Press}}
3+@string{dtv = {Deutscher Taschenbuch-Verlag}}
4+@string{hup = {Harvard University Press}}
5+@string{jams = {J.~Amer. Math. Soc.}}
6+@string{jchph = {J.~Chem. Phys.}}
7+@string{jomch = {J.~Organomet. Chem.}}
8+@string{pup = {Princeton University Press}}
9+
10+@incollection{westfahl:space,
11+ author = {Westfahl, Gary},
12+ title = {The True Frontier},
13+ subtitle = {Confronting and Avoiding the Realities of Space in {American}
14+ Science Fiction Films},
15+ pages = {55-65},
16+ crossref = {westfahl:frontier},
17+ langid = {english},
18+ langidopts = {variant=american},
19+ indextitle = {True Frontier, The},
20+ annotation = {A cross-referenced article from a \texttt{collection}. This is
21+ an \texttt{incollection} entry with a \texttt{crossref}
22+ field. Note the \texttt{subtitle} and \texttt{indextitle}
23+ fields},
24+}
25+
26+@set{set,
27+ entryset = {herrmann,aksin,yoon},
28+ annotation = {A \texttt{set} with three members. The \texttt{crossref} field
29+ in the \texttt{@set} entry and the \texttt{entryset} field in
30+ each set member entry is needed only when using BibTeX as the
31+ backend},
32+}
33+
34+@set{stdmodel,
35+ entryset = {glashow,weinberg,salam},
36+ annotation = {A \texttt{set} with three members discussing the standard
37+ model of particle physics. The \texttt{crossref} field
38+ in the \texttt{@set} entry and the \texttt{entryset} field in
39+ each set member entry is needed only when using BibTeX as the
40+ backend},
41+}
42+
43+@article{aksin,
44+ author = {Aks{\i}n, {\"O}zge and T{\"u}rkmen, Hayati and Artok, Levent
45+ and {\c{C}}etinkaya, Bekir and Ni, Chaoying and
46+ B{\"u}y{\"u}kg{\"u}ng{\"o}r, Orhan and {\"O}zkal, Erhan},
47+ title = {Effect of immobilization on catalytic characteristics of
48+ saturated {Pd-N}-heterocyclic carbenes in {Mizoroki-Heck}
49+ reactions},
50+ journaltitle = jomch,
51+ date = 2006,
52+ volume = 691,
53+ number = 13,
54+ pages = {3027-3036},
55+ indextitle = {Effect of immobilization on catalytic characteristics},
56+}
57+
58+@article{angenendt,
59+ author = {Angenendt, Arnold},
60+ title = {In Honore Salvatoris~-- Vom Sinn und Unsinn der
61+ Patrozinienkunde},
62+ journaltitle = {Revue d'Histoire Eccl{\'e}siastique},
63+ date = 2002,
64+ volume = 97,
65+ pages = {431--456, 791--823},
66+ langid = {german},
67+ indextitle = {In Honore Salvatoris},
68+ shorttitle = {In Honore Salvatoris},
69+ annotation = {A German article in a French journal. Apart from that, a
70+ typical \texttt{article} entry. Note the \texttt{indextitle}
71+ field},
72+}
73+
74+@article{baez/article,
75+ author = {Baez, John C. and Lauda, Aaron D.},
76+ title = {Higher-Dimensional Algebra {V}: 2-Groups},
77+ journaltitle = {Theory and Applications of Categories},
78+ date = 2004,
79+ volume = 12,
80+ pages = {423-491},
81+ version = 3,
82+ eprint = {math/0307200v3},
83+ eprinttype = {arxiv},
84+ langid = {english},
85+ langidopts = {variant=american},
86+ annotation = {An \texttt{article} with \texttt{eprint} and
87+ \texttt{eprinttype} fields. Note that the arXiv reference is
88+ transformed into a clickable link if \texttt{hyperref} support
89+ has been enabled. Compare \texttt{baez\slash online}, which
90+ is the same item given as an \texttt{online} entry},
91+}
92+
93+@article{bertram,
94+ author = {Bertram, Aaron and Wentworth, Richard},
95+ title = {Gromov invariants for holomorphic maps on {Riemann} surfaces},
96+ journaltitle = jams,
97+ date = 1996,
98+ volume = 9,
99+ number = 2,
100+ pages = {529-571},
101+ langid = {english},
102+ langidopts = {variant=american},
103+ shorttitle = {Gromov invariants},
104+ annotation = {An \texttt{article} entry with a \texttt{volume} and a
105+ \texttt{number} field},
106+}
107+
108+@article{doody,
109+ author = {Doody, Terrence},
110+ title = {Hemingway's Style and {Jake's} Narration},
111+ year = 1974,
112+ volume = 4,
113+ number = 3,
114+ pages = {212-225},
115+ langid = {english},
116+ langidopts = {variant=american},
117+ related = {matuz:doody},
118+ relatedstring= {\autocap{e}xcerpt in},
119+ journal = {The Journal of Narrative Technique},
120+ annotation = {An \texttt{article} entry cited as an excerpt from a
121+ \texttt{collection} entry. Note the format of the
122+ \texttt{related} and \texttt{relatedstring} fields},
123+}
124+
125+@collection{matuz:doody,
126+ editor = {Matuz, Roger},
127+ title = {Contemporary Literary Criticism},
128+ year = 1990,
129+ volume = 61,
130+ publisher = {Gale},
131+ location = {Detroit},
132+ pages = {204-208},
133+ langid = {english},
134+ langidopts = {variant=american},
135+ annotation = {A \texttt{collection} entry providing the excerpt information
136+ for the \texttt{doody} entry. Note the format of the
137+ \texttt{pages} field},
138+}
139+
140+@article{gillies,
141+ author = {Gillies, Alexander},
142+ title = {Herder and the Preparation of {Goethe's} Idea of World
143+ Literature},
144+ journaltitle = {Publications of the English Goethe Society},
145+ date = 1933,
146+ series = {newseries},
147+ volume = 9,
148+ pages = {46-67},
149+ langid = {english},
150+ langidopts = {variant=british},
151+ annotation = {An \texttt{article} entry with a \texttt{series} and a
152+ \texttt{volume} field. Note that format of the \texttt{series}
153+ field in the database file},
154+}
155+
156+@article{glashow,
157+ author = {Glashow, Sheldon},
158+ title = {Partial Symmetries of Weak Interactions},
159+ journaltitle = {Nucl.~Phys.},
160+ date = 1961,
161+ volume = 22,
162+ pages = {579-588},
163+}
164+
165+@article{herrmann,
166+ author = {Herrmann, Wolfgang A. and {\"O}fele, Karl and Schneider,
167+ Sabine K. and Herdtweck, Eberhardt and Hoffmann, Stephan D.},
168+ title = {A carbocyclic carbene as an efficient catalyst ligand for {C--C}
169+ coupling reactions},
170+ journaltitle = anch-ie,
171+ date = 2006,
172+ volume = 45,
173+ number = 23,
174+ pages = {3859-3862},
175+ indextitle = {Carbocyclic carbene as an efficient catalyst, A},
176+}
177+
178+@article{kastenholz,
179+ author = {Kastenholz, M. A. and H{\"u}nenberger, Philippe H.},
180+ title = {Computation of methodology\hyphen independent ionic solvation
181+ free energies from molecular simulations},
182+ journaltitle = jchph,
183+ date = 2006,
184+ subtitle = {{I}. {The} electrostatic potential in molecular liquids},
185+ volume = 124,
186+ eid = 124106,
187+ doi = {10.1063/1.2172593},
188+ langid = {english},
189+ langidopts = {variant=american},
190+ indextitle = {Computation of ionic solvation free energies},
191+ annotation = {An \texttt{article} entry with an \texttt{eid} and a
192+ \texttt{doi} field. Note that the \textsc{doi} is transformed
193+ into a clickable link if \texttt{hyperref} support has been
194+ enabled},
195+ abstract = {The computation of ionic solvation free energies from
196+ atomistic simulations is a surprisingly difficult problem that
197+ has found no satisfactory solution for more than 15 years. The
198+ reason is that the charging free energies evaluated from such
199+ simulations are affected by very large errors. One of these is
200+ related to the choice of a specific convention for summing up
201+ the contributions of solvent charges to the electrostatic
202+ potential in the ionic cavity, namely, on the basis of point
203+ charges within entire solvent molecules (M scheme) or on the
204+ basis of individual point charges (P scheme). The use of an
205+ inappropriate convention may lead to a charge-independent
206+ offset in the calculated potential, which depends on the
207+ details of the summation scheme, on the quadrupole-moment
208+ trace of the solvent molecule, and on the approximate form
209+ used to represent electrostatic interactions in the
210+ system. However, whether the M or P scheme (if any) represents
211+ the appropriate convention is still a matter of on-going
212+ debate. The goal of the present article is to settle this
213+ long-standing controversy by carefully analyzing (both
214+ analytically and numerically) the properties of the
215+ electrostatic potential in molecular liquids (and inside
216+ cavities within them).},
217+}
218+
219+@article{murray,
220+ author = {Hostetler, Michael J. and Wingate, Julia E. and Zhong,
221+ Chuan-Jian and Harris, Jay E. and Vachet, Richard W. and
222+ Clark, Michael R. and Londono, J. David and Green, Stephen
223+ J. and Stokes, Jennifer J. and Wignall, George D. and Glish,
224+ Gary L. and Porter, Marc D. and Evans, Neal D. and Murray,
225+ Royce W.},
226+ title = {Alkanethiolate gold cluster molecules with core diameters from
227+ 1.5 to 5.2~{nm}},
228+ journaltitle = {Langmuir},
229+ date = 1998,
230+ subtitle = {Core and monolayer properties as a function of core size},
231+ volume = 14,
232+ number = 1,
233+ pages = {17-30},
234+ langid = {english},
235+ langidopts = {variant=american},
236+ indextitle = {Alkanethiolate gold cluster molecules},
237+ shorttitle = {Alkanethiolate gold cluster molecules},
238+ annotation = {An \texttt{article} entry with \arabic{author} authors. By
239+ default, long author and editor lists are automatically
240+ truncated. This is configurable},
241+}
242+
243+@article{reese,
244+ author = {Reese, Trevor R.},
245+ title = {Georgia in {Anglo-Spanish} Diplomacy, 1736--1739},
246+ journaltitle = {William and Mary Quarterly},
247+ date = 1958,
248+ series = 3,
249+ volume = 15,
250+ pages = {168-190},
251+ langid = {english},
252+ langidopts = {variant=american},
253+ annotation = {An \texttt{article} entry with a \texttt{series} and a
254+ \texttt{volume} field. Note the format of the series. If the
255+ value of the \texttt{series} field is an integer, this number
256+ is printed as an ordinal and the string \enquote*{series} is
257+ appended automatically},
258+}
259+
260+@article{sarfraz,
261+ author = {M. Sarfraz and M. F. A. Razzak},
262+ title = {Technical section: {An} algorithm for automatic capturing of
263+ the font outlines},
264+ year = 2002,
265+ volume = 26,
266+ number = 5,
267+ pages = {795-804},
268+ issn = {0097-8493},
269+ journal = {Computers and Graphics},
270+ annotation = {An \texttt{article} entry with an \texttt{issn} field},
271+}
272+
273+@article{shore,
274+ author = {Shore, Bradd},
275+ title = {Twice-Born, Once Conceived},
276+ journaltitle = {American Anthropologist},
277+ date = {1991-03},
278+ subtitle = {Meaning Construction and Cultural Cognition},
279+ series = {newseries},
280+ volume = 93,
281+ number = 1,
282+ pages = {9-27},
283+ annotation = {An \texttt{article} entry with \texttt{series},
284+ \texttt{volume}, and \texttt{number} fields. Note the format
285+ of the \texttt{series} which is a localization key},
286+}
287+
288+@article{sigfridsson,
289+ author = {Sigfridsson, Emma and Ryde, Ulf},
290+ title = {Comparison of methods for deriving atomic charges from the
291+ electrostatic potential and moments},
292+ journaltitle = {Journal of Computational Chemistry},
293+ date = 1998,
294+ volume = 19,
295+ number = 4,
296+ pages = {377-395},
297+ doi = {10.1002/(SICI)1096-987X(199803)19:4<377::AID-JCC1>3.0.CO;2-P},
298+ langid = {english},
299+ langidopts = {variant=american},
300+ indextitle = {Methods for deriving atomic charges},
301+ annotation = {An \texttt{article} entry with \texttt{volume},
302+ \texttt{number}, and \texttt{doi} fields. Note that the
303+ \textsc{doi} is transformed into a clickable link if
304+ \texttt{hyperref} support has been enabled},
305+ abstract = {Four methods for deriving partial atomic charges from the
306+ quantum chemical electrostatic potential (CHELP, CHELPG,
307+ Merz-Kollman, and RESP) have been compared and critically
308+ evaluated. It is shown that charges strongly depend on how and
309+ where the potential points are selected. Two alternative
310+ methods are suggested to avoid the arbitrariness in the
311+ point-selection schemes and van der Waals exclusion radii:
312+ CHELP-BOW, which also estimates the charges from the
313+ electrostatic potential, but with potential points that are
314+ Boltzmann-weighted after their occurrence in actual
315+ simulations using the energy function of the program in which
316+ the charges will be used, and CHELMO, which estimates the
317+ charges directly from the electrostatic multipole
318+ moments. Different criteria for the quality of the charges are
319+ discussed.},
320+}
321+
322+@article{spiegelberg,
323+ author = {Spiegelberg, Herbert},
324+ title = {\mkbibquote{Intention} und \mkbibquote{Intentionalit{\"a}t} in
325+ der Scholastik, bei Brentano und Husserl},
326+ journaltitle = {Studia Philosophica},
327+ date = 1969,
328+ volume = 29,
329+ pages = {189-216},
330+ langid = {german},
331+ sorttitle = {Intention und Intentionalitat in der Scholastik, bei Brentano
332+ und Husserl},
333+ indexsorttitle= {Intention und Intentionalitat in der Scholastik, bei Brentano
334+ und Husserl},
335+ shorttitle = {Intention und Intentionalit{\"a}t},
336+ annotation = {An \texttt{article} entry. Note the \texttt{sorttitle} and
337+ \texttt{indexsorttitle} fields and the markup of the quotes in
338+ the database file},
339+}
340+
341+@article{springer,
342+ author = {Springer, Otto},
343+ title = {Mediaeval Pilgrim Routes from {Scandinavia} to {Rome}},
344+ journaltitle = {Mediaeval Studies},
345+ date = 1950,
346+ volume = 12,
347+ pages = {92-122},
348+ langid = {english},
349+ langidopts = {variant=british},
350+ shorttitle = {Mediaeval Pilgrim Routes},
351+ annotation = {A plain \texttt{article} entry},
352+}
353+
354+@article{weinberg,
355+ author = {Weinberg, Steven},
356+ title = {A Model of Leptons},
357+ journaltitle = {Phys.~Rev.~Lett.},
358+ date = 1967,
359+ volume = 19,
360+ pages = {1264-1266},
361+}
362+
363+@article{yoon,
364+ author = {Yoon, Myeong S. and Ryu, Dowook and Kim, Jeongryul and Ahn,
365+ Kyo Han},
366+ title = {Palladium pincer complexes with reduced bond angle strain:
367+ efficient catalysts for the {Heck} reaction},
368+ journaltitle = {Organometallics},
369+ date = 2006,
370+ volume = 25,
371+ number = 10,
372+ pages = {2409-2411},
373+ indextitle = {Palladium pincer complexes},
374+}
375+
376+@book{aristotle:anima,
377+ author = {Aristotle},
378+ title = {De Anima},
379+ date = 1907,
380+ editor = {Hicks, Robert Drew},
381+ publisher = cup,
382+ location = {Cambridge},
383+ keywords = {primary},
384+ langid = {english},
385+ langidopts = {variant=british},
386+ annotation = {A \texttt{book} entry with an \texttt{author} and an
387+ \texttt{editor}},
388+}
389+
390+@book{aristotle:physics,
391+ author = {Aristotle},
392+ title = {Physics},
393+ date = 1929,
394+ translator = {Wicksteed, P. H. and Cornford, F. M.},
395+ publisher = {G. P. Putnam},
396+ location = {New York},
397+ keywords = {primary},
398+ langid = {english},
399+ langidopts = {variant=american},
400+ shorttitle = {Physics},
401+ annotation = {A \texttt{book} entry with a \texttt{translator} field},
402+}
403+
404+@book{aristotle:poetics,
405+ author = {Aristotle},
406+ title = {Poetics},
407+ date = 1968,
408+ editor = {Lucas, D. W.},
409+ series = {Clarendon {Aristotle}},
410+ publisher = {Clarendon Press},
411+ location = {Oxford},
412+ keywords = {primary},
413+ langid = {english},
414+ langidopts = {variant=british},
415+ shorttitle = {Poetics},
416+ annotation = {A \texttt{book} entry with an \texttt{author} and an
417+ \texttt{editor} as well as a \texttt{series} field},
418+}
419+
420+@book{aristotle:rhetoric,
421+ author = {Aristotle},
422+ title = {The Rhetoric of {Aristotle} with a commentary by the late {Edward
423+ Meredith Cope}},
424+ date = 1877,
425+ editor = {Cope, Edward Meredith},
426+ commentator = {Cope, Edward Meredith},
427+ volumes = 3,
428+ publisher = cup,
429+ keywords = {primary},
430+ langid = {english},
431+ langidopts = {variant=british},
432+ sorttitle = {Rhetoric of Aristotle},
433+ indextitle = {Rhetoric of {Aristotle}, The},
434+ shorttitle = {Rhetoric},
435+ annotation = {A commented edition. Note the concatenation of the
436+ \texttt{editor} and \texttt{commentator} fields as well as the
437+ \texttt{volumes}, \texttt{sorttitle}, and \texttt{indextitle}
438+ fields},
439+}
440+
441+@book{augustine,
442+ author = {Augustine, Robert L.},
443+ title = {Heterogeneous catalysis for the synthetic chemist},
444+ date = 1995,
445+ publisher = {Marcel Dekker},
446+ location = {New York},
447+ langid = {english},
448+ langidopts = {variant=american},
449+ shorttitle = {Heterogeneous catalysis},
450+ annotation = {A plain \texttt{book} entry},
451+}
452+
453+@book{averroes/bland,
454+ author = {Averroes},
455+ title = {The Epistle on the Possibility of Conjunction with the Active
456+ Intellect by {Ibn Rushd} with the Commentary of {Moses Narboni}},
457+ date = 1982,
458+ editor = {Bland, Kalman P.},
459+ translator = {Bland, Kalman P.},
460+ series = {Moreshet: Studies in {Jewish} History, Literature and Thought},
461+ number = 7,
462+ publisher = {Jewish Theological Seminary of America},
463+ location = {New York},
464+ keywords = {primary},
465+ langid = {english},
466+ langidopts = {variant=american},
467+ indextitle = {Epistle on the Possibility of Conjunction, The},
468+ shorttitle = {Possibility of Conjunction},
469+ annotation = {A \texttt{book} entry with a \texttt{series} and a
470+ \texttt{number}. Note the concatenation of the \texttt{editor}
471+ and \texttt{translator} fields as well as the
472+ \texttt{indextitle} field},
473+}
474+
475+@book{averroes/hannes,
476+ author = {Averroes},
477+ title = {Des Averro{\"e}s Abhandlung: \mkbibquote{{\"U}ber die
478+ M{\"o}glichkeit der Conjunktion} oder \mkbibquote{{\"U}ber den
479+ materiellen Intellekt}},
480+ date = 1892,
481+ editor = {Hannes, Ludwig},
482+ translator = {Hannes, Ludwig},
483+ annotator = {Hannes, Ludwig},
484+ publisher = {C.~A. Kaemmerer},
485+ location = {Halle an der Saale},
486+ keywords = {primary},
487+ langid = {german},
488+ sorttitle = {Uber die Moglichkeit der Conjunktion},
489+ indexsorttitle= {Uber die Moglichkeit der Conjunktion},
490+ indextitle = {{\"U}ber die M{\"o}glichkeit der Conjunktion},
491+ shorttitle = {{\"U}ber die M{\"o}glichkeit der Conjunktion},
492+ annotation = {An annotated edition. Note the concatenation of the
493+ \texttt{editor}, \texttt{translator}, and \texttt{annotator}
494+ fields. Also note the \texttt{shorttitle},
495+ \texttt{indextitle}, \texttt{sorttitle}, and
496+ \texttt{indexsorttitle} fields},
497+}
498+
499+@book{averroes/hercz,
500+ author = {Averroes},
501+ title = {Drei Abhandlungen {\"u}ber die Conjunction des separaten
502+ Intellects mit dem Menschen},
503+ date = 1869,
504+ editor = {Hercz, J.},
505+ translator = {Hercz, J.},
506+ publisher = {S.~Hermann},
507+ location = {Berlin},
508+ keywords = {primary},
509+ langid = {german},
510+ indexsorttitle= {Drei Abhandlungen uber die Conjunction},
511+ indextitle = {Drei Abhandlungen {\"u}ber die Conjunction},
512+ subtitle = {Von Averroes (Vater und Sohn), aus dem Arabischen
513+ {\"u}bersetzt von Samuel Ibn Tibbon},
514+ shorttitle = {Drei Abhandlungen},
515+ annotation = {A \texttt{book} entry. Note the concatenation of the
516+ \texttt{editor} and \texttt{translator} fields as well as the
517+ \texttt{indextitle} and \texttt{indexsorttitle} fields},
518+}
519+
520+@book{cicero,
521+ author = {Cicero, Marcus Tullius},
522+ title = {De natura deorum. {\"U}ber das Wesen der G{\"o}tter},
523+ date = 1995,
524+ editor = {Blank-Sangmeister, Ursula},
525+ translator = {Blank-Sangmeister, Ursula},
526+ afterword = {Thraede, Klaus},
527+ language = {langlatin and langgerman},
528+ publisher = {Reclam},
529+ location = {Stuttgart},
530+ langid = {german},
531+ indextitle = {De natura deorum},
532+ shorttitle = {De natura deorum},
533+ annotation = {A bilingual edition of Cicero's \emph{De natura deorum}, with
534+ a German translation. Note the format of the \texttt{language}
535+ field in the database file, the concatenation of the
536+ \texttt{editor} and \texttt{translator} fields, and the
537+ \texttt{afterword} field},
538+}
539+
540+@book{coleridge,
541+ author = {Coleridge, Samuel Taylor},
542+ title = {Biographia literaria, or {Biographical} sketches of my literary
543+ life and opinions},
544+ date = 1983,
545+ editor = {Coburn, Kathleen and Engell, James and Bate, W. Jackson},
546+ maintitle = {The collected works of {Samuel Taylor Coleridge}},
547+ volume = 7,
548+ part = 2,
549+ series = {Bollingen Series},
550+ number = 75,
551+ publisher = {Routledge {and} Kegan Paul},
552+ location = {London},
553+ langid = {english},
554+ langidopts = {variant=british},
555+ indextitle = {Biographia literaria},
556+ shorttitle = {Biographia literaria},
557+ annotation = {One (partial) volume of a multivolume book. This is a
558+ \texttt{book} entry with a \texttt{volume} and a \texttt{part}
559+ field which explicitly refers to the second (physical) part of
560+ the seventh (logical) volume. Also note the \texttt{series}
561+ and \texttt{number} fields},
562+}
563+
564+@book{companion,
565+ author = {Goossens, Michel and Mittelbach, Frank and Samarin, Alexander},
566+ title = {The {LaTeX} Companion},
567+ date = 1994,
568+ edition = 1,
569+ publisher = {Addison-Wesley},
570+ location = {Reading, Mass.},
571+ pagetotal = 528,
572+ langid = {english},
573+ langidopts = {variant=american},
574+ sorttitle = {LaTeX Companion},
575+ indextitle = {LaTeX Companion, The},
576+ shorttitle = {LaTeX Companion},
577+ annotation = {A book with three authors. Note the formatting of the author
578+ list. By default, only the first name is reversed in the
579+ bibliography},
580+}
581+
582+@book{cotton,
583+ author = {Cotton, Frank Albert and Wilkinson, Geoffrey and Murillio,
584+ Carlos A. and Bochmann, Manfred},
585+ title = {Advanced inorganic chemistry},
586+ date = 1999,
587+ edition = 6,
588+ publisher = {Wiley},
589+ location = {Chichester},
590+ langid = {english},
591+ langidopts = {variant=british},
592+ annotation = {A \texttt{book} entry with \arabic{author} authors and an
593+ \texttt{edition} field. By default, long \texttt{author} and
594+ \texttt{editor} lists are automatically truncated. This is
595+ configurable},
596+}
597+
598+@book{gerhardt,
599+ author = {Gerhardt, Michael J.},
600+ title = {The Federal Appointments Process},
601+ date = 2000,
602+ publisher = {Duke University Press},
603+ location = {Durham and London},
604+ langid = {english},
605+ langidopts = {variant=american},
606+ sorttitle = {Federal Appointments Process},
607+ indextitle = {Federal Appointments Process, The},
608+ subtitle = {A Constitutional and Historical Analysis},
609+ shorttitle = {Federal Appointments Process},
610+ annotation = {This is a \texttt{book} entry. Note the format of the
611+ \texttt{location} field as well as the \texttt{sorttitle} and
612+ \texttt{indextitle} fields},
613+}
614+
615+@book{gonzalez,
616+ author = {Gonzalez, Ray},
617+ title = {The Ghost of {John Wayne} and Other Stories},
618+ date = 2001,
619+ publisher = {The University of Arizona Press},
620+ location = {Tucson},
621+ isbn = {0-816-52066-6},
622+ langid = {english},
623+ langidopts = {variant=american},
624+ sorttitle = {Ghost of John Wayne and Other Stories},
625+ indextitle = {Ghost of {John Wayne} and Other Stories, The},
626+ shorttitle = {Ghost of {John Wayne}},
627+ annotation = {A collection of short stories. This is a \texttt{book} entry.
628+ Note the \texttt{sorttitle} and \texttt{indextitle} fields in
629+ the database file. There's also an \texttt{isbn} field},
630+}
631+
632+@book{hammond,
633+ author = {Hammond, Christopher},
634+ title = {The basics of crystallography and diffraction},
635+ date = 1997,
636+ publisher = {International Union of Crystallography and Oxford University
637+ Press},
638+ location = {Oxford},
639+ langid = {english},
640+ langidopts = {variant=british},
641+ sorttitle = {Basics of crystallography and diffraction},
642+ indextitle = {Basics of crystallography and diffraction, The},
643+ shorttitle = {Crystallography and diffraction},
644+ annotation = {A \texttt{book} entry. Note the \texttt{sorttitle} and
645+ \texttt{indextitle} fields as well as the format of the
646+ \texttt{publisher} field},
647+}
648+
649+@book{iliad,
650+ author = {Homer},
651+ title = {Die Ilias},
652+ date = 2004,
653+ translator = {Schadewaldt, Wolfgang},
654+ introduction = {Latacz, Joachim},
655+ edition = 3,
656+ publisher = {Artemis \& Winkler},
657+ location = {D{\"u}sseldorf and Z{\"u}rich},
658+ langid = {german},
659+ sorttitle = {Ilias},
660+ indextitle = {Ilias, Die},
661+ shorttitle = {Ilias},
662+ annotation = {A German translation of the \emph{Iliad}. Note the
663+ \texttt{translator} and \texttt{introduction} fields and the
664+ format of the \texttt{location} field in the database
665+ file. Also note the \texttt{sorttitle} and \texttt{indextitle}
666+ fields},
667+}
668+
669+@book{knuth:ct,
670+ author = {Knuth, Donald E.},
671+ title = {Computers \& Typesetting},
672+ date = {1984/1986},
673+ volumes = 5,
674+ publisher = {Addison-Wesley},
675+ location = {Reading, Mass.},
676+ langid = {english},
677+ langidopts = {variant=american},
678+ sortyear = {1984-0},
679+ sorttitle = {Computers & Typesetting},
680+ indexsorttitle= {Computers & Typesetting},
681+ annotation = {A five-volume book cited as a whole. This is a \texttt{book}
682+ entry, note the \texttt{volumes} field},
683+}
684+
685+@book{knuth:ct:a,
686+ author = {Knuth, Donald E.},
687+ title = {The {\TeX} book},
688+ date = 1984,
689+ maintitle = {Computers \& Typesetting},
690+ volume = {A},
691+ publisher = {Addison-Wesley},
692+ location = {Reading, Mass.},
693+ langid = {english},
694+ langidopts = {variant=american},
695+ sortyear = {1984-1},
696+ sorttitle = {Computers & Typesetting A},
697+ indexsorttitle= {The TeXbook},
698+ indextitle = {\protect\TeX book, The},
699+ shorttitle = {\TeX book},
700+ annotation = {The first volume of a five-volume book. Note the
701+ \texttt{sorttitle} and \texttt{sortyear} fields. We want this
702+ volume to be listed after the entry referring to the entire
703+ five-volume set. Also note the \texttt{indextitle} and
704+ \texttt{indexsorttitle} fields. Indexing packages that don't
705+ generate robust index entries require some control sequences
706+ to be protected from expansion},
707+}
708+
709+@book{knuth:ct:b,
710+ author = {Knuth, Donald E.},
711+ title = {\TeX: The Program},
712+ date = 1986,
713+ maintitle = {Computers \& Typesetting},
714+ volume = {B},
715+ publisher = {Addison-Wesley},
716+ location = {Reading, Mass.},
717+ langid = {english},
718+ langidopts = {variant=american},
719+ sortyear = {1986-1},
720+ sorttitle = {Computers & Typesetting B},
721+ indexsorttitle= {TeX: The Program},
722+ shorttitle = {\TeX},
723+ annotation = {The second volume of a five-volume book. Note the
724+ \texttt{sorttitle} and \texttt{sortyear} fields. Also note the
725+ \texttt{indexsorttitle} field},
726+}
727+
728+@book{knuth:ct:c,
729+ author = {Knuth, Donald E.},
730+ title = {The {METAFONTbook}},
731+ date = 1986,
732+ maintitle = {Computers \& Typesetting},
733+ volume = {C},
734+ publisher = {Addison-Wesley},
735+ location = {Reading, Mass.},
736+ langid = {english},
737+ langidopts = {variant=american},
738+ sortyear = {1986-2},
739+ sorttitle = {Computers & Typesetting C},
740+ indextitle = {METAFONTbook, The},
741+ shorttitle = {METAFONTbook},
742+ annotation = {The third volume of a five-volume book. Note the
743+ \texttt{sorttitle} and \texttt{sortyear} fields as well as the
744+ \texttt{indextitle} field},
745+}
746+
747+@book{knuth:ct:d,
748+ author = {Knuth, Donald E.},
749+ title = {METAFONT: The Program},
750+ date = 1986,
751+ maintitle = {Computers \& Typesetting},
752+ volume = {D},
753+ publisher = {Addison-Wesley},
754+ location = {Reading, Mass.},
755+ langid = {english},
756+ langidopts = {variant=american},
757+ sortyear = {1986-3},
758+ sorttitle = {Computers & Typesetting D},
759+ shorttitle = {METAFONT},
760+ annotation = {The fourth volume of a five-volume book. Note the
761+ \texttt{sorttitle} and \texttt{sortyear} fields},
762+}
763+
764+@book{knuth:ct:e,
765+ author = {Knuth, Donald E.},
766+ title = {{Computer Modern} Typefaces},
767+ date = 1986,
768+ maintitle = {Computers \& Typesetting},
769+ volume = {E},
770+ publisher = {Addison-Wesley},
771+ location = {Reading, Mass.},
772+ langid = {english},
773+ langidopts = {variant=american},
774+ sortyear = {1986-4},
775+ sorttitle = {Computers & Typesetting E},
776+ annotation = {The fifth volume of a five-volume book. Note the
777+ \texttt{sorttitle} and \texttt{sortyear} fields},
778+}
779+
780+@book{knuth:ct:related,
781+ author = {Knuth, Donald E.},
782+ title = {Computers \& Typesetting},
783+ date = {1984/1986},
784+ volumes = 5,
785+ publisher = {Addison-Wesley},
786+ location = {Reading, Mass.},
787+ langid = {english},
788+ langidopts = {variant=american},
789+ sortyear = {1984-0},
790+ sorttitle = {Computers & Typesetting},
791+ indexsorttitle= {Computers & Typesetting},
792+ related = {knuth:ct:a,knuth:ct:b,knuth:ct:c,knuth:ct:d,knuth:ct:e},
793+ relatedtype = {multivolume},
794+ annotation = {A five-volume book cited as a whole and related to its
795+ individual volumes. Note the \texttt{related} and
796+ \texttt{relatedtype} fields},
797+}
798+
799+@book{kullback,
800+ author = {Kullback, Solomon},
801+ title = {Information Theory and Statistics},
802+ year = 1959,
803+ publisher = {John Wiley \& Sons},
804+ location = {New York},
805+ langid = {english},
806+ langidopts = {variant=american},
807+}
808+
809+@book{kullback:reprint,
810+ author = {Kullback, Solomon},
811+ title = {Information Theory and Statistics},
812+ year = 1997,
813+ publisher = {Dover Publications},
814+ location = {New York},
815+ origyear = 1959,
816+ origpublisher= {John Wiley \& Sons},
817+ langid = {english},
818+ langidopts = {variant=american},
819+ annotation = {A reprint of the \texttt{kullback} entry. Note the format of
820+ \texttt{origyear} and \texttt{origpublisher}. These fields are
821+ not used by the standard bibliography styles},
822+}
823+
824+@book{kullback:related,
825+ author = {Kullback, Solomon},
826+ title = {Information Theory and Statistics},
827+ year = 1997,
828+ publisher = {Dover Publications},
829+ location = {New York},
830+ langid = {english},
831+ langidopts = {variant=american},
832+ related = {kullback},
833+ relatedtype = {origpubin},
834+ annotation = {A reprint of the \texttt{kullback} entry. Note the format of
835+ the \texttt{related} and \texttt{relatedtype} fields},
836+}
837+
838+@book{malinowski,
839+ author = {Malinowski, Bronis{\l}aw},
840+ title = {Argonauts of the {Western Pacific}},
841+ date = 1972,
842+ edition = 8,
843+ publisher = {Routledge {and} Kegan Paul},
844+ location = {London},
845+ langid = {english},
846+ langidopts = {variant=british},
847+ subtitle = {An account of native enterprise and adventure in the
848+ Archipelagoes of {Melanesian New Guinea}},
849+ shorttitle = {Argonauts},
850+ annotation = {This is a \texttt{book} entry. Note the format of the
851+ \texttt{publisher} and \texttt{edition} fields as well as the
852+ \texttt{subtitle} field},
853+}
854+
855+@book{maron,
856+ author = {Maron, Monika},
857+ title = {Animal Triste},
858+ date = 2000,
859+ translator = {Brigitte Goldstein},
860+ origlanguage = {german},
861+ publisher = {University of Nebraska Press},
862+ location = {Lincoln},
863+ langid = {english},
864+ langidopts = {variant=american},
865+ shorttitle = {Animal Triste},
866+ annotation = {An English translation of a German novel with a French title.
867+ In other words: a \texttt{book} entry with a
868+ \texttt{translator} field. Note the \texttt{origlanguage}
869+ field which is concatenated with the \texttt{translator}},
870+}
871+
872+@book{massa,
873+ author = {Werner Massa},
874+ title = {Crystal structure determination},
875+ date = 2004,
876+ edition = 2,
877+ publisher = {Spinger},
878+ location = {Berlin},
879+ langid = {english},
880+ langidopts = {variant=british},
881+ annotation = {A \texttt{book} entry with an \texttt{edition} field},
882+}
883+
884+@article{moore,
885+ author = {Moore, Gordon E.},
886+ title = {Cramming more components onto integrated circuits},
887+ journaltitle = {Electronics},
888+ year = 1965,
889+ volume = 38,
890+ number = 8,
891+ pages = {114-117},
892+ langid = {english},
893+ langidopts = {variant=american},
894+}
895+
896+@article{moore:related,
897+ author = {Moore, Gordon E.},
898+ title = {Cramming more components onto integrated circuits},
899+ journaltitle = {Proceedings of the {IEEE}},
900+ year = 1998,
901+ volume = 86,
902+ number = 1,
903+ pages = {82-85},
904+ langid = {english},
905+ langidopts = {variant=american},
906+ related = {moore},
907+ relatedtype = {reprintfrom},
908+ annotation = {A reprint of Moore's law. Note the \texttt{related} and
909+ \texttt{relatedtype} fields},
910+}
911+
912+@book{nietzsche:ksa,
913+ author = {Nietzsche, Friedrich},
914+ title = {S{\"a}mtliche Werke},
915+ date = 1988,
916+ editor = {Colli, Giorgio and Montinari, Mazzino},
917+ edition = 2,
918+ volumes = 15,
919+ publisher = dtv # { and Walter de Gruyter},
920+ location = {M{\"u}nchen and Berlin and New York},
921+ langid = {german},
922+ sortyear = {1988-0},
923+ sorttitle = {Werke-00-000},
924+ indexsorttitle= {Samtliche Werke},
925+ subtitle = {Kritische Studienausgabe},
926+ annotation = {The critical edition of Nietzsche's works. This is a
927+ \texttt{book} entry referring to a 15-volume work as a
928+ whole. Note the \texttt{volumes} field and the format of the
929+ \texttt{publisher} and \texttt{location} fields in the
930+ database file. Also note the \texttt{sorttitle} and
931+ \texttt{sortyear} fields which are used to fine-tune the
932+ sorting order of the bibliography. We want this item listed
933+ first in the bibliography},
934+}
935+
936+@book{nietzsche:ksa1,
937+ author = {Nietzsche, Friedrich},
938+ title = {Die Geburt der Trag{\"o}die. Unzeitgem{\"a}{\ss}e
939+ Betrachtungen I--IV. Nachgelassene Schriften 1870--1973},
940+ date = 1988,
941+ editor = {Colli, Giorgio and Montinari, Mazzino},
942+ maintitle = {S{\"a}mtliche Werke},
943+ mainsubtitle = {Kritische Studienausgabe},
944+ volume = 1,
945+ edition = 2,
946+ publisher = dtv # { and Walter de Gruyter},
947+ location = {M{\"u}nchen and Berlin and New York},
948+ langid = {german},
949+ sortyear = {1988-1},
950+ sorttitle = {Werke-01-000},
951+ indexsorttitle= {Samtliche Werke I},
952+ bookauthor = {Nietzsche, Friedrich},
953+ indextitle = {S{\"a}mtliche Werke I},
954+ shorttitle = {S{\"a}mtliche Werke I},
955+ annotation = {A single volume from the critical edition of Nietzsche's
956+ works. This \texttt{book} entry explicitly refers to the first
957+ volume only. Note the \texttt{title} and \texttt{maintitle}
958+ fields. Also note the \texttt{sorttitle} and \texttt{sortyear}
959+ fields. We want this entry to be listed after the entry
960+ referring to the entire edition},
961+}
962+
963+@book{nussbaum,
964+ author = {Nussbaum, Martha},
965+ title = {Aristotle's \mkbibquote{De Motu Animalium}},
966+ date = 1978,
967+ publisher = pup,
968+ location = {Princeton},
969+ keywords = {secondary},
970+ langid = {english},
971+ langidopts = {variant=american},
972+ sorttitle = {Aristotle's De Motu Animalium},
973+ indexsorttitle= {Aristotle's De Motu Animalium},
974+ annotation = {A \texttt{book} entry. Note the \texttt{sorttitle} and
975+ \texttt{indexsorttitle} fields and the markup of the quotes in
976+ the database file},
977+}
978+
979+@book{piccato,
980+ author = {Piccato, Pablo},
981+ title = {City of Suspects},
982+ date = 2001,
983+ publisher = {Duke University Press},
984+ location = {Durham and London},
985+ langid = {english},
986+ langidopts = {variant=american},
987+ subtitle = {Crime in {Mexico City}, 1900--1931},
988+ shorttitle = {City of Suspects},
989+ annotation = {This is a \texttt{book} entry. Note the format of the
990+ \texttt{location} field in the database file},
991+}
992+
993+@book{vangennep,
994+ author = {van Gennep, Arnold},
995+ title = {Les rites de passage},
996+ date = 1909,
997+ publisher = {Nourry},
998+ location = {Paris},
999+ options = {useprefix},
1000+ langid = {french},
1001+ sorttitle = {Rites de passage},
1002+ indextitle = {Rites de passage, Les},
1003+ shorttitle = {Rites de passage},
1004+ annotation = {A \texttt{book} entry. Note the format of the printed name and
1005+ compare the \texttt{useprefix} option in the \texttt{options}
1006+ field as well as \texttt{brandt} and \texttt{geer}},
1007+}
1008+
1009+@book{vangennep:trans,
1010+ author = {van Gennep, Arnold},
1011+ title = {The Rites of Passage},
1012+ year = 1960,
1013+ translator = {Vizedom, Monika B. and Caffee, Gabrielle L.},
1014+ language = {english},
1015+ origlanguage = {french},
1016+ publisher = {University of Chicago Press},
1017+ options = {useprefix},
1018+ indextitle = {Rites of Passage, The},
1019+ sorttitle = {Rites of Passage},
1020+ shorttitle = {Rites of Passage},
1021+ langid = {english},
1022+ langidopts = {variant=american},
1023+ annotation = {A translation of the \texttt{vangennep} entry. Note the
1024+ \texttt{translator} and \texttt{origlanguage} fields. Compare
1025+ with the \texttt{vangennep:related} entry.},
1026+}
1027+
1028+@book{vangennep:related,
1029+ author = {van Gennep, Arnold},
1030+ title = {Les rites de passage},
1031+ date = 1909,
1032+ publisher = {Nourry},
1033+ location = {Paris},
1034+ options = {useprefix},
1035+ langid = {french},
1036+ related = {vizedom:related},
1037+ relatedtype = {bytranslator},
1038+ sorttitle = {Rites de passage},
1039+ indextitle = {Rites de passage, Les},
1040+ shorttitle = {Rites de passage},
1041+ annotation = {A variant of the \texttt{vangennep} entry related to its
1042+ translation. Note the format of the \texttt{related} and
1043+ \texttt{relatedtype} fields},
1044+}
1045+
1046+@book{vizedom:related,
1047+ title = {The Rites of Passage},
1048+ year = 1960,
1049+ translator = {Vizedom, Monika B. and Caffee, Gabrielle L.},
1050+ language = {english},
1051+ publisher = {University of Chicago Press},
1052+ langid = {english},
1053+ langidopts = {variant=american},
1054+ options = {usetranslator},
1055+ related = {vangennep},
1056+ relatedtype = {translationof},
1057+ indextitle = {Rites of Passage, The},
1058+ sorttitle = {Rites of Passage},
1059+ shorttitle = {Rites of Passage},
1060+ annotation = {A translated work from \texttt{vangennep}. Note the format of
1061+ the \texttt{related} and \texttt{relatedtype} fields},
1062+}
1063+
1064+@book{vazques-de-parga,
1065+ author = {V{\'a}zques{ de }Parga, Luis and Lacarra, Jos{\'e} Mar{\'i}a
1066+ and Ur{\'i}a R{\'i}u, Juan},
1067+ title = {Las Peregrinaciones a Santiago de Compostela},
1068+ date = 1993,
1069+ volumes = 3,
1070+ note = {Ed. facs. de la realizada en 1948--49},
1071+ publisher = {Iberdrola},
1072+ location = {Pamplona},
1073+ langid = {spanish},
1074+ sorttitle = {Peregrinaciones a Santiago de Compostela},
1075+ indextitle = {Peregrinaciones a Santiago de Compostela, Las},
1076+ shorttitle = {Peregrinaciones},
1077+ annotation = {A multivolume book cited as a whole. This is a \texttt{book}
1078+ entry with \texttt{volumes}, \texttt{note},
1079+ \texttt{sorttitle}, and \texttt{indextitle} fields},
1080+}
1081+
1082+@book{wilde,
1083+ author = {Wilde, Oscar},
1084+ title = {The Importance of Being Earnest: A Trivial Comedy for Serious
1085+ People},
1086+ year = 1899,
1087+ series = {English and {American} drama of the Nineteenth Century},
1088+ publisher = {Leonard Smithers {and} Company},
1089+ eprint = {4HIWAAAAYAAJ},
1090+ eprinttype = {googlebooks},
1091+ annotation = {A \texttt{book} with \texttt{eprint} and \texttt{eprinttype}
1092+ fields.},
1093+}
1094+
1095+@book{worman,
1096+ author = {Worman, Nancy},
1097+ title = {The Cast of Character},
1098+ date = 2002,
1099+ publisher = {University of Texas Press},
1100+ location = {Austin},
1101+ langid = {english},
1102+ langidopts = {variant=american},
1103+ sorttitle = {Cast of Character},
1104+ indextitle = {Cast of Character, The},
1105+ subtitle = {Style in {Greek} Literature},
1106+ shorttitle = {Cast of Character},
1107+ annotation = {A \texttt{book} entry. Note the \texttt{sorttitle} and
1108+ \texttt{indextitle} fields},
1109+}
1110+
1111+@collection{britannica,
1112+ editor = {Preece, Warren E.},
1113+ title = {The {New Encyclop{\ae}dia Britannica}},
1114+ date = 2003,
1115+ edition = 15,
1116+ volumes = 32,
1117+ publisher = {Encyclop{\ae}dia Britannica},
1118+ location = {Chicago, Ill.},
1119+ options = {useeditor=false},
1120+ label = {EB},
1121+ langid = {english},
1122+ langidopts = {variant=british},
1123+ sorttitle = {Encyclop{\ae}dia Britannica},
1124+ indextitle = {{Encyclop{\ae}dia Britannica}, The {New}},
1125+ shorttitle = {{Encyclop{\ae}dia Britannica}},
1126+ annotation = {This is a \texttt{collection} entry for an encyclopedia. Note
1127+ the \texttt{useeditor} option in the \texttt{options} field as
1128+ well as the \texttt{sorttitle} field. We want this entry to be
1129+ cited and alphabetized by title even though there is an
1130+ editor. In addition to that, we want the title to be
1131+ alphabetized under \enquote*{E} rather than \enquote*{T}. Also
1132+ note the \texttt{label} field which is provided for
1133+ author-year citation styles},
1134+}
1135+
1136+@collection{gaonkar,
1137+ editor = {Gaonkar, Dilip Parameshwar},
1138+ title = {Alternative Modernities},
1139+ date = 2001,
1140+ publisher = {Duke University Press},
1141+ location = {Durham and London},
1142+ isbn = {0-822-32714-7},
1143+ langid = {english},
1144+ langidopts = {variant=american},
1145+ annotation = {This is a \texttt{collection} entry. Note the format of the
1146+ \texttt{location} field in the database file as well as the
1147+ \texttt{isbn} field},
1148+}
1149+
1150+@InCollection{gaonkar:in,
1151+ author = {Gaonkar, Dilip Parameshwar},
1152+ editor = {Gaonkar, Dilip Parameshwar},
1153+ title = {On Alternative Modernities},
1154+ date = 2001,
1155+ booktitle = {Alternative Modernities},
1156+ publisher = {Duke University Press},
1157+ location = {Durham and London},
1158+ isbn = {0-822-32714-7},
1159+ pages = {1-23},
1160+}
1161+
1162+@collection{jaffe,
1163+ editor = {Jaff{\'e}, Philipp},
1164+ title = {Regesta Pontificum Romanorum ab condita ecclesia ad annum post
1165+ Christum natum \textsc{mcxcviii}},
1166+ date = {1885/1888},
1167+ editora = {Loewenfeld, Samuel and Kaltenbrunner, Ferdinand and Ewald,
1168+ Paul},
1169+ edition = 2,
1170+ volumes = 2,
1171+ location = {Leipzig},
1172+ langid = {latin},
1173+ editoratype = {redactor},
1174+ indextitle = {Regesta Pontificum Romanorum},
1175+ shorttitle = {Regesta Pontificum Romanorum},
1176+ annotation = {A \texttt{collection} entry with \texttt{edition} and
1177+ \texttt{volumes} fields. Note the \texttt{editora} and
1178+ \texttt{editoratype} fields},
1179+}
1180+
1181+@collection{westfahl:frontier,
1182+ editor = {Westfahl, Gary},
1183+ title = {Space and Beyond},
1184+ date = 2000,
1185+ subtitle = {The Frontier Theme in Science Fiction},
1186+ publisher = {Greenwood},
1187+ location = {Westport, Conn. and London},
1188+ langid = {english},
1189+ langidopts = {variant=american},
1190+ booktitle = {Space and Beyond},
1191+ booksubtitle = {The Frontier Theme in Science Fiction},
1192+ annotation = {This is a \texttt{collection} entry. Note the format of the
1193+ \texttt{location} field as well as the \texttt{subtitle} and
1194+ \texttt{booksubtitle} fields},
1195+}
1196+
1197+@inbook{kant:kpv,
1198+ title = {Kritik der praktischen Vernunft},
1199+ date = 1968,
1200+ author = {Kant, Immanuel},
1201+ booktitle = {Kritik der praktischen Vernunft. Kritik der Urtheilskraft},
1202+ bookauthor = {Kant, Immanuel},
1203+ maintitle = {Kants Werke. Akademie Textausgabe},
1204+ volume = 5,
1205+ publisher = {Walter de Gruyter},
1206+ location = {Berlin},
1207+ pages = {1-163},
1208+ shorthand = {KpV},
1209+ langid = {german},
1210+ shorttitle = {Kritik der praktischen Vernunft},
1211+ annotation = {An edition of Kant's \emph{Collected Works}, volume five. This
1212+ is an \texttt{inbook} entry which explicitly refers to the
1213+ \emph{Critique of Practical Reason} only, not to the entire
1214+ fifth volume. Note the \texttt{author} and \texttt{bookauthor}
1215+ fields in the database file. By default, the
1216+ \texttt{bookauthor} is omitted if the values of the
1217+ \texttt{author} and \texttt{bookauthor} fields are identical},
1218+}
1219+
1220+@inbook{kant:ku,
1221+ title = {Kritik der Urtheilskraft},
1222+ date = 1968,
1223+ author = {Kant, Immanuel},
1224+ booktitle = {Kritik der praktischen Vernunft. Kritik der Urtheilskraft},
1225+ bookauthor = {Kant, Immanuel},
1226+ maintitle = {Kants Werke. Akademie Textausgabe},
1227+ volume = 5,
1228+ publisher = {Walter de Gruyter},
1229+ location = {Berlin},
1230+ pages = {165-485},
1231+ shorthand = {KU},
1232+ langid = {german},
1233+ annotation = {An edition of Kant's \emph{Collected Works}, volume five. This
1234+ is an \texttt{inbook} entry which explicitly refers to the
1235+ \emph{Critique of Judgment} only, not to the entire fifth
1236+ volume},
1237+}
1238+
1239+@inbook{nietzsche:historie,
1240+ title = {Unzeitgem{\"a}sse Betrachtungen. Zweites St{\"u}ck},
1241+ date = 1988,
1242+ author = {Nietzsche, Friedrich},
1243+ booktitle = {Die Geburt der Trag{\"o}die. Unzeitgem{\"a}{\ss}e
1244+ Betrachtungen I--IV. Nachgelassene Schriften 1870--1973},
1245+ bookauthor = {Nietzsche, Friedrich},
1246+ editor = {Colli, Giorgio and Montinari, Mazzino},
1247+ subtitle = {Vom Nutzen und Nachtheil der Historie f{\"u}r das Leben},
1248+ maintitle = {S{\"a}mtliche Werke},
1249+ mainsubtitle = {Kritische Studienausgabe},
1250+ volume = 1,
1251+ publisher = dtv # { and Walter de Gruyter},
1252+ location = {M{\"u}nchen and Berlin and New York},
1253+ pages = {243-334},
1254+ langid = {german},
1255+ sortyear = {1988-2},
1256+ sorttitle = {Werke-01-243},
1257+ indexsorttitle= {Vom Nutzen und Nachtheil der Historie fur das Leben},
1258+ indextitle = {Vom Nutzen und Nachtheil der Historie f{\"u}r das Leben},
1259+ shorttitle = {Vom Nutzen und Nachtheil der Historie},
1260+ annotation = {A single essay from the critical edition of Nietzsche's works.
1261+ This \texttt{inbook} entry explicitly refers to an essay found
1262+ in the first volume. Note the \texttt{title},
1263+ \texttt{booktitle}, and \texttt{maintitle} fields. Also note
1264+ the \texttt{sorttitle} and \texttt{sortyear} fields. We want
1265+ this entry to be listed after the entry referring to the
1266+ entire first volume},
1267+}
1268+
1269+@incollection{brandt,
1270+ author = {von Brandt, Ahasver and Erich Hoffmann},
1271+ editor = {Ferdinand Seibt},
1272+ title = {Die nordischen L{\"a}nder von der Mitte des 11.~Jahrhunderts
1273+ bis 1448},
1274+ date = 1987,
1275+ booktitle = {Europa im Hoch- und Sp{\"a}tmittelalter},
1276+ series = {Handbuch der europ{\"a}ischen Geschichte},
1277+ number = 2,
1278+ publisher = {Klett-Cotta},
1279+ location = {Stuttgart},
1280+ pages = {884-917},
1281+ options = {useprefix=false},
1282+ langid = {german},
1283+ indexsorttitle= {Nordischen Lander von der Mitte des 11. Jahrhunderts bis
1284+ 1448},
1285+ indextitle = {Nordischen L{\"a}nder von der Mitte des 11.~Jahrhunderts bis
1286+ 1448, Die},
1287+ shorttitle = {Die nordischen L{\"a}nder},
1288+ annotation = {An \texttt{incollection} entry with a \texttt{series} and a
1289+ \texttt{number}. Note the format of the printed name and
1290+ compare the \texttt{useprefix} option in the \texttt{options}
1291+ field as well as \texttt{vangennep}. Also note the
1292+ \texttt{indextitle, and \texttt{indexsorttitle} fields}},
1293+}
1294+
1295+@incollection{hyman,
1296+ author = {Arthur Hyman},
1297+ editor = {O'Meara, Dominic J.},
1298+ title = {Aristotle's Theory of the Intellect and its Interpretation by
1299+ {Averroes}},
1300+ date = 1981,
1301+ booktitle = {Studies in {Aristotle}},
1302+ series = {Studies in Philosophy and the History of Philosophy},
1303+ number = 9,
1304+ publisher = {The Catholic University of America Press},
1305+ location = {Washington, D.C.},
1306+ pages = {161-191},
1307+ keywords = {secondary},
1308+ langid = {english},
1309+ langidopts = {variant=american},
1310+ indextitle = {Aristotle's Theory of the Intellect},
1311+ shorttitle = {Aristotle's Theory of the Intellect},
1312+ annotation = {An \texttt{incollection} entry with a \texttt{series} and
1313+ \texttt{number} field},
1314+}
1315+
1316+@incollection{pines,
1317+ author = {Pines, Shlomo},
1318+ editor = {Twersky, Isadore},
1319+ title = {The Limitations of Human Knowledge According to {Al-Farabi}, {ibn
1320+ Bajja}, and {Maimonides}},
1321+ date = 1979,
1322+ booktitle = {Studies in Medieval {Jewish} History and Literature},
1323+ publisher = hup,
1324+ location = {Cambridge, Mass.},
1325+ pages = {82-109},
1326+ keywords = {secondary},
1327+ langid = {english},
1328+ langidopts = {variant=american},
1329+ indextitle = {Limitations of Human Knowledge According to {Al-Farabi}, {ibn
1330+ Bajja}, and {Maimonides}, The},
1331+ shorttitle = {Limitations of Human Knowledge},
1332+ annotation = {A typical \texttt{incollection} entry. Note the
1333+ \texttt{indextitle} field},
1334+}
1335+
1336+@inproceedings{moraux,
1337+ author = {Moraux, Paul},
1338+ editor = {Lloyd, G. E. R. and Owen, G. E. L.},
1339+ title = {Le \emph{De Anima} dans la tradition gr{\`e}cque},
1340+ date = 1979,
1341+ booktitle = {Aristotle on Mind and the Senses},
1342+ subtitle = {Quelques aspects de l'interpretation du trait{\'e}, de
1343+ Theophraste {\`a} Themistius},
1344+ booktitleaddon= {Proceedings of the Seventh Symposium Aristotelicum},
1345+ eventdate = 1975,
1346+ publisher = cup,
1347+ location = {Cambridge},
1348+ pages = {281-324},
1349+ keywords = {secondary},
1350+ langid = {french},
1351+ indexsorttitle= {De Anima dans la tradition grecque},
1352+ indextitle = {\emph{De Anima} dans la tradition gr{\`e}cque, Le},
1353+ shorttitle = {\emph{De Anima} dans la tradition gr{\`e}cque},
1354+ annotation = {This is a typical \texttt{inproceedings} entry. Note the
1355+ \texttt{booksubtitle}, \texttt{shorttitle},
1356+ \texttt{indextitle}, and \texttt{indexsorttitle} fields. Also
1357+ note the \texttt{eventdate} field.},
1358+}
1359+
1360+@inproceedings{salam,
1361+ author = {Salam, Abdus},
1362+ editor = {Svartholm, Nils},
1363+ title = {Weak and Electromagnetic Interactions},
1364+ date = 1968,
1365+ booktitle = {Elementary particle theory},
1366+ booksubtitle = {Relativistic groups and analyticity},
1367+ booktitleaddon= {Proceedings of the {Eighth Nobel Symposium}},
1368+ eventdate = {1968-05-19/1968-05-25},
1369+ venue = {Aspen{\"a}sgarden, Lerum},
1370+ publisher = {Almquist \& Wiksell},
1371+ location = {Stockholm},
1372+ pages = {367-377},
1373+}
1374+
1375+@manual{cms,
1376+ title = {The {Chicago} Manual of Style},
1377+ date = 2003,
1378+ subtitle = {The Essential Guide for Writers, Editors, and Publishers},
1379+ edition = 15,
1380+ publisher = {University of Chicago Press},
1381+ location = {Chicago, Ill.},
1382+ isbn = {0-226-10403-6},
1383+ label = {CMS},
1384+ langid = {english},
1385+ langidopts = {variant=american},
1386+ sorttitle = {Chicago Manual of Style},
1387+ indextitle = {Chicago Manual of Style, The},
1388+ shorttitle = {Chicago Manual of Style},
1389+ annotation = {This is a \texttt{manual} entry without an \texttt{author} or
1390+ \texttt{editor}. Note the \texttt{label} field in the database
1391+ file which is provided for author-year citation styles. Also
1392+ note the \texttt{sorttitle} and \texttt{indextitle} fields. By
1393+ default, all entries without an \texttt{author} or
1394+ \texttt{editor} are alphabetized by \texttt{title} but we want
1395+ this entry to be alphabetized under \enquote*{C} rather than
1396+ \enquote*{T}. There's also an \texttt{isbn} field},
1397+}
1398+
1399+@online{baez/online,
1400+ author = {Baez, John C. and Lauda, Aaron D.},
1401+ title = {Higher-Dimensional Algebra {V}: 2-Groups},
1402+ date = {2004-10-27},
1403+ version = 3,
1404+ langid = {english},
1405+ langidopts = {variant=american},
1406+ eprinttype = {arxiv},
1407+ eprint = {math/0307200v3},
1408+ annotation = {An \texttt{online} reference from arXiv. Note the
1409+ \texttt{eprint} and \texttt{eprinttype} fields. Compare
1410+ \texttt{baez\slash article} which is the same item given as an
1411+ \texttt{article} entry with eprint information},
1412+}
1413+
1414+@online{ctan,
1415+ title = {CTAN},
1416+ date = 2006,
1417+ url = {http://www.ctan.org},
1418+ subtitle = {The {Comprehensive TeX Archive Network}},
1419+ urldate = {2006-10-01},
1420+ label = {CTAN},
1421+ langid = {english},
1422+ langidopts = {variant=american},
1423+ annotation = {This is an \texttt{online} entry. The \textsc{url}, which is
1424+ given in the \texttt{url} field, is transformed into a
1425+ clickable link if \texttt{hyperref} support has been
1426+ enabled. Note the format of the \texttt{urldate} field
1427+ (\texttt{yyyy-mm-dd}) in the database file. Also note the
1428+ \texttt{label} field which may be used as a fallback by
1429+ citation styles which need an \texttt{author} and\slash or a
1430+ \texttt{year}},
1431+}
1432+
1433+@online{itzhaki,
1434+ author = {Itzhaki, Nissan},
1435+ title = {Some remarks on {'t Hooft's} {S}-matrix for black holes},
1436+ date = {1996-03-11},
1437+ version = 1,
1438+ langid = {english},
1439+ langidopts = {variant=american},
1440+ eprinttype = {arxiv},
1441+ eprint = {hep-th/9603067},
1442+ annotation = {An \texttt{online} reference from arXiv. Note the
1443+ \texttt{eprint} and \texttt{eprinttype} fields. Also note that
1444+ the arXiv reference is transformed into a clickable link if
1445+ \texttt{hyperref} support has been enabled},
1446+ abstract = {We discuss the limitations of 't Hooft's proposal for the
1447+ black hole S-matrix. We find that the validity of the S-matrix
1448+ implies violation of the semi-classical approximation at
1449+ scales large compared to the Planck scale. We also show that
1450+ the effect of the centrifugal barrier on the S-matrix is
1451+ crucial even for large transverse distances.},
1452+}
1453+
1454+@online{markey,
1455+ author = {Markey, Nicolas},
1456+ title = {Tame the {BeaST}},
1457+ date = {2005-10-16},
1458+ url = {http://mirror.ctan.org/info/bibtex/tamethebeast/ttb_en.pdf},
1459+ subtitle = {The {B} to {X} of {BibTeX}},
1460+ version = {1.3},
1461+ urldate = {2006-10-01},
1462+ langid = {english},
1463+ langidopts = {variant=american},
1464+ sorttitle = {Tame the Beast},
1465+ annotation = {An \texttt{online} entry for a tutorial. Note the format of
1466+ the \texttt{date} field (\texttt{yyyy-mm-dd}) in the database
1467+ file.},
1468+}
1469+
1470+@online{wassenberg,
1471+ author = {Wassenberg, Jan and Sanders, Peter},
1472+ title = {Faster Radix Sort via Virtual Memory and Write-Combining},
1473+ date = {2010-08-17},
1474+ version = 1,
1475+ langid = {english},
1476+ langidopts = {variant=american},
1477+ eprinttype = {arxiv},
1478+ eprintclass = {cs.DS},
1479+ eprint = {1008.2849v1},
1480+ annotation = {A recent \texttt{online} reference from arXiv using the new
1481+ (April 2007 onward) identifier format. Note the
1482+ \texttt{eprint}, \texttt{eprinttype}, and \texttt{eprintclass}
1483+ fields. Also note that the arXiv reference is transformed into
1484+ a clickable link if \texttt{hyperref} support has been
1485+ enabled},
1486+ abstract = {Sorting algorithms are the deciding factor for the performance
1487+ of common operations such as removal of duplicates or database
1488+ sort-merge joins. This work focuses on 32-bit integer keys,
1489+ optionally paired with a 32-bit value. We present a fast radix
1490+ sorting algorithm that builds upon a microarchitecture-aware
1491+ variant of counting sort},
1492+}
1493+
1494+@patent{almendro,
1495+ author = {Almendro, Jos{\'e} L. and Mart{\'i}n, Jacinto and S{\'a}nchez,
1496+ Alberto and Nozal, Fernando},
1497+ title = {Elektromagnetisches Signalhorn},
1498+ number = {EU-29702195U},
1499+ date = 1998,
1500+ location = {countryfr and countryuk and countryde},
1501+ langid = {german},
1502+ annotation = {This is a \texttt{patent} entry with a \texttt{location}
1503+ field. The number is given in the \texttt{number} field. Note
1504+ the format of the \texttt{location} field in the database
1505+ file. Compare \texttt{laufenberg}, \texttt{sorace}, and
1506+ \texttt{kowalik}},
1507+}
1508+
1509+@patent{kowalik,
1510+ author = {Kowalik, F. and Isard, M.},
1511+ title = {Estimateur d'un d{\'e}faut de fonctionnement d'un modulateur
1512+ en quadrature et {\'e}tage de modulation l'utilisant},
1513+ number = 9500261,
1514+ date = {1995-01-11},
1515+ type = {patreqfr},
1516+ langid = {french},
1517+ indextitle = {Estimateur d'un d{\'e}faut de fonctionnement},
1518+ annotation = {This is a \texttt{patent} entry for a French patent request
1519+ with a full date. The number is given in the \texttt{number}
1520+ field. Note the format of the \texttt{type} and \texttt{date}
1521+ fields in the database file. Compare \texttt{almendro},
1522+ \texttt{laufenberg}, and \texttt{sorace}},
1523+}
1524+
1525+@patent{laufenberg,
1526+ author = {Laufenberg, Xaver and Eynius, Dominique and Suelzle, Helmut
1527+ and Usbeck, Stephan and Spaeth, Matthias and Neuser-Hoffmann,
1528+ Miriam and Myrzik, Christian and Schmid, Manfred and Nietfeld,
1529+ Franz and Thiel, Alexander and Braun, Harald and Ebner,
1530+ Norbert},
1531+ title = {Elektrische Einrichtung und Betriebsverfahren},
1532+ number = 1700367,
1533+ date = {2006-09-13},
1534+ holder = {{Robert Bosch GmbH} and {Daimler Chrysler AG} and {Bayerische
1535+ Motoren Werke AG}},
1536+ type = {patenteu},
1537+ langid = {german},
1538+ annotation = {This is a \texttt{patent} entry with a \texttt{holder} field.
1539+ Note the format of the \texttt{type} and \texttt{location}
1540+ fields in the database file. Compare \texttt{almendro},
1541+ \texttt{sorace}, and \texttt{kowalik}},
1542+ abstract = {The invention relates to an electric device comprising a
1543+ generator, in particular for use in the vehicle electric
1544+ system of a motor vehicle and a controller for controlling the
1545+ generator voltage. The device is equipped with a control zone,
1546+ in which the voltage is controlled and zones, in which the
1547+ torque is controlled. The invention also relates to methods
1548+ for operating a device of this type.},
1549+ file = {http://v3.espacenet.com/textdoc?IDX=EP1700367},
1550+}
1551+
1552+@patent{sorace,
1553+ author = {Sorace, Ronald E. and Reinhardt, Victor S. and Vaughn, Steven
1554+ A.},
1555+ title = {High-Speed Digital-to-{RF} Converter},
1556+ number = 5668842,
1557+ date = {1997-09-16},
1558+ holder = {{Hughes Aircraft Company}},
1559+ type = {patentus},
1560+ langid = {english},
1561+ langidopts = {variant=american},
1562+ annotation = {This is a \texttt{patent} entry with a \texttt{holder} field.
1563+ Note the format of the \texttt{type} and \texttt{date} fields
1564+ in the database file. Compare \texttt{almendro},
1565+ \texttt{laufenberg}, and \texttt{kowalik}},
1566+}
1567+
1568+@periodical{jcg,
1569+ title = {Computers and Graphics},
1570+ year = 2011,
1571+ issuetitle = {Semantic {3D} Media and Content},
1572+ volume = 35,
1573+ number = 4,
1574+ issn = {0097-8493},
1575+ annotation = {This is a \texttt{periodical} entry with an \texttt{issn}
1576+ field.},
1577+}
1578+
1579+@report{chiu,
1580+ author = {Chiu, Willy W. and Chow, We Min},
1581+ title = {A Hybrid Hierarchical Model of a {Multiple Virtual Storage}
1582+ ({MVS}) Operating System},
1583+ type = {resreport},
1584+ institution = {IBM},
1585+ date = 1978,
1586+ number = {RC-6947},
1587+ langid = {english},
1588+ langidopts = {variant=american},
1589+ sorttitle = {Hybrid Hierarchical Model of a Multiple Virtual Storage (MVS)
1590+ Operating System},
1591+ indextitle = {Hybrid Hierarchical Model, A},
1592+ annotation = {This is a \texttt{report} entry for a research report. Note
1593+ the format of the \texttt{type} field in the database file
1594+ which uses a localization key. The number of the report is
1595+ given in the \texttt{number} field. Also note the
1596+ \texttt{sorttitle} and \texttt{indextitle} fields},
1597+}
1598+
1599+@report{padhye,
1600+ author = {Padhye, Jitendra and Firoiu, Victor and Towsley, Don},
1601+ title = {A Stochastic Model of {TCP Reno} Congestion Avoidance and
1602+ Control},
1603+ type = {techreport},
1604+ institution = {University of Massachusetts},
1605+ date = 1999,
1606+ number = {99-02},
1607+ location = {Amherst, Mass.},
1608+ langid = {english},
1609+ langidopts = {variant=american},
1610+ sorttitle = {A Stochastic Model of TCP Reno Congestion Avoidance and
1611+ Control},
1612+ indextitle = {Stochastic Model of {TCP Reno} Congestion Avoidance and Control,
1613+ A},
1614+ annotation = {This is a \texttt{report} entry for a technical report. Note
1615+ the format of the \texttt{type} field in the database file
1616+ which uses a localization key. The number of the report is
1617+ given in the \texttt{number} field. Also note the
1618+ \texttt{sorttitle} and \texttt{indextitle} fields},
1619+ abstract = {The steady state performance of a bulk transfer TCP flow
1620+ (i.e. a flow with a large amount of data to send, such as FTP
1621+ transfers) may be characterized by three quantities. The first
1622+ is the send rate, which is the amount of data sent by the
1623+ sender in unit time. The second is the throughput, which is
1624+ the amount of data received by the receiver in unit time. Note
1625+ that the throughput will always be less than or equal to the
1626+ send rate due to losses. Finally, the number of non-duplicate
1627+ packets received by the receiver in unit time gives us the
1628+ goodput of the connection. The goodput is always less than or
1629+ equal to the throughput, since the receiver may receive two
1630+ copies of the same packet due to retransmissions by the
1631+ sender. In a previous paper, we presented a simple model for
1632+ predicting the steady state send rate of a bulk transfer TCP
1633+ flow as a function of loss rate and round trip time. In this
1634+ paper, we extend that work in two ways. First, we analyze the
1635+ performance of bulk transfer TCP flows using more precise,
1636+ stochastic analysis. Second, we build upon the previous
1637+ analysis to provide both an approximate formula as well as a
1638+ more accurate stochastic model for the steady state throughput
1639+ of a bulk transfer TCP flow.},
1640+ file = {ftp://gaia.cs.umass.edu/pub/Padhey99-markov.ps},
1641+}
1642+
1643+@thesis{geer,
1644+ author = {de Geer, Ingrid},
1645+ title = {Earl, Saint, Bishop, Skald~-- and Music},
1646+ type = {phdthesis},
1647+ institution = {Uppsala Universitet},
1648+ date = 1985,
1649+ subtitle = {The {Orkney Earldom} of the Twelfth Century. {A} Musicological
1650+ Study},
1651+ location = {Uppsala},
1652+ options = {useprefix=false},
1653+ langid = {english},
1654+ langidopts = {variant=british},
1655+ annotation = {This is a typical \texttt{thesis} entry for a PhD thesis. Note
1656+ the \texttt{type} field in the database file which uses a
1657+ localization key. Also note the format of the printed name and
1658+ compare the \texttt{useprefix} option in the \texttt{options}
1659+ field as well as \texttt{vangennep}},
1660+}
1661+
1662+@thesis{loh,
1663+ author = {Loh, Nin C.},
1664+ title = {High-Resolution Micromachined Interferometric Accelerometer},
1665+ type = {mathesis},
1666+ institution = {Massachusetts Institute of Technology},
1667+ date = 1992,
1668+ location = {Cambridge, Mass.},
1669+ langid = {english},
1670+ langidopts = {variant=american},
1671+ annotation = {This is a typical \texttt{thesis} entry for an MA thesis. Note
1672+ the \texttt{type} field in the database file which uses a
1673+ localization key},
1674+}
test/command/biblatex-inproceedings.md+1−1
@@ -63,7 +63,7 @@ references:
6363 publisher-place: Cambridge
6464 title: "Le *De Anima* dans la tradition grècque: Quelques aspects de
6565 l'interpretation du traité, de Theophraste à Themistius"
66− title-short: "*De Anima* dans la tradition grècque"
66+ title-short: *De Anima* dans la tradition grècque
6767 type: paper-conference
6868- author:
6969 - family: Salam
test/command/biblatex-jaffe.md+2−2
@@ -72,8 +72,8 @@ references:
7272 language: la
7373 number-of-volumes: 2
7474 publisher-place: Leipzig
75− title: Regesta Pontificum Romanorum ab condita ecclesia ad annum post
76− Christum natum [mcxcviii]{.smallcaps}
75+ title: "Regesta Pontificum Romanorum ab condita ecclesia ad annum post
76+ Christum natum [mcxcviii]{.smallcaps}"
7777 title-short: Regesta Pontificum Romanorum
7878 type: book
7979---
test/command/biblatex-moraux.md+1−1
@@ -86,7 +86,7 @@ references:
8686 publisher-place: Cambridge
8787 title: "Le *De Anima* dans la tradition grècque: Quelques aspects de
8888 l'interpretation du traité, de Theophraste à Themistius"
89− title-short: "*De Anima* dans la tradition grècque"
89+ title-short: *De Anima* dans la tradition grècque
9090 type: paper-conference
9191---
9292
test/command/biblatex-nussbaum.mdnew file+63
@@ -0,0 +1,63 @@
1+```
2+% pandoc -f biblatex -t markdown -s
3+@comment{
4+
5+Adapted from biblatex-example.bib
6+
7+
8+Formatted with pandoc and chicago-author-date.csl, 2013-10-23:
9+
10+(Nussbaum 1978)
11+
12+Nussbaum, Martha. 1978. *Aristotle’s “De Motu Animalium”*. Princeton:
13+Princeton University Press.
14+
15+
16+Formatted with pandoc and apa.csl, 2013-10-23:
17+
18+(Nussbaum, 1978)
19+
20+Nussbaum, M. (1978). *Aristotle’s “De Motu Animalium”*. Princeton:
21+Princeton University Press.
22+
23+
24+}
25+
26+@string{ pup = {Princeton University Press} }
27+
28+@Book{nussbaum,
29+ author = {Nussbaum, Martha},
30+ title = {Aristotle's \mkbibquote{De Motu Animalium}},
31+ date = 1978,
32+ publisher = pup,
33+ location = {Princeton},
34+ keywords = {secondary},
35+ hyphenation = {american},
36+ sorttitle = {Aristotle's De Motu Animalium},
37+ indexsorttitle= {Aristotle's De Motu Animalium},
38+ annotation = {A book entry. Note the sorttitle and
39+ indexsorttitle fields and the markup of the quotes in
40+ the database file},
41+}
42+
43+^D
44+---
45+nocite: "[@*]"
46+references:
47+- annote: A book entry. Note the sorttitle and indexsorttitle fields and
48+ the markup of the quotes in the database file
49+ author:
50+ - family: Nussbaum
51+ given: Martha
52+ id: nussbaum
53+ issued: 1978
54+ keyword: secondary
55+ language: en-US
56+ publisher: Princeton University Press
57+ publisher-place: Princeton
58+ title: "Aristotle's \"De Motu Animalium\""
59+ type: book
60+---
61+
62+
63+```
test/command/biblatex-quotes.md+1−1
@@ -36,7 +36,7 @@ references:
3636 language: en-US
3737 publisher: Princeton University Press
3838 publisher-place: Princeton
39− title: Aristotle's "De Motu Animalium"
39+ title: "Aristotle's \"De Motu Animalium\""
4040 type: book
4141---
4242
test/command/biblatex-sigfridsson.md+1−1
@@ -90,7 +90,7 @@ references:
9090 - family: Ryde
9191 given: Ulf
9292 container-title: Journal of Computational Chemistry
93− doi: "10.1002/(SICI)1096-987X(199803)19:4\\<377::AID-JCC1>3.0.CO;2-P"
93+ doi: "10.1002/(SICI)1096-987X(199803)19:4\\<377::AID-JCC1\\>3.0.CO;2-P"
9494 id: sigfridsson
9595 issue: 4
9696 issued: 1998
test/command/biblatex-spiegelberg.md+2−2
@@ -63,8 +63,8 @@ references:
6363 issued: 1969
6464 language: de-DE
6565 page: 189-216
66− title: "\"Intention\" und \"Intentionalität\" in der Scholastik, bei
67− Brentano und Husserl"
66+ title: "Intention" und "Intentionalität" in der Scholastik, bei
67+ Brentano und Husserl
6868 title-short: Intention und Intentionalität
6969 type: article-journal
7070 volume: 29
test/command/biblatex-test-case-conversion.md+2−2
@@ -63,9 +63,9 @@ references:
6363 id: item1
6464 issued: 2013
6565 language: en-US
66− title: A title, in English, with a Proper Name and an ACRONYM and a
66+ title: "A title, in English, with a Proper Name and an ACRONYM and a
6767 [camelCase]{.nocase} word and some units, 400 [nm]{.nocase},
68− 3 [cm]{.nocase}, and a quote, *Alea [iacta est]{.nocase}*
68+ 3 [cm]{.nocase}, and a quote, *Alea [iacta est]{.nocase}*"
6969 type: article-journal
7070---
7171
test/command/biblatex-textnormal.md+1−1
@@ -9,7 +9,7 @@
99nocite: "[@*]"
1010references:
1111- id: item1
12− title: The title [of this book]{.nodecor}
12+ title: "The title [of this book]{.nodecor}"
1313 type: book
1414---
1515
test/command/chap1/spider.pngdeleted

Binary file not shown.

test/command/chap1/text.mddeleted−17
@@ -1,17 +0,0 @@
1−# Chapter one
2−
3−A spider: ![spider](spider.png)
4−
5−Another spider: ![another spider][refspider]
6−
7−The moon: ![moon](../../lalune.jpg)
8−
9−Link to [spider picture](spider.png).
10−
11−URL left alone: [manual](https://pandoc.org/MANUAL.html).
12−
13−Absolute path left alone: [absolute](/foo/bar/baz.png).
14−
15−Link to fragment: [chapter two](#chapter-two).
16−
17−Empty path: [empty]().
test/command/chap2/spider.pngdeleted

Binary file not shown.

test/command/chap2/text.mddeleted−5
@@ -1,5 +0,0 @@
1−# Chapter two
2−
3−A spider: ![spider](spider.png)
4−
5−[refspider]: spider.png
test/command/defaults-inheritance-2.md+1−1
@@ -1,5 +1,5 @@
11```
2−% pandoc -d command/defaults6 2>&1
2+% pandoc -d command/defaults6
33^D
44Error: Circular defaults file reference in 'command/defaults7.yaml'
55```
test/command/mmd-metadata.mddeleted−20
@@ -1,20 +0,0 @@
1−```
2−% pandoc -f markdown_mmd -t markdown -s
3−Title: Blah blah blah
4−Author: Doo de Doo
5−Base Header Level: 1
6−Bibliography: Pubs.bib
7−Lang: en-GB
8−
9−body
10−^D
11−---
12−author: Doo de Doo
13−baseheaderlevel: 1
14−bibliography: Pubs.bib
15−lang: en-GB
16−title: Blah blah blah
17−---
18−
19−body
20−```
test/command/newif.mddeleted−55
@@ -1,55 +0,0 @@
1−```
2−% pandoc -f latex -t plain
3−\iftrue
4−should print
5−\iftrue
6−should print
7−\else
8−should not print
9−\fi
10−\else
11−should not print
12−\fi
13−
14−\iffalse
15−should not print
16−\else
17−\iftrue
18−should print
19−\else
20−should not print
21−\fi
22−\fi
23−
24−\newif\ifepub
25−
26−\ifepub
27−should not print
28−\fi
29−
30−\epubtrue
31−
32−\ifepub
33−should print
34−\else
35−should not print
36−\fi
37−
38−\epubfalse
39−
40−\ifepub
41−should not print
42−\else
43−should print
44−\fi
45−^D
46−should print
47−
48−should print
49−
50−should print
51−
52−should print
53−
54−should print
55−```
test/command/pandoc-citeproc-119.md+1−1
@@ -1,7 +1,7 @@
11```
22% pandoc --citeproc -t markdown-citations
33---
4−bibliography: 'command/averroes.bib'
4+bibliography: 'command/biblatex-examples.bib'
55csl: command/apa.csl
66---
77
test/command/pandoc-citeproc-320a.md+3−3
@@ -49,7 +49,7 @@ references:
4949Foo [@item1; @item2; @item3; @item4; @item5; @item6; @item7; @item8].
5050^D
5151Foo (al-ʾUdhrī, n.d.; al-ʿUdhrī, n.d.; al-\'Udhrī, n.d.; al-'Udhrī,
52−n.d.a, n.d.b; Uch, n.d.; Uebel, n.d.; Zzz, n.d.).
52+n.d.; al-'Udhrī, n.d.; Uch, n.d.; Uebel, n.d.; Zzz, n.d.).
5353
5454::: {#refs .references .csl-bib-body .hanging-indent}
5555::: {#ref-item6 .csl-entry}
@@ -69,11 +69,11 @@ Uch, Ann. n.d.
6969:::
7070
7171::: {#ref-item4 .csl-entry}
72−'Udhrī, Jamīl al-. n.d.a.
72+'Udhrī, Jamīl al-. n.d.
7373:::
7474
7575::: {#ref-item5 .csl-entry}
76−---------. n.d.b.
76+'Udhrī, Jamīl al-. n.d.
7777:::
7878
7979::: {#ref-item7 .csl-entry}
test/command/pandoc-citeproc-322.md+1−1
@@ -19,7 +19,7 @@ references:
1919 type: 'article-journal'
2020---
2121
22−Foo [@timmory__justice_1950].
22+Foo[@timmory__justice_1950].
2323^D
2424Foo.[^1]
2525
test/command/pandoc-citeproc-356.md+7−2
@@ -15,6 +15,11 @@ references:
1515
1616[@bar]
1717^D
18−[WARNING] Citeproc: citation bar not found
19−(**bar?**)
18+(Alice 2042)
19+
20+::: {#refs .references .csl-bib-body .hanging-indent}
21+::: {#ref-foo .csl-entry}
22+Alice. 2042.
23+:::
24+:::
2025```
test/command/pandoc-citeproc-65.md+1−1
@@ -14,7 +14,7 @@ references:
1414 id: 'stotz:1996handbuch'
1515 issued:
1616 literal: 1996_2004
17− language: de
17+ language: German
1818 number-of-volumes: 5
1919 publisher: Beck
2020 publisher-place: Munich
test/command/pandoc-citeproc-70.md+2−2
@@ -22,7 +22,7 @@ references:
2222 issued:
2323 date-parts:
2424 - - 2009
25− language: fr
25+ language: French
2626 page: '155--174'
2727 publisher: 'Fédération Internationale des Instituts d''Études
2828 Médiévales'
@@ -42,7 +42,7 @@ references:
4242 issued:
4343 date-parts:
4444 - - 1955
45− language: la
45+ language: Latin
4646 note: 'ArticleType: research-article / Full publication date: 1955 /
4747 Copyright © 1955 Fordham University'
4848 page: '163--193'
test/command/pandoc-citeproc-chicago-author-date.md+7−7
@@ -54,14 +54,14 @@ References {#references .unnumbered}
5454
5555([**nonexistent?**](#ref-nonexistent))
5656
57−Doe ([2005](#ref-item1)) says blah.
57+[Doe](#ref-item1) ([2005](#ref-item1)) says blah.
5858
59−Doe ([2005, 30](#ref-item1)) says blah.
59+[Doe](#ref-item1) ([2005, 30](#ref-item1)) says blah.
6060
61−Doe ([2005, 30](#ref-item1), with suffix) says blah.
61+[Doe](#ref-item1) ([2005, 30](#ref-item1), with suffix) says blah.
6262
63−Doe ([2005](#ref-item1); [2006, 30](#ref-item2); see also [Doe and Roe
64−2007](#ref-пункт3)) says blah.
63+[Doe](#ref-item1) ([2005](#ref-item1); [2006, 30](#ref-item2); see also
64+[Doe and Roe 2007](#ref-пункт3)) says blah.
6565
6666In a note.[^1]
6767
@@ -98,8 +98,8 @@ edited by Sam Smith. Oxford: Oxford University Press.
9898:::
9999:::
100100
101−[^1]: Doe and Roe ([2007, 12](#ref-пункт3)) and a citation without
102− locators ([Doe and Roe 2007](#ref-пункт3)).
101+[^1]: [Doe and Roe](#ref-пункт3) ([2007, 12](#ref-пункт3)) and a
102+ citation without locators ([Doe and Roe 2007](#ref-пункт3)).
103103
104104[^2]: Some citations (see [Doe 2005, chap. 3](#ref-item1);
105105 [2006](#ref-item2); [Doe and Roe 2007](#ref-пункт3)).
test/command/pandoc-citeproc-chicago-fullnote-bibliography.md+7−6
@@ -55,13 +55,13 @@ References {#references .unnumbered}
5555
5656[^2]
5757
58−John Doe[^3] says blah.
58+[John Doe](#ref-item1)[^3] says blah.
5959
60−Doe[^4] says blah.
60+[Doe](#ref-item1)[^4] says blah.
6161
62−Doe[^5] says blah.
62+[Doe](#ref-item1)[^5] says blah.
6363
64−Doe[^6] says blah.
64+[Doe](#ref-item1)[^6] says blah.
6565
6666In a note.[^7]
6767
@@ -112,8 +112,9 @@ Sam Smith. Oxford: Oxford University Press, 2007.
112112 Roe, "Why Water Is Wet," in *Third Book*, ed. Sam Smith (Oxford:
113113 Oxford University Press, 2007)](#ref-пункт3).
114114
115−[^7]: Doe and Roe, ["Why Water Is Wet," 12](#ref-пункт3) and a citation
116− without locators ([Doe and Roe, "Why Water Is Wet"](#ref-пункт3)).
115+[^7]: [Doe and Roe](#ref-пункт3), ["Why Water Is Wet," 12](#ref-пункт3)
116+ and a citation without locators ([Doe and Roe, "Why Water Is
117+ Wet"](#ref-пункт3)).
117118
118119[^8]: See [Doe, *First Book*, chap. 3](#ref-item1); also [Doe and Roe,
119120 "Why Water Is Wet," 34--35](#ref-пункт3).
test/command/svg.md+1−1
@@ -2,7 +2,7 @@
22% pandoc -f latex -t icml
33\includegraphics{command/corrupt.svg}
44^D
5−[WARNING] Could not determine image size for command/corrupt.svg: could not determine image type
5+[WARNING] Could not determine image size for 'command/corrupt.svg': could not determine image type
66<ParagraphStyleRange AppliedParagraphStyle="ParagraphStyle/Paragraph">
77 <CharacterStyleRange AppliedCharacterStyle="$ID/NormalCharacterStyle">
88 <Rectangle Self="uec" StrokeWeight="0" ItemTransform="1 0 0 1 150 -100">
test/command/toc.md+2−2
@@ -31,7 +31,7 @@
3131
3232## b
3333
34−::: interior
34+::: {.interior}
3535# C
3636
3737## cc
@@ -39,7 +39,7 @@
3939# D
4040:::
4141
42−::: blue
42+::: {.blue}
4343# E
4444
4545## e
test/command/unicode-collation.mddeleted−130
@@ -1,130 +0,0 @@
1−```
2−% pandoc --citeproc -t plain
3−---
4−lang: en-US
5−csl: command/apa.csl
6−references:
7−- id: a1
8− type: book
9− author:
10− - family: Ubina
11− given: A. John
12− issued: 1985
13−- id: a2
14− type: book
15− author:
16− - family: Über
17− given: Aglaia
18− issued: 1996
19−- id: a3
20− type: book
21− author:
22− - family: Oñate
23− given: José
24− issued: 1985
25−- id: a4
26− type: book
27− author:
28− - family: Onush
29− given: Frank
30− issued: 2002
31−- id: a5
32− type: book
33− author:
34− - family: O'Neil
35− given: Timothy
36− issued: 2010
37−---
38−
39−[@a1;@a2;@a3;@a4;@a5]
40−^D
41−(O’Neil, 2010; Oñate, 1985; Onush, 2002; Über, 1996; Ubina, 1985)
42−
43−O’Neil, T. (2010).
44−
45−Oñate, J. (1985).
46−
47−Onush, F. (2002).
48−
49−Über, A. (1996).
50−
51−Ubina, A. J. (1985).
52−```
53−
54−```
55−% pandoc --citeproc -t plain
56−---
57−lang: es
58−csl: command/apa.csl
59−references:
60−- id: a1
61− type: book
62− author:
63− - family: Ubina
64− given: A. John
65− issued: 1985
66−- id: a2
67− type: book
68− author:
69− - family: Über
70− given: Aglaia
71− issued: 1996
72−- id: a3
73− type: book
74− author:
75− - family: Oñate
76− given: José
77− issued: 1985
78−- id: a4
79− type: book
80− author:
81− - family: Onush
82− given: Frank
83− issued: 2002
84−- id: a5
85− type: book
86− author:
87− - family: O'Neil
88− given: Timothy
89− issued: 2010
90−---
91−
92−[@a1;@a2;@a3;@a4;@a5]
93−^D
94−(O’Neil, 2010; Onush, 2002; Oñate, 1985; Über, 1996; Ubina, 1985)
95−
96−O’Neil, T. (2010).
97−
98−Onush, F. (2002).
99−
100−Oñate, J. (1985).
101−
102−Über, A. (1996).
103−
104−Ubina, A. J. (1985).
105−```
106−
107−```
108−% pandoc -C -t plain
109−---
110−nocite: '@*'
111−lang: fr-FR-u-kb-true
112−references:
113−- id: cote
114− author: cote
115−- id: côte
116− author: côte
117−- id: coté
118− author: coté
119−- id: côté
120− author: côté
121−...
122−^D
123−cote. s. d.
124−
125−côte. s. d.
126−
127−coté. s. d.
128−
129−côté. s. d.
130−```
test/docbook-reader.docbook+1−3
@@ -6,9 +6,7 @@
66<!ENTITY let "LET" >
77<!ENTITY case "CASE" >
88]>
9−<article xmlns="http://docbook.org/ns/docbook"
10− xmlns:xlink="http://www.w3.org/1999/xlink"
11− xmlns:mml="http://www.w3.org/1998/Math/MathML">
9+<article>
1210 <articleinfo>
1311 <title>Pandoc Test Suite</title>
1412 <authorgroup>
test/docx/0_level_headers.native+2−2
@@ -1,6 +1,6 @@
11[Table ("",[],[]) (Caption Nothing
22 [])
3− [(AlignDefault,ColWidth 1.0)]
3+ [(AlignDefault,ColWidthDefault)]
44 (TableHead ("",[],[])
55 [])
66 [(TableBody ("",[],[]) (RowHeadColumns 0)
@@ -49,4 +49,4 @@
4949,Para [Strong [Str "Table",Space,Str "Page"]]
5050,Para [Strong [Str "No",Space,Str "table",Space,Str "of",Space,Str "figures",Space,Str "entries",Space,Str "found."]]
5151,Header 1 ("introduction",[],[]) [Str "Introduction"]
52−,Para [Str "Nothing",Space,Str "to",Space,Str "introduce,",Space,Str "yet."]]
52+,Para [Str "Nothing",Space,Str "to",Space,Str "introduce,",Space,Str "yet."]]
test/docx/golden/block_quotes.docx

Binary file not shown.

test/docx/golden/codeblock.docx

Binary file not shown.

test/docx/golden/comments.docx

Binary file not shown.

test/docx/golden/custom_style_no_reference.docx

Binary file not shown.

test/docx/golden/custom_style_preserve.docx

Binary file not shown.

test/docx/golden/custom_style_reference.docx

Binary file not shown.

test/docx/golden/definition_list.docx

Binary file not shown.

test/docx/golden/document-properties-short-desc.docx

Binary file not shown.

test/docx/golden/document-properties.docx

Binary file not shown.

test/docx/golden/headers.docx

Binary file not shown.

test/docx/golden/image.docx

Binary file not shown.

test/docx/golden/inline_code.docx

Binary file not shown.

test/docx/golden/inline_formatting.docx

Binary file not shown.

test/docx/golden/inline_images.docx

Binary file not shown.

test/docx/golden/link_in_notes.docx

Binary file not shown.

test/docx/golden/links.docx

Binary file not shown.

test/docx/golden/lists.docx

Binary file not shown.

test/docx/golden/lists_continuing.docx

Binary file not shown.

test/docx/golden/lists_multiple_initial.docx

Binary file not shown.

test/docx/golden/lists_restarting.docx

Binary file not shown.

test/docx/golden/nested_anchors_in_header.docx

Binary file not shown.

test/docx/golden/notes.docx

Binary file not shown.

test/docx/golden/raw-blocks.docx

Binary file not shown.

test/docx/golden/raw-bookmarks.docx

Binary file not shown.

test/docx/golden/table_one_row.docx

Binary file not shown.

test/docx/golden/table_with_list_cell.docx

Binary file not shown.

test/docx/golden/tables-default-widths.docxdeleted

Binary file not shown.

test/docx/golden/tables.docx

Binary file not shown.

test/docx/golden/track_changes_deletion.docx

Binary file not shown.

test/docx/golden/track_changes_insertion.docx

Binary file not shown.

test/docx/golden/track_changes_move.docx

Binary file not shown.

test/docx/golden/track_changes_scrubbed_metadata.docx

Binary file not shown.

test/docx/golden/unicode.docx

Binary file not shown.

test/docx/golden/verbatim_subsuper.docx

Binary file not shown.

test/docx/image_vml_as_object.docxdeleted

Binary file not shown.

test/docx/image_vml_as_object.nativedeleted−2
@@ -1,2 +0,0 @@
1−[Para [Str "Test",Space,Str "with",Space,Str "object",Space,Str "as",Space,Str "image:"]
2−,Para [Image ("",[],[]) [] ("media/image1.emf","")]]
test/docx/sdt_elements.native+10−9
@@ -1,19 +1,20 @@
11[Table ("",[],[]) (Caption Nothing
22 [])
3− [(AlignDefault,ColWidth 0.22069570301081556)
4− ,(AlignDefault,ColWidth 0.22069570301081556)
5− ,(AlignDefault,ColWidth 0.5586085939783689)]
3+ [(AlignDefault,ColWidthDefault)
4+ ,(AlignDefault,ColWidthDefault)
5+ ,(AlignDefault,ColWidthDefault)]
66 (TableHead ("",[],[])
7− [Row ("",[],[])
7+ [])
8+ [(TableBody ("",[],[]) (RowHeadColumns 0)
9+ []
10+ [Row ("",[],[])
811 [Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
912 [Plain [Strong [Str "col1Header"]]]
1013 ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
1114 [Plain [Strong [Str "col2Header"]]]
1215 ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
13− [Plain [Strong [Str "col3Header"]]]]])
14− [(TableBody ("",[],[]) (RowHeadColumns 0)
15− []
16− [Row ("",[],[])
16+ [Plain [Strong [Str "col3Header"]]]]
17+ ,Row ("",[],[])
1718 [Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
1819 [Plain [Str "col1",Space,Str "content"]]
1920 ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
@@ -21,4 +22,4 @@
2122 ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
2223 [Plain [Str "col3",Space,Str "content"]]]])]
2324 (TableFoot ("",[],[])
24− [])]
25+ [])]
test/docx/table_captions_no_field.docxdeleted

Binary file not shown.

test/docx/table_captions_no_field.nativedeleted−34
@@ -1,34 +0,0 @@
1−[Para [Str "See",Space,Str "Table",Space,Str "5.1."]
2−,Para [Str "Table",Space,Str "5.1"]
3−,Table ("",[],[]) (Caption Nothing
4− [])
5− [(AlignDefault,ColWidth 0.7605739372523825)
6− ,(AlignDefault,ColWidth 0.11971303137380876)
7− ,(AlignDefault,ColWidth 0.11971303137380876)]
8− (TableHead ("",[],[])
9−[Row ("",[],[])
10− [Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
11− []
12− ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
13− [Plain [Str "Count"]]
14− ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
15− [Plain [Str "%"]]]])
16− [(TableBody ("",[],[]) (RowHeadColumns 0)
17− []
18− [Row ("",[],[])
19− [Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
20− [Plain [Str "First",Space,Str "option"]]
21− ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
22− [Plain [Str "242"]]
23− ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
24− [Plain [Str "45"]]]
25−,Row ("",[],[])
26− [Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
27− [Plain [Str "Second",Space,Str "option"]]
28− ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
29− [Plain [Str "99"]]
30− ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
31− [Plain [Str "18"]]]])]
32− (TableFoot ("",[],[])
33− [])
34−,Header 2 ("section", [], []) []]
test/docx/table_captions_with_field.docxdeleted

Binary file not shown.

test/docx/table_captions_with_field.nativedeleted−54
@@ -1,54 +0,0 @@
1−[Para [Str "See",Space,Str "Table",Space,Str "1."]
2−,Para []
3−,Table ("",[],[]) (Caption Nothing
4− [Para [Str "Table",Space,Str "1"]])
5− [(AlignDefault,ColWidth 0.7605739372523825)
6− ,(AlignDefault,ColWidth 0.11971303137380876)
7− ,(AlignDefault,ColWidth 0.11971303137380876)]
8− (TableHead ("",[],[])
9−[Row ("",[],[])
10− [Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
11− []
12− ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
13− [Plain [Str "Count"]]
14− ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
15− [Plain [Str "%"]]]])
16− [(TableBody ("",[],[]) (RowHeadColumns 0)
17− []
18− [Row ("",[],[])
19− [Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
20− [Plain [Str "First",Space,Str "option"]]
21− ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
22− [Plain [Str "242"]]
23− ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
24− [Plain [Str "45"]]]
25−,Row ("",[],[])
26− [Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
27− [Plain [Str "Second",Space,Str "option"]]
28− ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
29− [Plain [Str "99"]]
30− ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
31− [Plain [Str "18"]]]])]
32− (TableFoot ("",[],[])
33− [])
34−,Header 2 ("section", [], []) []
35−,Table ("",[],[]) (Caption Nothing
36− [Para [Str "Table",Space,Str "2"]])
37− [(AlignDefault,ColWidth 0.3332963620230701)
38− ,(AlignDefault,ColWidth 0.3332963620230701)
39− ,(AlignDefault,ColWidth 0.3334072759538598)]
40− (TableHead ("",[],[])
41− [Row ("",[],[])
42− [Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
43− [Plain [Str "One"]]
44− ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
45− [Plain [Str "Two"]]
46− ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
47− [Plain [Str "Three"]]]])
48− [(TableBody ("",[],[]) (RowHeadColumns 0)
49− []
50− [])]
51− (TableFoot ("",[],[])
52− [])
53−,Para []
54−,Para [Str "See",Space,Str "Table",Space,Str "2."]]
test/docx/table_header_rowspan.docxdeleted

Binary file not shown.

test/docx/table_header_rowspan.nativedeleted−189
@@ -1,189 +0,0 @@
1−[Table ("",[],[]) (Caption Nothing
2− [])
3− [(AlignDefault,ColWidth 0.30701754385964913)
4− ,(AlignDefault,ColWidth 0.1364522417153996)
5− ,(AlignDefault,ColWidth 0.10009746588693957)
6− ,(AlignDefault,ColWidth 9.707602339181287e-2)
7− ,(AlignDefault,ColWidth 7.719298245614035e-2)
8− ,(AlignDefault,ColWidth 7.085769980506823e-2)
9− ,(AlignDefault,ColWidth 7.09551656920078e-2)
10− ,(AlignDefault,ColWidth 0.14035087719298245)]
11− (TableHead ("",[],[])
12−[Row ("",[],[])
13− [Cell ("",[],[]) AlignDefault (RowSpan 2) (ColSpan 1)
14− [Plain [Str "A"]]
15− ,Cell ("",[],[]) AlignDefault (RowSpan 2) (ColSpan 1)
16− [Plain [Strong [Str "B"]]]
17− ,Cell ("",[],[]) AlignDefault (RowSpan 2) (ColSpan 1)
18− [Plain [Strong [Str "C"]]]
19− ,Cell ("",[],[]) AlignDefault (RowSpan 2) (ColSpan 1)
20− [Plain [Strong [Str "D"]]]
21− ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 3)
22− [Plain [Str "E"]]
23− ,Cell ("",[],[]) AlignDefault (RowSpan 2) (ColSpan 1)
24− [Plain [Str "F"]]]
25−,Row ("",[],[])
26− [Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
27− [Plain [Strong [Str "G"]]]
28− ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
29− [Plain [Strong [Str "H"]]]
30− ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
31− [Plain [Strong [Str "I"]]]]])
32− [(TableBody ("",[],[]) (RowHeadColumns 0)
33− []
34− [Row ("",[],[])
35− [Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
36− [Plain [Str "1"]]
37− ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
38− [Plain [Str "2"]]
39− ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
40− [Plain [Str "3"]]
41− ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
42− [Plain [Str "4"]]
43− ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
44− [Plain [Str "5"]]
45− ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
46− [Plain [Str "6"]]
47− ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
48− [Plain [Str "7"]]
49− ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
50− [Plain [Str "8"]]]
51− ,Row ("",[],[])
52− [Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
53− [Plain [Str "1"]]
54− ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
55− [Plain [Str "2"]]
56− ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
57− [Plain [Str "3"]]
58− ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
59− [Plain [Str "4"]]
60− ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
61− [Plain [Str "5"]]
62− ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
63− [Plain [Str "6"]]
64− ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
65− [Plain [Str "7"]]
66− ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
67− [Plain [Str "8"]]]
68− ,Row ("",[],[])
69− [Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
70− [Plain [Str "1"]]
71− ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
72− [Plain [Str "2"]]
73− ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
74− [Plain [Str "3"]]
75− ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
76− [Plain [Str "4"]]
77− ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
78− [Plain [Str "5"]]
79− ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
80− [Plain [Str "6"]]
81− ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
82− [Plain [Str "7"]]
83− ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
84− [Plain [Str "8"]]]
85− ,Row ("",[],[])
86− [Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
87− [Plain [Str "1"]]
88− ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
89− [Plain [Str "2"]]
90− ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
91− [Plain [Str "3"]]
92− ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
93− [Plain [Str "4"]]
94− ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
95− [Plain [Str "5"]]
96− ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
97− [Plain [Str "6"]]
98− ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
99− [Plain [Str "7"]]
100− ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
101− [Plain [Str "8"]]]
102− ,Row ("",[],[])
103− [Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
104− [Plain [Str "1"]]
105− ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
106− [Plain [Str "2"]]
107− ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
108− [Plain [Str "3"]]
109− ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
110− [Plain [Str "4"]]
111− ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
112− [Plain [Str "5"]]
113− ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
114− [Plain [Str "6"]]
115− ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
116− [Plain [Str "7"]]
117− ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
118− [Plain [Str "8"]]]
119− ,Row ("",[],[])
120− [Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
121− [Plain [Str "1"]]
122− ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
123− [Plain [Str "2"]]
124− ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
125− [Plain [Str "3"]]
126− ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
127− [Plain [Str "4"]]
128− ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
129− [Plain [Str "5"]]
130− ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
131− [Plain [Str "6"]]
132− ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
133− [Plain [Str "7"]]
134− ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
135− [Plain [Str "8"]]]
136− ,Row ("",[],[])
137− [Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
138− [Plain [Str "1"]]
139− ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
140− [Plain [Str "2"]]
141− ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
142− [Plain [Str "3"]]
143− ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
144− [Plain [Str "4"]]
145− ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
146− [Plain [Str "5"]]
147− ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
148− [Plain [Str "6"]]
149− ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
150− [Plain [Str "7"]]
151− ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
152− [Plain [Str "8"]]]
153− ,Row ("",[],[])
154− [Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
155− [Plain [Str "1"]]
156− ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
157− [Plain [Str "2"]]
158− ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
159− [Plain [Str "3"]]
160− ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
161− [Plain [Str "4"]]
162− ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
163− [Plain [Str "5"]]
164− ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
165− [Plain [Str "6"]]
166− ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
167− [Plain [Str "7"]]
168− ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
169− [Plain [Str "8"]]]
170− ,Row ("",[],[])
171− [Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
172− [Plain [Str "1"]]
173− ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
174− [Plain [Str "2"]]
175− ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
176− [Plain [Str "3"]]
177− ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
178− [Plain [Str "4"]]
179− ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
180− [Plain [Str "5"]]
181− ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
182− [Plain [Str "6"]]
183− ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
184− [Plain [Str "7"]]
185− ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
186− [Plain [Str "8"]]]
187− ])]
188− (TableFoot ("",[],[])
189− [])]
test/docx/table_one_header_row.docxdeleted

Binary file not shown.

test/docx/table_one_header_row.nativedeleted−18
@@ -1,18 +0,0 @@
1−[Table ("",[],[]) (Caption Nothing
2− [])
3− [(AlignDefault,ColWidth 0.33302433371958284)
4− ,(AlignDefault,ColWidth 0.3332560834298957)
5− ,(AlignDefault,ColWidth 0.33371958285052145)]
6− (TableHead ("",[],[])
7− [Row ("",[],[])
8− [Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
9− [Plain [Str "One"]]
10− ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
11− [Plain [Str "Row"]]
12− ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
13− [Plain [Str "Table"]]]])
14− [(TableBody ("",[],[]) (RowHeadColumns 0)
15− []
16− [])]
17− (TableFoot ("",[],[])
18− [])]
test/docx/table_one_row.docx

Binary file not shown.

test/docx/table_one_row.native+4−4
@@ -1,8 +1,8 @@
11[Table ("",[],[]) (Caption Nothing
22 [])
3− [(AlignDefault,ColWidth 0.3333333333333333)
4− ,(AlignDefault,ColWidth 0.3333333333333333)
5− ,(AlignDefault,ColWidth 0.3333333333333333)]
3+ [(AlignDefault,ColWidthDefault)
4+ ,(AlignDefault,ColWidthDefault)
5+ ,(AlignDefault,ColWidthDefault)]
66 (TableHead ("",[],[])
77 [])
88 [(TableBody ("",[],[]) (RowHeadColumns 0)
@@ -15,4 +15,4 @@
1515 ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
1616 [Plain [Str "Table"]]]])]
1717 (TableFoot ("",[],[])
18− [])]
18+ [])]
test/docx/table_variable_width.native+17−12
@@ -1,11 +1,10 @@
11[Table ("",[],[]) (Caption Nothing
22 [])
3− [(AlignDefault,ColWidth 2.0096205237840725e-2)
4− ,(AlignDefault,ColWidth 1.9882415820416888e-2)
5− ,(AlignDefault,ColWidth 0.22202030999465527)
6− ,(AlignDefault,ColWidth 0.4761090326028862)
7− ,(AlignDefault,ColWidth 1.0689470871191876e-4)
8− ,(AlignDefault,ColWidth 0.26178514163548905)]
3+ [(AlignDefault,ColWidthDefault)
4+ ,(AlignDefault,ColWidthDefault)
5+ ,(AlignDefault,ColWidthDefault)
6+ ,(AlignDefault,ColWidthDefault)
7+ ,(AlignDefault,ColWidthDefault)]
98 (TableHead ("",[],[])
109 [Row ("",[],[])
1110 [Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
@@ -14,27 +13,33 @@
1413 []
1514 ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
1615 [Plain [Str "h3"]]
17− ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 2)
16+ ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
1817 [Plain [Str "h4"]]
1918 ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
2019 [Plain [Str "h5"]]]])
2120 [(TableBody ("",[],[]) (RowHeadColumns 0)
2221 []
2322 [Row ("",[],[])
24− [Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 3)
23+ [Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
2524 [Plain [Str "c11"]]
2625 ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
2726 []
28− ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 2)
27+ ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
28+ []
29+ ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
30+ []
31+ ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
2932 []]
3033 ,Row ("",[],[])
3134 [Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
3235 []
33− ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 2)
36+ ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
3437 [Plain [Str "c22"]]
3538 ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
3639 [Plain [Str "c23"]]
37− ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 2)
40+ ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
41+ []
42+ ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
3843 []]])]
3944 (TableFoot ("",[],[])
40− [])]
45+ [])]
test/docx/table_with_list_cell.native+3−3
@@ -1,7 +1,7 @@
11[Table ("",[],[]) (Caption Nothing
22 [])
3− [(AlignDefault,ColWidth 0.5)
4− ,(AlignDefault,ColWidth 0.5)]
3+ [(AlignDefault,ColWidthDefault)
4+ ,(AlignDefault,ColWidthDefault)]
55 (TableHead ("",[],[])
66 [Row ("",[],[])
77 [Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
@@ -22,4 +22,4 @@
2222 ,[Para [Str "A"]]
2323 ,[Para [Str "Numbered",Space,Str "list."]]]]]])]
2424 (TableFoot ("",[],[])
25− [])]
25+ [])]
test/docx/tables-default-widths.nativedeleted−92
@@ -1,92 +0,0 @@
1−[Header 2 ("a-table-with-and-without-a-header-row",[],[]) [Str "A",Space,Str "table,",Space,Str "with",Space,Str "and",Space,Str "without",Space,Str "a",Space,Str "header",Space,Str "row"]
2−,Table ("",[],[]) (Caption Nothing
3− [])
4− [(AlignDefault,ColWidthDefault)
5− ,(AlignDefault,ColWidthDefault)
6− ,(AlignDefault,ColWidthDefault)
7− ,(AlignDefault,ColWidthDefault)]
8− (TableHead ("",[],[])
9− [Row ("",[],[])
10− [Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
11− [Plain [Str "Name"]]
12− ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
13− [Plain [Str "Game"]]
14− ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
15− [Plain [Str "Fame"]]
16− ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
17− [Plain [Str "Blame"]]]])
18− [(TableBody ("",[],[]) (RowHeadColumns 0)
19− []
20− [Row ("",[],[])
21− [Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
22− [Plain [Str "Lebron",Space,Str "James"]]
23− ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
24− [Plain [Str "Basketball"]]
25− ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
26− [Plain [Str "Very",Space,Str "High"]]
27− ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
28− [Plain [Str "Leaving",Space,Str "Cleveland"]]]
29− ,Row ("",[],[])
30− [Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
31− [Plain [Str "Ryan",Space,Str "Braun"]]
32− ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
33− [Plain [Str "Baseball"]]
34− ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
35− [Plain [Str "Moderate"]]
36− ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
37− [Plain [Str "Steroids"]]]
38− ,Row ("",[],[])
39− [Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
40− [Plain [Str "Russell",Space,Str "Wilson"]]
41− ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
42− [Plain [Str "Football"]]
43− ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
44− [Plain [Str "High"]]
45− ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
46− [Plain [Str "Tacky",Space,Str "uniform"]]]])]
47− (TableFoot ("",[],[])
48− [])
49−,Table ("",[],[]) (Caption Nothing
50− [])
51− [(AlignDefault,ColWidthDefault)
52− ,(AlignDefault,ColWidthDefault)]
53− (TableHead ("",[],[])
54− [])
55− [(TableBody ("",[],[]) (RowHeadColumns 0)
56− []
57− [Row ("",[],[])
58− [Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
59− [Plain [Str "Sinple"]]
60− ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
61− [Plain [Str "Table"]]]
62− ,Row ("",[],[])
63− [Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
64− [Plain [Str "Without"]]
65− ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
66− [Plain [Str "Header"]]]])]
67− (TableFoot ("",[],[])
68− [])
69−,Table ("",[],[]) (Caption Nothing
70− [])
71− [(AlignDefault,ColWidthDefault)
72− ,(AlignDefault,ColWidthDefault)]
73− (TableHead ("",[],[])
74− [])
75− [(TableBody ("",[],[]) (RowHeadColumns 0)
76− []
77− [Row ("",[],[])
78− [Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
79− [Para [Str "Simple"]
80− ,Para [Str "Multiparagraph"]]
81− ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
82− [Para [Str "Table"]
83− ,Para [Str "Full"]]]
84− ,Row ("",[],[])
85− [Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
86− [Para [Str "Of"]
87− ,Para [Str "Paragraphs"]]
88− ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
89− [Para [Str "In",Space,Str "each"]
90− ,Para [Str "Cell."]]]])]
91− (TableFoot ("",[],[])
92− [])]
test/docx/tables.native+9−9
@@ -1,10 +1,10 @@
11[Header 2 ("a-table-with-and-without-a-header-row",[],[]) [Str "A",Space,Str "table,",Space,Str "with",Space,Str "and",Space,Str "without",Space,Str "a",Space,Str "header",Space,Str "row"]
22,Table ("",[],[]) (Caption Nothing
33 [])
4− [(AlignDefault,ColWidth 0.25)
5− ,(AlignDefault,ColWidth 0.25)
6− ,(AlignDefault,ColWidth 0.25)
7− ,(AlignDefault,ColWidth 0.25)]
4+ [(AlignDefault,ColWidthDefault)
5+ ,(AlignDefault,ColWidthDefault)
6+ ,(AlignDefault,ColWidthDefault)
7+ ,(AlignDefault,ColWidthDefault)]
88 (TableHead ("",[],[])
99 [Row ("",[],[])
1010 [Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
@@ -48,8 +48,8 @@
4848 [])
4949,Table ("",[],[]) (Caption Nothing
5050 [])
51− [(AlignDefault,ColWidth 0.5)
52− ,(AlignDefault,ColWidth 0.5)]
51+ [(AlignDefault,ColWidthDefault)
52+ ,(AlignDefault,ColWidthDefault)]
5353 (TableHead ("",[],[])
5454 [])
5555 [(TableBody ("",[],[]) (RowHeadColumns 0)
@@ -68,8 +68,8 @@
6868 [])
6969,Table ("",[],[]) (Caption Nothing
7070 [])
71− [(AlignDefault,ColWidth 0.5)
72− ,(AlignDefault,ColWidth 0.5)]
71+ [(AlignDefault,ColWidthDefault)
72+ ,(AlignDefault,ColWidthDefault)]
7373 (TableHead ("",[],[])
7474 [])
7575 [(TableBody ("",[],[]) (RowHeadColumns 0)
@@ -89,4 +89,4 @@
8989 [Para [Str "In",Space,Str "each"]
9090 ,Para [Str "Cell."]]]])]
9191 (TableFoot ("",[],[])
92− [])]
92+ [])]
test/epub/wasteland.epub

Binary file not shown.

test/fb2/images.fb2+1−1
@@ -1,2 +1,2 @@
11<?xml version="1.0" encoding="UTF-8"?>
2−<FictionBook xmlns="http://www.gribuser.ru/xml/fictionbook/2.0" xmlns:l="http://www.w3.org/1999/xlink"><description><title-info><genre>unrecognised</genre></title-info><document-info><program-used>pandoc</program-used></document-info></description><body><title><p /></title><section><p>This example test if Pandoc correctly embeds images into FictionBook.</p><p>Small inline image: <image l:href="#image1" l:type="inlineImageType" alt="alt text a small PNG image" />.</p><p>Paragraph image:</p><image l:href="#image2" l:type="imageType" alt="alt text of a big JPEG image" title="image title text" /><p>alt text of a big missing image</p><p>A missing image inline: alt text of missing image.</p></section></body><binary id="image2" content-type="image/jpeg">/9j/4AAQSkZJRgABAQEASABIAAD/4QOoRXhpZgAATU0AKgAAAAgAFgD+AAQAAAABAAAAAQEPAAIAAAAUAAABFgEQAAIAAAAUAAABKgESAAMAAAABAAEAAAExAAIAAAAdAAABPgEyAAIAAAAUAAABXEdGAAkAAAABAAAAAkdJAAkAAAABAAAAKIdpAAQAAAABAAACXMYSAAEAAAAEAQEAAMYTAAEAAAAEAQEAAMYUAAIAAAAMAAABcMYhAAoAAAAJAAABfMYiAAoAAAAJAAABxMYnAAUAAAADAAACDMYoAAUAAAADAAACJMYqAAoAAAABAAACPMYrAAUAAAABAAACRMYsAAUAAAABAAACTMYuAAUAAAABAAACVMZaAAMAAAABABEAAMZbAAMAAAABABUAAAAAAABQRU5UQVggICAgICAgICAgICAgAFBFTlRBWCBLMjBEICAgICAgICAAZGFya3RhYmxlIDAuNy4xKzkxM35nYTA5MzllYQAAMjAxMTowMjowNiAwNzoyOToxNgBQRU5UQVggSzIwRAAAAZM/AAEAAP//NuAAAQAA///jlgABAAD//2viAAEAAAABh0EAAQAAAABNLwABAAD//+62AAEAAAAAKd8AAQAAAAFHQAABAAAAASNbAAEAAP//py8AAQAA///Z7gABAAD//4X3AAEAAAABWGsAAQAAAAAZVgABAAD//9qsAAEAAAAAUBMAAQAAAACr2QABAAAAAAABAAAAAQAAAAEAAAABAAAAAQAAAAEAAAEAAAABdAAAAQAAAAEAAAABAAAAAWX//4AAAAEAAAAAAAEAAAABAAAAAQAAAAEAAAABAAAAAQAVgpoABQAAAAEAAANegp0ABQAAAAEAAANmiCIAAwAAAAEAAQAAiCcAAwAAAAEAyAAAkAMAAgAAABQAAANukAQAAgAAABQAAAOCkgQACgAAAAEAAAOWkgcAAwAAAAEABQAAkgkAAwAAAAEAEAAAkgoABQAAAAEAAAOeoAEAAwAAAAEAAQAAohcAAwAAAAEAAgAApAEAAwAAAAEAAAAApAIAAwAAAAEAAQAApAMAAwAAAAEAAAAApAUAAwAAAAEAhwAApAYAAwAAAAEAAAAApAgAAwAAAAEAAAAApAkAAwAAAAEAAAAApAoAAwAAAAEAAAAApAwAAwAAAAEAAwAAAAAAAAAAAAEAAAAyAAAAHAAAAAoyMDExOjAyOjA2IDA3OjI5OjE2ADIwMTE6MDI6MDYgMDc6Mjk6MTYAAAAACgAAAAoAAP/iAxhJQ0NfUFJPRklMRQABAQAAAwhsY21zBCAAAG1udHJSR0IgWFlaIAfbAAIACgAWABAAGmFjc3BBUFBMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD21gABAAAAANMtbGNtcwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADWRlc2MAAAEgAAAAUGNwcnQAAAFwAAAAgHd0cHQAAAHwAAAAFGNoYWQAAAIEAAAALHJYWVoAAAIwAAAAFGJYWVoAAAJEAAAAFGdYWVoAAAJYAAAAFHJUUkMAAAJsAAAAIGdUUkMAAAKMAAAAIGJUUkMAAAKsAAAAIGNocm0AAALMAAAAJGRtbmQAAALwAAAADWRtZGQAAAMAAAAABW1sdWMAAAAAAAAAAQAAAAxlblVTAAAANAAAABwAUgAAAEcAAABCAAAAIAAAAGIAAAB1AAAAaQAAAGwAAAB0AAAALQAAAGkAAABuAAAAAAAAbWx1YwAAAAAAAAABAAAADGVuVVMAAABkAAAAHABOAAAAbwAAACAAAABjAAAAbwAAAHAAAAB5AAAAcgAAAGkAAABnAAAAaAAAAHQAAAAsAAAAIAAAAHUAAABzAAAAZQAAACAAAABmAAAAcgAAAGUAAABlAAAAbAAAAHkAAAAAAABYWVogAAAAAAAA9tYAAQAAAADTLXNmMzIAAAAAAAEMSgAABeP///MqAAAHmwAA/Yf///ui///9owAAA9gAAMCUWFlaIAAAAAAAAG+UAAA47gAAA5BYWVogAAAAAAAAJJ0AAA+DAAC2vlhZWiAAAAAAAABipQAAt5AAABjecGFyYQAAAAAAAwAAAAJmZgAA8qcAAA1ZAAAT0AAACltwYXJhAAAAAAADAAAAAmZmAADypwAADVkAABPQAAAKW3BhcmEAAAAAAAMAAAACZmYAAPKnAAANWQAAE9AAAApbY2hybQAAAAAAAwAAAACj1wAAVHsAAEzNAACZmgAAJmYAAA9cKGR0IGludGVybmFsKQAAAHNSR0IAAAAA/9sAQwAbEhQXFBEbFxYXHhwbIChCKyglJShROj0wQmBVZWRfVV1baniZgWpxkHNbXYW1hpCeo6utq2eAvMm6pseZqKuk/9sAQwEcHh4oIyhOKytOpG5dbqSkpKSkpKSkpKSkpKSkpKSkpKSkpKSkpKSkpKSkpKSkpKSkpKSkpKSkpKSkpKSkpKSk/8AAEQgAgADAAwERAAIRAQMRAf/EABkAAAMBAQEAAAAAAAAAAAAAAAEAAwQCBf/EADIQAAEDAwMDAQYGAgMAAAAAAAEAAhEDEiExE1EEQWEiQpFxI4GxFFLwMqEF0eEkYsH/xAAXAQEBAQEAAAAAAAAAAAAAAAAAAQID/8QAGxEBAQEBAAMBAAAAAAAAAAAAABEBEgIxIUH/2gAMAwEAAhEDEQA/APehabMIGEDCBhAwgYQMoATGdQgQ4GI7oCgEIFAoGEAVAhAoAgYQBAECigqNCwhRSiFBw54aEUWvDhIKDpERqGDMqqg6rIsbr2Co7Y4lrc50Ed8qC4cDjugMogoFAECgUUEAhAoAgEKhQBBoWAoFAHCfiqMtZxaCKhjz2VGShXLPS6QQ3ug1N6gbgaQZicaICKm48lkY0M6oOOoDGupkyWE5xp+iiAWupsYHD1EAADlFdF74ggNdOkIKNJLrSSecILtUBhAECgCBQBAqgIAgCBQaFlCgCDJ1FdzMNJB4wqrhlZrzZVBDoiI1QZOrpOkOa8ENabCRM+CqE1A1jS4EEDMHA+iDU53oaYDT2jUf5UGZ1V0xJudaSD7JDhn9cKjS2s0VxcC5wAjnKg5fdV6p0uAa0DPYKjRRe1lIxmO/KhCOpaHkGdYQXDge6AoGEAQKAIAgUAQBAEGhZQoFBCo2nock9lVQNA33tdLRm3Uqo46mi1/TuioSw5k+yeUEqDTUZ8zBJ26k89j+uQipvApN/Duabg2WPHcDsgl1Nz6FOrTa6bXH08RP+EGiqW0unNYGXO9cHXJwPsglcRSD3ujxMl0qi7XAUjL4GjQ6JKgpSBj0tdkyC46oNNJrvaIlBaFAoFAECiggCBKAIAqLrLJQcvzgIoNZGpKI5exuvqEdwUGd729O4vvDmu/cMSPKqslaqyk8vJ/49QWuH5D2093uQ9KPO70oeS4GnrGsDBQZqrrehaWEQabmEf8Aa0/eFUFkGmKlYkuHpYzsTpJ5RVWU3Bw26bQ4CCT7I+PPj7IK0KT3m4YaDgnNyg2tptmXep3JQdhoGigKAIFFBAoAgUAQBAFRZZQzCDlzgAgQ7X4IIPebvVFvCqpWhziXMf4kf4QQqspNllgdRcYgey49vH68Koy9NVrs6mpRAc5zRJDtXdp90IJdU67pOlptxc4N8yJE/wAomrUKdT8W8UTdTZ6GnWwd/wCZRWi5oI6ZrvDiOOPiUVrY4N0LwYjtCgowOH7iZQWBwiFQKoVFBAoAilAEAQBUVlZZAnCKy1XuktbBPHCKl+IcwAvY4azkH7FUVaWuALXYJmRlB2RTAFznE83FSpGbqdupSfFQ3EYBP/qtIxMu6nrBd8vqqTDkcgj+DJV/Eef1dRzXFjwWPbUJI4mMq4mvV6YGh07KDQQ97cN5Pcnx/pRrMEDp6QABugF1xzn7ZRcaadakykJdaJ0/0oq9PqGVDgzGAiRYOlEgygZQCVFMoFAJQMooSgZQCVR1KyhJkIOQwNGNUHDgACYM+EVnqUHXBzKQBPMEfUK1GZ+410VDafyDv8Ciqsp06jMummYwMZ8oRne/Z/selc4Sc0y8e0IxPmVfxncms398xv4qi4NBLhHxz3V8U8saemfuPcX66uz7m/AKa3mNvUPLg2lSaHVHic+yOSpienNDotl0l7nuOpHpn3JuqtUokmWvLTyM/dKho3NJbUJ8HlFaAUDKhAlCGUIEoplCBKBlCBKLAlCDcoQbkIbkI5JzPCEcl0unhCOKoY8RUAI4KpGDqKh6T1seXUnDLXajyr7SRz1RNb+vp1Wj1sAqN76Jns3LlYeurs6ur04ozI9+VrMjHltkaw5tB220es4lx08lZ9unr439I9tMRfcXZLjqSppy1NqBxQg3IQCQTlCCHQhDcoQLkWG5CBchDchAuRYFyENyEC5UiW8FeWoO8FJpB3gk0h3gkIBqgDukIx9RVvBjLQJE5WsxNZWl7hEkjTOR9VYyFB1nyKl8tGCDqO2EiePz5rA+KXW/KcCA4QSr+OW/PL49I7TAHON9QnLu/wCvCjtMxQVWgztyfphSKvT6m15Gg7JFahVBCkWODW+aMwISI73UindCQDdHKQO4kA3PKQDcSB3UgG6kA3UgG6rBlFUcrpHPsdzykOhvKQ6O4kOk6tUuFo96Q6RqOhoaDMJGenDazGttkDukOk6lQ1HE0yL2SQQYlIm+VY5NSvI18qOdutTasumJI/hWN55K0nuyBE95KRrPJelJ/f7kjXTQHwNUi9OTU+Z9EidO9xIvQbiQ6O55SHTk1Y7pDo7iQ6O4kOg3PKQ6DcKQ6O4eUh0BqFInTFkFbcBDnA4JQd3P/MULoEuOpJQc2lBzUkDRBwAXGFEFzYHhFZSbapjGVn9RSnnAKuC4vGkiOFpape8QbihdHdf+YoXXO48u/cULpudyUKEnlCg57gNShXLajicklCu7jOqFC9w7lCg6s8DBKhdD8Q8nVC6O+7lC6d1x9pUup7zuVmhFZ3KtB33cpSnfdylKd535ilKTWJ1KUEVY0SgGpISjNVy6eVnUVoODW6K4K7ytUd5KBveEoG4JnKUdbyUDdSgGpIhKgMdalB3AlU3jlKOS4FKjlQHEaqgY5QQuKwG8oDeVQ3lShvPCoN6BvShvQckyoC10CFR1egb0DegbwgbwgbggbvKBvHKBuQN/lKG/ygF3lAl3lKOHunRQCFAIKA5QDKBQGUCqFAoplEMoplEFAoFAJQKBQP0QKBQBAoFB/9k=</binary><binary id="image1" content-type="image/png">iVBORw0KGgoAAAANSUhEUgAAADAAAAAgCAIAAADbtmxLAAABmGlDQ1BpY2MAAHjapdG/axMBGMbxTy4tldJSwSAiHW4ootKCqIOrVShIkRIrJNUluUvaQi4Nd1dEXAQHF4cOXVRcLOLirJv4BygIggqCi7sUBRcpcbiDgtBBfOGF5/315eV9qR7qRUk2EpL087S+MB82mivh2BeBcUcddrwVZYOLS0uLDrRfH1Xgw1wvSjL/ZpNxJ4uohFiKBmlOZYC7t/JBTmUXtWitFROMYDZtNFcIzqDWLvRl1FYL3UAtXa5fIughXC30A4TtQr9AGK2lCcFbzMRJPybYxWScxDFVGE16m1G5ZwUTnf71aziPaXUsYB4h2tjEOnrIMVfG/QJyAC/GtKvYKFlRqQe4jbTkrGKtZM+WvZvI0CnjbtnfKb1XMtBoroR//yzrnjtbbDRxhdFvw+HP04w9Zu/+cPj76XC4t0P1M2+29+c3trnwnerWfm7mCVP3ePl6P9d+xqstjn0dtNIWitMG3S4/njPZ5Mh7xm/8b734Z1m384nlOyy+4+EjTnSZunkyzsP1ft5J+63eKWT1hXn4AzDofghlJQBJAAAACXBIWXMAAAsSAAALEgHS3X78AAACInpUWHRSYXcgcHJvZmlsZSB0eXBlIGV4aWYAAHjahVRJtiQhCNx7ijpCMIhyHNPU9/oGffxeaNY3p/5VC5IAQkAhtL9/evh8Pp+PiwaNKZubAYDuugNcMH4ZIAN6A6ATo68kdAA8VQ1DkoEIq2EILiBiALIQDTISWvz3SSQNJHwnilWTGgC/ZMSa1Fc8TDznZH4rgWOtRrwQKGh8VyNZ8bAY9Ccj1EGXUI0JwNE3n3itxrzis7Sq1TgBiNMwesKo1TjfcdZqXBaiWRpLrcbbEjBLU63G9QGv1bit+CSKWi2W8+3QLDluF/wIBgBEaNQWNSjFzHj7/zgOP92EBap3v2BqlNi2pEbGVi0yBNwkcRPiTVxIJDVLRgJxEXGLRgAgLBASkiIIwlIEYgyBJCnC4lKExN6yGSW6SD961nvvQaxhBZq4rbptbX1HlJPSokN37t9m9957a5utDux7Xwk06WnWWOJ2yqgkPqW4e2urnmNPK0HMtq0Hkkc7ZbSXUleHiNMIoGy7r/ppEwAIV+Amv1rS/3ghgCz23ns+m/HrASdJMWT2chsBiS2z73fcLGd+3E8hZ05nQ81zzOW2n8Saj1VzwTMHZ+g6xcPg5ozLASM7Z/hl9kaPnPFQmrcyvm8lFKbrAQwAoegtYFy34rEXRSFP/qEo4tmQ0wywlwPyG5G/BJQXvF5wOR4k7m9HjlupR/y6Mp42RjhWxm+Oh99BvMrwD3UCiGvkpxuRAAAACXZwQWcAAAAwAAAAIACELJ4GAAALGklEQVRYw11YW48dV1b+1tq7qs6t+/TldPsSx3bbcRwncWY0A4LMCOYFXpgHJCR4QvwAnpAQj/wB/gR/ACR4QUKDECMUEjLOZew4zsRxuu122+52n9Pnfuqy9/p4qNNtD1tLpVKpap/vrMu31rdl/nAgIjSpF0kAJAEHGJwAAIQheqeARVqomCQZGUkjSYLmTAyAkCJiESRVNYQAaL3h8k3SzPj6MjEzsr7SqyoAcRABQItRVZ14kqifmNEkTZNiUZiZ934xm4WE3mva8GYGAA5UJ8YYIyCipiKk1ZuTBAhQBGZQFRKvTAgBaQBIeOekBqpa+0gBxFgAlmhqhixJzUKMRVEUx/3RWmel3z9xzrVX2+tuRb3WnrDKVFUEgKlCVWI055WMZ76AieipX0AYzYwQUZqZqJD0tKCqFJAxhKiqSZKooirj06fPMt/odlezhngFYar+0e7jxWLR6/Vc7ubzpNnM4BlDSDLvvQ8hnAYFIlCFRUDEjASgIGFGEcBIoSrMCFAVhgiKTxJPkgJVSeBBhKqaTCb5Ip4cD/efPP/g9q2soSvdTp7nAuv2Vk/2BoHFyWgRYxVjbDezRiMDMicNxqCqqhIZVZxZVK3zaRkgXYaMdeDMoMoapSpo8GSE1t6ihaCqPs3WV/VwPpxOp8fHRw++cUmq7XYzSbLV1W5vu3fw7Emn0xwcD+ZzF8vKQtlI09R7J6SXOldgEDEwAmdguMyYV/lEVWEkARExEkoVBxHWxeUSFefK6fTJ48dlme/sXN7a3vjVnf8NIQ6Hk1ajOZ+Nf/3ZZ9Uij0V+fedqM0v2nz5ut7LtCz1GC2WVJqmry1KgZKLqlbo0qLPanJrAVKgSRX/LPElxQF0smiDy6Ojo7pd3qXLjxo2r1y8fnwxORpN8Nt/u9fLF5OTFcRVKDWE0HJZF2O71IsOzZ0+e7D3tdDo7168miU9SJ6IhBIGD2KuKMpHaPwoFXkXq9Aak+/u//TsFRCEgEAljjFtbW+UiHPb765sbJ8M+Y9HtdAbDgWs0pSge7O1u9Tar+Xwwmy0m03I0XpgbjydZlk2n43armaVOJIqQDEIIIKBABK/iBYuAnT4HwJrx1CkhRosAIRBBo93ImunO25dv/eBmb231+rUrRTH/we1ba+udhw/uSoZGOzt38Vx/1D85folYLhazqpg3mj5ruNWVTqPhxcEsAOa8ihJiAhMEQVChCgXmhKcWT41O6IGq5kCjqPOTk9F4PF7rrlvKRtQHjx/d2Lk+mgy+evrwhzs3Xuzv0tmbb5z79LNPzm9utdorEoNkzPPx+x+812o10tR7DyCqUwCMQUUIUqm2JOolbb/GjmbwoDGS9GZBnYM4IS0E5+TChS1Nk7Z28uPhW29euvPRf2fN1pdffNE1vXnzxsGgf/B036duvbce5tXG2uZkfnL79q3t8+sA4Rws0CJIAOI8LADUusLqeC0rTl4RJgyg1Fe+fB7yUrxTQoRWVoExbWTjl6P5fD7dO6yIF4P+bDK/92T3hzffLWGffPq5c7K1uf7hj3+PrLqbqxffuDQc9VdWVtY31846l1CFqJlalk8gr/UxAIzLLrZkbVK5WHgHhFIYmS+K6ZhFkY/Hi/5gPOhLUzvnu73L59KVxjyffXH314vFIsbYaTXeuXFtcHx4sPd9S+3l84PMwTsyBrMgQhUIgrEUREWUU4O8uhcLdW45BsWpiVRgoSyYTxYn/ee7e9/f/2Z8eOwYm8pko4EktDvpzOZXL5z3Dd3b2/vi/r1G0795cat//GxrvWPTaW+lvdVdXUkTCaVagAUrF6wKVSAGxIAQJEZYiVjSSrBSq4SVWCFWKINYpQzK4FHmhqjOgbF/+Hx0dJyXtv/46ZuXtrrd1V6ruRhNJqPZlfbq5999/Dt/+LNf/tf/nEyH585t73338OrVS3E8Pnl+MJnOi7i4fG1no7cJ79Sh7vPISwCwZYCERN3TjQCFZFxGE3FJV97iXCGIKBZlcyV799zbIdhsNnvyaP/x3r6Z+Tx02i6Kv/7WO8bFX/3ZT37xyZ2yf9Ta2n73vZ1vf/Xlv338+R/97MOVjc63X99fbXduvfuONBJTAlDxiBGAWKQZSVn2BZ4lDYwAlDQzkF7LEmYQyUSTdkvTzNuiZLz25vlOt3N0cPTwxcH7W2/9+NbN0Uef3Pvs6w/+9KcraePb3+z+6NKF+cHLvvN/89d/2SQsTSdr3clwMh0M1nvr0ki4yI0iQgBSu8dYOwxm4BIEyTrTEY1mHrNpZD3KiMIhlLEokljKWueyytsX3ji/2rqzuzt4Obh95eLd3+ztf7Xv1e2sp8OXw73h8Od//FNNtIh5Rqx322tZWoWimo1c7hQi4mgBxtPpA3VBkXQ0M8BOh5VoS3D8j3+CACqsR4EYzUyIalqaCqCxyIsB/uFf//lPfv93R/2jf/z4m0Zmf/6j977af/wXH/7B6ubK+dVV2+g6D0Yzg4OoA0kRrYoiEXcarFfzq7IueJKsYZktAXl7MRURiARakiQ08xAACHCGybj/i3v3ZoNyDa3/vPPg59cuf/fi4GKjPRmH99cuHT5+Ouv3ipV5b2ve2lxRdfPJLMa4ttKxEEl68ZH52bh4xkDhbLI2OYNiBpL+cHfmnKvfq2nf+eWXi2L+6PgQh42nk+GVc1uf7h9+f1T8ZOftXz76flu7L07Gs7FttCYvknH74PiDt24kjWa/PyvLElupJ2OMZFXBROS3hnoz8sxBS9+YYemhrw9L55xCFCYSalgR7Ehy/+DFnChC0kq3m37j9nr2L7uPnrw8UBb//t2emGsnybW8OW9M3uhc+fbprNWW0Qwh6MwKAQGEEIhlpccYSVLl/wkPM4unqEj6+7MyUZeIpj6pRxOJjDGO5qNpbNLsWTiSyt/dex5mR1Ui+9Phxe72w+moI1mmViSbG7xQNNpHlrhKBnkkcbIwi5WZGegpgMYYq6oCoKoiamZAfB1TWCoq+o/2DxzEiU/TNHXeBCGEqqqKGKGIDPOFTedDY8x8M5HEIRlXi5D7TtrsVpv5cDbZyB69eL7a6IjIfD6NNBHJy1A3tcRJCOV4Nmq1OiqZUgFznonzZVWIECoqXjWpijJGevVipFkZqipYKt6JE1XXjj5tJHk+n41jptrtrifqptNpq9WaTMcqyXon9VlqxHgyi5GjWa6qeZ5DJcsyM6OomVm04WQwnY3XIGkCQGEhzktjORoN8yp3zqVpI0lSUNXB59OhiChE1RdaSK0XSTNqoSSbmQe8F8Bi4jRN00WRr3TY7jSzJAEAQZIkCBUQo1aqmtSTHmJkrGApQtu7lodKKXDQGCyaaJo4mgeAEEPM667sd59/dyoQpUYDUQBCpZiqqmrNIgCEIKlgWS1OTl4OYl9gRoo40VgrRhGpP0G9qMZgFieTKgaKOFXQgolaCE7MBOrgnEO0aKWfLI7rWRaAnC4ATv3ZpiLiVQFYoCmzLAuhHI5eMsInIBkNUXTZUAERAVlvFSrziZoZFxOaaK3HAJOw1K9ArQXKMl/MJ7Ld6Z0l/1m86qMCGEXEe7+EW0+g4iFljCHxLQGcWq0NUp/Ur52K+Vc3ohrrFrs8PzhlJgBiKt7MYoxVKIpiIRudtdc9QSxheTPnHIAYCaNzTlXNzKg+YWRQpgKQRjGIB8Pyb0BJnv1ikFoYOwBEBKAEqFQlaRalFtqkc440n3IZrNp7Z4LExMpgy4SAVBaFVp9zhBCIaBQnDqhPSQgKIAJPksal+AG8ogpRnQCIUVRFoSEE9QIaLNCpqiPFQUK0/wPxadi/ncvxsAAAACV0RVh0ZGF0ZTpjcmVhdGUAMjAxMS0wMi0yOFQwMjo1NTowMiswMTowMGbLlncAAAAldEVYdGRhdGU6bW9kaWZ5ADIwMTEtMDItMjhUMDI6NTU6MDIrMDE6MDAXli7LAAAAEXRFWHRqcGVnOmNvbG9yc3BhY2UAMix1VZ8AAAAgdEVYdGpwZWc6c2FtcGxpbmctZmFjdG9yADF4MSwxeDEsMXgx6ZX8cAAAAABJRU5ErkJggg==</binary></FictionBook>
2+<FictionBook xmlns="http://www.gribuser.ru/xml/fictionbook/2.0" xmlns:l="http://www.w3.org/1999/xlink"><description><title-info><genre>unrecognised</genre></title-info><document-info><program-used>pandoc</program-used></document-info></description><body><title><p /></title><section><p>This example test if Pandoc correctly embeds images into FictionBook.</p><p>Small inline image: <image l:href="#image1" l:type="inlineImageType" alt="alt text a small PNG image" />.</p><p>Paragraph image:</p><image l:href="#image2" l:type="imageType" alt="alt text of a big JPEG image" title="image title text" /><p>alt text of a big missing image</p><p>A missing image inline: alt text of missing image.</p></section></body><binary id="image2" content-type="image/jpeg">/9j/4AAQSkZJRgABAQEASABIAAD/4QOoRXhpZgAATU0AKgAAAAgAFgD+AAQAAAABAAAAAQEPAAIAAAAUAAABFgEQAAIAAAAUAAABKgESAAMAAAABAAEAAAExAAIAAAAdAAABPgEyAAIAAAAUAAABXEdGAAkAAAABAAAAAkdJAAkAAAABAAAAKIdpAAQAAAABAAACXMYSAAEAAAAEAQEAAMYTAAEAAAAEAQEAAMYUAAIAAAAMAAABcMYhAAoAAAAJAAABfMYiAAoAAAAJAAABxMYnAAUAAAADAAACDMYoAAUAAAADAAACJMYqAAoAAAABAAACPMYrAAUAAAABAAACRMYsAAUAAAABAAACTMYuAAUAAAABAAACVMZaAAMAAAABABEAAMZbAAMAAAABABUAAAAAAABQRU5UQVggICAgICAgICAgICAgAFBFTlRBWCBLMjBEICAgICAgICAAZGFya3RhYmxlIDAuNy4xKzkxM35nYTA5MzllYQAAMjAxMTowMjowNiAwNzoyOToxNgBQRU5UQVggSzIwRAAAAZM/AAEAAP//NuAAAQAA///jlgABAAD//2viAAEAAAABh0EAAQAAAABNLwABAAD//+62AAEAAAAAKd8AAQAAAAFHQAABAAAAASNbAAEAAP//py8AAQAA///Z7gABAAD//4X3AAEAAAABWGsAAQAAAAAZVgABAAD//9qsAAEAAAAAUBMAAQAAAACr2QABAAAAAAABAAAAAQAAAAEAAAABAAAAAQAAAAEAAAEAAAABdAAAAQAAAAEAAAABAAAAAWX//4AAAAEAAAAAAAEAAAABAAAAAQAAAAEAAAABAAAAAQAVgpoABQAAAAEAAANegp0ABQAAAAEAAANmiCIAAwAAAAEAAQAAiCcAAwAAAAEAyAAAkAMAAgAAABQAAANukAQAAgAAABQAAAOCkgQACgAAAAEAAAOWkgcAAwAAAAEABQAAkgkAAwAAAAEAEAAAkgoABQAAAAEAAAOeoAEAAwAAAAEAAQAAohcAAwAAAAEAAgAApAEAAwAAAAEAAAAApAIAAwAAAAEAAQAApAMAAwAAAAEAAAAApAUAAwAAAAEAhwAApAYAAwAAAAEAAAAApAgAAwAAAAEAAAAApAkAAwAAAAEAAAAApAoAAwAAAAEAAAAApAwAAwAAAAEAAwAAAAAAAAAAAAEAAAAyAAAAHAAAAAoyMDExOjAyOjA2IDA3OjI5OjE2ADIwMTE6MDI6MDYgMDc6Mjk6MTYAAAAACgAAAAoAAP/iAxhJQ0NfUFJPRklMRQABAQAAAwhsY21zBCAAAG1udHJSR0IgWFlaIAfbAAIACgAWABAAGmFjc3BBUFBMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD21gABAAAAANMtbGNtcwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADWRlc2MAAAEgAAAAUGNwcnQAAAFwAAAAgHd0cHQAAAHwAAAAFGNoYWQAAAIEAAAALHJYWVoAAAIwAAAAFGJYWVoAAAJEAAAAFGdYWVoAAAJYAAAAFHJUUkMAAAJsAAAAIGdUUkMAAAKMAAAAIGJUUkMAAAKsAAAAIGNocm0AAALMAAAAJGRtbmQAAALwAAAADWRtZGQAAAMAAAAABW1sdWMAAAAAAAAAAQAAAAxlblVTAAAANAAAABwAUgAAAEcAAABCAAAAIAAAAGIAAAB1AAAAaQAAAGwAAAB0AAAALQAAAGkAAABuAAAAAAAAbWx1YwAAAAAAAAABAAAADGVuVVMAAABkAAAAHABOAAAAbwAAACAAAABjAAAAbwAAAHAAAAB5AAAAcgAAAGkAAABnAAAAaAAAAHQAAAAsAAAAIAAAAHUAAABzAAAAZQAAACAAAABmAAAAcgAAAGUAAABlAAAAbAAAAHkAAAAAAABYWVogAAAAAAAA9tYAAQAAAADTLXNmMzIAAAAAAAEMSgAABeP///MqAAAHmwAA/Yf///ui///9owAAA9gAAMCUWFlaIAAAAAAAAG+UAAA47gAAA5BYWVogAAAAAAAAJJ0AAA+DAAC2vlhZWiAAAAAAAABipQAAt5AAABjecGFyYQAAAAAAAwAAAAJmZgAA8qcAAA1ZAAAT0AAACltwYXJhAAAAAAADAAAAAmZmAADypwAADVkAABPQAAAKW3BhcmEAAAAAAAMAAAACZmYAAPKnAAANWQAAE9AAAApbY2hybQAAAAAAAwAAAACj1wAAVHsAAEzNAACZmgAAJmYAAA9cKGR0IGludGVybmFsKQAAAHNSR0IAAAAA/9sAQwABAQEBAQEBAQEBAQEBAgIDAgICAgIEAwMCAwUEBQUFBAQEBQYHBgUFBwYEBAYJBgcICAgICAUGCQoJCAoHCAgI/9sAQwEBAQECAgIEAgIECAUEBQgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI/8AAEQgBqQKAAwERAAIRAQMRAf/EAB8AAAEDBQEBAQAAAAAAAAAAAAMCBAgAAQUGBwkKC//EAFQQAAIBAwMCAwUFBQUFAwoCCwECAwQFEQAGBxIhCBMxFCJBUWEJFTJxgSORobHBFjNCctEkNFJi8BeC4QoYJUNTc5KywvE1Y4Oi0iZUZDZEhIWj/8QAHQEAAgMBAQEBAQAAAAAAAAAAAQIAAwQFBgcICf/EAEQRAAEDAgQEAwYEBQMDBAICAwEAAhEDIQQSMUEFIlFhEzJxBhSBkaHwQrHB0RUjUuHxBzNiJHKSFkOCojRTCLLCY+L/2gAMAwEAAhEDEQA/APstdMAYBGvaZl9gY610gKfiDqFyh0Suj1wdAPQSeg9sDTZ0UoIfj6aGZSEroXGMaGYqEqukfIamdAqukfLRBUVwo+mdEuQlW6BnOo5ygVigP56mdLN1foHx0MyEKwQfHTBycOsq6BjGiHKFUEHx1JCiuFAOpITKgoHpjU9EJVdPp8DqI5tlXSPTGjKit0D11M0KFW6fn30WvKRW6e2caBPRMNFbpPf/AKzohyhCSVyfgdSUQFfpwfTRzKQk4+HbUzJFWP01MyaEkJnAwM+mmzoR1TWkqIK6miq6aRZYXGVKnI9cEfoQR+mmJIMFAshGIAYKSOsjOPpqZ+igburlcH4Z0MyMFJI/XULoUhJ6RnONNmQhJ6PXvpsxUI3SShH11A5CLKxUkYI9dHOpEJJXIGc6mfooAd0hkPwBOi1yI7pJUjOiHqEJJBz27H8tHOmISCudTOEggWSSnft2GjnvdEgJJHx7euiHlQJBUYxqB+6m6Gy4+ujKASCv5HRzJtEgp2ONQFTdIKnv6Y0wejZIIyMdz+ujnUkpDLj6agegEMqPkM6bNsiEMr8vT56mcI6pBHzGiCgUIocakqQhMv076aUShlT31JSpBUdxjRzbowhlPl30Q5SEIrnUzKQhMpGmDghCEyE9sZ0A9EJDJ8x30cwUIQmQ57DOmlQITIO/bRLiigMgPqMaIcpKEyYyQO2mD+qiAy/IHvoZkShsnzAB0S9QlBK/D4fXT5+qhQmXPcAk6AepKCykg4zps6KC6egPcabOiCEBk7kgfu0Q5QCUFkxnGjmTaXQGX176YPlKTKAynHV302aNUSEArkjI0c/RAgILDue2nDksILKB37Y0Q9RAZcjP9NMH9VCDupxOpx6d9eAlVNch9B0C5WJXR+ulLkFboP002ZQFX6D20ZRV+jUkKEXVdHbuDj4HQDglVdGPj/DTAhMVXRqSgrFPqSdSZQ0VBPTPb56kpQOqv0DH11ApZV0DRlNFlYL2ORg6gKkjQKug4+B0Q5AC11fo7/TUzFPKt0evw1MyVV0Zz8NEORMJJXGpnSgXsq6To50wVdJ7dtTN1RA6q/QD6HQLlIScH5aIcorFcn0OdTMirFc59dTMgEhSjNIo7lTg/uz/AF0S7opCUUB+g0M6isU+XY/P5aOZRcupLhXbe3rJZKqjxZ7jIGjnSRmRKhkJXpjOfLV/LdT8DIo+L62kB9PNNx+X39JTkDVbTeb1TWmv22s08YFfO9FCoIzNK0ZdFUk47+W2qaTM0joJ/dANMFbHgHOMMM41XKVJJBPTkhsZH+uhKm0rHWyup7rRR1lKwePrkib4YdHKOD+TKw07xBui5pBgp+U+RzpQdksJPSf10ZUhW6Tj07ageoQkkA6MqQklPlol6kJJT9dMHKQkFPiR30cyBCSUB1A5EJBQ/PUDhohCSyYwMaaUoCGy/Eagcp6pJQ/nqSpF0PpGScd9EuUIvKQU+XbRzqJBU5xjRlGEMoPXRzIhJKfLvqNd1UF0IoP104dCMhIKEenfULlPRDK/MaIcpKGyY76YOUPVCKg5OO+pmMolDKn5Z0c6CGV7k9tEvRhIZMemdEuUQiuSc6OYKEITJjPy1A5EITIPUZ0wUQyvx9DqSpCEyfLuNQlSEMrnPbTZlIQSnzGpmU7IJU/LA0xchCCU+f8A0dEnojCEVwe4GofVSEFo/wAydNmQQmTHwxqByl0Jkz6jRBTAoLp69m0Q5QDdBZNNnUBQHQ9+300Q9MU3ZMfTRzpQdkB1z9dNm3TdkEpg57jTZrIFAZPoTohykoLR5+GRo5lB3TdlOPidOHjVMSpyMpI+WvArIzVC6D393RJVoSuj66TMpF1RQd/XGnlTdUE+edAlFX6Ae+dCVFcqDn5nRDkFbox8dGbKQq6BjGTqBxQBKro+uoCoSrdA0cxShXKdu2pnKOVW6PTUDkQqCflps6gKsE+fbQzo6q4T6/lqZ9woq6O2pn6Iqug6Oe6EQklDnsO2iHoZVXSRo5kysB9dQlBWx2z8NFRVooBYqOp6LjV0FQ0ahkSWEE4LqfdYD8mA9O/vD6aaOWU4FpTC03ACSa01c0k9bEVxIwXMyuSUPu9s4BHb/hPz07x+IJ3M3TG+VM1oS4XgStLQy0pUDq6EppEVmErkZJU9gSB2wM9snQZDuXdOy5DYuFmXraW2wWiKuqYUlqGSBGDHpkkK57E+oJ+J+Y+egbkxsqWNcRJWU6ckgEHHY/TSSgub8pbFi33toW2OpqrXe4KmGqttfTTLFNR1KOGRg7AjpLBQykdLdge3cacJiPCeHG43HVWMeQC0biFzXf7XvkDjm37p2hLctq1sVPFcY6KpeOBKmohPmiikUk+S6zRFBICMEFT1K51rY8UKpY+99Rex37yNt+xVmGa19iJmdvv6LJcZ8sLu+3W26S0F8+974sN3jtMlKqTWOklCokdSFJEbAr1N1HJZmUZ6OxxWBNM5ZENsTNidbf29So9oIDtBFup6/WV1uO4yy193daKrlp6VVhJj6WLydRLBVByTjobvj17Z1gDYAM6qoiAAtK2NPRTbj33bqD2wCgucxnjkaRQklQfNXCt2YYVsMD26iOxBA0VQRSY47j8tfzTV3XibwPyXUSpHy1lzKpUUPy0cyiTj9+jmRCSVHyGiUFYp+eoCpKQUPxwdQFRJ6c/DtoyokFB21FFboPw1JQSSp9NQFGEgqP8A7abMpCQUPwxqZuqEIbL8x21A9QhIKA+miHqRukFSM47/ANNM1ykJBUfLUzbKRdIKYxjTZghlQ2TBOjmUi6GUHwOhmKKQyeue+ma5RBZMZxnTZ1CUMp6g5zoB0KNQmXuB8NHOoSkFPTt202dFDKEdu502YKAoTJ2+OpmCEoTKfiPrqZjsmlDKZOc40c5COyEyDtnB00qIRQj8tNnRkITKT89EOvChiEJlwcYGjmQiUArj8tEOlEJDJ8+x0Q5BAZPUdtEOUIlCKn4DUlQtQmXPfuTokqbILL8xoyohMvx9fz0Q5RBZc+moHIi2qAyaaUCgMnx0Q5QSm7pgk4I0QUyCyHOO+mzdUEJk9cgnRzKEoDJgaOdQlAZCfodNmuopwlcjXgyZKqQipGhmKZWAzqSmjol9OfhjQlKkY02ZMG9UoIe2fTUzFSBsrhPnjGpmKUBK6RnONQOIUVujsR2zo5lFcqNHNKit0frqB6BCt0fqdQORVdH11C4qQrdB750Q5RV0H89EuQVivSCWIAHx1JRV+j8s+miSoFY9hkkAfM6kqSr9I+ulzIqxU/EaYGVDCrpOceh0QUEnpGM41JQgKinzGiHKELXb9bq2qSmqbXBRyXKncSwGaZkUN8VOFYYYZGcZB6T8NW0agBh2iYGAZXGNw3OOOS/bwtFXJR1FuqzRwRVLiNaSpkRYvLqgpbEDtMnSxGFdeoHB6jupsjLTdfMPpO3ex30K1U3yMpGn1i6cx72NFvXbNkNnu021qiCaioJkzKsssULtOlTHgCORQFXBOGLEDI9IaOZj3mJ1O0AkRH3+qRzRlAJh33+X3KjZ4gt03ba+zK2k2zdrYL9bqykqKCGVZatrlRR1YaGKFcftJBGXSSE+8ysjq2UZ9bMIMz2l03+F4v8AA2vte2y00WG8aQfhpJ/P5RF7Sf2zycI9mbfve7glBuy4mgqqyjAZlpzWuojEJwDLEnWqdYA/AxYKSQMVXCxUyMFhafQSZ6TcrKGZiSNAPv4/ei6XeKlJorlQiGOenWJWqWyCYkPqekj3jgEjHy+eM42E66Kpg07rz2tXJNsjpeWJKRabc/8AZjeX37FUQ1cK1c1TJ5TGJ6dsI83tCVFN1t2LjqxGVXXoJJFM9RliDpJ0IuBBn0B1W+ngHhzmPNnXnYCBr/4/ULeuMb7e6PdXKJ21T7u3NSV1ZBd6ZKuuhFFY4A0sclHGoVWjZK6GbrXplkPnZLAdlSqA6kwOIEW3kzEfDLMaC3Uqirlzw6dJ0+Pz0N+ogRZSlqr1BsW07kku8ktatHTSXSaRCWnqM5JRUUdyOjy1C5yAg7sTrkn+ZlFMdgPvrqe/ZV02Go4Rafp/j9yuacXXeppauTcd2ucMdmu9BNXSLPD5UtBMJ0lCSscA4SqlDEBQGQ9sHJ6GNY0NyAXbAtpERb5DXqlq5nvaG3bfa/btsRH1Ui4JEqIoZoyDHIoZTnsQRn+uuS61lWm1BWQ3CnFTB1eX1uncEEFWKn1/I6JBGqL25TCeY0JSkpPSPlokqaqxQamZGEgrjRBUKTgfTRzKSklQfhqZ1FYoMamcqJHTg49dHMokFQfhqFAobLjOPTTZkYSOkE5xoyiklAdQlBDKnvoyokED5DOpKMIZQ/DRzIJBHqCM6kqQhFPljUBRKQR8CNEOUQyo74I0c51QIQyuSQRogqQhlMH6aYOCkIZX17aMhSEgoPh21A9DRBKDOSNGUUIqfQDOmzFSEMrn46IKiEY/U/HRkqBCKH4aIcmQnT9+mDkQN0JlwfTRDrKRuglDkYxqAo9UJkHxGdMXKR0QWX1GpmspBQWU57aaVNUJk+WNQPMKeqAyfD002ZEBCZcflo5lIQWX0xoyiEEr39B9dGUMqCy+hPfQlDKITd1HcemmzIwglPn6aYuQhCKgep1A5SCEFkHppwUE3Zcj0xqSiApvMvu9gO2vDF0KtDK4GSNLJUVsD5ahdOicq4BPp30M0JSrAH4Dtoh2ybQqgPlpp6pi3qlBfoTqSkVyp+WNQOUVdB+R0ZUsq6DkD01JQVug/LUJUKrpPfUJUCsFJzgaMqBWxlimfexn+mpKib1kpgpamZfxIvUfTsPif0GT+mi2JTNbKx1+uMVus9wrxiaOLCN0nv3YKcfM9/TTU2y4BNTZJgrH2Hc9Nd6FZZg1NXrMKWenZSrxTB/LZWU5x74JHfuuD3zqypRLT21+Gv5KPZ00WUu1fDQ0ZqJCxiEkYJAzn9oo6fzOcAfHSUwSYCDWXhZVvdYqxGc4/XSAykDSqx3x6aOYoQqx8PTTFyirpycYzqZ1AE0pqqmrYPaKeRHjDMjEH8LKcEH6gjUJITOaQYWsTSXdK2tthnpah3V5oYiSJCvu9LI3pgNnKt8/xemrhlIn7+/uFY0DVcf3fcutmtu87PdaSarMMNtudHCjGRj78lNM464THmE+7IHjbrHYntrpYbl5qZkCZH5EaGb7Qe6cU81m2MfnZcK3byfPsCx7yum59o0lx2YtqpqnbNTArUSU1XIiI8M87jyYahQtH5ahwknSVViwKjoUMO6qfDa+HEw7e06gakXdNrbqhxbSLOWB2Pr1I0A6ydk4se2rXsyyis3ed48gcibGKva77uKVRLd7KMyVEtOUCQwq9OrIyRop66SLAKorBKmLJ8gDWvmQNibCdze+sQdlZ4T3ENz6X0H5R8JPe5W3VVRx9zBtG3RrfZaVprbHRCoo4eiopqmQdMUkZfICdLyHHSylVb1C9Qppuq0HEtFwZ7WuZjeQOn1V1RodfUGYOtjaIPXvutbr9wXb/s8rtz33dF0uG4IaqWkSvoa+OGO4vIvWY5xh4IllwpTq64oxlWPmHoNjHtDw1rQAbwQbRvMzbeL9LXQOGz1MhcWgaxHa0ESfTc3NlFu07tXatTu3kHatTZ+RrRuFNyUCU0spjWonpqh6wVFNMxePzVgqrqwL9DSRQxAq3UOnUB/JFIkgDKZ7aQR/4Wvcm8q+thmnEh0X0jWTAP0gibbbQsxw5vqpoOYJNsVu37gzihhqau9U9bVSia2VlZFVx3OveT9lHNLIktOyqG6MydZULovZFJ0RAOkDVocIG52M7xaZSV3seQ4G5mO85RpFgNpvp3Ui/EFu+43W87Jsu1ZLc9qorlbKu41E8yJAtUKmE01PCzNiSVTmZh0tjMIOWZVOHh1GJe+0yB10MnsALfPoSGp0AGkPFyJ+E76anTsL2IBY8r7Nv9qvdNcKzclTt+03qjvNHWSxU8S+05tkk4eaUq8kbO1M8RVAxeN16elhkW8PxDC4M1iCBJ/rb84mfUXtrW+tDC9oFj+hFtgANzN7qR+3a/7i27Z6Vq56u/Xu4TyxR1EhE87lcyEqT7gTA7L7oUIAPf7YKwzvyRZov/frM77+iqIDnGpsI9OwHwH5ldXtlugtdvo7bTdXs8MYjjBAHSuPQAdgPprHVrFzi46rNG6JTzw1SSvCWIWR4m6lIwynB9froOJGu6nZHK5yOx/pqZt1Ekp+7UzqSmtPMk6yAFTJGxSQA56GHr/r+R0S6LokEFFGGUMO4PcH56OZQFDXpbrAOek4YfI+v9dSVCqKkdyO2pKiSR6/A6JKBQynbt66JUSMH641CiAk4+mNSVEkpn0wNEGFEMqfiNGUUgoDnI1MykpBQg/TRDkYCQV+Y1CUIQinc4zjRzWUKGyZHy0cyOiQU+I1MyBQiCfjjTBEBDZcZ+WpKgCGRn10cyCGUP66kpkMgjtpg5CJQiuPTAGmL1MqGVB/PQLlIQ2XB0wdKEILKPgBqB15TNQmUemMabMgZQymO/ro5ijMoJQflo5kfRCKfMYOoHIygsuM9johykILL8v5aObdSEBk7nt30Q9GEJlP1A0S5SUEqcn1OjmUhBKY9NMHIlBZQcjt9dEOUQGXGRj6aYOUQHX4YOmzIwgsv6n5akqQgFDpid1AJQmXP56kpYQGXTByBFlNorgEj014WVUrY+nbUlRWwPz1EwV8dhoI5VWOx+WiCpoqx3+OjKJCrH7tBAq5Uj10Q4pVbRlEhXxpSUIVYPy7aM2UAVsEfAjRDioAr4+OO2pmKMStD3FuZNvyUd2njeW2wzSUtwkUkLTRsR0PjHvHq8texyBJ6fEaaNMulo1Onf7/AEVzKc8vVB3pfWsFPdaqoigqKNKeJ5YXl8oxqsg8yR3/AMKKmS3ywMkDJEw7QSP8o02ZgA3Urkt4vlxodvbYssNdVVFHdq6BKOtKtIqRtIwRWlDd2KlR1EscqjEOHI1qaWlxcRED9On30tCvDRmcTt8/v6arS7hzWtrtQ82Kvtty9qhs/tlxpWhpai4xpJ0TSSKMxIpjKOHVe7wgEZGbvd8x7XOtwLTv8td0zcOGv5rzGgJmTp0+K71brm122JJHQ11NXXRIizMYyvXL1GSMeWxypbCFQT3BUg4YE43hoqdB9z/dZ3NLXSR9+q3SW4otJS1sgdkE0C9lwcucHsT8nHb1/XtqrKJgKtonRZyNw3utlZAASp9RkZ/odVk2VZCX0gZ1GmVJVdH0yP46mYKErC1tDUo809D1SRyBRNCHIJwwy0eewYr1Aj/F27gjvY143RzLEVtWbrT3SW1VdFFWRIDA8jFDE4JDlxjqQd+nBHqPyOmAiA5O0CRZc6qa6rroLrtuppqy239I4ZUQt1w+xMOhqiB0XuqGBmCoSyO0fUvvAHZoBVHlv89YPrMfOE3LMG/7rld43ls+S2yTbut9z2/ba6gSz3p7Ksaw0zVTPC6yRHJk6usZEkWAGGR8daOZ0tbczadbDY7R2KuGCgDSG3g6GN/v81onAd2p+RONt5eH3llLpFyds2WKyVP37WwS1V8sbZprdfFaJinl1sNO6yAEBaiOeMke6TdxB0OGIpRlfMxoHalt+mo7HsslFzqVUMIu3QwRIG+n3EqLOxPEHtHghdn7c3pHvHe1BYCLFUvR2qGlqEvUHXSxU9SSkSSrLFRe0QMpfsfKLNJJGJd+NpOrtdVbaepkQRJI7jQ6fS1uHcQfBdadwDNjEECYmbSZPxCJfOaGoeWNvcTUlVvO68X7rs9vulfa4Nr1FHV7et1RRzzJFUSwhZkM06xwiAqpZJJXLgBSYMKXBxe3maSASRBIgQAbGBLtTECyvZWy+G5pAzWGtr3cTcDTKJF3G2hXNeVuJppdvbM3fwvdaDbnEm2N22S8v7ZY5DHdY+v2B6ny2WExU8Iq2qCz9Sz9IfowQZN2HdU8QNqWeZAHQG43idAALieulGIfTZhyLOAu686RIG/rrYEbFdcuVJyXx346tubF4otu171Bf9n3lLrT3mjehpNm1MEtBIK6iRJ2kq45JGQimWOJUkqyfNUTHHOwz6dTDudUJa0RcEEm5EaWsYkm4BsYVWOrOa+lmOYOJsJuAJJJIixG0m46gqXF62BLZ7XaKabeIuFXQXZax7DaaaCnStmZaj2h1Y+ZM9bUJJIxmLorsQvSgbAye/Nc/MG2IiSTYWtsA0WnU7yVspscQZAF5k66gg/DYAQFovLd6o948s+G7j/j+ONKK4NedyVtdDL1iz263UtNSgRB5F6pZDdI6fsQE81m6upOlruHy0ValS4AA9S51tjblnS+XoVkxbCGMafOXCJ2gEkkSDoYF7FwJClbY9oXiK9JuC81CGrjQRQyTOEeOIsMgRQN5ahiqnpJIX0+Jxzq+IZlLGb/AB+p/bp0vZ4gIA+/1P73+Gs0/JFTcbu+yrZJPXXuCVJ7lUPC0K2undWYGTAIEzDBEBw3fLdIIyzcMI8Rw5fnJ6D9ToO5Vr6IaM3XQddvl+e3VdSgvtuo6RKamgnZlqWpKaJpMvO2V/xHOCfMyS2CCGz6ay5S4z9j7hUmiZknun9Deqa43CppaZo5adURo5EcN1nv1enwHugHPc9X/CdA0yGhxSVKRbqswroxlGQChIIJ9PrquUmVaFUMDfLzbqIU6xVE8HtEUfaSpdoY+tmYY8sCMKev1Y4HyzsYZYCdp+An63OnxV4BADj01+cR92Wbt10iq7nX22BE8uliVXKuW6XDEdI/7vQfXIzg+ms+Uluc/f2bKt9OI7pVonWsrb3NG9U0aziHpcYEZRQCACAQSc/PtjTPGVone6FTYLNFO2kDiq0kr8xoSokdGjmUhJKkfA6mZRIKgZ7dvXT50Ugp8tEOCiQVI9QdTMFEMoPhogoykFSProgqIZUd/gdEORCGUI+GpKISCMjUa5CUIqR9dGUbQhlfp30Q4qAIZTHx0Q9QBDK5z66IciG7oRU/HtpsykIZUEknOpKMQhspBx31AVA1CZfkNSUcqGR9dNmtCmVBYY+WoSpG6GVB+miHIZUEr69tTMUwCEUx6HI0cyhQyvf0GdNnCWLIRXGM41M26bVBZcZOpnRhAZckY7HTZ0sbFBdSR3GDqByIQipGcjtpgUQgMvf46bMogso7k6AcoEBl9cY0+bdSJQWX4HOjnTEFBZT8Rpg7oiGoDL9e2iHKITIP10ZQATdlz8dEEoAKbRGR3HbXiS5ZlbHy7HQzKKxQaBcd00K/QB2xqZkXKukfLUzISqK+mRjRBTG+iuB27aJco4KsagKRVjGO2mzBGFWBqIwkgp1eWGXrxnpz3x+X6ahQITGvrYbesNRO5SAE+YfXpTH4seuAcenz1BfRO1s2TajvFPVzpSANFVBZWkjfCtGEcLkr8Ac5H0GnLDlzbKOZBWBv37CH2qlZDaK7KV7N0yRqrKVDkNnKd+lgBjBByMEF6XfUaffVM0TYrVL/AEtXaLVNcCovdJSQElZqfzJ6VekxqsyDPmw48wMSCUBLEMF6lvY8OdAsT8j6dD+fZBkAAO0+/wA1yvbVtse5uNL1snoXyqOrFx2+JJ4jLa4+oPSEyA4IUlAjg4kgliKkZONVeo5lQP3Ig636/wBxsQVaGnODPrHbXe4Xlty9v6svexOfKvlPan3DBaYLnPyBarbUeY0lVJb0poUBRcunu0dUlRGI0OJ0LZyB1mA0g1zDmP4ZtN5J/MXvpC6VJ2Z5psJaOtzEfqQQYH+ZlcRcm3y57R4y5YutDRxbMvVpiqaimjqvZkqameOGQRwxTEtPJIVwqu6lRTOMymYOcuMosBNIG409L9LCJv6jSCs4OYQ0GTF97D7077iF0bZ/J1GlbT8eWu90t9jtm5Lrbon6et5umV6gUkvUQRNFHJTh+xAHqq4JGTww7+YbS0ftPpP31d9GA4u1t8JAPz6KRcl9rNr3yrqrya6otNVNFTUkzBCkQLkJ8Qe6iXLHH4B8++UUw5kN13+/lZY8oeIbst3h3B5tDeJzBIs9FUmnlUggN+FhgkY/C65+R1nLLC9iFU2nzAdVi7PvCh3FYpLnZ2jrnhpo6kssqkM+TiMkE4YlHBB9D+7TPGXXSVbUw7mvDXWlZHbm7dv7rtBu9ku1vu1u62iMsEgZeoZBU/EMCGBBwQQR8NCtTcww4Qs7mmbfd4/MQtW3HbbZaLw98pbcKW5VwSlerplaf2tOkALWU47zIAvSHzlQB7y6vpVi5uUmR00j0Ox+7p2Mkei4Bfd9vQ2qr2atNuKx72VPa7KlTFUSQR1SKpNLT3IReVOis0fqeuVH6ChcEa6LcMZ8QRl3OlupG29ttdE1NwAzPudIFz/cnquccYVnKXI+1d0U1PxzS7c36N8Vn3jDuOthqae1vHIEneiMEjSiMH9oiyIuY50yq9Z1oqtosLDn5cu2t5127a7dkzalnl4k6RfKdIuRe1xbX5jCcteEGwbw3XtblFd+bY29y7bYaaOzNHtinFsiaOSab2OsKt7RLQysZ/OQOGGIpk6JYELW4TjIptyNaS0m5LrmwFhESLR8rgrPim1ql2ACBbWdRN+h6RFttRxOm21tvnHcHic2Fs3jraWwt3GzWqHkXZ9/kiqLZQ7gner6h5M8Xl1NJWU0fmpcKaSPzeqN8LI0sa63VXU2U3VHktDuVwBBLQB0OrTaCDuOhVVGoKk5pzEOEEyRMAdCAfqIMKHe59lczch/9qXgt3DuCm4erdsR1++rbva5U1yq7puG3RV/TJFFc1mp2nBjeOhq5pImMMC0pPtBljliudUptDcVdzRAyiIm5FoMSRMA3cSBEGUwIrkGk3krOGuaYFhazZgcokCGgE6gCWe0PGNxdyZxPHZr1Rbl3JQ7hWbYG39pQXxZL9fq+eHoFFFRySh0kRQzLJOEjhihmkldAj9OB+Dq589MDP5piwDZOYmD2JidgASRO8eCKRLnZWtFzEiTaALF0mbC53gCU38EaUW8ardXiC5atEdz5Tvlisdu3Bda9yKGO6mKOorIY6mWQI8FEBaaRQCAs61En4pcjbxd3hsbh6AhuYkdSLwYvdxLo/4gD1zYSnVc4VKr5c1sQNW7BsjSWjM6NXOJJIgCVFPyVDvHj+6X20JX7O49ttwvdklsctMjXGoqY6uSkBlWL9rFG0iOscODPKCC3vME1x3MDHtDyHPcG72E3joTGv4R6XHYp0z4jiASQbu001jsP6vlG/HPD5bLHunxNcqcnU8l4g4/jqJNh7DFOj08FJRUEUdRc6ql60Mb081yiqlRYB0xvQHGBIoGvEVXtw0uu5/OZ6TDAbzMEmTqHeq5rg51UgAQzl/+brv+UNad5Bnopkb35G2QbhFZbXuvdt8rpKY+3z2uGuurUFIzMhYRUULxlywKqDk9XwADMuTB4N7muLmAD4CTrEuNvhtedAb6QLG+I4gdJgXHW8wNx8N4WvUsV/s63e0cb8ZT2uzXQ0K0Uty6LBThlZllNYJmkrZZHIDHEMhlzhiPe1a9oJDq1QS0nTm6QGhoyiL7gD5KmniGuaXQXESN5J65iNNIN+wlbDs6mhs24LhDyNuinuFfTdNRBDA7Q0Kz1UqoVcMS81SXBReo9PSx6EGTjLUqhzYoCdr6wATbYCNTra5W2u5xbLGhoOvW287D0iTrJXRV35Rxci23ZEENJTK9DLJK/WVIZWCxQxoqlGIJkyOoFcL294aytoOdSdVN4/vefQLI6m1oAOpvHYRJ+oWZvV0lstPU7hoaRq1W8hq6np1UyzJ09KyJ1EAkAj3cjq6QMg+opjNFOesdJSsZJgrCbCuSXesu9wmo6eineaXz0aJVkE0Ajp2DHLZChVwQcEEEEg6trvd4YBMgaehJKavRa02m/X0+nVa1t/edBbN38s0csVVUz22sgNdDTwyO01VNCjxRxgjLyyJ0MFUBeklh8cX+CX0KZbuSBpsbk9huT6JarASL7T6AfcdZXR9oVdxqbbTtdpbOJ5IlmRaWpEpfqJLuRj0LN2wT2x8dZMQGgkN27fJLVaZmCtqjkjlDNG4cBmQ4+BBwR+8aqzWuq3NI1SiM/lpcyVI6Ox+emm6iQV9cjtoZuiKQVGMaYFBIKEfXRJUSSPgRqZpRSCo79u+pmUQuk6JKCQUHp30S6bpo3Q2XGfQ6bMjrZIKA49dAvKB6ofQfmNMXKITISfpqZ4TbIZX5d9HN1Q3uhFP36OZNskFD27Z1A5CbobLn6aaU0IRX17dtSUUIofpoz0UQiM9tQlFBKkeuNPmsohMnyxqB4RKEyn8jqSghMhH5aOZRDZcn0xoByKCynuD6acFQILKR+WpKIEoTKfUDUUgoLLn17HRBUhBZcYzjTBxRI2QSh+WjmQyoLLnvjvpsyEILLnUDk2VN2UEY0ZUI6ITJ9e2mLkxagMmASNHMla1BZMA/PRzlNFkBk7Z087IQVNkgHXilmLQBdWC/+OllLCrpz6aMogbquntgdtQlPlVdI1JQaCrlRjGNGU0FVj1zjUQcFWB8hqSUpar4B+GgjlVsA/DOjKGVNqmiiqkCuOiUAhJF7NGT8VPqNEORIharU7WuSyCW2bgmjjWCaJaepgWROp1UdXWvSyjK5I7g5PbVwrNiCE4qR5hMrhFztG89vV26hdy3szUqPBVyHot0cTQvBUeS/UxjlVUilKSiNCzHpYdTa6DHMc1uX++oIkfSRJ6p6dcZxbS5/wA/f7N75yltbbezLbums3ElfsWpb9kKSmcyW+VJQHiYx5KCOTrUqyk+oIPSc1Noue8tA5/znT5+q0MozP4YGp0jr+6fSXy/8X0Ox9t7pp933zc9XQSrMttphVBauNVbDtnzAGYdAd8Drx2GdFzW1HuNOIB3MW+gVNJ3is8V0AW6kaXvF/kB+SitzdLY9tX3a3K1kvHK2w7TYR0Xy11tsr4WtEdROrTVCARkNHAsTgw9RpvLlaWNRLBH19ag4EGnWAcToQReB66m1/NaDYmDQZUgGjldMmOtgB3+HZQ58btbsrdGx+CN58V8k0O46HkOReOtxVlgro7n7fSXONqqnaWp6wKcsKapWOcCI5VohG5lHRbRrPAfSeCAzmAIiI1/uL7dEjA1tTx3gcxygjeTlAbG41n6wsL4ZubLPujjvhvZc9t22vD229tUUN6u89TJU08qimjFNUUSiMxytPU0pRY8qFklVQwLdAj8O4Pe4znJsI1+xv023W+mGEBjIOonNpHmk9t9x8CuqcUcX8h0+87iu293UW47/VbgqNy1VuuNBNDb7pb4IaaNYpKqmUTJUzCZoQsgnPVHGp8zyD5dj6tEU7yMttiZJOxtAibRqTabx1eoSXQMpiIsYtJk73iTtadlN/kXelv3pctv09Vc5tjPbquiuDWuZ1N0k6WjnhZYGlEStHJA7Bm8zKrKAD7ynlYcCkSTzajtuDeJuCNI9UKdB3h8rZJ3/wAXv8B6rrdRuSk27tO8SXcW2lrK+pEUyR1DyqHZgghSUDqkZCRnA62DCTv1YFRGd4bT0H3MbfkIhUUWOe6Tt+X38tNlr1notqcQtydbbDSwUVrvc1ZcYqR38uFKvq6Kgr1HJLFzKY1yR0v6FtPVc+qxnUfkdP0HxTNaaj2lxnSfkPl+SJwralgsG6bfHXUtRZIN31qUqRRMn3iQIyyswLO/VIZlaSUlmaMfDOji3XYYvl+Qk/AegtukxNQl5MQYE/Lrv8NBouybqqaajsFdFUQrZa1q0PFH0YadVbqAjKHDMVGOxJXucdtYKZ5hNwqqIzExey0OuprfU2eWh3HQy7u25WVkdT5NxmWaC4DKhRVoECFSqiTLqyv7ue6lRpY9zXSyzh029Py6j5J2tBtO236f2/VRituztp8O773Pv3a9oprJxvcbyYL7UR3Gq8rYt1CJHLKyda9VBWJDSIHZxDSSxI4CxzMV7bcQ+vS8N5l8SLDmGsbwQZNhJBjVc11Q0nAOJLT1O99TrYWjrvuugy7hsdLvW1bPqts8s8qUlIsUFumt8LV9RbqxX6SlQRIlPCIRhjOzuVDsshUqvXTSoPfTdUAawm8mwjtNzOwAgxbor8TiXMYHF09QBvI2AmbzBjqFyvl+n5ts6bR5S4/8N254OfdtU09HSU9s3Dbq2Hd1sqZDUVFkukfnRBaepljd4qhDKaGpEboWQzRy3YV9J2ak+oCx0dRBAgOaSNR0MZhI1uMXE8NTd/1LHHM3TlPa1ie23raZjxzhyXZ+XducNcn26muEG4LHy5ta01m19y3CG0bh2hd7rPDa6qz10BMdSGlpat26kbEhgSoiMsbCVNGHwhpVRRtzNdcXBaA52YaixA9NDBsrfeKVWgajZMQbAgiCBGsAnNppcaysb4KuCLzvfkfdXio21vW0+ZtWW6ca7Y3DeKGKprd6rRX2qqbze2uMQjkK1U2LfE8iOUgpJWCssirocQxbKWFbRqBw8RrXEbNblhggzrd50nl3Vb8O2pjXQwHISL/1k30JEMbyCI5s/wAc59l1PX8v+Ebg7c9Gaap4Rkve46230FXWS091vV4F+uHnTVaANEKcTSqEiV+7p1YIMYWvibxRqSP93K0aWaMoFjrJveNDrMrdSxtMvqimLFzszv8A5GwBGkASZ7C2uO3/ALkn8Rt73h4WfDJxDtHbG9bVdFq75vimuEVBYtvXCOsiWpWkvlJHJUS32CRiRFDE7xSzwyVBTDRyX4JjmtGLxbyaUWEHmEGwbblIkEyGxmAJMRMfXoUCcLTl1UiY/puDLySQDo7KZLrSA0yurcu7C3NZeILHxpU7l2txdtuxyWX7u2lsa2zU8dNZ/N9lMZuEjNWPCSmS8C05kDsJM9UinOMXTrVzUIL3uJuSImJAyi3oCSBAhXcIwtZjGlvKGgyZzEmxJzECDckuyz33XZeM9ybIqKUbM21tuksO1qSGnYNW3v2esvEcFHl44yJ2naSKZ1jbzHAjRgMjKjVGMqOzGtUcCb2ABA5ovaAIvOpIVmHwx8NtRgdM63gZpJI9ZsAB1suoVF/t1daKf2S9S1N/lqWmtkxuDFIqbrWUSuQZRFGo6lMhwf8AhBBOMbCA7bKNdP7T1gfFaCx4JLm26RvEfP7K45d930lNyDuWuuL2Ox0dNYw9PLX1lWsy+ZIzeZO3R0ws6QoIogS4LOvuhio0spsFLLcmQLAEWFwL3IOp0tutIYTAmRrrE9CBEQOvoReJw+4ee4NjTcWVk1ZZbTapnuVJX3Rp4nWz0lMjsJ5TkpAonpY4HPYCWRwWynSB4JJe13SfU6CDvIJI6gCJmVU7DNdzbSAJ3mJJBvp8RuF0K8cmXe08Y2Xkex2KrqNvW2SkutXTrMrSewM6SVc0iMSoYRdcqgufL6gEDN7ogofzcjzfT6QAPiQDa99AgaTZc2ZJ3/LvEf3W78R7mt163dvC42ncVovWwrncKutthoFjZUEjxzRyOwBKpPFP1o3ZWVB37jNWIpllABwIcAJn4/lY/ErJXBMQLix3kwP1t6hB4kpG37unkXlKwV9urdoXS9imsNwpoGVVttLTx0zzxGQkSyTTQ1AWdQU9n8vyyoduqyu51Gk2jVF4kg2PNcC2gAhxFpOosElZzmk0z+GBrN9Tm00JgC8EdTKkpcJ7Zt201t2NNGsEUXV/s9OC8mSAqKEGWJJUAfHI/PXLl7zk1J/P71VNNmYgEwFex0lTSUXl18dLDcpXeqqEhPuiRzlsdgSAe2SMnHfUquBMN0FkpANxosuV7fHOdVyhCQQRnUCJYkEdsAnUlQBIKnRBRAlJIxoygWJGD/y6IcUSxIYd/XtqSpCRj17Y0Q5GAkdA7aOZANKERg9/XTSiWpLLnvoypHRCIx8MaEqABDK50ZUhDYAHOPpqSp2KGVz6flohyiGVI9RokowhFPU6hcQohFQfkdEvUhDK4Pro50UIqCc6OboohMuPUaOZGEJl+WNNKkITJ37jvoZkcqCwxjGjKKEUwO3fUmVIshEHuNQFTKhMPX0I+Ojm6JgBsgMuO+dNmlEDZCYZ+R1MyKCy4Pr30cykITLj00Q5RAcfHRDroZbIDKCM9gdNKkIDDOjmuiQglT6986OZSOiEy4+o0WuUhBZc/TRDuihCbuowf4aYOlGNlNhx2JGNeNL1lypAU+uM6WVIV+kj1A1Ad1I2Vun886IKZXC5+OhmUV+j176OZCFXR2GNQOgIwr9AOiHKK/SMdux1MyBCoLjPYaJeoQq6R8MDUzKQrFdQOUhaxeK2OB6gSpR1EUcfUAT1PGfiWjJ99cEY6fe9dWMBMIhuwUGfEFwHUchw0t246E/EO5Fr4LjX3K3tU0tLXSQnKi4W9SILhRszftOoRzMidKyID37WDxjo8OpzbCYkeh1B6C4B2lX03CmCWvI+RH166WhRe3TyLf7ZuThrYvL0W9tn3+mvdPZaS5WZWuljaOsjlcwQXZulpo5Gpo2SkrpIamGRafpSoKoT0Tg3NYajAC2J/pMjtFtbkAtN7hSljGlxBEPM2P4tvl6AHrbWXtsitm57RuO9WO4UVPvCJ5Hugr6FTcqSoRmWMvQVUcciq4VsskjqcZQufTn1KjgGB9mnSNL6wRb6fJNRxDc5awZoMHWO8wfpA+S8cftK+PYE4Lr5uFntzXyrulHIsdG0Ap4a2lu0OYqatJp5KOaqmd3ZKlJ4gx81YonkabXZwGIe6sKdfXvOhB1F7BtpBHQkiypxGGeMO+pQHygQRBN9+YACxE+i5vyTylS7wvvHe6PD/cn495ur7621Ny7HqlJbb/s1Kktv3JWw4eOGmFNIzCWEup80ilZmeWbULHuBFW1icwGoJILQdSZt1Ng6AIUwlX3dpayXCA3KSNbHSLD8RJkTcSSuweF7lva2xN37dt1LuCbkHdl3uF1aukr6Tzrq11AlWpniFPI0KJJVR3OnDTHDKYTGWLl9ZqlRxYRT5QANIiNQCYB0h2nWbBdd2ElsVzN+pF4uI0hvTYiZkgKZXK95445l2VJbt17NodwXNbVFW1NZDWGgqqBykk6Tw1cJV44agCPDNlJYVce80RAy4YPpkwYHcSNreo16gxYApjhMxADiCDsfgeulwdtfRYLjy8bjsu1au48pbnu29OLLrXUtVQ3v2VaG6We9QSR+TTXCnTy41AmFOwqWaOnkJmSYQq6ebfTw8v8A5YAeLwdIvJB7XtcixEnTNXxYcQwaRGYaRa3WTsBrotw5a8TvG+xt7RXDkDdtmsm+YVvFiqqWpqY/ZKCslSjq6yVUcdJp4qaoSXz2BaWJI0VQ7FTRToZqRZTkg5esmCQBAvJcIAA1NzCtZh25WPIAaCTBIEiDF56NzG8NEkqS3FklwsPEHF8e05bbRtQxyStQXCFKGorrhLU+dLDV/iWCVmecMvdkdHDFfexVjY8Uh4iwFrgACLdY+R2lYqQDy9x5sxmfWYgdIiPnC23lberbl4B3veq/bUtfUQ2SqrbhRB0Z6ONIpJI3BYxukxUoAyggnqGQPe1kFI06ljBkR3001EKzBU2+8tYDvr/iV5sUPic5WrKDj6+7V463Zu993BrRS0FVOLVX1FTFRSz9FcZ4wiTqADDWROyM8HS6Fz1Hsv4fzZHENOs3IFwNjcHca31hamCn4Yc6SBE6Te/aALzIhSo4csvPG4+Pq+33TZm2Zt5V01RTbneS+tT025K6JxBUtWxhJmipQuMLDKfP62jLCMt5gc+i2CX2GlpgbEaAk3sbAQb2jmVK1Nzs72Fpi4gbyQAdJFiTePW43PwnzXfg+73vg/lva1q2VcbruS6ybAudLXNU2u8WUTSNS2WnmcBoKyihToWhYBWp0R4DIElWOriLHVqTarHZsoGbqCfxHrM3d1sYtPH94YyqWE22noP206nUk3idl8slsulK8tdJLAI181Z0bBhKjPWAexxj0PYj9+vPsqlplbwXaN3Xz0/bA7js/wD2KbO8aux9lXTaPNnEW4rLXVF8q7NXU1BeLb7esf3dNUQxN7VTLUGjrYEmChJaYKjZlZH9Ngm1KZ8B7uV8iJBIJGsTYwTp6xYKivgxTYapgkXIBs4NMkG29xoddRK9A/Dfuja1Pxl4c+IOJTLYNqVWzaJhWSU0scFXQiiWQ3G2VUuPb2kZPMMkY6VaZWZlLBSOIsL6tTEVoIBsN4mACASQIgX17rRw/IygMrs7tjMyTJJ0A1Mx8xC89/BTT758QHh33FwjxAm4uOPDDZ99b52/dd2QVYtcu+qT+01wkgo9vTReZJT0RWojNXcQEf8AYmmpss8k8fSrmm008RiBL8jIaRNw0DM8WsIOVn4iZdDRfLhnmjWq0KMy2o8lwjlkyQ2fM+5BOjPNd5bl9HN18V3PifaFvtezq/ab23a1PFdrBaLPQCzx2egjeJbhJSNSZMiiBQskcimKUd2CPhhz6XEW162arJLjDi689LbX06bWWmnQp0qctYGtAjW83IzF3zkXJ1ub6Z4hYrFyLcK3duw7xd9j7i295kt23LJRzVtNS2tUDR2+NIvN9okqKZvaEiwYo1linkUyNHG9eANSmwF+h0A1LjE9IDTAJ1kFrdCRtIBHhEgyI1AABMkneDeBYujUASod7B35x1t6+827p3lLtTiPk662OFNzCru9NuO6XO4xO9KKuipeg1Iar9+Voj5RMUcD9ETYXXSrU3PoeHSMtzaMBDRI3IJHLG+aCbk3TB3hVm13tOUAklxAGUXBA7g2yxOgG5P4Qtu1G8OOtiXfkXaG5anjyigq7LYtzw7ZM0lyti03sxkjhkCC2xTCIx9flyyMrqFMIc9N2LfklwPM4A5S4WuCJve98oI0uTCWnjX1GhlJwgHUE3sbgARYdTF5AMyu9888M8ZWXiTe1Bwpuzd3HXJq09y3TTWaC4T28V0DSeVWs0QVJY6d0XyutWAVpIgBg65Da9bEPBqiRYTrE6dp3j1lW4QGgQ0Rl9ekEi86ehj5LSuLeFeMeS7nxrw7aqPf+4qrbApIuUZL5dauv9prqZStRbqiLz1iid5QWeMAo/SE6ZAszjqPrClnxRDQy4ZAFzoDJF4/MTYZQc9WpVNDw3VZeY0gDKTJ0kjMIm83kmSImfunfdstW8uMeBaE0FDSbvavNVHSO9LJZbZSxOtS+IlK/tVkgpoo26felkZSViOOHhafiZ6tTmFMT1BJiBruZJPQdSjWcaTQ5o5iYGn/AJXGjbablo3WM3fS2WTkHdnF+3Ky27U4p3Ftm3VW6K6MOlTAkTtRR2ynlXAiiqKaB1abr6olpisQLTB4tFAudT8SsC5zXSBHmLhJJG8EC34s0GGgyho1Bly2MOEgwWxFx/y5jB2iTeFJ202aZts0+3LdST0NJSUS0EVBTRR0tJRwBE8uFVj7riPpRYwT0Ad+wA1y69Yl5q1DJJkkmSTNz3vqVXSYykAymAGjQdtPvcq9Pcqq943HBS1lJt2lRa23PVrGYpR0gST9XXlVVPMC9YUdPU3YMDpnt8PlcbnXsOmmptMdh1VmQf7cX0+Ow+f19Fse2T97Tz7kW61lVTVESxU0EqRr0RKzHzMBQwD9SsAT+FYz6sdV1oYMkX316aeo37yNklU7DQdN/v7stxZPXAyNZs3VVNG6RjHwxpi5MEgoMdvXRDlCEjpPy1MyhSCudTMoksowMA6IcEUMjGiCpCGUH5aIKiQUIP01JUQyuTnONTPCiQUPwB0S5RDKg+udAFEoRUjGmBhSEgjOoHKFIKfLTeIpBQyAfqNDPdGDCEykE49NHMplKGQD8NTOoAhFceuNTOoGoTKDkgHOnndTL0QSo+OpmRCGVx6DRzJssIRUHuRnRDkwCCRnTEqFCZMdx6aBcgQgsvb6/wA9MHIgITL6jsfz0Qd1AIQGU+vfTAqAITgDB1JRhBYA4zoyiEEj1BGpMqQgsvr8tHMjCAy4B+OpKAagOvxA0Q5SEIqDo5k2VBZPj2xo5kC1BZcZOP8Aw0wcplQGXt29NEO6KbKamvHuMLKq0ocoq1C9SFWiHhRVqB4UVaGdRVpwVFWhKirUzKKtSVFWiCokO4jCkgnLBe3zJ1J2QJVGKNpFlaNGlAwrEAlfyPw0wcQoQtfu1WKi2yVdFLXxzQv1fsITI5IfpZCi9yDgg9PfGSPQaZkzCbL1i/VcV3FP/wBre395bZuqbdrrLJ1UF6sF8UlaWMqFeKoiYASQzIGdWbox1o6PkYG6nNFzXXB2I/Q9t/iCEuIw9IgMiR8L/wB9v0XlXtvjHxkbe25fePuOZeLuWbBZTXUdop79v6en3Jsi50jH2SGkuUkDLNEpdEehrDjySE9pmRgdd91bDF2Yuyl0SMhyuBFzA0P/ACG+jQqMVXfTcHCk57BJzAtLoJmI3BHprzOOiglzty7vXxick8e8BHhOs2tzltRqKr33bLzQex3bb89Ky0MULXFFnSvo6u4V1NNHNRiRPJidutC2rKOEfSzOc/8AlmSI8pm8gWPK0OmYvAWscQwtRjWRD3G4JggC99ruytETMzFjBOdfCT4mLftraHiE4X3VDcqjjcXKoodqVkNZWbmntTS1DvHBcKanhSbyDWTXOCmqY6hfNVVSRBJKjXUhTc4UnkgmNLASADcmQYGUkR1INlzMdiadGH0myQTOYeYDSQJBG4B00tNo7+FHxC+GykrOULr7NZdnUm4NrNuSzwWaGaho7zNZHo6e3Na6qnVYVqn9orKmpqmPVHUFneKONWcvi/FIAfd03kTBMh0jZrRDQAJj8RJhdDh4woqB9MwHAjUaC8iJzOJkwDEGMpiVKrcW97vsbbHh72DSrXbS33um5JvLc9ngiluVPX0vs1NTUtdSVa5zRU4jp1COuOinMoLKdYK7peS64aCAdLkkmZuCZO4IBA1C7FAhkhsFzoGUmSA0WDYtE66ySdtfRfjzf+z7zcaXiC18a2zkK5V9jenrrNT08U1uIqJiTLJNUytLAiJ7Ikqz/jjCKFbK6xtzkl+fKARzdCL6AQbzEXlXYxoYwVHkk6gSZI0ibbT0AXiXyP4d6/hrlvjSLe+4rzetmw74tGy937otxmnqNrVEd3kiigq5YVE8lJUolOsMXmEQuz9b9cdIT2WVRUOcSRBcBpPLt3G56aC7lxMVTJpNcQROlwYlwImxtERa9geUBexewqDm/j/jre23t88mbV5Z2JS3oXuwVF33BNFdLBY5KCeWRHqDTSrUUiEo0Mucx5PUSUZlxvp4ckOYC10EaEgmQBvIMkj07a9BniisTlsYvyjQ7+UbaC51JWo3fkjmBt/1PDvK/GWxPELapbM9XVtad7U9LS29CsKVArY5DEprEXzlChQSssrKg8pi1dGm0A1cO4Ng6lp6kiLO1tcbAbFTFVIA/lOg6AZbiIvmLYF+t5Cwv/azzBsywbOod9cScxbmskPIqXy4181PDuEUlolmy8slbRM61EaQz1CRwezK6p5ZZj5bE6hhA6plpuEhpbYxeDs68kxJmBe2izVMYxlE1XNLZiAW6XH9PKAL3Bup07Q5b2i162zT8V70423nZ62znb1vpbBcZDJFVUrKKd6nK+7LmWSHyikZwVYgojFefXpOcHNqAhwOYyIiZmL9BM9upvBSBcHk8hncHuYi0aTcmSBrZdg5BsWx9y7Ordnb8hbem17nSSwV9I8vlzTVq/tVqKdh/czxzBminQjyZY0kVl6ATjw1Z1OpnpcsaHoNL9iNeo2ukrYXxmFrhv8AL7+awPhu5ZuW8Nqbs4d33uU7i5R2RWSbN3DcZpR59466ZKm2XSTsMtXUEsc7Mo6PPSqUfgwL8fSY2o3EUxDH3A2BBhzfQHTeCFzcEwsc6kTLm3H/AGnT4jQ6QVFLx/cIw+Oq9UHg3t0iW+ktG363kTddXTVU6R0lxSGrotsUjmJlBd7i01wKn/1dsGRhwdaeEvGHpux77wQ1o6kw53yYI9XD0TYxxytwgmKpvtyNjNeNC4tA2OVw1C8xKXdHiJ3tyZwP4dPB1XUmwts86cTVPJF4uMdIqtwJb5CtLuNLEq+4ZKupZjBDmNKa4POygrJ0R92pTp56pxd20iM1/ONWNM/Im5y+i5VPHeBToik0F7nEMm+R7QMznQLgTIboTEyCQvpg4W47444U4d4z4s4qtFNtjjHbtlorNZKON8rS0ccSrEGb/E7dmZj3Z3Zj3Y68dxLGVa+IdVrGXk3/AGHpoOwXRwWCGHpCi2THXUncnudSuTc77k2DtSXcO795bVtiR7foKSQXSWOANJHV1UcBjWQlSo8wwI6yOkfTIGY9IOrcFUquApMfZxiJtMGNbfQnpddbD4ZgLXjzGeuw7dp/svCXwUcM7F5Bo91Q7Wt19p5rvf8Aed43DcLtuq7S7Io61rzU0ltt9ktsNVTx1aR0dFMYwojgJUAyn3Ydesq1Qyk11QDytjlbncSAXE5py3IuRIk2JkrC7E1m16ngl0ZzYOOVgaYAJAm9yQwk2/DIK9fuMPClw5S7ZgsVLuup3RTxU8UNRS0CwWSzUtRT+ZEv/o+3CGJ5UZXV/OknkLd3Y9KjXGx/GHudnyW2LpcTppmsB/2tAGymGwz6Dsw5ZuQLGdZJMvMzqXdI3XNuTadfD/vKy3amtVgo+F75Xxw71oq69VkFLa6qupGpqeuFLMxh9neaJYKkB2DdcbDuJCUpvdVaRPMAcpyzMHMRPWJy2BntC6dB7dW3dNzaYFpBsZJIEnQSblcR3byfUcgbF3JZJN8bF4c4921E0e4XF5NsutQPYEqUttBR9EYp40V6EVD95c1FRBEsLx+cNTKDWPD6hLqjiYBBcJzAZnG9g6QALHLJdBgvTID/AAsM0hoAGYRYXuJkBxbzc1mgizjpJ7hHjmq2tsm3cTcL8kSXqqpqdK++XeKmpWsdtq5hK0j0xgjWWonaR3kRBM7BFHmzAuGejGV2PdnrNLWCwknMQALQeUCIkwBewOixYcsokvewF75JAtdxJlxuYmReXGL9VhbRyNsrjznfeVPJvDa8q2LastTva5VEEa+wiGYSpNPK4jhidYaqBHRyip5yAFih1INTCl34S4ZQNyQWwNSZPqSWm1wrMThHPxFNwiS0gA2MS10jo0QTPQiTdE2NbeZuYd67y5Hs15sHE3Ge6ZLXJZqbdO2JqrcFXb6OCRaerNI80UFvDvPUzxQsHlRRBJIOtmRLXsp4VgpVZL2lxIaRAJABBdBJMAB0WuWg2lZaeN8aH0mNcwDLJLocJJJAsSCTAJs6J8pCmpSbFu9dtqj28/INVT2JYzE7WGjjpJalcnqzUyPO46yW6mQhmJb3hnXJOMYKni5JNtTYRpYBsgbA27FPUc4g2hx3uSD1vafUFZE7borXWUlPeb/f7/ZZo0g9kuckUsCyRsDGelI0BJz09JDDKp2GO6nGFxLqbQ12siZvrqT6/NMZc2AAPS1vvvp1WzU1dFJfr3b/ACVjMENPI8nb3+sOST8e3SPnn9NZTAph07n6QkLIAWSpp46qmgqomV4pEDqQcgg/I6XeCg4ahGK+uQRqAypAQimATnUzXhFIxj1GNFRWKjHoNCUIQiuNFFIKg+ujNoUQyh+GNQOUCTg/I6gdCMbobKcADGoHQZUAQyCPUamZFDZfiPXRzHRQi0oZHroFxRaEMqMghRoh0JwIQiPpqAoyksAdHOlhCIwe41A47poQig747aIcpCGy/MDUzIkILL+o04KkIZXOT8dQuvCkIRB9fTRBQAQmX5eujmRQSoI9BoyohFfodHMohMvxAGmzGJUhBZc/Dvo5lEFh8MdtRrpRCCy/DGRo5kYMoLJ8tPmUyoTL279tDMoL6ILLjt3xogokpu6+ucY0c6aAgsB3xohyMJuy/HT5roG6GwyPTUJRhBIwdGVEBgPTGNMHXUm11NFlPc68e5c1rtlQXP1+egSiXJfSPlnUlJmSCuPlqApw5JwflqSmkK/T2yNBDMq6fnkaMqZlXTpsxUDlfoOM6EoZ1QUnBx20cxCheFp9/wB1UG2o6m43Od4qCmTrrgsbSNBGchJcL38vPYt3x9MHVrWF1hqVZTYXGBusJvbfG3dt0NNe6+80lFbaS7xUlXN5yhQe4ZSfmCV7evy9RkMBNhurcPhalR2UC5H7LT75zztC227bt2db1TU9VXtRzrJROJLevkPIJ54zgrACEDP6L1AHB1a2i6SD06jrGvXp1VzcA8kj00m8/DpdaraOYEvO8ptu2qKJLlO6NTOatIvbadI5nlKU75eWRDGqsF9FdT1eoBawFpJOn7genz7rQ/BgUxUOn0k6XtG53WT3tR3G411DLfr9x1Zb1LAtIkJtE1VVSxsTgGUVMeV6sgJ3VfMbJOTrZRqUgMsOcPUAfVp+dlyhQq5s9Gw3J39LiPrPZRv2lx/vHZ+5dybz2jdeKN2VNTLBLf6SSy1lDXikSl9mgQsKioWonhNF05SMOQuVDZCttdUovAYS5ovHlMmZtZpAvuY9Fuq1n54c2x0hx06uBFydrjovM37QjeHJ8u+Ni+JzgPZFxqPEDxwsd92xNsu8TbiO/rP1QxXCx1NI9JiAyU1YrxSftHVkiDqehfK6nDsE/wAN1CoDkdY8uWNbzN4jQd4Os4MbhWsb4zNR1LRmAuYAkgkT6kDsVLmxeKXYW7fD9tnxDcM8mbY55L0Md1qIZKCmorpdqNGKvFLUNPCaKro3d40jeIeSUMQAWQtrnPYRUNB7C0AxrYT6gzmiTe/wW7BUjVIqsIaxwMXMzcwABfuIvqbr50fGbd9q8LbguW++CdtbNsvBNxrqnf20p2qo7pcdlzVTzUm46EqoWeCip6ynFYRFLLTxzywwyfsappV6lCv4jhmcMwgOA30LXdL6CYJ1GkHDUo+A05mmNQTLQNnC0wIMnpcEAOtL7hng/jvm+r4suW89zpuinoNzX62b8C1E8u2am4pSVdVTJZvIqICKaRKljVx5dVzSxIqKVd2di2MYagE25ZiTBAMzMQdNM1ySdFUKVapUaxjsjuUHLIgETqIEnQC4ZaASpe8RcI0vHO16KtsW56Hc236TY0lPVbXsVA9pFFWTQxxz1gVJhFCivEHVqlvOkaKWUTxRyxnWbHYhpLnEXmQXCbagabzo2wBggmV6fA0qtHw6bYDQYMG5NgdbkgAa72BsQuX0HLvJHiC27DwONtbH3VS7jltMd6sFiremShWpoFc+XVSpT0lNX0lXZp6mJU6pTMsbrJIEfOg0nYdwxGYyJhzrD53JBBiwiNhZc3EVKdbPTczLJExd0SQSQNO+cg79Suh8A86eJvlifdlk3DYdp8T7jsUXk7ytFTUwxT2mptlXHJUzm3KqsPbjO9R7PJKIlSqdyWikHVmxVGi3nc6QTaLgyIAnTlG9zYWlX8Pc4htPw5IETIknWbXgjSB6kajsnhEsNl5ZTkqep5h3dZuNNqVdTaqX+xASzUFxu8LTdUFTcYkLVLwRTR+U9OYhMs7rKXeHoAr12sa2q5mZ7ojNMAWuGzoTa9hFheUmML21fAw5a0gmYAc68ESSIHUm52JEL0KuPDUPFZguGyL1aLfZaq8UldcLrcaOne5mRmkbNVWLEvtgZ5Io1WYq/VgGQgLjmOx3iwxwNrAA27QJt9RCTD1nVB/M5nQb6ToNNoHRQU8XGz7RYa3aXivvu0qiwbxod/WCXc9xs9M3UdqyTSUdRcLk9Liaeighq5pD5oLUhR5E8tWJbo4InMMLMgh2ptmiQADuSALa73sFe2nSBqUxBbGmpuAZibAEmdo1MKTNBytsLc9Fvy67I5ipNv11vhmo7jT1FVR3Skoh0pLSTzUvniNqYwVXmJLDJEJ4QjB3UkjmxDYqN5ZFxY9DeNexBg7BbG03Pe3LckSJkaidLG9jrJXmz4tfEhQcBcgbE8S1Je5KKi2ffIdt7kq025cUtm5rP7TC3TJV1XlU0jwlpKmiYMz9clTArdFQ/mdjC0i8ZCCGu7t5TcTAlwkkB1ha5uBGLEmnTa6oLVA2TqQR0kWkaiXWMCLqbvgH5Tg3RuzxW+IJ7jtG+7W31yfXWqy7ttU7T2+5WmyUkFto5ErcBWV6hLoUkICuS5UsCCcWOa/3ahRJ0bmjeXuMW18oB63E6rG6hTrYms5o8uVg9A0F3UWc4gwYkHWCoR+E3cg4m+3o8UXA24L/AEFZtNuLqy67BpxStFSWelud5hvVypaeXBBiNVNVzA91BZ4xjo6dWurvq8LfUfqCwH0aHNH0IHWLrBiqGTHU6TAeZpcBqczoDp/8ZAHVeqG2fE7S724/tq8HbEk5goUq6qjnvs08lk2rTvHPKrM10qYwKxF6R7lvjqWkAz1opDGgcOLYq4l4pggETdxsNGC/pmyt7ldbE1Gmu+nTJc8G4bci4Fz5W7zJJBtkKjxzrYNkQ8UeI3mPxj0d68SvH1tt1TUUlrWmlpbDM1ErdFJbLQhPRWNWddNBVVctRUO7wtEU9BrbWfTNOjgW5ajiIm7+YgCToARBIYBAnMSgMOKgyV35WBpztb5csEuLjq8gCSJDZEADRdZ8B3hf3RwD4aOFtjck3KrvHKd6rqzeG8Vq5faJKevuFbLcp6JZpQZZUh86KjaQnLeQH9XA0nFsXT8cso3ZTAaD1LRGa2knmA9Fy+EGo6g+pVblLySBuATyg6CQ3tqTEL0IrrPTWmO5VVrssU1LUvJVV9PToqGaTpyZVVfxSsQM47k+9kkYPA8YmMx0sPvot7ABZeZ32gPiH4g4Wt3GH/adunal8s1zq3++7FW+dVSVtigp5bhLOtLTxzTGNmpFpyzoqYnYF+2NdPhdBznuLBoDFh5tGiTAmXSL7fFdHDz4ZBORptJtAM5u5gA6epXjzyXyFbuN+EvDPPyxZ7ts3kq02yn33yfX7rSS0XK63KSop6+LatHc5l8qvq5faJK6WIeY7rkt1CUI3qq2GLsWRTu1kNaG80uFi4gSQ1hgToCbXlcfhWOp1sKarYirLpJiKZmCSQ0Fz8uWJktbEABeldbyvuBuOaLnze1pt3hP4yqpKhbnWw1jT3zfMlTORGtks8SiWKSaGHohllp2uLeaOinUKJdcqphmMeKTj4tQgQyOgnndeBeXAOygeZ7bhb8HjvEa4UWljWmS4iGt2kWEkm4LgATYNqGx2Xwq+GWh5Jtlg3hy1xDsvaVosTpX2Ljkmlq6OjrXIqhW32ZOsVtTH56eTTDrhpnBmeSqq+qoTRj+LnD/AO0+X6ZxMACxDBA1i77W5WBrPNzsTQOIgPltF0kg+d8/1m0A2cWyS43qaNYz16hn82CJ6ajjMh95WDKY/eOS3WPUEjOfU4+evHk3WnL1RKyant1DLLhKeGNGIKqAqdicnHYDOgXSoxhJgLA1tfS1llmZpxJVRMqlYuoFZwewA9cEgj6gnTEw626sZTIN1zWiuNdet01FfLLcbba54ZKZaR6V1kmSGQB0Eh93yuvzf2vu9ShVUn1GjKGN6mx/Yn4bddVqeAGANiRv3I/P5xcrtqZaNCyopwOynsB9PprMSueAksVDBGOG6S3c/DQTQrFcEjv+7RkpZSCM6AMJgkFO3YnOjKkJBGM6OYowkFR2wBqZkQ1D6SfQfD9+oSVISGGfTH66gemIlDKHUDkIQyue3pqZk0IZTHx02YoZSUIrnOpmRBSCp7n4amdQBDK50Q5OEMp+78tTMlAQyB37DUlEhCZcfXRBTEJBUH10ZUKCV+GM6JKOVDZc99TNspkKEy/PuNNmRIQ2X699EOJRyoDKO50S5DKEIgE57jUDkIuhMgAOiHI5UFlzj5amdRrUFlB0cyOVAZfUfu0xdKmVBKgHGdSUQEJx+7RDlIQWAwck40Q5SEAjvqZ0YQWXv9NNmUCAVxnt21M6iEVznv30wcogMudWFwRhAde3f+GpnMqBTPIzryhIXIBVYwMDtoTupKvqEoKtSVFWpKirRUVEZ1FFWooq1FEKWaOEBpGCgnGpKIC57cbnZ9xXi5bLuVJWRyyU8nRJ5TxjpBxlZlIPvAkjB/wtn5GxjoAd9/JaRScxoqtKiTvHZlfW025tvbVmtO4JrZdXr6vbVQ4C1srdDeY8jYg8uZMYil6AGCdMiAd99DENBDnmJETsNfjI7T3BXUFRwhxFjBne2wGvZecnIdw3PQXa/wDKCWfkOz8R0FZDdBtW6Weqq4KhWBL+TRwiaeh646h4ulRNBP2lEkTZLdSnQIAykZzaQQCY63AMRqII0IhM7iTXEUSCSBcwbXIkmLzeWkXJETZce8P1dYuMfFFyRyRuHZfJXFtXV5vW3rJWUjz5tNXSpTtSu4zTuXlENT5yuYGcuA6tISa69N5plpg9SCImQdR00uJ3hWCvTqAMa6RaAZGkjym4JOg6yB0XpON68q3Tm3b2xaC6bZNptG3I79uKZ6iUVdJa5x/skVQvS6TFpmlVZFdWMdJ1NhmGsxoUvDc+8gwO5+m1z6wgK1JjGtyznNriwGpE31EbyT2Ut+P7fBfbDSVO7rtUzXq5KzzmmuJkiozCqfgR4x5LGSUnBBbpEZJPYDNWcASGDTtBv8e3zlYMS5zakssBp3/cd1naug31DBe4du3y1brmhSmpaP7xLUFVTxt0lmjqY0ZfMUpE/U0WGZFDdIGdRjqZjMSAbncSNJEgxc7yO6yVC2RmZe8xpfsdfSQvAjxibf5t8AnI26PEFwb4cbPyj4U92XF63m/YlJafNS31wX9tuOzwvIq07SpIxqhG3s8z08UjOjmV19Bha5xDAzPD2jlMiSOh6xtN76G05cRSo0aorsZmaSZBEkTHMJECdxpFwoML4LuJfGVbPCpzptO6WCl29vCx7qlrKfbURtMzLT09tqYKB0pRIjVeZR7Y6BuhlljWNhB1S7BWhrvEBdGXW+riO1hEDQnUkSANjnsxRD6PIy9hAhpadROriJgyBpBkrzn5t8JXLvhE5q4t2NwzScw7+493ZvCams2y4aqejrpWgR2ktsNRVU0CymogWVAGQSjEXusSua2hlQh1QwRrMfOxdEHaYPzXOqtxOAAdROZrjYNOYgkX1DQZ62O69Y/Bb4v+VLxsqwb43rwvztvTwR2S011ugq7XZ6hXqam118scibuipUnZQ8lQka0jGWOSSmD1LLEVcGlhqhe4jKKh0ki0iBlkiTYmQBlnlBK0HidBzWtJc2XHnDTmLhd03JaA20zLoImJXrrcOYdjbn3HxRtzbnCV55L2HuPZNferbZ7ZZqK8UcVfTOlLAtBVUk0lFDEJLhUsZlmRKd+o9SAtjnMpYjnOcBwIBJdETM5s0HRuhBLhFittOrh2DKZbFwQCLDKQAADLrgQNBqVCPYFikj5R8XXJG2OPfJ3NZH2ttKGybqpaqOvsN3TatKa+tqIoVLTRoXVorgvmvUrEghleMBj0OIVMrGNpugPLjI0yl1gL2n+m0TLoWvhdcvrvfUvAE31MugOkGbQCbgCQAdFIDw4eK2Cw7q37w9W8PbzpaS7XOroKuhhjobhZLXdYrZbwsdXXGRhTvUxoalxNEmHDu/v9WufjPErhtUOgjQ3FszpgRfLpYkdNVaOGUc5DxEwTIMmw1iNZtMGLQF3e0ty3um8VUlw2zyBv3iukv9HW7et9Ikdvr6ieGHIuklRU1RFbbYJcCKCSJJZcR1HvqsUeoMlK8gVLiTsOkC4e4SNSGi1nSQ+Kc3yGAwCHQM03nKLAEaSethI1x28fF5xlt7ctqfm+t3XtpZ9w23aVvt+5Ns1NoFTU+3RNNOvWjRilaaeJGlaaQfsekg5IdKeDqwPCZIubEOjlIFx8SBAuR0shfRFMlr8siZkg3iBeCTFtALkqA/je8MtRxJxDcPFJ4X7htjcvGa3E3Xf+yLZaI7laY6Y1bvNW2aGIxRy0bvTJNV2iRjTyGJ5qdIZg6y9DCcWbXIoVXFpEQ4mLx+KZhwk5XASJgyNOT7g7DVy9lOWkGBcuAgSBu6dDpbSN5b3GLivmLhvk/b+4tkbQrPDvvrajmj3LTX6Or2vumskpnX2un6kf9vGqR1AecQlHiIRpTEGGF5ezmzXadIOYCbz0G03JnvftUTTq5GEklwkgwRBiADO/9ItEWGigD4K7nb/BjtDf3gE5e39ZZtv7BuVJv7al7v0sVopN1bLrkarp3xPIkSGCuSop5nVpFBnT1HTjfjqrXOZXYCDJb1IcLDSSbG0QTHdYvZ7C1KTamFzZoEiP6Sb30kHWbC211x7d+56TxefabeLzetPHyttzi+g4P29bI7HDZ5bVcuQLfJcW9jiYKfaqO3VLuJHj6EqaqFVgVF9oAeYCg6lhXNqAOeKgtIcAY1I0LmiYbMBxl1mmENWcfRbh35WimZdcSMxJyG1ibeJEZcxbs5e/3Btk46tPHvF3FVntO4ty7ModqUEdJX1ErwQQU8cYhSkqlHlxrI3SyhPwRtE4ypRBrjcQrVJq1DAdO+/cHW0TO891to03NZTDLA2gDQa6baxAE7HefN+n39yh4nrh9mlsK+S3+j2Fdt0UG7mtUrPF97rtyNK+43O5lnaSupZaye1UNN1ARNJ7RVHrzTMO9QoU8NVq1hGZjSf+0OGRgAtBMl53DQABJcsHEaoe19KiTzOyuN7w4ucAYiGNbBDfM90Ew2D9B1PvC3xVMtjr6inG46eCN5Ih6ydfmKpjHqwYxeg9Opc68bfLmHlH+Upw7iM40J+5+aiPdfF5Lve/b4438MW2rbzJyBbqgxVt8r6/2LZ+2pSD0w1l1RZDVVa9JZrfSJJMoPTK9P8AiHVo8KcaIr13eHTIsYlzv+xtpH/IwzudEmJ/lVBTIzPtLBZw08xginM2zS+IIpkEFeA32h20OZ9geHWz3XcPI/DNh3jNaawbgusm3a97lvjc94np6GkjZKyR4qeSWSAxqsPX7HSBuiIRque7hXsrYinRpZgJY1rbQIOYkxePxPNi42m4WjEUH0aFXEVAHPAcXEmwGUtDWiBaXZWNcTzHNrJU1Lfx9tvw1793ZYd+bu2t4pfF9utaSO5bTsNrqRuC83euCyVdJbPOqJILPYY4xSIaypijj6Ij50nWFTWili24lpo4NpZTYbkkBsAk5qhABkkkhgJP9Iddcyo6qyi3GcSa245QJe1sQwCmw+cgCCRFyC4tbcdeunhZuNdW2Pkjnm2Vke9FimWl2/aFaLbWwrVUq0MtksksPQXqXWGKGW6dpp1bDJTwdMesv8TYwkUDmG7neZxF/KZhgNwzsJLnLfgS+pyvgAeVo1bsHF1pfBNx5JIpxcmWlsuVDtrYdNu6y2mtt+2qid6fymrpYIRHJLKsDBWK+fPMFGBMgReuJRhQpPHrvJPhvPN1gHvH/EDci5v6LqUKYe/JOmka2sfgNAAfXqpXW6W81Nism5aGaqjiCq5pnj63npeggBu4w5OWDZxhh2A9MLyGvIcuYQ3yfXv+y1fcnI9hkv8At2lW6W+osElNFWVucMhhkmEUIZgcL+3Vsk9sRupGe+mw9N0kmxFh6wT+X5hX08MTTIA5r73ga/RNd/3OtsAod6q8dRtIXYLeEasSEQ04c9NQ7kH3FaPJAww6vUgFdJRLYibxI9Y0jqdtvzQogumnF9P33Hx7Cy5nxNyBSbuh2lUxXG9UlxltlLJWUlbEGW3VVbUSyrBIyAKkpSNm8tjkdS9h+HWutQDJsIsPWGyYnWJ1GiuxDTLiNDJ9QLT6fp2upAHf1htVNb4K+dKdvLnWRi46IvJdYypYnJY9QKr6sAcfDWBzCbi4t8Z6fqszMM57iAPvr/dIW/CoqJJpJAAVZI0Vj0O8rgRqTjBKp0scHJ6sgHGdPki2/wBk/fqpk2/zYfqV0JVcRqHcSPjuwGOo/PGqS/os4b1SSnYY/jo51AxJKkflqZ+qYN6JBGfTGjmQyoZXtkeupm6KZUjGoTGqgCQVH5aGZNCGRkeh0Q5SENlz6DUzIoZGDo5ggENlz6aOZFDKnt276k9FEgrnRlRCIx2OpKiGVBydEORQiPX1GjmRIQSpGNHOpEpBAIxoZk0dUJlIznTBwTyhOvx+OmBUF0Ij0BGoChCCVxjtnQzJkMjscabMogFQe2pmhRCYEds6gKkIDr+ZGoCogso7nvps2yMdUEj4Htoh6mVBK4PcEaJeoUNlyfX/AMNTMgE2ZPjnvpsyMIDLnJzoyiWoJBz3OmBKWENlPc47amZEoLj89EPUiEBlyNO110VMrXlJ6riqtTMoq0CVFWoCoq0cyirRzqKtDMoq0Q9RVpi6FFjbrbY7pSNTtUT0kgIeOaIgNC49GGexx8j2Px0ucbp2PymQoX8x8ZbvvDWK/bH39cNhV1srzWLWyMnsfkufNEbnpPTCzLHkyZUK7FR+LXRp4ikRD2z6Tt97brp0MS4jISbjaDOxsdx/lRZ3jScl2+dmt3O+3IjdbjU3WvnprdHDDUQzoUQQ1JdljghdpveTMiRnKu/QAIxtMmADAteddTYXk9NNrLuuqlzi1rAHACBqQB66zuTPoov8b8fx88Wem31uHkvek9n2b97UVsuO1t/1tfVzRKXgNaFZOilo36SiwlY5qrqhEq/s1RuzUqigPDawHNEgtjuATeXdrhtzrpie19QtHkdMgy2JvIbHmEyS6YtaASTyvjrw08/00dx2/Dy3yrxJxsm4XvUPIN3s9LXWxKaoZ2ntl0tNXDNT0rFoaeV4S5pBJTRSGZJD5I0UfDdztbmnYO5pGhBB5rSJAnYA6rnY93guays8Z4J05SJuADlI2tM6kGDBtvrZfjz8Gt92rum9bB2p4quCK6ul2vb71s66NDdobM9vimSrrIJI5JTCtTSSVS09LU1EeEnjhgQezhYwUK5JpOyu1LXDQzFjoTBgkgHc7rGzipY7JWYXaXb3uZaYygHpNjroFIjibxoW/eF6u/HXG/F3L9p5MpJTIl0o7zaLo9VTsoboloqmsp6iUBfPMjvEirGIZIyQ8esFTAmS15b6cwj45YHbWSYO66tWuKsv8zQNwCJ3jK5xnSR0kyu58f8AjkuWx9lRU3iV25eOGrzb5pkuFdvKgq7Vb9xqk7wq1Bcpo1plqmCjriaTo6ukQs6uGWmvwmpmmlzN2yw6JG4BJi+vzWem+lVguIDyNNI/8svwGvVTYsF8pNxU1+r7hb5aulaCqjmsW4YBTSGkZx58ohmUxVsTKY0LpmP3mVZH6yDl8NwjLra4uO0EafG/YKqpldlpdb29PgQvACLgyt+yS8T1n5WsdUm8vs9NyXi4WvatCblPSUXCG671UUazPUQ95GttX7AKRHiHTTPMgkHvl39KMacZh3MP+5bMIBJDZNh1kyZI6hcNmF92r5Yik6+1nRlEu/pvA13la94+7rvzdXhbbxUW7imv29VbG3zR8w1F6So+57nDcqSRKSrjmhYzzp00c3moJGgLGjOQQxzVg8rX+CXC4yRrY+gi51ubFd/ixApElp5YcBtyRpMEixvluRHVc/Xkk+AnfXJfNFJttr34SeQbhZN4W63W+8xqNl3KqanofvydHVfbKKujDTecqeZRzVUUzowmaVFdSFZjaYtUFtOt8oOxAgX2BAOxlKrUo1nVwZov1IveIzGDGVzrmDeNIUmfF1sPeNl8V3Hm6fCrynt/wpeKWagmmt71ElLUWLcgNuFU9Dd6aNWhrWlkbs4iNWzZYOIwCKaGKDsM73g52je9gCBynoL6nKN+isxOCzhjKTS2bA6B0k2Im1wLtudAvP3f29vFRHa99eMfifdm1ucueqSpsdZuizV0b2bcd2sQp/KktaWON2o7zZom8yahuEcYlEVRI8TSJJNBrfVbQpsZQJLWyYm8aGc0S1xGrSNgDFisWXFNq1K9OkCQIcGyAIJkQZk6uzBwMzrF54+CG6yeJDa1p3/tfcvKuxOB77uO6TzXe7WqC4XO910nn0dbb4vMVoaG1+UtNHNHLE0rzI5WOGN1aSkkUGBzmjMG6AxacwJNzOa4AIHUk2GltX3kF1B0HMDcQJADYaLTAkZjoRYauXsDab/Lxlbafb9lvu+eZ9u0lI9JQV9XQUntvtQgWpWoq69TGskcat5RKw9YwFIcjpPJxL2vJq5Qyds1oFjAuZJ6nW+8q/C4J5ptZUIzE3MHcwBAs22gECIUZvFtvDbNr4Q2fc7bdk3ZR7uudsFvpqKrM9uv1YGNT7QJoiJCnTQ18riIO0TwRe6oKsLcNSLcVliInUXaNNN4BGsAybqyg41aLgdWxPrIOWRYToDuJtaFA3nTw2Hb0VBwDuo2d7xdNy00dtvW38WOqu1kInr6iZ6aieDqqI4YrhElKxkGWSYNUBuhdTMW10FskAEkOvEWiTOstEiANIGq2YWmchqkEOmOUkNuY0kCGiS4kEm8wAsX4ZYN9+HrbfOOxOQLtt/k7w43C1U+5t0batLSuKawSJGKnclHFTsvQaOeWOmvtqhjTzQxrolLyyQzb30aWIaL/wAwGAT12aZvBv4bjYEBukEeXqVKuBr08zTlM6RvuBEAkai4vNpgx28SdVwduzmj7Mvd11ue09yWfaa8g7FoatLv7VUV1ZbbHDNSiKvmSfzZjV1tHLSlVmDOwYZMmVuw7HltU0pzVGhwAGknKbCOjg7QATMCU+JYx76FOsQclTmJgghzXPuDAIgMN5kwI0BX4TNj+Irjr7YxrVv3iyz8X8s714CpbzRWm3VUVPZZ6m3yQwe1+ZIsrtJBGJY+pVabzw7hgrK4pfVY3DVQ58tzC/QGZAAiAdNQMpvuDRisXSOPpOqyGuZlIN8zmmWgkGLSC7USIjLC9ceN6em5Km37cZbpyLY+DHt1yvN/3PUu4uG9LashlmS2QxuTQWjDApWnNVVpUS+zdCP7Q2HFPZh6ZzsBIiG9D1ed3dGCBAGe3KfSVsTWqVG06Lg05omwAOkMtDjrmceVhs0EgFvm5R+I3ZfH3jUruOdtcd8wcp7r2VxpsuybUtW2dv117FntU8dffamhUjpgociewwCOqmjEcNDGGLLH23ZK1WnUIAzFzsxJaAS1rWAkkx5s5kA3NhdcoVcJhsQykXkU8ssABJIe++gJILWtEyJEQRqpY2r/AM47xO+JnaVy542/suj4YlgjpKvjvau4amWz000TIy1G57lCkTXGeL2iQtQ0+KSQMGLTxxiR8VMUMK1zmODnC+Yt018jXa6QHOuNYaSAuo5tZ9EM56QOwLfEMkWLhPhzplHcFzrx6ZcLwW2xcb7G2VYv7GbYtkdmeWkoLba1tlq9jTLvFCIQRTI3UroYyOgOXGR2OXi+IFTEPc4uN9Tc9pH3pG65fD8I+lhWnwwH7gGYcT9e5Mkncr5s/GfdN3eNPxn1/HFTv+88OcI8QXRdpXHc9BEI7nu/c08NDILdRJNG8UFXSU9H1TVCK5p4mll/AzhOvw1pEYksM1CcoFpAcS50i+UGLWkgBV8XzVf+ga8BtMZ3nzAZ2wxoBsXHMYJkAEmV7X8C7C494TslVdeLKpbtyNuWme83LkDdVVU3O8bulpnhMtbdKt2kkmkMQcRqWAhRukJG2UGXHY11RpaeWmyBlaBAzdI3/q1JIiTBK3YDhgp5fFGZ7rEz0FgDAhg/CAA3cCLmUu6OWLNbeN75dq+8Rmj6WuFbU08LGAQvOZGFT1H9kHWKaIHJQZz290a4DcoguEAWv1g/vfddEYMmsGgenwAEj89p67qFj8l2bcI29w7Zdw7fvlDYqiz3mVKBBcLfLT+1wxwTm4F0hmSmT2hVJdj7RHEvSwAfXfoMzVRVMg3A2nlMwCJ5rRA0cTayjqWVriRzGZk8wAOhAmDPmmLDqV6Mxby3jLRbyuwti2ujiukcdM89WzFYmp4+lmVIwqF2cjpDEKcdJPVgccU2NDZMk6279Se2sXkrKMNTztZ22/ydOh6Sou8v36bZ28uVbjPVbRoNuGK2XS5Q1XnVlNV0ziog9kpKdEMkxaWT2l44lLhiMK3mYFuHcHU2ls2JiNZgGdfwgWJN+tlfhmDK3rBgm0QZudp8o/wtEtHJfI/KXH3GNDx6lRZoJ9u0k9LdLqYk/tAlbS1cjSPSlJegSrBI0bsPxv04AXzBfjMK1lR5qmALQDcAAWJkXuPTWdi+FewNFWzy4yYmLEC0gSBPabCJkCO3hY3RdLFxruPalo2HyDuy2Wfel3qaW5ewLWK70VTUNTVklZUzRF6pTDOAtO86SgzOGBDpHurSaVJ5cAMu5As4CYA2cIJJAgEaiSshcxuJqNfLnSWnLJ0IJBGgykhp3lsQLBKr+a7tyBy3dqm0bjlte17JPUWr2VrfU0s1IlwqBMKlDNGYjWO0zxRxzOo8pg4bD9S0soimAXbwJkRy3AsdIALjrsdweo2mS00hE6n4gCdJMCYAEE+gj1X2Bua03W6UT0cs+4w0JuFIKctOZ8MqPOAhIUKZCque8hkc56VXHNe05TFv0B9dzGmwF7lcrF0SAM9p+Gn5xv05QFvVt31VVe7UouimFqqonenAYNJ5cCkyTPgkKjFlRcE5ZT379s/hQx0m4/WAB66n0VFWlDQQD0+f7fqt3tt6WptFbWVR8poZp4GY9gegt0tkgDuAO47ZPrqh9ojdR9OHQO31WYo5fPpaZ3KGUxKzAEHuQPlqPIBsqiE4KDOe4/LS5kAhkEZ+miXIwkFc/loz0UjdDKkZ+OpMBHKhsuT39dDMpCQUPfRBUyoZXUJhCEMqRkj00cyMbofSMHAxoSgAhlCB+mmzJo2QyM49NQuKmUoRUD4jTZlIQ2XJPpo5rJoQSProh4Ri0JDL64A0cyh7oTLntjOiHKBBZSO/bGpKMILr8f6amYbooRUHGdGVAhFSO39NGVEMr1fEaAdCJEIDAHI0c26kITKB2ONHOpCAU79tHOmg7oTKSfQ6OaE1oQWX4HtpsyIQWX44GBoZlCgMvx0cykILJn6aMox0QGUZ79safMgBuEJl+YGoHqaoDJ+o0cykJuyEemma6CoBaFMY/nryxcuCq+eoXQoq1JJUVaUv6KKtNmUVaOZRVqZgoq0ZUVakqJjX1U1HD58MazsCAEDBWZj+EKT26icYBxn56k9EzWzY6KKG4N90thqLuzbNtbyUVWaWiqbfVqKoiXu49kCySlwRIvkBHLFCQFBB1qotc85A6ZvppGh2+c6arvtweZoJcYiTN2/A2HS9tQLqMPN/BOyt9G38h8m8fWjaFzgmiqqumrNxyWm3UcMEZElwdIJc1caJLKGaQUzlSe/uoD2MLiAx2WQ8kR5cxk6ASLEkWgu9CZCGHl4NOgSI0LTE7xbTobEa7cyipb/DZsbZfFnJ26+P/C3vzfXIzzC7bZ3DZautal3Nd5JGng9usdXXQSNCjTRw9Uqs1SJnnKq5wnXdi3tcKTHNZsQQ3MIEHmykdTE8oGX15NSo2pUnEOmk67occpFzFjM/1Frcs+Uwtd8OG6tkb6t9ypOGOVL1Z+QdrIslZtnija1PspqipjAnq6an+8Vlrq8GVpIJoSpx09XoBqnEV30+XEMJB0NQmCBYEBgaBa85tO6avg6VZgLIbeDl5yCZs7OXNABiOUGbQASmtRxDwt4p7PuS38Y+ILxU8MbNo6ikv7Xat3vXRyybjEsksc72oyezrSGalErGFaaWYUz+QESbzpK/eS1xdiKDHHQgDQdCdSYOhmxGbSFofgKjKLaVGoTUcSQQBBy//EAXF4AaDYSZhl4cfCtc9zbPufIPEu+r/wADeKnYG4btxxuraVbeG3Pte80L3COuoeuVzHchb2pp6GsoZ4p0aHrDBCyzBjisTRaRRcJa8Bwc3lcDBBlplszIcCOt9FzKLq7qxqEWaDyuG3TMBPcaxpGymzY+X+ZrXxZd+NfFp4eeW94UiXasstbu/im10m69v3dY52Q/7AwNziBwY5FnopUdw5DMpBOYcNDXCphqjSYBAccjr6bgDtD5iEK/EGmqW1qYaCLhwLgAROwvYyQWgDvqoveDnm3wl3jkfe/hI4/3fvPaK7Ur6DcW0bTT1+4tpVEdjkibzacW24NTSrNSzxShkiSSPyZ4kZiqDp1cXOIptbWrsEukGWtN9uYSCIIvOot3s4UKdXMzDPa5sSIIdv6G3Yn4KXvjl8O/JG7+L6zbXFu663e53Rcotv3vbO9o4rjabtaJ4JY7gKupCJVRR+yq6+YJHkVhF5eH6Nc7A4tjnZ4yFgkEE9bWMg8xEAR3srcI4DNSqgODtojpYRG0m9oHwXyv8l+I3kHw++BrxcfZ0+JzZF0bkGs2zchx7f6+4jz9x2OS+iiUp50onq7lRzJVxGPy5KiWGOMsiCMZ6zaM16eIY4ZCWzHWJ7xIg6wCTcqjFcQdSpVMPVzZ2teAdZblIEkwTE9JMCBde8925D4D5G4s8OnDlJabpy9s247bqtp2qltVmN5uFdt6SywQSwlaUmanB6kppZKiNfLmlGJFc9KcvPXdVqvZ5gZIkCIdYmY62jULucOw+GoYRjajgKbmtaC6YJDSNIMwBJ0jcLz58Hdelkr9qeGPxN2Tdk9w49v11vd8m3FfEq6xdqT2txZ6qSaNkkWCWmqLfbxEJGR6ujmTpy0iDqYkGPGpgXAEC/PmEgDrMns2+wScOqOc/wB3zONQGGk25IMGbmABBMC5ANzaX+9/C1a937w5C3b4Vt47S23yWFudpoaiqlq7rHXQ1kcU8Fpu5lZZqK2OZHi66Z4GoqgUs0bITMmswqBrTTxAIBubBvUF1/Md7zmEiDYrXi6jg6nWFy2I32mBl0FiYEkbRofG7weeIre3g48Re5eH9y7KbhviXebUe3rtZLnfoYLntrcD2KeWgvtNUxienklrIqdKCR+lBU1EVNM6QyVBOt+PpGraxcJywDBgglsWO8gbXGy83w6qaFdjSC1jozZjffnv1IILrSRO8L3/ANrcv+Jm08U0vIzcJ3nfO4WWO8VcFwulst1L7VUUsKR0tRRLVSmieQSrVZcqYnfocN5fWvJx2BaH+E17RAjUu6yQcsEDS3eNb+nwePZXbJpuAOggNJAvuQ6TpDtomDIELuXt0bI2zxtYL9zvx9uyi3nRU9ZaaO9LQ098j3JU3B4KetmN6tk58u5e0h5qUuKeWRykHTLTmQx9OnXeHuGHhzCAIbbKBJaC1wBIjWZGriQYnLmlrTiR4T5zHNABc1sHLGcCActogRF7rMbC5L8R/KW9uAd8Xq5JyLxlV7e/tEu2p7bBXXafbMNPTwVVRdK+J4Gp1qZpZAIjGrI9JUxqzr1MaRTZSFQi0a3IaHHygT5iBJ1MiDA0Re11UU/DIZfK10cx3JgAtBENAIEtJNyV1raW5uL/ABFcu7jqrlxPuCssu1LnLYV38m8K2wVVluUjyCShs8zCnq6qoKCMTU/mPB5UMJHUfcOOpUdRw2Z0BrtA5s5gBEkXAaP6rGSYHTTVpeLiG0WE5qYOYsjlcYkE2mRNoO2YlfPre9t7Y+z2+0q8Gtql5l3LuDwd0tdd907PkqZ1pKiywXCOenqaepmdFSTzJEpwJSSXp3hjZ06T0dbD1c/iOc3K8tAIvHURBncyOs67+Xr4I0MZQw1SoPCzkyQDDvKZMAdgYtoIXqj44juLlz7WL7Ma5znenEtq5D2pftpJuGuqIYamt2/UKGNNBHTPIYJzHPUIZ3UJ11ikdQiBWvhjGUWVQ+IbDiAZki8GYtIAImYB6q3ib3U34atSiZeNPKS0Am8y4zIiwtN5ClJ44vGDw1wVZ9yPx3c75v8AsdDTyPcajaNG1bZIOiGoFdapq2N2gi6reJZVp0LtEaNWVT5YzzMPTrkipVZYkQXQM1wQQDBMuIEjXMvT030KDW03nK9jTDQCSwQAJAEttOsEgabKG22vBdztZOL+IN73KzbD4/5Q5YudVvHd9YldNN7DV3VaipENyjpIgRQw00dLQ08PmdMPRI74JJXuYuM7qLTmbSEeWbiMxEkcxcZJiwygbTxeA13vonG0m5H1HHUkcujGgieVrI6EuPTSVV621beEaLgniGexQ3kV9PJY6ilNzqB93TQMqw18tbJMEhUSrVyjzEleHyicyrFG6cgVg57sQwhpF5iwt6GTEExEzaC6/q6ZLKfguzEExZ3MSZMC4MSQ0X2ANgQu8eILxJJ4XfCvuTmyuWj3DylatqQbYsbUVdldw7quM0UNEYlljVUpneoiqVhRBiGbLIfRaa1M4ysKFEFviuAEzIEcxNySR1JsQRYlczDsZgsMauLILaQLnC0QNGiIF3csnVaP4f8AjDbHh18PK8I3Pd8t5v3H9LW7hv25amVXe/b1r3qBX3y1VAlM8VRBV1DQiaMFY2icO3SWOuni8Uap8agIa4BjRN8g0JGkOiTJE7Bcbh3DWTkxnNVc7O8kEQ6xLSTYwCAAdnCI207ijm6p5E8RfIPAnItveE22726lWTbVNTtTXq/1Lf7PfIMRRx2+O4Ukc8zRuTG1RTzsWX3Q9TKLBTFU6gnUkZWi5aTvECIuAe9uox/gk0w2IF977GBOpJBn+kbLlPLOxN8c28+cgb52BR7Y/wDM3s9rgtVypr3cKqmTc0lc9QValmhE8T08c1Eq9c0CisWpRW66dxI1GGmk018ReoTygiSIEgmbiZECSRAJhwyjb4tQPZh6YOSDmuBJJyuiDHLcONhchpNyp0bbXbF/4Y473+914Vt/JFnv1uNztUl5o45LAWnpYqiywy0xWGgCBYad6fAVXgl7EMWFr6oFcsklpJBIl2YkO5iTd1zI2iB65MGwhmUUy1uWwjKAARFvQH4n0Uz6DkWo5J3XuHbuyLNSwbFjs7U91vBCR0y9HRHDTjzOr9shSTqEaSRJgAsesAc1zIpmriDF7Dcm5J9L7lvQaEpadEUxTygucSd5jWd9zpqdzFphJU7hvW6ObJajbFutO6eOqG8xDZ1tC+y113qYaWmlrr3bEOUe2L5qpGaljJM71jIxUw9XSw7XsZnPK53xhpMNzGwDnGIaBZoE3JhnVGvbzg5QLumxdeWi/NlEy4EDNAA5ebmvj45gtVitG+NiNy1xpt17NFb7luPdxs0FNBx/PNVey3GjIknD1spoq6V4rbAskySTGSR6fMeRw9rHFrzmyZojUvHYAHVzQ0uMNAESSCFhmqymTSZzZSQc3K0AAhziSA0QSWzzOMQMpkB4T2dwjuTaO2L1ufjTmbe1W1bJU7dsN027V0ltskDVlXS0MFsttNTw0VJD5PVM5WDzy0/Qsg6+o769fEOfmaLkDM6Q50wC6XEkwIhoGVu5AAtXw/BMp0YbVimHEgDlAAcTmixLnTJc5zz+Igk37TxrsbZe9PFBzFZ7iKev4X2dabJerosFoipae33Q22QS0VXUR4cMKZaJlDSPIAjeYw90NgxGPjBnEOu4ucGkmZ0mLX5pkARtc6anUjSc3D0Ya5wbLRrq7KSN7QRproApj8d7H2VbNu0N625AvH23KmhcpHbZXMtXNNFHO/tFUxWdshuzBwFCL0yBe2sGMxj3yysc2W0WAEGLD166k3BJThpY8lgkkySbk6gdRpYAA20Cdcd3u41m59ybkltQXYEFfDSWy4MscNNV08MMbSSR9zLKodjGHkUK8ilVPYFqsSC2mHZpe7MY1I1A7Cdt4uRCerldFFsyAJ9Tf8rkDT5rauGY3rNiWYVFZXxx1cgv9VTRJHIaypmVJDFFIAfMhEj5aZiAzDC+4CxtxzMj4F8oyjt3PS2g13NyAsuJqZnudaXEidYA17TFoEgC2ukirJZjbRPLUP51wlLM5yThOosAfgTljlvj8OwGuW+oDZun39/msznZvv7/ALLNlkUOzMoVfxE/4e2e+q5spGyt2K5XuCMjUKYAIZUj56IKGXok4/Q6kyE2VCK5+epMKBqQe/w0ZKkIZGTgAdtQORCGe/w0Q6FIQmHfPfRDtkUjRDt0IQ2Ge+P3amaCjEIRHr8DolyACEw+ef10cyMIZX5akqQhEEeoxpiZUQ2Uk5GpmKMITD5jTZlIQSD27EDUDlEJgB8BnULrqQhMB3B7jRzIjW6Cy4PyGpmUjqhMO+dEO6poQWBI7Y1M6OVBYYz2A/XRzogbIDDHfRzJpQmGiHIEILD1+ejKhCCy/PI0cyLR1TdhgkfDUlQ9kJl+OmLkcpQmGR8dHNshlTdgMHP6aMpiEBh69tTN0U2UwWXtn1GvMrzqtqKK/wDHUlRXwfU5zqSoqI9fTUCiTohRXxnQlRXx2yR21JUVuk/no5iosNdaAVcc4ajoZo3h8p2kZgenPdSFGSvx+h/fohx6q2m+CDuuXrsPYUF1S8Wmx2u7b3ESQG4wJ0V0ESkFUFUMOkQKZ6Gchsdw3prX73ULfDnk1jb/ACtD3PJzVLet/W28/cLH0/FtBVX+Lcu7Vk39fqapWWmkrYEljo6hVPSYCwHQIw7Krdh1O5Izgh24xzG5adu+nr8/yFtUcRXa9gpBoa36x+51PURss5vJrNTx7YtNaKm93Ce9UkbxQSEzec0juZHAK9SgeZ2b1AAAY9tVUiXElo0B+AiEMOHQ545QBI6bQP8AHdct5Z4m465WtVfszmTaPGe8Nm09KtXTVVXbR5tD0sCJRIPeglVo27xFSyuQO5I1qwfEKtJ80XGTaNj2jQ/EItwrX5ajQcwNr3nsdRrrNuq8Tubts83eH/kYb42BS8r7blqdySVy7KvLx35L05pYoKaNKyAm4LTYFbJmomqZKSKTqMMAjDJ16DWPAYYLiIlsgC8uN4aDGuWMxtJkz0atfK17qTs1MAS4gSQJAFpcRmIAJGXXYKOu1d4bh2Fz14dOZdz3vdvhx5M5C3WmwbnQ2a9W1LdvWx1NdUCyvJWyCao9toZzSCWCthpJlpa5ooeoKWO88O/kuYW5wwZpOblMc0gAQHCYMuBcJJ6c7G4xrqpd/ts8lgCXiwEGMpIOzQC0EyLL3hu/C3L11pLjLs/xAcsDbcVXJUfdtIbbC91uLVEkzFKmejmmo0MjxtLGC3qwVF6SNcZmOokjxaYmwEl0AAAXAc2e36qzIxjiJyl1yYBLdLNmREAgSLWIIlR65C+zfuXPuwKTbfL3iB5Su3KVovE9/wBqbpoL9TyTbYmSNoUeNZbaGlidCIJ6YsIZ40UFE6zjTR43RpctKkPDOo5xO+mcidwdvguVieGudiBiXVHAiI5acyb6hoMGbi4O8rnnEUvio4b5t2l4d/Gr4kL+t+3HLU2Ph3fFn2daZNr7u/YpPPbJ4DCJ7TeClMzrSSzNFNDGwp53YPGNL6eFdh3VaDMwmXAuOZvSbQWydQNYkC00Hi9dtRzHNaDbqAYGouepsZ3MnbyT+2W4Ds1Nsfa+y/Ehbtv2ao2jui7br2pumyW2e2We/bdujRLW22hri7+x3O31Ukty9gl83zo4A0bv1zFL8DVY/wDmUXEghrbwSHzAJA2ItmEDaBAVnFSMUwjENh4MzJnKAcxnqYm5mwK3/wCzU5PvG0+R/EHsrlba+2dteNDaVHNW7w6Y4Tddw1Fshp6a91MbHBmSso6fb9/j6epJJmrChcyvqvHn+QKTPJsPWS35OzMPQEAxCt4bXa6u11ZwJPLOgJ0DtrOaQRG9ypH+Lyg35tO78Ffal7dvFt3DxPb9mbatnK20rdZJqaq3DtZpluNPcS4eUmrtUzpWqixmXoWdeogCJq6FbK52EBIdmJbJEBwBbBiLG4nQfMjoV6QzNxVECAHZjcksJBMToBAMWJEx1Mt131y940t032TjHaHF0VJa7TT2S77nuF1pjc6Oq9nnmZKWpo3lannZKqhlHUVXHS3SB0suI0GUqIbVqWcfLcjYbgSBcSJ6A9epSfh8M3xWMJ1iCNDoYGmgs65m9tPE7x4+H7xKU9HwVbtubV5LvfM/E13mrdh74p9rWKrkavgip1pbfc445p3vFOKe3wpFUQjzMRIstK0gQN1ximh/ih8tdrzGbkzls2JJMg9bOiY5OJ4f4+FENIcCHDlJiAIDxO+pLR3Mb+xP2cniz2V4t/DRb+dq3dvIFpv1ZE+yd37Ou1ZDV021b9TSZSCokjhhkjRgJTCarHuPEjF/LI1zeJUjSJohgAs4ETMaWkn4xOkiJR4ZjjizTq/ikzYA9SAO0i4v6KV3NvE+3927WvFtS4bbist1WSS/RUbU60d0R6X/APD69S6rUU9WrOJD1nyi5kiaFnVtctmM3JktmNdZ1HTLrpewM3XaoYdrpbk80XieUE7R8G6HebLwp8HtRybxJzj/AOZvyNuu/bGt27qzcW2eN99X65Uho6+zPHbZai1080yxr96BpaiSmnIJlaeeo6JKhJEk9I9zTRL3gAiC4Cdi4CRsDEHSAMogGRyqtXwKzg+S0HksTNg43aeY7wScxu6GghS/2RzpwDbuP77tmapquWuSa/aUFhodlbaEm564V9BUVdopZEigMlvtsrw0sVSZq6WJYhGkzMuHZan4evWJrMEiZzeVoBhzgXnppDQTcgTad5xVGkWUapLQHGQYvlNiGed+ZxAEAAu1iCvM37aaxbq2hR+CTxP820G0uOeO/vG/bGqbZY6Q7kvlPbqugirBLcqqsKQVcszwyhhTQJGizOySSlwNJTZRcX0AS5xANuQSHWDdTF9XGSRBAuuRxHE3bXqDkpuAJcA7zNIPK2wjLoC4jYwoL8i+EnmUeM37OnjbnrlDcF98Mt6vVs2nsW2XLcMNbcuPLLWFqyktFdURxezpVdBiBaLzYh5XkqzLAo11sBiKbK732LmgudqAXNbNjYkDraTeIcvP8WoVwyjMsoEw3lGcAmJyiYJjlkuLRHQr2c+1U4Y3N4nty+APwe8fbsssG5uRd13S5UV/uUytTWzZttosT3CSiiWnp4qfy27RwxxmaSQiORUJ6svCajn4p+JqgtFNoc7UumQQJJcSSYABMDVw6dz2oxDcHws4agBLntZAgCcpzGwAJg8x1EwLkr1I5GoXk4/u122tcd2c4ckWqG47fqtsVF2pqWK+SVM9IsiVUtIoNA0iJFDHLKHpzBKsTAph15XjudDcgaCQZMmIJImbG93RDiROoXew9OajX5gWsFoEAmPwzNxeADymSTJkwC3tcNxcpWk8abn2DtPjvkWq3Maq21d7Srs9NtmneNaOP74iCyR19FItXHQU8rNJTSA1Kly3TILKbKrMribazY635ejiRJ0cABa0HXVqUagLKbiTERN7G4MXhsnMBOYmx0UIOR+Sd6+MHlOwbD5U3fScQcYcDCTcW+7ja7pTU9xbeFRVVVNS0Lmqp0gars6LW1K+UjNJGkbxmNpImW7Btp0ScRmzF0MYLiZaC51iXQ6zTpcwTqFz8dWOLqMwdBmVo56ggEAAwxkEZQfxcxMgTBtM56jk7wweGbwsch33fvJdXeL1JPcaXYsFfWQT3i99FNGklPRzGITzeVVTzRg07u7vFH70pYEjFNxNTw6FJhLnXIAIPmAEjpAtIAv8uhh6bGVDiqz4pMBBc4t1guIEE85tN5N7dYTtwJzbztUcseIK0eGrxI8e73obdaWsk1JcoNk26ittKtPM1Pc6isqDdJqh1MtOZ6OCJYleTyU8qZ3fcyjTw7C17mGXXBObcggNaCCP+48xAzREDg4nHe9VKVbD57thoAgkESCXvIAI2DfKCYLzdSs4x29zh4xuEd1cY8f7+4j4Rt+9baJ75a6a31V8ulu2zb6uK2QW64XCsaKGJporbNFEIaLzHUVEpfy4mD56jcM0CpXJfBBMQ0Fz5dbzOJiCbgNAAILoC1Oq1m1A2nTyDyNmXRk5XOgBrRckS4uBdGURLhgLb4dbDxP4dub9vbc585wntO3Jai07XorHu1NvWujrqWmNdHNW+zUdK81Q0UMx6peuWUQ5bv0pqr+JU6j2VqtIXN82YkNBggDOQNrCwnXdX0uE1Kdb3elWyCDIApkuLhaXBkzJEkmCOoKn/Z+DuFr5tyjq+Orlz3vrYVVaaSGZr9undVZTbkgqpYJ0SjgSeFZvM9qkTzCRC3XjD5JF+KpVQ5zKtNrSXQBlZIgEAuzTFoNxNthKycJ4i3K0OrlxILjDrCbk5miJtbKcwGuwXF/EDxHuXw/+HHnCe27j5hroNm7TqauitW2d3XS2JaWlijp6OnmnqKlsdFQqyRCnMeQ/SFIyFyMJxDg2mG87gyXARJIuANSJBvPeNT0sViKTKYrOeWkZiIILiGtMgS0wCLdo8ywu1/AvxrcuO+GOB7U1XuyS+3fbdZufdKXu4TXW63CnaOtuNUtdPUKS4e21MpMaqiSVqhUaR+odB+Jiq5+WKTM0NgAQBAka/iaL3ImIauEMPkwZFZ5OIe0ZnEgkkuDj+EiLOOUERlzOmAvRzhO7cO+HngOyw7O4+uFNcLdcpLTZNtJLIJai4fe0lupqeLzXIwZig9obqYoWkPUQRrjVG4itUZTJEuAkxYAtzSYFgBMgdIWvHUQc40ptJ13i+pkuc4xGxJEwNMVZuFuP+E9u22k33FS888r1t5l3FuOz2my1VYlQap+urlo7NAsigKWidWqV65hAMkMwRdVTHPqf/igimwZQ4wDbSXGA0kjRpESdbk82jUcGuq1iKfiGDBgbw0nzO5eUkSLCwEKH9tvtw3DuTet+414Y3vxJthLZU1tXuO93KHbdmtFupR7THIKVmklkZelewhKTdIeQKUj8tMTXysy1qjSbG/M8nQQB1zDU22Mkz6rC1A4s8PNUBOUZRLRNiJMGOU3G5jyhSm2PXbj3vZuP7Lt2O53LYltlW2PW2un9istrkjpvOqLhVyTmN53BlLLGC5aaQdYiHmJqzFFtOq6o+wIJBJEwOUNYBIvEA6AaFxAXOo4inSpltNwNW0i5MuvBOwi7ov2uCpQ7X3fEthW18a7c3fuSigXyIHxFFTALjOJpGVZ5CuSz9TL1SdyD1Y5GIZUfD6kNJvc/QDYCwFrxaU76VMPmq8TvFz8YFusaxsLLeLJByjuKgs9+vFqsGwbxLbYIqihqJjXS08pw0oYwMIsgl1XpdwDgkkDBVzKFN5aXFwna31In6LMa1MCGAm51t6WufvZdDks8tVL13CtFRRnJkpViCxyMQoHXkksB0j3T2z6/LWRtUAyBf8lU15gDfqswTkkn10gdCcCFbHcHRzKQhFcZ1JGpRSCMjGpmCiQV7ep1M1lEPH79TOohsvqe+gHbohDI9NNnUQyn79NmUQ8amZGEhlznHrqB0KIWmlHKhMv5nQkpghkA6bMoWoRXHp3GhmupCEUHw7aYvULUIj4aJemDUFlwe3fSh53UhDKD8tMXoZUEj6A6gejAQWUZxps0aqQglfXGiHKBqCyj5aIdvKMdEEj56IeoEAjH00Q5SEFgfX11MwhHKZhAYDHy0cxTNEoLDt6afOEYlBK+vbvoF3RABBYepxpg9GEFwMevfUlNkQHHyzpsyMKXp9B8deZLl5hJ1A5RVo5lEvOf8WhmUVZ+B/hoT0UVZGPX+GnzXUVAjGc4GoXhRKBGMA9wNKDeVFXYd8/TTFyiSzIq5cqq5xnUzbqLHxBVjEVHBT0SM7AlABhsnPugd27E5P8AHTZiTdEti5usZer/AGPbtm+8bjURw21JUgLM3cMX6cD4ls98epwdLmJsrqOHfUeWt11UVOQuR4ZZ6rdGwrTyZuBKC4U8Sy2qiMtFWdSRl5THjrqRH1Ih8vPUGlX8Sgrsw9FzxBAE9TBH6Cdp7db9+nhhRblxJGhkau7AQD6wNLHQEJruHeL02+rRe95bR37Z9k7dn++qu41lpdre8widI64eRK5jWAdbuJQxVWWVujC6uoUXgfyyJdbVvxF4ubAR3F7rFXqUm0jSzS50DlDiYJiJy6E66D81vPI3GVJvw099u0lXW3aJSlv6J4J1pWlKx5gYr0RmUdKN5fvtE0gL4bSYetByAwDrr6wesfLsphca1jYaIGuhm2/W14J3iB0ze+fDtsXl/jjdvFHLNLf937GvFL7DXUdXdpJRUdLB46mL4U0sUgSWExgGB0Rk6Si4dnE3sqNqU4aW6R+R6zvOt5XKqvDgYDZN/KLeh1+Myb7kqB/CHL/MHC3NFf4T/EnuncXIXNVvt9RWbE3KVMX/AGx7NjZDJcOgDyP7TW8MsdZEnQ0sQWZFKzZj6WPoUn0xXw7YpuN/+Do8pMzkdqPlqFm4a45fBrEAj0AOnQTA/p6mekT+3PuCAtYLFa2qrbXVMUj0opGWIzU7JiQqxP8AeN1iVSQT1LnByTrgB5cZIn70t8tl38JhiAahIIGsif2FtCtC594PsPiT4r3fxByLSbnpLbWUsMsM1tenWusNxhZZaK70M3WWgr6aeOOeGQYwVKnILa24DH1MNWFWnBI1E2IOrTbQixXNxOFo1WAmN4Jn9oj5rzX4i3PaPHHwpyp4b/HNxVtTfHO/HW76DjrlLbFyVFortPPIpS/UqxEJSR11JURVEEkTs0Enm9LADv167hg6zauFs14Jae0HlJOsGxEXtKsoD3nD1MO93KB01gDIYkm9ztExqF80XiV4i3J9nl4+vC9R1W7t13m9HdibVtW8JaiMyb/4wr5I7fHHU1TMipdrbE9Va5vM6P2TW+bJC511GVqWJpGWw0ySNmuHNG/KbEHsRquRVFfCYmlVJ52kNEiZabdpyaa3BF19ePHEnF27+MtlcbXuhsF6sN529JBbKOhuNbc7ZVozTwPRVxiIE1O8aJKjSNH5vXMyEnGfL1Xl7nVReIJJAEWBtNgeg2svYvoPoT4ZIaHFp0BO0jW+zoDo0O6hj9lfxtbePOd+ffD5ujalvse5ONNu2So2pW14hnuG6NnV7VbWWpnjj6mZ6GnUWmR+pi3scI91u+u/xnFPfh21wfMSDGxAGa/cwQO5XBZVGCc7h7LAmRBgEX9Lgk3I7r0b8Rm1rxd6/jjb42lS1+y6y/tVV1TFGeu3QtR1geZqZWWZ1WadOkp0P1yg5yhbXBwTywve7QNPck2I7XjvYHqu3gajCyQTnBA1gRb8Wk27jQr5dPtd6O6eGfkKXx4eCzeF+4m5dvFLSW3mKybf9sRaKqWSJ7fuWGBlWmBcpFFJTVSkxyTUztGGczH0WAf4tHwq2jTykxf+ps6yJ1b3GwC85xTBYjA1DimXBF+kGwOW8xBuRlPWZUvPCZ4uOf8AmDZFJtg8V8W8+cb0Vkt183/urivctvFz3RFXzM0UlLQ3JIIae6SPB0XGCKSQwp1wAI5gcZalFtNzqhqWBhocHNEgaSJLmiZBMSYuRmXawuLqVG0w1hzkSHDmaGiwJbIDTrDSTlidYUNfGR4iN1x2j7Q+g2n4WN926JNmWS/Gwck0FvNXYqoy1lFcb2tlqJJKie0tTV5xPSvPHDUxLK3k+YEXVgsE9jaWZ4a4uIlp1aQLAgZc0jQwSDAkocU4m2tTe5jDUaxocA5pEOabAgkOiBJIG0WFz6QeFSXYnBG1uDuL+Jdy7Z23w7aeIrtXVc93tVTS0S3CK80kcVwnwlOayrlhheSRZCzRqxeQs0hUaMeDUe7xA6S5gHYEGQJmANzpNhuVz/ZnBMbh6fgMAeQ+TLZdpqRsTO4Ji8ABRP8A/KMIp968HeGLa22K2DmDkm68szRUltt3VUUdXM9okVUjgWFVfzW8ohAxCYZR1kyPrh8JLXPLWyAGm5sdQTvtcz6aABbeP0agwIFRkS5gDbGfNvMxED1NzoF4seO6l5B4f8Pnhe2/tncm/t57PornapdsX3cVOKWu2bfrdTSmoslQzp5lRAhuNJNTtMweFY6qEh0VGHVwuID6/iNbDr7zLSQARtsQ7WbEbrkcbZXwmAZSe4uaMsGLhwH4rAgEeUW0M6BfUf8AZt77qvHX4iebPHFyHs+wxbU2HsKz8G7Otq2vEiXCKOCu3RWRxYKhRWNHRqYhgxQDo7EBs+JxXu+Cy03EurPLp3yAkN/8jc311WV2EGLxVGmWjw6IvN2+K8DMADaGANAPqdyvSTkO8cZWfhPdnKtlvVZs+groJDG9DBIiX6SWqhip6SrpwqPLUPJJFGie5J1tKgYKX1xhUfVqNp+Z5IAk7mZgyRGsm4sCdF7PBYU0MQKTWgNYDNgAABdwj9Ooi8Ly1+0x3DxPxh4eOV6HdW2bRuDeNgta37fN8iqVr7dx/PNUQz0e3VeSbzKhqysUD7qDqs586rqPLgZNdijXfmFSkZphwDLXqPFpFvwi5dcMbA5nmDzWYljmObUJaXNcdxlpgXqGIADuUDd55GwGlw8BvAjVeJfd995r2xRca7I21y1uW4Q7xqbjY9m0st6pqO5wmX2H76rpvYbFTLErLCnl1NdGaeRIaZ5EyevSw7TTaC8lrTB5oBIvctBe506taIgyXNC4uAxlY1atR1MCpVh4BaXOA0bDXEMaAAeao4CbkPmF7ieFLwib2rt1bhh57vtHsm4VRtd0jrNoh9z7s3ZXW+uSWGju29rskhDU1WqSywU1LTxuYwQY0hMQzu4pRZTy0OYbAfy2NkEF2VpzutMOc8/1XkFdPF8IxFd7H1mtBEy6oTVeAbwAQ2m3NblaywOUXJJ7r4ja+Dw1ffXHnHvNvJVb4l77dRZNrUF23xPc5q+nrvMZLjerbLGYloAsczSsfKjCwsY3EiqdchtX3nKynTApgcxDTyht4DpN4mNSSdIldKlhXtPvleo5ztWtlpaXeUZWgNIAOv8ASAb7KCvC3iT314b/ABGc02as4bo+RYrDebhuDcdfx5Q0Vn23tl6ehoLfTXWWuljkEdvih86mmIapmSriqZI4nkSfq6JqCvhmudU5LgOcTfO5xMACZdAyhoEtBuAQqajvArGiaZD3gDKAXEhjA6DmeP6iXkmOZsxBC3zw/wBbuTxE3Pdl54t3Bt/kvY92qjXyzwUPte3KSsSoWKR6OjaKOomTzKo+Zcrj/tFUQz+wNEsYJLadJmR0ggAc1nXG4uGAAcrG5iN3tcSRe3FOrnO5rQxxkBsObykyJBBqO6uHh0xIa3MAZ9guAeC3o9jcZ7efxC+Im8V+1oKeGppGqfcppqcS08MheWgEs4j65SgY9OMOqgop1zquNYx7iKQEjU5twJ/HYxrve5uq8YxzWBrg3KJ/puNSLbTFhFxG0KPm8tibe8QfiJbblHzLva+eG/jq/ne3KVXetyGps943FS08M1utFenQiSwUNPQi5TxFxHGZLehUM7DWvB8RZSw7eIhjWkAtpxMzJzvEk3GYMaYJzF0HkXOx+Gr5v4a8czgMwDWg5DZrCdR4jiXECCWtJdIqBcGuXiq5N5Y8TO9PEZwpszb29drbd2tcNuT3653Fts7atdTLUwvS1d5q6tZHFxaLpmNPFHPNR0slOk6o9VIsZw/D8mGNKo7L4hbBPMbE5gxrZzR+JwgF4yNJLObUx1DxKdKiwuLATlETBaNXQ0Ma6Tkb5iMz8uV7CGezdp8n+Lu+bn4U37z3zjZFpN02/ctM+2LNPZZ+l5UnirYLermroaMVMVTLHcLtUDqieN6WkRnDJsp0qNBpeKXlkQ4gwINnHyB2UwabA+oTZzhBWDiNepWa2o8huYjmaDEg3DJBe+C3ztDKRNyXiFK7kvw97R44gsPh72Fx5svlvmDclTUbg+76O7XS0+x00k/l1d7ubS1NVBHGhlcLLKJJJqkxrEjt1dHNwmLdWfIIbTpxmLmtgA6NEAGXaBrRMSSQBK6n8TNKkar3PzOkDKZL3ACNTMCxcXOytEA6taes2/wYcS3KW3U/Onh14KrWoV9tjtO2rbRz2v8AZnphevWojjrbgEUKAkrGE4J8klAwsqcfeweJh6hLhuREE65AJa31u4bELC6i7EgsdIa4xdziXADRztIOpaABoCSF2XjHYvDl+usO3rDw/sjbFnjSequVt+6YaVkYSD2elkpMDMSqzS4ZMEGPsARnnVcdiGjNUeS4WBmb7meo0sfit9ZmSjyOMOtFwIiCbxEkR6KS1t4823ZJrcbRRfdVvpB009DB7lNG2fxCIYAOMDt27A4yNc12LcZkyTus/juyZNvv6LdldX6ukg4YqfoR6jWfOqlcjPb4ahcEWobY79jqZlaEjRzbplY9hn92hmlRBP0Gjm6qKxGdDOjCCfj2AGhmCgakH0+emzdE+WEMj8/nqZghllDIzjRlEidElgMdvXUDuiOSyFqSFNkJx3GjJUDUgjII02ZMQgH1Px0JUASGHb6aIdsjCCT8TokwiAhsDk5B0S5SLwgt8fhohyMdUHUzXUDd0Nx/189TMiQZQiM/lppTCdUA+upmUyILDB+WpKLWwgsPjjOmJCJBQWH79EFDLKAwzkamaEYKCR3I0c0oEIDDHr30+ZGEJgew9dQvULUEjP56ObooAgMMg+mmzowm7AHPp+mmY68qBS415tzl5dVpc4UVaJd0UVaBcFFWpnUVabMoq0Q5RXBI9DoSohSytFGzInmSYJVAcFzjOBn49tQuUAWqw3T2qSpoqinlqI2VjChp2xUqW97qyOkFfTpz39dMCdlqfTyw7T46frdco3xdN3bTVLnxxQ017qTOJJKO61ISlLO4V5WmHVKr9PWixqD1uUXA7ur0wHnKTl7/AKR+ZkQJK30aLHtPijsIseu9o3Jg/W/BbfNz1yzvK/07fcfGOy6ftVVUjF7rR18kRIjoqeN6qmZ0VVZ5JMriQGPr8xvL1soUWsz1HS46AXBiJk8pA6RJ6xF9VTGU8Pkp0qZeYuSQAGz6STO3LFpXQ9u+Fi3NbqNNy8j89XHcShxVVdDuyttdNVsZxUM5pqSQRxkPjpTJ6AXCNhmza/ibAbUmR3EnSNbT99AuPicdUL8wcBroAdbfina1hfUgErZajw8bMqeg0HJnP0tajSwySx8i3Or8rqiYN1QzSywA+8v44yBkDGDgg8YY7lNOn/4gH5gg/X6qhr8QzmJjTVjYN7fhEj47LnFNx54gdp2nbNJs7mbb3Ju2dqVdLU01o3paloa28wU9O8SJJeqDAUjqVjJJQye/EQR/j1pZicK8lz2lhcDcHMBP/F1//tv8Ej21KTHMawOe4RqRGhPUXjaLeq7rsHnCxbtvw2HuGyX3jXk4Uz1QsV4CkXGBApkntlbGTT3GBepSzwMXjDKZY4sgaxYnAuptztIc3qOvQjUHsQO0rO2sN/yj5g3H1G0zZc/8WPhq2/4nONn2ncLtuDYG8rRXQ7j2ZvWyRxvd9jbgpj1U9zt/Vnqce9FJAfcnhd4nDK2Bbw3iTsO8nVrrObsQdv1B2N0a+FZVAMw4afsZtHr3BsSoMeHLxV71ve5dz+FTxIbc2xtHxebXudBU3SosMLwWvcNDPI7Uu4LWe8n3fXSIIzB+Omq5Z6UgHyi+vH4IQKtAl1MgkTrb8JH9Q+RAmYXU4VWhxZXJDgIg7jSQSdIm+0DVTe413/yTurdO8Lbc9qLsWnpbgop2nmWrp7lQtTKyVPnELK4MgnXp7eWVKEno78qrTDQ0k6z8IOkdYhdPEUsO1m7iBHS8zaLdtJOsBQE+0F8BvI3M01bzt4Z910Vm8VVuaioZ4pap7ZY+QrPTVcdZFZrw8PvJLDInVTXAlpKaQ9Oeh2C9jhXEqbA2nWuwXBN8puCQNMp0cN9dQuRiw9rDUwwyOIgiTLhve8HdsC2twSDCXxV8ObW+138BPLexuLOPNy8feMTiy7z1440v12c7g2JuVOky0FU0zOTDWUomSmeNhTTlKV1YMpCbWF+FxIbVIyPEZh5SNiIiSDEnUXHrlxlehicKX3DrG4vJvHoJmdxewUyvspuTNp8leDXw4brt9q6tqXexU+z9w2eqpup9v7qtEsVHUW2dZWJzI4nqowy9QZmycuDrJxui6lXeDrqPQjbsBb5LXw3GOxFENjK9kySbxfm9S7W87x01Xxu/9ofE8XD/ANol4W6Jd/7x4op7jaL/ALYNT7PW7u2L7aUutpkndStSY3ghraXzCksM0LdLTB2QXYWvTdmwVU2fBB2zZeUjpMxuCOiOM4VXJdUAlwvYzOki+lgZgagdTMo+PPExZvElbuFOS9m119O3tzUVq3/Ty0lMtwpYbe1HIKW11DDEaPI9Q7PIpGZY5lBI8snGaBoGowxLJbrEkxcTcgaCQLQbGQutg6IqYWnWpEBrwYkXieYyJANhYkwLbEroHJfhK4n5t46ve2/EH/au5WO4W28UF+slFcpVp77BcDGstRU02DmrVwTFIrDyyE7kL7udmNbTdNIAm0E7RNgZi+8jWYhU4itVq1HUaQHhusB1GWACYkADYa95hfIJ4TPDrz/4V7nzXt228ybvg2zxTve42Tl/bMtqaoi2/s+5Uapb9429opB7TSy+z0k1WI0Lxfdq1KeYsDK3q8TQo4ljHNkZxLbxJBnJ1B6SYMkbhcThtWvw3EuY2CxrhY6wQRm3GnmnQ21Unftpdl7g3TsbmO40XFl23zNt3iza24bjvGi3NSXFbDO811qZXS5NIKipp6qmm8+Smp0EU6FJCuFTHOwNSoC1ocGjxCADImAyLdW2Ac426r0HEzQr4F9QBznBhhwAECSCNoBykOABMCCJXoJ9lvy7fuWWl4e5SXdfC3KOzttbd2vU2Ovvy3WKssFXb6iWS+UdSpEU1NXV0rxxxdMgjeNQ7sysNTiGHp0mGqwSHSZjplDW3vYSSRFpjqufguJVKlI0qtJudsWMS4k3JF+UAATmvABiQE6+0i2zxbZuWvskqW3VVlj4/HiSpc2Wk90UapQziokQxMW6DJGvShwFIKplW6Rl4VVLq1R1W58J221o+99StnFKdYUW0mNObxKdyTqc0CNBA1jQa7Lj326Gx+FLV9lxyzuLcNitz3SDf1DadizxOsklNcIK5YlcTBQVL0Ud08yPCnp/GS2NU8PqvFank3aS6xAAuY+ENg6SbKe0JFfD1m1rZWhw6lxiIE9XRNzE6BSr+y9p9veCD7NLhbcm+aSi2HQycfW/dcU8UTSTX/cN1eWuISNQ01RUyJW0NKkKqzOUCxKzYGtHH3mpjPBYMxBDAB0AAPzdmJPTWAsPs5w5rsAw5rOLnvJNmtMASdgA0fEgGUw3zx3yb4nOUuPtk79tm5/C74aJZq3dP3Q13kpN3XmGgdPJrbh7OfLsq1NTcB000XVWBIpWkmpyoQCrUw1AOr1i172jyi7G5uWC78ZDQZg5Ba7l16eLxNdraGGa8BxH8yBzEQ4ta112gENhzgXOvDGEAnyK8ZXJ21PGDetueGTwz8kcIcT+CXgncsN93buXpiprNuXc887eVS0kc8nk1zUdNTVdS1TLKYGxNIxfoRJOhgMUTGMxZdneMrB+IDVxAAOUXAENnQBsm3N4ngX1K9TA4NoLhlNVzjmHLZjHExncXXc3MJjmcMrlrfhC35DwT4hN/cj+GHirxWcp8ZpseHf+7dzx2Kjpp7zU01VVg3o3a5TU89DR1tJV3aN6nyhKxSnEVPCIsrtdTr+BUpVWhgaQMpMC4jK4AOJu1pyyTMlzuuapXwJxLKdI+Ka03jPmIcIcyS1pgGNAwNs2QZM0fEL4kN9cTQcO7svm1K/bXNF5qVSw7XsW7bXWbcoJayAxG0UNj2xU1V5qHkp3dmramB1dsBhAkgQZMPghWLmUC2q6OYgFziRcnma2m1gIgCbWJLtuhi+JilRDsXTeykCC0ODmASYbmqyXOeZkZW5fNAEZlHbhrmDmLxcxV+zuFuUKXwIpbrzHJuzkHlt7Z951V0WnqKaeksNreATRT0TNVQ9U1YRSqxDhJKllXTW4e3whUr5zSIIDWZiXTEku8oa7QkDm8okNJOXE8frVqzvdGNfWESXgNDADOTKXFznN8waQLy9wALVIXw8fZ52TYG4uV7dfuQeMfEXxLsK1UkFXW3O+vd6mqtcME8scVDboZobfQxPU1k5aZWkqI5Z5URwzzSyYa3EQGZ6QLHuNgG3mzQC5wJMAABoyggXEQ1dHA4Oox9OnXcXNeIBcS0GSXPORoALtXZn5zJDrky3r5binhHb2y9/eJXe1zq+a5rov9gLZxdTSUW59/BqiQU9tFDTqxrayOSnWGpSqSRKc9fXJCQ4GY1H1K/u2Hb4j4uHaC3mLjAa3eZgnQGy34msyjRficwo0y4jNfQwAMkuLyR5QBm0NhJXZ6bbv2h3ivkp6XnvxHXf7NXZFwxRW7bXHdFBe9219XNiMx3u7zh4bZUukKCKCjDrl3AnJIQwYbh1FpbUnEO7HLTG5i0v3zGwgaQuDiMXxCsPF4fTbSYd3gOfFyDkuxgEg3zOkgzooK+Ezwq0W86jk3wy8dcicv+J/wabIuVw25VRbj31HYtl7juNTJ7XPFXpZKZa28SUwWJ6oBgk81SI550FMsL9lmMpik3GV6YY4xkzBzyGtNixriGgScrJgSHEBxPLhxGAxFOo/A06rnPsapaGMcS4HldVgvzwS4wXOghpyiSvdLZPggoLDQbCvfLvJ9v8A7JbOoo02vsvZ9ii2ps7b05dmNRFQxvJUVFV1SdCVM83mA++iJIxY8nF8bBqmrRa51U2zPOZxERADQGtEbAG1ictkMBgy1rsLTY1tJxktbJnS73OkuIiTowHmgmCM1y7y3Q8HXTYG99gbYo7XcNx1osc2yhRRW+8bpgDSSNcYJ6mRKeCOmlm656ypBVIZG8xg7RI2fDU313e7PIJiRflZa0kA2OkNEkwGgmQtmJp06TXVXy4g3cJdJsIixccozASBALrNBeOOcT8rbY2Xup95cz7T5PvHiKvUtXNeH29T124bbIWqEjpaWjutDijkoqeARwxrKsDoFqJZY0eWQ63YmhWFMYXDAFmkkBt9XOdn5hJ6TDQ1o0uuHcKtJ1WoQwG4G8CYAAkk7kScz3EhS0r93WWe3GlQ2Sm3TXLJIbbLd6WijMSrjpnlDipaPqPQGwO7/hIHVrlPpPp6XYN4kT2EZZPf6aLdgarq1zIIGhBzjXbbSZ+p0W77bmt1+ulvtdVtqK3Lb2d45mo0E01wbtJ5TAMsSJjo6kdg3SVbsnfI6sXAkEme826nrJm0bzuE9ejkGcG517CLDYkm2oHbUxuFPtKwU9yrBT3jdc08LB54YrnUmOnwmellMhVeoHOAFyfl30lTEZ2CWiBbQD8gJ+MqhlSo0TYZjN76+s26DQbBbtb2t9KkVvtMQanVj1GNupYsjqyzE5JPUPme+qHOJN0tTMeZ5uVl9KlakkH1BI0JhOQhnse+Doyik/rqTsohNg9++pJUSNRXABWx66EogILLj49tSVIScD499QlGENhoyhCEwzjUlQhDI9f66OZEBDYY7/TUz3shCDps6KE2AT8dQORAQz/HTZkQ1BbsfTB0S5ENKGRk/L9NQvTEHUIRyO2cHUDkQEFgc99TNuiAhsOx1JCMIJ7Hsfho5kR3QW9TjRzKQguPj2H9dQuKICC3x9dGeqkIBx8RnRLiUwCCfU+o009FHNQX9fTRDkcqA+fn2+WpmhENQm7j0ydHMECxAJzj5aYFTKgN2zntogpg1Ab1zo5lMqltrzjn9V5BVoByirTZlFWhKivoqKsHRlRW1JKivg6koStdvlTIf/Rhsd3uUU0ZYSwBehCCMhm6gUbByDj4H9WAJuVfQgODswEffxUc77uGTake4rpuTfNys+xbNEzZqamnp/Y5yjdfmzhGdowrqFVjn3izM3ugWMcCIY2T8T8gOvy2AXeo4MPLS0Aud2OloFyBNrnUzC0i3cs3+2WWvnuGw+XuSLiahXpLjabC8tBU00/ZSJpvJjmmEQImbqC5GV8tX6dbhgnmA0BgOuZwBkdpJA6WvvKyVatIXDwYEgN5nGDaMoIEnQbbzqtp2VT+Iiqhp4KCy7V41a9RVFdcrve2jrqygnMnWkNNaqRvZyIklaBWmqvSFSY3HbVrm4UOzVHl0QIbvG5c4WnWzTqufjcQxwb4YLg0xfltFpNyTuYy+sldCTw48f3OpiunIVTvHmC9K/mNPum8T1dOGznEVuQpQwpknCpAMDtk6B4w5oig1rPQCf8AyMuPzXPb4nLLoifLyi8axcm2pJQbr4W/DzXLWzQcL8ZWmrnYPPPbbFTUlRLgKpImgWOQN0ooDBgR0rg9tK3jeKPmqEjoTI+RkK+o8uEPJ/8AJwPa4Oy0K1+EuzbbqJ5+NOUvEBw9SyRPEaG1bzqaykjYyF/OSluQq4lcnGVwFIJOM50zuKhxmrTY4/8Abl+HIWotdkpNog5gNC4Bx+bpJj1XNOVfCFzRyHtU2CyeL7e9j3RSV9PcrPfrrs2w19TYK6LBjrKNqSChkhkADKUDFHSWSKQSRuyHTg+K4amTNKA6xh5uOnMHf21EFJiHVC5rjlLQDAhwEm14dcevyumM+8ftHuMjHDubhrw0+JS3RMzTXDYm7Z9sXmpGAQy2e7xvSF3I/ulrgoPYMB30vueCqE+FXLDsHt//AMmz88iTDYyGA16LgdOU5x63DSB6uJ9V5tfaLcqVO4dkW/xB03h18dHh28V/HNPVV1iutfxpNPa9yWeUqbnte4XSxNXxex1saFknZgKapSCoRkZGOu3wrh1do935atN39NRpII0cGktNtCALtkGVjq8Rwzj7xTqtZk/qD59CC3LOlp1iNFMfwk+LLZXil4G8NPi729vK3xrfunZ9+gpqlZ6vbV1qpsSWq5QRjyfaGkpaciRkUrLKXHVHLri4vAmlVfRg25oNtOhsQBJ9QOq7eA4g2rT8MMkC4ncD8RvaNCATqAIC9EK2zW/YlOKqjqJqnYK079dB1q0dPIzl/ONQxMjJIWKnLEBnU/hJA5VSqDLo5vp8tFoo16lZ4a6zydd/ltGw7RsoT+Kbwm7r5A3xsrxWeEbdO1eC/Grt23intVyqgXtO9rf2eTbe4o4e1RQMclZgDLSysksTAZU9bh/EmNacNiuakemrT/U2dPTQ7rl47BHI6q0EvFrzBbO4ud7biPVfK39mb48uYeH/ALQ3xccH8s8XS8J7I5k5TnoLlYrnXyx0XE+/qqqnloGmk6Op43YT05AEftHTTsGAXOvRY3h2ei1lR0ljZBF8zYvA7iCJ0Mz0XMw3Ew3FmsWkgnSxOnWwExciYmQCvqx2cm6nv21bRfBV3+1bWp3tN7o1Trllrq2dVp6qNQVp0RkhqvMilyscjOFx0515PEFrZe2wMQSbAASQSbzoBGy+iMqMNNzW5Q52Z1hGm0QSZJmdTqZXlf8AZl23bXgW8VXjV8FF22huHdGyblc6PmTYFwttB7VBJtmolakkphLkySiiqQIBGrOFJYhDIz47HFalTEYalWbrcETFyAdwLuAn03i54tCg5mLq0M8WkEk6HVupAAMmwEz8F7L3jdFFuOwUt/uNs3PYt0tX1kG0oI5aimaruCK6qKyKIPGICqMcuroiqznLlAeBSadIBtcxOVpOu1/Q7gBd51E06hpscC22a4uImGzf9Z7Ax4M/aG1/KHgs5Y4W+0qsE143pscU8vG3MNhubUtN9+WCpnd7dJWpSsTLSwVMj0sRdA4jSNSCpdm9HgqgqU3YbYAObbNBHqPMRzG5H0C4/FWmjWGMI5QS12UQA07gkC4JuY3J1K86fGHyzcvDj4IvEBxg/CO79s+FXne2X7dvA9TWmqWs2xQinp4aW010rSdLwGgiiqqSnV2EUM5hMf7II2yvSq1K9Go6M1NzfE0iXOkne82cYFx1uMGH4hTpYetLpa5jmtIn8LbC92tkkt6tME9foH5x4UPLHCPDHi98P279lbc5b4qtthrtnXCOpkS0X/b8NHA9dabpLTszzWeonCsswDCnaBZo48Rv14quLa2vUo12kh5dbe5IaQDo6Cd7g3OkLg2VWU6Qp5Q+LkWbOpaTYaDmtZwkmV57+NjxX7f5Ztf2YPL7W3cNt3PtvxUUVj5D2xV2yJ7psi/ezz07WasELRQTTIrqY5YyiVEbLOCFI0vDOHOOLfSY6Q6m4AzZ0xcEzbrrHrZauMcQDMEMQWZclSmcu4iTpc3JtMzIi10y/wDKRtoV/G/go8EXht9tiuF1vvJ0a3C6Oyj7xrY6GVZamoUY6mae4u7OOxGPQnU4NFbGOFMQzLA7CWgD5BcnjfE3VsDVrPu4uZba+YxtblECJELE+Fa7PtPwE8Z86+M3k2Dc8nB3KJ4dtFJcFagsWwFttwSkS6TKmWevmpo4ylwkDyLE6QxRgOxmuxuMayo11Ec1YZnO1MEGWtA2tcC7jcmAAOjwSm8iphcVyijsIAcWOaGucXawSIEtY0HNGYkqGn2mfi68YPip5x4x4E8E3HXIUHH3LFjKbbocGnvfI9jjlkIqVow6SWjb0q4KrM6STQ0nmTuiAx6fh/Bed1KrAc2HPmCGTeXkyC4TOW7WkgAFyT2j9r6uFwtN+Gu1xLQ8auIiQzRxnQ1IaXScuVtz7LfZb/ZCcB+FPZdt5B5c2FBv7kiZ6CttkG96WWW3bcuMMAp56iChmzTxV086yOkrRdS0/s6xMnv9Q4j7QPpktwhym8uF3QdBMyBF3QbuJmwC4dD2XpupilUcXg6smAXAnmLYExMNMWAJvmJXFuN1359oT4xPGNfKvdt84y+z8NQvFN2h21EtJeOTKawTVHtlPJdAvmUVkFReZYpjD0SSRCGMyIqyZz4au3C4SlXxAz1HnxGtPlEgNa527jy8rTbMSTNgfU4ylVrYp+HwJa1tBopufq7OeZzKYmGmDGYXsckEyO+7ms/GXDO891eFD7PHw58IcZ3G3Vltr9+bu2m9BZbpZdvVkbM9opbyivKl+qOkpHGBK1NSH2lkVjEdXYXiGJxjG18fUJw4JAaSYe4bBo1YNXm39EybZW+z+Ewbmtw9M+8OGpaXim3/APY7NOsRTBPM85rsac2xcS8w3jwk7G3jxPJtvZ3Llle5V26dg2PY96Wpq6+yXVah4rfbaSthgikgo6qkrYZqiWUeWgMrqPMDNix7HVQx7HkO8pkFtwQQ4kE5QQ4AADYNF4C7eCwFJ76nisMeaDDzMwd5c9xGb/lJLnWK574o+Z+D5bTsGk2R4eK28+NTccITj3jegL7b3Laq+SBWa57geDylgtFKRG8tRWiWnnw5VGHQxtw7MWazqAeOXzPdzMY217zzTZobzdbkgV4qrRo0BiQXFp8rWeao68saBsRdx8rBFzYHm/E/GP8A5ru+du+IjxX123ec/FJuuet3Du7flmee4Ns+SKsHtFDb7cYmjo7J0iRfOpl8yYQSvIvSC6rWxlNlI4bBAikImQAXzo5zpudS1tgLWkwnwHCa1R3vfEBNQCGiTkptyizW2giGh7rkkySuh+IDe188bW9dh3Lw9x8lWfwTyK1prtzbFgnbcHIsMUzms+7Hjlikt1jdi9K1ylbqlKyvEkcYSWYUcHkaa+LAe4gEMOUACOU1CesgimLxGbUNVmHx9YsdRpVMpDoNS5uSOWllkOe2IdUuGO5WEua5zZIbB8T/AIPvCrW2jgDeXLPG3HtlsWz7fV7bsLSLT1lJA84po7TT2imQS1FyEqhumOAzMhXqXMgd8jKeIx7n1KAdVqZgDALibSL6NaALiQAYEwLW43C0sBSZTDRSZDjchogXLnOcRIM6ySTJudZJScseKfm2njtnAHAO6eONvvHKkW9OaRLYo7d1Dp8yk2/SObpWyhW6gak0I6sYlXvq8cLp0v8A8uqGi3KyKjj8f9to2u5x6tIsvM1eMUW5hh2eK/aJbTO93Pbm/wDi1kEfiBiOt8U+DbYexN1zcu78vN1548Q1ZDFR3De+6II2lhoUdnW32qgT/ZbVQIzArT06gllV5ZJpB5mpieOnJ4GFb4dPWAeZxiJe6xcfk0CzWgLCxlZ7vFxTszoIAEhjQSCYEkmYGZzi57oGYmBErbzbEu9LHC8ksVRDKlRTSo5VqeVTkMjd+k92U/RmHfOuKysQZWtlCmNWgjpCxlXtyC7IBdi1WFbqjWoWKoCnHqQ8eD8fh8fnpm4hzfKSPif3VoA1yifSP7rV63iba1XBHHCLlaJUYyB7XVy24uxcs3WKVogwYsQw+Pzz307cWQQTeOoB2jeVpGKeCT1+P5z81m4duUNPSJbWtlRNSAg+W1dLJEx7d26m6mPbPvZz8SdDxjM2+X396KvMScxdf6rZYaanpQ6U0SQRluoqgwufmB6D9NVmpOqUknVG1MwTtKsxwPXGkLlZCGxPx0AeqiRpsyiQ3z7Z1MyIEoWoXK9VpcyiExzj5agKiRqSiAkMPXOBqB10wZ1Qz6nProl6IZ1QXxn66IcmypB757nUzoBgQWGD8NEPRyobDPyxqFwRDUHTEqAJDj5YzoZkYQiAcj4ambdQBBYeoxjUlGEM49MZ1J3UDUE9tMSiWobj1x66Ad1RAQHA9fjo5tk2VAYAjRzlEAhBOPz0cymVCYfTto5pRAQWX5YydN4iMIDAYPbRDlIQGAPbvjUzJoQT3+H6aIqdEcqAykfX46OcC6ICE/p3A0c90Q0Ju47ZHroh97oBllLPXnSV4tVqEqKtTMoq02cqK+pm6qK+ewGBqZiorHUzlRV1YBzjH8tNnUhaXurc1s23Z6y/XO+2qwWeNcy1dbULDDA34QWd/cAyV7EjvjHrpM82GpW3CYR1R+QNJOsDpquX7Nt9dvp6ur3rQ0UlDS1krVcq03k091qQemNFjbLNBCixsTJhjN0jpxCc9Btbw6Yc03OnYdbaE6CNpOpV2PcaZFKmYsLAzAjQyNSelsu5zLcKyzVW4LtY7TVPUNaKB3kqx5yziSRVHkqwcZHcM+fewVUYGcjLTeBJ32/VDxhSYXASX9RB7mx+G1l06GlpoBCIoY18tOhO3dV+X8BpfEK5ziSSSdU4/do5glIQpJUjGZHVB65J7aMotaTomNdW+zASAxqkcqrP1HHShHr9fn+h0peFZSp5vlZc+u/JWzNli93LeW9tu2a3UwLTPPOqpTp1Aq7kZx7r9/ng49NMwEkNaCSdLG/ot44fVqNBp0z9Ol9Y6I2zOQdtcgW19y7fnpaqlChYJutHWVeru0bgnKsrIfgcMMgahc5pLXWIUxnDX0SKbrz09LSs/crxPT1DmFXgtiL786YCTN1YCdf+EnAGcge98dQOkyVno4ZpHN5unT4fX4Lxj8cHgPvMHJdL4xfAVVWvifxcUl2t+4d0bJcy0+1ec0op1nipLvDEREld5kCrFXYBLMokzkOvpsDxxtRooY67RIa6JLZEepEHTUahc9vCcRSLqmEPK7USB6+h77XBMWXWPD59orwb4sOKE3PaIL1x5d6e5T7K3/sTdaIlfx5cwD1wVkful4fMQpHKB74jLKq4kUcrGYKrhqpDpMDMCJOYbRE6/T4hej4LQOKa4Dzj0BzaEGbSPkZ16Z3ijxe2zlPiazc02qmuCW2xVQtm445atZKqppRJ5UdV9104lqlZ5uiRYceeEdcqw6gM9XDFtXwhYnQXm9wATANj6SF1aeEyE06pkGYIAiRZxJmALHUCx00K8Sft8/AnuPmHa25vH/4adu7rG9oNvw2nlayU1J5cl5sNOyyU14ip1HmpWUD06GR298RxxuhzTuD6bgONzxhatngy0zod29L7bEkjcR43j/CHUWmrQIcCCDfW8zfUgwRFxGikH9i14oL79oJxjvLcHJ3Kl0oeYLfdKfb28LdROqU9/SW0p93XeQyhwatqm0TSiWPCxvLJGVfOdV8Yw7aDZyyDJB6QZI9IcZm+kRCPCPaGWM0zMEbzqAelo0A7zKw3i88Qx4b5k4H8aFVe6qa28Vblq9ub5SipnNTLx9uSc0UstSyMFkkoLhR09fmMBGEkTqFDHOfh7w5tTCOsXgf+bRmEb3Bi916fjmDNClTx0QGuGhnlgNdJuBe/YCNQvYTjK/0+9dvWbdtPf9w7Sg3VZqS6baSqpIxSUdsKRyQDBJzFN0U9TKMh0kmCq2IlXXHxDwx3huEO1Inf/wD5nKOtzEmVqY4PaKlICo1u9wTM36zBOW3lAmJKccwcKbW8UHE3KPhU5YprZDtXkbbVaBJOrIi1jYL+yCQdTey1SQ1cRz1e9KT2Rxq6hin03Csw+T8jpN9xb0hcviNKkKRLpdeCBf5x1BvqJAiLL5iOZOXKnnr7AeXwsckUi7q8VPF/JO3+HZrBJP8A7XHeqK9rQUJUsoWFqijnMSOSAVSXucHXqTTycVp1qZmnU5t7jKSRPwn4hefbgyeH4hlTz0wWzbUuaG23Gnz11X0Z+FznDYPib4F4isex7BufbIrrdcLRuGhktgVrAbXUewS22silHU08UqNFIoLEtHIcFJe/Ax7arKz6rzcXknc3BEWjcfCdF6ThDDRpeMIytgNGhzbg9CNOkm2gXzufboeH/cvAm2eLfFrwJSbP2rw1uDcW1blyHS7dASjr90UVVU1Npv6RKAkc7oa6jkljALdMStnII9F7PY59Su2nXuWG3oYDgeux+a8rx+hQbQdUws5XSHA7BpbBG+v0I7Jt/wCVZT7kk3l4Ct9bZ3ffpbHd6C83aisERDU9PdFmoXir6eMjqE0scsETKTg+QnYEuWw+z7hnqUxZ4IEztJt2giZ+qycfzNwDHAjIHxpcw0RJiSBJgaXMC6idwHxfs/kPfPir5b8cPLu0N6+HThGksHKu9duWOSuisu5d41FILa1op4fMNHWn2m3mGqr1BaqqoRCkkcZmJ6nvhw1FtbDNLqjjkpkgSQbh43DQJLBuOd0wAtzqdfG4s4LGPyMID60GMuVpJa8HV+hfchh5GtDpj6JPsivDJyHufanJP2gPixqYp/FFyzb46Onoa2l8io2ZtKFAKG0QKOn2ZZlWGplWIL1o0IJB8zq5fHcZTwlAYCkZg5qh/qfO53y97ZvQJsIHYvFsx1RkAANpNFg2n1A0l2smeu67z40vH1Q+GPgq01exLBLyN4jd/TVe1dh7GoZQ1dc7yY3ijqhC3SVpYD5NRPLJ0xxx4DHqK685g+HuxdQ0GEARLiTAa06knQbxeSdNCvX4tlPBj3vEzkYRlgSajpkMaNydLaCXaa+OG3rb4qPCP4VvDX4WNp+H7hqj8U427dNxJel3ybrU7bg9rimuG9LxTxUYjlpBXuvlUvmSxVDSU8SCoZZAPX4pjMZiHCnXiiwMB5SMoMNa1skHO4TeARzGzRJ4XD8Y/CYB1TFUnHEPc4RLYc4y505SeVgjOJnQSC4NHp3w74YuauMvDbS8V7T8QlhvG9NqU1Rcn3ZtrZ1EtgvN8nqJJ6qrmqK5aqouFfUSSOJpYCvW7eWGh7Qrhx2NwzqjXFjvDgNaC6DlAAAaxsQ3pJvOY5rldbhDarGl1drRWqkufOYkuOhcSeWw0iwFmiy8nfGJf93V/jD4H8NXgQ5IHil8dUC3On3lV36hg/s9xesns0pMtTRCGmiMFTRz1bU7xS4Mz+Z5srJFrXg6TcYx+JaPCoNiXm+hMRmBJJBgRv5BqRh4tx6vgSym9rXV3eWmJBIc0SXNDrN0IzGS0GYbGb0K8O/Bm9+DOTt47g3LXXHkTxL1e1mrOTeeN9X9au33CZMPBaKSipoy8VqQK7LS4p1RoEaTqclRixlag+h4VI+FhxGVoBLnH+p0lsn/AMgJIbOq08Po1GP94xTHVsQeWAGtaxtjlZcwJJNgHO1MSoneJTxB7w2/xDtvibkflri/ircO/wC81x+9aWmq4vunju2xzpXS0Kwu00s1wkna30UdND5kz3IHs8PmK2AwbHVms5nloBLQJL3Oy5KcTqbF0uAAa4mAV0ONcRc2k99EASS1ri4AU4JNWqSWxFMAnMc0EsaJJgzW4c8B+7/EzZrbvjnK2XrwscbxWWGzbV4mslyqrLWXCyoEWCffMlBJHLUTvHTQeVbaeZI6OBI4pJJXjIGriXE2UnRVIrViSXEw5jDeQyRD3SSXVDIzHkaAvLcNquDGsweenhWiGxyvqCIn/wD1MiwAAqOkue4l0D0J4F8KPCvhusdyuXhr4a2DxduWaVvvW5fcqdVylicKGluIBq6pWK9QlcuTk9MkbZGuXjuO4jENax74Z/S2wgz+AQN+07yFoo8GwbaznV25i6Lklz9BqXzpsJtuCphbYTc1ViK7XAwVUKsk6RhGClvVkHSOlMjCdRZgM9XcHXHygDKPv/Pb5rTiX0fMwTPr8u8bm0roCuvmGEHLKgLH+Az+46SQsEWlL0ZQBhVoSrQVWimCSw+Q1JUQj9ABoyokkgdzoJmoZb5ZHy1CVckaTMoq0Q5RIJGfTvohyYShk6AdZWgJJOPnoF6KCcjsdDOoramZWMViPoNMHqxBIwTqFyiGxzkaXOjCFoh4RylBb1+GdTME2WyQ3ppg5DKgkEE/PUDk+VCbPr8dGVMqHoZkS2UFs5zjTEqZQkEZ+GhmUyoB/LvolyICE5B9PXUDlIQn9NEOTEQUE6hcUCIQCAPjpsykIT4+nrqByJCCwyARol6bLKA3ocdtTMny9EFsfLUzKESUFvh66IcFIQG0SUYQWxjvol+yIagNjHcgaYFMGqV59O3p8NcEuXhQrA+mO5/npcyJalZGpmSqs/qdEP6owr6Yvugq0cyirUzhRBqGKwSsG6SBkdie/wBQO+pKZuq4pftoHct1p2rbfDNbFeF4pK+JKge09ZaMwo6AgRuqSnrLLmNcKcEh6FQtObQ9tfWdrSOvou4MSwUnUzzSDIFhG8wbzpaNbldLoYKKl6tvx0KR22ipl6CWXpfJI/D6huxYk+pfOTk6DqpcSSuUSSfEnmcfu/3os1BTUsCieKlp4ZvLCkqoHYf4c/L10DVOiqJJME/ZTtW61BOM/HHz0MyQhX0QUECpjgkhf2hVaJQWJP8Ah7HuD8O2dSbJmEyMuqx4slnkkpqmSgp6qaIfsZJx5rRev4S2cep7jv3OnZULQQ20qx9d5BE2PS35JleaaZJqGqpVfoDCKQIgbyxnKtgYbpVu+FPYnPbBOgXbk/VWYdwgtd/n9PuOih9yVzBw3xRv/ZnJG4dz8f7Lp70tSu4b9WV9NJQC3UBSJFdg2UqPPrYoY2HcebJ1h+kKNuHFR7CyCTsBOYk7AakQJMAxFomVtpUs2fDNccwEhtxrcuJMCAOpE7LXr541Zqm4XuxcceG/nfeFJRW2O5terjJbdrW2qppvNMc0IutRHVy07ezzEMtMSQvuqwIze3hhBy1ajGGYAJJM9IYHCb6E+sJGYRxYKtM+JJFmtzRpuSxsibw4jeVx/dHiT8VNRdb7tuz+HLherttLbmuQrpeVqt0pVIZYaZZYrP0STiWORlMOVCxkdRIxrNUw2GN/Ht/2G57S8WAOpiV1sDhXhzPEpOkmIlgtE5iJdExBBJImV4gcobU8c24uf5fGd4N7d4Sqznylt1xt+77Ftvc1wrn5rp4ZGaGknpqqlpaasrqaKFp6aePpcMkaZZ0VG9FhTRNFuHxT3ASMpLC0CdYJJyggxfrYRdYvaLB1cJV97wtMCBDx4jTYcoENAIPcHqCYkLsNu8anhF5O25wtzDxRT7mvPH0UdPY5tu3KoqZ7htC609umC2tLbRhq2a4wyNThmiiKLE000Mo/bgYK2CxfvFRj2c1zYSSJF7nKGgbkgEgA7Lt8H4thvcmONTLEAnS83mxlxM8t3GZykBeiWwfGJwVZd0cXXCs8SFiuG2txWa2bfbZO7rjJYr9Q3Ko6DDLJT10VIvS3VLTsio0YZoT1dBbNHEcDVY5znUyHC4MGIHV0m+hmR+S5OELK9JzW6ZnEuOV0k6BrRLo2gifQyF8Wn2iHDnI/gR8Su/uUPCPv3efH3At+u7TW+6bJuNwgoLHO0s00VpeuVY0nC+TNLD3KlFfpHSgLd/B4pmOoBuKGZ0aGLzHMGzO4k9YJ1hea9qOGYjhGLGJwbi1pvI/CehMQL3Am3lvBXudwHwLWeJ37MSPf3PUHI+6+Vtw7aPt1T91VIramiXptnsyMv+z1Sin9lnSeQYjn8qUe4jA8fE1BRxAbQaCAZBMG55pFyQLQdyJ3Ij2vDKtXFYFjaroJaQ4eXYi4gAkySBppbUqYP2UXKe2uVPA34RpLpVvunkDb1BfOLr5b6yJZrlQ1dppaloDRR46o43jgpnKSDsWGG6yQ04zTyV6j6dpAfbqSAfrOn5LB7PYl78M2gQAGnJe0xYz1t1vGoheuO3bpUXDZVJW3jbouFDJF94biq4Fkie3IaOKrEsJYl/2RlkVVhxJkEN0EsDzajMjy1lhp3deNtZ3vHqupLXkEul1so23EbaxvIvN4XyPfaZ8c8qeBTx18Och7tvFNN4eOct+bH5D3Tcau2vPM9/sV2innllooY1aln8qsV2pYA4dJHCgMOlfccKqNcA1vmpZmgD/k0tFybyZvYTGwXguOYpjKrn0z/JqQDOnK4ERvAaAJdJPMTdeunB3iMn4x+1l5T49mhXj3Z3Nu5KmqjsU7Cnj2lvSGgpJoapRE5RJ7pboZgWmCmaqopT0KrOG89mdiMFLrmkPNryyQWzoMrosJhsE7Aeix2CoYAsaCXNe0Ty+ZwEg3BJaQTpaRAlwlbb9pLt+38k/ZF/aD2Cx0ENNtPbFNcEtEbSN7LXU9vvkVaLhSB1VxJ/tVQM90cplWKkEph6j6WLoveYecvrcZQCO8fW90/FchZUZlklriTazizMb9BA7yIsvnt8UPMW1ftTOSPsS+DqjlLbl23fX7Rt+3+Qns8jo22LjUVVPDUpLJJ1eXUmmtzTFRnod+sf3gGvUYOkKWIxNV3k82kAw1ziNNJMWt8ivD4yvn4dhcM3WbCQTHK0E3JnWA6CY6QTIPxA8bcUeKL7WPgD7PzgStoePeJdpbXsm3tx7WasnpbVeZ7LWT18FsMMUZy9NHX1MhL9QkZ5yXLyZGHgmMruZUx+JBzZiQYnYNJiQALQAIgCAIXo+NYWhQq0eGYc/y8hLw2BInPBJBJLjzOnzSM1wF9Gfi+8S/CXhZj31a/EzyZVbcsNu2vNc4vLdI6S4qi+TbqWltiSZnmlM7wdEnmmX2Riwjiw2vKVH+Ly0my6bbuk63IgQOb/jIkmV6nhNLw6bccSKbJh2waJBcS7XUQA2NYaMwK+bbi+qi5m5K3L4jrpQUu/PE7yXbKvbvG/GsxkZNkbJolNG9duFaaR1t8EpiWoqkUCR+0EMUk0+I/SPoeHRNCkYjnq1BcA6tA/rIAho3dqWtaSsTMU6pihxCo0kSWUKZOVzh+N8HyZy67tGs1zEtafcrw6eFHii1WLjne/PXIlx8Q/JHKO2P7S3Xd92igtlJHQU9HRyRUfkHIjoKOJpBHSVMjU8UaSySIZWZytfiYwtR1HDtytonNzHMS4m7ibCToXAT5WtMLPh8PUxOHfXqukvmmQ1paC0l0Ma3zxP4RzPc5znX04rvzfHiC+1/3Zf+JfBnv68cCfZvWKplp9y8o22mSgvXKtXB0F7PtwMFMdDHlUaqwIy6kkuFSJqKOBp4el71xYZqjrspk3O2aodgbxN+gmS3FiOJupVBg+EkBzTFSq27ac6tpjRzzo534fKIEl3pt4bOA+AfALx7HsPw7cawbUoEtK3C7Whuh7vuKsNSitNcq+QM9VVIruVMgK9iEwrdIw8Q41iMdUyvMBsAASGt10He0kyT1WzhfsxQY0hty4kmobuMDUm1j0BETosD4uuYtmbO2nvmXeHKVt4qs9so7fPumuraiBKSw0gZnpRWRurdS1FRVIDAcOyRzdJLFQMOGqAvFs0G0TJIAs2NSACekwN5Xp8DhYZ4gAEgwT0NiSTECBEmJm2hUWvCP4Zrt47fEdx/9op4i+Oa7Z/Em0rKlr8Pey62l9jqoaBmJO6rpAWMkVZVMvmU8OeqGNYpGPWVJ9NXqu4bSqUHf/k1P9y8hg2pjbNFnn1HWPnHEMTR4jWZVoGaFInK4i9V277i1MQPDaRfzRovYmsvm2RcU2jQ3Wqrd2LE1RRUnt37cw9ClnUt3SPMiq0uQAT6lvd15NkvEaDc9Ok/oNTFgvVtpVGA1nCGntv6b6aQfgDKzw2XcIaoy0G41tJUo1PaXj8yiRh6sMgOc4D4B6QwHYZINrKrQeb7+/vRZffbXZmF5O+/31jdbPuHctktKQy36rpLKqKZZ3qqgRNHECFysgI6gWZV7epIGMkA0ufcN/usuDwz3Tkv0j9Z7f5TKn3Ba5Wd7ZUK1xlqEYRlSjSRAhet1PoG97BIB9B2Jxp4IMH/AArnYdxjMLR9dbenyW8U6yJBEsxBlC+92x30JiwXPcQTbRLWRH6yjq4UlWwc4I9R+egHWsmgjVXPcE9iNTMU4KET66bOiraBcokMB8idQuTtdshnHw0CVYFbSzZFJJ9MaAcNVEInPfRBTNF1bRVyQ3c4z31FEIjQzBRW9NLmVgNkhj3IzkaherEPUJuohtjB7HJ0perGoepnTwEJvXTZ1AkHRD+qKG2O50S5HL0QzjHxI1A7ZNklBbvk4xqZ4TBsaoTY9T2OjKOVCPx1A+QpllBf8R9NQORDUJsdhjUzEaqQgkdifj8NN4nRGEFgPiNQv2UhCK/L10c6YNQWGfXTBymVAYeoPbQzqBqCRjGmLlCE3bsSB20cymVBYDPY99TPKbKgt+eBo59kQEBh2OmzIlqAwH+moHiUSFKssceoA1wy5eFyq2e2NGUYulAj46EpS1V1/HudFTIlBh8hnUJQyK/UD8RooZSr5HrntoSlhClkdU6oo/OfP4eoKSPzOinDL3ssfBRzvVNVVU0jICTFCzBhGSMEk/PGQPkCfXOjMKx7xlytHxWs7jtsscyXS1SVEtfAwaSnapIjqIvjEUbK4OAy4H4lAyOo6mYeivoVTEO09Pr6/oSn1huhvFleoild5iz+U8g6fMB7qcf4eoMPdOCO+QNJsjiqYZV7W0WSsteJ7fTPNJG05jDzdJyFcjJAPxx3/IY0Q+yrxVEteQBbb0WaVg6q49CM6IKykLH3CshpaeeaYF6RARUYBJRCO7YHcjGew+H5aOdW0aZc4AanT1XN9tbvpqV7hTU73G97WikeKlrIYjL7OyBR7KcEvI+GUqQvpkEk4yjX8oI3+/l6/JdbG4AyA6Gvi4n6nYKPfJHLsu9dxXviDju33jce7BaKe4XWjq6OVLOKCeaWFaipmAD+UfLlxFG3mVJWMKBGJJR0MNROQ1nWaDraZgGADq4giAfLOZ2wXRw2GZhi19UiZIbB5rRN9BHU+W4HMQFgLNtDgfYm9dybor9u0G69908FvDX++UFK9ZaIZ3ZPYLcjoqW+nYx+bHDS+4xyzeYwyb8VxqsaeRpLWONwHamNXGSXGDHbQAaLnD2efWcyq9rZBcWgAwI3EXN9S7mJvKitdq3c1dzXu2npNtVEFBZrTaEpaIW2atmnkkmuMwanqaqRaajk8k07PSP15DFsRK5dctDD0zTBBy3N5a0WDSZNzqdQB0kkQvcTlZLSCXZjcnSzRZovcGDPpOqiFDtTeG5vEPuXb2x7/wAzHdlu+7qGlrbrSUstVstJemeCtgsy00MdTA8grWWoSJ4E6/2lQsasJd7qEtzOblBnc36jMXWtEjMD0aTAVT8QynT5qgJEyAIAmReLkzAFnGJ2zESg3l4bPFLS8KcWcIbtudg3LaEq5bJQRW2appaG30ywForxf6akQy1NQOjzWWCtVBMsUaA9Zdb8+GdULmkkRJJEwP6WSYPQFzJMyYAg+WpY4PNSqGc2xBylx2Mm7BrIbEC8kmB5C+LjwC86fZzXWyfaA+Ad+VrndbXao4OYaeW7PdI99Wz3PPmwnlyxMoCtJSoiLGoDo6+VID1cJiaeMb7rVADTOUCRe+skzqYN/wAl57E4M4WqMXRvVF3NIGlvKIiRAvLSRsZJXr7xdv7gfxc+Hzgzdtvp7furjPc1kpDSQbztS3CrnQExyxRyVPmxVTrIkmUhkPs8kbB4yWjUefxNTEYWqblhJ0YYH0Mi3WCRMRdezwGIw+Ma6GirF5IbEmPwwAOhgEHTNAKijyR9lb4VPFHs/lDbmzOFOFOIK2qo7nbKS7wsaMzVFN0w0N2pKKkWNKRzM4PmuVDxDyjBKjhl2UPaCqCH16hcbSInU6Ek9LxczuIhDifCMOWOomm7K6NJsYJMC4OWIECDzGRMnxh+zP8AG14z/DFzPR/Zv7z4ftXJO5Nnpf7JYLEl7O3tx0FShFU8Fpr58U9SCtOamnhmVPPjwiSYaNT3uL8IpVCcUKmUODZJEtI2JAuOh6HUC68NwfjVXCk8LxDczQdrk6iInKRBJFwR1Oh7z4T+bNrcD/agc27Q2KNkbas3JFuqd67foYbdJZ32tfIKB1qbXdrVWBam1SzlGlUMCYnKVMcjwO7PRjW1BgCMUbtsSTYgmxDgC1wGhynTlsdO2x9F/E/5QOWocwAM3Ah2ZoIJJBmHASZkQvae2+IWg2JPxTWWt913vi64WKwXTcF0t9lmG3LHt6KU1dZMszA5WF66NmdXkaRZZAO7e7xjScKlRzm5Q02JIzTGVsCxgkcoiB1tf0uJa19MOY7+Y/NDRBcTY3MxJbMk5doEgBRc/wDKWNu7e5E+zq21zDTtSz7q2Rva0X201DnraeKrSWmnOGwTG3XTSDGQ4iBXspOr/ZLHupY0MNpGnpBH5b9bryPtHwgHA1pAhon0hwbAjWzjpoV2XlTwu1viU8LHPm+uMbBsSx8u0lj2FzNs6RaUVr3XdlDbTd2NcOny5DULUNSEL1AR1DxsGQINdKljW4WvSaTLWue06RlJDbGBcRJPUTqq6mMfiaAaWkFwABuCDJyRcnKLAT3I7xj+078Qr8rfZB8peJLh5rhT8a8obc2hK9rmqJCbNQ3aamp6lJVVWLNBUWqogUOwRfNcZJ6BrGcIWY5lF+rXOnvALh01m5gm3qVtpcQZ/DKtVglxa6LRBMMPpDXCQIkidJXyt7i5F4+8Nm5/s7+RuLdl1Ut52/x5T7v3HX1VPPQNui91dZXvOySnDyQU69FEkqARt7LIE6gSx9NWZUquq0m2BAa3f8IuR1cST1iOy8TSqYXCMwleMzgXPdto6A0Hs1vwJPdellqsu6vs09ueEPxgb7rLJvjxepuOm5n3NaPu+R7s1gu8NXQXWmuNQrukRp0mtzr56QdD1RKPIOtY8VSu2pUqYKh5GAsJEQHQDM63II1MxMXk959EnCt4li2y+o4Pm4zNMAgDQhrSCNACS3ss340PGdtDxkeKzgjffPG16/l/wzcdWVt/7q2bS2+a21lVLXyJBQUKzGQNWVFWDbpgURIxFMIlidE6ZOfwug7DFzqLZrOhjZgjNc7TAadZvmBkCwG/2idQxjaWGzZcOwGo8gOs0Q0WMZgbwGnmFw85i5fR79mLxVf+MrHv3mXlDaO2tveIfe9FbbpU7fhtptS7ZtMqu9FYaag6Io0pLfG6wow8paiaWpncFpQVwcfxnhtGGLi5rTzONy4wMzi6SBOgb+FrQABzLdgMDTxIGJFMMDiYAjkaHGGAxmzE89RwkveZkgNXkDzkdw/ayeJG78HcP8u2TZX2dPE97qqy+bmu0c9uh3lU1M9Klx29RJE9OaqmgPWrqJlULJ19QzT9W7gmFp4WmziOOaS50BjTcmCSHGbDTWNoiS6M/tBjMTXru4Rw05XCTVewuhpDSCyQNTJzf90SQ2Hew9x5V2De7xw3sPwObeua0G25aGz7kjsFRHa7JBsqGeNqmOmrOhkjWJ4gkUsjxKJGmWNqiSQAZKPjV6z8RjxANzmBEughkgdSbNAJjRobJXZPD/4dhRhaBaQLMaOe5HMR+EkASSDc+Yg8pl/U2zctLyHuDmzcu4bLQLSWySmqKg1y00O3reKOatlSu8yMM/T+yZpnaFkC4VUUssnGNZlGm6nMiTPeIFo7k2vJ3NsuugXOZTpZRJiALiS4AR1mLWgC/Ur5zuI+auBPtGvE9vbxLeK7lnjG1+ESh3dVvtDjG2zT11133crYvRTXa60NLG9WLcnutDTSDDyZLKyrlvZYDh+IwFBlalTc/EkEg5Dlpgm5mMucydzlHqvOcQxruIF+ApuazC04a4l7QapB0kkSwamBzGNtPfW5eN+uuO4dsSeHbgLxT830dRDU0tyq6TjWstNNRKTEY6ySe8PRCVIsyL0ISGLrll6TrzA4LiC53iltMATLqjAddgC4knb9Vecdw6mxtPEPN3NADWvd1tIZlaNJMkjpoU22F4prJs6hqb/yB4d/FfsyiuEqx3K+XDaUN5mmrMlQ1T91VFXNCEJiWNDGEUOvSOk5JOEqOAbRc0ibNa8T/wDbLJO5v0toN3EX0/EAdIIn8Dw0N6CxGU3NzfWZupRbb8W2wb9dLpQxbS8RVbX05c+V/wBku5oCkK9PVK3nUKL3ZsdIJb3cBTov4RiWMzvaI/7mfLz6rzVXF4YlrKbxJE3m/wD9enWJQrBvTZ/iG2JtzxBUG4Y6biujqqu52eshtnlVdHFTNLDJNXmuj66RiY3LQGKN4QF8xiQQtGLp+6mKoIfF7wBIkC2vrMEmw3PT4fiJccPRhxdAvNzP4QImNLzJBiNFhNw8n3zjCh23f6O40+8RdKhXkjuNBJRivEhTpNLWxxJCqoCD1OpVlaR8knJqe0tZkaDPr6ySNf1FhC6tPh4xVQtJDWtta5HaJPyEbXAELql05Iv96t9us1i2vvW336veH9tDRJPDDCV6pMVSyeXGcBgshyw9RGT7ukpg5huAeoH9/hFxuNVlZw+lTcXVXNgA9ddrRf8ALv17Daqq3rSRwU09PhD0N0oY8ue591u+fX17nSuqSZK5tWm6czgfzt8Flj2J76UP6pEnTZlFWlDyorE+upmRAQSdDOr4SG9M6WVEIkk/HUlRW0wKtaIVaYuToTHOf56TNZRI0M2yiG/r89DNKsaCh6ElWKs40CSohMQfz1C8KxgQ2OB8NDNNlYgnTZlEn66OZWtCE3r651C5NlCQfr6amayIQiTk6mdQoLn4ZGjmTBsoROB641M0KZUJj3+P7tEO6KBpQn/MaGZMGoR+h02dQNQW+Pz0cyYNQHOiXQmhDY4x89TMoAgH0OdNmUhAPqdDOiQgPjJ9Roh40RDUB+3YYxolwF0csoTA4PpqB/RANTdvj8tMHolqC3x740Q/ujkUpiwxntrjucV4NXBB+OgVFWQPU40FFWRqKK+e/r30cx0UV8nGPho5t0IEyraJeirEgep1A9AlM6ytiolE0rERorSOACSEA7tgeuMjSvf1VtKkXmBvb4rVqivF1nakno7ZU0EtPBKpnJB6ZHKjp90huxHoQc9j89KKl4JWynRLAHtJkE6dQJ+9VrFVXS7Le6VS2O83SzrI9ZcYaalLozsD1VEABIxhQXh9e5Zct2e1gkwNvRCozxAH5gCbCSZA2Hz0PToFslqqLfRbbtz0U9HWrPSRyQVNNUmpSpgYK3mRyerphwQw7EFTnvoPeBOVLBqVS4kwDva/7rbLm0aUFWZJzSxhGJkDEGIAfiBHpj1z8Maj4IhZKXmBifvuuNLuHd9bV19jo0cXCnXoSqkgWSKWAoh89pRIgYBiyhQASQc9I6jqumSQSTb7++y9C7B4ZjWvdo7aTr0iDHc/KTChfy9uLlLw/i63Qco7c4/sd1qqiuulzqbK1XHaZehjFJSxTzNTxzSuqRLAC0R6mmIynQ+zDUqLhDQXEahsS7tMT3LstgI1MroPazFlpa2WAES5xAbprEEgaXLTJgQJjNeHLe3GWyds3TZlNUCTdF0utRSRtRVMl2uF4qjlSa6PPmpII4JVSRnEPk07eSyIoiW/EVn4gtEwIt+FoE31tc3OpJN5Ky8ZpVRVOKLZy3JjSBIAOh1s0CxNxcldjks1duGRtp7i2FdayqJklSVnMEr07MwETyMeh2iRR0shZhkEdwSec6qRyuIgd/n1/T8ldRr0wPe6T4BEGRp3iNz1/VcVh2/drTyHuXaqXGw7msVwpZbrSJW1uKuKYdMa00/7MrGEg6ZI526iFZl6UMaFrGFjWTTMOB0vpqSDPWAQLknW9u7708ta57CNBI0t0GrpJ7abyVt1k403DFebc10iqxR1sdVeapS3RWRVY8oKtPXiQvTxxSTSiNAERSB6AkNaa75Ja6WiwFo6SRFyRvc/Jcmq+hUpkG77Cbi1zAHeJIm9zdMLhy3vzjarppeS7bd5NlvU1Brb2kaQfdypGDHT1x7RLEzRgLPSlYyzJ5kcXX5pR7JBLNW7bb3Gsx3i3VRuGpPGoEi36mNet3SfyUoW3HtG5WGxUNWlnMFdRwvFDTTlzLC8ZBAp4SXKYZkPSCG6iAT30tOq596fN3F/r+645wlVr3OJO9nCPq606G9xvsvj+l2pxH4DPHjH4aV5U3Dx34IeQ9xDdXFl2qoqmGk4i3yJUV6SrgqvLWa2lWnhbzWCPE3vspjlkPsapOLp+9uZ/MaIfYczeo1AO4AmOhBAWXCnEcMIw5INJ5lsHNDtQ0kf1639QQZI9uuO+YuIt97deycMX3j+77021uGvTeKLevbqB6CJWqbjC1RDkS00/mxyRSOPLiT3yRJTNFrz2J8TDnPVBY0gEcsG1hGYyP8AkR6CZC9TQL65OZ4c7QtDrtc4wJABvFgLEkgaErx2+3P4PTedu4++0/8ADpVb223zps+42L7zrIqdkq7jYfZ2qrZfgEwYxTyQSxeZIqebD05yFTPo/Z3GOZmweIGs2JmDYFp7mdBMHoZXhuPcFOVtfCASwEktmPMQY6xrItBN9FAr7S3xbeHX7RfwieFHxK0m17bsPxGbZvX9nuXmtDLBVWqmmaNWejif/eaSZ6kVEAXPlDzYm/C51fw2jUw2KfhTemQS2dCdpO0RB06hZcU9uJ4b74XEOY9gkHmaMsHeTNsskz11Akt4PfENvStk48u/jJ5W5ouPhbs227lxXbuT9t08tPtDc1HSzQJS012Cwedb4V9ro42rJkeCQiHzJIT1A5sTwgAur0qeZ7znyuPMDLgSACJFiQAZEGxhej4H7QGlRp4Qua3w7BwDXMuBrMw/KI0AdoDe+2eKbem9eQfBb4z+BuQNn7l3bd9u7Olvm2t4XTf810ium3Irt5i1NHUIjQXFaf2KjomK9AVkHW3Ueps2FrAVaVeiWtY5wEBomTPXmGaSQZ2sIXRx2CbVo1sO7MXNa8gEwCACQYENzNBzEEEklepf2Q/i0s0vgs8NlBaotjm/T2i3UcdDPUJSCGupLbTU09VMIUbpXqpV65ZOkAyAvgyAsPaJr3Yx0G1zoTAJmBYCTNhOphcT2ewdPE8OD8QSMrQC6RzCXQBeYA6CwHQLxc8dF15G2/4V/tbPDHZqimuHh/445I25ebVPbqillht63+8RXmK3CSJX64oJa27e6rJ5ZaEd8so30Sa1TDYt1i6Wb6sY5pOg1GUT6xol4mwUqGLwgEHJnuCDlcadgCeoJ0kiDuvLzwt2DbvjB+0I8EfGFx3ZE+wdvbN2va45rftQ3JoUs1mNdNRi2O2KuU1q1MTFi0crMXKMhMR9DReaIrYgZiSXEQQDchrYJEAARBIkATrdeGxDjjX4bC0w3lY0XJDSbudmIIOpMxoLBfUz49NhcR7N8MXKm8rvxBvG42yC170s26Nzbg6Km67sulTY66F7ldrgcSVEazU9NTrF1JDHNTQ+XF0wwQjxLOK4nlptho5cjR5QM4IIBvLrnMZcQZJkkj61Q4FhXOe+o/OfMSLQA0zTAFgwAzlAAAMWEk/KD9mLszlO58jSb/puLLVyptS3VENbQwX2719vprjuek8gUTddBTz11caQ1McopYF6UkmpZJGREzr1vEsjKPmyEggGAYBs4wS1okcuZxAEuiSvmPsg3EVqxzNL6fKXXyyWiWMzEOJFs2RrXE5RaIXspxhvz7Rb7UblTlDhba3JS+D7w37bqpNp8mbh25eXulDUjyxF93UFdPNI1XXygVbdEDwUyRN5j9+78NnDeH4bDtxeM55uwAZcx2ho/CBEudm6AXhetxvtJxOvjnYPAU/CqgcxdzFjRqc0WdJ0ADyYzHMLT+vvgq4T8JHhp2Pt7gKu8QfMc22jT2+yX247jqJbJY6y5tLC9XR0JEtreVpKh3ZYqR3jCTqWHmAil/F61ev4mRtNrrTcPyjmjNIfFp2BJGq6/B/ZunQpeCXh7oc7LIIcdMzmwQIt5ibXHlXqDx+lZbod0XrePiR5NhorbXw0i0NdV2eoEMkKGZlqlNBE9Rk1UJVWRcFwgz5agcDE4+mxpqZLmSDL9LiRLj35iTMEzqV2m8MqBrcNQa2MsGGBuoERlIDbDQbHoV4veLbfG5PtFOc67wu8Ocz78vPgs27uWy3HxA77Fwihsk0EvskI27SvBTw+0z9Pmswz0xkBW7gdfovZ7B4eixvE8W0BgzeGDmJe65kAu0sBMbiNQvO+02MxNuEcPH/UuEVC2BkZJ5SbkOfcmHaA5oGYD3Q4/wCMePOINj1G2+JLNuvbdrtUYs+3NuWu9Tx2mhpj0JTNMlcTFHWeX0oVEjdXuKeti+ORjeJVcWQaxDnTcm3qGi4IjoAOkABa+F8Lp4RzWU2hjALw0F5A3zNAcRO776km6kyvGFPVXLbN93bbnul+UGngmnrWdqJC5JXyoylLKoCRnpCYHSD72MjI6p4ctYRBvMXkXsTJH0Cp/iAcHBhIDbxoCdL/AIrzuTfon+3KSwX0We7pSypJT07xMk7xxxzzzYY/s2bpPQDjPSfeJ75XSuaWG4ubTPz+e3aUa9SpldTmxMxBmBIva0669Oqbbtpdzbks287Rt7dtq2qLfVsXuSUsk8tEYitQWeOVjEyhGXqkZXAALBSVxqphaweJUHLra3Uai49BB7hIKjaZZUiXOGhIgzaLXmxgTqbyF5qLHxrzVW1Fj2hxnaGpL7BFT3qa7XCtro90p7RB51TVUMRb7yZ4o6QC7Vvks0MrBepUaHXXc+sXtLrZYIAAlovEO0YJk5Zc5xF7mR2MDhhhmB+aQAQTmgGWk2EXIGjWjKA4XAhT4puMwd6W611e7d0UFDSUcyUlusNQ1poKiHrjSNHpwXWocLE465MAguCoXpBynGNLCC0OcbydZMkkREaiZm+8yuIHvZFRgAbAEEZogbk6XNg0D1MLLceUW5uPtvSbQrLvFuhkq6qe1rMkVFVx0zVUrY6FHs5eAt0YQIpiEfu5JLZ31hUggxoOu3zvv3steMptq1fEIsdY00EDrGwvMyV1+y3utuEgkrIIKhkVCjCk8ueok79gjHqjPp+JRgA/pXLhYn77rmVaLAOWR1vYfGL/AAW6U9T1pBHUtTx1rIHeJH6un54PxAORn6aOcbGVicw6gWTvP79NugGykFwPTB0C4BMGIeT8z+/Qzp4SSR8xpc6KEWyPrqSmDZSdNmThgSGfB7YOoXXTpBYnHwOlL7Qok6XMmAlIY4HqRqAqwNhC/PQlMklh8xoyjCGzEnQThnVJPx0MysCGSfmf9dSVEFnPfuDpgU4akFjnRzFWAJBPz0uZFIYnB+GgHBOAhHvpsyYNQm1J2RyoZ/LOmDkYQSRn4aGa6MITj0xohykITenwOoHKBBPqfjqAwiAgse5Az8tEvRA2QXJHbUL1IjVAbONTOSmyILZB7A/lqZ+iaEBvU6OdEBAb19QdQO6JoQ29Ce/7tHOdVAEA5wcDRzI5U3P56YOuplUoCQNckvXgmthX0ofdQsCvk6Jch4at1fI9tHOp4av1HPr3xoh6GRY64XBbcaeomMaUrOsLuzhfLLEBT39Rk4/dpXOi6tpUS+WjXX5K9TcYYY6OWZikbzLGpx8SelR+pI0HVLAqUqBJcBqAmlfeIoGCI8TuJTFnPuo/lkgOR+Ek4Hz76Dqqto4RzhJG0/CVpG9KuC509DFT1O5KG4B+g+wMEmiDAhx7w+AXv8Pj8QdV1KgJuNO/+F0uG4dzM05S3uJFtOq5zaJrrcLs9HLUWCe/2xaeoRZw0E1db38yINE4HT1Ll1YqnT5igdgwwKQBEkwD+fTr0j5rbi6gYAGtJDpnoDYzHfWCZyrrNi3NRlaq2XZ5qS9RzSQtSTqOtiPeTHSSJGdSp90+uRgYOrDXDbE3P3C4tbBvdFRg5ev0nsB3XC44ZNm7s2VteBpoeO9110tbb1owqy0FfFDJVyUM3USVppwhZfLIVJI5kICzINaGHOwuJkjb4xPeJ37G910n1wHPJbzttJ0vaRpeJ2vaLhSSu8939nVaNV9r61dJUHUD8wV/M47Z7aofUMWXJw1OnPPpeyjF51iivN8pL3uGuguFbWw0poYIZKOgiIWVkp28klnD4aTuwJV+691RjQrtYc4aZG9j8Y0t3m/e49e/DVH0gGtBbGurjoCZMAdLAaWO4c7c2rxbbLL99Q2uy026b5TQ1Mtc1NFULWzqhJhVcOAIwjr5IOAkS5yyk6ur8Rh5p03GBPx9f1kam0LAG4qoGioORtst7C0GT1tB1kzoVFbeW2th8Ic2cYVFPs28763pSXS4VFVtva/VdrvU0NbbZKVSlKxQ+y0U8cbr55jWNatyhHknq6eCqPfSfTAEG0mzQQQTc2BI2mTHdZ+JYqrUpDEtqFrSAbgCYd/xlzpJAOUFoIE3K1Plbd3iE52tlTPtPifi7jm6/cdTdbVbLzVVVwrqejeRqf2q6PBLTW+keVoJRHTxtXTHy5gMdDHVtPCUKUvdVvYGGiNjALg5z+8MaB/VBE24Oq+lUaxzXGnOpMOzRoGtJLQA4S91RouDE2HKrn4SvHqtDS7ru32gqXHcMlLUywWu1caWgUcLMDGlCtTM0s01LMG6GMillKRN5YA8o5q9Th2bK2m/1NQ+ugbaNYB+JNxdgsbjnEk+GGg6ZCbDckuFwPxQBMxA12jw28K+Ofh+7b62RavGRR7+3ozw3SGy8l7JirnekkjYSVEVXS1VPNT0bVMdQypTtOqdS9f7Qui6HPwXhimKTmNJsQ4H4czbmIm7d4783iNWrUb49Z7XkSNC29rQwkdgXBxgBdqq/ED4huL6uaxeKjwo7i3Xsi4UE8O5tz8NxzbrsVGqGNOq42poYbpCXiaUEQx1OUHfqA6tDD8M8W+EqB8RZ3I7ewk5Xf8Al8lkxWNo02Mc8ZHfhzcw0kw6JidJYBrda9wr4g/C5xulJs7wjb8405e4rWSWah4/sF6obfubbkpyq0Fto6+WmlnphI0rikqDHNEzCOJpExFG3EHPLoxjTSeTq4FrSdzpAMbgZTqSIvVhaOJq0PFBzta2JBzkAQb5cwEgGTIOsgmE98W/FvDX2lvhvu/F62G/764nvdtlunt9utUaXO33dOuKI00kxSFJqaojqFqlZgFkjWFi4eZNJw7EVMNV8VroIiJMAjrOsEeUgGfMNBN5wLHUizFtABka6HYRBOboCQQJDgJEfPHw/wAk8kb85IrvsnvHrY7q/ik21HS0O2N+2OqjFfWWmniSSOpjuFM6VM6tbjMTDExepEahl8wS47GPw+T/AK6iQ7Dul2U3Gb0NvNEEwGkm8Qr+CY6mP+irAsrjyuEtLmySDtl7m/LMCV6Dbq4J8SHOMlLtLws7/t281t1ra01M+/qisnjpZlCJX0hqkjiklhIK08lBcEugD5A8ry2bXNpuw9SXVx4YN5F5N9nGQSd6ZYNzO/puIVX4Sl4oeKgJPKYgDQXaHSAATLhcQJk2+KDxCcPc5eD3kTmXw7bpr4dtXa5WelgulNa6sVNuu9ufyrjSCOYoqzxpIkBEigASQt0nGc+/D6WIy1GmQ0mDcXEtNtRqddrwvh/EsNisDUfRIjONLGWm4i3b1GnUL61vs+rDyluTwV23kzgep4+2Vx3UXWWzbBsu46Casp6GOc2633ieslkdneirLibqxo8BXMKABgwOvM8ZFN2LbTqEte6JywMsF/hxH48t57yYgz9N9mqlMYItpNzsbcl087srS/4AgibQNDpGO8U3gP5S8C20L7fvD/Z9ybi4Spdi3y1b14nudZ/aKLbj11skparcO0pmEXUE8+aaS2FYQU9pkjVCxRcn8WpYouY8inVJEOEgOgghr5mCYgOk7STvMFhn4djcThyalAzLYjLIN2tGw1c2wMiBaUx/8mx3nJ/5tqbQp9p128HhvF5r2kSCGf2WqppKONlhMk0ZZnpbxSn3AzHpz0nB1r9p8LUc/wAUOygDSdZJkCASPL6d9lw/ZLH024EUi0klxaSNAIDgXHpJJ+aid9vRy1eOGORefNq7U25cV4j8S20tpXAmtqEpqqhu21riIPbPZlBkME1MyU3lz+W5kQuVHlgGcDLnsYyqRnouLo1tUaRBOmYG9pgbyUfaGqzBte9vN4zHMkaBwc11juIN43gAxdedn2LmxN02z7VDwn2ba+9n2deq+wVt6hu8tvSRqKKq27UzuY4XLrIwSR1RmKgkBj0DIHpeIOacLXzgwBBA3Ac35TbrA6ryPB6XhYumXDNmExpqDAPabGLnQL6M/wDyhLxVW6zcKcdfZv2a02jfHPvKFysk8NbT1bxR2W2pckjglmiDMySVU6rGkeSnlCof3sL1eK9lsF7xixWLgGMNyY1INvgDJNosLTb3XGeI+BhajmyHVQWNb8sxJ1IHl0MuME8pCgduvwv0O9Nubd+xa+zVls++d+2Gd7r4iecfPNJbaWtcqlVbIp1VmkfzIkQU4aRf9mjiRQwqJF7xxTMY7+JYg5MKz/babl8aOy6E3me8zlDZ5VBtfhOFOBpicZWAzkD/AGmk3JdMgloAjlcGiXcx5fYHh37IHbHh4sXh7tce667bFrirGud4sGzYpJaakvUNM3k1iS1BeSrgIPVUwzoYpW6VSONSVbhY3jTKtUvILzFiQABMaAXEXDbk7k7D1HAajqVGph8O3w2tiTmcS4SfMbAF28QALX1U690WKK/8Y27i/cfOe3LhPS3G32qsFPa46SGulku1IqrDF5rS00qKhhCL1HpqCQv4SOFTxlE4kOgm9gTcwCTMATMfIar0FLC4iizx6VLJIJzDaGn1FyZkmJ7rxZ+2I8Ve+OMtr3TwreH/AHdbJOdN5U94t9dbVhpI6nYeyImcVNbXVclQIKGQAvHG8jRMIpWfqBUZ6HBMAzFVvExDppNgvMiHOJszS5vcCb2i6r4xxOphcG33OnOIqAZPMb5eapFpa0DzGxN/wmI/8N7npbR4TeBuI+MqDw38J+H/AG1uS3XWC3XmePe1w3BcKSpjebcd7p6WamtyU00sUUqtPJLGhhV1jYLD09+rin1cb7w9zjUAMZGkCk0gw0OeCc8EkxTzSdiXTxOGcCp4fhhw4phrHkB7qjodVIcCcradyyRE+KBl1MBe5dTxmd42zam8N0eMXnvcd4q6lblQRW17Ptmpm6jGklTTRU9oaVHkJpu0kq95UUsGwTxqFWi0uNPCzAvmdUdl1gEtLWjQzY6Hur6lPFhgois1rdJFOmWuBvll7nEgSYiTvoVrd43nx/ta47y49snil8fVl5SqKOG7VW1auuorlc6hJFlHtMElwoJaeGn8umUpIsyRL3wA7ENBiG1GBnurS0HUF4A3MkPmTOhBd0EAIUOF4htRuIfWYAM0clPQGLCJNyZLRH9RW+bRs/jUgqYY+N+Vaa/8TS1sFVUz7s2/a7xuOCCWV53loHoTSUglQCePyqlJSh8tgsgVkIpuwJIFSWOb+FrjcjYl4Jv1bbuNUeM0KtJpkhz3SMxDmNAgCAGm8SDMt3m5C3Ta204Nybtss9/5GquVaq4UdVd49i72emouurR1WomqYaKGnJqVilZHhroJ44S0OEVnZ9U0cTTpvc2mzKQBJBL4noXExJ3Bk3AMC44hh8R4MipytcAHNAbIEmLAZhGgbExLtl3298b8WQ0tBvDZNJd+Cr/a6WO1VMNopPu9fIidGWhlhjX2SboYKqKA6sHPlnLKwrrYmq+Q/nkzPXvOqwcO8Rj25oLTpJBAm03Mi2u430Ty47pvlgvFBVy7Z3BuSzNUGVtwxFYaeGnaMMsQDESecrJleseWWkwzZPTrIQQ2LCJEE3n8gNr+saldtlBlVuTMGuI8sTodT6g6C9raBdJsVp3JDtyjiNvtFpv9VJ94PNJIJpYnlPU0bjuCw6ihKkrgAqMjRqSIZNha338evoue+vRdXNRxLmi0aaCPhpp8ytunqYLjSWxKmhWG8sQCEhYuiq5VmRuxKZHx7dxkarc7MANlkbSdTe5wPL69pE94+K2Cliq6WV09jt/k9lEkR6C31ZSPy7Anv37acOKzOIcJkz3usnk/PUzJFWpmUVaGdRCLZ+egSrQ3qkH0ONHMnQix74OiSokaBciAq0A8JwxIZsfPShyshDJ7k5A0cyiGxI9DoZkQELRz9FdCrSl6KQzfD46mZEBBJ74Axog7qxrEIn886maE6TqZ1EksBj00MyYNQ2OT29NQOVoCESAMg51CUUInPc6JenDChsWGc40cyORD0uYqBs3QWJPY/u0cymW6Qcd/y1MxTwgE/PA1M5UAQWOST20cybKUFtTMgBugscDQzpsuyAx+efro50Q1AJPzzouenIQGAz2BxohyaEFgRj0zqZwoAhN6H01M4UhN37D89HPdEBSWMhPpnXGzrwQYrCRhnUzhHIEoSY+Y0M9kCxV5nYjBxo+Jsp4arzO3fOdEPU8NCmMjhRG6IQe/WnUCPljtpsxRDI1/ZaPfaPcdvtk9RapoL0sZVhbmcUwZQynEUvfBADEK3YnADKNVv9VvoVqZfzNid9diL6fE/mtNk31Z6+r29tyOpig3DUubhNRVigVao4OHjCZEhU+6HQsD5Z7nSPqGOy30MC4B73WAEdrbGTbuD1WNv9+tvsf9pjcrxFHTwpFU1NBRMXhj6yredAR+0AJwT8FycD1FbnONwCfzW7D4Ut/lQLkkSdbbHbsOvUKNFbzQu2dxVNnqbxWcj3+jlbcPlW+gRKt7Mzye10sNMxjZ1ijj8/3etlZYi34siyjUJFvKetrjqTb632FlrxnD2hviCGHSJtJgNMiTfQW1nss3zNyFZeMNi1ty5FoLrVWTpN8t16stonNRRTtKqnyBIuG6UnhVGHdghBByoKuL3RTYM06CwJ+u5Wjh9HxK3jUnQW8pBIIjS8T0JM/DdbxvvdwuGwdt1Oz7fdp99Um9doUVXaaima3XG3wPc4cxywShTGWg89j/AIHAfpZguddjAU3EuzDVrzfrlMXFtdF42tXw7qwZWePDvcGRJi9uhPr2ut0uO6Kr2fcctI9C0lTJRw09mlfEsMh6ulc+kUrOjgEsEHT3I7nXEZVLzlba/wAP10Xpm4ANDHOk5Q45hF/3Gndc15Y3su2rDRrPeNpcd1lVVLFVRVLNT+2TSTCBYjNEsy5PXESyOJCyIAR1BtW+KJ5iXR009dR9YHVbuE4Rr6hLml7YESRa07wOoAgjX0Ufa3jeonFdaNy7W3E3JMUtRVJctkVNckCrMA4p6mWmSGczOsskXROH75J7KzHoNqOqNGjmaAuA+IAJiBra30CY4igyr7xRhmaCQSJIbYOMyNvwjt6JqLjZb3X7T8O9PxpyHwBVLbzX2mSvL2x9xT9cSsKFiJXqqsdMvnRysGdAW62Vm1ZXoV35qlbK6DAgyBrBhsNaIAibf8SsGCxOHouD6NbMDdxiSNy0ufc3My0EydWkgqQ/De3LJxTaJKnd9tuddyHdZqKkv1ZfaoVdVcKuCGOlE9PVZxJThjLKkSojLFK5RB3XVOKxbJyMAa0SQBpe/rJgTJ+NlgxTcTXd4lOSB/SALSSAW6CJ66i8mCtR5w8WPBPDm4v+zXmDlTYdgrjLDc4rAlStRfI4vMBjL0FN5lRFASPxtECfdK9Q6iDgeGYrFAuw7HPAP4WuIB7kNIB7TPWFX49PDN94kN5YzOcGtPXKXluY9wSNplcT5N8Z/HG5LPuTdz7e5q3Lse2W6nkX2Xjje0NVHWq7Sq1LVQ2dRDJ0SJ5csbh+rALKGLa61L2b4iBmFOHG0EsuN5BqX/8AGyz4fjPCKZFJ9ZoubyLTa4vIgEm8HYGyd8B/aieC+42y67I3N4hNpcUrbq6OgskO/qefbNfWUjU6uep6+KnjqJ4pBURtJEWV1ETdTOz5biPB8e0eLUoPE6w0uAvsWzaIgGDraAuZTNKu8eE9tRxuSHt16QTN9bSBfQQpScucW+Fjxg7ajqbxx7wZ4j6iMOlur5KK33+Ond0DdDVCiXpiYLH1FWyMKVKuqMOfhvaDEYcmnQqFs6iY+lp9PgkPs9TltTFsygaFwLTr+GYINrER8l5/8beEzmHwyLb5PApzDtzbvHUUklW/DHI1ZPeNpW6oeodKmntN0iU3C19E6TsvV7VB1SFjFnqxufxHD4txq4oZXx52DURbMwnKbaFuUwLHr1H4WpQoZaEvaXGxgHY2cBmudQ6byIEiPKz7YXd0u86bjTxAXzindvgb+0k4opk3Bs+vu11pqvb/ACPZoZXert1lv9MRS18saStUxU0qwVJSSoiMOJca7nDmmmx1Gq4VsLUtmbJgnTM08zAdJuNDNlwajRVIrYaW4inLsrgGkRc6kh1gZAJO+USV7PeADn+0+Lfw+7Y584wtNptFLumuqrt9wwVkUtVa6mFKamqKaRUmXomFRTSTBpGRmjqIg3diR5Li+HNGp7s90lguexJImR0MWkTpovYYLH0q1D31xOV0TOgMXEwZv27mF89P28HC+wOQfCR4avGjtSrpareVvu0m27jK1O0NTU2S4zV0tJBUowDCSjkgjhHUOrE7A4wAPWezOKfTrOwtTcA9eYAZr95O+y4/t9gPEonFU22puidAQTlt2Jvtud5XjN4G/E74ovDFvHY2ydjXCq3Dx7vC77e3vSbHrHiel3m9ru4qkgoJpcihuLS0UyKEAadsQMrNNFn0+OoUXvzuMFs3/plsSRuACPTqACvBcFxuJptFBs5agMCSMwzQ4NM2LoIvYxoSWr9AW/cqcGeKLwq3nmjafIOz+auIN02KartlvukcMNPLV06mRrfVL0AwVCSoYpqdwJUYSLkAZPyvEUquGrCjdtSQNzE7/K4OhHwX1PgWKbXjwqZAaCSQTOUg9yY1E3jcTZfDv9nb4heevAX44OVttW+W+WzgjZF7v1RyXa7bQJcP7N2Oaogts95o6F3LzmlBtkpAMiiCEPIsiodfTcVw5mLw4NTzkAC8SfMBpAkg3I1MCCQvm9PF1cHjq2GpNmiHFxBtygcpnzRzDS+9tR2f/wApdpePm8S3hnvnG9XS7ooLvxLHe23KlaKs7rae41LxVz1PUfN6ovKIICqqMiKAqBV5vsrUztql7Q2HAQBEWuD/AHJMgyrvbkP8HDvqOLpL40gAZBAgAATJtrMyZUdeJfFRt7wPfag8B+I/dtsu3I2zNs8dbWjp6KyUaw1k9DU7Cpaakj8pnVfOXz4etiVzhn6c+4ejiaVarhK9Old7y8X0nPOomwj1HqubTr4ajisM6q6KYp07gEmMtzBiSTPTta6id7XzZ9pt4z9sPaKlrpz5ybuEUxpvfjt+3EErLFFTtkuKOjoofNZhhsRyEAue+3hWDpYamadQ5abBJMSSIlxjubAeg0Wf2h47U4hihiKU53GGtmzQDDAD/wDZxtzEnsvu6+zJ4V448GlJuLwwWriq3wpsJ7rS3XkyKeMjf10neiqfvCqojI1RSO1JPb4w0mY1dJIof2ah38Rx3i7sZS95YRksGtjmaBmBvYczpJiSbEgWC9pwzgNbCgUiXeJVOZxMQ6QIAMkvcOhAygnmJJiaHiG8TnEnh62DYOWec920XGlhcw1dpWvqnFxv1eqHyqC30IHn1r9Mr/s4VLM3rgAHXmqFDEVangYdhfU/paJPQk9AOpgDWV7GhQoDOH1A2m0kOcbNaCbydA50WFydACV86X2m3jO5+qPCBvPnXfVlo/CRNubcFtfYW1rhQwHke7mSoFZBO8nV5dgpI4qV53kCzV7yLErimiaNT6vh/B6bKowNWoKlW+YNP8to/FmcLvPNAa3K0SS5zjIHExHHW08H7/g2Obh2thr3WLnWADGGfMROapYAOysBGY8C8DGzvDdsnj63w8Ibd319on40a27Uu4+QL3Y6TqsdFU08kcxS6bruNO8cFFA8f7OCITS1TEzyBuunjg7nGsTW8ICgPd8MzR75YCbiWsEPe69gIDBacxcTxuBUsOHk44txOMrNjK0iq9swQwEnw2Njzue4FxGVrSxonr/F/KPiV4F5d33vG7+GPiax7On27NuLc1tkutcu3937cjrEp6GSiucVniVPYPvOdBLOZDVx1MS9DLCpHDr0RVw3PVc8MIaHFtw5w3BqGMwaIG1yYleywrXtxeSjTZSfUkkB7ZIGoBbTgkHzHSBAduvSHjfiPxubc8N++6fanI+0fDTso2Gd6GwRGfddxnhkQziRNxzywyB3Lx0sNNHDHFSqVCA4j6eZxKtgjaq4vJIFsrGW5YygPJJPM5xdJ0AF1roU3txLG02AkExOZ7wSSbgljWhoMNEG4u6Nc9wf4gr9tranEHG3Ifhq3fYtzNdn2vWTcZWoJQ7ungpJJJpqh6mWG50xbyIizSq2EZmErxkNrTXD69Vz2PD2gEgPIAaARsAWESdAY2InlVTKRwrDzZXOIBdd9zMBsg9DJcJzDlJBLl6QXrdfhyk3PZtqXLa1puG/L7OJqeils1UldPUwpI6R9Tqkrt0RyBCzdDBJDkDOuWcXiAA0TGo0jYHt0+ELFSwFR7nVc8eHDScwsNdLgDUkASCd1qVm2tQ0E9s5N2xZLrs7ccG7aozvcIvPqKOkcGGoo6moqOqSRJRAMRwO6RyGPyzhez0sa8U20qp5MugsNZGWNeuYgTe91uxWGa95aYccoi+pgXgeUNmwMWFwZhTxtlyo6ih/ZeYlB1NBEZuxnUZGTn1B7/x1jZVBEryWIwzg+Dd2pjZalvBbfbKegvNVeo7LZ3rKSOtMvTidPMBSMs3c9TdKdIyz9QUdyAS2pDgQJ/eDB+Go26rThy580gOa8frbS4m+2q1bbO5Lrua9y2VqKeiMUU80lXUNGzeV57JHIkcfUqyOFVgshUoAfdOcF2UgLza3z1ifqYn4LfjaTaTA7c6DTQX1uQJi2s6rr9LRUlEZXp0cSSEtK5YlpW/4mPxP/QwNLntC4r6jnAB2ydlxoByRW8z6aMpwxJLn541JTBiQZM/HtqTsmgIZc/pqByYBDLfMnUL4UDSklxjtnSeIrGsVi/yGNTOnASC5GMnGjnRAQy4+HfQzJgwpDP279hqZ4KcMhC8wfI6hqJknzPpoZ0waUgydj72iXI5Cklx8ydLnVsIbPjPfGj4myICCZPpoConDEksTnRD04aEgtj11C/dFIZsduxGiH9UwYUIsO/fJ0M5VgaEMv2x6HUzdUwEpGc6BqJwxCLk9uw1A7qmDOqGz49Tk6mdMKaAzg9+2NQv6KZAhM/y9NDOmy7oLPj66meyhYhFvXJ/fo59wiGIDMT66mdEM6oDOfqdTOiGIDuTnJyNMHJsiCznPz1PECPhoLP3750c6YMlBd89zoh10AwoDP6+mNDPe6bIVI0y5+OdcUuJXgsgVeZ8zoB5ULArmU/8AENTMUMiV5hPoRqZ1Mirze3qNMH9FPDVmnWMdTsqr8z2Gm8SynhnZa/dLwqwSLCldH7vciHvg5GVJ9SPX49vzGs760iy2UMJBl0fP8wFDrlnd227mlXZ7bZrVuffNtiivFvpXvFDE9G4Vo1qnWR1NGwL4EvVE7dR6WIzqUHgtLs8NNiYMDseW/pfqvUUsFUY3xCwmDpF3bw0zffqNlHLi7xX7p42sG0U5G2/VQbOvFVDPaN13uokgW+gxRmsmqXhgkhhfraWUNI6h0RmzHh0Gt2AqhuamZibCTl6Tfp211TY2lh6tZ1JxgtECMsaS0Dy3GmkEQRJTrl3ePEl9qeRqvkXbPG1Hte42yeAvernVGmvdHHEZRdqKejgmURRLOiM8bBkMZ6gAU1VhW1czcglx2Dc28XEAz0mR0XWZRc7DNptqEBu8tblJHlhzxrB6Eg67nR+HrbZNwbv2hwf4peE9uXfcrU9Va9v7nrL1PfLTe6ekpoJp4RO/QaS5TQ/t3pmWJngilfDh3VejTrPoZ6+EcMk3tBBJMAg6gWvcTA1uuBiMc52HZQeXMdAIaIvbKHSNhJAJueoDSut8ycQjjTjiv5Z4Ktkth5H2y8e6rVQUVTNDZ92PaWneO1VkZkdJYzC9akeQrxyy+aj+6YzVgeLHMG1YyvtMC2aASIA7azIt3WTiuA98cQ9xJaIMmXRqBeSJdEkdgQVm6Hnbijclp2/4jtpSX6u2tcrIldS0EUsgmpoqtIKoTS0wIjQDpXzADIGQlk/EQ2GpRqAuZk5pg26SLHf4fFd/BYJ9Skym90SAc23pOswbTBGmmnWaP+zHKVtmul7v/Hv9hJld6q2WuCmqvvcBQvTcnqF6Io+ojChI2Zo0LPhektSxrWwCSXxG4j4am3wAJsseJwVSk4sbTJEgy6Ykf0xqRFzLiNo1XH9oXy2+Ha67IsVXdb3a+BamhqbNaGqKSH2K2VWBNGaOkhiFVSUMywTxtPN1Dzhg+WHiZ+i+lUrSRzVAJIEkxO+1pFmxAiRrGbEuFRxLWbgkzodIJJ5nCc1yQQYBJBCVyFy5SeIRN58FeGio2nc9xU5pEreR6yN57Zx9XyeXNTNNCGSatvChIpUpU8tYwYHqJoRJGstmBolh8TFyxkkARD3RqGg6N2LzaZADiDGHF0alJgd53EE5JBbaYJIMBs3DRLyAYDWnMmM3hz5e5wtG/bT4u/EjfN3WK3tWwLtHjajqdpbeqYsyCM3KohmludW5Ur1xLVxQofMTocKGNrMXg6LQ6jS8R39VSHQezBDIHVwcd7aLPlxU0zTijniS0nORpZ7pLJF+QNMEAkm67ZwF4fNoeGOx3TYHFe1dq7IsVTWyXSporFQpb56kSxsIoZalG824So0ZzUVT9cinv3AUUY/ilfFECs8uyjQmwveAIDR2A/dMcJgyfeGMGZxALjcnLHM4ukzfbSbd5eVNwo6qjp2FdOaWbpgjAmIV+rHbIPyJHY/Md9YTUEjqubSwrmvNriSetputW5ApLVdqF6XcNPar7YnjZqmnucUdVT9LkAu8cwZSnpnA7Zz6ZGrKWMqUnipReWkbgkH6XVdLhWGxNJ1CvSD2mLEWMbftPooYckfZ/wDg35Fevv1T4cOCts31QTFdbHtiOzV8c7sMYq7e1PMHJ8spKj9SsfU9111G+02OIyvqucDs6HCOkODrLVw3hlDClootymb5XFp9ZG+szqOmq4DYfs59x8J2i3WnwleOzxa8A26lq5XoLRuprfvWwWyMVDytHBT19OJzEJKmdw3tSsS2SWx20v4rg6z/ABMRhgD/AFU3OYTaBYEtFhpkAjQBVChjWU3U21BUzXh7Q6S65zGW1Mx65ifhYxf8WE3IFk2HuzhX7STiTjfxb+F27NSVFw35xdDUpX7VKKyx1tdtjqasp2WTLJW0U9StMz94egdJbAilTqCtwusfEEjLUgEz+EP8jraghpjS62VqjsVSNLHYcsZFy2XDUcxF3NAI1uCdSIJXjB4O+e9n/ZX+MXeXhbs/M/H24fCXykKPcGwuV3uUdbabNBURFBU1U8aAVESNAtLMqrF1z0sDOYoy/R2OI0RxOgKxkFkh7ACDI2DTJBM8s6AzeIPK4Vi2cJxJw4YXMqQ6mXQL9zIF4EkEkWi5Xsp9qlatqVX2THPXh/2zYJbvDszaFvu61vtEDNJJba+kaSvlkXtLJLI1QSV96R5ZG7AONcHg3EXV+K06jPITA7AgtAgTsB2A+E+k4l7ONpcNrVKji5z2v6kyZqamOxJjaAJNvIrwVfZ38c/aEfY7WQWmeybI8UGx9/7rGx93JX+yvSyF6arWhuDBS/sksj5Rky8UoilT0ZW9rxjj/uuPaypem9okRJ3FhuY166GNV894LwB2OwcUpzMJykaTMzO0W6AASLrgfEniw8RG27ly/ads2C98b+POw+0JzNxpXBae2c126ji6JL7RUUhCQbvgj95mgUiujY1CpJ1SJrJxDhtNzKbHn+URyPky2dGHcsdpe7dJEX7PBOKV2Yh9TLNdtnssc4/EWkCAQACbw7eREOtseMDhzjj7bXg3xsUe8diWjw8cqW2CHfArKrzYrTS1lta13akvsUkS+RLFVUsck0ZQr0p1L1BgNNwzD1Rw6pg6s+LTkaHWczS3UukG0dYXP9qRRq8Qo4nDEeFWa2Lt1FoIkBpaYFyIIkkBQt+2k4Jt/AHN2xdq7J3Pdo+Grptq47g2BsetqGll45slXXzypRIT/c008jSVkNLktTxTrGxLAk9P2bxQrVHmo0eKHNFQjQuA01N2izjYE6dVyfbLBGhSoupuJpEOygxNozEEDyk2bf8ACYAFlH3xVX3au7/tE+YpdlS0HEOz6rdy2emnpKpKVbDTpSw0lRPBIHCK6rHVOoVgjMwUdmA1fw8tfhRUqTUBlxAvmGZzo63ED8+qxcQYaXEWUaJ8NzRTbJMBjsjROoAykmPSy93v/J7/AA+WDmPxk+Ifxy2zjg7f4l2eG21x/SyyrBFQ1FTEIgoPq9TBa4Yg7AdpK5nPc5HK9pMc7C8NDarhnqk5tdBzOjtmIaNLAjquvwPh9DE8Sc6gT4VIANt5jAa0kWEmC4jqR6H1IvfiT5T5p8WfiM4T8EV349rdj1cSvvnlK90puG39kVVTDRWuS1UFGgSK91kTWv3IjJ7LE89QJZCIsHyuD4bSfhWY3HFzGaNy2fUGYvls2aDJ5yNAMrZIX0bEcRr0sSMHhmirVaJOY8rCAY8Qg5s0GTTaQ8zDi3yiYW2eF/D/AOBmPkjxIb+ve/vEFzbQ2Ses3Pyzvmpp7hcqKnijXroxO6ilslIArstLSiJgo6GWVgoZMbx6s6j4GFZ4OHcYhsnMSdXOu6oZ9ROwWbBezIxlSnUxbw+q2S2eRrYBJNNghrR1MXmS83K8I/D14Tt2/bYeJu6+MHmTc3I1J4BNvbzvFm2hYRdJkvd5qH6JZpIJET/ZaZ5RCskikS9MENLGFaMuPSYZ9HguCaarA/EVGzB8oEmM17/isLOdmcTET5rj+MPH8TlwrhTw9CADaXENuQdDFoJ0ZeMxK989m8I8K8Y7IsvC3Dmz7zxl4YrBbKivgoKYPdqHcqLO7SGOqkdy1KsxYyIX86qaCNVXyghfy/EuI1a1Y16wBqnLlAgZehy//wBQBDZDjzQB7r2ZwLcFhm4fDuEgwZkOuNCYu50gEmS0Ejqtf2/Zrly7W8wrVw7blgr6kWLfdJWxSX7asFTF7PU0oq7VMzeZXUsDxKY4hHGnURO+QvVQ2qKcPa4iDZzRDnRIeWmLyZGY9OUHRdTitLDFtNop5xlgNcQCAYgGIhrtS27iDcAQRpUvG/FF1s1j4p3PWch8kcR01miuMVg3DKbHarHT0MwKmKy0iwEGZYXlhjkWoDrD1ZCyK2qa2PLaj64aA8df5jiSNJMtDr3jLEjoY24fAPcyGnLJykMGUQDoXQHFs2MmD6RPX+A4L9aOPOLt20OwFpL9bIhFBTUFNSW970zq6zSsDGhjjjWsOeoonTCesBlRRdjMVWdULHOkC13WEWJsSLkE7mTa6wV8Dgxn0h0SYJIGrGjfQNAi42sTPbd+W+yb+25Ytw2rz7zeYKqKo29XzuAJa1ZeiGojZSAj+8yLJGAWUOTkSrnnGm5ri13KXWPodZte14Olt5V1AhvmgsAkjpaTE/WbXjYrdto7FksewRsLc12XdD2q3xtQ13nMI5qcSEOIWLOQwjY9XUuWwGKn3jpnFlQmbAx922+wsGJxxFUYik3KXOMiJg6jNMTewv8AGLLctsXK27K4stuyK67x1tfQ0UdBH5XvtUxtIYUlAOetyBg49W9/sHyBWxHibXOwt3Pp+gWOpgn1MYawFjeTOwm++sX+HZK2fZYOQb/953inq02xtur8ihts1X7VTyXQAsZmOWV3pllRUZDhZmlYEmONhrwxFKmXjV0gG9m6GJ/qMjTyg7OK53GXZSKQ8xhxMAE6ZRESLjMQdRlncLtckNbRVNRLS1hrVCKRDM4VYckjqAUAO2BgFiDgYzqnxbarnsaxwEiNdN/2+HyWQjuKB/KkDRyAIArsvWxb5gE49NAVRMbpThz5hpf0sm8V3VoKgzRyRPG7oQ646gvYN+R+fpoPqQ2VZ7tzANvp9/BHtVRPNbaCWpjEFQ0KmROrPQxHpn6aszdElemA8hukp55gI9ToGok8MpBc4GPXUNRMGJBk9fe/dpS8pw1IMn6/nqAlMKaQZCPU6IdCfIEkyfXQDwiGBIMvz0fETQhmT66BqIhpSDLn56GdNkKR1n6aGcpw2EkufnjQzp8qQXGiaibIUkvj8tLnRDEIuPnnUL1YAkGQD8tEuTZCkM/rkgaOYp8iEZPU/wA9QP6JwENpO5741BUnRMGlIL47fHUzJwwJBc9u+NTOE8IbSAn10DUTBhQ2f5HGlNROGdUJnA9PXUD5ThvRCZ+/c/8AhoF9kwYhM+fTtqeIiGFBZ/kc6IqI5EIuCe/y0M6YsQGcH6aJqAlTL1QWk+GcDU8RNk2QGfGR3B1M+yIpoDMO4GiX9U2RBZxnTZ0MpQWbt30c6PhoDyfu1A+6ORSGM3yOuP4q8GKSrztAVFDRV/OGiagAQ8JX80euRjUFRDwlQmHc6gqXU8JNqp53iIpmpQ/xEykqw+XbQdUkcqenTbPNPw1UfuQJWlr7bYbaXp7vK5WI2+GXy6TAAPnuT0lCScAKCvckjBzjqjxLD5r2PCA5rHVnXbGjiL+lp+N+wWHoePto7StF5t19o9qxbeuUr1t7tVLH5zXqsZ8u1bIoZ5l90ghlY490MqL0HY7GloHNOXTYDuBoOuwm5krOHOxNbxcO0ioYGc6gaCJiIGl7a63UALzzVtzcfHNfwXwzS7evd3iMNFbrmJJKKWnqYYZDFLTrIqx0opYklDTVBipSsXQi1Rn8g9PC0nNeatc5Wm8HeTqTJmTERmcTEBvmGzG4EgtquBsSBEW3sA2TmvYCwnM5sKJvJ3hn2Dx1VUd5rOWfFlUc71sEpuF0485OktQo7a0kRraK2baoIZaGho6nyV6Y4I5gkiJJO6gFj06fFqeJ5BQY4DUuaS5xvlLqktzG97tAGgcYWCr7NYg0/EbVLGAQ1gbyCwAIa4uJiASS0k7RMrlm09k/bYXOg2LRcLzcV3qHbm4nvcR5bjttBe6I08MlIi3entkk3TUz09QyOw6nlDF/MwwIuPD+FsqPFSsWS24YS8Cb8pLBIBuIJHquBiOKV3YZvhUxVbIALmuplwEGDzm400EHUNK3/eA+202xR7Ysr7I8Nl3sl1VVr/8As+sFvu1NHNIHklf2O53Ckj6WwqZdUJVnOTJ05ys4bwhxzNxDjHUhh6ASKTr+k9NLrq0OL41x/m0MrgYJ53RfYio0kCNSR10Wh8R+KDmXwhwbJ4T8UfBW6N0bH2Vt5Ns0d2jtFTtO/VFPFEiiL7prZ5rTe0MUiqUt1f5k5EixwuVXq6PFeEioH16D8uYl1y1zZO+dk5b/AP7Gt7kLDw7ixcwNbDxIEgEGN4pua10gjVhqRHeF6teFbefDvOtNs7lPjuz8Scs2ESy1kO47EiIKQw08cKI9FUKslNXRgxeYr9MiN1kDIJPlq2KxVF5ZUeQRMg2MHadI9DBHZejxj6FbCk0y7I+AASTJzEkntawix80Lslx5etGxN1XLacFp3LW8h3u6TixTyUFTLHNK6RtmtmVXSKihEjeaD+zC9KjEjKNZMHNSwIyDUgiRfWJknp1PaYHEsJ4lJhJs0DlggGJs0wBmMSDII8xtqFKbam2FnltNTbNx0Rijpdx1YRZKy7VcwMr3YTg+Y83WApkBzGjqhwIQAcXxDxCYEAWA2AG1x13tJnqtHDeGPYwNeC1xJdYEAGzcsaRA0vMAhdN2Lv6jTbu0dmXCit+3Llc6cPR25KsPijRwaly7Ae0GNCXklXqD+bCwZjJk2ueXGXm3WCNrAD6D9IXNxfDXNqurNlxaTJ3J235bxY6Q6dF1qG41EiNfxA1wgpw8EaAHokjGRKQvchgwxg/8LYxkjVLK0c33CwPwrZ8CcpMHvO3rb8wuT7s38dqX24VNHcbNNBBc6OWqp7rV+yJRmWFoozGhXCCXocfIv0tgkkGt2INyDBHbWf7LtYThAq0mBzTzAiRewM/GDFrWm61l+TZ54bpueSmrtp7XNM9HDV3KAxU5SNmJkyiyFjKskZSHCt7p9CcEjMBmNidhc+lj8zp8luPCWtcMMYe9tyB3gbwIBFySddFy6r5b5LpNw12xtw3ri7ate1JHeLBLtygq7lWC1pUrHHFVwzuoSYmUKiIJgJCgOCQTrb4TgAC4nQ+VoDjtJJmPhaToFmPDGBprFhLASOYzmhsuIa1oOo66ddF1vZu+N7y8XVW8rHvHcW971bqycSUt7oYYXuUdNUBZonWOngaknkQMI1YdpHQnqQ6DatNpBqjKOxmJ0uSZBtptcLm8R4ex9bwaTG8wGkiCRMAEmY36QRqFy7nDmHg29WKXc9ZerFvex09It0lSx22S73GECISoYhBFMYZlBVzEelusIcqcMLMmIILWAkGw2aSbb2M6arocE4S5pFR7cjhaXWgAztDiJ0MG0+h+OjxK/ZE2Kr+z/wBkeLvw87Xv9FyC1srd+7gts9VLJ95bdqqiWeKNaZx0pXUVPJE7ohzPGJB0hox1fTcJ7UNbjPccTAiGz/zAEydIJsDFl84477H06uDdxDBg3JOXq0ucZ+UbCIINyuxeCLxHWK4+A7xKeGvdT3e5bA5F4j3hHxzf6yeasqbbuW32hZ7hs2pqsAMUSmiuNH2zLSz9J95TrFxPA+Fi24sQ003tzDQEF9n69y1w0Dhay3cB4r4uGpYQk1A8GJM5YY4OafTVpuS0ncKeH/kwW9aG+eDjxM7HlEEl3tvI1Nc6GRKcNJTtVWmF0YSKpYAvROPoM49dL7ftLDReNw4fI7/PquD/AKfYh7iWXytgnpDrdYMR8LLuH2wf2cd/8c1o27z94Yds3C3eOPaLF4rrZ7qaMV1PSmST7sat6wDcYGUimkQh0cGJjGrjp43sxxp1N3u+JjwHTqN7XA1LT+K0bySF6r2n9n6LcN7zRdlrMjLEAmSJJgW1JBPfUElfHp4kN27Q584uu/N+8pqHZHjTt+7TYuRLNJTCgl3VFLTPGl1ioQix089PNSGnqkwHMs3mOGLEj3+CovwtVuGu6nBLTcxBBgu7zybQIC+e8XrUMbhjigAyuyBUFgDsC1syTu87GdBCkh9qNu/afMW3fs4OUdr23bdvq79xQlHcUguHtVVV1dPdpaZprhVN+0edyCGMxaROhgztgdOH2ba5lbEUHnyubtDRIJgAWje3buT1fbqoytg8HiQScwIuZJyhgvc/DYGRAhefB37fuBOQ/EDZNi/2NWS5UF/2BNWUTfeMNHbqiqWKdrbVSDqJeGBoFqvxmGaQggyZ12qf83DskmDkdplJi4BGwJglvaNF5DHP90x1UhgzNzAAnNlJGWc34i0EgO632X1FfZOcP+JTxF+Brjng+O6bi8MHgdS71tdvi7W6oEG4eZbhV3ICeioZY+ma32qOD2aCSpJEkxQRRHpLMvmPaR+FpYsYjGHxKjQPDpGS1sAuz1BoSTOVl9czrL6H7DeOcK2jg6ZYSXF9aYOkNbSmYMWfUAkXDYN1662fZG0uNecL3wZwRf7dw7sX7lrNs3K1WGhdLXs2ww01LWJO0XtHlRGedLvTxxExFZJKicNJJGQPFHiTcVRficZzGQ4k5RmgkBg5b2gnUZRlGWZXv6fBhgmYanhqYgA5AQ4mXHmcfhBDjd7iM2YC/mp4hud+bvtWuU7j9m34Wqqh2d4Kdo1EU/M3IO04ZZqWeJJ3f2KnnmKo6eagjVCze0TxtNI0kVO7P6DgOCbQp/xniflEeGyzZMW9J2AAyNuG5i0DyvtXiaZxh4Rw1wOIeIqVHGS0WDgIF3R5zqZNNpaM5XsDeL9sXi/g7gzwmeDzYUm5NkLX0e0LlZ9t09XUNbdsOZI6+c18aAmriMhqJJoy9Q5lMgTJ615OevxDGuxOJMDXmAAMDlaGuI5dGgWBFidl2cFwejwTDRzACIMiQ4nzkyQJ/wCQIkERuui84bz2tw1ypt5d4cp8SbYt1ptCU1n++rrR217fUzsqU1JLJO3mikWSGCpmBPSQsLBSyHPBp4plRz2eITUedhMakut0BIA6k6L0XDMOypgjkw8URr0cGxYAak6Bw0gi8rz/APs77tNxDfOX+D9vc07E5q5zvW6pN1Xi8Hf1FdaLdNfPIDW3qiSnkLW6jYPSwLSy9U7zBjkxwNI3b4yaVanTdQAp0aYyiWuBAAsHF0BziZMNkNAzG5AOXAUTTL6mPDs1TmgRE6ZWtFw1oi7gBowEm655zh4iNh7L5W8RfCldV74pueRYaS3Q2pLZ98oxZ3Mt1pa2NfMr54mqKiFKVEgRZZIoWjcTOYq+HYCrUoMdSZNMv1BgW/Dc2c7L5nE2kiA2/oMRj2OxAbVqAEszAEZbGRmiILWy0mJNiJktmd/hZ5N2RNtK77X5Bt+1ePhYKC2Q3e0CpS5Ku4HkllqTU1sbolbPn2JPLCqPPldT1lT058bVbTfna7M7MQ0gQIAiWA31mHHRom2qy1MJXqUmmk13ML5jDg0iwIvkkcxHQgDopabtqK3kCmue37dPLLYkplepKTwIkdb1RACJZCfLnQPO+SEJwvc9gcPvByGo10XEdTe+2lo1udd4oZg6eHLWvbzmwEHywdY/+MAyI23XIORfFlw7xxx/uravL/LXHXGW8JaOms9ZS1letFUW6vq5WgSaQzENBDGqzTRYXqEUQYBUKkjD1KdWqGGS2QDABsLnQmTFjGhIBMwFXiOH1GPbiKDcwBJ80AgbAmLk6zEmYkgpvdfFJxhurb+4t38UU/HXK1o2tNSWna9WL7FUfeE1Q1PQR0qCEEo9SagK8g6jEOjzEUDA2kVqpMENNQmZEAfi1MCGxmN9vll/hzcKxlTE1C1xBLrTBBJ2nu1trk21ujw4+ImgqtjUkD72J3A1yraqpsrUcldXNcJH/wBpqmWlULJQCpkqZBLCZovLMb9QGcHGMqMYHvBiOUmQA3YkuiSW7GDJsE9Xh2HfVIawSYmCNZjKBcggw0yAYmSFLCk39fEt833hcIN3XnzRVS0dHbJIA3XjyVYPMfLQdSBRJ0s5BYDPujEHEjk9LxE/ewmBvuqG8LZnEjKNJm4AmdtYmSLbLeNt2FrA0N73BuO8723e0TSskqJGsLE9TrFEoATGeletmOP8TZJNzqtNtqY+Jufn8du1lz8RWfWHhNaGU5i2nb17/ojwXVK65V1NUzma0irE3m1LLD1xdCyABiBkBSFx3PvnJ0oc2QSdPz+4UqYc06QdEOiLSY2/OTPYQtw2vdXuVH51PF/6POZIpulVWbrJYdIBycBlBJ+OR30zZAg7WWDH4cMdBMn8tv8AELaDJ6+8Bo5gsQYEkuM9znUzoin2SDJ9NQVOicMKGZfUZ0A9N4aGZO5x66BedEwYkGTBPfGoDNinFNJMn1J1AU3hpBf1wNAPRDEkykE+g0A9OKaCZs57jOpKcU1bzR9O+hmTZEMy+vc99HMERTQzJgdwBoZxMhOKaSZMDGQNHP0TCmUNpB886AqFMGJBlAJyc6AeUwpoZl/PRzpxTSDIAD21C9MGJBl+udTPsmDAkGYehOpmThiEZvroFyfIUMyZ7476mYJgwJBf5kDU8TorA3ohNJ39fz0uadU2RDaX9RoByYMCC0nbvjGjmujlQGkHzwNHMmyWQWlz37Y0Q68KBqC0v10ZRyoLSD0ONRrk2VAMvc4IOjmKYsQmkAz37aIcgGJu0g7nvnRzFOGbBBaTP+mhmKgZZSAabA9dcV1ReFFO6T54+BONIaiPhJXnd/XUzhDw1fzvrj9NHxEPDV/M/wCYaYVFPDQaiRzE3lAPIMFRnGe/z0xfIsmpsAN1od1u9iskVYbneX23C2HlDwrDGwyF63+DDJAJDY9M/DWc4lrCDU0XVp4HEV48FuY7GZI7CdO1vRef/NF1uPJG7Ytm2DfNPtbiLbsdLe+RaxnWKkrKCSdvIt6U8BDs05Tz2j93zo1CHzBOqyb8M5sjFZdbMHmJd1giLSLXgkWtb0+Fo1aDfBfzVnTGzmiN3TI3AcPLBuIJGI2DwZFFvyPc+9jyBNva82efb+36/wBggi/s/YGqvagtRb5+ukSSV+gyRGLppxFSRiNelm1pxHEC0eC0SGmXHMZJ0gPEG0m8nMS4iQAsVdrXg12ZWgQA0TBMXMC5AIABsSBc3hSd2nxTZNoWawbgs01528plFT7PUTC8Xi8MqOsRWsqlaRZiGRxDEEiXGAigltZqmIe85AA3sOUfH0GrnEnqVkqVAXvp1D4rhPMZDWzBMNFgyREfLYLnvJln5UsMcvK9um48p6O32iahv9gqtx3O3SX2CN0NPI/sUEgirEUywrBiaL/aQiv0hRq+k2g4BheZm3IHAEyCLuEg25iBpMLmYWviRW8KnQDw4iHyBAiSbtIF5OocQLkOuOY76qPFVc+OKmjs/CmwOIN03mrprLaquTlBrrUWP2qaNWrEpIaBKeompF86UQRVKySPTKOtuonWinw/AB7c9fNFzlYbxchrnH8UQCWwJlbcNxerUeS1pcA0+ZoaZi2YZiQ2SJ80iRAla/vn7Pzj7f8Ax1Hxhy5unxP7s20zQztua58t7hlW51SMHjkuNBNM8UTNJHTkZhkhMgGVXAQ2U+NGnVFZtCkInSmARPQjm32cCsL8M1zXNbVcS4AZARBjoQA2xkxFhoCvMZ/BlyL9nDyFu7lfwheNam4Vp913arudTsHmi2W6TZ27axHCSRwR21Y6hagRyEJJR0paMFY2CD3ddapxzC8RLKGJw7g9os6mXPcB1LXAyOpc4CZg7rDhfZDF4cVK2ErteCRLSMjZdcQ4EBkxa/NEkELvvh38bFl4+Xa+xvGB4Q+VPDX4p973KuFBf5ngs2296VHUzRzWe+XJ41ik8tkjioplEpVB0R9JC6y8S4HVp0szXNfQZEmbt/72MDi0k6nTq5b6PtKcTinUc/hvkgNIL22As10gOEX1aSdGnVdL5n8Te8Np7vsWzuNuLqbcHiBuNYae0x7d3Xt+43PcVOZ4vb4LjRPUxKZRT9U71KMqgRdB8rsBiw/Dn4h13gMN5PiNaAAY5iyCJsNSSR5rruOrMo0i6oHPDNW5ROaw5Wh8i1yIsJcbQuhbh8etr2Jtq8UXOPDHN/h2G3Zo2sNVujZFRPRUUUUMYqbSbtb5aqlE/kPKI5/OjWVOhiUKd4eCYyqSKMVQ43yOa6T1y2dHq2y5WExWCLxWc7JIJcXywf8AcS5uWCRoCbyACpM/9pkdl4+2Vdtvb2oN/wBBfBItllooKSrprxHEGkV5a1Gy0EscaqXUNh5cEs2WPIqYmmWua2nzDzXNtiCI19YXcp8IrYqvnD8rQZ+DtABpIO8yQJjQLmF43w3KfhVt+9OHdmXvkeTcFLPQW377eS3w0lC9XLTGqrnh6qtI6WP3swRvU/sh0oXA0vu5Fbw3PDIuT5tpgNBvm0AsL3MLcKgpuf4kGIs0kEutbMQA0EiXE6C4Gy4NY/EpcqDaWwNv3G+1lH58NNZRFuKknqfui400Mq+2090kaliejnngqIY5pmRz0I/qpiW3FYdxe/LMC+05ToIuQYgkCdxvK7mHwVIDxKpGczmLTIJJBcDHmyi8wATrElRfqfFdyPuTlyLbG0Wh8T+8LJVTbju1faLRUfc20vLR2o7VWyB1ovNqaeRFNa9SAHSmPSr9PV0eH8KPuxxTSWUiIDqhAk6Ogz5QZsAXXIk3A4nFOI0aFT3MiKpjlpy52V1xygZszosOVtiSMsE9V422Hybzxtix8w7l5L4y8O20dxVNrqKDaO3qiq3VBC6TvD0XCaqq4Kaohk64USDyp4UdXETK5zq5uIwNBxbeu+4JaGsAO2XledBqQ0kaxdZTX4nVLhTZ4eWSHPJLjqXTlDAO7Wut/wAhZRG8TPiZ5Z+yp5e4+s/M/iN2t4i+PLjcqu/0eytu2WKxX631kj+b7dBaqZ1hqKOJ4j0UlQ/QPPaRZpGHlptwvD6XFnOGAY/xWtjM45xvq4jlcZ1AMARlb5jxanExw+gMRxEMbQqHLDeR0WByXJc0Xz+Vxdq4iGr0E8C+9LHv7wq8BWGkNZ4k9yNx9aq+Gu23K9JaqVpqZVqKNXUinYpNCsMnmF5FYt1iJSFODj7HHE1mUKQDA6JdqYvOlhvaARFyV0+BycNRxtWuKQdzZRcQZibyTBMA6GY6r5SftEfBtvn7OrmXe2yd1UO8KDwY8ryzXC3yfdHW237tDG00S04SQQCtopqh40lhlImoJpkIILxj6dwvGjGUG1Gia1MQbjmBMQdbOi8gQ8A2sV8W4o1mExL3sMYeqTpmlh2dFiCLkf1NkGbqev8A5LByjbrfyl4u+GLtcqS3zX/aVn3FSwyzkK8tDVSwTrHGSFZui4Re8e4ABGsP+oFEHCseb5XEfMW/K6r9gcS5tc02AkmDpsJ31ESPVfZFTXmTam6jbKa3W1LbcIWlpRFTsFopkUSVSPL/AMMgMc2Rks6zMfidfKRiHEFwv92gdB8gvq38PZVZcmRP/wApJg+uwmLQF8i32+/2fG1uU73vvxx+FraFbLdbNSdXK9PbaENb7qY5PJa508kWUarjGPaVGA8aiXJkjkDfQ/Y/2me5owmIFtGE/OOsf0nQG2hC8Z7X+wD2UBjGEeIZJbfMW9YIkEdNSNrSvkgvW5L1dbVt7btxulXV2q1w1EduhkbqSijmmM0ojHwDOxcgfEk/HX0JtBjXl7RDnRPeBA+QXyXE46o6k3DvMtbMW0zRP5BY++C2Rmaos3mtRm3U8kisrDy6j2dfOQdXdgJBJg+h7Y7Y0aRe6zheT8pt9PuSq69NgcDT0yidbGBIv3Hp0X6cPgu3BtnYnhF4P2dyekWzqu27W2ek8bQSxSQSLZqZTG0TBXBcUo7dIU5OMjqbXw/2lqzjapcJl7/z+O5vfppZfpfgWCq1MLh/dCDFJpibX0M+s95B3svm88YvI27eUd82fwReFmolu3iV5Ov0+891SUlzcW3jy1vJUyU6S1XWZImioKyaoqA3u0sdZNgNLLH0+k9neEU6g8XFWw1AQSRq6wdDRaAQ1gOr3NDRbNI9tvairQd7rggXYysYZBJIZNnE7ZiCQIgAl5EBk+0PhS8Nvgu+zH4b3bwzvzcPHzXOOxf2o3TuS9UiGDcVOlM+LuzTF/JpgjLTJCoCwydSg9UuRzPaD2pq4t4fSloFmgay46WElziBN77CAs/sZ7KOwlA+DMkgVCSWyRMyJyhrAXGby0S4nc1Bt7xE/arX+3c47U5c5G8EvgWs1oltu2Ku2UslFuvlOjeSnqKivlzJHJa7O60kSxNG6VVQisx6EcY0nAYfh9N44m3xcQ4z4ciKYAMB5vmfecl2ttNwuHX41Vc9tDg3+1MmpA5zMAUgW2aLgVNTJygNgnitV9kpb9lWjh/cFkt/F2/bzer99811ku/Ey3Suq3NE4NPWbleeonpI0pGZ1mkHSamIDu8uddF/H6kmjSe9oY0glrmtYDIl2QMbN7AAzl6CV1sNhsNXc+pi2MdcXqF7qjmyQGgucYMiSbgDW1kypvsxPCVxfbN38cc5WrlGxMaKqr6i6cfKljse64wF/bigiMy09dDJUxUyMxjlKSU5YSe904j7U4lzYpN8W4aA5xc4TAAtkBDiJNiBBjRdDC+ztKW1cI5lFzpkAZdZvzZiMjfxNImJkLkfF3EPIXhB5eu/H/iD33uHlaGngqb9tCk3JRTUdbWVNV0wLXVG5KaJlmqba9RPRy108LrTyVLVAKxTB6XVisTRr0ctAFoPKQLtaBckMmQHxYAy5oLQJJzY+G0q9GqOcPHmBMZ3c0NDjckCQ6JF3Mc4w0Acir/FTx1xNzly0bNtaw86bsuO3ZLhBeKXyLJTV9JFJKlYtdHIqw0UCTQTyT1EJlmquiVF9sDpIMQY+pQD2O8NrXNGZ1zoC3S7reRggAxOUB0+r94pU62WrzVHgkNaZggkOm8CN6jtL2kNa2QW1udvFd43bPV2HwR8nS3WgXyl3RuaPbkO29obYeSpkroloHYTXu9TvG0paeFKdZBIOmeF8eXG8Cw1BrKnEQ5gGgcc1R0DQUmgNYBP/uPN9Q4TPmsT7R1Klaq3h5p1HOFi2S0EhrTmrPOWRAAbTpmBJ5CAu8cSfYiWG1HeHJfJfL1y3Vylum6G9Xm61PF+0o1EToqpTxw19JXyU9MFMf8AsoZTkL1Et31rd7XMpU2YaixzWMn/AN5wJPU5AwOM+rRPKFwa3DHVcVUxFapTqPfAk0i7yjytD3HlEQH+c3JOqyfKn2K2xd70lt2c/OfNlj2jJdVr73b9vx2TbkVdUhg6FKWlt1PDK6sHkA8vOGX3lGerJhvaik2t4xoBxFhmc9x7m7nGw6wAtT+DPq0crMQaZMkljGgG8ictmgmATJMi0rdLnsTem5N40Ph38QvG+6uZxtBIIK/cLWq3QWC42ieSb7muUSTVkaGqKU08M0ccXRFJ7VC4khdfMxFgZ/1lJwGbq7mzbtAyuMXacx7Ecwt6nhHEqTqRw2WHiSIa4WESSQGwP+LSSRGgMqZu3NpcjcW2fZdPtra9Zunju3yimpKOS6R3K7WacKYxUO5eDzFEatEyyyOySdByynXLjxHudmGYz2AB1AkQD3AEgdSrX42lJa4kEjm5TLoMgfiJEEnr0NjEgbRyVY7ju217eusG5L21XQzVEAe2COO3wRmEES9A6YijMASWJLN27DIyOqcxJiBuSL326/Abd1S7h1RuGFWnyOJFrzJB69RsY+azOya23X7c+975czaUs9VXrabUi+WWuMcEMZqHfpJBX2gyRlQB70B6s9hq2li2Cm3nBzEutFgDA7ydb2uN1i4hQqtDaLWEFgub2LiSIm1mxB6G1l2mS8UNLQirRlNGqqQVXC4PZcfAA/DQq4poEk/Vcengnl/hxf8Ab9lq9m35b7xJXSUlRTV1JFOaWM08gkaomDEMEUfAY/F6Zz37HC0qxdfY6d/09Pmt+M4Q6jAMgxJkRA7n46enVbZSTVzRM9b5KSkkhEJIRcnAJ+JxjOO2dXZoXOexs8qcGU49QBo50BTSTLj1YaBfKbw+ySZsd8nOoHHRMKaH5w9DjUzFN4aQZj8B30PVMKaGZSSe41A6E/hoZk+uTqZ04YkGQfPJ0M6bwwkGUfTQzp/D7JBlP1OpmTCmhmX5ldAvTZEgy9vxE6hqJgwJBl+BP8dDOmFNIM3y/ho+In8NCMx+fbUzJvCSTL9RqZk3hIZl+pOoHpxTSDKM/A99AOTCmkGY/nqZkwpIbTHHcgHUD04pwhNMTnvqF6YU0Nph89DOm8NBacZPf+OoHp/BQ2m+uiH9URRQmmBPrnUL0fCQTNn01MyBplBacYI9TqZ90xp9UBpR3GQBo5+qYUrIbTD17amdN4abtN699MHqCmgPOg9XUfrqZ+iPhpu86EfiBOoH3T+Gu/GUfE/n31wTUXhQxI834+6dAPRyJQlHxI0c8IFqV5w+f8dAuQDFfzfq2iHqeGsDfK2qEBSgqoKWrj6Z19oysE6g90eQAlQfTIGR64Olc6TGi14Oi2Ze2QbW1HcDdR934N13ikp7CtnoaK01UwgmkuZnrTKznCLSwI0aEEv0t5jKegHCnsyrSJaZNjtEfEknS3QSvUYSnhwc4dJAkxDbDqYJNwDa06nY47Y/BO1tqz7WqNvWmsprLYKprxDE9b1pdbiF6RWGAFwmA1QIkR1RAVPSSEZdjsa5zi9oA2HWPWwkiJMT6SQsOMxeZhpVXXfYwDyj+mScxAtMzJld+vlrpty0C0S0FbTMJkmieQGLy3U5z27gEDpOPUE4+B1RrYrl4aqaLsznAgggxex+/gVerq7dZaRKyWmrLrfJFYxqpHnZCnKqx7RRgKcn0wCT1H1ZtS0D79fv0CDaFSs4izWD5X7fiJn19AuS712xue/bhs63bc9LUbSCwXO9WaC0pLDXNH2p1jq3JdQsyLM2UAcQoBgnT+KxgcWZidBeNbGQB0ka7rdgyC1oYwCCQCSZG5tIHQbxJ2QN9bSstbYbTet10O99xWzbMjVdNa6W6LQlmkp5IBIqiRGeXy5nCdUqYY5QK5BD4aodDEutzSehjQ9O/Q2UDyXkUIDnzcCZjadPp3JgBFotm8l122knsO8rhsuluVPPLV2rc1K16jt8UzDojCPOJ1mji911NQYzIz5VgANXVX0QSHiI3aQJPYQWxO4EwO5WDxaJeHluYiAAOWdJJIgdYhthFxqo77Y4WvO26mnuForW3xydVU8Vlp9zbvMlyrI7f0BZA0iFY6WAdMgSmpgquABP5kkjSaqr8VdWaKVIhjDchunYkky8xubN0aAF6WjgaVIOq4k5iy40bzG8NGUxqJcZLtc1gue+Inhe/wDiK4k35wHzhNRc37earpY7xZ7VQx01LURRtG7z1MzuZqeVIlVlCFJlZl6S+SzX8JxzsNXFeiSC2bk29MoF5NryOsKrivDMHXwwApANqWAMF2tspJgX5sw6W2C8vNtx+Jn7JLkIb23+m+vG39nvY7JDtyg3DHSRRby4h277TLLHJJSyL1V1KplCLLG/WIYx7sHuqfVPp0OJCMMfCrvMljictR0aMvDTuWxrqV4pzMVw9h94aKlOTDgJc2JnxCBLwAYnbo64Xr5sjxoeHjl+27H5G4L5LtPJfGG6bdV0DVu34GnqLVW0cC1MDT0o/b008fXKGWSMsGkjHcYB8bXp1qJfTqtLXNixtqY+XcGOi9Vw7hoxzG1WEOv5pkOB1E6GR+Gx6gLzuWzbP4lpt7734a5J2T4e+aqa71tk3PaKNOjaW+JoX8+kN2sjuFC1dME6a+ieCpWUn3px7h2O40cRlpYkGo0gQ4WqDrDrBwH9L5tEZdV2m+yFVpNTBktLTMOuwF2tr5COrRB/Fm8qhX4bvFjuHj7a/NPGnNfMmz6zdEc1buWw2DbFGs0tDQTTTzV0m17rHKKW5RRtUxErNHHWRSdYCgBS/W4nw6m5rXYNpeDDS4xBsAAQRmYTGglpGhO1Hs/jqrsY5vEYaWy9rRrYzNrVAASbERPOwSCN18P2wvGdzht+W77R2Dx1tE7gukH3be6/dtfb5ZrVmq9tt1nho4JI4rdPFR5Ssn63jnmqnpgB5bx3VMJgqT2ivUk6kZZM2ILzmbF/wNALmhuciTLYnirxndQaAxunMIEnRoIeXkAg5iQ1rnEAOyAL0p8OXA2wd101Hwxyxwztfjfj3jKKifb3HdlrJqjb01rq5ZZIrrWFo4xXPNVUc8ApKtAKWSCQusspWfWbiHFnMJxufO99vEdALYtlbchpgglwOhhuUTPGo0mMYcFhBkaSTlmcxixmxIaMx0JJEkxlAiLuLl+427de8vBD4ArTsrgO97YWReQd8QtSmi41tlXUPCY0jYmOS9zsJWpoeookc/UwMiQoHwdB2Jpt4jxJxdTJIaBM1SB5QYu3+pwE2yt3K6PFMmHqjA4IZqrgHQRLaYJnOW2N5BbTMAxnfFMQ7ddl+FXhjw3VnC1/2BxXyFvPdF+u1urr1y5uGuir9x1VP58dSlVcofMatnt7vArBHwUUBQgU9QbEcZxeIaaLMrKbQYpsBgSCDZoyh8GdfyScN4Zh2PrYmsXVKh5S83mIsHvcAGg2OQZRNrG8Ntsb25V+zK+0Rr+N15EtG0/B9zVuSs3VxvOjQUmzrHdatSKm3V6tGrUEMssdKB7O6MoWGbpk/aDXTcafEsCMS4F9akAHmTmibGJIJiZzDqARZeLxGHdw/HHDPhlGrdoygw8C7Z1AvLcphziQd49zPGn4XuOftQPC/vPgXd9BU7T3dSzvW2wvcVeo2juWKldaSWUQnpnhIqgQcmOeCfzB8AvE4RxipgcSKzIc0i++Zs7aRpY7EKviHDadXCPo1yYPaIOs3m4/ENvKdZXxQ/YO8m3Xw8/av8R7S3dAlmnvv37xveqaaTpEFTJE2EOT7zJVUESBfjkjGca+re1VLxeH1HMuBDgewvPyMr5ZwCi6hxDwatnAub8f7kR8V+ghyJs+i3PbbhZ7NbLlT3cmGporjSVslM9tfzOoS5jdQ6qwLeS3aQEqQUY4+H06kOhoEdwDE/fwX3vBPIAqVXwNxrmIFvj3H564u332wPty8be3XYbHS32pnFg3Lb5oBLQV0k8TIEZQcezTQ++mcfsGxglWUXVM7SHU56yPmT6j7gLP7u/EtuZAEtvcQY0O8m+vMb6r8uZfDpu7fHim3f4ceP7dTDdsN/3HarVQTuUEgt61s4gVioJdoqExoCB1OUHbPb78ziLPcxjKpgZQ4n1An6nZfCuJ8Aqfxarw+mIeHuaB6Ex9LBOfBDx/sLmLxfeFjjTkyvitXG+4N7WWhvTyBh10T1CNJF7vcGUDygfgZB8tX4zEuw7H1iJLGuIi9wDH1XF4ZgjXxFOgLFzgINtxb46L6f8A7YDxg37gvk9PDp4fZb3cubNwW+x2K2UUitVVlHTVBqnidDIuUqDLUCmEQcKfUqUAY/IfZXgw4gM1S1NhdmMwLBsgn/7F20bEr9Me1ntK7hNEPpx49YDK0D/k4ZgBYttlDdTIGkhSq+zo+zm3V4I/CtvDxJc38nbN2LzZeLZU7w3TeGRLhVm3hBLBbqy7VDkLAwHmzeSnvyThnmcIqjR7acfw9TLhcOSaLIgAZQXE/wBIEuiwaDEXhsmVwPYLhFajiTVxVLPiqhLXFxBIA1jRo05jP4QAQGrlXGfHlf8AahcxbK8ZfO+0ZuLPB1aoI5ds7Mpqp5IORqOOrkb7zvwn6YjbPbqWAQ0SxqZUjaUpgl2NJ38DpFgh+LdeY/25BDcupNWCSZs2QOgXWxFN/H6nhUHuGCYS0XvWPLmEDSkACLmXGZJEAfQFd57e+wpOMqy8buq66/Xql20qeaIAaercTSeVIiqej2WOrYg5Zelo8gJgeSwT/wCc1zm+SSZJM5Zde+ug7kyZldTG0cn89ha1obILQJBAyAAGRZxbEWiCBKkq9+pxVUjxNFQ0da7yRweV5TzuoJCENj1UKfdyT0YGq/EJufj6riNwBDMpuWwJmbdo6d+sqJvJW2J+QOXLDY7ReodqR2Cgj3g8/wB2pVMt4jkljt9PKjYJQh6yZ4kKsRBTnqXqzrdg6zWNdUO/KAO45j6hsAHQF+8Lo1iXUxTc3PJgySBlsZBFozAXM6EBfPx9ob9pHU+H3mzZ8u9uPavbnP2y6umism2o69Xte4bTW9aXcPdEjCy089PFRRJJMkbU09Of2TOjMe1wTgb6gqCm4OY6QXROXLOUZZmc0kxq3QgEK/jXHMHhaVN9UuzyCBBBfJAJaSYa0CTe2YtzTEDye4fo6fxF8xb25kruCtt8x3PkLddFuHa9hpqsWTijbl1Efe23WK40scNfJRrUrFIsAkId/MjWTrlx7muKuCZTpNqBj2gzVeP5hB1cxjS4gOPlLgLNjM0AE/OeF0KfES6vUpvr03wfApmWWBDRVqnKA8eYhriObyE8o9orB4COYjv66XHlrxK3Tj7fFbG9M1t4PvFbtrb+xUkeELRVUJIrqmORouhWlljp1jVniSRiq68NU43gmAUcPS8YHzPqiS4yTZohovqedxsLar6dw/g/E8SG4qvU8BrTyU6cQQABOdwcXQACAGsAMzlGvovsf7NPwyXeM0e9eRfFNvi7Wlwtxhv3M25+qkqWIlMhjirEEbEqWDDAKsfTtjM7jt8woUg28fymntqR+uq5+NwdZnN4tQl4m1Q3E9iNNBrHeV2Gn8I3hy40oJtx8ReIvxI+Hm2UMDvUXa3cr1tZbqSJcly8V8aupO5X3vdHbPf00tXj7A4NxOHpmRblLCZ0A8MsJ6jVYn8I4pUHhtc515ykCoSbXIcHEQPiOy5NzvxD4ytoWBufeIfGfsrk2/bTs10qvYOS+PLZS0m47I0Cz1VNNX2o0zMpEMM8TmEqsqRt7oZi17Mdw97HUHU3081rPzQ4GAcrmk9tZuey5lHCYynUa9wa64sC/rFodDT1i0CNF54bj8Q/jB4dsNm3lzDyd4muG7lFaprxcN2LtCe47RrzDCktHQChp46mljR4A9M9XUVEnn9ccv7FlMQ6ruC0A7JhqfiZdg7nJ0JMubABg5QwECZ6nqU+JU8Q01MYabPEPLyw1gJk83MS4gnR0SCGmYaOr7T8RvL+5Nt7X5G5k8P20d0bpu9tgrdt32l3HTrZLBLXwNUrB7APaaa33QnolMHnzCrdkjheRkECcWrhaNN1SlRrDlMPMEmxGjgBLQDl5Q2HSXADmXpcA+q5lNz2OAdlcwaFwAyEOl2YnrmJaGwWuJJCnbtLavDu1LDWzLtywbUs5t9JRyVu26BpLbcROAUkFc8SvT1oV1VwzRtIrK2JGIVMGIxT6k/iuBe0QdIBPLtqeg3nVh6VY5KdQgF2YwXde1pnWYN9YClHs3jfav8AZWCy122aG+7WjkMtuoo6GTCQoEeET+c7kFcABThiAOpQCRpa2KrTncZcJvAAnTYD9Y6yuK+lTo1yaByOMAkuJ6zF/jOnSdV2zb1PQLJTBKW1U9dHFHPNFTIFjpAVKoiKFAX1fPxPTn4jGfxcxkmT16n7/NYMUHAECcpkCd73J67fktzWpWTr6CCVYofoR66gqLB4UKjMfQHvomoUfDVjLkZ+H56gej4YSDKPnqBxTimkmUd+57/DQc/qmDCkGVcZznQzo5CkGUY/FqZwmyIZkyPU6XOnDUlpPl20fETZSkGX5nGoXphT6pBk/M6XPdHwwhmX17jQLlZkSGlORgnRNRMGIbSH4nGhnThgSS/zbt+elzkpgxCMoB+A1YXbKzIhmXsfjoZkRTSGl9e/79TxAE/h9kIzfXUL0/hobTZz31C9OKSGZvhqZ7JxSQmqPgWUaQ1N1YKSA9Snp1jUFTdMKSxDX2iF4Wxf7abgaU1gIpZfK8oOE/vuny+vqI9zq68ZOMDOrBmLS7YR8zP7fD5IwMwbuf0j9/u6eNUEk+6366QVQVYKPRCaZviuP10PEU8LqhNM+fVFH6nRFTqp4IQWlbJPUP0GjnT+EEBpTg5dif00M6PhWQDL82Ofz0zqiPglD60HwGNQVNkRSQmlUfAafxEDSQWqPkdTNdHwl3czj6k64JevEikrif17/wAdDNChoqvPGDg4/XUzlA0ksTj56heUPCV/O7+p0Qd0PBCAVjeYTyFpHX8HUBiP54/P4n6aYPhMGENyhYqqtslddIKyqrZpKGNSPZM/s5CR+Jx8SPlnGgQJzLTSrZKZY1ok77/Dp+aytFTUtvhkgpIliiaR5WHUT1OxyxJJJPr+QHYYAA02dZKuZ5DnmY/TRImm9ngWKEVaqi4URjqZh8gTnB/PQLkWUZMmPjZYwVNLaglXUUVdGsuYwI4Wm8hPU+aV6jk47t3HYDPbUBIsArKjTUBGYWv0n0002Hx3Wvy8hbDpZo513Lt6KerQQxLNWRwswiBbpWJyHPT5mSOntkHsMaFaq5ktcDbsr6HDK1Rghpy66Hfvpt1T+P7tqZ1rtwV9HNW0zskPnlYvZcYYv0E4Vj0qeo98AdxkjQp4hsHm1RxDSwZaTYaRJ3nbXcCY9Z9VzrmDljaGz6BYblu/YkdXNDK0VsrpJJZKxVADdEUAeRh+0XICnORjQBqPM0JJHQTfudvit/BOG+I6XtcG65hAAA7ugfVQkuvjg2BRCTaj8S86vy9PbVqW2ltLbsEl5vtN70KyQwzvHKsWAArGOMYGerCnXS4fwnFYk5AW2kEl0MB/5OEgH1Pz0XS4myjgwa76gNGeUvzGd+RsSZvr8rysMvKXi021Q7Yv3FXgRvtrpL3Vtb7g3IPIlpilo6JRiGolttJNM7OxjI8sVAZfMBIbuda28JoME1cUwEf0h75naS1rRHUSOi5mI4x74802MqGNCGsZl3JkucSLxAZNrwopbj8VHi7Pio2/4VdzX7cdNveS03K+vRcbce2LcNZQQU6RKgZ7hcp46FpVkqGV6lQWHkKhJZ1HV4ZwWiWVMUyXMaQJLywXJ1/ljS05Sd72VHFsbSpsosDAwPBPNnuGxux8m+xYAYNlDLkD7L3iK0xb25V8HniP8V3hm8TE13q5L/T7r2TeLLt/cKSTRvLQVVHaLfTJSQsI1DGj60cMT3XpK+nZxJ9doo8Swmels4ObUdN4Muc7NroRrrdfPKGFbhsSa3C8U1tU8xaCGtsIIghsSZ5pBF4K4R4L93eBvnTmTe3CHiW8OfFfhy8QtPHRUFq2zuKSrrrXu+9RTSxSz22pvLHyoOyuIZX65OqIRl1hKtm49R4lgKXvDXyx2jgxrcrY1dlFj6SNZgwF6HgHE8Bj64wuLZzAy4OqOfmg6Nuc46RBjSZLl6HXL7K3wc8l7V3HsG48TWbYW5aWdTV8oWGOO2XqxVsgDUM1rhihhkmWZJGC04hEeYyjM5CufP4H2xx7HhznhzDHIZdm66zHUkkayBFh67iXsXwoU/8ApqWSqcxaW8uUjUl0wMp/7iRrutHtHiv5x4J8RmzfDF4qduUu7+VKO1TybE3RtyantlNzcad/YrclDG6lLbdFkqpFnVv9mWOCokGQU6q6vBKNdjsdhKkUnESHTLC4y4vcAZYACQ4czuURKpwftBUwjWcKxdL+ZBhzcpa4AB0NYSDnJyjw5sTMgC00qbwu8Jct2bkrmHxH0G3+fudrjRrTVdtnvNf/AGRs6hnioaGgpaaZaarRJahnWskRp5pah6jog6xGldD2gNBraPDwAySC8ta55J8xkjlECA1phrQAXOMk6H8BxNeuHYpzqLHxDGOLYaOY5puTfmLhH4WgCAtl294ReI+DeT9g2PhaHZPDG0bDZLdXpt+kvcixzVslZUq1fNH1BhLIr1JMsnnEeZNIhgceY2XG+0JxYdUxDwXGWgjZuXyjoDaQA20B2YGE/BeEMwtEspsc5pLieUczgWmSSJfB1LiQbcpKkbZ977Z4R5C4q4H27YK627DuctRW2ujtNMGbaTQxNKLfVushOKlop5ackli0dRGoI6OnEKrsTTfiTzZNY0l1hECJFpA7E92r4XKYqO56gLQXXDiLuIkWABg7TF0DxFcBcBc47e3bt6+bG2lyNBuCjNFuXal0k9nF/plJdVhaYKtHcVZuuCrXywzgq74w8d+E4xVwlVpD8h1Dunqd2ncGfTZcmtw92LoOpVW52NJAAuJ3IAOxHWRqIXgNcuZPGH9kltfanL2yNxT+MDwM224rZZ2ulR7Nvjj+0I+Dt269ZaOZaeSYNTzEMKeTqAKQ1B6/WspYHizslJ3g13Sco/23O/qadgY5huNBIXn+I4LHcLa99eka2HaAcxPO0aS4WzAbHlJgBx6fPry74gePNq/an3jxZ8NXWC68ex8q2vku3SqOgJHNPS3GphZf8LI8tXCy/BkYfDX0TgmFqPwDcPWEOylh/wDs0H4iDPRfKeP43D/xc4miZYSx30aTpv16Gy/SfO+bNc3qUsxq6+hV6KngqIEYwVdNMTPT5ckf+pdST9G7ga/P9cPYcrhvF+o1+X5r9B8OwRcxtRzhLgXRuLQSBfV2nwWD5Crai0V9t5WoXlorVaf9m3HGk/lvLbHOXnCKPfkonYy4b3TG9WnfK600AKoyHfTrP99PWFkbR8KWRJdpOltLnTMBrroV+bj9pZZd2cC/aW+KtbBf7ltvd9r5Mr7/AGu6W2doJ6OSolWugmikXDI6ipQhhjBB19x9mQyvwmixwzAtykHtyn5wviHt0+pS4u/FUuUkteOt2gj5f5ULuKeRd08Vcrcf8ubNgt1bvnb19pL7a1r6JayCSvgnWSLzadu0y+YFPQfxHA+OvR1KLn0zSaSMwLba3Bba2sGxXjqGJisMQ8SQ4OMkiSDmuQQQDvEbwV7W+BG2T7ovG+vEdyk3IXKvP27bvX7c3Buuf2aT+xUNZA8UwiaqYZvVQzmi8soBSxErGyOyKfn3tPVfhMOMBgminSaBa4L4M5RF8lsznfjOttf0B7CcNbxLGfxjijzUruJgCMtKIymNnfhYweTopy7r3t4mftDt7WTwO7f39d9l+FvaO3LHduZ4bPXPXT25YuiF7fH5ojkM8hheZ6LLrCzSqzsy+VrzmCw2CwRdxjFDM7MRSboC7+oA2hswHQAToLhy9JxvFYjFPZwnhsML2A1qn4g06MLmmxeBcXcWQTaQvdLj9G2BsG77U2vtkbm43prfNFRrbaeejp6K2UpWakeOVjFTQHHkyeXAoQiUdweot4jGYt1Zxrk8xMkmCS4mLXLiZ6iPQQB9Ew/CqFBtLCgBgZAa0RFxBERpFgXGbEmV2Pi/kjc3L3LPEj7wsVNarNHQVW4KOnqZF86oleip6VJZ4FdmWR3qrn0I49xYWLf4c7cNSNJtR4cJ8pAvEuza+jQSe8C+nmuN4DDMoRSnODmnSIkEAkRAzAWMk6dV6F3Ojiu8T0clRGFfpBDqHGQ3ZhnBUg4PUD2I1R4gF5heMpO8PmjT1C+XP7Rz7VLfvhD/ALLbR8Odz2zvHxF8k3C6Xqirp6H7xlsNhdIrZZ2hooh0T1dX7GssMcgK/tPM8vDhT7L2c9nn453u5JbTaBmgiXPcc5bJ8uVpAcdQI3uLPa3jVPh1MeOwOeTlY3mgBslzjAzOBeS2GkBzpBMNIWS+zm+xF2/fqqbxLfaTNdef/ErdvKudXte/10lXb7EZBlI6+QZFZXoFHVF1NBB2jCEgtrscW9qqOCb7jwUBtNts4Fid8nYf16uN5heOwnAMXjnjinHSXVHzDXRYDQlugB/C2zQDoTde426+AuMuPtpJLtzj/Z9v2dQ0YpmoIKOkgis8KxvFFNGZv2TQwpLJE0bgkxSZ7tEmPB1MfWcXVHOJcbySZJ6SL3gAdLd19J4fX8R7cO0QLAACx+AiDaQRv2JWocd7E29ty1QbdsV13tQcd3Kkp6CkpYKVJLhbnSmZVhqrjURvU1FOIlUxvKxljkiK9bqVxXWxra5Ic3mkmxhuouAOvQTOsSukcPVogRlLm7uJMi+05Zk7AWI0uF1+m27uiy16V1kvdz3m9Ev3a/tH7NGhGJfPkCoUlm7IvbvkyHC5KnG5pnM0R96fp6AXKDcRRewMrgMkT8dOsgak6DRW504X4p8TGy7PsLlvZtq3ztiKriuVJC9wmj8ip6GjSYPEVYYE0n4wV74KE624LGVqFYVKMBze0xvvvb126lcakw0g8BxaHWNokDbv9mYRdo8LHYuwN0WDeO89y82V11N0e83K+RwrVVEVV1IsNNHGBFTRQwt5KQRKqnuwAZiNWY3GtLf+nZlgDeSXbuJNy4n5CB3WbCvfUqNbUOWCMsWDWj8JAiRaXE6mSbFYHh/etNFxNxvt7cG09ybWv8VmhtsCV9MjHzaOMUitNPG3SJHSJJOh+lsFx0noI1RxDGGrUdWMGbm4gZrkddbfUbLoUeEmlUIpHlBNpMkTIgRHy7aSYhLyf4GfDPs+1XXfHHXhynh2nfEP9prVsGaa0VUMMwkkqKu3R0rxxzqGZmeGVJVOFkgUSL0SdlnH8TWe1tRwcW3BeAdIgTq2exHQ2uKcLwdlIPpNqeEYIt1mxcDYkTIGoMzsuM8G3raux93b04+8Q+8+LN78fU81PTbVlVJdvQTWud5JaeeqpI5IoorgjSvR1VM8UJjaKlnEax1C9Ax9YUw2rTaS9xOaQHZSBcAwbEXBvaW5iQZ6+Ap4iu3KxzmZRykRLxMSZk/Iw7WJsvXXbls4lqKajotsbneqtVZF5EUNt3TPVU86FMD345nHvJ8274BySe/FLw55zNBI1tpf0C59Sti8oqPbpBksAP1E2XU4bLBSAR0NdcKSnHR+yUoVAX8IGVJA9Pj6DUNUEzvr/lc/xXOMuAP36rMQeXTxeVG0jLknLMWJJOSST9ToZgqSwkyUszjto5xNlPCSfPx8M6AqdEfDSDPnOp4lkwpJBm9e40mdN4KSZvqdHxAm8JJMwHqx0ufomFIoZnHwJ0RUTCkk+f276BeU3hIZqB8SMagf3TeEhtUqe/UuPz0M6dtEoZq1Pbq0MyYUUk1I9PeP6aId0TiihmpPybUFQphSQ/aCfp+uhnlP4SGZyD2KY/PUzphRQjUt/wASg/LUzq1tJDM5+LAfpqZynFJCM3fu7Y+p1M6cUkMyjuMn9+gXp8iG0qjtjvqB6cUkNpfoo0udOKaG0w9OrGoHhWCkhNOB26iRoF6YUkEzD4nTF6YU0Jp8D56GcommgNUep+GoXJvBQWn9e/8AHTNeVPBQGn+TfTUzJhRKA0/fsQP10c6fwkFp/TuRotqICkgNUYz3P+moHFHwuibtUYx30Q4yp4S7x7SME51wi8SvFiire0DHwxpc4lHwUoVIx+LTF6XwUsVPYdxo5+iU0bq4qR2PVjRD95Q8FK9oHzxps6Boq/tHzONN4hSmgiCowPXUzpfBSvPH/FoZ0PCSTUgdOWAJ7Dv6nR8RTwSmNZFbbmKmluFJR3FZqd4JknjWQSwsCGjbIOUIJBU9u+mFdws0ojDkAOFo/Nc1n4g4nLUC0XF/GCCFlZD9y0oki6E8tTG3lkjC+79B2GtZ4vidG1CPQx+SJwrHgiuC4RF7jrBBPxXIuUtjSVd72/tTZm4odl7lv5nNUbXaaWaems1NETUSwmVegTdUlJBFJIDGjzA+W5B0cM4OBfWlzRcjMQC4+UH13PmIaYI1XQwVQYZgGGY1uTK2TIIk6NDdALui40m0Bds2JxVx1xytfPtPatutVyrgGuNaxaesuDlutmqKmQtLMxc9RLscnB7YAErY57xlNmjQCwHoNB+dzNyVgqh9RwdUdmcNyBP0jaB2FlvUlBa5ZIppKGmaZGZ0crlo2ZSpZT/hJBIyMdidZW1IkDdTn6/Y0UebFtPZM/ib513RbI46TfNRtDaFFdamknC1EkCS3h6eKXufcwxYKcBux7410auIccE2kfLncR65WSqaYDKrDAMA63HmMx0uTou+R1EqSOlNW1ED+WY5+gsszuCpXoDdiMdY+XcYPY65cg3IutT6APmaCJt07zHwUCvGl4ZfDf4wdnwcc+IDiGXfNPaKeWG3VU1HJHU2uWdO0tLXRftICFTzDhgpYRh1Zex6/B+P47BO8TDExuCRlIHUGQegtI2Wyt7LYXGMPvWV2cyCPOI/pNiCTA6QOq8Ua+2+Ov7I6n3Hvaeq394tvABU0JWriu1xoU33x5RlU/bU9VIGjqpoUCxggyKqR5EdLkkesdQ4dxUto0AKOIP4ebI+9wIuJNyQJ7uXBrVuJcKOeu/3nDU97F7YFswN3MHQuAN9tWWxuTPDP9rDW8hNumW98uimpKam2xt9aiC23jY1lkSOR7rLUxoRT3GkrVSJpYinmpCz9LpUkScupUxXBSJGXNmLy6XMdAIDdOYOEntygwRb1GEPD+P4YMpwWtDSMpioHuIzOAzS0jytBJGuUHVaBwr4h95fZ1VuwfC7z1yZdN2eFiybniit3K2z4pqG0VdZVVLPUW7db1AdqIpFLJLDLA/lsZDLlwwC9LEYSjxMO4jw+nmMf7b7EAA8zA088mB1GkSSVwXtxfCgMFxR2TOSBVs83IGV8/7Zi5kw6B5QIXvZxD/YWlj3jyDXeHXdlq2fu02+ntcD0tM9e9t8mVoaqqhM5qEmq5qysl6GzKizU2fecqnk+IGowNwxgubMgEWNhlmA3lAEwYknWCV6Sn4mInE0cTYEiTOV0EmW8vlFgDaYJgQFg7htzZHH2xt38c7UG9LNvCslpL/typ3DDNLLS3eNpaiihjdVkWFYnp4VCsVXyXky6lnzVRrPDwQ0Bgs6IuCBmuNZHTsNl1cfSrYwtrVnBxOYW8ov0MazfcuGhWGufjQ4q3HZdo7P29su6795S3HaPvC328RyPbbfSTQTVNOaquC1CR07rSVqAKrSOaaT3OrGa8PhKwLgIDW+YnsRo2QSRIttIkhIMC11RrxVhtoA8zjBBiAMpMeYkDUCYhR1q/D9c62z1vJ1qiqt9V1wFe9+4taihr7JuaylpIaqCGKNWla5Q07TNAZpCxVnpwAs0Yj6WDxtNxFEy18Ah4JBadRvlAJiYJvBmxnR7R0i1zqoANKzXTu0gXMwXWAjKIO4sCPhP8X/AAjbPD14huWuItr3Oe9bLoK4Ntu4moSd66z1MCzUkruqqGbyplVvdVg6MGVGDKv3fg3EzisOzEugOMyBoHAwRfv69iRdfkf2v4EcBj6lCnOQwWzu1wkfT+6+/wD8FPKV95W8NXAe8LJJY7k104t2+yV1Jdgv3bXU8UULwIGIPnRrGgDHK+bUzKx6V6V/PvtHSYzGVwTBzmZBBjeOgOnoJBuv1V7LUmVOG4d8HKWg6A5pG5A0mZ3gARIlTD2Hz/tqXZt2a1Wi/wDJOyKK61Vgq6ymtwjKLA/kTRzQORJMOrzeqcArIeor1ggnnNq1GiCIMAwTeDpYTFogGCrOIezgr1M3iBrjNpJGYXMGIsREbfBfnffapb3rd++PTxL3Kqq4rg9svce2qWoWneB6mkoKWKkgeVW7mURQRoz9g5UsAAwGv0D7G83C6VQ2zS70zEkj9Rvdfmv/AFNHh8Yq4fU0w1vqcoJJi2pOluib/Zcbdod0eOngm31lPV1MMFdV3BZ4YaaR6Fqeklm9rC1YaD9iI2mBlHSpQMSCoOtvtXjPd+G1qxMAC8HLYkAgEdRbrdZP9N8C3EcZpUnND7kgOEiQDlkakB0H4L1j8UPizrNg8ec7ci2it39t/g7kXetfuDiuSlraNqu77iooKemraq7U7Jg0VasNNVCWBmhjemTpUSTqyfO8Dwh2LqUcPVg12NGYHMMjHuJGUz5hMGbmYENa6fvPGOM/wpmIxBbloPdDSAHCpUYLiDEU3ESDrDS4k5mg7f4SLDR+Byg2Fe+Um3bX7t5LgaXdxqWjqp79cZJfaovZYVKSx08Sw1PmMxcVEsQIwFCuvtJivfXOwmFgNpABo2AHKS6ZGpGWPKLmTpo9h+FnhmHGPxpLq1dxL3AXlwzBogSDlBzzHRvVe2m1tg2rb216S0cdjc9Rue13GS/XG3Um35ztzbtxw0kMcSM1MKg1IkQSrJ1mPMUixRIsUB8ZVr03DO/QAgOLmS7Y5fNAG8Ak3lxcSR7zC16/iGIa2oAQDnzQTJkwNLhoJaJ7ST2Tw5WG23zk/wARHPNFv+Lb0FfLt7a0VLULJPVT1VHQLUS1M0kpjJZnubQ9Cwr7kA6QofpD499NuEp0oh5c42iIkNFuYk8skkm5griPq1vevd3087GtiSeuZxAi0DNA9CSTErm/2nX2mNn8H1g2/wCHbhyz3bnLxt7tt8NJtLaFut5qPutZlMSVddHF+0JYh3iphh5SvUeiJWfW/gHs1W4rVcxpy0m+dxgADcCbTGpNmgybw0+M4x7Q0OGM98qtkuJyNBJc8g69mA2LhcnkZzSW8C+yz+xrt/BsNN4kvGTDbOT/ABg1simneqqku1DtCnWKFIBD1II3uCpH5TzqXSJVVICAC59V7Te2NPIcDws5aX4nAQXEmSATcMJMnQv1NrLyXs/7P13YhvFOLAuri4BPliwkDQgCwmG+pJP0FpT3iCPy4Ki2MCwBx1xjo9Oy+9ggemDgfL4a+dzrey9v/LcQXg/Q/t+/dVV26ruscMN1q4RTK0cjQ0+QkrL3w/VklCT6dvwr699QnrdRjm0zmpAz1P8Ab7utJqLE1p8i02hI6GbyEel8rKpCsRQCBMEHAKp0gYIDduyaUy67vj3XTpYhpaS7QSLgHXc/Mz1jutysdSkvmVEddXzxMSER5GMcf0UP72fXOf550Q8TA+/gufiqJENLQD6CfjFlsXndySSSe5+unzzqsXhLB1PXTTpX1NcKmGN1kWGZB0o2fdKY7lvQDOfpj10jqhaCQbrU2mHjI1sTuP17dY+q0TjygRNlWzb16tRr456SWW4NWRRlJTNK8ghcDImAWTp6u69Kr8TgaKtWYi0QPkBdPVwbqVRx8TMQ4xE9de3p67LK0+16HbUE39mWuMMeI0ipDUGWGnVBgCNGOVXHSpGTlQB8NZapn1WtmIdVIFeCOuh+Y339b7qMe5OH9tVV02LRb0tFsq7xcbe+2JJ6umgkpbrNSwippJpkwQ0wjhljR2HWrxnpHSFz0/eKrnPqsfDgJsSIvBjoDMm+iubiKVPNTZTLqZcCbTANjJPS0et91hrNYq/bG3aCuqN2QbR5GoEgspqaK0l1kq1l7J5LALUU7KGcwyhxGZA8brhW1S/FOe6IJaTvtOpm5HY/BdZ+CpPORjRldexAsBpaLxblgm4hSGpd3V1to1qNyNcrldqbERgZUhFW/oKimRQnmwsyt2I8xB2KkgZyVHxGXUm0/dlzaXDvEcabIbuSLwOhMmCLaGD1XUrfeFr6aOYPC7svViNsgfD1+Pof+u+iHLmV8Hkdl/NPhVM3f+R1MxSeAkGoft3XH56hfdOKISDUP69SAfroZ0fBCQag/wDGMamaU4pKxn/5z+7QzFEUeyGZj69bfv0A9MKSQZfTJbH56mZMKSGZl+mNTMm8NJ89Rnso0cybwkj2gdu/8NKSm8FDNSTnsdTMmFFJ9oYfIfrqZ03gyhmoJPqM6GdWCikmoPzOdTOiKKE1QPnnRzqxtFCM/wBe2hnVgopBqBnGfpoymFFDapGSMnQzEJhRKQaj0Oc6mZOKKE1Sc5ycaGYJm0UJqggHv20c3RWCigtU/MgHQLk4ooTVIHxxqBxVgooDVQ+B9NEm6fwUJqn66GZEUEBqrtgnUzKGim7VXb1JGmlN4CA1SM9iDoF26IoTdBapx3IOPqNFz4TCimcl0pFLKaqmDAZI8wZH5jOpn+SIoGYTF71RDsKgSHPois/8gdO0OlH3eNUF7oPRaetf8oyP540JITGgIXfzVZ/xa4Tnrxow/ZV7Vn4nSgqeAle1f8w0SUDQSvalye41M5Q8BX9pAzkjTNd0Smgle05xg9vz0Q5DwEtar5EZ02dKaCuKoEnBA1GvKU0ET2nAwD30S5A0ECoMNVC8EwZ4mGCAxU/oR3GlJnVMxjmnM3Va8bK8kBgrb1dakAk9aFY5CSQc9YGc9lwexzk/HQhp6/NbfeYMsYB8z9NPouQchXKSz277m21ufe68gzMUt9PDUCp6ZnjdlaoVgEWIrHIzO7IBhyCWCqzBgecsR1Mm31+kH0XV4Zhb+JUa00rTI1voN5np2BtJDbYe3r/xdfEvG8tz7i5Iue5IaKhqrtMIY1t9WnmeTRwQKqeVRN5hCAZPm5aUs83UN9Ws00wykIDdpubXceptpoBYWXGxeWs8y0MjMRrEE36839ROoAiAIUiaevSpgiqImPQ6hhn5ayhx3WR2HgkFYnce67dtWzXO+3Yymgo6aarm6VJykcbOwyB2JCkD6kaBcZtqVZRwD6pyU9fgombDXdVm2ns/mi02GgvvK1+pI6zdtFDUdKVUUpE1QJpeklJKNsRwoVJCoafChnkTpYnENl1DMMjLD4drTmNz3M6ATvfg6dV0XaBpMzOjWidome8u1IClHNu2y3uxUNdZq5btBXIslFJBE0mMgsJGUYKBekk9RXBBUkE65xfIIB+x9Flw+Ae2p/MGWNZt8Pj2B6xZaG68svS0NNBduPNn2MmVq4yJNca2YOxKiN3MdPGSpBPUsuD7oDAAm6iaLW/zHEnaIAn1Mn5AE6yrcQ1lSrNNpJkR0gdhDvQ5hGpkqLG+avbty33s3i2Obe1Xc91Q10FZuirJr79tyg9mmVzFKYCtpSZxJGJgEVfKeNV8wgJuw1V4a6o1sU2gSAYBM2DjOZ3UgGTPSSvQVuGNFEPrFpc10taG8pJvIFw4tERmGUzJJkZvPHxc/Y3eE/di2nkXwwb6vfg25icQ2eK7bQrjHT3CnkgWmippLdFLH5jMWh65YmR5Ecl+vqBHosD7emq33fiNMYimTMO1mZkEgiBsDYdQvDO9g6orHF8PecLWY2MzAQIEyXaCTpOsjchQ5sXi63D4X+LaTwb/AGtPhKsVD4XtzUFHaByVsWwF9vbjoREIad6+njVGhrQabzfOj6KpWj6hAekMey7gdfEVBxLg1cvc0k5CQHt6joWibjQ6ZjK8/W4uMK1/DvaCiA6MviAucwnq43cCdI0Bgw3Vdq8IPjWp/D1y3S/Z/wB051tXiS4Vulle/eHXkunuC1pu1CgaSLbV5lVSz1cDwmKMhRJGURXUCSJV5PHOGMxVA8RwzfDqNMVWG2U7uAP4T37wdV1PZfiDsPi6fD8aM1OoJpumS5otAdMFwHTzNgG+vrFujxAbP465QsN95Krbtsyz3iFbb5dxmejtVLcaSB6jy4mMaCaV0mnJYM0Z8hWByrAeN93q+ETTZnOpgZjGmgmACImJvG6+n0MMK7BRpujoSIJzHq7sJjWAbRdQss9Vsrjvna8W7YlHsravIN637T8iWKgpkRDSJe9rVcRo6kE9Uze12+SToVcx+cQip0t1d7HYmpWwzPEJMNcwkCRIe1xy22a65JvludI53C+FNp4lzQCWkguvBIaHNE3gNJBj/u3mV6EUu5ts2e9zbIuNPb9pJS0sFZC1loKmjlkDQhAz1ULYhaWQhSGyXB9erufP1K9SrNSpzHSTB9BpeNbWAXXfwseEDTM5pkEiPNJMW020vbRfI/8Ab8eDG38Lbi4M8Rm29xVV7t27oKmw32CSsimWmvMCe1PLTBI0KwymapZlbq6ZAScGQg/Yf9NuNU6wqYRgjLzDUkt8t53FvsL4F/rLwp5qMx5kXylobAEy5sETre1haQIKm39kt4kOU7n4AOL9l7S2ttHd1q2xuC/cc3KKp3YlurzT17rc4mgiZB5xiiWUR04fqlLHo6WAzxfbnCsbj3OqODW1A1wBaTOSx06m3QTdet/0kr0XcMpmmHOrUnRaLAuMG5ME5gZy/h3C9kuF9uVNLTeKPluzwbPpONN73C2X/bt8daYTXeBKQR1NHcT5UDxRQ1EbxRQTSPPGpAPQeoDwvFKmTDUaNYkFhdLekkEHUglwuYAH6/ScI8VceGsAeQAJBM6G9hMgWJuDf0XxH/a6bclsnjw5pqGg29TrdorZe1W1xutK6z0UeGTrd+o4jAZlYqzhyuB2H27/AE9rh3CqYaSYLhcAaG+m1zG8ar82/wCtlFzOOPc4Rnaw3JJ0i56223UTvDVvWxcd703JvPcZ82kptsXCmjiVlzMaryqOVEVuzSiCqqXQf8cafLI7/GqRfSFMCZe35A5vhMATsCV472Gx7cHjnYqo6A1j49SMvx1mN4C9YeKtx3zxeeJifmbmfizcVssN8ENg4Vor3Zki2jtLbcU7+Y8fnI0NXUw0kAipqYq6T1E7yydaQquvI18OeGYJ1IPmoTmrPDjnLiJAG7cxPmMZKYMDM5fWuDPfxzijaop/yGAswzHt/lwLFzzIaSAJc3V78rZDWyPRHaXh33JtnkzamxuSdtV6ccw2iqqNvXqSqS8bki2nGzPAtopKiniKSUM0alg0CCSGoowIWzJLryNTiLDTe6m4F5jM0WGf/m4OdGYWEvmQ6SIyr6pgeHOpnwKjZFLNke8yA3SGyAOU6wxwLS3zG69J+KNhcS8c1Vj4msVma+1MqVcMcd/sM0TXQGoinqaCKcqpmm9nw6zROxaMqJARkjy+PxlSpOJAhojQggROvQB1oNunf1eFY4Usr6kkzzSWuuIDok3Nz3iRFgoTcu/a07H8LPHXN22dk0sG8vFTV8objgsOxJIprjDavapI3oqmpkyYmjjSeJVip8NLLH5QOFLjv4D2UxPEa2HZSJFNzBmfEbmQJu5xgwSIAOY2gL5/7Qe1+B4TRr++AOrU3BrWA8zzlETl5msuMxJ6tZzSpF/ZUeDuu4Ou24fF54o6TcnNPjb33TPdbnc54Fq5doUlRgPRRo7L/tDBQsk0IZPLRYIcRoxfd7Te0dEUxwfhYAwzYBII5zr35Qb7FzjmdtHm+A+x+KrPdxvjLi3EumGlrgGACwbAIBi2W2UWEmZ97Nr7hoL3LPXUsdTa4lYE008RilLBVwzRMAVUdYAHfJ7+76HwpMGHa37/ABtb5L1eKwrm02g3kC/Y3j13MgRpdb/7T6Au2R9NEO6LliggzVyQxPK8pVVGWJIAA/PULgE7cKSQAFjLmlFUyW6orJnVaeV5FzKVQkxspDYOCMEnB+IGp4gaCSraNN4BFPePzV6VbfVyx3f2CFashjHK0YEnQwHfP1x+Z7aOchNVpvaPCzW6TZZP2hdEEhU+CmFTTUtYZTP5jFonhBD48sOvSxX5HHx/d8dAkXTtDmjl2v8AK4nqg2asT7so4QoSSGJYZEIAKMgC4P7tQ1STPVPXwsPPQ3+ayJqgc9xoZlWKC55yXBHedu01pFY9HXS3KjlpZE7lZIplmJwO/SEikLf8nV88aBJJBG37b/P5ro8Mp5apdtBn0NvmTEd1j4KykvkPmVVE9ku09M8E6kExibp7Dr+OQW6WBzgDB+GlDrET0Wo4V1My05g0yOsb+nfbYpxcts3HcNJt43yrohcqHrlimh6i8M7R9HmrIcN8wVXpyDnqyBiw2BAPb7+/gq6danTe51NuvWNJmI0+cotLPTW+mFsV7rDeWYCWCmygdjj9oGwQEx36wc/P3tKXAmI+/p8k5pOqHxCBl6m/w9e2nwW8rMsaqiDpQdgAfQaYuXM8Im6o1JxjP8dAulEUEg1P1GpmTigrGpxkgrjQlMKKGarPbqzqZuib3dJapz8e+hnsiKCQaoZ9Sf10AUwoJBqR8Pz1A5P4KQanvqZkfBSTUn56kphRQzUevfQzJ/BSDUj4tjQDk4oIRqB8xoymFApBqOxJI1A7omFBCNQDjv31JOysFBIapHzJ1JunFBCNT39RnQzJhRSGqs9sgaJcnFBDNST8SdDMnFFBerVO7uqD6nGh4gCsFCdEwe60a+tXTgf5xqEq1mGPRNnvFJ36ZGlP/wCXGzfyGjdEYc7oRufUMpT1jD6x4/njRMjVOKKbvcKk56KJz/nlVf5Z1LlHwghmrrSuTHSRH6yM38gNEnoVPCEaJu0tcxyaqmRfj0wk/wAS2jIGqbwx0QHM5/FXT4/5VQf01AUwZ0CbmNMgtUVsx+TTNj9wwNTNspkOqbvFRsQXgic/N/e/nnVjXRonDCRdUpgiJMMNPESO5RAuR+g0DUdFylFASkvVH/j7fHTSj4aatUYxg/w1A66bwt1281ykd5jn89edLtl5oYYzorCuXI/bAn/NoyicMeiX7aCP7xj+uokOGPRX9rP/ABvqZgh7v1CX7X/zuf11AUpwyuKv5s/79PKU4dEFYMdnY/roylOG7JYqxj8Tfq2oSp4CUKtfQsf/AIjokJDh+yX7Whz7zH9ToFyX3ZWauhUFpZPLjHdmZuyj4k6IKIwzjoLrlltu0CSRVcdivLV01TJWsi0kis9Q4KrJMzADCowRQThV+OQACS/QjT0gf5Oq7NXAgiC8QABqNBsI6m56n1ksrsb5u6seyNT09FY7dUUdZXxPK7y1MqOtRHTxsmB0hkikJznCpH/jYq1J+UF03uBa3c/Xfe+10OGpUodqXAwdI/DMEa6j5mNF0ex1UiUccNTcKa5SP1TRPFGUBjJyAASc4zjP8B6aDXAaLBi6MvJDYA19Vx3lXf8Atu6yWfi2G4U9Sb1WGC7VCTskNtt1M0U9b5s6gosjRmOJYiyljP3IA76sI/K7xSLNvfcmzYnWTvcW6q5vBsSaZq05Dh5epJsLXMakmNrdRsm1qK03O3UVfdduWGnvKUSnDIrFQzFy3Vj3mUeWGOD7yn5g6z1XwCAfsBbMU2rSflY85S4m3y+t/gmfG9fTS8f7QWktUVOaq3rV11uMarJFJIWkYnp6ek9XWSMY7nAHoZWJBLZmP2Ux2ELa9R1xDjBv1037LVrRT8h0BmkqK6grdqVKLL7XcaUIbCqjBPSG/bABgwlAjI6D1YA6tWCmwCSfWIM+nSd5n0Oi14yrSL4Df5gMQD5pvex+V59Suk01Lt3a1RFe3oY5LnLTikmqPID1NVCC7xRDpH4QQxVAOletsYLEmOxLv9vYXjv/AI1PYbQuW7C1MS4xr8gNJ76nrJK5nuvaW2bztXdtrulhiuVlraWrbFHHJFURJIvVinkRhIwBGUz0jq6Qv4VXVba7mu69iB+Ufn3XfoF4ewteWkQDf4X6HrEkD5pd3sWx7jtOzWzcNi2xvLalfSDbtbRXOm+8Ka6W3sYI54qkssj/ALQDLZYl8DOca0UsfUpPFSg4tfOotffTYf3XJrcHGLD6FcS2A6/WLmAN4k2Xyi/aY/YzbS2Pc77zV4BU35tu+01U90k42SnmMlMI/feexTDM8ToY/NEM/YqP2UgISI/XPZr/AFGbiSMPxFoBNs9oP/eNPiPiNSvjntN/o3iqFD33hDvJzZQTM2uw/wBWlp10jRb34VPtAb14wuK7lyZ4gfETxhwbv7iKSHcE73Jak0l3kWAwLcqi3w+WxjczVEJihZ2NTOWcY8qN/Pcb9mmcOxHhUmvqCvLRlALhN8oMwXWFyByjqSR7z2G9tf4tw54c1jKmHAL5dAIb+JxPkp7G5IMNFgAcTw79qHUbp+0R4P5c8SnFG59l7Fo9tV2zbJdJdvSwytea9UenmqIYlYiXpatjiwgmWOtJMSZkY9F/stXw/C6zKNTxHkiRmBhoPMAdP6cwFgWxJsF57Fe1OCxfF8PR8M0aRuHOBAe4+QkG+Wxyl3mDpyjb6Or/ALq2Jubbts5xoqWC1bPt9NUTQbkqBJ7JRTRh1hmYA9DxwMXzI6qFlZwW6YiG+aNpVGjKG8zhEADNfpuJ0HUc0XC+w0HQ52HfVBuJE6jUzsJ3ubACASSPLf7Tr7OnaviD8IG9eVeN6mYcvUNsTdVDPHd53g3YsKmZoTT+YYCGElYYWVFw8nw6iNer9lPaNmCxjadXKKZJGgzCbXIvaBMk2Xi/bn2fqcWwlWhSL3VQAQA45JbcDKZFxuIMxchfNX9jdzFszjLxwcT0/Idwttv2dfKyCkSqrXVaemuMciVFE7F+0YeaGOIvlTiQL1YYg/WvbXCVTgKj6I52T8jIPrE5o6j4j8//AOlfF8nERgqziGVoFj+KZba9zdt9A4r7AeTPE7tLjrnnb3DNniblzeXJW3L3WXKOgt6TUdFWUJppYbtNTd4xB5dTLDKw6mlMEAdwUB18PwOE95wtSq05RSLeYm8OkEAwJMjlFok9V+pcXTbhcXQZ5M+YNYJJOUSQSDI1AmIE6L42vtXrttit8ZO6rdtinucFNa7JaqCs9ttfsE0s/lNK0jR9TF1YTqVkP40MZxr7D/p8x7cBNS0vdAkGAIG2hkXHWZX5w/12x1OpxhgZctptDtdZcRqBNiNLRoSo1eEbh2484c2WXb1Jtpt32i2wNfa+2sshjukEEkSimlaN0aOOeWWGFnDAqJTjJIB9TxbiHu1A1ZDTYAmNToYOsXMdukr557G8CPE+JMwrWy27jciWtEm4Bj1iBqSF9fNn4qtvHtjq9ueIGybe2Jxfdlmq6KjsqzVvHO3KQRdRkpa0oZ7dXxRgIp8mKCDzFliaJ165fhL8a2q41sM81KgF3wBUd1BYPM02kyS4cpkco/Z9HCNohuFxFHwqbdKZeS1twAcxgCDmcJyjMBlBu5avx3yxw5eand9k3hZbBvm+bQuKyW/fN1o66KmulIlL0pcJaRabHkNR1BjmSZo4JnErxd5gsYdhcRTANNpYKgkMABIM6EF1pcBlIBcBAMRJ6mIea38p7gXUyJJJbILZBzAdzmg5XdSIXM/EV9ofxnwhRCy7ssdk5SraqneHbPFm3vPa3X+4sTHHV1MXlJJHbuuR4YHheT2h4HkWNmMXl7uEezuKxtb/AKUHOYBe4DlFrRJBeQJykAsBFxJK837T+1mB4Xhs2PcG3OVtN0vcb6OLZa0OsXEQSS2+XK7N/Zy/ZxXvbnJ7eNPxvwU0fiDutOm5tr2OOv8AYU2AgZUieoVkdDWeVJTJBCWPkoTkySiUx9n2o9qsPh8OeE8NII0c65zEzIaQbgmczhY6DlifC+yfsXjOKYv/ANQ8XZ/Me4ZGZZAAEAuFoLQIuCbZncxEerG+7ZVbDdOU+MuXa2zR2tZfOopEjuFtrbTgxNiCPoD9EnU8bkgdUjYx2182ZWY4+HUaZda0yDNozTrYaE/VfcqWFfWDadVvKL3tfzXIvpqB8VL/AI+uN/8AuSyVt9SM7kryK63oytCkCssKdMqYzEcf3mFILuVXBwAXsYyoWAyBqdd/sDruvO42m14cW+UWPUiCRrvvE23ld7o7tTT0oq1qo54Sx98Ht64wPy9NAPkSvOVMG5rssQVpdbvm20lY8NWxqFqKmS1wxCMlampUEtEp9CehGYkkKAGyex1WysToNf039Pu5XSZwhxaMtiAHegOn1sBrMLK2mOaGSChutXDcauINUBVz00zFz0jucswBx1H4KcAA41YxwmBt9/e6z12Zmmo0ZQbetvoO3feFtftQx650wMLCKKSapfn21JKIoKxqgO2RnTZkTQQfOAkaUN0lvxD/AIj8/wA9KSiKVoSjVAfHvozdHwCtA3HNdvvSybhoZFekoZ5qeSmZ8JMsqBDK2FJ9xgpGO+A3r1ajHxPf95/T8l0MNg6bmmk4cxgzHS8Ceo+7LYZKK010TyU48suOlZoXKsvfPYj0HocemlAHRVtfVaRm22Ky4qQqhQ3Ydu5zqGN1QKCY1sNNcEjSpVm6G6kZXKsh+hBz+nofiNGeqsp0y0y3dEp2FNBHAJp5Qv8Ajkfqdvjkn4nUtsi+kXGYRfa+w97I0UPdkg1XfsdLmTDDoftXUDhtSU/u/VJNYR6N20JR92QzWAZ75/XQJEJxh0NqzB9RnUB6Jhhkn2wkZBJGl0Kf3fZDNaPiyqNQvCcYZNmu1MvZ6qnU/LzBnUlOMI7ohNeaM+lTGx/5ct/LUMphg3dEBrzFnCpVSH4dMLH+mjBmyf3TqkfersPdpavuP8Shf5nUAhM3ChIa5VB7rSH/AL0qj+WdCCU4wo+whe31zHLRUcY/94zH+Q0wgJxhkM1VcxfNRSxjPbEZOP3toeqsbhh0Q/NqSPfrnJ/5Y1X+h0XFM3D9kJ2LDDVla2fgJOkfwA1BG6YYdBApgckSyf55Xb+Z0YEQE4oQUPFGDn2am/VAf56AcU3gndE9qjjGEVEH0GNQuJ1QGHHRCauJPd8/rqT0T+AgmtLfhJYakJhSEoEleqAl26QPn21M19Uww5Kx73yjOR7bSlvkJFJ/cNM0HUJvdzMQmz3umGelppz8kiZv5DUyklDwOqH97FwStLWf99Qv8zokEaotoCU2e41eT5dLGPq8wH8gdQjumNEaITVtay/ipI3+PZmA/lowA6yLaI3CCampyS9YD29FjAH7znRm0IeF0CC03UCWqak/k/T/ACA1Oybw+ibM9Pggr1jPfqct/M6YOuiGG8LtpuPb1OuC4LjDBpP3gCPUHQATe5lV7dH8VH07aJQ9zKWtbH2OBoQlOEKr22M+mP36MWhA4QpQrVGAC36MdGBCnuqIKxf/AGkn/wAWhKrOG7K/t2B2kkx+emlD3XeEoV5+Er/w0EDhB0VGvbA/asR9QNMO6AwY2CDUVuYzJI/mIgL9PT2Yj+f+uoAZsnZhLwBErA1W5KutK0tpgr3qDIUNQUKR065UM5LdmYBiQmDkr8B30W0ydbfeg/fRXt4c1gzPg9uvy09eidU9BRUdrktdH/ssTuZZHABeWQt1M7nGGZmyT6euBgYAd7gTf7+/8pMjvE8Q3P3YdOy0W7UzrUXCtu9/pYKVQS3kSMkjOF7dMC5BLZIxk5wvY+mg2i0nqT9/dl1cO4gNZTZ89Pmenw3Wp2rbcc+6RQ1lugraemthhq/bXSR6hzJDL/dheiMCRQBEpVB0kkHJzqmBIMXtHx339fSE9ap/LzzdxtFhEEdZNtSQSZ7Lqj1y23biLXeXDXPEkb9cglkMhURjv2y/cZI+OT6az1GA8o36LnU8MX1gWzAPpaZ+/ktWt9gsNLtGmW71NfVPTJJDUVktX+0g/aEP+0j6MBe4X4KM4+szNAhot8/ufqtbqlZ+IJZuZAj5W+yd05oYd1muMtXVUu4NoxyQ+y2+sRYpyqqQ8plxh1Oe0cgOR3LKcDVws3o6/wDj177aLHiqFKIpiHEXIk/L9SN+q5htfdkF22FdUpLbuex7vpUC3O23JY1rYZEwUR+mRyqtEI+h0JQKwYA47DHUgx2W0a2Nj3HaZnfULr4TD56rXEy3QbEa6gWDpkxutbr+Ttw3yY1dpt24aq34jgp7nb1hneoiELM0kkSv0xxpMAnmMQjFfdYHPSr8I4DO4gDoTEbCZETvAk9lqw+Ap0m+G4X+MT0B1mNRFpXDOP7xyBu3aW5bbyLdXskdr3BWQ1VxtVwWlD1TCGVZqeSSPEUZkRJFhZSVVnjZn6jq84ai3KWy61gZ76xeY1NhNxotlSm4P5Whr3Bo6iB0uLGYvJ6wq5n8QW1vDJx1uDdvIu19w0W1UanpYKuks8lXFVOyB5Kgy08krO8S9UjAEv0JIwVwrY0YbhmIxdVtLDw9xmwItG0QI01gDS4XKxeMwuGYcTiKmQMu4mdHOgfAk7X6DQL5Y/GBtit3RyFxb9or4TeI9n7Fv8v3rv297PpYUrXpYbNWUcrXu6WtoxT0wlW4UEj0i+Z1oUqCVZmx9r4Ji3tou4bjqvM2GhwkQXgtDWv1cRDgHAACC26/MHt77PMdXHG+BUyWOkua7VwbDnOcwGQNCWuOYy10CFybw/csbs8f/ij8MPAvKlPTQceS73rN2Xe22WBvOus0aVFdNE6x9LSO5E8UUhJlSKdwzuUU6vq8Lp8Jw1bGU5c5lMNaDsOVo7ASAXDSRYCVnpe1+I9qOIUOG1A2kx9Q1HEO3ALoJ1gSQwnreYBH2Y1+4Noy7IpaPZVyt+06C7U8tLTXG2TLFSU8fX01EciuPKUxqZyyPGGVozkD3mPwEh7nkVJOhOs/vew6X9F+uqPDhnz5ZyyMsTc6R1v36rkK7Nu0e7/7NcZ3il4Z5NqoRcBZqm0wCy3+lRe1a9KySwO6LFmUUrQspkVGLghx03ViQTXGYaZgeYdRIuZJtnB3iAFifg6FGmfCcRcSASROmUAkQI/pIO5IJAPxAePHw98ieGDxR782xvlNlU12uFU+7rTXbRWSntMlLVTPNG1vjYK8AifqTyz3iZAASOlj+hPZnidHF4NjqLi4N5Tm80gCc33foNF+G/8AUr2cxPDOKvFZgp5yXsDZiCTpN7EXuYO5XodsH7VG6pf+AfEXU7Q2pcuUthbXXbO70uV+prXHvapnqqyWqrGVllqa2SopYaUM/SVgqMdmLxDXk63smWsrYdrsrKhlkNc4tAaAIAhrYc4mSZcBaLkfSuF/6lNrU6WNrSatIEPOZjBzEaFxJILGGzGwHHm2B8Y+WOUd381cocg8vb9rprxvvdF4q75dJzheueaQuQoHYKMhFA7BVHy17rh/D6WDoMw1EQ1gAv23Pcm57r4d7RcbqcRxtTGvEOeZAGjWiwaOzWgAeklejf2aPh0oubX3Tehsaq3tNb75QS1QFa1KKOhhxI0EDxTiX2iqeYRkeU48mnn6OpmYLwfanHuotbli4OoDpJsLEEQ0AuNxJLQba/Wf9GPZ2ljPFr1Q6xaJDi0Na27jLXNJLpazSAC4gzC+iDeXhy25feN6+88L2CzeHa+2mxTnb1x23cQKXc8roYEtlXSe0NSV1O8RMbhYOstU4UqygD5IeJVXPa3GAVSSJBbDgdcwcG5mkWi4FidDK/UR9lqbWn3Fz6ZDbS4uZAnzNcYIO8kwIIOYQvN2yfaGL4W/Chujj3nmy7uvvi7iq622UlFV1irXR1cMSwQz11Ug64qCnYOUjjZ2qJaciUhuoD0GL9mHcQxoZgSPdyAc1yBOsA6vI00DAQRsV86p+39Pg3C/H4xPvg5chjM6LjSwZYAvdJMOaBJyrlHgb8KV62VyhwB4hOZ7lvW7cu1ss+7aSjiroo6o0CQxRU8lJJ0SvJWiWsikIC9KYjhTMjlk7ntFx2k2jWwODaMjRkJv5naiGwQ2AQSTLjP4RfgewX+neJxFehxvjTi7EVCXBrgIaxu5GhPNIaCAwXIzFe/1/wB1703tT8IXKxWe38xXa00tEbzXPUlJbZTxoxn+6an2dFkrGeNOikmbzkwWHQzKuvmVOnTaXy7w23iZudgbyBe5bbQdSPvVImjTzUm5g8zAgQ02Lujo7gTfYQezWjesm/6DavHu7Kg2G8tNJdrNa6ikhoa680SFXoHWPqfojSoemaSMhECRftP7whs4oGnUzM5iB1kB2hJIGoExrc8ugV9SmAHVKPKDrrIaPNa0zpNzfbbI7B8Qu06nd+4bDuRt0WrkSS6x2iC1qHcRh4ozM0UYXzFpTMJV82RQesYHSAo1VVwDiM1JuYEEz22nYWiADebztY/COfTD55REyBM7ettdhB9TKqg5Tg2nx/uW8VdPW1dutNSacu9UjtWVLTxoIoyC3SqNIIiWwQyN2PbNdGg52RrYlxgfPU/nbZef4hw0PxEnUibDQQfSSdel1heR5toWCggr99XSlu24zdIVpaKCVEjo6qWpQRiixiVIhIQHcHqcM7SDpARbaQ8QinQbM/UXJnYCJIG3c3U4fQqGavlbGpmbD8R0JPcRsLTPQdu71ghutXbrY123JMWTqlMHSIV8sgJ1tjI6o/XLMe+e4Oq2sJm0ev399YVeI4bnphzyG/Gd9fl6BdZp7x54diksSg9IDrhjj44+A+WdSJuuI7AwYR/vFT6M37tAaoDCFV94YP8A6w/poxuiMGkm5YGSHB/LQlH3NBa7Rr+J+n8yBqSnGBJWOku1F0ezCoZet+zJKoMZJz1Zz2AOlDQVd7k8HNGnb4LDbZ3pb73Zrdc6asq6qCeMvG8tOUZgGK91BODlSfXV9Sg5pLSOn1EoHAkyQ2Oyzxv1OBkGdu3wib/TVQJ2CP8AD3fZSPvxTkrT1bf9zH8zowUx4eeyT98ys5UUVSoxnqZkA/L1z/DTZSRKAwQmJVfelSR2plB+HVMP6A6UhOcE3r9EFrjXMcqtGg+rsf6agZ1T+5tCsa+rwczUqH6IT/XRI6IjCCdENqyqOB7bgf8ALEO/7ydKKcapxhB0QjUy/wCKtqXz/lH8hqZNwnGE7JDTKezVFWRnP96R/LGly7KwYbsgsaRjlkZz/wA0jH+Z00wj7sdFfzKT/wBhTn81Ggm93KUKyJPwrGv5KNG6gwnVWNx6e3X7ulI3Te6BINxXuSw1Mqf3SyGbgM9jkaIaiMMhvcAO7Ej66AAGqcYbomM18pKdWeespYUUZJeRRgfqdECdE/ux6JuNxULhvLq4pMdj0Et/LOmLD0TDDXQ5L9GM9CVs3+WFv5kY0PDJCgw1kA3uVi3TRVij4dZRc/8A6x0Sy0mERQuhPdq05CU0K9v8c/8AHAU6kTaUfACCLnXkHzJKCNvgFDt/MjULB1RbR6hN5KyrfPVchEP+SBf/AKs6gYAev36JvA2ASDUsAA9fWN+TKuf3AajgDeFBSMQmztRv3mM85x/jmcj92caZtjICBoE22QzPRD/1FKfllAf56YJvAJEJQrlT+7CoP+Vcfy0S611Bh0CW7RqCZJkUf8zAfz0hAhOMK5YxtyW9W6PvCkLfIOCf4aZrC7QKHDEaoL7hpv8AAaqY/JIHP9NEsJ2TNw6bff0jnK0Nfj5v0L/Ns6ZtL0SmheE3e83AswSjgVcDDSVI7n5YVT9NEsMTP5phh2oX3lcCCZJrdGPh0B2/mRolo7oih1CavV1bNhrpIo+IjhRf55OixoBmPr+0JzQsu2feWQcsB+uvPlhSe5KhcvT3tQtkKe5Ja3Ij/ED+ugWIe5pf3j/zD56bJZIcGVcXLJwG76bIh7kri4gDOdEMQOCSvvMkfi76GVQYJL+8j8G7aIYl9yV/vMdgWOpk3Q9ySvvMD499HJ1Se4lULn8m/jpQFPclb7yzjLk/rqwsATe5dlRuXf8AEf36OSEPcugWpX2vkSSeW4VEUtud4lhiRljdWGcszkEkZwcAHuB+Wo1p0F5WuhgwRDRBEydfpYfFY7aUs1Ndat7hH0XCShhYYUKsSGWVvLGfez7yser5jsMEavcLZRpP1/JDFYVroLRb+wutouVVSxPBdvZ6GS4QgpHLL6qhPvAEehIBA/d6E6TKYICqp4VxBpyYK5rPcLHW2y8TddFYq6W5xv5NSYyJPfRFkVC4XDpGSDnpOMkeumbSMgO+n+P8Le2k9jgAJEd+9p11/sm9NyrsBqS7Xam5Mgmgp/MEMUVzhSOpKnpzHGvdiXDIApOSOw76Z+HcAA5hE6Eh39gqX8LqF7G5R0Ngb9z2/sVC7xY8o1HENqsF947uu5tx87VhprLtvb9ZUQlN0QyzrJLTSrKimlgQdcy3CchaZkBHUGMEnX4XhRinmg5oawXc6/JG5gnUwMoEu0EGHDn46jUw1L3unzEnlZAGZ0RlBtqASTOVuruUEKCO64/tCbI90ptl8i8VWBIoKi42jiqs21V3SxvRZaZoae/s0ktTN1eafNZY4kZshApK66ww3CXx4niFxsagLRfT/b/CNLElx7FYMQ32gl1eh4IsD4bg7MdyHVRlBcRbkbkFpkQVjbB4895QWvaO2uLL5uPcPK1zrI7bV7YucEVvuttv8MUUNRHehIQkfXNIQlSsjo6qFVW6g4rqeyjnVXB/Kxt80ktymYLSNbXIgEbwLLfhvavCYjDNqtph1V0tLIAcHCMzXNJloGx8ptGaQugXPlXmfim51sm/9ibWm8UN0tnsFfVUUXt8PG+2JGdqutpYpU8iqqaqV5YY43cLVTLFCitDBMDZQwVIhzKDyaAILnaGo4eRgdMtEDMZHKJe6DlAy48vrig6tTHjOBy0wQRTFs9R+k5BAgG5ysYZLnKJ21OO/D7sPnXalLxDT3TdFVX7IWypYbnWrckK1dejrTmmrJlgpTGaZhJGMRujBY4nIAXqVuIYrE4d4rQw+JOYCCC1pMyGknUQfNqS6JKx4L2ewWB4hT8Aue3wnNyFxLcrntB5SWhu+YCGxADbALxdo7Pub7Nj7RvZ43/FFRttG/0d2qFtFeswFqraZiBHP5Z6gIKoq3uZ9xh0+mvo9Z7eJcLf4JDs7SLggFwPSZ1HVfk3EYZns37XMFYllJrw6RctY+eoiwJGkWt1X0b8p+PLwrVV22vcqXxVcfb/AOPqVKiC47es9K010uXmIG6l9ngWOujheAYp+mKR4ZXy7BFTXyrDezePeHVDhajah8pLXZR/5aEzqSQCBEL9cO9sOEUYLcbSc0+bnaXHawBJJiZDRJvqVg7J47/DbzVRG5XjnDbddYrZba3pq9w32Gir5JIekxyRySPTzUc4jlkKE9ZkMaLiTrYDHV9nsVhjkdTIcSLZXEb62dIJ6C0zIAXocB7W8JxdA18HimOptmYcGm0aAx8S7KNeyhP4xvCvyH4ouFdw8w3nclVed6WeCovdooqY0NRT2lZSJFttVVUjEVE9TTiHFUw/3lRB7qIXk9X7P8Zw+CxQoMcCHQ1xk3PVodcNaZEalvMdgPln+oHsTiuPcKNUyKlOXUmwJywLOLRBc8AG1muho3LvmTKvIzSsQuFwB6fpjX1u+hK/DFSmc19R9E6mUhPNBAlbAHwKL+Xz+mjlmwTGzZH33X0EfYb8pcpbBn5d2rtajv8AV7I3PW0tuq6qhiUPYa9FiX2vrYgN109XJF5eck4KjIzr5x/qHg2VRSc6MzJMExIvIAnqB8JX6i//AI5UnFuIa4SwloIyyARcOJiwgk66gWXpv9oJ9pBtDw40lksG7thT33f8bTVO2NoNOlMsVOIx5FfcJ6eoaWkeGZpBFH0A4jjdCSpMfh+AezeIxtQii8To53miTdoEcznDW+5Bib/avbv234d7O4cHEAuLrsaLF5bG5HKwRdxkk6A3jxA408KXjc8TW96vxkckbIulqorjLHcbVebnaArVJjVRFNarb1IHFLFCrwiVfKfy1IExBz9SxdfBcMoDh9J/P0DuaTrmdfKXEwSOYA2y2j87+z3s9xr2k4k7j+NpNbTEFuYHKADAyMkZgzzcxhxEuzSQZNbE8L97t25LtQc0x8k3Tfq3KmtL3Wl3/UWR2r6qsCLHVrGR5ccTU9LU4poVTy1jd2DGPXm6/FKDGAYZtMMgmCzNYNJJ6uMEjmcLmACJX2DAexmMdUc/iFWs+oRAe2pkF3ABsCGsBLQeVrrCTEKbVq8LmxKDbPF+7rJtvmqG0zxT0t/qKDlC+UsTTVExiW4SPLLEbclR3mld0kWWSVTmMgBuJisZneWOpUs1taTdInKQGkuy2aA0yLz1XqcDwDwx4jcRXIJMFtZ13XaXSXxmJGYlwaLAA9emHYt+8Kk1PScdco7k48o7HtKjqoto8htV7ip4K2orJZ5KK21qeVckfzVDZhqHj6o361dT5Yrr4mljXOD6YzOdGakAJDRAJYS5kCTqGkA2O6bhns5iMBSaMPiC+m0F3885ozETNQAPvERzawGhN+MpPGVYN57k5T3Kvhy3jftwV9orbpUUe+q+ywWOKIsU89HopepJWUzsIJW/aMcsfXTYnA4BtNtBlZwDc3mpl2YkaDK4TAsJAtotmFqcZFZz6+DY8OgDJUADWiZMPaTfWAXGbHtNu58rc9U9048tO9uJdsWbhT7xn3Jfa3bt+e91EccRaaFnp0p6epEHmPHLLKkcjYpVIyWdl5VHhVLmyVczw2A0tLdbG5JExMCd+gg9DF1agq5nUSxu7w5pFogQJJki5iGgmdRHZZ920dl3Ja46Lc1ppLHZrE96t8dDEJbOkEiv7HK9cF6RHFCJ38yRslj+zQgK2ueMOXNc9wOobMaG2YR8hlAm9yJXYbTY5rWCIdJN+Yj+5vaBAEkrt3HPKdg3XuG70m3uQLbue20rLUVlypkh8lpWUp5ET+qopBC56mK/H1Jy1KLmeYFo0ANie8QNe37LNicBNIS0ZjsCTA77T10XY73vCisFsS7V9ZXvTe0x0zLHlnLO4QBUAyx94HA74yfhqtjC4hrRJK57OH5nFsAWnsnFHuGK5zslElympFOGmkaSNVPSDjBwSe/y7fHSCnuQi/BZReJ+BWY66U4DIz/m7H+uiGz0VfgOVCSjGT7PCR9VBzonqh7s6NdUoVMCggQwD/ujS7ojCFYq+34Wqz3Cujid5I4/cVFyxYkKMAepyw7adrCeUIswfMAVxvgzkq1XjZW3rfPV3eCvYMKYXOMxS1aH3wY2PaTHVjt3wB210eJYVzahsO8QY9dfqlbh83NsfvoOnyXeDcc9ve+uTrlqz3NDNwUkj3dGEwwaH7cmPQZ9flokJvdCkmvODlnXt89DSyPuaCboBkmdf1xoZU/uaDJeokBzUwA/no5URg0IX2Nvwv1/5Qx/pqGm6JIRGEEwhG9r2xDWP/lQ99BzTsn90Td79Jk9FDXMfqFX+baYMMwVBhrKxvkrAYgVT8mlAx/A6UsgwSmbhbIbXWubsgt6fV5Gb+QGg1oG6nuvRWNwrSB/tFMh+OIif/q0cgkkIjDjogNV1TH3rjIn+SJB/E50DT6pvAjZDFQygh66um+pkA/+UDTuaDt+ajMPugvNTuB5j1Eo+TTuR/PQDJOibwTogobfGxeKkplf/i6cn+OnAMZdkPAvKJ7XChykUKj6IBpZPVN7vKFJdgv45gg/5mxotYNEwwxCYybhoo8+ZW0qn5GQZ/nqClZEYUhN/wC0dG393O0v+SNmz+4af3d3RA4cHVCa/wDr0U1xl+WISM/q2NDwSicOEH76qXyBQVAIP+KRF/qdOKEHVEUQgvdLgfwQ0idvV5if5LoCkOqLaIQWr7gSOuooo/8ALGzfzI1Axqgp7QgPVVbZ6rnKoP8AwRIP550fDHT6phT7IJmB/HXXBx8cy9P/AMoGmygnRQUt01kFE5Jmjac//mSM38CcaIEXChYUMTUMQISmplH0Qf6aaHHVHwdlZrmqD3GCfQaJpybqCimsl2ycF/3nU8GUfDTZrr8OrvphTsEfCTdrqe/v99E0VDT6Js929R1H9TphTsh4XVNZLqMfj0W04Oinhrpo3fRsO1/tp+HcKP8A6tcmpgzrB+/gu4cENgiLuiAkf+nbYfrlP/2tIME7oVHYQDUJ3HfhIB5d1pJM/wDCqn/6tKcNqEPcuyObnVt5ZS4qAGyf9nB6hj09e3w76ngbJDgh0RBc6j/+N/Tyh/rphh0PdB0SxcpSP9//AP8Amui7DJDhB0V/vGXP/wCIf/qLoNoQNEPdB0SvvGY9hcmA/wAi6goSUDhBrCuK+Y+lykH/AHE/00ww/ZA4QdEta6Ygf+kpiP8AKn+ml8ATolOFAMEKvbJvjcqj9Anb+Go2gOinuw6K4qpcf/iFWfy6f9NN4Qmygww6JPtT+nt9WP8AvD/TR8EawocMOiT5w6xIaqqeUDAYuMqPocas8K1kRhQtdtj3E11yvdymuiF3aGClV1JjhUqA5K+rN0FsZ9CMDOmdQaABunNARlAHy3SKu4Xu4mGKmqLpt2FSWleSRZJKlBnqSNAfdbABEh9Or8JPpYyg0Xdf0/U9O35JRhRsAfgrzUdLBQSf2fnpaWdwJTLKGmeft6tL1dRJGB1kkj4emhlLrO07KNw4mXifl92UW+XJ6+Xatbxwty2va7bWVMSJR3mlq7jLb2aXqLjEigp7jyhirJGOrqyuBrfg6DM2d8/CADbqZ9Os6BMcNALmAEnc2ntAEn5jTood8obz2r4YqtabZm1au+8s39KaHbe0rDVm73/d1vg6UEs1XL1yClRlDzTTyJTQrGqh1aNF12MJgq+OBptIyN5iYy02TuYsD0sXOJsDMjz/ABriGB4VTFWs0vqmWtbGaq8j8LAbkCxOjWC7iJvEDmXkHx5U1HeeS5trcD8BR09TSxy0NPVy11xElVVqkRDzGnhnqi5VS0chi6gxGAXz0MPwnhwilUquqG/4Q1tgSb8xAibloMfBcPH8X9oBRdVp4anRaDbNUNR8EgCzcjM1wA0PIk2USuNNibx2un/bJvjxV8x7Cuu67lBFe7hT01ne31nU0kFaJVn9ojlhj8yKIVCs0ILqrqnuDXWr1sIGe7UsMHBkkc7gRoRoGkEnbzbibryHDfZ/iTXu4jjOIOpvrOAfyU8s3bHMXjlmMwJbtaFidtbZ2NvifkGs394mfEvco9xV1vtkd7pr9FT2uGsMjRxNXiCFG8mkoJqF1jjURLK0iRFkfr1eA2kKYp4VkCSQQ4kCAXZZNy50iTJIALgIhUYTg9WsMRUfxGqQ+Gy11NrTBcGAkCzWtIcQIaC43JdKXzjQx+D7n7atr8EPMG/ecN9VNH94zWLcVrp90P7Srw+Utd7VTwzQmcTVcgZXyCFVRjVnC44hRca1IUWAxLXFgHmmLlrogAi0ySVwfazh2J9n8XTbgMQ7E4iownw3sFZxu3LJbD6YcZLXSYgAWJUJvtF18SvJF9sXPXiG4qvFgvFzZrZ9/wBmkp5dpSUgX/YqK2eSnXC0ax1Qb2mR5JGDYwIyo9B7O4Sjh2OoYeoHhsG8+JP4i4GIGkBoAAudZXyP/WNvEq7qWK4lhnUnXbLcppZTBaGvElzpJLs5mbNAAgewXgH8Tr+K7jnj/a3JN/sFyvO17XHbJaeRI0NrWBYqQ10sbqTVTyx1StHPhlgjNQh/aYc+J9oOH+513Ppk8/WdCZyg7C0O0JMRDbL9G/6Re1FHi3DaQsKtIQ8DXM0RnOnmBkAWu7NJUmJfDr4U92cqbkvlw4T473Rs2pv7o12jstLWT1FZRVDU4tVP58ZEdEjQwRPhiJpKeSJR0iUGmlx3H0sMzLUc0xMSR5hOc9SZJaNAIcZ5V6Ov/p7wXF13uqYanUvE5WmMsDII6AAOPctsSY55yv8AZ/eGm7b/ALzceM9t0PhVo7NDbZjdLLe1tU8ZmNUB0xRk0rs8fQ5iZHBwil8nBvw/tNiqlMe9EVc0iMszAadRzWmJBA1gHVU1v9L+F+JOCa7DVGgGabi0C5glplhFp5gTYaL5jvGP4c7n4T/EHunh57rVX+3wQ01wtdfU0/kzT0k6dSGRAAokQh0YqOnK5AGcD6RwrHjF0BWaMpuCNYI6dtPu6/EH+pXsVU4BxZ2CL/EaQHNdABId1gkSCCDFvTRRmPUjTdJLkYOSAScDvrqOEBeBaSTJupeeF3xf7p8LFq5JuG0YXfdlZDTy7bmnippaO016yxiarqElRmf/AGaMxqEZD1EEkr1K3A43wMY0MY4wPxQSDEGwi0l0XOw6wvqX+nP+pVTgDMRlbmc8AtBALc4OrrgwGzpMmPUenHgK8Nu0987gHi28T183RzJzZdatNw2iguEksVNRT+Yp+9rzXTx+VUuqmOVIIvMEQEbOje7GvJ45i3YKl/DsBT8NoBBdBET+GmBzEnQujUmDq5fXP9NP9P8A+MYge0XH6vjVCQ9lO3NHlLzZjWiAWskNDRJEEBe21Jc+Vtw7P2pW7q3Luy52OSmjpKKqsrR08FiDkpKCDl5WkjlCiaVH6lQGIR+71/OKmCotceW++bUgXAA2EiSAST+Kdv1dSzZi6YN/KLTMXJmSPRrQZI6rkVfPsvY1y8TvMKjYE23KK92qnoZb3e6mKo82Gw+dOBD5MheR18tWORnyQhQKrFtzxUdhqOHbZ7s9mtm2eBoRAB7bzOkecyZMdicTV5qYFO5cA2zJdJcCAMpHw2F5ecLbk8Wd5424/sVVsPa21bfTbchp60XiaZrhO8KeWI0gWF4KeBUqWRqdmmkwS7lOyCcV4ZhaVZ7/ABZM/h03vmmSbWLQAOpklD2exmLq4ZjThw1uURJImQCBlgwP+92Y/wBIGuW463BszZfJl3vfMVC+zNmVm1RdNoVtaamsT2qikkhqJpLhBL1ICt0iEazJEUiKRgEMuZXwbxhnMp8zgeYADRwsMhEzLb6yfQqNxjm41nicjXAxN7tMk5hLSIIA09NF2zdXIXD/ACxX0W1drb7sVwp7va6OxW280bChq6SqaRJSkhwMwosQiKuo6GlZcgudc+jhatNxfUYYaSSDcQBf5npYwNgu4KlJ1MFrxJGxkmfLb4z1vpK7BsrkyzUO7LtueLcK1dmprQ9eVjV0r5qaCJSiMO6pMemMEIqAtIgXuSdZ3YNzmZY5idNpNhfWDaJ6dAtdTD/yYtl066TNu1+ul+i43vPiLfW0aap3lsG+UV12nc5TuHcXHM9zWOz1FQ0css0lDGPKWIwhI1NPKzU87xBmSN3eU9R1ai8htR0PZYPgk+pmbm8EAOaCLkABcHC8LqMqePRaS12tO1wdgbkE/iaTkdLrAlbpxt4rtmb73dfqq0X7ZN7uQ8m2owo1hvQlAURQPSSgGlgBkkPtBLxMenDEsOrFV4XVbTHiZgCZubX3Lrg2iGgTray3Yethn8lGCRqATY6kEaz3JjvcKVG2bhfl3vcqm/PNf7c1O1TS3GNlaOil84xSxQNkFOgge+VBkLsOygIvNbh2hnJb8zvJ7dAD3NzK2YiiHMDY02jtv369Nl2Gx316ie7zKaypgEsUccjhFMgESkt2Pfu2M/HH5aqOHMA73WR2H0CzpvE3fFOcj5yqM/z0Pd7wUhw3RKN1mxlVjzj0L/8AhpThjKb3YQhG6VLdl9nBI7d2P9BpjQR93EKOnNXK+3E2jujb33jYKxG8qlrJKqoNPRwdUyBkknLdzgkEJ+H4kHXSwHDqhcHgHeLTNthv+Xqs7wxs5jYRN4iep27772XCfCzZNjVHh6rqyO3bbrqhKJpJHDrO3nGjDESksQJc5JHYd8gDOu57SVagxYbMbaAWtpb6rjez+CpvwzT5utybyZ3Py2U2tpV88m0trySVtYztbKXqbC5J8lc5OD315jGUAKzwNifzXawuHHhtMbLOisUElqqpf4d5D/TWfwTlsFoNGLpBrIgD77t3z3kY/wBdH3e9k3g3STV05zmONvj3Gf56ng7JfBVCuRPwRxqPkFxomkTui2gNghtdkjyGkRPj3IGoKQTeB2TeTcFMh/aVlMn+aUf66jcPN0TRsmj7noVIzWwN9Acn+GoMKTaCj4CF/aelbJR5n/ywuf6ab3R24QFIdUltxZ7rT1zn/wB3jP7yND3M6kImiOqbG/zN2FvlI/5pIx/U6cYSLylNJqQbzVNnppaaP6tP/wDsroHCjqj4Q0QHu1wJz5lBEPnl2/00fdhCJpiLBCNyrTnqucSA/wDDCD/EnTe6NjTREUx0TdrhUH1u9SP8saL/AE0vu46fVMGCNkL28jHVX1kn5ykfy05w41hAMQWraVv7yNZT8mmdv5nR93jZQtKBHV22nBWG20UYJLnpVO5JyT+edOaLkDTBmUU31Fx0KV/yqP6aX3YxdTwwEN9xL3y8mPqDoe6dERTugNuKIdjKgyfj204wpGihp7oDbijPfzox+uj7qgWBAfcUZ/8AWr+/RGFhHIm7X8fB/wD7aPuvVTIm7X/OSXz8+/ro+7KEBNmv47ftAdEYZAhNzfx2Jkxphh4mEC1Nn3APUyd/z0Thp2ULU1e/DsTJn9dDwCoWiE0a+gZw2R+enGGtZQthAa+jI97A04w5AlKRsm7X4A5Mgxpvdt1MqbvfBge+M6UYa6JaE0N9TOQ4/fqz3c6FAtkLJNvemKgfedM4H/5wOP463Hhw1XezlUd3W6Qe/UUEgB/xFT/PQGAKQvaTeEj+0tjbHULM2Pmkf+mi7BOndHO0pf8AaOwR9ybVGMZOHVcfuOqzw8kQR9EoqJwu57MoHTVUyEf8NSw/k2lHDSdW/RMKtoBRzuy1kYFzdfqtY4/k2mbw3t9FHvnU/VUu5qAM8i365AkYwLg5H6Ak6V3DpMFv0SiqNj9QnS7tgUe7uG4AfWpDfzU6UcMH9P5qeJOh/JHG8UA//qKq/Xyz/wDRo/wyNB+aBqDqjpvQkYF/lb84kP8A9OqzwzQwgHiNQjje0o9L2WH1pgf5DQPCR/SUC8RtKsd8VpHuXiNh8jQuf5HTHhTf6T9/BAPncffxVLvi4g5+8YX/AP8AXyj+TaLuFjQA/RWeIBYx9UVN83LPeankA/8A5OYf10P4S2P8Ite3b9f2ThN9XI4zFCf/ANBMND+EC9/y/dIagnT8/wBk0uu9rgKGWQTU1ulQho5/LdjG3z6SPe7Z7fEZ0v8ACdhv99VY1w1Ud7rzrJthaGpuO7bVEK6s9hMU9E00VYPeLRxwKY5Y5Mk+mQxPzKjVw4QDLcptfp85kR3QOIYCJIE6X/I9VG/dfNu6rpT7r3VS0e05+O7Fb5Wl3NJUNXxMoMcfsVqoenqqrl7wp1qHMgjaRUKSMTHrp0uCgNbJOZ9g2IJ6XNms3tci4gCRwMZxl4e4U2gU2DM55MtbGogCXPieWQAfMZOUx24u4y3twlx/S36fcN+2byzuymgqrhVXKrW8wSZqZHgomd+lhDSRyRxeQhWFgsz9JZjrpcQFGo8UWx4bTbLyyYEu3u4izjJiBMLh+znDK9CkcZWk4iqD5znLQSS2mDALQ0EZmtgF0kglco5X3/y/vLdm4958h7a3dvvbk1W1TLQ7epp6WzVaUkeWniqatTKpdGZAYwwIYN0tIUBelwRlFgFKzti8wb2gtbr8T2BiYzcT4viC4txDC5sAFtMZhLbky4W3sB3OgUc79U0fIXFEO5rZxRaOOtmXOre2VO8624/sJJJ66Gmf2eCnpmWaOFJIXVVCTVEsQfr9IpOrhsM6nVaKr5OuUA5iACb3BBMQAeVoNxNx4rH4ulj8Aa2Fw4bTkjOXNDAXODJAghwEglwALi2xEXd2Db+2tvbEvc/HHFfKnCdjsl6rLVdeUbNSVCwSWmDyo4oq2kpnmRauWnWVKqpqKZUpJXl6j5irEllSnWqRVxOWoCJDZGaTrDhlOQGIyudni1iXLnYTD4HCUnYfAtq4fK7Ka0O8MtbEF7CHs8RwnNnY3wrFxGVrTu9NyVxnYt8X/Z/h54g2rylaqSxXtIE2deJLk8000NPV/et03DUMInnp5qGhkeA+dOFdjgEmPWQYXFVqYqVn5Wy2MzcjGgGMrGQXXDiJENOknVd7+I8PweKFDhtI1qkOnw3eLUeS3NNSpIaILQeYuc0GQyBlMmeVtweITmKh3ZuTefBXg3uXHW5qCO3Xay3jkKrmo6yqRx/t8s0NvCUdWJJQhLFSSgUgsEfXOw+Bo4Z7cuJcKgOopGQOl3SR8D10XZ4q7ieNomk/h9N+HcIc12JaAT1EU3BpHWR8188yt4kvs5+eBfKfb8ew9w1VvuFDRfeVIlxgrrVNIYpAvmIvmSIYkPUVV1dFYqOrB91icNRx+H8MulpgnLaCL9TE+vod1+PKjuL+xvGPefCyu5g0OlzSwmDcZZIgTYXF2wYXsltHeXii492rsCPj2r8M/N/G25KWPddns1HRXGym5ROI1ljpZmeczyL5UayGVGcyyyM+GV8ePr8OwteqSXva9nKZDXAaxZsZR/TBsANl+r+EcY47h8LTrYVtCvSqgOADqjCZF4e8uDnbukN5idDIUlfDz41eNd4XTemy+Ttr2Tww843WpNVbNt73ppKSGspKdBDCKaoCR01c7ftixToyWHSrdA1h4lwLE4emx7iXU787biTr1ItAvO86rt+zH+oeAx+Idhq7Th8S6wpVbOIbYEEw11ybNPaNSvJr7cKJR4iuJJbhVxV+8/7BUyXaVaoSmRVq5xTkoIo/KHQG6UwcqAcnOvSeyJYKFRtMy3N9SBN99l+ev/5N0GsxuEc61Q03SNLB9rSd819/gvF2Firr5vcE9Pc9yD8tetncr8vsEC6mz4Btt8dX3xDW6u5ShtlVta0WO7XqOmqR2q62GHFMiKY5Q0gkdXVCjAlBkdtYeL4l9PCudSkOJaBGtzfQiLbyIX1P/RvguGxvtBSp45odTa17yDEEtFrGxvsQZ7r6sLhzpdLhdNr2C87Z3bx7TpAtDXirrS9dU0rKhjKOwIowfMCuVLOoWZEVQCdfL/4Y0BxJDpO2k9zPNpMXmxJ2X9AKWOBa2ixuUDQEAECNmgQ21rxGkEgFYrf3Ic20OPKKu2JZtv3qWpIoaOKS8VU0NV5IiT2h4REBFHT/ALILFCAWXpiAyUC2MwQfUu7LuTlAInvNy7vbU6Ao4vFOoUnOpszHQCZB+AFg3UxJO1yJ8sN0cwVm2OOv7ccmb2tNNadzcnR3m619VG1TW1VDTs9U1R7mGcssVL10sYw4kAHu+5ruUsIxlanTpAlzWWA/qNgLxoXGHHcTMiV8r4px3weHOxOOeBTqVhmJMfyxM2AMAsYJYCTlMAQV2m7eNrxFcqborYdncU7U2Hx9DSiWCp3rRXH2u+QSll6+mmD9KumMxtKCqu4ZicgU0vZJtFs16hDv6WBrg0i95IuD2IMCJ36TP9S8fjKxbwzDAUoBD6znsLwd2Na11txN4MmLRvtLu3xB765U4/5J3FvXwuXW4WOGWC0237su60u4qi4U2AJoonWSNY16eosrKFjyVPk9Omp8Jw9Gm9k1Mzty1pyhpkm5idYi/Q8y6FXE8VxL6NaKIYyTDXv5y9oa1ulu4IO3QxrG4l5U3LUDclx3Hw5xftGooR5Vxt+3Kuoe+VFRKyM9KlXOip58qtIahkhYRovUDFldL7vQZyPc9zpECWgwBIzEB3lESJNyd0MRR4lUIfRFKiy8uDXu5iYOQfy5k2DhAgbgkrNcSbT5p4u3rFQ3rmva99uVRFHfYqC72uuho90EVnmJTUMiSkOGnek6f2RKezqCFjJLWYjDYRzP5LHCOUHlJHKRLhaIEm53nUQtGBocXpPy4iuypm5iIc0RmktB57aNttIDbyuscm763jviCusXKNkHGtLuCjuVNPDct2tFbb1VMrxT0lFV02I4G6RK00c4heZ3yiyKr5wt4bTpjPTIfEGzZjcEg3jQNjMOsGF18VxKtWIwuIYaQeCDL8oJNsrXN1cQSTOUj8I1KDwlFwjwxR0fGXJ9mtNj5EesopXmuiveaapWGGJ4IaarCmLz1icxezsVZAnWUTPSbMa7EPIdQMsv5bXJgmDeJuSB2k6qjgmEweEaMNW5ahDQA83gDlAcLWAsJBm8DVTx3Hy5a5q2Tb9ovNffNv09rFRKlrWGLzvMYhKRZB7iFpA3mA/hVkX1bXEZgM3MW3mLm0i8neAPmewXrm1A2IOt7dNJHcwYupCbN5BgrqianW8NU1LxiaoSiYSQ00zEnyI26B1KihV6gACB2A9NZ6mAjaR8p7/H5pAZAtH6fHddCbc6E+9PfcgfFwgP8tUe4TeB8/7oEdPy/shjdcK5ANU5+T1q4/8An1b7mdwEoa2dUBt60sUlOJ2o4euQKvXXDu3yAz3P00p4eSLa+iaRIlRmve7qOx8JWmlvEdopa1ZoVljkRqqaNPaZH7whC5XC+uMDOddt2Fc/FHw502t+HrYBcSi6mzDB1aNbzf8AF8SVxfwt8pVNu4+29TU+0Rua3rQ2/Bp9vVAmpVamIJV2Xy5h7uMllLDvk+muv7RcJc6u50kGTqRtHe36Lg+yuPpHBsgA2GjXA3nqIPrupz2O+Wu60S3izNboIpiVZkoGp5AyEoVdCVKspUrgjtjXk62BeDldP0P1/VewoPYWyzT4jTtaFljW1IIZdwXWA57hCvSfphw3bVZwgP4VcAeqE9fcgzMm5bi/YDpeOPp+Pf3Qpz+vw1Bg2bt+pUv1+iT961oUrLVe0/8A+TKmf56PubfsIShfffbpqLbK2PitSJf/AJiDqHB7iPv4JgbRdCO4LdEQZLe8fb1alLD9SM6IwZ2SamCiJuy1jtHPQxN9VCfwIGocE6LyoQJR13QkgBiqY5B/yPn+WlGEnVNZIbcbH/1jZ+p1DgeyBgIJ3FnJ68/ronCCJUkbof8AaA9h5hzqe6SoT0Qmvzf+0/efXU907IaIJv3x8zt+eh7qpmCA19yDmTB/lpvdDuoTCE18HciXAxnTe7dAoEI3wH/1q/qdD3YhAuQDexnAmGdF2EtogUFr565lBH56ZuFRDigNfGz3mXH56Iw28IlNmvZ7gSjP56b3YdFJ2QmvZyR1/X10vu6Eymz3vPrIP36cYRKT0TWS7oc5MZOfiB30Bh+qndNmuqd/eXPr20xw6BMJs92X4SN+jHtpxhroTdN3uxyf275+jnU92HRTN0QGu0gbtUPj19dEYcAaIC6bvd5M/wC8MT+mp7ueihcZTWS8S98T9vqNMKAS55TV7zN3/bofl2/8dE4bdDMQm5vVQMgSRn886Y4UahRxQWvU/wA0P/eOp7sEA9N3vcxyepG+ProjDQlL00kvc/yT/wCP/wANOcI0FQPMWWMa/wBgIPVBTJn4mlYf/Tr0b8M83Kt94ZKWm49u4IE1FGPT0K/6aT3UnUINxLYkFGO49vH8dyo0+PasKf8A1DR91dsPp/ZK+sw6n6oi7ksWF8u/wrk9IK3I9z8u76q91FyR9E1PFg6O+qfpuCjGOm+yKfl7apx+/OlGGb0+/mrBXMaynS39APcvc5Pr/fxn+mmbhGnZAYiBcpwm4sHAvMh/78Z/ppfcp2SuxUbo39opTjovTBvTOEOoMEBqFPerWKpdxVQB/wDTqj84k/107sG3p9/JFuIcNXIy7oqV7G90Z/OMD/69UOwINo+/koMX1j6/uiru6UD3rvbD6f4D/wDt6Q8PnYoHFbmFcbxP+K52k/o3/wC1pv4feyIxfdKG81+NwtXrj1b/AF0f4a6xAMeib35up/NFXeKEdqq3sfp16n8NcNQmbjGnf6pX9sJP8MlC/wCfm9v/ANXQGAEXn5IOxkDlj5/2XON0b73jR3BXstw2xTU6DzohXwVRUkI3UFmjTIB6gMFT0+ucdtW/wtm8/IH6SqqmNqCzQ0nuSP8A/H7Kgzzvy83KlDe9imnsu2bvdZqa3VtxidhU0NLNIkR8iokjUN19QAkUqydPV0du23DcMyQ58lguQRAMCbi5iLkEfnK89xzjDatI0WENe6wM3E2tpcmwIMgx0hbttm5W/lKybJ3W16oducF7Fq1o9i0A6IYbuabFPFd5RIgVolj6RSwgAN1vMfeeHoUUC0uc69apM9Wg3LRH4j+LoOX+pZMHXZXps8HlwmHMA2h5bbMSYhjTdv8AW7n0DZ53unfez7zvTascl8tm6qyn8ub2NqyoqY6kCeObNRRMwhEcQJfpVcMAAcN2JGDdSbmHKesAdrONyT8IJst1bi9GtUFMOzdg7NuNWgWHXW11y/xE8wXje9fY9uXa53uzW01Hnw26zeZMKC2jpeZ40ijyMMYwJGljjhYkBi0eBZguGAOc7LmI1O07AyQL+hLul1zvab2gLWCkwlk2AEk5fxEBoJO0GwaYuCFDfdvJe5Id/wC16DcWzN6PviK5NaNr7TippIVelmpGp473VUJleCmr3DqIUc9CeUpcN1M430MCSHRlJI5nSDF5LMwG8HMRcTA0APzLiHtSaeIoiqx4LXZaVEBwz2IFYsOkEjICYJGZxl0t9GuP6m0Xzj2y7H5Tavu3E9LCLXZdg7Xq6lLB5JVmWlrbjCqy3ib9p76SvDGGWUtAc9Wsdag7xPeGNDqhM53DQ9WsNmARZxzGIhw0X0bheHbVwwwuJd4dGI8NjrunXxKrYc8unma3ICSZDtU5vY42tVdsjb0m3Nm2azQ7t8uajhpFoh5T2+anpQUESqsaSLGhHSyOUXq6iygo44h+Z7nEujUyYMgkz13FwRstRo4HDeHRo02sYHgQ2BbKREW9DqDodYWX5KoL5ZducfVtdtXb+9KG3L5kkMtc8tXI0il5C1YADV06MxkaGaPrQgAFhoUsKHud4TuwtYDSw1adrGCt3EMU6nSDnszdeaJnraHDe4kAdF5/+Ke1bk8U/AVPabxtW20XIe3aVGsa113MdRapaWWSKqooROiyVEdQrRrHGnUXlTr6kSIKejwygaFU5XSHawDewINpAjUyQA3Ykr5T/qLw93HuD+G+jlrU7slwBaQSHC4BcHCBIBzOywQAVDD7O/xBVvGvJVDw7u7cDbIstyrZY6evqZRTvb6kKfMoXLxlkWodAg7qI5TnDFzq/jGCa5pqET1HXvYwY7zbSF8p/wBEfbl2CxY4Tijla4kNLoGR27bgkZjoARDusr2Q8WNXYN4cPxbY3JZONeUuNaKT2Zqqshdp7aT0oFjaQN5HS7xddUhUlmI6Q7hjy+HMcyp4tJxaTtFj69R0ET3gL9Ke3GDw+LwRpYykyqwbuN2+nQ6cwIA6TAXzWeJTYFVx3ybLZKq83m8001rorhS/eNU1RUUkEkWUpmlZmLCMDpByMr0nAzr0OHNPKfDAFyLQBO5svxB/qNwivheIBlWo57SxpbmJcQ28Nk65e0CFHsoI2icks5wcEY7jV5cLgLwRp3B6qVPhZpHu125Wtn3XQ1YrNmVtG1dUKWSyrLLDH7YPh1p1YHV2JbuR6it9Nzg0gwMzZ6kdB6/kvo/+mhz4muzLJdSeAb8pMDMTI09b6L2N3DV7R4+29YrheH3OKGxrUvGZbiK5pXKiFa2elgnkCFmEY82JP2ZfpVlbXn/AJDhSa2T0+cTF+8kTrov1tVrUcLh6b8Y97W093k3gAZi0EwDaIByzsVpVy5z5btHG9fvveFLbt98ibqpaez2WGmlllk24J1WGPyqeNfLeUrKWDMwZ5PNADAljd/BGMcKTbCZcSNQLkSYgQI00Guy4lT26x9LAnHV2hz3gBjWnyudytloBzG4cbgzYDdcI4y2DtLxCb8vm+73deT7nxFt28UFg2jQtQRM8/skQZ5J290JCsqqTDGVMnTh2HRrpYbPSb4gaBVfLiZsBNvU9CbDUTK8Fw/hOH49i3nE1nOweGLGMbkgvc0S6f6WzrAzOgAkCy9Ebly5eIr3yFZZd+1FduapoqKgxHGkk8srO4jcSF5AWHWjSFX6lY9lAGuMzhjeUZYBOugt8Bp9YX3L/ANRc9Sn4gzBotuJJggSfj0tbUrVbjy9vKr5iptmvdoLxyTaLAn3vGLhLTRUKyyMk0sUTKscVO8EyFJZZYlSNyAAelTGYKjkdswkXIF9wCZ1nUAEk2g7Y6/tDXGOZhHHPWY2S1uoJtIbEkRoS4AXJPXrdl4r41hqtvVO973T8iVNzmlWkpLRUSQUlvkkhUQQpJMFjCiOJQsy98qEjjRXCvoIIJ8NvMBJLhBMGSbX1Okd3GwA6dDBsexpxLpYTYNMtAiAL20GshoJIaLlx2enuVwnuO3d6zUFtv7s72aGCSll6kaeMq0wSRMBhJTxSdbMDgM2Ex06qGDhpY2RNzpEC+oPQ9/UroVMXmcx9RoIbbUzJtoR1A6CLgLbdz32w1lFfONd0TUW4fuuCpSWdmC2+41FaskMccNPgIxRjJPLJ0uEeMBCxUgJh6Ba4VG2mANc0CCTOzYsNC6ekK7FYpjw7D1gHRcyBlm8AzMmbkXDYvdc73jxvxDsWDdb263XS7WurgpmnoquGaU7aEM6P960cUgkMEa+8r9KtiLpaNXYurXsc6Za2IuTa4/pMRr6iTawErk4vhWHosdmJc0xaS7K4fjbm0ib7AX7LN8abug21JVczLs27ck7Nq56hKWO3xmR62IOY1uFQsh8ozL0qi9R8zyEZ5OpwGWvEYN7milYPP9UDLP4et9TsCQ0ECybBcRptzYthLqZ/pl2a8ZomIGg0LruIlT04qFYKSpv+4Z4o7hPO8iW9Io1S1J0hFpndRh3QKx6QSqtI+CxPVrBWwjRAFzue/beNp3AXpqGILhmjK3Ybx36HePmbLsB3BRRnJe3A/wDc1n9y2CvOIgXSxueADMc1Pj/lx/TROCO6RuIHZXO7MD/egfj2J0owBnREYkFcp5Y3Sai1WuLzZnXzppWxE5yFgcAk4PuguCfpkeuAdWF4dBcY2/ULDj8YcoM73+RXJ/DTuCC2bG21E1uqpQ237M4FJTsVP7Nh1JjBCdx+RDfPJ6/H8DnrvJGjjrH1+S897GYwNwNEj/8AWzSfp812XZV4nsVpNorRuCgqzVVlT2jlMfQ9TI6+9765wynGc65mNwAc4OaAbDpsPgvQYHEloIeSCXON50m3X81t8m8CgBW/xRAevnonf9/SdYxw0QTlW4YyDMhOF3TcugNFPbqn5YLKD+7q0owDCYTOxJ21Vv7XXBcCajI+ZSZWH7m6TojhwhAYyEJt5yK2Hgr0/wCYRdQP/wAJOoeGwLIHFhI/trAP/wC7ER/5wy/zA0h4bGoU99b1V13dDOD5VZDOvb8MgYaY8P6hEYkG6bSXelfLvS07fXy1/njR9xtql8cJu93gJyrTRH4eXM6/wBxo+4bQicQJsk/fcwJKXCtB+RdWz+8anuAjREYm2qGL/XocrckkX4B4R/NSNQYEbC6VuJI1QW3NcgcBqGQY+JZf9dQcPFyo7FHZJ/tXXD+8pA3+SdT/ADA0v8OlT3sITbvkXBelrv8AuqG/kdH+HHdA4qEL+2MGf2jzxf54XX+mlPDnbBN742NUht5UfYGugX/M/T/PRHDzGigxjeqWN0QyANHUxSf5XB1Dgwm943VjuEkEhyTnQ9xQ94QG3AQenzPj6Z1BgZvCAxAmyA24R3w+R6+uiMJdAV0M30nt5jHt89T3IzdT3i0hN3vxz/e4P56YYNDx0B783/tGx+elGDnVDxt0Br9nv1nR9z6BQ10Br6Tj9of36Hul5hB1c7FBa+en7Qn9dM7Czsl8aUB74TgeawH56Iwo1hTxwm7349/fPf66Iwd1PHk6ptJfTj+9P79E4W8wp4ybvfWPbzSR+eiMJdKa8IDX1hgmQk/no+6DUhB9e90Fr8xBJk7Z+eg7CiLJTXEJs9+JXHmHHz04wkFKa8JrJfycftNEYPsgMSdJWO++4gpASId/+Ea9r/D2leTHG7XS1viYB6IQfh2HbS/w4KHjPdHF8iIIKQk4+Kg6T+Hbqz+MBKN2o5ABLSUcnSQw6oVbB+Y7evfRGBI3SHi7OyoXG2N+K32xvnmnQ/00XYJyb+KsmIHyRkuNtyuKG3DB7DyEGP4aBwPVOOLtmLIntdpbDNb7bn5+UoxpfcXBE8WYVcVNmOT7BSA/TIx+46jcG4CNkg4gz7lFWqtajCQBBjt0yuP/AKtL/DzN/wAlc3ig2/NOkuFKoDK04H0qJP8AXSOwG0I/xWLSnC3WJfSpr17entDH+ugeGpTxZvVHF19CK64D/wDT/wDhpf4de4/NM3iY6pa3lvQV9eP/ANKD/TR/h8nRXt4r3S1vc2MfeVd2+br/APs6n8PA0RbxWBYq0l7rVjdobnWvIBkJ+z9/6d17HQ9wHT80v8Td1/JR85Q5fkpbHFVW/cFwpOmojikaOkiq3ctL5bQNAyKoz73vlgVK+mNKOHjXKY7SNp1P1gFZMdxstpyH79Ad40F/jZebO8+cd7bgt6bb2fa7ze9+3utmsslZFKppnqK2P2VUleRGeoMcQl6WQFUbDKxKsutNPhkkBoho6/M2HXvEi3Qr5vxn21qeGWUgXVHnLaIlwygEmLjXlBg37KQvCXHu8du0tq2vf5C7rLJAK2hxC1FTxP0GKgYIGghHXEobpMnSY1PUACGdgAOYaamd/X84Bhd3gHjYek2hV1bYRENA2aLCNBJE2XSfEVvzadws1p40v22tvTu1YKShSriRoKApTtIjyNHiWNvcYoilJGkjXJAydVUsO9pzhxvM777CIJ+YAM7QupxziWGawUKjAS4wJteJBJBkaep0CjttXd+0ePrc+6KmW73qiio+tq+6N5knIG4JQFZA0cR8whUVI4/2Uaxq0gwhdjKlE+Vrco0aB+Eakm9idSXSdBqAFxcHxTD4UGrWeXmLucB/McbBrYmQNA1ogmTeS5adsPbFZd987X3A1RbJuZbjLJuq/wAd0pnhjuBERpKKFlbqJmT2mb9o2QuAo93pZbhhw1ppXDWCAfW509PX8lwuHOdVxNPGENFeqc7xcSGjKwCZ0zW2gaXBUx6PkGo2ftQ33bEcN8235+bnZTa5pXsN2HaYLGWPQGYl5ISViIZZ093zM5XYPO85RDvgJG2vbe/TWF7yjxltCkXsjJNxDuV29u51H/yFiVxrk6rr7/Twb2uVyprU10r7VSVNCY+uioVgqY5I1hWNn63QVVRK5BKe8TiMIp1bTwQa4NAnUyNTIjQgWsB19ZXO4nxB72Gu90DlGU6CHAgzJvckjTpZsrb9t80T8a26m29DfLTYeP1tVVc6KuNCJjTmWSQVMUzzy++Fl/CzAv0P/i1lxGEhxc6bRaw9NAdegW7h/HRRApvLcsF0nMbyZBJI07kW9FheHNwUe/xbNz0G87dbuQ62I3GjaCjg9jpYpv2EqsEEfTKwQZIyCGyO3WBbVYxrHNIMaEzBteL7T3HfZZOE4/3lwxAeC43aIEDUTbePXfLqV4yeL7hf2CjtXOll9hqbfeKiWK8rRU7xx0lxDt1hzlkLhupSUPSVEberMda2sgZRtpppt+/02X5z/wBTvZsBw4tSjnJzhs2cDvrBm3yJ1K2XjPxB7535xguxKnflyNfQW6pgrLQ6wedc4SyFJaMuQ0koWNupcZVjlQes5yMwlKc8XtF+nwMbb/QLr+z3t5jMZw/3Q1eZrXBwIGZwtBbJGY6yI16yuLeMvdVHu7fGyr1blqpqJ7BGYamrkjNTXKZpG86dEJ6HJZlIYkt0A+hGpQptbOnoNrafqvI/6q8RZisRh6zBILDc6m5uRcjprtayh6CS6qrA5B7/AAJOtO8FfKxUP4V2ngzkP/ss37QbruFyusW34nhp7tQ0FYaepudE8qmSKNh2JHQr9yACFOlc0O/DMaeq9X7HcZfw/Ge8OeWsEB4BALmkiQBoevwXpq3iSs3LAve2uN/D/wAq8j241UVTSU9soYraslL0jzZ5ZVBeeolmRIupmcBRJ0gvJkNTweLJDy1o/wC42HQAWA6ki5sJiZ+6VP8AUDAYzNQwVGrUba1NgBI1c5ziSTewBsJLomIye6K/nnm6+2Dj7eW8NjcK7Skp5ty19os1yF2vtr9hBgihkV1VIahpK2Xy6VekhgzdikeEpcOpAucXGplEQ0ECXWIkzNhd2kepVmP4txrib6ODeW4Wm7nMua+o0U7g5RDW8zhlbqTB/CF0Ox8e8bcTWXbOyNqcgcrLTWm2tcLhSx3qoovZJpG/3mpK+UKcHqcmPI7HIYDuBiadN7y59IDaTf4XNz6R0ibL0nA+HUOGYeng8NiqhgF5AIFz+Iw2Wi95JO65dUWp94XC31NJu3krfzzPUUlHWXm8VtJQz1Id1aKgcFJJFRzFKWGCY1dmkGMFzhGUgS6mGW3EmNZIJgQJsYEwIMrjvruxVQFmIfVJJAIcWsmYhrgOYzFwHGJOYALtXFvGnFdmo6PdNvudPfN13Ohlulcbo9LW+UnTAIE83pYFpJDLjo6ViDdwfLDM7qwAyU+UN6SJMmY00Aud9omF3fZzgOFpH3lxz1Hi5dDjAAibmxceUDQRMkSpDpzFYL7b7nV+z22hvVDbqukkWermihjgPvLPLUoEjjiBji/CWy3bp7HWR+GeGmbabb9IJJJ6D+y9tS47ReIbZzJETtGsgQ0dTNlm9vb8q/8AsmqKnelNv+e4pCzUVA1ulp6WaR3bpVvP8lApMsS+WGJZXQEYJj1bXweV4a0DNpJIn5SSTY7GO5EhcD7Qk4U1apd1gA3mYuQBEEXJEjpN4z793tuqSosX3nbNubJp6uopbVbGa9MKm4mnMiszvMwjigNR1NLKmVjUBR1llVozBtzCTJMuiDAFoJgSbC1pcT8R5niftBiA0ZW5RIaDmBc4yZABIaBNiZ5QDOsGa+2325WRWekrGt+4K2ot7C82221j1JLMehPvS4yEyTRZMWVIjjVAV8tgekMaLnCKYlo0JENB6hu51MkuJPTVetpVQ4h1eznAy0HM4joXWgdmhrb6wuqWLZiUcsF6t95Fup4qVLNW0FrjWvppohG0LSxLLGWd0DHLdPUyBlyQq4X3drpMZid/L362Hx1uuhS5IDOUNsW2I6drj00st52Zcqjadztu16qhn3HEKWSekv8AJNHHTVNEoVYkOT2njAEbDBJUB8nJArfhZBeLfnJ+GnyV2HxuSKbpPQjSP3Gn10XbKC7KKcS+ZA7yM0pKLhQW74Hxx6evc+vx1V7rBgbLYMY3VPPvrGPfB/I6HuiPvgVffR/9r2H/ADaT3S0wm97XJOT7400dNTIxkdaKrkVAC3msVCqnYjswVxj44I7eo00MJqT9/f30PMx+NmG7369rfH7vcaVwFdJKfbG04mXyf/3ZoBJEBgQuIoW6V+hVw+P+fP8AjAXo8YoTXeT/AFH9fv8AvK4PsZiyMDhwP/1t+Fh/n66REhPvk9/eYH89cj3NetGL6Kz3lmDB2DA/A99T3SNETi5TF6ykYZanpyT/AMgH8tM3DEKv3kbIAq4I/wC5aph/yTOB+7ONT3USj713SWuE2T0XCsTBz3Ctn94zqDCCNNVDizEyhm7169va4ZPl1REfyb+mlGDGiBxhhNHudQxPnUVrqB884P8A+sp/np/duhQOK6hN5LjGPfa1zI/wMMoB/gy6X3ORFo++yHvY80H7+KR99ooOZL1T4+DdTD/6tKMEdAEW4xvX5oL7gVGz99tEpP4ZYlx+/AOrPc5uAgcfB8339EpdwSsD5Vfb5j+Xr+eGOoMIJkqHGEiWxKoXyvGcxU0vwJSQj+a6HuYUdjzoUNr/AD5JankGP+F1P9Ro+4oP4gAEE7jJwGgq4/h3TP8AInUOBUGPCGdyRZ7zOp+qMP6aAwJ6JTjxOqE25aZ+xrImb5F/X9+m9zjZBuPaTqgNdaR+5FI7Zz+FT/HTe62sicW1N5aulkzmJCfgVyuP3aDMJCDsUN0M1yL2SerjHqMTv/U6UYMaAIOxo2P1QDc5QMLcK3t295w38xp/chEwoccRaUA3arBPTc5SPk0aH+QGicGI0Se/ERdI++q4E5rYXH1iI/k2lOBERCDceeqbyXy4jHRLQMfXuHH8s6gwLQLpXcQfMjT4oDX6vxl0pX+qzMP5rqHAwieIu1Q/7RVWCDT5/KZdN7jdAcRdJlCfck4z/s07Af8AC6H+uiMBJQPEkA7ncgg0teoH/KD/ACY6X3Eg9Uo4kO4QDuhcsCtag9O8Tf00W4Ao/wASGhP5oT7nhznrnUntgxt/pqNwNohE8UGkpu+5oB6zsB69w3+mp7keiA4ownVN23TSZJasjH5k6YYAqr+LM/qQG3VRH0r6b9ZB21HYI7phxQGwIQ23PSkDFbTZ/wDerqHBEKDiI6ps+46fA/2uA5//ADB/rqDCCZQPERunDXNlX8ZOvaOoAL5aOKEWVC5HB6WJ/LSDD3lMzihN90Zbkcdmzqe7WuoOKOKULk57dXfGcaU4YJXcSOoKKtzb16+31Op7uNITjijouiC6MAMMRpxhoKI4o4HVFF0xkdQxpBhQlHFDOqKtyOBl9RuHumHEzqlrc2wMsB6fH00fdhKtHEzqSiJdCf8AFn9dB2Gsk/ihN0Vbo3bDd/z0BhxMKfxM6IouhyD1HHr66X3UaQmbxU6Sri5kAYbA+uj7sFc3ihQqm+ikhaeTzWjBUMEUswBOMhR3P5DTe6TaLpv4tAJJXO9w78rqj/ZtryJcK2UMlM8TOhhlGQCXaNkAHS2QxwQD+lTsIcsmw7qqrxzZhk9lHG97gk33R1ke57nuCWhgrXpqeO2iVKS6zvGyyylowmKaQuY1XPXIoHorEvG4YOE5Z9fpINp3iIG86Dh1+MGqXNe8tAOxiTvcCYvEzJi0alhafb5N1bMp5aLbFp27ap0esp6aFlqaeRopY/28oKRMgZWVSB0qI2C+vVoNwjz5yT2i3qN766Xt6JW44h1NjGhrRE3va0Eael7XvNx3HeV5egsbjb8u4aikWp8hK41coqJ5yMtFEzlSYWwpaVCfwqq5P4a/cwTGUen5E9u25K7NbjBaCWuJvr0PT49bx1lRl3tU+VsOprb1tekoZKCplofbqiaSWeCaR2FRVdUbMMssjIoVmIVZGZupgQ7qRDbReNgbC4/c2GwC4tfiU081QGWk3J0cbT8jAN++gUf9rttq8bovqb6sdNfdsW+0z0lL5KO0NxmlhZo6l4yQRGAEcLgOOkdWSCBmZSIBqATHbSNZ1uPkDovP08VTq4g06w5GjqYcSLHYx3ubXMWXVKa87e3Pv7kyfjSCk3BR0W3bQkNYJeqlEymWpHm1QOfLPtDIWOXAjjKt27PTZnGoAm0j4WGvwFuq6/8AE2uxDvBOYhjd++YSZ0vE6iJCe7i3rdOP7hSci7ipLBdIVtMdpv1JDNUMlZam6lNSMoeuSJXAZ85ljadD/gAj8Kf/AG+aO3Tb06DYx1VtfjTqLxi6trQ4BxuD+LuQDc7gkDZdK4/3BBTbY5JsdNa6yvv8FD5tuulK5uENttpUvT06svSUWF4jG4C9R6VDAnGmfRLWkAW1O0nfWJ7bLTgOJthzDJMct5AadNJjS51Ij0XErxu1t7cdCj3K+2KGvgpqI0lLUUJeWrknlRwCyFSjd4yD74GHOcsNV1Q0OhxNzbTQev3t1WCrxhuIw/M1sASQQZJJ7fe/RRvflqn40vlwtsG27Z92UVW0EtfX1QUVk0SGWUTQsWd5gOpom95BLIUy5VU1krMeLkADYRfoI2vpOsSR1Xnh7RNw1QsiQNXE2JgkgjW1yANzB6INnvPJnMe0abi608a2u124Uc9lqKqGAXRhHJOWEj1kjLSUohUrGTEJpwvVhQT214fhtWpeYB3EAH43c4HoAAesLn1eP1sdQ9ybQsJBnnIkmDEtYwtBu5xJE+WQvM3kTY+6OEeTLxs3ckET3u01RVnQypDWoPRkb3X8pwSPgcFh2Odc6tSNN2UifX9rhfH8XgqnDsZ4dTzMOoJ+hsbzrY6rbfEBurjTdV72VV8X7bs+27YLDSG4xUPmqjV7r+2VkkJw6lekkdm7N8RqivWNSoSfTSPyXV9qMVgarqTsEzLygugkjMdjO43XAeo+dKhZsnPx7fTQIvovKNJuApW8QcVWS+8X/wBs4bpcbbyQL7LFaI5qL2ijqqWOJA/nIRhU6nlJm9E6D3yNbmYd2RoAIJvI2vb1HbfZet9nuDUq2Edic0VWuhoIkG15EdTroFJTafLSQ7d3vaN53S+bN55o5aahpbbDUm2QVVOsbHDv2WNOqRJOvqPSAH6MgEpVaP8AZqXM6n5ba72AnaV77g/tGG03mo8067AAGN5Q706TIvIG8brLcLWze+6pd6XTaNfumLc8opbQu4aK9BI6MQBmlmkkR+upZ5C4C+4j+SZC5GcXMw1N7MtgJJ1MwBYBu25km06KcDxGLq1qlamXeKQG5wRAMy4udebwCADmI1G1XvelPxRcLNBPet38sbvqqiSpShvK+ciO6kzztR5AkqI5TKy1Tydm6h+HJFIaxr/DoNhwETNwOx0aD2AJmZO9+O4z7qWuxFR1dznDlIsTuS3VxB05iBoANtI3LuLmnm7ct0rNy3w2K30hevM1Xb6iSsq0McUMSVcdLmPqMaeV1Fu6M2SwwdOzgzwc9SflMXnU5d76bWC5mL9pcdxCtlzCm1pmTIJtlHKwuvBI10Nyu47PG99lbg2tLuO5cScbbMqI6uy0u4rVs2SeaGSMdaxwwzO0UdRPl1VnQ4CYIGVGtApOPne5wOwygm9hIk9zHz1XfwWIxWEfTa9tKmxstD4e4NMTOUkCToJjTSCJ6pbOPuVK6Ghh3FcbNf7PDc801lvUdTabrMomBWa5TUcE6SOOrJiIXy+xGXUEXUsG1sE3PpmaPQgtk7T6xbXquqY+o0NqODmSYmab3aEF3K8RaQ20WkTAWSbiXnCdZN3WmSWw1EclStmG26yCpmoU8zCyzCthSWd+8jhY/KIypADE6V/DmlhY4666stuABO27idVsxJ4m93iN5Q0nJEVI7nNG+zWg7rcuIeKqKrad6DkybfW45aKehulbX2yKJ7H73lrTuzL5oSPyz0wBVUFmLDsTq2lhqYBaAWixN9fkB6STAFgtPBqbgfEqVRVqGRceX/jqYAN4yyTrKmXs610dtSr2tsq5UjezSn7zuVKC9PDMUwYIFT8Pu4BI7p6Z6iSGNBtQ5zOX6n57f40XsMJiRRmnTIzbxoPv+5upB0N1p7TBRW+neAOqRxRKmB7oHoo7YH4fQDHf5aV+Hl111W8QyiAgW6liPtld7ZVR1dRVyTuysGUYdsKqOGCgHqbsB7zsfjqNw7YAiLfenayUY45iZ/b5LZ4K/wBmhEKzzTdyS8jdTOfiSe2TpThRqFa3iJ3KKLseg/tPjoe6qfxLqUlrs4wesn4ZzoDCSdE54lO64byncJauouMa3ettxFmmjHllehCRI3mPlSen3FTsQSzxj4nV1LDgMdZcbieOJcA10GD6Xm5nb07dVgOFrhPb6TZNI95qrgx27DGVdkwf2UMgKhUU4XqZDnJ6xIPQDW7iOGaTUht579SNz8lxPZfiD2UcO0umWDp/SCNADa43vZSKN2YDtJjt8/XXLdgwvZ/xIm0qxuz9/wBp+udRuFBR/iTihtd3A7yEH89EYXYJhxEyk/e0np5nf4fTQOFBvCh4idUhrs4ziQfv0Dhh0RPEd0gXdh38zB+PfQODEwoeImdUg3aQ5/bEfrqHDDomPETrKQbu5zmUfv1X7oANEv8AEr6obXaTOBJgfPTDDdEW8QItKGbvJgjzTj89BuFEwj/ECBqm71yOepkhYfVRnTHDlB2NCZu9EWEns8AcdsgdJH6jGgaJSjFiZCQapQfdmqk+glb+p0PdrQQj72SLlBNXMScXCsT44JVh/EaY4cdFX74R+JJa4VoxivDf5oh/QjQGGCY4tw3CBJcrgPSaiYHt7ysM/wATpxhwk98deD+abm4VR/FT0LH5h8fzXR92uiMaRdN3r2XL/d6s34vckUHP7xpfdxoh71HlCQLm4JDU9xT6Bif5MdQ4bomGMPdCN37Z67gnwOUb/TTDD30S+/GNfv5Jq18jU+9cJkHx6k/1XUOG7JRj9sySL2hBxcaY/mV/8NJ7uAbqHGE7hJN2ZgcVlK3+n79TwGpTjnbFIa51PbplpmH6/wBNAUGlA415Nv1QWuVXg5WJh/mP+mnbhwN1BjnRogNc6gesUfp/x+v7xoeFNkhxbpgoLXSf/wBmfy6xo+7tJQGOPRNnu0w9aeb/AONf9dT3ZKMaYiEJrxKPWGo+X+H/AF0PdtkRjnRCbPeHxgx1A+Xu/wDjqw4foo7HnUIJvDEnCVWf8p0ooQl9+KE12z26an/4DjTGjCAxibNdo+/Ukx+ODGf9NMaBOiR2PEWCayXSBu3kuP8A9Ef9NFtB0qv30dFzGo5+tfl4pbfI7dTA9cmOw9P5/wANesHC3E3K+ID2yoxygn73WW25zRbrk6U9yhWimaXoDIcpgnsTn09dV1uHFtxcLTgvamlUhr7FZem5ftE94ktIjI6WKl+sY7MR/ID9+kfgHBuZaB7S0jU8MJ7T8ubenqkpF9rQkkB2AA7aR2Ae0ZjCdntFRcYaVstZvzb9BQC5S3FHpy3SvR7xZsZwANVU8M5xygLY/jFJjM7nWWUsm6rbuGB6m2VPnKpw6kYZfX1H6aapQdTs4K6jxJlUTTdMLPCobvk4+es4VxxSX7YEGWdUA/4iBpi3cItxe4S0rOoKysHQjsQex0XMEJ/eSiLVEYPY4+OgGDbVA4kwlrVHsD6amSSJSuxUlMbjfqS1RLPWS+XCSFJ+CnBIz8vQ6LKZNhqkfjQzmJWBfkjaiIsn33SHK9WFOSBnGPp3Px07cOehS/xijF3BaveOcdm2ieenluUiyxdLdSxl42B+BI7gd85+mn9yeRYLLW9psNTeWuddaFuTfFv389zig3PbV29b4vPmiDiQVEh/BAWHS2G7MQrA46VOc6zNwxJk6nT1++3fZM7jDKstY4ADX7ka/ksdsTcW3LBS19hv+47dUXAOtQtPRKVPW2SYw491WyWTqwCFBwR3JtGFiwBPr96ffZZsJxim0EPeB6f512CyVLzHZ7NuPcq0jUtTE8NM5Kjyox0I2IUU+nSrIuT8dPTwjySD3Qf7R0WPiR97LQrn4hrjRzVl2ktFpqKmoCxKwjEjIgYYiDMcdxklvTIB+GNX1eGOa2xK5H/rHMbgEba6W2XKK7ckG4Lfte+32xQUlDSwGoWi6zJUzyFCied5bAHpBkOAoB6x3wMazs4c+SX66dfz1+euyz4n2iY5jXxA1j9wDH3qtB2Xv0Wahu1tt9PTw2KoT2i6xLTR+XKYIunolIOGLBGkY+hDFD2LasPDwRm6X2/b021uuZhfac08zaYADtddBOt/sLm9de7dS7dF0j2luii31PT1dbNR20CkiCM/4zL1kRxRBoowuGUgOqD1xlq4Fxtllw3JG+/WSZ0glY6XHKTKWdktLpsJEjp/TDRFjIEwLmFz+67x8SF3srSWy5XnbWzrVT1FFX2xqjpqKunlRQ6kTRuHwv8AiESLgDGTk6xN4DWBL3mCNpI+Mgn5kyslX2pxrqQbRJDQIOhtpEEDboIWuy82eI+K1mTbc1hv9rpLdNaqW4mdFrpqdx0EOYWCTSK6ArJgAydRIJOqXcOrPbLXAt6HX00B7dYVbPbLHsEASWiJ0+dyDpPr8ltk/N28Ztujb1x4Vt1C1JRYlqqW9UrSxPg9PUZhiJiR3iXuV+HcHUrUsSJc/KPiQJ32ufQroU/asupiiaLpjsT2MTYdio4XC+8n75mo6ep2per9bo5Z6ilt1RdEbqkLe+ZJWcvKqqCFJwAwUgEADWWjwyu54LQ0m1psN7Dv/decxnH6tfzhzhJPc9idbdNtF6LcbeLduLrrK29+L+WtmWw2VaKhpYLTHW0FD0yF2liWlYmNWLAHtgBU7YGus6hiGGalMmdS0g/Sy9twz26oYcBjmuptAgAtIaD1BE+ijX4obvxZ4na3d/IG2+QbVU7zt1JB9309QwppZKeKESS000UgVzlnl8tgCVaNg2Q645OLbQdIcS11zeR+fXfpaFy/aKvR4nOJpvDi0CI+oPzseuuy8vEb3oio91znpx6fXXm2HoV85DxmiPglvG0c5kYMy5JAA+H+h1bbZM4EQNl6ycPbstWy+MNj2+l21V101Ba5S9RJH1/7RIoZmjJ7ADqkIU5X32yO+R7NuFd4eZggWH9/y7r6FwLjtHC0aVOJIn6g/uex62UWuQrrba69cqclRvV7T3dbNw0NVZYJZ/eiqgImfEIVkcsYzIxZu3u+ozrhVmZWkmzpje3xsPp/fjcUxjK9apigYcC0gGNbbGSZj0FutnHGZuvINqhs/n2fjG11NVU1103mbNPNVVdW8jSPBB5GB0Dp6VBwE97GO40+FwbqrGl0+GNIAJJ3ubiT+msKcP4m+oDSpFtN7yS6oS4C5mAG2MDQbSdlIDZuxOMdpbjt09kuF63Xf4I56u5X26256sPAYliCD9mxhIeVy3ZgoVT7xBA6dDDlkiiwhrRtqb7m2kagwuzhMHgqVZr31PFq7kgkAZdtQLnfRdurfEDbbJBd6mpkue7qi+llNqulc8U0S0waKN5mCgrGYlKux6wfMAUAkAZW1XH+VSHProTE+k9ogSfqvV/+p6bWGoSXB1okNJyjuBbWZMfQLk25LtT7ptm5KOW4bJ27XVVPGaKAJNUNBUJULkUFMI80bEAN1yjzJFRiCsbhTpbh3F282nkM/wDyMQBvDZ2zSVyMXxI4im4crQQYl4sf+DQZmLZnRvlAapvbE3fdN2bdtc+39p3fck9HL7VcrdQ9FHS01bFgu6R1CwrFC+A/QpLBXBznAOunQdOY2Ikcxj979gP7enwXHzVphlJpdpIbpI6TAg9yuwVI5Tv5jtl6v22NlbXDlHCRy18tYjjqVJKtHiEalR+AKqsB3dwcCMwbSIqOnsBb1M6/l2ldipxTFvhoDWN3kku9AW2Hwk9CFltz8HWKks8l5te49209wiSMvTW+rNNFeI426vZGjXC9DgEKuAFfpbH4s2VsPTMS2ek9UtSk4TUp1C07xGg29P19Sq2BVJQWihrqSu3IlfUxmYUa1KJ+0iZh7JM0fYOyZK+91K/uk6bwmyBA+ZI6W9PkrsNjoacpImbb/rHQb7LtFBe9u0VTWVftM1FWAiPyXcvUk5/9YvvEN3AwDgDvkZ0GshuUD5D7C6beIicxPz/bX70W6Ulayx9ZFRCrEuIpMZjyckds98k9snHfUNG8FM3iBi6eG4YIOT6agoSE38QSDcDkHrIH0Pro+CieIQhm4H/i7fDUNHsj/EL6riG/blJUxb7hSJZS9tmhib49UNKXkU9x2VZRIMf4wvy0woHIZ9f0n6R8SuRjeJEl8XtH0Jj5GfUBA48qpqWk4+glh8qSG3wxySH1Pm0fVGvqfxKnmH5P1fPWrFU5qPnv+f6WCx8ExsUaAOzW/Vtvnr6rt/3mpGfMTpI/4uxGsJpbBej9/wC6aS7hoYGdJq2CJgPQuP8Ar46Pgzog7iQBuUI7hovLaUV1OYwAxPmDAHz/AC1HUdjqiOIjUFJ/tFQftP8AbqbA9T1jAOcfz0PCsieJAGJQH3NbF6gblRgjJI81e2NHwVDxRseZNZt4WSmVnqLtRRoACSZBgZ9D/HSGltCV/F2gyXQmMm/NtooZ79bhHjqDGUYOPXRbQPRA8aYBOb6p4u5rbKEeO40sis3QpEgPUe/b10vgQm/iYMQ7VE++qYAn2qEDOfxjtoiiCiOJDQlIkvVNDH50tXBDFnHUzgDP5nQFFEcUjmmyut0EgLRyiVfQFTkaYURsmHET1TSrvSUkZllc9OcDv8T6anhHZK/iYF5XAtw8oVX3q1RT1s1vSOGopZIWJAWXAdD8O/usM/XWylw9pF9/3XmMX7TnOHMdAEgjvEhPaflK5U9ehrbnQTUppomdUXPS5YjC49cjBz8jonh7SCAN1aPaaoHDM4RC6VNvi108UTy1sAmZVJj6sEA47/pkayHDXhdr+N04mdVrT8v7aSrgo5ap0ZoWlkfHuw49VJ+eiMG4zb+6y/8AqqlIaXX/AChbjDuShqnRKe4QTswDAKwPYjI9PppHYaNl0W8XaRYysAOQLMbgtunrYqepaXyUVnGXbOPT/r4aZuFMyFV/6hptdDnQdFnGvUJcxCphM3r09Y6vUj0/MEarFEarR/EyTEq5uTY7SY+OdHwBqmPFSEj71cntKcfHB1DhwVX/ABK1ygtciQep8nHpoeDeFDxQnVNJK9G7OkTD45UHR8CN0juJSYKaST0zEj2el7/ERj/TUNLdB2PAMhBMtPjKwqv1BI/lpfAaLqN4jukGoQdw8oH0kbt/HUNERop/FDGv5oRrPlNVZ+Ylb/XRGHAMEIfxHom7VMmTisrx3+MucfvGicO2LhQcQPUoBq5h3FbUn5ZKn/6dL7uCi3iTtQgvWzf/AMZL+qp/ppjhglPFHdUI19R1d6w/X9mugcKIQ/ijiY2QWr6n0FSDn5xj/XRGFtBSt4i7qgtcKn/+IjJ/93/46PgBH+JO0TZ7hV9z59Pj6xH/AF0PAASnijtioNMZcZPUfmde8yBfm3MYVo55Y/dSZlHoe+keRqrGPcd7J1HUVEbCWOV1lBzkMfXOi6PgiKrgZGqBJXVzlWapmJA6RkntpQGmwsgcQ6JlZOi3Fc6WJYfMMyAhiGyert6HQ8IAyr6eOeBB0W/bT5Xr9rT1TQ0ccyTx9DqWxj5fuyf36oxOF8SJsutw7jhw5JiZW103O17V45KmN2YAj3W+BPoc+usjuGN0XQHtVUm4TK5813+6JUeZDFGWhMS9BIwfg35/z07eGtBiUtT2nqOm0arDU/Mu+KWoimjub5VQvQfwAAg/hPzxpv4XTcLLKz2nxLSCNvvRbfP4iN0yRPEKG2xsc++gII/LWdvCBrMrdV9r6pEZQsdaued324yrI8NerennDPSf9NXVOFUzBbZUUvays0w4T6rR7/yFujcksstbWEK+CyxgqGwcjI+mtFHBsZEjRczFccr1iZstRSrqwzsZZASMHJ/XWksaCAsIxLuqa1AkqW6plWR/X3j8fz1YWtulNVxdJTWhjqopBJMaaMocxJApUJ2xn5k4x9NUmkDc3QZVIEaIyVAoK2aukkMRkVvMmlk7D0wMk5HofT56SGMM9Uxquzcyw1qqqh66eeYy+bVGedCzE9UYdOlsH07MBj6aFGne4iVScQSeYrYsF16Wwx/5gDg/rrVoIUa4ututc3FT3CWigp6SB5uhlCuGUMvwz3+Azk9jnHw9dZcRSLhliyUvIXBd6xVskw2vRo4UxwtXzRPII6CFWABZwQzghsYyMtJnA6dcPHNJfkAsIkn9N/2WWs4gBgJk9P1P309dhlutHYaGutEKJFDUy9VXMPeqKyXv09WT/d98BB2A7dskl3VBT/ltsPu5V9GpA1kmxP6enb9bpCbhmvcVRTXKuiYqUiqIEZlkuC4HREfXOVClguB2OSS2dClVa8w4zB06+vb19FacSctjH5x27n5rWtwWyxSU1wqaZqfb0sUrFKenLPLUyZA6VAJC9OY17HOABgHGqcWxjhpBOgG/qdPvVZ/KIHL99NQterrFfa2nt+057dQz22CYSyrUyqscRZep4ox/xEHDSMMksqggd9VDDvLgzYfcdhtG+psISPJNiLm/9z1Mb7WG8rpVBU0VVeuigFLBcGSJvYZCYmiQB0zGy9j7pQjBC9sZAHbpMqMLy13mOxV0gRk0/L+3ZJvN3mjNtNFNVxVKhpKRJPM60bPYh1H4T6Hqz6dJx3Iz1SXEBg/t+ytOJDQAXR8Vpl52Zt7fRvEu6be1fX3NW96emU3CilT3euEtjHYowAYL0DOD31W/CiowtqCZ2P7/AK/BY61NjnF7xc9Bf4D46fFecc1NLbqyrpKhXWWCWSKQMuMMpxnv6enpr5nVaWvLdIXPFSOWdJSZ1LZy7r2/Fk9u2e+i61wo4yLn6qa9i3parDs6335nlt1iSZY5KVagtLC5jziOEkZUluk+uOn1AJx7KnxKlSpioY9Br/hdKg8tp3JgfJR+3XX7k5Hrb7drdS10e3PvVqhmIykMs7JEgZvR5SFUYGcDq+HrwTSq4pwqEQ0mB6k7fdlixuIzuIYe59NL/oFKyDbdfsKOn29PUz27ZEjxxVFMK0wgVETdQMobqEqMVbCnAWRhk4YDXq62Hp0ag8SIG3T5D87LTQFSnTyUyY3/ADvJt6D8k/G+9ywXbcFp2ndhFcbw3QtO8KRQLbxGcyPjpKBssQgwJuods5OsL3io4sa6JuTOg/eNvnC6DOK1qJ/lamwHXr6Dr12W48eJRbZEVxtt8gnvM1MDU3eF5PbJ1LARoQCyxxqFChMAKPj666uGwNMsAbcW9SepI+/RNgca+i81HXfpPYaAAiw+7ldo3JzFuGSlpKNbxU1tVJUwvXQyTGZphC5dJi46ffBXHUCPgrHV1bCMaQ0besfW3911q3tFVLSZlxttP0vK0Wm5Y3jTbmuUK7uqvuqolSpnrZ2LNPUEBf71cnLARZbI6gOk9idVMw9MugWaPz/ssY9oMVTqSXai86/ZC7ztvnHdFEHuF1r7XcKqfqHSUHTED1K0QUH0YufdA7g474GurSwFIAAG66tL2rxElziIP5D9F1nbHOE1vmke6WnzJQhFGVld1pO3cqjlhkkjJ+Hw7aZ/CoktNyulhva5wJFQW9Tr6Ll24OY7rbpbhR0xlt9JWVDXFViQBYpeotM0bBcr1MUlKZIJMnbuMUO4cWOEXCw1fad5aQLEmV2ja/iEWGkskVwpay4UqJGJkaRQwwAFBAHfAAYE9/nqw8Oc4lwXQw3tY1oa11wNSt6uHiRo4Y7g9DSSVMjMBTIw6fLGPVj8T39PpqtvC322W2p7X0wDF+i1+DxNXGKEmos9NJL5gJIcgBcDIx+YP79XHhRmAbLJS9s7QW3QoPEtWQNO9Rblqesr0L1ACMZJPw7n0Gldwo7FOPbSDca6LZZ/E3ZBDH5FnrmqD+PqYYX/AK7apHDasnRbHe2VHUTK43uznmO52veIp7b7PVVUc6EknKHyyqBe/YEFwxHqO3w0/uDssFcqt7TsIcQIJ/b9d+3otdtvNd2t1HttLeQtVTLHH1MMlgIwpDHP+HAC/Qn561VcEHOM7z+v5rnYf2mfSpsa3VsfQC3w2Wwnmevehlh8+pWZkVe7ZAYY7/z0zeHtWk+07yyJuVpd/wCSrzcKueSnq6mGJ5BKPe7hgAP3dvTV1PCNaLhczFcequMtcRMLVTu29u2XudYyZHu+acdI9Bq7wWdFz3cVrnR5hZIbyuzRLEaqoWLJb8Z75Of6DR93ZOiuHFaxtmP+UKbdNbKVY1dR5gyGPUfj/wBHRbh2bBI/ilU3zXWMrr/XVaqr1UzdIA7sfTQbTaDoq6uPqOEFxWMe71RVVklkKDsAG0wYNlUcU/LMp7Hue4ReQUralPLcSIA5wrD46qNJusJm8SqD8R6rLtvy8CGSNLhWq7hRkOc4GlOEZotTeOVgIc4yUzj3teCGp6mvqauDocKskhIBPfq/PsDonC0wJ0KRnGqxGVzpF/qteq+Z967cFWsF2moaSRHQHzeoPn/EFH4T2/XGuZiqLM3NH6rQz2kxVPRyxNH4kt8Mr2y63aW6UkSNGGOD1A594/UBu2sVOiwOPVWu9sMSR4bjIH3P32WSm3lW3Zae4VVSPMZFJHmBmIHYZI9T8P4a71JjANpXKq8TqVYcTH9lsNs3BJA0UjsylAWTLZHUSCMj6YH7tO6nstdDGwRJ9P0+Sztdu2suVsnq5a0e1NUBcM2WCH3j+g7fu+mszcO1rgFuqcWdUYXk7wtVrb1MsaO0x885J6Se6HOQT8j8vrq2nSB2/wArn1Mc4DW/6bratvcpV9qjcSSTed0jodW9FC9IX6fn+ekxGBzaLo8P9o3UxzH7H3qtVr92Sm6xXKCSdpU95W6sHrznORq2lh4BbCwYjis1Q8FNZ987iqZkme51Ucih1Lo5UnqYscn49ydIMHTAgBLV49iS4OzQeo7rpO2Oar1b7FdLVcaiWtYxkU8jH34yc+h+X01mxPDmkgtXb4Z7VvYxzaxnolWblG4wSRVMlTUtEgR3jDEKxCgNn5ZPx1KuEaLAXS4T2jeLk7fpdbXtjlm6XXdtZLXTiloJmwIh38lekYA/I4/edUOwIZTuZK6GE9pqlTEmbNP0TPc/OtRSXFKWmqo4qVHDllOepOoAH54x1A+uNZ6eGbqdSmxftU5rw1mn6WWHh8QEiXdleoZqEtGHUEM4OO4A+v0/8NVtpNIlQ+1MO7LpFw5z2/RTqPOSeCbHs656WORnJz6fEfnjVLWSYGq6dX2ipsvMgrnd150uy1FUaSSBYB/d9OGGCvwP0bW6ngQW3P3K5GJ9rnhxy6fNLtfiDqJKcLXQQvVo2SV7CQfX5aepw+8BJhvbC380XH1WcoOe6Scyirt7hVZj7j+i57fwOqHYJ7QtTPbFjjzA/NNDz/DJVSRrb4ooApZWeTHw+OmPDzqT9E3/AKvYTlA+q2yg5b2/XWwV88slJJjBRvi4HdVP7tVVsIWmy20PaOi5mfNC1qTnjbqYIhqW7EdPxz+fy0wwTyVnd7XYeRc3WtXDn0TJMLZTezyeXkeb397PfuP104wDtSVhq+2Ivk1/Va8OdruGklZkZfdAjwMA47nOPmPTVz+HjZZme2L4n77rLWDnsz1awX6Onp6foJ81FOeofTSVMAADF1bhvbLM7LVsFqMMZMUg6zgJ6/Dq12XXErxrRKwEryoTkEDJGqS6DKAtor0VTKBLkkj09NEWPdPnJF9EWSqZVHTgHS5jCrMxKEalyqqTg/HGnJMwowwLIfU5ck9QbA0GtUeDMrKUxeX3cHOMn6auYQgDeE/WOQA9m6fU6BbIVjWjcKjE4A7Y0ewUDTureXIAMgg5+GnbM2SjSClKkuS2Ce+NJAKEEiSiBZcjA+GnywnuDISuiQ9gp+J9NEtMpr67q/RIf8Lfu0blTMd1cJJ3PRgY0gTB5TeaijqjF50byBG6gOogEjv3Hx7/AD0xaNQkcJEFAqYZfb6GZeoyZZCMeqYy3x+YXv8A66Q07iErmE3BWJvlwqLakERWNgxyreYVkLKchQMHuRkZ9M+vrqis4thQOO61K/7wv9PTRR2+1wxVwkLtJNKMdAOCEjXu7+8vYduxJ+WubiMRVAAEW+vpt8UrXzcj52XLbWntNlu9Zd5dwVVTcYOuOplJVamXLFxGe/8AwIekYAy2Ow1jpx4ZL266LO0kuc4n6QsXXrStSe/NVzFyB1tJ1MSRgYPwPf4HSuazLAGqQSRdMlhoIaVqWkSsjmwFIgchzj0LN+IDPxzpfDaRDR8EGOgzP3+i6LtyxrfUqrhc6eJEpvLEKl+oQhkKlyenAYD3sjH4h6Y10MLREF7/APH3+6vDQ8+n5/fxW07G+6aKOVjM1bJ7RIIOleoShjgSAYHcqoOfiCT89acAQ0Q3WFbADuY7/VW3TTx3Guoq2Ww09FTxO/VcHnMDoWwqujIDIpDEDPYHuCCNGux9Q84EfGfkP3QqEA2Bn5D5/wBlowg3HaEu8MFPDUxwzs5radGl6zkF2kjXuFPUwwA6Ag9l1zzTqNkA2B2F/wDPog5zhdwvv97BYe7z1KV9uvdjqqWsqlygVATTISOyMoPQykFvVgy5b9ctZxzCpTN/v77JXOcAMwv0HRQO5XnaXf256sW5bU8tQJWgUhlRyilsEdiM9wR2OdeC4iT45J1nZc3FuyvkCB9/fqtDWVXAhPmRp09+/df1/U6wvMaFVA2hb7QUg3zu6gt0c89HRyRwmp7gNlUQSCIemS3UR8gSddDDUW160mw1Ue6SGabf4XV67blBabPsWgo7zuKmp57jLPPEJy4hSKMSM4i9AynOGyPQnHx11auHpU3Ma3W512Hxi/otQY4MAB1P3tJj1hbTdXu9LTUkldeKe53auDMtLV0iTOIM9TO8nctjCKQvd5GEY+OttemWuytccx2t8Nr3sNJNzYIl78niG42nXvvAgXJvAsLlbhtTZFZZIVr9w2WhvNNWIkjzRhjUQOF6h1YI6jnIcA+7jpXOMHfhsA6kJdBB7fv+e/0TNE87xrv9f2tt3XVtp05padpbbSUd3tsaGCeoM5pz1ozEKYFICtkkFsDJwDrqUAWXbEd9Sr2U4MCelrBbm8NHcbnWSCKaScUphkcv5k02TlmYMOhUAAUYz3z6+utzcriXEffqrBGYHf727fFaq9utdlStvaWanksdV1RCKD9onQV6FyPicgeox7xznHauo0UxnA1VZpti/lC2uzCC2TPVNTRzwufMjnjPWrvhRlc9ycd8gYHfuda6FQtMi8/r+icMynmGi6VLTiogCNhZPxK2TlG+Yxrc5oPmVmcn4rCXSKaBlq45Xmakj80LI3ukZwR0gY7r1An5aqewahBxdE7BKt9PWWypqYJqmpqaDI9mxH1CJAMBCw7nHzI7jHftoUmFouSR+SAJBgrNRVBnUsiTLH3wXBUk/QHvq1riRMJ56JWTk57D5Y08DRBsKicg/P4fTUeYSHWUL4DJLZI9NSSDZM5t7rVbgcW6tqx3JglwB8UIOSfrn+Gs73Qy6ryzJHdETqEVLOgTGIQ+PgvYKR/X6flq4mCkYw5RHZZoAjIYknv6/D89RwiE9zrqkgZyRnv8NRx6qA6JHST6Z04MGTogJBkK56h+Z0Q4Qqieqsw7dOB9e+laZunIhIIOQRnSuEWTB15STCzD1AH102hQifRNzGVZhj0+uki0lUOtZJYZbPqT8dEmBKZhKwd6eSKkkmhfD9OMAnJHzGPiO/prJiYySE7uX4KPlzrJ37SVSVtMGCkkkFcnsO57/mPidcCo+9zKyOeSJTOjeWmlgWKGR55IlX3CMhiSc4Pb0/noMkPhok2VbXTE63W+22W4Fo56iJqZGdQgcnqfse4GPTPy/frpUARDnalMXE6aff3uuo2+rNQiM1RG8re90g/hHp+uulSeDotJe7RZA9Y/C3odWC9lYHE6bJLF3x1OT2x305aAla6UAqw6hk6BIKl4ukOrepPf1H00CQEeYpBDjtkH9ex0N5QI3QSzp1EnAx8/XRgBVtkGFQnlCYWQ4I740jssyVA4gqo62elczrK0ZAwWzoVMsXVjKjmmy55uOtt8nmzPWypUsOtShJP/AHf+vmNcjFVKYkDVK4ucZJ++y5ib7NFXw1LOA0ZRutsDrAJGO35/r21zRWi/3os76hhZNdyVE1VFNKQkeC6s6jGSe7Nn6/lnV1F+UybD8kxxBddZ5d4VEZiFUyr6qG6uoYHrjHYD/XWgYyDc6qwVXEXFk9odyEUpqk8hHZuoL5uG6c+g7flqxuLIAEiUtOruFsEG4IJOnolJYjv0nOD/AK62Cu0+VDNe6LLdYYjG5k6g56Rj4nVjnicvVHMfMU7ivzTQx0yyHyUbrCn0BI7/AK+mlY4OdJTuxJyho0TYVUZdlyAA2Cv1+Wm8TdVuPMqWQ47Me/y1adJKVpIEJBLY7ep+Pz0ROqbZNz1An0OhE6KuoTEFSkSkmhomSNfMYjLgKSD9Mn46BbOi9JTaW6haTXwyxTANnJY9sevqNVmQLrORuU+tFI1RJKwAZx7qjHocD4f9euo3oNU7AbwntVQeYyRrGI5cElcAdOO+dNMGCo6naALLFNTHrnToGAe59MfPU3sqsuyUacdYLIWc+v1GpJTBkD1W32SytMpldOhf8I+J+urmOVjMPN1sa2OMEHo/XRD9Vc2hbqEo2RM56f3nR3smdRvEKvuVcN+zHp8dQuEwFPBaLBXFlQEHyxgabMEooC1koWNScdGPjnQNS6IobEJvWWr2enllRAGAOMn00HxEoOoxosDC6GSR3AK9IYA/H8v36TxBNkKbTvYLYqe2JPGHCrn44+B1aH20TignQsqgfgU9u3bULwSoaN7oYsECuZRDEJSMdQXvj/oDTBwSHDg3IumlVYZ3IMUNsdCpVlmQ5J/MfDGe2NCehS+ANwCuM8m7VqqG2tVUEyRQpEyOBEvQkJH4VOQwPb1JJPpkDtrkcTw5NMuBNlW6mWw77/yuLWmjrLjsfZtLVUT9Bp1w4kLdK98Nj0De9nHbA9flrl0qRNMDaFjL+QSNVgrjaaqkZUf9tDHhS47+YDg9QGMKO+Poe3y1Z7sWkhZ3TmundltFVXeXDB1r1noZhkszfIH1J741fQoOIyhVsBNwpD7K2xHT22qWuSRlkkDTRdukQIQpLZGce5jA9Rn1wddOmMrdL6rqYehEytts/sAoa2qiSlSUu4iETJ2RZGZQhOM+6w7dvT00aWIA5SbraKMEmNFhNw2sXB6dKSTcVjmkm/bVTUb+VKO5AYDI6QcMCCO4HqM6pq84BAIHUKurTvDTJP3C0Lce37fS0VFVV++Ku2VM7FxOsCoXwM91IxglE+I+IyO+sGIYxoAeXT99lPCdNnCfvvuuTbj2+s9TLUU1wo4LoJQ7exNI4qywDpJNCepiOonLABssQp+XJfTDyYNx0+/z+QVVRhZzCwPyP7eo+ZUKuY+g7ohljohb5moqcyjqyJJUDI7AHuoPQPdYBlxgjtk+R4sSKpJEH7+RXIxZjKP2XH0yS5GC5U9QI9B8v5a5eljcLIDNzqupcd1FwpIt511uq1paiKgjcP1KGXEykBervgkAHAOQT+eutw3yvkxp9/qmpm5LRMD8vvutu3bcKS37ksSVErVphkmLJAQvmnqChR6jBKgZ9CD8vS3EYhoqgi8D7/daahIIDrX/ACif2W77f6iLjuy8xVFZdpULUMEBY+0FB2EBf1hiXsrZwD1vknpOulhmloLyJcb9NdT2HTtYaqM53Eu0HS+mw6xqep1sFJDY8N2vFvo/vi6LIVgeeWKNVMU8UoJZEGQCUOcv1AHv0jvjXosNSJZLnT+X+PqVsw+beP7X+M9dguuHbVBcqGmqY5qOsmSLMdXT5TyAV74KgdR7EfzA+PefSY8Qb/eytZQG2v3r1WLpdkpQzWyK1XW70UaKG8mVvOjIDD3ZFb1PvDPf4DOdVswbM3LYhVmk6JB+ff6rI3LYt9uLGpmudA6lw/RFTtEH7EZbue+GIx9frq2pgc3mcT8v0U8GqdYA7T/dPLNs+ms80i01A8MvRGrftupBgZGB64GTgegOrqdJrRygBM2jGmv3Zbi1NIEGVOCBj66uc4BO5p3SZ6B5oHjPYMpXt8M6jmiCmDCBdaTHV3BAtHVzUsUgUqpGWaRASA3VgAHtg9vr8dZg8xB1VJcQYP3+SzVvqfbSR0FT/LVtM3gqNM2WQkidSMA9s98fDTv7pssJSQM2O2Tn4j102VQtg3QpYDGjuRkKCe+o6YVZaQ4brRa6UrTXCnCRiL2dpFwx/Hgg9sfQ/wAdZXOM3SkgS0WT/LZaJUBRURweo95D6gjH/Kf11ZN4OyE7ffotoalds4X9flq5ojVPknVC9nk7kqc/HRIjRAiNUkwP2yGB+OpkR1uQkGnfP4fy1A0pXMkwFXs7+uCTnUIKbLAlW9nYY7H5Z0IKj2DoreS3ftpiTCA7qxhYAAgHvnVGYapW0iRCbSxMASA2PkBnTkyLI7zstLr5bhRqDTPNFT9R6jMFzj+Y9DrFXLgOgVMGeqj/AH1fPFyeFGJX3XdAcOO59MYGO3x+uvOVwSJjT76rPU1IAv8Aeiw1tq5J6gSI8kUgjVZCrAFh8QM+np66Wi8lxJ/ZVadj9/VdGoaK6ys71YqmmPSyHzQytEfkwzn9NdTD0DqIn1VjiZkrp1kp1g/YGCqp1znpePIb6574/hrsYYHorCLLaBGyqWYD49tWPd0VrBuVjhVhixVOkAdu/r66rbVJunkGUaJi6dRUfu9dWEXgIt0ugzE9RXvjHrqsEg2UDSDP36pnLI2XGWBwcarLiAowXusTXNKWjHWAD2x/ro1CZmbKoHpumkNR+07ZGD6ZzjVYq5gltKfTv5lO0Rcr1np6gPno1HtiDqiTC4/ebWRUOsMlTK6g5JOAPn39AuuJXpRp9/fRUPpkGBqtEMzUFVCZFikiDAyKigHo6hkd/qFPf5fXWRlTK4T8fvsqKjQJBVXK4moV2dBEQf2cncYHf1A9c/XVT6xcJKsyiZWtvUZWNlkKrjIxjC/nqrxbyTZUOBygBZWhmikkPnt5XT+DucjPpj941ookCxsmZrIWxw1FQlLdpmqTDLCBIjKwZJjgYz8Ph2+PfWjNyZgfT6Ji4zJWdqaipqYjQK/tFRGyvI6kqIsjII+vfIH/AEdThmMTYWVpcctvvujx3D2OGDDPPHBKYnf4qT2QN27YBH7xqw1riDO3xSAFoknRZWrb2CuRJ6yKRZEMgY4VUK4zkD5jsPrnVheKb4n7/uUwpuJBO6PSbgjjM8cqqelxllbOcqCO3r8fz9dWUsWAOyI1gLKyX+2COaQzAKgy3UMZ+gz8dWHHgNJTubOiDNd446aGqjiZom9VJ7qPgTj56sqYiItKqAtKlrbuUrRJ5qT2qpMMkhKooB6e+MfqQdYBjl7SnWZBEFYq93i2XFPMjpKmlSIuRIUJbHqAxx6g/v04xYgrNUa1wkCIWT23uCxWM1R9iudQzBRnoOQe+c/oRouxYPlVuFDG+afkncN82Y90r7lNS3h2kZTEmO0a9I9QfXJBP7tQY0RIAS+FSzOmVUl52S1TWVAhuhd2QgFMYwMN+WT/AC07caJmEHUqM5pPyS4Lxx+9zklxcDEsGBG0ZOX6j3x6DsNO3HDpdOKFEvubLZ4d47JpgsEUtcnfABhwNT32dlo/laA/ROf7b7LAGaypDntgxEd9IMZuQpmpdUld67TZv2k0qJ8ynb8/XTjFEDRQmnMk3Tpt5bIUsHuMiDvgmP8Afoe+jQBIPD/qhX/tpsYKri69St6YjJz+miMWBoEWilE5kSDeGyZUMjXYRDJ7MProjGC0hT+UbhybVe7tkzpJTLdisnYf3RIPz9e3bTe+73hK/wAIWDgtRW47RS5BjcoEo1QuQgL5PbBCntnuf0GgMUJsqTTpz5ltkO+NhxslItyqBIRnvD6/X17aAx3b8leH0tnfRKHIPHHnR053DCKhvRSBn+f8NIOJsTkUv6k//thsfqEf3tICQWA9nfuBjP8AMasGNHT8kXeHeXfmsLfdx7YuFC1LQ35qSoMgZW8h8lVGcY+p7fTU97bPMPyVFVjS2GuglahvjeGzq2wpRQ7npYTKpWYLTyeY+OxRVx6nuO/YdyTqivjWubAn5ffxS1Aws8wH36Lk3Hdw2jbrdX2bdE1LbooJGWldFLMYXJkVgQMZUuVz8lXWbD1wxuR1/gsOHFMEgmP73TDddy2neLRd5orqk1zilf2aOnBViAwAZlIAMbKuex6gSO2mNZjxBF+6qxAplpv6R+3RbHxJSWW1xVW5dxXe20s5hEdJRSEhyAPVjjC9Xw+hydaKdRrBM8xQ4fQB/mPsPv77qQkE+xp7PTUNduWxM6qgneNygaUDLEHHzJ/frW7FUwObQdl2G0mlpEj5rkO5a7blqqVq6Gu2/faLq8qQMwLBScBhkHAXsPyJydZKuKaILVjxFFgMmHD4fBVRwWK7WFzFfKbbSKvdTdmjkK4I9yIEhsAnucDvgA9tJW8E+aPkb/lCvplzmSwkfEf3XP8Ac234/OSd95y1U00YnZGq4SyxkkeXIzDJyD6KAScnOufiBTuJv8f7z8SqzhqkXdPymP0+AWj0+06LbyyDdNTbFpZqUPE9vqqcSk+nQoIIDe8ASenGARkEYqaadIZXHNPr9/CFko4PKS88vy+/rZRP8SKUVRcLZXQ1lZUVcUs0IiqHLypAyo69Ryyj3i+Ok98nsANeU42QSMoP3t8Fj4i0RmmY+emsd/z7KKmFHmK5Bz+E/EflrzxO65TQCCQEaCrqIjJHTTSRiZfLkVWwHX5EfHVhLgJ6JC6SY31WRp3aWqgknpZLiqxMzRsOxQe78PUAsOw9fTV1EPJ0lDxBI6D7/wAqWnBtLW3uWVb0ldc62OJPIAdlCU64VveYdPuZChAQE7/H09XwWmSIcL9/v7Gi20OfzHTQdvl9OuqnBatqW63LbEtlBC9InuvT1WVjyACsyspHQ4Kg4VTnAb4En1ocJsAPv812KeCaACBP399Vs9LQNBb1SrrqWjjjVkRfbDKUPUTlwelMMT6jI+gzq1haACSPrb5/stTKOo/Mj7+qz0FkpmNBVy1EMEETEM5mAV2Y4zkHJ7BvXGSew+WzxWEg9EGYYwCQthmqrNCZKeKqhkZQucOAO/1zonFNKu8AAW1Q4KOkqJZT5qqpIAOfXsPQ/mdWiq2JGirNA5oCu9upBUpD7bSxyNnpTzB1EYzkDP0OlOIpki90jsIdAsgtk7AAg5Pr89O2o0XlHwSBdc/vu2fKnRqYlGVsAFAwwSM/pk6qeW2IKzVcOQZRLDYJj5UjIoJBbpI7sufxfro0y0KunQMytjnsUpAwMnOAP0zq7MD6rQKLokpC2ryFHmKVP+In4fnpXVAAkGHMrSdyXK3wUtZRwVlE9dhlMTPgr2x9PnrFWxrNAUtSmbxdccqLoj0VVNJG1TK8QiZgThSAMZ+A9Dj8/prIK26x1A0tghZGh3lZInlerpamlV4TT9IBcdI/CfX1yCT+erG42DIbH3omZl36brudtpzcKaCtiR/Z5UV0yO5BHy/hrqtJPMQtTAHbWWQa1EZPluvz7acOj1UdShNpbY6qXWNm+IGPXUcbaKeFNwhU1CZ06zH0kjOPiula6PVRtKRbdENrZCxKMqjuTjTZxElN4V7Jt7EhXzV6WTvkj00ucapBTjRDFArIGRcg9h29dAPE3TeHIkBYO6RCCLzo1DgNhgPX5Z1Q6pOiqq0iGk9E3uHnwULyRqnUPUjB6M/DUc87JXMgTC57uupd7bJb6lFhqB73WFwenGR9BrLi6kiHHRUuECIhcKvtXAtBMTIwiZQi9K/DuMnH5/rj4a4eLcYmFie4BYvY6UU5rY6mNC46QS/p0f8ACPgT8f00+BcMv39/NZBTBd92XbbZte2pFBNQ1T01RGWPQG6Uf5ggHsMYPbXZbRaIdELd4MCxW+WuipKfrla40jsTjCydsfLuSdbKeUWVzaZPwWUrFojAeiqpST2IEgzpqjwQrgzc/otKlenjMiGeLPcD5EEjv9PU6z5/msrzYxqs1SVFB5KgVUGST2BJyP3avD2q1lhr9UOR6RpURZusZ7kI3b+Gg1/NKgAN5WKrZYlmRULuXGMhW/01W4iYKre4DVNaxIOumJZgC46j5ben07flpKj9gnBEgLX4nAd5GD9JOfwnWcGLKi030Rq2qEdMDTF3lJAPu+h/X5aeo8uEBMYAkBajUQRvN5M7yVDhzIzEenxPyGe38dYS5oMnZV5XEQue1lLHV1JjRGkjOcg+729cdXrn8tc8sBEFVVGkrn1aBRPJA5cKMhVc9RUEdiMfmRrA8ahUOACeQ27ogR6kNHG69QY46WwM+vz+mtNRmXVI1hcL7pFNRSLHDM0bKje8pPx+A/TRbSIGUjuka0EDus9b6kxzC11kkCU8sweRmXGQADjI9PQA/l9dWsePK42ElWAGfW33+SyVjqfJepnjpZzA7mRTkABfQDJ9ewz8u+tNAmJIj+6uY0TIvP6Id6qaiOSqnoY1hDr0VAB/vxj4qPiPXOs9UmTsEa8i7QrrWRpbq1UEVZWSSIkc5kLNIpUEKM+hGTn9c6dz+TIwXJP36AKum4Xe4yQB/gfFYKKaWllMDhFAUgqT+FwME/n3H79Z85E/RKI++ycNdpKxko2CEIwYFEJZiB6H9f5ac1C4+ieZELJSXqeShSJXgiVlPf3ursc+vz05xDoElNnABDVucdbLAA0N2oIu/YCZu3/XfWQlh1P0K6rXubvb1To7guhEim/wMp7kee2CfXQmn1+n6K9uKq7n1ujw7jusYcpf6aHPw9oZc/w0XOpxr9EfeqomHfVWS+XBQCL/AEwbs3+8sD9D6aBLCNfoUjK1QA81/VOF3BdC7dO4YPTJIqz30/JP9irBVqkWd9R+6NFuG7hy8e4acOwCk+1kdvhpszIk/kU4xFWbHbqE5+/ryW8w7ggZwPhXn93rpQ+nP9ioK1YjzfUK73q7GML9/wALL1Yw1ZnH5ZOiHMiAl8WrHm+v91f73u7sQb/AQRjq9sz2/f8AloFzNZ+hQNWqfxR8f7oXtt0EhdL5GZOwJatHYfq2oHU4/wAoF1edfr/dOxeL1lT/AGgpSQuB/tgGPp+L6DUNWmDE/fyUFWuSId9/NWFZeQCJL9Svn/8Anl9P/i1Y19MwZ/NPNYGC76j904WurpQ3m3iFu5z/AOkVBz+/Vni0htr6o5qs+b6hAaS5ZZhd6EnHfNcpJX8gdQvp6gx80GseNT9UyqUuEx9+vtwLKPw1YywPzOdL4rSdZ+BSeG+J39VjnsFSrZNTah9PaUwf46drmTBd+f7KirhXnQfULO0ElZRYjeS11qgYHm12OkfIEMNTxGCwIj0VradQWIn4/wB1sEdwjdBJU0tliQdQBFeSQfmPf0hqDXMPktIY52rPr/dNkhoq+dZ6yagmpg2RFFcPLWbB7EhmJxnPx7/LVTnUyZLvp+iHhA3P5/un4NhlnDLb6CRY1KEi4qASSMYy3cDpPftq04qXSCPkrDh6cxlt6/eiyAi230tmht4Y/A3GP1/fqe97SPqj7rTJktPzCSg26Zik1BbkHwIuaen17/TROJncfI/sgaFM+ZpHxH7p9G20TlW9iQepBrgw/wDm0TiImD9P7K9uGpGx/wD7f3V3Ox3ZDI1Ew9QRKWGc+vY6Y4k6qe70C6+nqh1L7FCkkU1RKo6wqu3Vn889j+Z1W+uYkBWOw9DQmVrFTUbcedZ4qWnqJSuAH6gI++Ookn3vln4n6DWYVHF1lnfTojS/zWn3iLbMk0UoaWukUjy5FmB9nlPxXrOD2GD275/dU4g3ET9+qqc1h1n4XXEOUpFuu3qu1Udvt0LRE1RanjypEXmE9y5KN0soOOofDtnXK4k1zmkTIWKsGZMgEH4/S6iHJIxVOsIqA9OMd/z15wNXGgRH39+qIgBikdmjJXsO/r30oB0+/v8AylFEGZ2We2tfIbBdDXVFpobxB5MkJhqPRSw7Op79LKRkH8/z1oo1XNktRo1Ghwc8SPkp0cSjb1x29DcZa00VCpJo0mjUED1fqxnOX6vjgjGvWYBssDr+n5ffdd/BeE5sz9nVSGhu+2HgAEtqVGUdWO2f1+Hprp+8O0JXRY2jAiEj7w22hUNXULqcDp7Y/Ptoe8OmQSnNOlaYKyH35YQqqau3dA7qC/b92rPenExN0zWU8o0hMXve1pJc+fQtIyeqlvTPocarbiXpPDo6GJSIb/tVY38qqpkjjOcdTjB+Y/8ADTtxLxr+SIZSvf8ANFa97YkZap6mkDg9QZncEH5/z0rsWQ2ED4Rgk/VP4N0WieJXgukJQEqM1BUjHb0JB1DiXG6Zj6ZFj9UtrzbZHjleuhkbuATUk9j/AN7U97dEzdDwWG5P1/ulG5UJIYVqhunoBWrPp8h72g3GGdbKCk2JH5/3RVukSqojrZSAe3+1H19PnphjCN1BSAuT9UCoroqgAS19YASThatgO/66Hvc3N0SALAn5rX5LDtud2d43kkPxapJ1DiRGyxnBMJJJ+qsLBtxB0Is6r64FQe/6acY0AjROeHU41KT/AGb23gkwzE/WfOk98tsg7hlPWT81sdFVmhhiipblcI4EXCp55wB8hpvfiTCvbh8rcrSYRnudS8gc3W5dQx+GdgMY1BjDEqClJ1MlJe51DxNCbncGB7ZEhyPyOndjj1TimRYEpkJ2QuIq+4xhvXEnc4+GdRuNAsVUaDW7lGe5zGMxGvrCvzMhzojHk6QgaX/Ipl7RIUKrX1PT64J7A4+mp/EHE3CTwehKv7Sy9Q9ulVT6goGx+/RPEjoEPdrarGVTRnM71x6vn0j+WlbxIjVVOwYI1SkcOZmNapYucExL/DTt4q7QFRuBBOt1iblT+bHJNLVo5ABI8kfD0zjSP4kd1U7BdSuN7rp3eqiijlEtHNGxVgAAzAdRxj64/edYqmIzGTosNfDAHKNPspjtF5GppqaKoSB+s9Q6QfXHcn5diO3p+ur24nIICy4WmHT69F2ihlm9lREukYjyMq57dXz9e3r/AE1YeJtK6owsNsVlhV1ixp03AN0/hCSkd/39tWfxMba+qu91Kv7bXFmjaudU9e0xwTnv8f46J4iDdwQ92qA6plOjSv3rUfHqWc9xqe/jYJThCd0IRSovRFVRxjBH96cD8vlqw8RB2Q9yeBAP10+qGwqFRitREx+fnElvppRjmgQGqPwzv6kMx1HukFDntgynIH7tMMa2Lj6JXYSobbJm8U3SzMqOo74V/wAR/dpvfGnQXS+7VAYOiQfMDKPZl7j59h+fbUOMB2S+6OECEOSXoEoaJGA91gMH+n5emmdjxEAIOw7gZOoWFujx+R0ogT/i6Rkn8saz1sWCdCg6k5q0GrruppGngcOTkEeoOfTJ9NZBibWEkrI4RcrSrwlPVR07Rl/aVdo36u2Qe4z/AB1SxzMwOizVKQIWw3NOq1TFY0RGCIo7fT4Z7emratSRGifwIZI0WHq7pJDFBT08iiPoHUCo7H46Dq5J7Ks08oAWNnuElW0MczKjAgda/I9jn9CdK0ZvMdlXmBIXVrWtGtvgIVhmNS34e/7z+Q/TXS99aLLZSoENCKRCKoBIpSGiIYBc5GRj0OPidI/EsJPdO6kcwlantigpRLdkkaSSRJTDFhe6L8x9Tgfu0mHrMbTl2pWWjQBeR0VXii82tiUP0TmWA+aF6cAlhgr8T8fl/LS1arSdfuFKmHdtrb8/16LH26mpaaKD2uZY1kiMmcdzlz8cfIDTtfTA5tbff3qgKRH1/NImt1EK+np4axFo3Rn6s5MeMZGfrkfx0gNMuM6D7hJVoukAan7KxRupKksRn0AxrhNrkmVvLuqTHdV6sNj1Pb66YVDsmDhMlKW6HsQCwJ+B9ToOqO2SgCISxdQRj38fDA9Pz0PGOqBIGgRFuYHcFmPy07a51TEAx0RBdsqAY8H1+Wn8burC8dEsXIAk5Zjn0z20njlKDJtqjC54Vh5nxwAdBtS99U7SIVLdVLZ62UDPoe2nNbYpRrCL96BskN8/jjGh47tFHgCQrLcyWOGYHv8AH4fu0zqpSMjbVL+8+4PmfQaY1yPRORzKluhZinX3xnuP09dAVpOsJwbSri6lPdLqSPkNMa3QotN7q4ugGR5gA/I6Bryqh0KuLsrBT5gUn4kaBrEaJ3EEIn3ngL7ydJ750W1r6oF8RKX95MPQjOP+s6hxEmSpHNCItycjCuhPx7+nf66nj9EwCFDcpctI7Rgk9/pj56jaoF5SmfNCP96liSDH0fAjRFcgySrGKvvVveHcDPbv/I6tbW6pASJ7IgucmAACT6g57fv0DXlFzoMq63ORQAG6CfmdQ173UdmFgrNcH6ivUwAGPX1Oga0ptJHRAF2IIVTIX75wMtkaXxSFA+RZYm4XFe0gRDPnIU46i3r3+A/mc6qfiCfKUTGqxLFHC0hRyX60llZsk9R94En/ADE49NZtRGiRrTF7/cqK9xt0tDJVW+Yq1RTu8bEHIJUkfx15iqyCQViqUy0EbrCIzBJABgAd8nVRcAJKw0zYyntIplKhnWMMQCxGfX44+Or2NBIBFlax2kKZG0bzB9y0UFIfKpoEEKp04/CAOojv6+vc9s69fh8QHCNIXRoQGQ1bZ97KVJ6wAe4yNaRWOyuFQXS1uZIB6we+iK/RMwghKFy+HXH8wDompGqIcALqvvNCvZlx+fpovqKB0CdArC4gAqHXqHoc6DqpmyJuCBqqa4A9XvKV+p0xqj4oPM2hL9vBHwC5z2OMnVZq9EriJ0sqeu6my2B29T2xqxtW2UoF20IYrQMZCAfnpBXugIBslCt6mYjqBHyJGnc9twUWiST0ShcJUUKkjxpjAAY9tKXgm6jifRE+85B1KJpuwx6n+eiHjWEomUP2+THSZpcfLr7emoXCYKBdAuqS4SgqUlctjAOfT8tCWzdWeIbE3KprhO5JaplDZJyCf6aAINygXu+ISlulTEcLWVHf/nP+unzCJAQDyDqrtdas4X2uoA9cBsaSGnVWl5kd1YXOsHQBX1R/Jz/PTBrbiFW+q/cpQvFYo9yqk+Weo+v10sCUG1NwUQ7guTABKt0GO3/WdMQJmLKzx3RASfv64uAwqpAw+THJ+v10crSj4joMoE14rqmNo3qmAb45xqotaDBVZrOIsgLc66FWRKycLnOGlJwdTKxAF40KWbtWkEGsqe3c+/6nSmm3oi574sSmDSRzL0zNVOAxYKJMAN9O3b104aBdVuYCZJshRLSQt1rTOjeh/aHuNMXKvwWh03WQiq6VfWkZsdu8rY0CRrAVoyzcW9U5S9SR46YX6QMAec2P5/TQaLK3xpsnibpnUJmkiIHfvK3+uo2ofwwrBiNzt3TyPe9RHgm2Up/75ydMXPPLKIxwnyo39vajCYtsDfP3zpS5++6uOPt5fqlf29JDB7Wqr2wQ/rpvEfOt1PfxplSv7fxKc/dcvoQT1/DSGq+TpKs9+aNkob+hC5FBKO//ABaYvcdErce0GYQf7eRE/wC4OSfkx9P3aGdwGqqGObuEKPfcPSA1E4cfEOTnVbqryLRZRuMbNwgS75p5kZJKGZlPb3j66DXvgWCr9/aRAC16su9BUFituBUn0Mpwf66gc+ZtZU1HsI0+q1apjhqaqOoiSmpI1wfL98gkfPt+WmzScxMn0WF9NpIIsPitka8CSNIpBQrEo90BWOP3j+Gmc4m0rWasi4ED76Ko7lbR0CemtcuFwS0Hcn88as8Rw0NiqgGEgPATwVm3CQZKG0Kfn5f/AIagrO2VoZS2ATmC7WYe4RbadA3ulWPp88Y9fpqOxLtSforQWDQJ01zsknutUUDD5Z9f01WcRInf0THIbEW9VZqu19RKTW/p/wA+D/LTmsIglTKJkKhPaZFys9IT9HGmGISBrTohlrPIuBNRsfT8YzqOrkiUxoNPqm5obSclVpwD3H7Qajq3VUuwzIC4K1Y6pgkZPfJbBx9fl664MyTdYQ4zCuayGMN1OAwPxHYf+Gg2oMsFWUyDYokVUWieTz/3Edh9NTxRo5WC4JBRFqi3ZHZx6sAx/npfFAElLPLBRDXFGDuXMZyD64/MacPRYTN1b2spgmQL2B6cnH7z20wqSICa4vKKayQdIBdXb/myB/1/DSmpN1DVdaVda5znrl6D1EZB9fy1A4ItfaTa/wCiLFNIclZZnOPzHp8dQVAiGm8JYrC6NlvLbGfUHPcaHifRR1UESrmpdcEsc9+3SNTOEhqGQdv1VGpk8vIl6TnHYafN3Vuebj6Ia1cgMh6ijY7Er2P6/HSmp11TTcwngqpCiu58sn0HpnTZxoEQ2RJSRXBc5mBI7AAHTCFUDHmVNVsD+LJwMlWz+mhIFig87dFSVnV36kjb1PU2CR+WgHgRGqg6I61pynvg57DDd21BVumJhI9uI8wtIowcYI9NAOkQESTBhL9tLEYwwxn4d+389OXjdExp0VxVjDHA7jsCACP11PFt3SsymeiW9aqoC7RhM9znB0wrWEJhEJQqgCGwue2P+s6tfVtCaBPZXNR1HBdBnv3PppDURLZcIKG1cgR8OcfHv2H1P/hoiqRcCyhI6rG1FXLKUZZFIGB1qx6sfp+f66zVXSZ1ARbAICxMtY1OXZKhql1TI6VPu9/nk4yMjVBqRpsoCFlZqhnjgmDxKWQqMP8AQMD2/L11c+qCA5Fplt9Fx/eiIboKyL0qYUZ8f8QGCf4DXI4gBmBFrLHiHRcaFaEPx1EYCg9Of11jMBsrA03IGhWSsMqU9yt8shAjWeN/XGAGB9f01dhn5X8yjNYOikfRxJSy1FRAvls0pZwFA6gQMjA9SMnv+evQNLRzBdRrYWZ+8cdMjShYyezE4GrnVYGZxVjRJsrtcJA7qZmGO5B7dvnnUNVp1KIJ+CIax1CnzOsD6en0OrW1BdBw3nVKNxlySpGcfI40HVepSuMRCULg/RklXIPy7frpRV2CsdBHdJe4OQw6kJxjKnRzmRKVzwLHVWFeVYs7jpB7ZGc/lpBUaNEhOpN/v6q4r8krkfU+vf8A6Oia24UhX+8CuCsnVn5j+WnbiANSl3kK63LHbsGzk5bJ/LQFXronmPVLFylAGcsPT176BqoAFJNxJALAkY9M/HTGrsdVW514VxcD2/8AVqMZHfJ0W1RqpmBSjclOeoS5xgY/h31A8wU7iJhWFwQRkidyB64OdQ1BIaELE66K63MkfjbP0x3+ugKp0TskWSVuPvZVyzE/E/xOmFYyoDJ1S3uTlgEdh2740zqu6DySYGySbm6k5YkgEjt39NTPAlK597KvvHIHVL29D29dJ4k6pi6SkG5sMjJKd++n8UlVgqjdGGSJQRn5fPQdXtZMDElqD96Ov4u4yPjgjOo6pN0rDuifeZPvEhj8e49dBtXqjNsxSvvFj6MB82zqwVjPZDNJACt95SFeoDIHbOqnVT11RJvIVLcuoyYkAI+Xw0XVdEAdVRunfCMjH0zkaGe+qhqTok/ekmMsiFfzHbTsqX1Uz2iEQ3M9Ks3ujt3z/DQ8WZG6afokPdVUJ1FkGR+umdWvATNeI11VNcwAch37dsf/AH0grwiTNyg/eo6SxDj6AZxp2OBSZxKt96DHUeon8jnRc+8aqAndX+8wqlnjkXHr1aTOYVYd1VC5IAcrIRjv640XVWmxCgeNEM3aHuvUQ3r6E6UVb3TmoFb7ziJHvH5n3cabxIuVUQ0a6+ir7xh6Sxcfr20DUAEotcFYXKJgckkn5EaY15TlwSPvCAdmkUD6nAH0/PSmsZhVsFo6pLV8OceaCc4HfTeKD8FHEAhUa2FgAHBHpnOgaqaQYAQzWRAD9ooz8c6PiglKdOVWasQNkugOe3fOoKk3KUXKpamNgWEg/XtjTF4iEwLTdYLc97qLXYLrX0TolbFGDH1qCOrqHqPj2ydc3imNNOjmabyraLZcQQuf7a5Zpa2For9CKGVf/XR945PzXOQfyyNYsPx5pE1FW9toA+/8rXl3VdXbrBtT4yMdBB/P17a5bMWZku+iJJLrAFOId01ypgx2xhnOQzYP8dWtxZAIJv6ItEbfVEbdNWyswpLcyA/+0cZH7v66jsYS4wQUzSPKltvFVDdVLREZOeiqwSfzI0BjiZJ/VRzWhpAQv7Y1je+aC3NGB6CYnHz+Gi3iBOpH1+apc4R2RhvRSgc0YV8DqxOvb6dxkaZvELR1TtLTcBO494hUzUUlQkg7gpKrdQ+WO2PTRGOvpJRzp2N5wM/lNRVKIcAEuuVOOwxnTN4jBhWN7K77wp40kVKKqncdlHWg6hj/ADZHx+egccNtUpcItqEun3lQtGBNT10MmMt7gIU/IEHJ+WmbxC3Mqi5p8qdDd9rkfoQVajHoYSf3d9BuPbrCYubmEfqqj3fbnBlZK2Efh6TEWx+oP66I4gybi/wVromxhUd02snImqCuMAeQ37z207sbT+CLnwInTsntNuC2zx9cNUAowG6wV/mNOMcwDmMJqQzCQnMd4pC7t7dCwY4BV/UfAjOg3Fs+CbKSZKcG60nRkVtOp7gEsCfXVjcS2IzJC0i6ELxBC/XLVUYQL2HUCD/0dT3ll76JSxwMlXW/WuUyH2ulQ4Vg3UO4/IfDUGKbBcTZQDeEWnulLUM70k1NMmMAK+er9+oyu29wma7XcJx7TlehVDMO+VHYH6D9dWGpaQg+NAENayQ9JeIKD7w8xh1D8sd9AVCfKUc3UIy1jlmaOKUAAnv6N+enbUMyULRIGicotVJ5kfsNVLMo80oqlisYGSx7dlA75+vrp21IsVY1peYaJ/xf5C6EayMxECGqVO+QWx2+mRk6jy2ZSu5ohDWtpFcQ9cka/Nz2UfzOiXgiSo54HKCryVAYOGRekfhGB74+fr6/l6aqNaAYRMlYaqgWYJFUIkR6WyQxwG7YBx8vr9dISCYVkg6fJN6gyU1MfZ8NSrnqjBJ8rI/wk/4c9/ppXgNEN0VAlvoFq13jeutUdQEzPT4Oc/AnuPyGRrFUGZt1KrS5lrlaK6+XVMzqRkY+h1ne20BcwHnObdIXrSTp/Fg/Xt6aVpAv9+qRjXTddr2rdWrKAROJBVwnpft/eL8CPie3r9QddfD4gFsArpYd2ZsbhZzzVdZVeRH6sg5X3f5/I6vdUJsFpETI+wrPIBE0cpUJkqucnsBj/wAdDOIjdWNFjKcJKUjLq7pLgAEnPYaYOAEDdRxJuNk2F0aSrFOoV4wCGYMPcbHxHy/rqqjiTMDRCoGwJsU7FT0uUDyspXGcjA/PtrUauxSOmbnVCmrZYovM6/eGB7o9Bkd+/wAdU1K0OEFBjRkvqh1FzmCylkESAYV1YnqPr39Menp30j6hBmUbG6x1Pc5zJlWVo1OO7flnStrGLpbAQsytx6oy4UNIBggDPfJyNXU69uqDInRY6i3DBW1FRTL5mVXOCnSox6/6apo4oueRBuq87cuUlZb2o5GHywx6N2Gfz1pNSdETpHREkqFeMTOGV/wgHJHr/wBemh4gJ1UIDgZQmrFifywZVGACcn/r6abPugIiyulbh+lnb9c9j8tQEosdDrqz1PuoTLKg7nPr1DQzdUXkFDauiQ9PWDlcjJxkfT5/DQzjVKICuK9HAAdzJ8fd7H/r+mj4gn0TZhoAqNWvd/OP4u4PYD/w0wqCJQIBAjVUaiXrDK46O5yT2/8ADQ8aUA+STskrWMwXssjeg79+39dKahKIdEJIqpAMMwDdRGA3fRc8dUSIBlW9rcrjqAA7EdXY6HiiLJHCBfVWFWB0iSJ0dsjJGcj6dxp/FKjIGiS9ZMvZgqj1HqTj4fHSipO6UzEEXQ3rJH6fcLZx8xgfDvqeLdQmYslm4SYUdchQnKhRgaPikiDqmkxlCs9czKY/eI9B3OP36jnpXuJtskmumHTlSQe/ZfT+GdA1QDCVzuX+yu1e6Bi0pDE9lxoZ5TkkJJq6kd1kLIfkfT92mbUsg0uMz9/ZVva5ApKvNF8feHc/L6anjAamyYm1pSGrpSCwkkJz6ken7tMKsIg81yrpcXYMQXYk57jtn/Ttpc++6Vzp0ukJdHyGDF+5B+GPy0xePKAgXbuSfvIkL1jLkdvePvD56U1TMBAuGh/yqNycquSAxB90/P8Ar+eoaqBd2SGucrL2KqSckYxn56IrXSh03CQLhOyqRCjAd+oHAA/fotrSNVBpEJIuJI7LEQcnscn66Q1CTqoKgIkpP3iPdVgox2+ffTBwBKBIKubgAisYgPd9Wzkn/r+eg6tF0GOOWTr3SRXAsV8kBzqGvN/vZLImN0Nq4dHT5Z7nvgDA/TRNUbpnwBACAa1QQEQemSB3yfhn/wANMHlCQLBXSviV8Dr6sn4+v6aXxtiq26wPv9lY1/4pF8wH0z9f+u2la+2VWEgGZuubb+vcrpHYzEWjdVmeQN3HqPTXn+L4pzj4ewWqnAB7rjjRKxRo+ox5AwBnHw1zWkarJV8vKt/HsvvmRJIvX8z29ca05m7KxzHSbIgFNkiOT9pk5HYkjTU8uidrRMtRVWMsqGX0OPyz9NQ5SblFweG2CGaanJHSy+g7sRgd/lpXEQq3slpGpQwlOEXEkQGcD3sBj9PpoBzRqrKbTlkKno0byyKpFk/4RjB7fvzq7l2TeCQMyN7M+UYTOFXt2Ix+8jJ1XEIGiTdFVGUxiJ2j9cLjvoANm6gBGiMAUBVg34SeoHLHHw/PQc5okJzE2GiSqsYmAiLh1wrgElT8wMj+OqyQR0lVmR3Q2hyFcrU4HY9h3x8PX89PN7aqttMm+yCUU9LGjq2I7YOP550zpkFHLJvKA1YlOzdUbKVJGC6jP6Z0znXywo0luoQXucbZZup2Px8z07fLUc6bDRMKgF0WK6xgAeZJGSMtkjA9P36rGsqoVL3MSsnHVQzlZIah0XOAzOPd/jp3OGpstHoVRkdVk6KtHc9wAwHV+/VYItKrfJuCnCOFVuqoXHSOx6Tkfv05qA2CdjSArRyxYy9XF1/LABA0+YabpqeYyJ1Tvrkb0quoD0Ck5zoGHG11YQ6URKipSUMlbIkYC56pCM9vh31Gug+bqpTa4eieffNwQlluPfGCTMcDv2yDqzxMvlKtBcdYWQp943y3iu9hvkkTVED08wBB82NvxKc57H44x2Gm8TMNVfRxb6WZzTqIO9j6pjFuC4pLk1cEkZYYBwTj+WrDiN5WN74dpZOhf6vzYyKiIr691X3T9OwH5aIxDpGUq0gTYIMt/rFaZWemkRj268DpUfwz8fjo+8OJMFVuj7+/1QRuCrIUGelRk/EMj3hj49u+iKz7EHRBrgLQPmm4vlxMnUtXBI3SVCnsO49SR3+Oq2vdm7JMx1CHBcHhWriZIjE6FOkS9OAf0+mj4ux/VFsxG3qFjjCzLGsnlLIPQ9eQf4aqIWQYZWamPUx6whJx69l0sCEDhTmlPaSaoo5oqiKZSUXpIY5Vx8tWisWmQnZRc0gytoG5ocBxAoUYLAH/AK7atdjhedVsY1pv+6bNuynSSU+VUAnJBDeox6ev6anvfZK1zc0gpf8Aa+jXCrBWdPcEiQFh+mT+edOcX2TCqAZansG67QsQQPVKwPpglRj9e/z1Z72yIARkE66q6butsjtIaqZPeHu9Jwx+fYY+uiMa3RwSZwTrH36K1XuW3ytTiOryoYBwQQOnOT/IarfimuMgK1z7a6pUu5KWWBlFbSGToZgpViQfgASMaY4hsdFRUfa8IFNfKN6dcVUKOHz0tnuPqRqCuI5kGEZZBhZCC8Uy9nqIgvfARj/M/HU94YeXr2TgGdUWO608SoQV6+4Xpf8AF3+OrGYpsXStpG53+Cc/f9Fl2aqMbeignGP4emo7EsjKQnpUybn9EgXqjwS9wEKYwCW9R+746AxLALqvKZtaEX75gcCOO5qy5z7wA7f9fu07MQ3VNkfFt+32Uo3WAqPMqYHb8OM+v5k+vpp/HEwCjkM8wV1ucMKmRpYHkb0OV90Z+h9dQV2gwTZLlcDni/33RDdKfDAVUI+IzIBkY7ntqv3lkASrGsMSAkC50zrGPaqSM4OSSM/QatbiGySSl8O4yhDa7UpOHqo2wewUg/x0PeGbKOYYgpbXWkYgiVAe+QJAM/louxDYAJULTFldbkEYqgMrHuffB6fpk9vTOlNYTEhQOM6fqhe3HzAjlgSMkH5ad1W6Qg7orTSSIkohRkBA6gcFh+vxz8dQPGpKD9FTTsGPYKD3wp9B+elbUi5TBpAuEI1SMxIfpTGCSDn1+Pz07KohK61gqkaHu4lVWABLAYx+p9NK6o3qgWjrdZOGjr3szXclnoEqFpWYnJMhHUB+WCP3jSuxLM4YTc3A7dVuZgMQcO/FBvI0gE9C7T42/dYv2qSJmAzGpzhz8fn9P003iCAufUMEti90qSd/eBkBUnq9CT9M5zotc0BOCYkf3SpalyAI5I3PqThv/sNHNIsoTohNWKP2Jk6SV/F8WI+v5ajKhCBJBVzVgSDDJ5QH4SckfXRzblO8yLaKy1hcsyj3B2HVkFj+XbRDzvoplGaUJqzMnQoz09yDkYb45x8dAujRBxvEIa1MowMKoH0IwfX8/TVhdBgpWkmwCR7WikgmNpH74x2J/wCvloOdKSzbEXVnq4wGMvXE+cdPTj+Q1WbFVuaJkqzVIbrIDMgXPUwHy+ug5ycNBdCEapB1BVVWI74A6Qf+u+pmMomAIhUKnr90EEEHBA7Afp/XQzSZCRpBOXVIExYDsVU5PSAOnOOxOmNfcouY0kQrGfyiPNB6SfQ/AY9P3aQuOiQkC5H7obTKcFfd+YCnufh9PnpnPsgQBtZX9pIJYqqNjPu9v4HTNqHcq6ICG9RCOmQMQD3IIIznvqp1YbKuqGxITVrhB1hJGCsR8SOpv66XxWg5UuaSCBZAqrvbqQSNNVqpiIU4PUy/IY76pq42m0K4UQVzTclyhuFUtbGRJAy+WgwepwPU4/U+uuLiaoe8kfduq0RDfitXZw6AxsoYjJ/LI7Y+Z1S8GbaLK/SAsrJWU8jtA1T5kmM5bsB8f+vy1U2q6ZKte0Ax1RoZE95w8LEYAZR6n45Px+PbV7KqenTE2CqSrpkZhHNOJiMlVzjP+vf46rqVDuE2thZDhqYGYs0juWJ7sfT4fDQzuAiLLPktBRumFleJXZO+GAAIx8O37tWNxEAwrBSJBARVqY6dsvKZukdvcBI/M6IrmNFd4ZB7o4rQ0sTdQp5SQ3R09/17nRbVsbWCmUT0KybVMrASExTRehK4H659RpfGvCsczfohe0pIQ3s0brk5yQAPqdQ17iEhEnRJBXrAX2QgHPbHv9vmD8DpWvVdSmiS1kKuFiSEVB7lkfqGP1+GkbXM6p5/pF02jucHV5C+Q5UnK9IIP5/PVxxLgQTogNwfkjrXRRqzmmpIx1YH7IZ/TTjFuAVkAbaqoL5QsoMppoGZu48kP7vzyPQ6IrkmHJGlh2Hx+/qjx3u2M03VCAg9G6Bhh+WmpYtxbcpSKesIi1luqo3khoqc9xgOoJzoHEECWxdMWMNwElZaIMont8B9M4T0/XVXvDg66RtKnEZUGaS2hJGe3RqAO2Pho+9uBgCyIpU7mLIkNRaGTqa3osjA9I7Yz+unbidoTCjTva6MWty9LezqpJwe4GO3p20oxQiCETRbHIFYPbAzKY6ZjjJJPbTU8RIvuixgm2vqgtUW330SGjZx+FR8fy0WVjMqFjQCk+1WgBCsMLDOCVAHScfP5503jE+qVwaJDQqkrrfI7qtCvun8Rx736eup7xJ0TOczNDQiedbIwsjUxUjB+Jx8sDUdWtEWUhsSdFTXaCInoKupJIw7evzPbS+IbyPooXRfZWNzYkKz0jIThffYfDsM+mo2tHKPyQD7QY+aP5tWEZacIIyvf9qWAIHzzoir0Nk5D26K0cld0ESdBc4wFlOBo55sNkrXOvI+qdeZUeWvmxOpJySZQSR9PloCpluU/hOIiEjzEHSJIQEGe4mGCNQ19ZGqV1MyLXSh5LMP2LBMAAeaMnv21GVdJUcAdBZDNLBMCFo5sj4dXZfqProuefmkY0QYCIsETYxTVBJ7DvjPbRqVTEqBpO0q5hjWP3aKfOcdXb1+Pw03iHdHwBsEiKA4OKZinpl/X0+miax9PqgKciw+iuY/fOaYhMZzk6QVHaI+GJsEPpnDu7QSCMLnJUALol5+aDg6Yj6JyuVPvRu6DvkBSD3/APvpfFhF7SdQkxTo3ZVAJ7gEj1/TTOxCDDFgLJ1HI7J1MMOCQFII/X0xpPEvqiwEROip552DMyJ2z2KjH8vlp21nDUokuva3wS0q5epVjSFO47MAP17j19dF1czqgDJkN/JIatqXIjkRHZexAw3SM/DtphUcBrdB7jm0+/REFbInmMKdS3p2ZcE/D10BXJIEpswuYVfebszItPgKe4yO5x/130HVyoHQ6C1HarMaU5R4Jw6EsqnLRd8AHt+vbOrDVIIv9/FQOIERZCeplKgiKoUFs5BXI/eNVvrxyouNoAgICzurszGtYEd+txgH6DAxoGrN0suLocEtq5elCpU5+PUNP4siAo5xgEIPtUOemWKMygYHvD+Glz8sIyAZISS4AGDSqq/iXv3/AI6jqhlRxIIAKGKsEqsdTTwAjIHXkkfDB/poF5AkpHTYj81ZKpm8zNX1kD16hhfz0prEaoNLiSJunKzIwZHkduoZ7HsfT66njAG2itY4kXlNpKqdGCwGB0IwC8n9NTxJB/ZVl2yH7fMB1NJTwqceshIP8NAOGhS5nDm0SZa+coyCqTp9WPmHAI9O2f46UOAEnX7+4ROJqRkBt6/om5mqWfIuQ8vsSMEDTlwgEyqgXk3KOkyh8x1dSrMfeIncZ03ikAACyJIm5VJUiMkR11RF8cGY+o/M6niggQmMzIKcSV0wZiLlNkjuxl7nH09Pj66BrGPVCqXH0SHrKjpVIrhNLF2PvSd8j07j+WmFQ5YOisdnDZVCvuMIZEmbHqcuTg/l30adUjRKWkkgoslyup6WjqlVz+HJLEfl27HVrsU4GxlNDjzR6Ski53pgh9qp8Z9Xzn9SRpjXcIvHwU8N3RIF6vBkLBqeT4EL2U/p/wBfDVXvTyTJVLpBnLurter10khaSM+oIA7HSuxFQCJSlpB0Q4Lte6UK0hiqQGLDze/fHw/00aWIcND+qDS4aj7+9k6N/uqAYW3Kx931OT/H1+umGOfAko5TGiGl/uCdAFHRMAe58wnq/ec6Pvr5kEIMEWj6/qjJf6jo/a0CMufVHGSPoD8NX++ODgCFCw7BLe/r1OzULgjvjrB/L8tK3HOgff6JCIP39Fb+0kChEjp5x/jOR1dz9Qe2rKmNgXCVsgxKptxxIoZ45mJOO5AJ+Pz0j8dGyvYHESFgpt3xtKBFTTiDpIZmIBB+BA+P5azux5JtZIAZAAn9lp09dU1ldHULI7sF7Mzehz+LXPbmiTqrTUl4aNEgor1Lu0rPIx6pX9c9+5Hwz/rphUOWYslvmsUeumado1VFWPpACA4AUen5/wDR1CDJJV1WpaAsXMy+8QwjUdgioc5/PQOknZZqzidNPmryW/CjLSuMHKlT20obKIo7Kxop16GiYoB3GBkfLQbRtY/f6p203bfqjo0+GVgMkYY9OMnOf36V8zmIVjQd/olLJP0N+xkbq7dwB/LvpC0DRVNdYn90OHrKNGywg59SD73+umDSJI2UZpYJ7CXeIklCQe2M5H1+utAZlN1ewXVLI594Rq4z7xHbtn6fHVBYRZAZinaTskjhIoWBHYZ9P+vlotYTLldltpZNJnmqZRTo4giP4unI7/njQfTET0VF5hXFKsatCKhlJb06znOg2BaElWmRN7+qs4YtC5rWjYj3VcHH5d/hoODZsFWcx+H380ZIZ+y9ZZT2wqj3f1GtFitIZclIEbsroyzEkZICdQP6/AaGToo4bH7+/sq6RdMRVFcYAJyR6/LOPr/DQcALpWjlkCDZJEayMiydRJ7v73YflgY0WkFs6IFsJ4IKdsyxMY2H4W7gY+Pb1I0C0XEKFjZt96p6AOhMTM7du3UQTn9M6Tw7yES20f2VkM0CDpjAABAAb+mgAJhEHKd1U007KnmiJm6veDN6DPx0zWaEImoDqgS0ntccJkmZEDYwrZz2/jomBPdWGkfRFpsYUpUq6KMEuFbq+GD8vjoUw0gQq2tA0SXfymkD1EasxK4b1P6AemmDwWwLhWTrKtApToj84sAwwrx4Bz8ifz1Cw6oeHr2TpFVSzPNCqA9wCM5z8e319dMQM06myc07iEeIUkrSipnqpqft0CKVVOfmcggj+Oo1o1Iv8bJntmxKZKIQwVJnAH4ABnP6fnoCnPmSAbJTQLEgkYiVi2CCPT8hp3DREUGxI1RAsBifqLOpGezEDP8ADQDoMBI2mG2/VXp4/wAEqVEiKi4GXJ6R8c98aj9ZAVjGxYJwXjjifNWGRc9i+f1GhsCrA0i86K4iMhilhfzM+8MLkEfHTiRbSFU6mDcf5S81URcCjeaMHPV7qj69gMnQzECSdeqaQBpCGlbUdTxGJoeoe7gdh+QxoAOkkFQ1mi0QCni1lUzYDsyEjKlcenw08ZocEA+TISnnqGUIjRhur/AQSv56AJ23+7Jg46Qm2KqEuOurjQ9RZiw6h+XrqNYSOZSo4jS0pXVLIhImqJIv8QLnIH7v5aam0RCDTImVTxkmSEicp2wrMcN9CP8AXSEaHZB2m6L5IMEcMcghTB/ZghVUevfvp3SD3Q8MFsbLHJTUqS5Z0THY9x7vb17d9KDLZIsqW0G6HqjyVMcYDRV8jkZJAOQo+AzqrxDOWEzGXgFEF7WFlE80T59Rg4B+f89M0EnKArGuymSnCVtK7LIrSrLj4MT2/Mj8tMXQYKUNBMkojyReWzSTtGoxgeZ6/qdLmkxr99EHUgdd02jw8yoBO3oc9WOn65zq4XCBYCAESeI9IZjOp6uwY5wfpjtpCCD2TGmJF0TzH8rMkaEAerDv+v8ADRL7iblQNGVNWrI0JABQkEH9mcIMfLRgCCbIANmxSFeUskUSyOpOcmL3R8cahfukY0k5QkzTimMcvtLRSMewAxn6YIxpRBaAEr6ZF56fd0RKsuSq1L5QZYugAb/LqxzhGYiAnY0E3P5ontClRL1SoqkDBT8YPxGqyZFt0wY3YqxnWQoYqkdfUQVMOMjVgqblHKCBlQZESeN3EqSAd8eWQW+nrql5uVU9gg5UAwBMd5CpPr0sfh8840C+bD9EgokapMMZbqdKmMMoGV984+vf0OmLhqUrqZKS7U8MiGWpV5G7EOhP65OjTqNBgJzSIvqgVMKq69AlYsVDdK5B+Py9NKXy66StR26/FOI2JU5jhjH+EtGTkZ/++mDgbn9FDTAum1REzz9EbVBRD7xRQFUD5fPUZbmKL6QiCkgSsCYytSevPS/ugfE/rpQSAICDaAmxS1pWmyZVpYQuD70ncD9P66fMI5lW2g4mG6IfkMUJjMZjwOnpPfVmYTZaTR5eybPJUwydCxMhzjOcd/z0hc6dEpZsLd06zOoEirKH7AYIDY0c3LcJS0i4KE8lYQXVpn6T6lj7p/19NOJ6JgCYk/f6pa11YARHHVzgdsJ8T9Sew/LVDg6dPv73QgxBTb70rkVvMp5VfPyPY/LUeCke8kEFGM88sYkIdAT3Bdl6c/z1YIlQtLhE/VXqqqFXLeyzw9OOktIz9Qx3/P4/LVTiY0CD6YBubpmtWEkB9m6ox6guTjP5fTTBpBkWMeqJc2TEwrrcUjfLhQx9GUsQo+g0zZN2qQyZmE2lr5Jw0YqPZ1ByP+Jvl2Hw/wBdLlIuVWHAiJTlLlUdwGlkf06urscD4jSlhjKAnAAN1j3ZpQgmqKmQA5xg4H+n6aBpybDVQAlouhoIlAUdXyP/AF8NHKZQewC0q6Zl6goKKO3bPc6LafySNj8KdQBkRo2KuWA6cn0OfXQLZ2RptcDlN/7pC0k7q7KiyyjJwR6HHz+OrKnRXeE75JtPSVzAHysnPUTnGe3qdUvablVVKRLOpQxcZ0GJqZmmIz7wx2/4jqoMIuRAVucEkEXTyKpjIUSRU6dRz14yB+n+mmYXExrZWwNwkS1fQ0hjUmIfEHGPyGo5pJ7ousZGiua+kChV86OQ9+ojuDoCne/qqi9kSUwWqpyR5kr+XjJ7HI0cpAmElPLNjKdLNE5LSVQjjyAOkEZHyzpgSTBErU2C7VOhPTRHpEnWB72e47/mP10csnRIco0SFkWSRY0LrHnPce6Tj56RogkKNLTBB3V1boqkhSnYDuvWcjP6/HTXMiPv0S5uaEaaTo8uDqK5bu3T+L9RqoERCrcIsfvqiRrG/XPF0PgEAkFjn/TVjoFmhFtIZkiOSTCMkrLk9wBgfvGnFOSLWVzWt2N1T1E4h6FmjXqOApGD+uqxYqXDYKvDFNIW84SySgZXp90AH4404F4F/u32FKTbXRZSYQCIqgxg57N2z+f00oeJj7+ylNLVJyHZHSGXzWJUdzk/E57+mmDTOkIVGtj6Jy3UhHT0u57FlQnv8s50oEXnRO9g6fmmQeaaVpZixhK9RC47H5HHz0AANdlU1hI6J6yyFBMKiGEd1GTgD6kflqeIIsrRS3H33V0hZ4RVGd6hFJ6RgJk/NQe/66gZrCjqZFyZCaLUBR1RUykggt1DGB9dM0v2sEGRqEuSSKTpVJIY5Bg4LaamQXadVYGj0ThV6gTL+0XqPb/iP+mmdb1UewFyEIpkbtFTgMM9u7Hv3Omc/mCjmgOBI1RXkqJpVj6YEjYd1I9fr6aUgNv0TVB+FquHqYmBQIob1IYHA1MxiAiKZ2RRUy9AjiMCkepUAlfy0WuAUAMc26N55QH2yCOpkIwfy1AeijWgeb7+/qrt5LRSgLDTH1OAMkfl6EaBf+LVWMpyDlsgNUwNEkipArKMZAGGI+mg6QAR97KttISkxXSGoljBimjkAKplMYz8z9dAzeR8UoqNJsjPVTqAViiAz+Hv1dv6ajXG0o5yBGwVzJVnNYZgsSnPUo7Z9MeugCNIugCScw0QzJV1EjSJIzMABgR59f66lQiJGisuNUSNKhWMTSTL2Jz0HKn4flq0AOExCRrCNVdGrQAklRJLJnHmMO2PX9RoOcBDtkZI1MlEhqp1n6llhnPQRlR8Pl8tEuluYKOGX1KvUVk/SQsqKVBJQDv+oOi65lGuYEK00lwNPHMjUwj6cnCfuAz/APfS+pVbwcokJYH7MZTOO/Y4BOjrZBzLAHVM5iZHHdEYgjLjOfj2x8NI0QR0++qRw5pi4R/aIhExSIyn1U9eM/Xvpi689VGtEGyJEIZ27PMoV/RvRfy+emLbghOACbI8tNGV8sSkN+I5HT7v1/hoNIzSE1YGYKS8ApjLIlZNEwHSxck5/L4AaNODcd1DTmBKMI0YovmU5Ocgtlst/rpSLSJULCYhWdQpdqiTpPbrwxKk/l8vy0zSDBiUAw6u3STMxEk0ckI6BnJjZs9vQD46QmddP7oFgjVNp/aZ0RGqJynTjqUdIQD65znUJk6IZZIbNkOI+VHEorUIDZDthj+WjDYtZKWEW19UJqoJN0GrkkGCSTGB1fke+mLhlgBETMJSNHM3uO8zjLt5nrj5A/6fLQgbdkDSaTOu6BVwVKSRESCKNmIEi5yMn6Z9NQA6k26I1GkaJVTS1VQIEjnKxrnse3V+eq8sSXKstdEBNlhlpzFClezkMCy4IVT+ei1jSC4C6LGuBAJVjT1TdTB1MZYqMev1OSe2hlEEpyBcO1VewmVvOURyOSFVu/UT9NFjQDF+6qNM5pKyEFAUjRpJZoh+HIfOP640agAcQRqnDI1smwpp6ch4GR0Ukgl8BTn8tKGtgA2SgCbSUta+OOQwl5ugA9TRnK9X56jKh1ama62VOKq4RQqwdZSWGOknv3+fbS+IdBcJpa0xoD9E2kuVI4jDK3X2GQcgD9R6jOmJN50Smo3TdIirKCNmAkJY+pAOWP6jvjTdgrDliAUeSsto81fa3LP09RPct/DtqQSlc5swVaCso3U4rSMdiCgB7fE6LyA6AE7D0ShVRzef5dargAZTyzjHz1cxzdpTlwzSFY0/WyOsrBfxqQSMflpDGioLCVTsoTojlEgABORhh+ZxqkifKCmDW2i5TXMnSVJjRSQwAbuBnUDTaNQkcCQRCSwNOrJPCJWBGMgHt+n56hdAm6hoyboUFTFPIkVPRqz5ywT/ABDHfP8A4ajbnNMC6rDADEXS1rKSJR0vEznOehSf351YDuncG2lV7ergJGWdW93pYher9R3GlZMJS5v4QlechMaToVhJz8wB+fxGoHEDv+qDQ2Q0W++qIZ0yi+YYARjCgHtj17ab1CsyENAQHWMkJF1tE56c9OD6/wAfTUc4l8bpazJOt0mQwqS7yztn3er/AIvhkDSujQBQsykHojoqgRBLjB0HGA698fLTuANwEKdMxIIVOABhXQOQMdKrgj5/TQc4SmqMEaffzTCSnDBmkLTkA+67YP6nRBiFW+i46zbZba18jq5EM9rtUmfiade+uc3FO6rWXMmS0JyK2xvIq1O2rXUMPwkBl/kdOzGvAk/oi0U92/mhTSbNklME23FQYJLrO47/ACHfTDGuJmEfDoElgn5pBXaNPEHSwidQ3brkLHTjGZQMsKjwKOXmBSKip2th4jZREGH4kIDfxGldxI9EXMpAQVhmg2+wIjkucUZPcFUOf5aQYoG5EJ2hhkIiU9nLpi5VaqDkK9OMEZ9PXTisJ5QgWtI1RordbxMJI7mY174DRHC/z1Uyo34/f5IMDfKDaU4eyvO/VFfaFIm9RhwcfljTzTIgzP3oncw7II22gZPMuVslIyciUqw/hjTl7C2AVldROpKB9zXFJehGo5Kc4IPtYyD/AKarMZrFEB05bo8lku4JNNTRyv2/DIhx+mdWgiIBC0Oplp0TGa27nMbRi1mPqzhlAZv1xosp7ZtEHOcRBCxr0G4oo1WWmqyuRklT3z+Wl8CbqZnARKfU1RV06JEKZpWC4LPEW7Z9fTGhTpua6RICZrxl6pgbrUxTSyvSovc+8Yj7v1Go5jgAFQ+s0XgIK7kdSRLDBJkjv09JP0yNIxzidFW2vHM5GpbpSTSSFURCynC5+OlzTqradQOJA0TsSxsq+0OmOokhmHb8hprG2339/oiDsUmV0Sb/AGSlSVOnA6ZMjH5fPUDupTPgHSQncUrlcSUojjIx09Weo/lpmmIG6am68aK59mVA6U6wt/w49NOHmb6pgGZb2VMFlXJIR8j0Oe2nsRBTPMyTqliqpFk6PNcuOxI9R+/VQfsrQeYCZQUqafOZKmUHPSq5PvZ+eo10jv8AklO4KtKI5sPKxbp90HBABx8O+iHgiECCd0Q01PHib2mRZVUdlIIz9dXeNIjVECNUNI0TLEyOX9AWLAd+2NIXWt9/f3KUQTE3VhTk9BkZYxnOVQsf1+miST9j79FGsk33V1SMI8bFJHOcEqQfh8BpBsoxglKj63kZHQRwnvgsR/1+WpmgyUPNZycwiBGzHSMGbv3bOB66niHykoBoEEaIfUwmaM9MaMDkN73UPl9NAa5lJId2RYBTeSSJokjLYVVBzn66arUCsFKBPdWmeHJT2p+5HujOf1OiXSbahKW90SXpRYooqieUtg9fUCf10CZMK17Rlumxd/LHQs6v3Hde7D5dv5nUJm0KoiPREglmPWs8rv19vdXsO2oY1n6ouLh8URyViZkkKxg57gZ1BU0m6j35dNEATSAPKvllVIPceh+ZOg5wiSq3ESb2+9VaF5O7tVxVFP8AIxev6nUaRElLnc50kiU5LFpIZUiWT4dPYBfr3/XRbY6qWgkBOEGelPIjdj+HLjsNTxOp0TFoFwLpazPBl0plDZwSnfH5/PUdUIuSoLG6x0NX5tQ7sOtT7rOO4J/6+H00S8tgyq2lpdKyMdWXwQy5B9AuB/H9NQVJuFcNUKZVqWileUrj3T0E/uwO2hI1SHWZhVKWTDIzp8QB2P8AD0+GoHbgpBDZMpRcyQmV5irE9gV7t+vrqARIF04YM102cxxxuGpo19wZwuO/zxq8VNgZTFt5CHGYZ5GMUflL9UHy+egHEC1/v9VVkBMNjojLG/uqsPvdQ9SMMD6/l8NVgxZMaVwSkAmKYwxZdWbIUEYP0z8tEFsySi8OktG6eSV0IeRXp8yJge93z2zpBUzaFAgNEwmMlbKyrIlIqxE4VCoHf/i/nohu86pM5dtZNJJa7pjESogY4BC+p/oNQmTdR7osNU9ijrYVwJIfJJ97HYt9c507GtBuq+cFClgq5SxBiiQerBuw+n56rzQTe6Lru5gkQRiUsal6eOBV79CFj+g9M6sa4WJlQhxMBN6hIppVWlWrjg7hTIAP3DQyZrgBJKV92ygyO7QvJjCsx740CAjBJJ6pmtBK0qxGGEr/AIgreo/M6sAJEqsAkybfsjCgI92aljC5OOlu+nJLjKIpgiIsiNRR4cxUk7OCABkY1QGmYG5Vnh3IIuFUdHGg/a0s7ysCGwwxn541bUO1lG0xMBNRb4QSppp0Q989Y7aLXCbqGlqRKf01OkKFIvbyoOSBjv6/DSuIlAU8upKqaZ4w3kQzIrDpYEjJB+WdI5+YX7KDMHCNVUMUJRZSK4OoycoAR9c6cATeJS02g8pKZrLcBKGCiSA9vX1Gqg2RZQuAbCP+yRumOCojRsgsqjtn17acmbINAG8FMjTM7lC1XGvop8tR1D8x6DQMzP6oFsXJRJE6ECQxMAe3U/8AhA9fzOoMxN0pygWSUaXDJ7O5JHc+uBn+WpJhNSA6aojSyTSBURelcAhjog7myscQUKORy2GhheYDswcnHfUaDqDZAuOYQrIlRK7T+TGue+QB/LStaL82qBe6QQE3liuAZfLWDsSTkd2GnLNpSHOTLRBSlpLkIpVRThiMnzO5xoAtI1srHuKVDFXoqiRI3Qk+8SGx3+Oi+DulJcTzaJzF6U/+Ztcqrv6furaOvyWTp/8Aez+R1hb5B6hNv99QmlV/fS/5NdB+rfUfkFditR6Ikv8Aur/mNLR29f0CyVvxfeyYVHq35D+WqP8A3PmqDqgx/wB1+g1rHmb8F0afmd97IsP4x+Wi/wAv33VFTy/AfmspF+JvyH8hrNT8p+CodofT9EVf75P8w/lpqfmP/cF0DqfQfkjP/dH8tUYjyD1/RKfM74IU34R/l/prVS8wWOt+yLR+h/yHTu87fvquhhtH+h/VE+K/mNW1fN8P1T09KfwWYp/SD9f56R2/x/VLX1C2ak/C3+VdXO29f1SnzP8AU/kg1n9yv66B8xWHG/7Xy/Rc4uXqv5auZofvdVO3WvQf303+XWvF/wC78vyQ3P30Vq7/AHg/5NZ6vlH31V7NT99Eim/HT/8AvBoVPMVpZqfVbDU/7zSfn/Q6rwP+y74/mEh8nyTWs/vF/wAi/wBdHD+b5/krTqExX1b/ADf66qr/AH9Fnq6FOov7z/uDS4zzD4fqnb/ulAT8cX+U6uP+031Cu6fBJP8AfL/mP8tXVvKPRDD6H0/dOl/u/wBf6aowWrfvdIPL8P0WZp/90h/znUraOVr/ACJrB/fS/wCf/XVZ87lsq+cfe6M391N/mT+Z1r/9j4Lku/H99UiD/wBX/mP8tc6p/uH0/VXU/wAPqfyCaJ/+If8AfH9NaWa/Na9x97J43+8Sf5f6arw/+yPgq8P5x6/umq+sX+T+utNbyffRPS1d6ptTf/ic/wCf9dU/hPx/Mqv/AN9voni/3kH+Z9Sh/sfJY2+dvx/VEj9F/wAp/nq/8JW3Yfe5WOj/ALif8z/LUxX+4fiqqPk+P6LMQ/3NR/lXVLvI30CFby/BNaj/AHN/8yaQ6hI3R/p+oTVPwQfmuqm+ZvqU2C8rvQfms2n903+Ua0t1b6n8wlo/7abN/fxf5R/8o1a7zPVjtFak/uqX/Mf5axVfP990jdR6ptV/7qP/AH4/rrW7zN9D+iR+rv8Au/RP5f8Ad4Pzb+epT86vdqfvqsZS/wB/+raLUlfyffULPL+Of/MP66qHk+f5hXV/P8vyKVTf7xJ+WrWJx5mpunqfyP8AXQZ5vvsrHeb4funUf92n5H/5dHEJXeY/FKm/DH/l/poDUpcP/uhYKn/C3+dv56vP+18D+RVTND6rBt+Jf/e/10mzfT9FSPK71/RbkPSn/wAp/nqmn5B6pho30CEP6D+Wqa/k++qrZv6H9Fj7l6Sf+8GtNHVWcQ8quvrJ+Q/rrVT8330CoxG3wS4f9x/7zf11lZ/tj4fotJ8zvT9UqX+8of8ALrThfP8AFZW/7fwCVF+Nvz1gdqP+4/qtQ1Pono/vE/yf11tp+f4qpu/oEqn/AN3l/wAzf11S7yN9VK2/30SIfUf5dA6H1P5K3C7eiDWf70P8ui7b0CNL/dC1mX8E/wDlH/zarf5x8fyV9bzj0KzkH92P/dp/PVlXZZBqfQ/mlP8Ajpvy1XW/3B6/ukq6u9T+idVfpX/5f6atZ/tt9VWNvU/ksVRf3zf5W/kNNT8jkKerlkIvwU/+cf001HzLLU1CG3+8Sf5W1XW85+H5K6n5viiD+5H6/wAtIzylNV8v31Rj+Nv/AHmq8Tr99lH6n4LDTf3I/PRf/uffRb6ug9CndH+FvzH8tO7y/FYmaKy/jk/zf6aXEaO9SrmaBNX/AN6b/MdbKfkPo1V4f/cP3siy/wC7H/N/XSv8wVlLytTBPx/97TjT76pKvlX/2Q==</binary><binary id="image1" content-type="image/png">iVBORw0KGgoAAAANSUhEUgAAADAAAAAgCAIAAADbtmxLAAABmGlDQ1BpY2MAAHjapdG/axMBGMbxTy4tldJSwSAiHW4ootKCqIOrVShIkRIrJNUluUvaQi4Nd1dEXAQHF4cOXVRcLOLirJv4BygIggqCi7sUBRcpcbiDgtBBfOGF5/315eV9qR7qRUk2EpL087S+MB82mivh2BeBcUcddrwVZYOLS0uLDrRfH1Xgw1wvSjL/ZpNxJ4uohFiKBmlOZYC7t/JBTmUXtWitFROMYDZtNFcIzqDWLvRl1FYL3UAtXa5fIughXC30A4TtQr9AGK2lCcFbzMRJPybYxWScxDFVGE16m1G5ZwUTnf71aziPaXUsYB4h2tjEOnrIMVfG/QJyAC/GtKvYKFlRqQe4jbTkrGKtZM+WvZvI0CnjbtnfKb1XMtBoroR//yzrnjtbbDRxhdFvw+HP04w9Zu/+cPj76XC4t0P1M2+29+c3trnwnerWfm7mCVP3ePl6P9d+xqstjn0dtNIWitMG3S4/njPZ5Mh7xm/8b734Z1m384nlOyy+4+EjTnSZunkyzsP1ft5J+63eKWT1hXn4AzDofghlJQBJAAAACXBIWXMAAAsSAAALEgHS3X78AAACInpUWHRSYXcgcHJvZmlsZSB0eXBlIGV4aWYAAHjahVRJtiQhCNx7ijpCMIhyHNPU9/oGffxeaNY3p/5VC5IAQkAhtL9/evh8Pp+PiwaNKZubAYDuugNcMH4ZIAN6A6ATo68kdAA8VQ1DkoEIq2EILiBiALIQDTISWvz3SSQNJHwnilWTGgC/ZMSa1Fc8TDznZH4rgWOtRrwQKGh8VyNZ8bAY9Ccj1EGXUI0JwNE3n3itxrzis7Sq1TgBiNMwesKo1TjfcdZqXBaiWRpLrcbbEjBLU63G9QGv1bit+CSKWi2W8+3QLDluF/wIBgBEaNQWNSjFzHj7/zgOP92EBap3v2BqlNi2pEbGVi0yBNwkcRPiTVxIJDVLRgJxEXGLRgAgLBASkiIIwlIEYgyBJCnC4lKExN6yGSW6SD961nvvQaxhBZq4rbptbX1HlJPSokN37t9m9957a5utDux7Xwk06WnWWOJ2yqgkPqW4e2urnmNPK0HMtq0Hkkc7ZbSXUleHiNMIoGy7r/ppEwAIV+Amv1rS/3ghgCz23ns+m/HrASdJMWT2chsBiS2z73fcLGd+3E8hZ05nQ81zzOW2n8Saj1VzwTMHZ+g6xcPg5ozLASM7Z/hl9kaPnPFQmrcyvm8lFKbrAQwAoegtYFy34rEXRSFP/qEo4tmQ0wywlwPyG5G/BJQXvF5wOR4k7m9HjlupR/y6Mp42RjhWxm+Oh99BvMrwD3UCiGvkpxuRAAAACXZwQWcAAAAwAAAAIACELJ4GAAALGklEQVRYw11YW48dV1b+1tq7qs6t+/TldPsSx3bbcRwncWY0A4LMCOYFXpgHJCR4QvwAnpAQj/wB/gR/ACR4QUKDECMUEjLOZew4zsRxuu122+52n9Pnfuqy9/p4qNNtD1tLpVKpap/vrMu31rdl/nAgIjSpF0kAJAEHGJwAAIQheqeARVqomCQZGUkjSYLmTAyAkCJiESRVNYQAaL3h8k3SzPj6MjEzsr7SqyoAcRABQItRVZ14kqifmNEkTZNiUZiZ934xm4WE3mva8GYGAA5UJ8YYIyCipiKk1ZuTBAhQBGZQFRKvTAgBaQBIeOekBqpa+0gBxFgAlmhqhixJzUKMRVEUx/3RWmel3z9xzrVX2+tuRb3WnrDKVFUEgKlCVWI055WMZ76AieipX0AYzYwQUZqZqJD0tKCqFJAxhKiqSZKooirj06fPMt/odlezhngFYar+0e7jxWLR6/Vc7ubzpNnM4BlDSDLvvQ8hnAYFIlCFRUDEjASgIGFGEcBIoSrMCFAVhgiKTxJPkgJVSeBBhKqaTCb5Ip4cD/efPP/g9q2soSvdTp7nAuv2Vk/2BoHFyWgRYxVjbDezRiMDMicNxqCqqhIZVZxZVK3zaRkgXYaMdeDMoMoapSpo8GSE1t6ihaCqPs3WV/VwPpxOp8fHRw++cUmq7XYzSbLV1W5vu3fw7Emn0xwcD+ZzF8vKQtlI09R7J6SXOldgEDEwAmdguMyYV/lEVWEkARExEkoVBxHWxeUSFefK6fTJ48dlme/sXN7a3vjVnf8NIQ6Hk1ajOZ+Nf/3ZZ9Uij0V+fedqM0v2nz5ut7LtCz1GC2WVJqmry1KgZKLqlbo0qLPanJrAVKgSRX/LPElxQF0smiDy6Ojo7pd3qXLjxo2r1y8fnwxORpN8Nt/u9fLF5OTFcRVKDWE0HJZF2O71IsOzZ0+e7D3tdDo7168miU9SJ6IhBIGD2KuKMpHaPwoFXkXq9Aak+/u//TsFRCEgEAljjFtbW+UiHPb765sbJ8M+Y9HtdAbDgWs0pSge7O1u9Tar+Xwwmy0m03I0XpgbjydZlk2n43armaVOJIqQDEIIIKBABK/iBYuAnT4HwJrx1CkhRosAIRBBo93ImunO25dv/eBmb231+rUrRTH/we1ba+udhw/uSoZGOzt38Vx/1D85folYLhazqpg3mj5ruNWVTqPhxcEsAOa8ihJiAhMEQVChCgXmhKcWT41O6IGq5kCjqPOTk9F4PF7rrlvKRtQHjx/d2Lk+mgy+evrwhzs3Xuzv0tmbb5z79LNPzm9utdorEoNkzPPx+x+812o10tR7DyCqUwCMQUUIUqm2JOolbb/GjmbwoDGS9GZBnYM4IS0E5+TChS1Nk7Z28uPhW29euvPRf2fN1pdffNE1vXnzxsGgf/B036duvbce5tXG2uZkfnL79q3t8+sA4Rws0CJIAOI8LADUusLqeC0rTl4RJgyg1Fe+fB7yUrxTQoRWVoExbWTjl6P5fD7dO6yIF4P+bDK/92T3hzffLWGffPq5c7K1uf7hj3+PrLqbqxffuDQc9VdWVtY31846l1CFqJlalk8gr/UxAIzLLrZkbVK5WHgHhFIYmS+K6ZhFkY/Hi/5gPOhLUzvnu73L59KVxjyffXH314vFIsbYaTXeuXFtcHx4sPd9S+3l84PMwTsyBrMgQhUIgrEUREWUU4O8uhcLdW45BsWpiVRgoSyYTxYn/ee7e9/f/2Z8eOwYm8pko4EktDvpzOZXL5z3Dd3b2/vi/r1G0795cat//GxrvWPTaW+lvdVdXUkTCaVagAUrF6wKVSAGxIAQJEZYiVjSSrBSq4SVWCFWKINYpQzK4FHmhqjOgbF/+Hx0dJyXtv/46ZuXtrrd1V6ruRhNJqPZlfbq5999/Dt/+LNf/tf/nEyH585t73338OrVS3E8Pnl+MJnOi7i4fG1no7cJ79Sh7vPISwCwZYCERN3TjQCFZFxGE3FJV97iXCGIKBZlcyV799zbIdhsNnvyaP/x3r6Z+Tx02i6Kv/7WO8bFX/3ZT37xyZ2yf9Ta2n73vZ1vf/Xlv338+R/97MOVjc63X99fbXduvfuONBJTAlDxiBGAWKQZSVn2BZ4lDYwAlDQzkF7LEmYQyUSTdkvTzNuiZLz25vlOt3N0cPTwxcH7W2/9+NbN0Uef3Pvs6w/+9KcraePb3+z+6NKF+cHLvvN/89d/2SQsTSdr3clwMh0M1nvr0ki4yI0iQgBSu8dYOwxm4BIEyTrTEY1mHrNpZD3KiMIhlLEokljKWueyytsX3ji/2rqzuzt4Obh95eLd3+ztf7Xv1e2sp8OXw73h8Od//FNNtIh5Rqx322tZWoWimo1c7hQi4mgBxtPpA3VBkXQ0M8BOh5VoS3D8j3+CACqsR4EYzUyIalqaCqCxyIsB/uFf//lPfv93R/2jf/z4m0Zmf/6j977af/wXH/7B6ubK+dVV2+g6D0Yzg4OoA0kRrYoiEXcarFfzq7IueJKsYZktAXl7MRURiARakiQ08xAACHCGybj/i3v3ZoNyDa3/vPPg59cuf/fi4GKjPRmH99cuHT5+Ouv3ipV5b2ve2lxRdfPJLMa4ttKxEEl68ZH52bh4xkDhbLI2OYNiBpL+cHfmnKvfq2nf+eWXi2L+6PgQh42nk+GVc1uf7h9+f1T8ZOftXz76flu7L07Gs7FttCYvknH74PiDt24kjWa/PyvLElupJ2OMZFXBROS3hnoz8sxBS9+YYemhrw9L55xCFCYSalgR7Ehy/+DFnChC0kq3m37j9nr2L7uPnrw8UBb//t2emGsnybW8OW9M3uhc+fbprNWW0Qwh6MwKAQGEEIhlpccYSVLl/wkPM4unqEj6+7MyUZeIpj6pRxOJjDGO5qNpbNLsWTiSyt/dex5mR1Ui+9Phxe72w+moI1mmViSbG7xQNNpHlrhKBnkkcbIwi5WZGegpgMYYq6oCoKoiamZAfB1TWCoq+o/2DxzEiU/TNHXeBCGEqqqKGKGIDPOFTedDY8x8M5HEIRlXi5D7TtrsVpv5cDbZyB69eL7a6IjIfD6NNBHJy1A3tcRJCOV4Nmq1OiqZUgFznonzZVWIECoqXjWpijJGevVipFkZqipYKt6JE1XXjj5tJHk+n41jptrtrifqptNpq9WaTMcqyXon9VlqxHgyi5GjWa6qeZ5DJcsyM6OomVm04WQwnY3XIGkCQGEhzktjORoN8yp3zqVpI0lSUNXB59OhiChE1RdaSK0XSTNqoSSbmQe8F8Bi4jRN00WRr3TY7jSzJAEAQZIkCBUQo1aqmtSTHmJkrGApQtu7lodKKXDQGCyaaJo4mgeAEEPM667sd59/dyoQpUYDUQBCpZiqqmrNIgCEIKlgWS1OTl4OYl9gRoo40VgrRhGpP0G9qMZgFieTKgaKOFXQgolaCE7MBOrgnEO0aKWfLI7rWRaAnC4ATv3ZpiLiVQFYoCmzLAuhHI5eMsInIBkNUXTZUAERAVlvFSrziZoZFxOaaK3HAJOw1K9ArQXKMl/MJ7Ld6Z0l/1m86qMCGEXEe7+EW0+g4iFljCHxLQGcWq0NUp/Ur52K+Vc3ohrrFrs8PzhlJgBiKt7MYoxVKIpiIRudtdc9QSxheTPnHIAYCaNzTlXNzKg+YWRQpgKQRjGIB8Pyb0BJnv1ikFoYOwBEBKAEqFQlaRalFtqkc440n3IZrNp7Z4LExMpgy4SAVBaFVp9zhBCIaBQnDqhPSQgKIAJPksal+AG8ogpRnQCIUVRFoSEE9QIaLNCpqiPFQUK0/wPxadi/ncvxsAAAACV0RVh0ZGF0ZTpjcmVhdGUAMjAxMS0wMi0yOFQwMjo1NTowMiswMTowMGbLlncAAAAldEVYdGRhdGU6bW9kaWZ5ADIwMTEtMDItMjhUMDI6NTU6MDIrMDE6MDAXli7LAAAAEXRFWHRqcGVnOmNvbG9yc3BhY2UAMix1VZ8AAAAgdEVYdGpwZWc6c2FtcGxpbmctZmFjdG9yADF4MSwxeDEsMXgx6ZX8cAAAAABJRU5ErkJggg==</binary></FictionBook>
test/fb2/test.jpg

Binary file not shown.

test/html-reader.native+1−2
@@ -1,6 +1,5 @@
11Pandoc (Meta {unMeta = fromList [("generator",MetaInlines [Str "pandoc"]),("title",MetaInlines [Str "Pandoc",Space,Str "Test",Space,Str "Suite"])]})
2−[Header 1 ("pandoc-test-suite",["title"],[]) [Str "Pandoc",Space,Str "Test",Space,Str "Suite"]
3−,Para [Str "This",Space,Str "is",Space,Str "a",Space,Str "set",Space,Str "of",Space,Str "tests",Space,Str "for",Space,Str "pandoc.",Space,Str "Most",Space,Str "of",Space,Str "them",Space,Str "are",Space,Str "adapted",Space,Str "from",Space,Str "John",Space,Str "Gruber's",Space,Str "markdown",Space,Str "test",Space,Str "suite."]
2+[Para [Str "This",Space,Str "is",Space,Str "a",Space,Str "set",Space,Str "of",Space,Str "tests",Space,Str "for",Space,Str "pandoc.",Space,Str "Most",Space,Str "of",Space,Str "them",Space,Str "are",Space,Str "adapted",Space,Str "from",Space,Str "John",Space,Str "Gruber's",Space,Str "markdown",Space,Str "test",Space,Str "suite."]
43,HorizontalRule
54,Header 1 ("headers",[],[]) [Str "Headers"]
65,Header 2 ("level-2-with-an-embedded-link",[],[]) [Str "Level",Space,Str "2",Space,Str "with",Space,Str "an",Space,Link ("",[],[]) [Str "embedded",Space,Str "link"] ("/url","")]
test/lhs-test.html+1−2
@@ -21,7 +21,7 @@
2121 padding-top: 50px;
2222 padding-bottom: 50px;
2323 hyphens: auto;
24− overflow-wrap: break-word;
24+ word-wrap: break-word;
2525 text-rendering: optimizeLegibility;
2626 font-kerning: normal;
2727 }
@@ -92,7 +92,6 @@
9292 pre code {
9393 padding: 0;
9494 overflow: visible;
95− overflow-wrap: normal;
9695 }
9796 .sourceCode {
9897 background-color: transparent;
test/lhs-test.html+lhs+1−2
@@ -21,7 +21,7 @@
2121 padding-top: 50px;
2222 padding-bottom: 50px;
2323 hyphens: auto;
24− overflow-wrap: break-word;
24+ word-wrap: break-word;
2525 text-rendering: optimizeLegibility;
2626 font-kerning: normal;
2727 }
@@ -92,7 +92,6 @@
9292 pre code {
9393 padding: 0;
9494 overflow: visible;
95− overflow-wrap: normal;
9695 }
9796 .sourceCode {
9897 background-color: transparent;
test/odt/native/tab.nativedeleted−1
@@ -1 +0,0 @@
1−[Para [Str "Three",Space,Str "tabs",Space,Str "between",Space,Str "A",Space,Str "and",Space,Str "B",Space,Str "will",Space,Str "be",Space,Str "converted",Space,Str "to",Space,Str "one",Space,Str "Space:",Space,Str "A",Space,Str "B."]]
test/odt/odt/tab.odtdeleted

Binary file not shown.

test/pipe-tables.native+10−2
@@ -131,7 +131,13 @@
131131 ,(AlignLeft,ColWidthDefault)
132132 ,(AlignCenter,ColWidthDefault)]
133133 (TableHead ("",[],[])
134− [])
134+ [Row ("",[],[])
135+ [Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
136+ []
137+ ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
138+ []
139+ ,Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
140+ []]])
135141 [(TableBody ("",[],[]) (RowHeadColumns 0)
136142 []
137143 [Row ("",[],[])
@@ -207,7 +213,9 @@
207213 [])
208214 [(AlignCenter,ColWidthDefault)]
209215 (TableHead ("",[],[])
210− [])
216+ [Row ("",[],[])
217+ [Cell ("",[],[]) AlignDefault (RowSpan 1) (ColSpan 1)
218+ []]])
211219 [(TableBody ("",[],[]) (RowHeadColumns 0)
212220 []
213221 [Row ("",[],[])
test/pptx/code-custom_templated.pptx

Binary file not shown.

test/pptx/code_templated.pptx

Binary file not shown.

test/pptx/document-properties-short-desc_templated.pptx

Binary file not shown.

test/pptx/document-properties_templated.pptx

Binary file not shown.

test/pptx/endnotes_templated.pptx

Binary file not shown.

test/pptx/endnotes_toc_templated.pptx

Binary file not shown.

test/pptx/images_templated.pptx

Binary file not shown.

test/pptx/inline_formatting_templated.pptx

Binary file not shown.

test/pptx/lists_templated.pptx

Binary file not shown.

test/pptx/raw_ooxml_templated.pptx

Binary file not shown.

test/pptx/reference_depth.pptx

Binary file not shown.

test/pptx/remove_empty_slides_templated.pptx

Binary file not shown.

test/pptx/slide_breaks_slide_level_1_templated.pptx

Binary file not shown.

test/pptx/slide_breaks_templated.pptx

Binary file not shown.

test/pptx/slide_breaks_toc_templated.pptx

Binary file not shown.

test/pptx/speaker_notes_after_metadata_templated.pptx

Binary file not shown.

test/pptx/speaker_notes_afterheader_templated.pptx

Binary file not shown.

test/pptx/speaker_notes_afterseps_templated.pptx

Binary file not shown.

test/pptx/speaker_notes_templated.pptx

Binary file not shown.

test/pptx/start_numbering_at_templated.pptx

Binary file not shown.

test/pptx/tables_templated.pptx

Binary file not shown.

test/pptx/two_column_templated.pptx

Binary file not shown.

test/tables.latex+3−27
@@ -56,27 +56,11 @@ Multiline table with caption:
5656 >{\raggedright\arraybackslash}p{(\columnwidth - 6\tabcolsep) * \real{0.35}}@{}}
5757\caption{Here's the caption. It may span multiple lines.}\tabularnewline
5858\toprule
59−\begin{minipage}[b]{\linewidth}\centering
60−Centered Header
61−\end{minipage} & \begin{minipage}[b]{\linewidth}\raggedright
62−Left Aligned
63−\end{minipage} & \begin{minipage}[b]{\linewidth}\raggedleft
64−Right Aligned
65−\end{minipage} & \begin{minipage}[b]{\linewidth}\raggedright
66−Default aligned
67−\end{minipage} \\
59+Centered Header & Left Aligned & Right Aligned & Default aligned \\
6860\midrule
6961\endfirsthead
7062\toprule
71−\begin{minipage}[b]{\linewidth}\centering
72−Centered Header
73−\end{minipage} & \begin{minipage}[b]{\linewidth}\raggedright
74−Left Aligned
75−\end{minipage} & \begin{minipage}[b]{\linewidth}\raggedleft
76−Right Aligned
77−\end{minipage} & \begin{minipage}[b]{\linewidth}\raggedright
78−Default aligned
79−\end{minipage} \\
63+Centered Header & Left Aligned & Right Aligned & Default aligned \\
8064\midrule
8165\endhead
8266First & row & 12.0 & Example of a row that spans multiple lines. \\
@@ -92,15 +76,7 @@ Multiline table without caption:
9276 >{\raggedleft\arraybackslash}p{(\columnwidth - 6\tabcolsep) * \real{0.16}}
9377 >{\raggedright\arraybackslash}p{(\columnwidth - 6\tabcolsep) * \real{0.35}}@{}}
9478\toprule
95−\begin{minipage}[b]{\linewidth}\centering
96−Centered Header
97−\end{minipage} & \begin{minipage}[b]{\linewidth}\raggedright
98−Left Aligned
99−\end{minipage} & \begin{minipage}[b]{\linewidth}\raggedleft
100−Right Aligned
101−\end{minipage} & \begin{minipage}[b]{\linewidth}\raggedright
102−Default aligned
103−\end{minipage} \\
79+Centered Header & Left Aligned & Right Aligned & Default aligned \\
10480\midrule
10581\endhead
10682First & row & 12.0 & Example of a row that spans multiple lines. \\
test/tables.ms−30
@@ -143,7 +143,6 @@ Multiline table with caption:
143143.PP
144144Here\[cq]s the caption. It may span multiple lines.
145145.na
146−.nr LLold \n[LL]
147146.TS
148147delim(@@) tab( );
149148cw(10.5n) lw(9.6n) rw(11.4n) lw(24.5n).
@@ -158,40 +157,30 @@ Default aligned
158157T}
159158_
160159T{
161−.nr LL 10.5n
162160First
163161T} T{
164−.nr LL 9.6n
165162row
166163T} T{
167−.nr LL 11.4n
16816412.0
169165T} T{
170−.nr LL 24.5n
171166Example of a row that spans multiple lines.
172167T}
173168T{
174−.nr LL 10.5n
175169Second
176170T} T{
177−.nr LL 9.6n
178171row
179172T} T{
180−.nr LL 11.4n
1811735.0
182174T} T{
183−.nr LL 24.5n
184175Here\[cq]s another one.
185176Note the blank line between rows.
186177T}
187178.TE
188−.nr LL \n[LLold]
189179.ad
190180.LP
191181Multiline table without caption:
192182.PP
193183.na
194−.nr LLold \n[LL]
195184.TS
196185delim(@@) tab( );
197186cw(10.5n) lw(9.6n) rw(11.4n) lw(24.5n).
@@ -206,34 +195,25 @@ Default aligned
206195T}
207196_
208197T{
209−.nr LL 10.5n
210198First
211199T} T{
212−.nr LL 9.6n
213200row
214201T} T{
215−.nr LL 11.4n
21620212.0
217203T} T{
218−.nr LL 24.5n
219204Example of a row that spans multiple lines.
220205T}
221206T{
222−.nr LL 10.5n
223207Second
224208T} T{
225−.nr LL 9.6n
226209row
227210T} T{
228−.nr LL 11.4n
2292115.0
230212T} T{
231−.nr LL 24.5n
232213Here\[cq]s another one.
233214Note the blank line between rows.
234215T}
235216.TE
236−.nr LL \n[LLold]
237217.ad
238218.LP
239219Table without column headers:
@@ -275,37 +255,27 @@ T}
275255Multiline table without column headers:
276256.PP
277257.na
278−.nr LLold \n[LL]
279258.TS
280259delim(@@) tab( );
281260cw(10.5n) lw(9.6n) rw(11.4n) lw(24.5n).
282261T{
283−.nr LL 10.5n
284262First
285263T} T{
286−.nr LL 9.6n
287264row
288265T} T{
289−.nr LL 11.4n
29026612.0
291267T} T{
292−.nr LL 24.5n
293268Example of a row that spans multiple lines.
294269T}
295270T{
296−.nr LL 10.5n
297271Second
298272T} T{
299−.nr LL 9.6n
300273row
301274T} T{
302−.nr LL 11.4n
3032755.0
304276T} T{
305−.nr LL 24.5n
306277Here\[cq]s another one.
307278Note the blank line between rows.
308279T}
309280.TE
310−.nr LL \n[LLold]
311281.ad
test/tables/nordics.latex+4−22
@@ -5,31 +5,13 @@
55 >{\raggedright\arraybackslash}p{(\columnwidth - 6\tabcolsep) * \real{0.20}}@{}}
66\caption{States belonging to the \emph{Nordics.}}\tabularnewline
77\toprule
8−\begin{minipage}[b]{\linewidth}\centering
9−Name
10−\end{minipage} & \begin{minipage}[b]{\linewidth}\centering
11−Capital
12−\end{minipage} & \begin{minipage}[b]{\linewidth}\centering
13−Population\\
14−(in 2018)\strut
15−\end{minipage} & \begin{minipage}[b]{\linewidth}\centering
16−Area\\
17−(in km\textsuperscript{2})\strut
18−\end{minipage} \\
8+Name & Capital & \vtop{\hbox{\strut Population}\hbox{\strut (in 2018)}} &
9+\vtop{\hbox{\strut Area}\hbox{\strut (in km\textsuperscript{2})}} \\
1910\midrule
2011\endfirsthead
2112\toprule
22−\begin{minipage}[b]{\linewidth}\centering
23−Name
24−\end{minipage} & \begin{minipage}[b]{\linewidth}\centering
25−Capital
26−\end{minipage} & \begin{minipage}[b]{\linewidth}\centering
27−Population\\
28−(in 2018)\strut
29−\end{minipage} & \begin{minipage}[b]{\linewidth}\centering
30−Area\\
31−(in km\textsuperscript{2})\strut
32−\end{minipage} \\
13+Name & Capital & \vtop{\hbox{\strut Population}\hbox{\strut (in 2018)}} &
14+\vtop{\hbox{\strut Area}\hbox{\strut (in km\textsuperscript{2})}} \\
3315\midrule
3416\endhead
3517Denmark & Copenhagen & 5,809,502 & 43,094 \\
test/tables/planets.latex+4−4
@@ -1,18 +1,18 @@
11\begin{longtable}[]{@{}cclrrrrrrrrl@{}}
22\caption{Data about the planets of our solar system.}\tabularnewline
33\toprule
4−\multicolumn{2}{c}{} & Name & Mass (10\^{}24kg) & Diameter (km) & Density
4+\multicolumn{2}{l}{} & Name & Mass (10\^{}24kg) & Diameter (km) & Density
55(kg/m\^{}3) & Gravity (m/s\^{}2) & Length of day (hours) & Distance from Sun
66(10\^{}6km) & Mean temperature (C) & Number of moons & Notes \\
77\midrule
88\endfirsthead
99\toprule
10−\multicolumn{2}{c}{} & Name & Mass (10\^{}24kg) & Diameter (km) & Density
10+\multicolumn{2}{l}{} & Name & Mass (10\^{}24kg) & Diameter (km) & Density
1111(kg/m\^{}3) & Gravity (m/s\^{}2) & Length of day (hours) & Distance from Sun
1212(10\^{}6km) & Mean temperature (C) & Number of moons & Notes \\
1313\midrule
1414\endhead
15−\multicolumn{2}{c}{\multirow{4}{*}{Terrestrial planets}} & Mercury & 0.330 &
15+\multicolumn{2}{l}{\multirow{4}{*}{Terrestrial planets}} & Mercury & 0.330 &
16164,879 & 5427 & 3.7 & 4222.6 & 57.9 & 167 & 0 & Closest to the Sun \\
1717& & Venus & 4.87 & 12,104 & 5243 & 8.9 & 2802.0 & 108.2 & 464 & 0 & \\
1818& & Earth & 5.97 & 12,756 & 5514 & 9.8 & 24.0 & 149.6 & 15 & 1 & Our world \\
@@ -24,7 +24,7 @@ planet \\
2424& \multirow{2}{*}{Ice giants} & Uranus & 86.8 & 51,118 & 1271 & 8.7 & 17.2 &
25252872.5 & -195 & 27 & \\
2626& & Neptune & 102 & 49,528 & 1638 & 11.0 & 16.1 & 4495.1 & -200 & 14 & \\
27−\multicolumn{2}{c}{Dwarf planets} & Pluto & 0.0146 & 2,370 & 2095 & 0.7 &
27+\multicolumn{2}{l}{Dwarf planets} & Pluto & 0.0146 & 2,370 & 2095 & 0.7 &
2828153.3 & 5906.4 & -225 & 5 & Declassified as a planet in 2006. \\
2929\bottomrule
3030\end{longtable}
test/tables/students.latex+2−10
@@ -3,19 +3,11 @@
33 >{\raggedright\arraybackslash}p{(\columnwidth - 2\tabcolsep) * \real{0.50}}@{}}
44\caption{List of Students}\tabularnewline
55\toprule
6−\begin{minipage}[b]{\linewidth}\centering
7−Student ID
8−\end{minipage} & \begin{minipage}[b]{\linewidth}\centering
9−Name
10−\end{minipage} \\
6+Student ID & Name \\
117\midrule
128\endfirsthead
139\toprule
14−\begin{minipage}[b]{\linewidth}\centering
15−Student ID
16−\end{minipage} & \begin{minipage}[b]{\linewidth}\centering
17−Name
18−\end{minipage} \\
10+Student ID & Name \\
1911\midrule
2012\endhead
2113\multicolumn{2}{l}{Computer Science} \\
test/writer.context+38−42
@@ -17,7 +17,6 @@
1717
1818% use microtypography
1919\definefontfeature[default][default][script=latn, protrusion=quality, expansion=quality, itlc=yes, textitalics=yes, onum=yes, pnum=yes]
20−\definefontfeature[default:tnum][default][tnum=yes, pnum=no]
2120\definefontfeature[smallcaps][script=latn, protrusion=quality, expansion=quality, smcp=yes, onum=yes, pnum=yes]
2221\setupalign[hz,hanging]
2322\setupitaliccorrection[global, always]
@@ -49,9 +48,6 @@
4948\setupitemize[autointro] % prevent orphan list intro
5049\setupitemize[indentnext=no]
5150
52−\defineitemgroup[enumerate]
53−\setupenumerate[each][fit][itemalign=left,distance=.5em,style={\feature[+][default:tnum]}]
54−
5551\setupfloat[figure][default={here,nonumber}]
5652\setupfloat[table][default={here,nonumber}]
5753
@@ -137,12 +133,12 @@ sub status {
137133
138134A list:
139135
140−\startenumerate[n,packed][stopper=.]
136+\startitemize[n,packed][stopper=.]
141137\item
142138 item one
143139\item
144140 item two
145−\stopenumerate
141+\stopitemize
146142
147143Nested block quotes:
148144
@@ -259,51 +255,51 @@ Minuses loose:
259255
260256Tight:
261257
262−\startenumerate[n,packed][stopper=.]
258+\startitemize[n,packed][stopper=.]
263259\item
264260 First
265261\item
266262 Second
267263\item
268264 Third
269−\stopenumerate
265+\stopitemize
270266
271267and:
272268
273−\startenumerate[n,packed][stopper=.]
269+\startitemize[n,packed][stopper=.]
274270\item
275271 One
276272\item
277273 Two
278274\item
279275 Three
280−\stopenumerate
276+\stopitemize
281277
282278Loose using tabs:
283279
284−\startenumerate[n][stopper=.]
280+\startitemize[n][stopper=.]
285281\item
286282 First
287283\item
288284 Second
289285\item
290286 Third
291−\stopenumerate
287+\stopitemize
292288
293289and using spaces:
294290
295−\startenumerate[n][stopper=.]
291+\startitemize[n][stopper=.]
296292\item
297293 One
298294\item
299295 Two
300296\item
301297 Three
302−\stopenumerate
298+\stopitemize
303299
304300Multiple paragraphs:
305301
306−\startenumerate[n][stopper=.]
302+\startitemize[n][stopper=.]
307303\item
308304 Item 1, graf one.
309305
@@ -312,7 +308,7 @@ Multiple paragraphs:
312308 Item 2.
313309\item
314310 Item 3.
315−\stopenumerate
311+\stopitemize
316312
317313\subsection[title={Nested},reference={nested}]
318314
@@ -331,7 +327,7 @@ Multiple paragraphs:
331327
332328Here's another:
333329
334−\startenumerate[n,packed][stopper=.]
330+\startitemize[n,packed][stopper=.]
335331\item
336332 First
337333\item
@@ -346,11 +342,11 @@ Here's another:
346342 \stopitemize
347343\item
348344 Third
349−\stopenumerate
345+\stopitemize
350346
351347Same thing but with paragraphs:
352348
353−\startenumerate[n][stopper=.]
349+\startitemize[n][stopper=.]
354350\item
355351 First
356352\item
@@ -366,7 +362,7 @@ Same thing but with paragraphs:
366362 \stopitemize
367363\item
368364 Third
369−\stopenumerate
365+\stopitemize
370366
371367\subsection[title={Tabs and spaces},reference={tabs-and-spaces}]
372368
@@ -386,7 +382,7 @@ Same thing but with paragraphs:
386382
387383\subsection[title={Fancy list markers},reference={fancy-list-markers}]
388384
389−\startenumerate[n][start=2,left=(,stopper=)]
385+\startitemize[n][start=2,left=(,stopper=),width=2.0em]
390386\item
391387 begins with 2
392388\item
@@ -394,51 +390,51 @@ Same thing but with paragraphs:
394390
395391 with a continuation
396392
397− \startenumerate[r,packed][start=4,stopper=.]
393+ \startitemize[r,packed][start=4,stopper=.,width=2.0em]
398394 \item
399395 sublist with roman numerals, starting with 4
400396 \item
401397 more items
402− \startenumerate[A,packed][left=(,stopper=)]
398+ \startitemize[A,packed][left=(,stopper=),width=2.0em]
403399 \item
404400 a subsublist
405401 \item
406402 a subsublist
407− \stopenumerate
408− \stopenumerate
409−\stopenumerate
403+ \stopitemize
404+ \stopitemize
405+\stopitemize
410406
411407Nesting:
412408
413−\startenumerate[A,packed][stopper=.]
409+\startitemize[A,packed][stopper=.]
414410\item
415411 Upper Alpha
416− \startenumerate[R,packed][stopper=.]
412+ \startitemize[R,packed][stopper=.]
417413 \item
418414 Upper Roman.
419− \startenumerate[n,packed][start=6,left=(,stopper=)]
415+ \startitemize[n,packed][start=6,left=(,stopper=),width=2.0em]
420416 \item
421417 Decimal start with 6
422− \startenumerate[a,packed][start=3,stopper=)]
418+ \startitemize[a,packed][start=3,stopper=)]
423419 \item
424420 Lower alpha with paren
425− \stopenumerate
426− \stopenumerate
427− \stopenumerate
428−\stopenumerate
421+ \stopitemize
422+ \stopitemize
423+ \stopitemize
424+\stopitemize
429425
430426Autonumbering:
431427
432−\startenumerate[n,packed]
428+\startitemize[n,packed]
433429\item
434430 Autonumber.
435431\item
436432 More.
437− \startenumerate[a,packed]
433+ \startitemize[a,packed]
438434 \item
439435 Nested.
440− \stopenumerate
441−\stopenumerate
436+ \stopitemize
437+\stopitemize
442438
443439Should not be a list item:
444440
@@ -551,12 +547,12 @@ Blank line after term, indented marker, alternate markers:
551547\startdescription{orange}
552548 orange fruit
553549
554− \startenumerate[n,packed][stopper=.]
550+ \startitemize[n,packed][stopper=.]
555551 \item
556552 sublist
557553 \item
558554 sublist
559− \stopenumerate
555+ \stopitemize
560556\stopdescription
561557
562558\section[title={HTML Blocks},reference={html-blocks}]
@@ -901,10 +897,10 @@ note{]} Here is an inline note.\footnote{This is {\em easier} to type. Inline
901897Notes can go in quotes.\footnote{In quote.}
902898\stopblockquote
903899
904−\startenumerate[n,packed][stopper=.]
900+\startitemize[n,packed][stopper=.]
905901\item
906902 And in list items.\footnote{In list.}
907−\stopenumerate
903+\stopitemize
908904
909905This paragraph should not be part of the note, as it is not indented.
910906
test/writer.html4+1−2
@@ -24,7 +24,7 @@
2424 padding-top: 50px;
2525 padding-bottom: 50px;
2626 hyphens: auto;
27− overflow-wrap: break-word;
27+ word-wrap: break-word;
2828 text-rendering: optimizeLegibility;
2929 font-kerning: normal;
3030 }
@@ -95,7 +95,6 @@
9595 pre code {
9696 padding: 0;
9797 overflow: visible;
98− overflow-wrap: normal;
9998 }
10099 .sourceCode {
101100 background-color: transparent;
test/writer.html5+1−2
@@ -24,7 +24,7 @@
2424 padding-top: 50px;
2525 padding-bottom: 50px;
2626 hyphens: auto;
27− overflow-wrap: break-word;
27+ word-wrap: break-word;
2828 text-rendering: optimizeLegibility;
2929 font-kerning: normal;
3030 }
@@ -95,7 +95,6 @@
9595 pre code {
9696 padding: 0;
9797 overflow: visible;
98− overflow-wrap: normal;
9998 }
10099 .sourceCode {
101100 background-color: transparent;
test/writer.jats_archiving+46−36
@@ -78,31 +78,39 @@ Gruber’s markdown test suite.</p>
7878<sec id="block-quotes">
7979 <title>Block Quotes</title>
8080 <p>E-mail style:</p>
81− <disp-quote>
82− <p>This is a block quote. It is pretty short.</p>
83− </disp-quote>
84− <disp-quote>
85− <p>Code in a block quote:</p>
86− <preformat>sub status {
87− print &quot;working&quot;;
88−}</preformat>
89− <p>A list:</p>
90− <list list-type="order">
91− <list-item>
92− <p>item one</p>
93− </list-item>
94− <list-item>
95− <p>item two</p>
96− </list-item>
97− </list>
98− <p>Nested block quotes:</p>
81+ <p specific-use="wrapper">
9982 <disp-quote>
100− <p>nested</p>
83+ <p>This is a block quote. It is pretty short.</p>
10184 </disp-quote>
85+ </p>
86+ <p specific-use="wrapper">
10287 <disp-quote>
103− <p>nested</p>
88+ <p>Code in a block quote:</p>
89+ <preformat>sub status {
90+ print &quot;working&quot;;
91+}</preformat>
92+ <p>A list:</p>
93+ <list list-type="order">
94+ <list-item>
95+ <p>item one</p>
96+ </list-item>
97+ <list-item>
98+ <p>item two</p>
99+ </list-item>
100+ </list>
101+ <p>Nested block quotes:</p>
102+ <p specific-use="wrapper">
103+ <disp-quote>
104+ <p>nested</p>
105+ </disp-quote>
106+ </p>
107+ <p specific-use="wrapper">
108+ <disp-quote>
109+ <p>nested</p>
110+ </disp-quote>
111+ </p>
104112 </disp-quote>
105− </disp-quote>
113+ </p>
106114 <p>This should not be a block quote: 2 &gt; 1.</p>
107115 <p>And a following paragraph.</p>
108116</sec>
@@ -829,10 +837,12 @@ These should not be escaped: \$ \\ \&gt; \[ \{</preformat>
829837 </list-item>
830838 </list>
831839 <p>An e-mail address: <email>nobody@nowhere.net</email></p>
832− <disp-quote>
833− <p>Blockquoted:
834− <ext-link ext-link-type="uri" xlink:href="http://example.com/">http://example.com/</ext-link></p>
835− </disp-quote>
840+ <p specific-use="wrapper">
841+ <disp-quote>
842+ <p>Blockquoted:
843+ <ext-link ext-link-type="uri" xlink:href="http://example.com/">http://example.com/</ext-link></p>
844+ </disp-quote>
845+ </p>
836846 <p>Auto-links should not occur here:
837847 <monospace>&lt;http://example.com/&gt;</monospace></p>
838848 <preformat>or here: &lt;http://example.com/&gt;</preformat>
@@ -856,9 +866,11 @@ These should not be escaped: \$ \\ \&gt; \[ \{</preformat>
856866 <italic>not</italic> be a footnote reference, because it contains a
857867 space.[^my note] Here is an inline
858868 note.<xref ref-type="fn" rid="fn3">3</xref></p>
859− <disp-quote>
860− <p>Notes can go in quotes.<xref ref-type="fn" rid="fn4">4</xref></p>
861− </disp-quote>
869+ <p specific-use="wrapper">
870+ <disp-quote>
871+ <p>Notes can go in quotes.<xref ref-type="fn" rid="fn4">4</xref></p>
872+ </disp-quote>
873+ </p>
862874 <list list-type="order">
863875 <list-item>
864876 <p>And in list items.<xref ref-type="fn" rid="fn5">5</xref></p>
@@ -870,12 +882,11 @@ These should not be escaped: \$ \\ \&gt; \[ \{</preformat>
870882<back>
871883<fn-group>
872884 <fn id="fn1">
873− <label>1</label><p>Here is the footnote. It can go anywhere after the
874− footnote reference. It need not be placed at the end of the document.</p>
885+ <p>Here is the footnote. It can go anywhere after the footnote reference.
886+ It need not be placed at the end of the document.</p>
875887 </fn>
876888 <fn id="fn2">
877− <label>2</label><p>Here’s the long note. This one contains multiple
878− blocks.</p>
889+ <p>Here’s the long note. This one contains multiple blocks.</p>
879890 <p>Subsequent blocks are indented to show that they belong to the footnote
880891 (as with list items).</p>
881892 <p specific-use="wrapper">
@@ -885,17 +896,16 @@ These should not be escaped: \$ \\ \&gt; \[ \{</preformat>
885896 just indent the first line of each block.</p>
886897 </fn>
887898 <fn id="fn3">
888− <label>3</label><p>This is <italic>easier</italic> to type. Inline notes
889− may contain
899+ <p>This is <italic>easier</italic> to type. Inline notes may contain
890900 <ext-link ext-link-type="uri" xlink:href="http://google.com">links</ext-link>
891901 and <monospace>]</monospace> verbatim characters, as well as [bracketed
892902 text].</p>
893903 </fn>
894904 <fn id="fn4">
895− <label>4</label><p>In quote.</p>
905+ <p>In quote.</p>
896906 </fn>
897907 <fn id="fn5">
898− <label>5</label><p>In list.</p>
908+ <p>In list.</p>
899909 </fn>
900910</fn-group>
901911</back>
test/writer.jats_articleauthoring+48−40
@@ -67,39 +67,43 @@ Gruber’s markdown test suite.</p>
6767<sec id="block-quotes">
6868 <title>Block Quotes</title>
6969 <p>E-mail style:</p>
70− <disp-quote>
71− <p>This is a block quote. It is pretty short.</p>
72− </disp-quote>
73− <disp-quote>
74− <p>Code in a block quote:</p>
75− <p specific-use="wrapper">
76− <preformat>sub status {
70+ <p specific-use="wrapper">
71+ <disp-quote>
72+ <p>This is a block quote. It is pretty short.</p>
73+ </disp-quote>
74+ </p>
75+ <p specific-use="wrapper">
76+ <disp-quote>
77+ <p>Code in a block quote:</p>
78+ <p specific-use="wrapper">
79+ <preformat>sub status {
7780 print &quot;working&quot;;
7881}</preformat>
79− </p>
80− <p>A list:</p>
81− <p specific-use="wrapper">
82− <list list-type="order">
83− <list-item>
84− <p>item one</p>
85− </list-item>
86− <list-item>
87− <p>item two</p>
88− </list-item>
89− </list>
90− </p>
91− <p>Nested block quotes:</p>
92− <p specific-use="wrapper">
93− <disp-quote>
94− <p>nested</p>
95− </disp-quote>
96− </p>
97− <p specific-use="wrapper">
98− <disp-quote>
99− <p>nested</p>
100− </disp-quote>
101− </p>
102− </disp-quote>
82+ </p>
83+ <p>A list:</p>
84+ <p specific-use="wrapper">
85+ <list list-type="order">
86+ <list-item>
87+ <p>item one</p>
88+ </list-item>
89+ <list-item>
90+ <p>item two</p>
91+ </list-item>
92+ </list>
93+ </p>
94+ <p>Nested block quotes:</p>
95+ <p specific-use="wrapper">
96+ <disp-quote>
97+ <p>nested</p>
98+ </disp-quote>
99+ </p>
100+ <p specific-use="wrapper">
101+ <disp-quote>
102+ <p>nested</p>
103+ </disp-quote>
104+ </p>
105+ </disp-quote>
106+ </p>
103107 <p>This should not be a block quote: 2 &gt; 1.</p>
104108 <p>And a following paragraph.</p>
105109</sec>
@@ -813,10 +817,12 @@ These should not be escaped: \$ \\ \&gt; \[ \{</preformat>
813817 </list-item>
814818 </list>
815819 <p>An e-mail address: <email>nobody@nowhere.net</email></p>
816− <disp-quote>
817− <p>Blockquoted:
818− <ext-link ext-link-type="uri" xlink:href="http://example.com/">http://example.com/</ext-link></p>
819− </disp-quote>
820+ <p specific-use="wrapper">
821+ <disp-quote>
822+ <p>Blockquoted:
823+ <ext-link ext-link-type="uri" xlink:href="http://example.com/">http://example.com/</ext-link></p>
824+ </disp-quote>
825+ </p>
820826 <p>Auto-links should not occur here:
821827 <monospace>&lt;http://example.com/&gt;</monospace></p>
822828 <preformat>or here: &lt;http://example.com/&gt;</preformat>
@@ -854,11 +860,13 @@ These should not be escaped: \$ \\ \&gt; \[ \{</preformat>
854860 and <monospace>]</monospace> verbatim characters, as well as [bracketed
855861 text].</p>
856862 </fn></p>
857− <disp-quote>
858− <p>Notes can go in quotes.<fn>
859− <p>In quote.</p>
860− </fn></p>
861− </disp-quote>
863+ <p specific-use="wrapper">
864+ <disp-quote>
865+ <p>Notes can go in quotes.<fn>
866+ <p>In quote.</p>
867+ </fn></p>
868+ </disp-quote>
869+ </p>
862870 <list list-type="order">
863871 <list-item>
864872 <p>And in list items.<fn>
test/writer.jats_publishing+46−36
@@ -78,31 +78,39 @@ Gruber’s markdown test suite.</p>
7878<sec id="block-quotes">
7979 <title>Block Quotes</title>
8080 <p>E-mail style:</p>
81− <disp-quote>
82− <p>This is a block quote. It is pretty short.</p>
83− </disp-quote>
84− <disp-quote>
85− <p>Code in a block quote:</p>
86− <preformat>sub status {
87− print &quot;working&quot;;
88−}</preformat>
89− <p>A list:</p>
90− <list list-type="order">
91− <list-item>
92− <p>item one</p>
93− </list-item>
94− <list-item>
95− <p>item two</p>
96− </list-item>
97− </list>
98− <p>Nested block quotes:</p>
81+ <p specific-use="wrapper">
9982 <disp-quote>
100− <p>nested</p>
83+ <p>This is a block quote. It is pretty short.</p>
10184 </disp-quote>
85+ </p>
86+ <p specific-use="wrapper">
10287 <disp-quote>
103− <p>nested</p>
88+ <p>Code in a block quote:</p>
89+ <preformat>sub status {
90+ print &quot;working&quot;;
91+}</preformat>
92+ <p>A list:</p>
93+ <list list-type="order">
94+ <list-item>
95+ <p>item one</p>
96+ </list-item>
97+ <list-item>
98+ <p>item two</p>
99+ </list-item>
100+ </list>
101+ <p>Nested block quotes:</p>
102+ <p specific-use="wrapper">
103+ <disp-quote>
104+ <p>nested</p>
105+ </disp-quote>
106+ </p>
107+ <p specific-use="wrapper">
108+ <disp-quote>
109+ <p>nested</p>
110+ </disp-quote>
111+ </p>
104112 </disp-quote>
105− </disp-quote>
113+ </p>
106114 <p>This should not be a block quote: 2 &gt; 1.</p>
107115 <p>And a following paragraph.</p>
108116</sec>
@@ -829,10 +837,12 @@ These should not be escaped: \$ \\ \&gt; \[ \{</preformat>
829837 </list-item>
830838 </list>
831839 <p>An e-mail address: <email>nobody@nowhere.net</email></p>
832− <disp-quote>
833− <p>Blockquoted:
834− <ext-link ext-link-type="uri" xlink:href="http://example.com/">http://example.com/</ext-link></p>
835− </disp-quote>
840+ <p specific-use="wrapper">
841+ <disp-quote>
842+ <p>Blockquoted:
843+ <ext-link ext-link-type="uri" xlink:href="http://example.com/">http://example.com/</ext-link></p>
844+ </disp-quote>
845+ </p>
836846 <p>Auto-links should not occur here:
837847 <monospace>&lt;http://example.com/&gt;</monospace></p>
838848 <preformat>or here: &lt;http://example.com/&gt;</preformat>
@@ -856,9 +866,11 @@ These should not be escaped: \$ \\ \&gt; \[ \{</preformat>
856866 <italic>not</italic> be a footnote reference, because it contains a
857867 space.[^my note] Here is an inline
858868 note.<xref ref-type="fn" rid="fn3">3</xref></p>
859− <disp-quote>
860− <p>Notes can go in quotes.<xref ref-type="fn" rid="fn4">4</xref></p>
861− </disp-quote>
869+ <p specific-use="wrapper">
870+ <disp-quote>
871+ <p>Notes can go in quotes.<xref ref-type="fn" rid="fn4">4</xref></p>
872+ </disp-quote>
873+ </p>
862874 <list list-type="order">
863875 <list-item>
864876 <p>And in list items.<xref ref-type="fn" rid="fn5">5</xref></p>
@@ -870,12 +882,11 @@ These should not be escaped: \$ \\ \&gt; \[ \{</preformat>
870882<back>
871883<fn-group>
872884 <fn id="fn1">
873− <label>1</label><p>Here is the footnote. It can go anywhere after the
874− footnote reference. It need not be placed at the end of the document.</p>
885+ <p>Here is the footnote. It can go anywhere after the footnote reference.
886+ It need not be placed at the end of the document.</p>
875887 </fn>
876888 <fn id="fn2">
877− <label>2</label><p>Here’s the long note. This one contains multiple
878− blocks.</p>
889+ <p>Here’s the long note. This one contains multiple blocks.</p>
879890 <p>Subsequent blocks are indented to show that they belong to the footnote
880891 (as with list items).</p>
881892 <p specific-use="wrapper">
@@ -885,17 +896,16 @@ These should not be escaped: \$ \\ \&gt; \[ \{</preformat>
885896 just indent the first line of each block.</p>
886897 </fn>
887898 <fn id="fn3">
888− <label>3</label><p>This is <italic>easier</italic> to type. Inline notes
889− may contain
899+ <p>This is <italic>easier</italic> to type. Inline notes may contain
890900 <ext-link ext-link-type="uri" xlink:href="http://google.com">links</ext-link>
891901 and <monospace>]</monospace> verbatim characters, as well as [bracketed
892902 text].</p>
893903 </fn>
894904 <fn id="fn4">
895− <label>4</label><p>In quote.</p>
905+ <p>In quote.</p>
896906 </fn>
897907 <fn id="fn5">
898− <label>5</label><p>In list.</p>
908+ <p>In list.</p>
899909 </fn>
900910</fn-group>
901911</back>
test/writer.opml+1−1
@@ -52,7 +52,7 @@
5252</outline>
5353<outline text="LaTeX" _note="- &#10;- 2 + 2 = 4&#10;- *x* ∈ *y*&#10;- *α* ∧ *ω*&#10;- 223&#10;- *p*-Tree&#10;- Here’s some display math:&#10; $$\\frac{d}{dx}f(x)=\\lim\_{h\\to 0}\\frac{f(x+h)-f(x)}{h}$$&#10;- Here’s one that has a line break in it: *α* + *ω* × *x*².&#10;&#10;These shouldn’t be math:&#10;&#10;- To get the famous equation, write `$e = mc^2$`.&#10;- $22,000 is a *lot* of money. So is $34,000. (It worked if “lot” is&#10; emphasized.)&#10;- Shoes ($20) and socks ($5).&#10;- Escaped `$`: $73 *this should be emphasized* 23$.&#10;&#10;Here’s a LaTeX table:&#10;&#10;------------------------------------------------------------------------">
5454</outline>
55−<outline text="Special Characters" _note="Here is some unicode:&#10;&#10;- I hat: Î&#10;- o umlaut: ö&#10;- section: §&#10;- set membership: ∈&#10;- copyright: ©&#10;&#10;AT&amp;T has an ampersand in their name.&#10;&#10;AT&amp;T is another way to write it.&#10;&#10;This &amp; that.&#10;&#10;4 &amp;lt; 5.&#10;&#10;6 &amp;gt; 5.&#10;&#10;Backslash: \\&#10;&#10;Backtick: \`&#10;&#10;Asterisk: \*&#10;&#10;Underscore: \_&#10;&#10;Left brace: {&#10;&#10;Right brace: }&#10;&#10;Left bracket: \[&#10;&#10;Right bracket: \]&#10;&#10;Left paren: (&#10;&#10;Right paren: )&#10;&#10;Greater-than: &amp;gt;&#10;&#10;Hash: #&#10;&#10;Period: .&#10;&#10;Bang: !&#10;&#10;Plus: +&#10;&#10;Minus: -&#10;&#10;------------------------------------------------------------------------">
55+<outline text="Special Characters" _note="Here is some unicode:&#10;&#10;- I hat: Î&#10;- o umlaut: ö&#10;- section: §&#10;- set membership: ∈&#10;- copyright: ©&#10;&#10;AT&amp;T has an ampersand in their name.&#10;&#10;AT&amp;T is another way to write it.&#10;&#10;This &amp; that.&#10;&#10;4 &amp;lt; 5.&#10;&#10;6 &amp;gt; 5.&#10;&#10;Backslash: \\&#10;&#10;Backtick: \`&#10;&#10;Asterisk: \*&#10;&#10;Underscore: \_&#10;&#10;Left brace: {&#10;&#10;Right brace: }&#10;&#10;Left bracket: \[&#10;&#10;Right bracket: \]&#10;&#10;Left paren: (&#10;&#10;Right paren: )&#10;&#10;Greater-than: &amp;gt;&#10;&#10;Hash: \#&#10;&#10;Period: .&#10;&#10;Bang: !&#10;&#10;Plus: +&#10;&#10;Minus: -&#10;&#10;------------------------------------------------------------------------">
5656</outline>
5757<outline text="Links">
5858 <outline text="Explicit" _note="Just a [URL](/url/).&#10;&#10;[URL and title](/url/ &quot;title&quot;).&#10;&#10;[URL and title](/url/ &quot;title preceded by two spaces&quot;).&#10;&#10;[URL and title](/url/ &quot;title preceded by a tab&quot;).&#10;&#10;[URL and title](/url/ &quot;title with &quot;quotes&quot; in it&quot;)&#10;&#10;[URL and title](/url/ &quot;title with single quotes&quot;)&#10;&#10;[with\_underscore](/url/with_underscore)&#10;&#10;[Email link](mailto:nobody@nowhere.net)&#10;&#10;[Empty]().">
test/writer.org+7−7
@@ -600,14 +600,14 @@ Ellipses...and...and....
600600 :END:
601601
602602- \cite[22-23]{smith.1899}
603−- \(2+2=4\)
604−- \(x \in y\)
605−- \(\alpha \wedge \omega\)
606−- \(223\)
607−- \(p\)-Tree
603+- $2+2=4$
604+- $x \in y$
605+- $\alpha \wedge \omega$
606+- $223$
607+- $p$-Tree
608608- Here's some display math:
609− \[\frac{d}{dx}f(x)=\lim_{h\to 0}\frac{f(x+h)-f(x)}{h}\]
610−- Here's one that has a line break in it: \(\alpha + \omega \times x^2\).
609+ $$\frac{d}{dx}f(x)=\lim_{h\to 0}\frac{f(x+h)-f(x)}{h}$$
610+- Here's one that has a line break in it: $\alpha + \omega \times x^2$.
611611
612612These shouldn't be math:
613613
test/writer.zimwiki+3−3
@@ -8,9 +8,9 @@ This is a set of tests for pandoc. Most of them are adapted from John Gruber’s
88
99====== Headers ======
1010
11−===== Level 2 with an [[url|embedded link]] =====
11+===== Level 2 with an embedded link =====
1212
13−==== Level 3 with //emphasis// ====
13+==== Level 3 with emphasis ====
1414
1515=== Level 4 ===
1616
@@ -18,7 +18,7 @@ This is a set of tests for pandoc. Most of them are adapted from John Gruber’s
1818
1919====== Level 1 ======
2020
21−===== Level 2 with //emphasis// =====
21+===== Level 2 with emphasis =====
2222
2323==== Level 3 ====
2424
test/writers-lang-and-dir.context−4
@@ -15,7 +15,6 @@
1515
1616% use microtypography
1717\definefontfeature[default][default][script=latn, protrusion=quality, expansion=quality, itlc=yes, textitalics=yes, onum=yes, pnum=yes]
18−\definefontfeature[default:tnum][default][tnum=yes, pnum=no]
1918\definefontfeature[smallcaps][script=latn, protrusion=quality, expansion=quality, smcp=yes, onum=yes, pnum=yes]
2019\setupalign[hz,hanging]
2120\setupitaliccorrection[global, always]
@@ -47,9 +46,6 @@
4746\setupitemize[autointro] % prevent orphan list intro
4847\setupitemize[indentnext=no]
4948
50−\defineitemgroup[enumerate]
51−\setupenumerate[each][fit][itemalign=left,distance=.5em,style={\feature[+][default:tnum]}]
52−
5349\setupfloat[figure][default={here,nonumber}]
5450\setupfloat[table][default={here,nonumber}]
5551
tools/build-arm.sh+1−3
@@ -1,8 +1,6 @@
11#!/bin/sh
22
3−#old version:
4−#IMAGE_ID=ami-0fa8979d18f69948b
5−IMAGE_ID=ami-0cd6b53a434812702
3+IMAGE_ID=ami-0fa8979d18f69948b
64INSTANCE_TYPE=t4g.2xlarge
75KEY_NAME=debian-arm-us-east-2
86SECURITY_GROUP_ID=sg-086ffbadc286c5c00