git.iko.soy/typeable/pandoc
on aecbf81 help sign in
304 files changed+4067−6162
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−11 CONTRIBUTING.md+5−6 INSTALL.md−4 MANUAL.txt+62−160 SECURITY.md−12 cabal.project+9−4 changelog.md−590 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/org.md−15 doc/using-the-pandoc-api.md+11−24 man/pandoc.1+39−187 pandoc.cabal+16−25 src/Text/Pandoc/App.hs+11−17 src/Text/Pandoc/App/Opt.hs+1−1 src/Text/Pandoc/Citeproc.hs+43−68 src/Text/Pandoc/Citeproc/BibTeX.hs+6−14 src/Text/Pandoc/Citeproc/Data.hs+1−1 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+32−21 src/Text/Pandoc/Error.hs+16−23 src/Text/Pandoc/Extensions.hs−4 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/Module/MediaBag.hs+3−3 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+235−356 src/Text/Pandoc/Readers.hs+48−55 src/Text/Pandoc/Readers/BibTeX.hs+5−8 src/Text/Pandoc/Readers/CSV.hs+7−7 src/Text/Pandoc/Readers/CommonMark.hs+31−43 src/Text/Pandoc/Readers/Creole.hs+6−5 src/Text/Pandoc/Readers/CslJson.hs+4−5 src/Text/Pandoc/Readers/DocBook.hs+10−24 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+3−8 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+1−1 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+45−76 src/Text/Pandoc/Readers/MediaWiki.hs+6−7 src/Text/Pandoc/Readers/Metadata.hs+15−22 src/Text/Pandoc/Readers/Muse.hs+8−9 src/Text/Pandoc/Readers/Native.hs+5−7 src/Text/Pandoc/Readers/OPML.hs+4−9 src/Text/Pandoc/Readers/Odt/ContentReader.hs+6−5 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+3−3 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/Shared.hs−1 src/Text/Pandoc/Sources.hs−195 src/Text/Pandoc/Writers.hs+3−3 src/Text/Pandoc/Writers/ConTeXt.hs+16−16 src/Text/Pandoc/Writers/Docbook.hs+6−6 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/JATS.hs+21−39 src/Text/Pandoc/Writers/Jira.hs+3−9 src/Text/Pandoc/Writers/LaTeX.hs+9−14 src/Text/Pandoc/Writers/LaTeX/Lang.hs+1−1 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−26 src/Text/Pandoc/Writers/Markdown/Inline.hs+16−34 src/Text/Pandoc/Writers/Ms.hs+6−22 src/Text/Pandoc/Writers/ODT.hs+1−1 src/Text/Pandoc/Writers/OpenDocument.hs+52−48 src/Text/Pandoc/Writers/Org.hs−2 src/Text/Pandoc/Writers/Powerpoint/Output.hs−1 src/Text/Pandoc/Writers/Shared.hs−1 src/Text/Pandoc/Writers/TEI.hs+3−4 src/Text/Pandoc/Writers/ZimWiki.hs+1−1 src/Text/Pandoc/XML/Light/Types.hs+4−4 stack.yaml+14−8 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/Writers/ConTeXt.hs+113−122 test/Tests/Writers/Docbook.hs+6−6 test/Tests/Writers/Docx.hs−5 test/Tests/Writers/HTML.hs+52−57 test/Tests/Writers/JATS.hs+5−9 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/7099.md+1−1 test/command/7208.md+1−1 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+1−1 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/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.opml+1−1 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−11
@@ -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
@@ -47,7 +46,6 @@
4746- Carlos Sosa
4847- Cécile Chemin
4948- Cédric Couralet
50−- Charanjit Singh
5149- Chris Black
5250- Christian Conkle
5351- Christian Despres
@@ -78,7 +76,6 @@
7876- Eigil Rischel
7977- Emanuel Evans
8078- Emerson Harkin
81−- Emily Bourke
8279- Emily Eisenberg
8380- Eric Kow
8481- Erik Rask
@@ -152,7 +149,6 @@
152149- Josef Svenningsson
153150- Joseph C. Sible
154151- Julien Cretel
155−- Julien Dutant
156152- Juliette Fourcot
157153- Juliusz Gonera
158154- Justin Bogner
@@ -235,7 +231,6 @@
235231- Raymond Ehlers
236232- Recai Oktaş
237233- Roland Hieber
238−- Roman Beránek
239234- RyanGlScott
240235- Salim B
241236- Sascha Wilde
@@ -253,7 +248,6 @@
253248- Stefan Dresselhaus
254249- Sumit Sahrawat
255250- Tarik Graba
256−- Tatiana Porras
257251- Thenaesh Elango
258252- Thomas Hodgson
259253- Thomas Weißschuh
@@ -287,7 +281,6 @@
287281- a-vrma
288282- andrebauer
289283- argent0
290−- badumont
291284- blmage
292285- bucklereed
293286- bumper314
@@ -303,11 +296,8 @@
303296- kaizshang91
304297- lux-lth
305298- lwolfsonkin
306−- mbrackeantidot
307299- nkalvi
308300- niszet
309−- nuew
310−- obcat
311301- oltolm
312302- oquechy
313303- quasicomputational
@@ -319,7 +309,6 @@
319309- shreevatsa.public
320310- takahashim
321311- taotieren
322−- tecosaur
323312- TEC
324313- tgkokk
325314- 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−160
@@ -1,7 +1,7 @@
11---
22title: Pandoc User's Guide
33author: John MacFarlane
4−date: June 20, 2021
4+date: March 20, 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:
@@ -4265,8 +4255,6 @@ following restrictions apply:
42654255 example, you can't use a reference link in these contexts
42664256 if the link definition is somewhere else in the document.
42674257
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
42704258
42714259## Backslash escapes
42724260
@@ -4960,68 +4948,37 @@ Inline and regular footnotes may be mixed freely.
49604948
49614949#### Extension: `citations` ####
49624950
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
4951+Markdown citations go inside square brackets and are separated
4952+by semicolons. Each citation must have a key, composed of '@' +
4953+the citation identifier from the database, and may optionally
4954+have a prefix, a locator, and a suffix. The citation key must
4955+begin with a letter, digit, or `_`, and may contain
4956+alphanumerics, `_`, and internal punctuation characters
4957+(`:.#$%&-+?<>~/`). Here are some examples:
4958+
4959+ Blah blah [see @doe99, pp. 33-35; also @smith04, chap. 1].
4960+
4961+ Blah blah [@doe99, pp. 33-35, 38-39 and *passim*].
4962+
4963+ Blah blah [@smith04; @doe99].
4964+
4965+`pandoc` detects locator terms in the [CSL locale files].
4966+Either abbreviated or unabbreviated forms are accepted. In the `en-US`
4967+locale, locator terms can be written in either singular or plural forms,
4968+as `book`, `bk.`/`bks.`; `chapter`, `chap.`/`chaps.`; `column`,
4969+`col.`/`cols.`; `figure`, `fig.`/`figs.`; `folio`, `fol.`/`fols.`;
4970+`number`, `no.`/`nos.`; `line`, `l.`/`ll.`; `note`, `n.`/`nn.`; `opus`,
4971+`op.`/`opp.`; `page`, `p.`/`pp.`; `paragraph`, `para.`/`paras.`; `part`,
4972+`pt.`/`pts.`; `section`, `sec.`/`secs.`; `sub verbo`, `s.v.`/`s.vv.`;
4973+`verse`, `v.`/`vv.`; `volume`, `vol.`/`vols.`; `¶`/`¶¶`; `§`/`§§`. If no
50164974locator term is used, "page" is assumed.
50174975
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:
4976+`pandoc` will use heuristics to distinguish the locator
4977+from the suffix. In complex cases, the locator can be enclosed
4978+in curly braces:
50214979
50224980 [@smith{ii, A, D-Z}, with a suffix]
50234981 [@smith, {pp. iv, vi-xi, (xv)-(xvii)} with suffix here]
5024− [@smith{}, 99 years later]
50254982
50264983A minus sign (`-`) before the `@` will suppress mention of
50274984the author in the citation. This can be useful when the
@@ -5029,26 +4986,13 @@ author is already mentioned in the text:
50294986
50304987 Smith says blah [-@smith04].
50314988
5032−You can also write an author-in-text citation, by omitting the
5033−square brackets:
4989+You can also write an in-text citation, as follows:
50344990
50354991 @smith04 says blah.
50364992
50374993 @smith04 [p. 33] says blah.
50384994
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.
50424995
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/
50524996[CSL]: https://docs.citationstyles.org/en/stable/specification.html
50534997[CSL markup specs]: https://docs.citationstyles.org/en/1.0/release-notes.html#rich-text-markup-within-fields
50544998[Chicago Manual of Style]: https://chicagomanualofstyle.org
@@ -5057,44 +5001,13 @@ author-in-text style inside notes when using a note style.
50575001[finding and editing styles]: https://citationstyles.org/authors/
50585002[CSL locale files]: https://github.com/citation-style-language/locales
50595003
5060−## Non-default extensions
5004+## Non-pandoc extensions
50615005
50625006The following Markdown syntax extensions are not enabled by default
50635007in pandoc, but may be enabled by adding `+EXTENSION` to the format
50645008name, where `EXTENSION` is the name of the extension. Thus, for
50655009example, `markdown+hard_line_breaks` is Markdown with hard line breaks.
50665010
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−
50985011#### Extension: `attributes` ####
50995012
51005013Allows attributes to be attached to any inline or block-level
@@ -5628,23 +5541,10 @@ A few other metadata fields affect bibliography formatting:
56285541
56295542`lang`
56305543: 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).
5544+ for example in the translation of labels and the use
5545+ of quotation marks. (For backwards compatibility,
5546+ `locale` may be used instead of `lang`, but this use
5547+ is deprecated.)
56485548
56495549`notes-after-punctuation`
56505550: If true (the default), pandoc will put footnote citations
@@ -5656,6 +5556,12 @@ A few other metadata fields affect bibliography formatting:
56565556 punctuation.
56575557
56585558
5559+
5560+
5561+
5562+
5563+
5564+
56595565# Slide shows
56605566
56615567You can use pandoc to produce an HTML + JavaScript slide presentation
@@ -5748,11 +5654,7 @@ rules:
57485654 * A heading at the slide level always starts a new slide.
57495655
57505656 * 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.)
5657+ headings *within* a slide.
57565658
57575659 * Headings *above* the slide level in the hierarchy create
57585660 "title slides," which just contain the section title
@@ -6330,7 +6232,7 @@ Then edit `my.theme` and use it like this:
63306232If you are not satisfied with the built-in highlighting, or you
63316233want highlight a language that isn't supported, you can use the
63326234`--syntax-definition` option to load a [KDE-style XML syntax definition
6333−file](https://docs.kde.org/stable5/en/kate/katepart/highlight.html).
6235+file](https://docs.kde.org/stable5/en/applications/katepart/highlight.html).
63346236Before writing your own, have a look at KDE's [repository of syntax
63356237definitions](https://github.com/KDE/syntax-highlighting/tree/master/data/syntax).
63366238
@@ -6504,9 +6406,9 @@ application, here are some things to keep in mind:
650464064. The HTML generated by pandoc is not guaranteed to be safe.
65056407 If `raw_html` is enabled for the Markdown input, users can
65066408 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.
6409+ users can include dangerous content in attributes for
6410+ headings, spans, and code blocks. To be safe, you should
6411+ run all the generated HTML through an HTML sanitizer.
65106412
65116413# Authors
65126414
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+9−4
@@ -4,10 +4,15 @@ flags: +embed_data_files
44
55source-repository-package
66 type: git
7− location: https://github.com/jgm/doctemplates
8− tag: 428c26d5303cf7a2b1051fe1ffd9aafe9ba71c81
7+ location: https://github.com/jgm/citeproc
8+ tag: b42857be658b8f2649e989e061978e304986f853
99
1010source-repository-package
1111 type: git
12− location: https://github.com/jgm/citeproc
13− tag: 4ce0501cd6f9c86eee087afcf878c256e49b9615
12+ location: https://github.com/jgm/unicode-collation
13+ tag: 9d229a5c6bcbaf53d7022575234eb223cfa90d55
14+
15+-- source-repository-package
16+-- type: git
17+-- location: https://github.com/jgm/citeproc
18+-- tag: d44e24696ab444090d0e63e321c3a573f68b2e74
changelog.md−590
@@ -1,595 +1,5 @@
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−
5933## pandoc 2.13 (2021-03-21)
5944
5955 * Support `yaml_metadata_block` extension for `commonmark`, `gfm` (#6537).
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/org.md−15
@@ -36,21 +36,6 @@ The following export keywords are supported:
3636 defaults to stdout unless a target has to be given as a command
3737 line option.
3838
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−
5439[BCP47 language tag]: https://tools.ietf.org/html/bcp47
5540
5641Format-specific options
doc/using-the-pandoc-api.md+11−24
@@ -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.1
33.\"
4−.TH "Pandoc User\[cq]s Guide" "" "June 20, 2021" "pandoc 2.14.0.3" ""
4+.TH "Pandoc User\[cq]s Guide" "" "March 20, 2021" "pandoc 2.13" ""
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+16−25
@@ -1,6 +1,6 @@
11cabal-version: 2.2
22name: pandoc
3−version: 2.14.0.3
3+version: 2.13
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,7 +438,6 @@ 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,
446441 attoparsec >= 0.12 && < 0.15,
447442 base64-bytestring >= 0.1 && < 1.3,
448443 binary >= 0.7 && < 0.11,
@@ -450,10 +445,10 @@ library
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,31 @@ 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.1 && < 0.10.6,
483+ skylighting-core >= 0.10.5.1 && < 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,
500495 xml-conduit >= 1.9.1.1 && < 1.10,
501− unicode-collation >= 0.1.1 && < 0.2,
496+ unicode-collation >= 0.1 && < 0.2,
502497 zip-archive >= 0.2.3.4 && < 0.5,
503498 zlib >= 0.5 && < 0.7
504499 if os(windows) && arch(i386)
@@ -517,7 +512,6 @@ library
517512 Text.Pandoc.Options,
518513 Text.Pandoc.Extensions,
519514 Text.Pandoc.Shared,
520− Text.Pandoc.Sources,
521515 Text.Pandoc.MediaBag,
522516 Text.Pandoc.Error,
523517 Text.Pandoc.Filter,
@@ -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,
@@ -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+11−17
@@ -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 UnicodeCollation.Lang (Lang (..), parseLang)
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
@@ -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−1
@@ -687,7 +687,7 @@ yamlToMeta (Mapping _ _ m) =
687687 where
688688 pMetaString = pure . MetaString <$> P.manyChar P.anyChar
689689 runEverything p =
690− runPure (P.readWithM p (def :: P.ParserState) ("" :: Text))
690+ runPure (P.readWithM p (def :: P.ParserState) "")
691691 >>= fmap (Meta . flip P.runF def)
692692yamlToMeta _ = return mempty
693693
src/Text/Pandoc/Citeproc.hs+43−68
@@ -27,7 +27,7 @@ import Text.Pandoc.Error (PandocError(..))
2727import Text.Pandoc.Extensions (pandocExtensions)
2828import Text.Pandoc.Logging (LogMessage(..))
2929import Text.Pandoc.Options (ReaderOptions(..))
30−import Text.Pandoc.Shared (stringify, ordNub, tshow)
30+import Text.Pandoc.Shared (stringify, ordNub, blocksToInlines, tshow)
3131import qualified Text.Pandoc.UTF8 as UTF8
3232import Text.Pandoc.Walk (query, walk, walkM)
3333import Control.Applicative ((<|>))
@@ -74,7 +74,8 @@ processCitations (Pandoc meta bs) = do
7474
7575 let linkCites = maybe False truish $ lookupMeta "link-citations" meta
7676 let opts = defaultCiteprocOptions{ linkCitations = linkCites }
77− let result = Citeproc.citeproc opts style mblang refs citations
77+ let result = Citeproc.citeproc opts style (localeLanguage locale)
78+ refs citations
7879 mapM_ (report . CiteprocWarning) (resultWarnings result)
7980 let sopts = styleOptions style
8081 let classes = "references" : -- TODO remove this or keep for compatibility?
@@ -91,18 +92,22 @@ processCitations (Pandoc meta bs) = do
9192 walk (convertQuotes locale) .
9293 insertSpace $ out)
9394 (resultBibliography result)
94− let moveNotes = styleIsNoteStyle sopts &&
95− maybe True truish (lookupMeta "notes-after-punctuation" meta)
95+ let moveNotes = maybe True truish $
96+ lookupMeta "notes-after-punctuation" meta
9697 let cits = map (walk (convertQuotes locale)) $
9798 resultCitations result
9899
100+ let fixQuotes = case localePunctuationInQuote locale of
101+ Just True ->
102+ B.toList . movePunctuationInsideQuotes . B.fromList
103+ _ -> id
104+
99105 let metanocites = lookupMeta "nocite" meta
100106 let Pandoc meta'' bs' =
101107 maybe id (setMeta "nocite") metanocites .
102− walk (mvPunct moveNotes locale) .
103− (if styleIsNoteStyle sopts
104− then walk addNote . walk deNote
105− else id) .
108+ walk (map capitalizeNoteCitation .
109+ fixQuotes . mvPunct moveNotes locale) .
110+ walk deNote .
106111 evalState (walkM insertResolvedCitations $ Pandoc meta' bs)
107112 $ cits
108113 return $ Pandoc meta''
@@ -191,9 +196,7 @@ getReferences mblocale (Pandoc meta bs) = do
191196 then const True
192197 else (`Set.member` citeIds)
193198 let inlineRefs = case lookupMeta "references" meta of
194− Just (MetaList rs) ->
195− filter (idpred . unItemId . referenceId)
196− $ mapMaybe metaValueToReference rs
199+ Just (MetaList rs) -> mapMaybe metaValueToReference rs
197200 _ -> []
198201 externalRefs <- case lookupMeta "bibliography" meta of
199202 Just (MetaList xs) ->
@@ -372,6 +375,7 @@ formatFromExtension fp = case dropWhile (== '.') $ takeExtension fp of
372375
373376
374377isNote :: Inline -> Bool
378+isNote (Note _) = True
375379isNote (Cite _ [Note _]) = True
376380 -- the following allows citation styles that are "in-text" but use superscript
377381 -- references to be treated as if they are "notes" for the purposes of moving
@@ -384,12 +388,6 @@ isSpacy Space = True
384388isSpacy SoftBreak = True
385389isSpacy _ = False
386390
387−movePunctInsideQuotes :: Locale -> [Inline] -> [Inline]
388−movePunctInsideQuotes locale
389− | localePunctuationInQuote locale == Just True
390− = B.toList . movePunctuationInsideQuotes . B.fromList
391− | otherwise
392− = id
393391
394392mvPunct :: Bool -> Locale -> [Inline] -> [Inline]
395393mvPunct moveNotes locale (x : xs)
@@ -402,8 +400,7 @@ mvPunct moveNotes locale (q : s : x : ys)
402400 in if moveNotes
403401 then if T.null spunct
404402 then q : x : mvPunct moveNotes locale ys
405− else movePunctInsideQuotes locale
406− [q , Str spunct , x] ++ mvPunct moveNotes locale
403+ else q : Str spunct : x : mvPunct moveNotes locale
407404 (B.toList
408405 (dropTextWhile isPunctuation (B.fromList ys)))
409406 else q : x : mvPunct moveNotes locale ys
@@ -415,10 +412,9 @@ mvPunct moveNotes locale (Cite cs ils : ys)
415412 , moveNotes
416413 = let s = stringify ys
417414 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]) :
415+ in Cite cs (init ils
416+ ++ [Str spunct | not (endWithPunct False (init ils))]
417+ ++ [last ils]) :
422418 mvPunct moveNotes locale
423419 (B.toList (dropTextWhile isPunctuation (B.fromList ys)))
424420mvPunct moveNotes locale (s : x : ys) | isSpacy s, isNote x =
@@ -504,8 +500,7 @@ insertRefs refkvs refclasses meta refs bs =
504500 put True
505501 -- refHeader isn't used if you have an explicit references div
506502 let cs' = ordNub $ cs ++ refclasses
507− let kvs' = ordNub $ kvs ++ refkvs
508− return $ Div ("refs",cs',kvs') (xs ++ refs)
503+ return $ Div ("refs",cs',kvs) (xs ++ refs)
509504 go x = return x
510505
511506refTitle :: Meta -> Maybe [Inline]
@@ -564,62 +559,42 @@ extractText (FancyVal x) = toText x
564559extractText (NumVal n) = T.pack (show n)
565560extractText _ = mempty
566561
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−
562+capitalizeNoteCitation :: Inline -> Inline
563+capitalizeNoteCitation (Cite cs [Note [Para ils]]) =
564+ Cite cs
565+ [Note [Para $ B.toList $ addTextCase Nothing CapitalizeFirst
566+ $ B.fromList ils]]
567+capitalizeNoteCitation x = x
568+
569+deNote :: [Inline] -> [Inline]
570+deNote [] = []
571+deNote (Note bs:rest) =
572+ Note (walk go bs) : deNote rest
589573 where
590− addParens [] = []
591− addParens (Cite (c:cs) ils : zs)
574+ go [] = []
575+ go (Cite (c:cs) ils : zs)
592576 | citationMode c == AuthorInText
593− = Cite (c:cs) (concatMap (noteAfterComma (needsPeriod zs)) ils) :
594− addParens zs
577+ = Cite (c:cs) (concatMap (noteAfterComma (needsPeriod zs)) ils) : go zs
595578 | 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−
579+ = Cite (c:cs) (concatMap noteInParens ils) : go zs
580+ go (x:xs) = x : go xs
602581 needsPeriod [] = True
603582 needsPeriod (Str t:_) = case T.uncons t of
604583 Nothing -> False
605584 Just (c,_) -> isUpper c
606585 needsPeriod (Space:zs) = needsPeriod zs
607586 needsPeriod _ = False
608−
609− noteInParens (Span ("",["csl-note"],[]) ils)
587+ noteInParens (Note bs')
610588 = Space : Str "(" :
611− removeFinalPeriod ils ++ [Str ")"]
589+ removeFinalPeriod (blocksToInlines bs') ++ [Str ")"]
612590 noteInParens x = [x]
613−
614− noteAfterComma needsPer (Span ("",["csl-note"],[]) ils)
615− | not (null ils)
591+ noteAfterComma needsPer (Note bs')
616592 = Str "," : Space :
617− if needsPer
618− then ils
619− else removeFinalPeriod ils
593+ (if needsPer
594+ then id
595+ else removeFinalPeriod) (blocksToInlines bs')
620596 noteAfterComma _ x = [x]
621−
622−deNote x = x
597+deNote (x:xs) = x : deNote xs
623598
624599-- Note: we can't use dropTextWhileEnd indiscriminately,
625600-- because this would remove the final period on abbreviations like Ibid.
src/Text/Pandoc/Citeproc/BibTeX.hs+6−14
@@ -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
@@ -344,7 +339,7 @@ defaultLang = Lang "en" Nothing (Just "US") [] [] []
344339-- a map of bibtex "string" macros
345340type StringMap = Map.Map Text Text
346341
347−type BibParser = Parser Sources (Lang, StringMap)
342+type BibParser = Parser Text (Lang, StringMap)
348343
349344data Item = Item{ identifier :: Text
350345 , sourcePos :: SourcePos
@@ -809,7 +804,7 @@ bibEntries = do
809804 (bibComment <|> bibPreamble <|> bibString))
810805
811806bibSkip :: BibParser ()
812−bibSkip = skipMany1 (satisfy (/='@'))
807+bibSkip = () <$ take1WhileP (/='@')
813808
814809bibComment :: BibParser ()
815810bibComment = do
@@ -834,9 +829,6 @@ bibString = do
834829 updateState (\(l,m) -> (l, Map.insert k v m))
835830 return ()
836831
837−take1WhileP :: Monad m => (Char -> Bool) -> ParserT Sources u m Text
838−take1WhileP f = T.pack <$> many1 (satisfy f)
839−
840832inBraces :: BibParser Text
841833inBraces = do
842834 char '{'
@@ -868,7 +860,7 @@ fieldName = resolveAlias . T.toLower
868860
869861isBibtexKeyChar :: Char -> Bool
870862isBibtexKeyChar c =
871− isAlphaNum c || c `elem` (".:;?!`'()$/*@_+=-[]*&" :: [Char])
863+ isAlphaNum c || c `elem` (".:;?!`'()/*@_+=-[]*&" :: [Char])
872864
873865bibItem :: BibParser Item
874866bibItem = do
src/Text/Pandoc/Citeproc/Data.hs+1−1
@@ -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 UnicodeCollation.Lang (Lang(..), parseLang)
1414
1515biblatexLocalizations :: [(FilePath, ByteString)]
1616biblatexLocalizations = $(embedDir "citeproc/biblatex-localization")
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 UnicodeCollation.Lang (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+32−21
@@ -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 UnicodeCollation.Lang (Lang(..), parseLang, 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)
@@ -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−4
@@ -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
@@ -464,7 +462,6 @@ getAllExtensions f = universalExtensions <> getAll f
464462 , Ext_gutenberg
465463 , Ext_smart
466464 , Ext_literate_haskell
467− , Ext_rebase_relative_paths
468465 ]
469466 getAll "markdown_strict" = allMarkdownExtensions
470467 getAll "markdown_phpextra" = allMarkdownExtensions
@@ -517,7 +514,6 @@ getAllExtensions f = universalExtensions <> getAll f
517514 , Ext_attributes
518515 , Ext_sourcepos
519516 , Ext_yaml_metadata_block
520− , Ext_rebase_relative_paths
521517 ]
522518 getAll "commonmark_x" = getAll "commonmark"
523519 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/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/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+235−356
@@ -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,9 +105,8 @@ 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,
@@ -121,6 +122,7 @@ module Text.Pandoc.Parsing ( module Text.Pandoc.Sources,
121122 (<+?>),
122123 extractIdClass,
123124 insertIncludedFile,
125+ insertIncludedFileF,
124126 -- * Re-exports from Text.Parsec
125127 Stream,
126128 runParser,
@@ -131,10 +133,22 @@ module Text.Pandoc.Parsing ( module Text.Pandoc.Sources,
131133 getInput,
132134 setInput,
133135 unexpected,
136+ char,
137+ letter,
138+ digit,
139+ alphaNum,
134140 skipMany,
135141 skipMany1,
142+ spaces,
143+ space,
144+ anyChar,
145+ satisfy,
146+ newline,
147+ string,
136148 count,
137149 eof,
150+ noneOf,
151+ oneOf,
138152 lookAhead,
139153 notFollowedBy,
140154 many,
@@ -159,8 +173,6 @@ module Text.Pandoc.Parsing ( module Text.Pandoc.Sources,
159173 SourcePos,
160174 getPosition,
161175 setPosition,
162− sourceName,
163− setSourceName,
164176 sourceColumn,
165177 sourceLine,
166178 setSourceColumn,
@@ -176,25 +188,16 @@ module Text.Pandoc.Parsing ( module Text.Pandoc.Sources,
176188where
177189
178190import Control.Monad.Identity
179− ( guard,
180− join,
181− unless,
182− when,
183− void,
184− liftM2,
185− liftM,
186− Identity(..),
187− MonadPlus(mzero) )
188191import Control.Monad.Reader
189− ( asks, runReader, MonadReader(ask), Reader, ReaderT(ReaderT) )
190192import Data.Char (chr, isAlphaNum, isAscii, isAsciiUpper, isAsciiLower,
191− isSpace, ord, toLower, toUpper)
192−import Data.Default ( Default(..) )
193+ isPunctuation, isSpace, ord, toLower, toUpper)
194+import Data.Default
193195import Data.Functor (($>))
194196import Data.List (intercalate, transpose)
195197import qualified Data.Map as M
196198import Data.Maybe (fromMaybe)
197199import qualified Data.Set as Set
200+import Data.String
198201import Data.Text (Text)
199202import qualified Data.Text as T
200203import Text.HTML.TagSoup.Entity (lookupEntity)
@@ -203,108 +206,22 @@ import Text.Pandoc.Builder (Blocks, HasMeta (..), Inlines, trimInlines)
203206import qualified Text.Pandoc.Builder as B
204207import Text.Pandoc.Class.PandocMonad (PandocMonad, readFileFromDirs, report)
205208import 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(..) )
221209import Text.Pandoc.Logging
222− ( LogMessage(CouldNotLoadIncludeFile, DuplicateIdentifier) )
223210import 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) )
229211import Text.Pandoc.Readers.LaTeX.Types (Macro)
230212import 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
243213import qualified Text.Pandoc.UTF8 as UTF8 (putStrLn)
244214import 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) )
215+import Text.Parsec hiding (token)
216+import Text.Parsec.Pos (initialPos, newPos, updatePosString)
217+
218+import Control.Monad.Except
300219import Text.Pandoc.Error
301− ( PandocError(PandocParseError, PandocParsecError) )
302220
303221type Parser t s = Parsec t s
304222
305223type ParserT = ParsecT
306224
307−
308225-- | Reader monad wrapping the parser state. This is used to possibly delay
309226-- evaluation until all relevant information has been parsed and made available
310227-- in the parser state.
@@ -333,48 +250,70 @@ instance (Semigroup a, Monoid a) => Monoid (Future s a) where
333250 mappend = (<>)
334251
335252-- | Like @count@, but packs its result
336−countChar :: (Stream s m Char, UpdateSourcePos s Char, Monad m)
253+countChar :: (Stream s m Char, Monad m)
337254 => Int
338255 -> ParsecT s st m Char
339256 -> ParsecT s st m Text
340257countChar n = fmap T.pack . count n
341258
342259-- | Like @string@, but uses @Text@.
343−textStr :: (Stream s m Char, UpdateSourcePos s Char)
344− => Text -> ParsecT s u m Text
260+textStr :: Stream s m Char => Text -> ParsecT s u m Text
345261textStr t = string (T.unpack t) $> t
346262
347−
348−-- | Parse any line of text, returning the contents without the
349−-- final newline.
350−anyLine :: Monad m => ParserT Sources st m Text
263+-- | Parse characters while a predicate is true.
264+take1WhileP :: Monad m
265+ => (Char -> Bool)
266+ -> ParserT Text st m Text
267+take1WhileP f = do
268+ -- needed to persuade parsec that this won't match an empty string:
269+ c <- satisfy f
270+ inp <- getInput
271+ pos <- getPosition
272+ let (t, rest) = T.span f inp
273+ setInput rest
274+ setPosition $
275+ if f '\t' || f '\n'
276+ then updatePosString pos $ T.unpack t
277+ else incSourceColumn pos (T.length t)
278+ return $ T.singleton c <> t
279+
280+-- Parse n characters of input (or the rest of the input if
281+-- there aren't n characters).
282+takeP :: Monad m => Int -> ParserT Text st m Text
283+takeP n = do
284+ guard (n > 0)
285+ -- faster than 'count n anyChar'
286+ inp <- getInput
287+ pos <- getPosition
288+ let (xs, rest) = T.splitAt n inp
289+ -- needed to persuade parsec that this won't match an empty string:
290+ anyChar
291+ setInput rest
292+ setPosition $ updatePosString pos $ T.unpack xs
293+ return xs
294+
295+-- | Parse any line of text
296+anyLine :: Monad m => ParserT Text st m Text
351297anyLine = do
352298 -- This is much faster than:
353299 -- manyTill anyChar newline
354300 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
301+ pos <- getPosition
302+ case T.break (=='\n') inp of
303+ (this, T.uncons -> Just ('\n', rest)) -> do
304+ -- needed to persuade parsec that this won't match an empty string:
305+ anyChar
306+ setInput rest
307+ setPosition $ incSourceLine (setSourceColumn pos 1) 1
308+ return this
309+ _ -> mzero
371310
372311-- | Parse any line, include the final newline in the output
373−anyLineNewline :: Monad m => ParserT Sources st m Text
312+anyLineNewline :: Monad m => ParserT Text st m Text
374313anyLineNewline = (<> "\n") <$> anyLine
375314
376315-- | Parse indent by specified number of spaces (or equiv. tabs)
377−indentWith :: (Stream s m Char, UpdateSourcePos s Char)
316+indentWith :: Stream s m Char
378317 => HasReaderOptions st
379318 => Int -> ParserT s st m Text
380319indentWith num = do
@@ -459,13 +398,11 @@ notFollowedBy' p = try $ join $ do a <- try p
459398 return (return ())
460399-- (This version due to Andrew Pimlott on the Haskell mailing list.)
461400
462−oneOfStrings' :: (Stream s m Char, UpdateSourcePos s Char)
463− => (Char -> Char -> Bool) -> [Text] -> ParserT s st m Text
401+oneOfStrings' :: Stream s m Char => (Char -> Char -> Bool) -> [Text] -> ParserT s st m Text
464402oneOfStrings' f = fmap T.pack . oneOfStrings'' f . fmap T.unpack
465403
466404-- 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
405+oneOfStrings'' :: Stream s m Char => (Char -> Char -> Bool) -> [String] -> ParserT s st m String
469406oneOfStrings'' _ [] = Prelude.fail "no strings"
470407oneOfStrings'' matches strs = try $ do
471408 c <- anyChar
@@ -480,16 +417,14 @@ oneOfStrings'' matches strs = try $ do
480417-- | Parses one of a list of strings. If the list contains
481418-- two strings one of which is a prefix of the other, the longer
482419-- string will be matched if possible.
483−oneOfStrings :: (Stream s m Char, UpdateSourcePos s Char)
484− => [Text] -> ParserT s st m Text
420+oneOfStrings :: Stream s m Char => [Text] -> ParserT s st m Text
485421oneOfStrings = oneOfStrings' (==)
486422
487423-- | Parses one of a list of strings (tried in order), case insensitive.
488424
489425-- TODO: This will not be accurate with general Unicode (neither
490426-- 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
427+oneOfStringsCI :: Stream s m Char => [Text] -> ParserT s st m Text
493428oneOfStringsCI = oneOfStrings' ciMatch
494429 where ciMatch x y = toLower' x == toLower' y
495430 -- this optimizes toLower by checking common ASCII case
@@ -500,13 +435,11 @@ oneOfStringsCI = oneOfStrings' ciMatch
500435 | otherwise = toLower c
501436
502437-- | Parses a space or tab.
503−spaceChar :: (Stream s m Char, UpdateSourcePos s Char)
504− => ParserT s st m Char
438+spaceChar :: Stream s m Char => ParserT s st m Char
505439spaceChar = satisfy $ \c -> c == ' ' || c == '\t'
506440
507441-- | Parses a nonspace, nonnewline character.
508−nonspaceChar :: (Stream s m Char, UpdateSourcePos s Char)
509− => ParserT s st m Char
442+nonspaceChar :: Stream s m Char => ParserT s st m Char
510443nonspaceChar = satisfy (not . isSpaceChar)
511444
512445isSpaceChar :: Char -> Bool
@@ -517,24 +450,21 @@ isSpaceChar '\r' = True
517450isSpaceChar _ = False
518451
519452-- | Skips zero or more spaces or tabs.
520−skipSpaces :: (Stream s m Char, UpdateSourcePos s Char)
521− => ParserT s st m ()
453+skipSpaces :: Stream s m Char => ParserT s st m ()
522454skipSpaces = skipMany spaceChar
523455
524456-- | 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
457+blankline :: Stream s m Char => ParserT s st m Char
527458blankline = try $ skipSpaces >> newline
528459
529460-- | 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
461+blanklines :: Stream s m Char => ParserT s st m Text
532462blanklines = T.pack <$> many1 blankline
533463
534464-- | Gobble n spaces; if tabs are encountered, expand them
535465-- and gobble some or all of their spaces, leaving the rest.
536466gobbleSpaces :: (HasReaderOptions st, Monad m)
537− => Int -> ParserT Sources st m ()
467+ => Int -> ParserT Text st m ()
538468gobbleSpaces 0 = return ()
539469gobbleSpaces n
540470 | n < 0 = error "gobbleSpaces called with negative number"
@@ -542,26 +472,18 @@ gobbleSpaces n
542472 char ' ' <|> eatOneSpaceOfTab
543473 gobbleSpaces (n - 1)
544474
545−eatOneSpaceOfTab :: (HasReaderOptions st, Monad m) => ParserT Sources st m Char
475+eatOneSpaceOfTab :: (HasReaderOptions st, Monad m) => ParserT Text st m Char
546476eatOneSpaceOfTab = do
547− lookAhead (char '\t')
548− pos <- getPosition
477+ char '\t'
549478 tabstop <- getOption readerTabStop
550− -- replace the tab on the input stream with spaces
551− let numSpaces = tabstop - ((sourceColumn pos - 1) `mod` tabstop)
552479 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 ' '
480+ setInput $ T.replicate (tabstop - 1) " " <> inp
481+ return ' '
560482
561483-- | Gobble up to n spaces; if tabs are encountered, expand them
562484-- and gobble some or all of their spaces, leaving the rest.
563485gobbleAtMostSpaces :: (HasReaderOptions st, Monad m)
564− => Int -> ParserT Sources st m Int
486+ => Int -> ParserT Text st m Int
565487gobbleAtMostSpaces 0 = return 0
566488gobbleAtMostSpaces n
567489 | n < 0 = error "gobbleAtMostSpaces called with negative number"
@@ -570,8 +492,7 @@ gobbleAtMostSpaces n
570492 (+ 1) <$> gobbleAtMostSpaces (n - 1)
571493
572494-- | 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
495+enclosed :: (Show end, Stream s m Char) => ParserT s st m t -- ^ start parser
575496 -> ParserT s st m end -- ^ end parser
576497 -> ParserT s st m a -- ^ content parser (to be used repeatedly)
577498 -> ParserT s st m [a]
@@ -579,41 +500,39 @@ enclosed start end parser = try $
579500 start >> notFollowedBy space >> many1Till parser end
580501
581502-- | Parse string, case insensitive.
582−stringAnyCase :: (Stream s m Char, UpdateSourcePos s Char)
583− => Text -> ParserT s st m Text
503+stringAnyCase :: Stream s m Char => Text -> ParserT s st m Text
584504stringAnyCase = fmap T.pack . stringAnyCase' . T.unpack
585505
586−stringAnyCase' :: (Stream s m Char, UpdateSourcePos s Char)
587− => String -> ParserT s st m String
506+stringAnyCase' :: Stream s m Char => String -> ParserT s st m String
588507stringAnyCase' [] = string ""
589508stringAnyCase' (x:xs) = do
590509 firstChar <- char (toUpper x) <|> char (toLower x)
591510 rest <- stringAnyCase' xs
592511 return (firstChar:rest)
593512
594−-- TODO rewrite by just adding to Sources stream?
595513-- | Parse contents of 'str' using 'parser' and return result.
596−parseFromString :: Monad m
597− => ParserT Sources st m r
514+parseFromString :: (Stream s m Char, IsString s)
515+ => ParserT s st m r
598516 -> Text
599− -> ParserT Sources st m r
517+ -> ParserT s st m r
600518parseFromString parser str = do
601519 oldPos <- getPosition
602− setPosition $ initialPos "chunk"
520+ setPosition $ initialPos " chunk"
603521 oldInput <- getInput
604− setInput $ toSources str
522+ setInput $ fromString $ T.unpack str
605523 result <- parser
606524 spaces
525+ eof
607526 setInput oldInput
608527 setPosition oldPos
609528 return result
610529
611530-- | Like 'parseFromString' but specialized for 'ParserState'.
612531-- This resets 'stateLastStrPos', which is almost always what we want.
613−parseFromString' :: (Monad m, HasLastStrPosition u)
614− => ParserT Sources u m a
532+parseFromString' :: (Stream s m Char, IsString s, HasLastStrPosition u)
533+ => ParserT s u m a
615534 -> Text
616− -> ParserT Sources u m a
535+ -> ParserT s u m a
617536parseFromString' parser str = do
618537 oldLastStrPos <- getLastStrPos <$> getState
619538 updateState $ setLastStrPos Nothing
@@ -622,7 +541,7 @@ parseFromString' parser str = do
622541 return res
623542
624543-- | Parse raw line block up to and including blank lines.
625−lineClump :: Monad m => ParserT Sources st m Text
544+lineClump :: Monad m => ParserT Text st m Text
626545lineClump = blanklines
627546 <|> (T.unlines <$> many1 (notFollowedBy blankline >> anyLine))
628547
@@ -631,7 +550,7 @@ lineClump = blanklines
631550-- pairs of open and close, which must be different. For example,
632551-- @charsInBalanced '(' ')' anyChar@ will parse "(hello (there))"
633552-- and return "hello (there)".
634−charsInBalanced :: (Stream s m Char, UpdateSourcePos s Char) => Char -> Char -> ParserT s st m Char
553+charsInBalanced :: Stream s m Char => Char -> Char -> ParserT s st m Char
635554 -> ParserT s st m Text
636555charsInBalanced open close parser = try $ do
637556 char open
@@ -650,7 +569,7 @@ charsInBalanced open close parser = try $ do
650569-- Auxiliary functions for romanNumeral:
651570
652571-- | Parses a roman numeral (uppercase or lowercase), returns number.
653−romanNumeral :: (Stream s m Char, UpdateSourcePos s Char) => Bool -- ^ Uppercase if true
572+romanNumeral :: Stream s m Char => Bool -- ^ Uppercase if true
654573 -> ParserT s st m Int
655574romanNumeral upperCase = do
656575 let rchar uc = char $ if upperCase then uc else toLower uc
@@ -686,19 +605,20 @@ romanNumeral upperCase = do
686605
687606-- | Parses an email address; returns original and corresponding
688607-- escaped mailto: URI.
689−emailAddress :: (Stream s m Char, UpdateSourcePos s Char) => ParserT s st m (Text, Text)
608+emailAddress :: Stream s m Char => ParserT s st m (Text, Text)
690609emailAddress = try $ toResult <$> mailbox <*> (char '@' *> domain)
691610 where toResult mbox dom = let full = fromEntities $ T.pack $ mbox ++ '@':dom
692611 in (full, escapeURI $ "mailto:" <> full)
693612 mailbox = intercalate "." <$> (emailWord `sepBy1'` dot)
694613 domain = intercalate "." <$> (subdomain `sepBy1'` dot)
695614 dot = char '.'
696− subdomain = many1 $ alphaNum <|> innerPunct (=='-')
615+ subdomain = many1 $ alphaNum <|> innerPunct
697616 -- this excludes some valid email addresses, since an
698617 -- email could contain e.g. '__', but gives better results
699618 -- for our purposes, when combined with markdown parsing:
700− innerPunct f = try (satisfy f
701− <* notFollowedBy (satisfy (not . isAlphaNum)))
619+ innerPunct = try (satisfy (\c -> isEmailPunct c || c == '@')
620+ <* notFollowedBy space
621+ <* notFollowedBy (satisfy isPunctuation))
702622 -- technically an email address could begin with a symbol,
703623 -- but allowing this creates too many problems.
704624 -- See e.g. https://github.com/jgm/pandoc/issues/2940
@@ -709,11 +629,11 @@ emailAddress = try $ toResult <$> mailbox <*> (char '@' *> domain)
709629 isEmailPunct c = T.any (== c) "!\"#$%&'*+-/=?^_{|}~;"
710630
711631
712−uriScheme :: (Stream s m Char, UpdateSourcePos s Char) => ParserT s st m Text
632+uriScheme :: Stream s m Char => ParserT s st m Text
713633uriScheme = oneOfStringsCI (Set.toList schemes)
714634
715635-- | 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)
636+uri :: Stream s m Char => ParserT s st m (Text, Text)
717637uri = try $ do
718638 scheme <- uriScheme
719639 char ':'
@@ -756,7 +676,7 @@ uri = try $ do
756676 uriChunkBetween l r = try $ do chunk <- between (char l) (char r) uriChunk
757677 return (T.pack $ [l] ++ chunk ++ [r])
758678
759−mathInlineWith :: (Stream s m Char, UpdateSourcePos s Char) => Text -> Text -> ParserT s st m Text
679+mathInlineWith :: Stream s m Char => Text -> Text -> ParserT s st m Text
760680mathInlineWith op cl = try $ do
761681 textStr op
762682 when (op == "$") $ notFollowedBy space
@@ -777,10 +697,10 @@ mathInlineWith op cl = try $ do
777697 notFollowedBy digit -- to prevent capture of $5
778698 return $ trimMath $ T.concat words'
779699 where
780− inBalancedBraces :: (Stream s m Char, UpdateSourcePos s Char) => Int -> Text -> ParserT s st m Text
700+ inBalancedBraces :: Stream s m Char => Int -> Text -> ParserT s st m Text
781701 inBalancedBraces n = fmap T.pack . inBalancedBraces' n . T.unpack
782702
783− inBalancedBraces' :: (Stream s m Char, UpdateSourcePos s Char) => Int -> String -> ParserT s st m String
703+ inBalancedBraces' :: Stream s m Char => Int -> String -> ParserT s st m String
784704 inBalancedBraces' 0 "" = do
785705 c <- anyChar
786706 if c == '{'
@@ -797,13 +717,13 @@ mathInlineWith op cl = try $ do
797717 '{' -> inBalancedBraces' (numOpen + 1) (c:xs)
798718 _ -> inBalancedBraces' numOpen (c:xs)
799719
800−mathDisplayWith :: (Stream s m Char, UpdateSourcePos s Char) => Text -> Text -> ParserT s st m Text
720+mathDisplayWith :: Stream s m Char => Text -> Text -> ParserT s st m Text
801721mathDisplayWith op cl = try $ fmap T.pack $ do
802722 textStr op
803723 many1Till (satisfy (/= '\n') <|> (newline <* notFollowedBy' blankline))
804724 (try $ textStr cl)
805725
806−mathDisplay :: (HasReaderOptions st, Stream s m Char, UpdateSourcePos s Char)
726+mathDisplay :: (HasReaderOptions st, Stream s m Char)
807727 => ParserT s st m Text
808728mathDisplay =
809729 (guardEnabled Ext_tex_math_dollars >> mathDisplayWith "$$" "$$")
@@ -812,7 +732,7 @@ mathDisplay =
812732 <|> (guardEnabled Ext_tex_math_double_backslash >>
813733 mathDisplayWith "\\\\[" "\\\\]")
814734
815−mathInline :: (HasReaderOptions st, Stream s m Char, UpdateSourcePos s Char)
735+mathInline :: (HasReaderOptions st , Stream s m Char)
816736 => ParserT s st m Text
817737mathInline =
818738 (guardEnabled Ext_tex_math_dollars >> mathInlineWith "$" "$")
@@ -825,7 +745,7 @@ mathInline =
825745-- displacement (the difference between the source column at the end
826746-- and the source column at the beginning). Vertical displacement
827747-- (source row) is ignored.
828−withHorizDisplacement :: (Stream s m Char, UpdateSourcePos s Char)
748+withHorizDisplacement :: Stream s m Char
829749 => ParserT s st m a -- ^ Parser to apply
830750 -> ParserT s st m (a, Int) -- ^ (result, displacement)
831751withHorizDisplacement parser = do
@@ -837,37 +757,30 @@ withHorizDisplacement parser = do
837757-- | Applies a parser and returns the raw string that was parsed,
838758-- along with the value produced by the parser.
839759withRaw :: Monad m
840− => ParsecT Sources st m a
841− -> ParsecT Sources st m (a, Text)
760+ => ParsecT Text st m a
761+ -> ParsecT Text st m (a, Text)
842762withRaw parser = do
843− inps1 <- getInput
763+ pos1 <- getPosition
764+ inp <- getInput
844765 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
766+ pos2 <- getPosition
767+ let (l1,c1) = (sourceLine pos1, sourceColumn pos1)
768+ let (l2,c2) = (sourceLine pos2, sourceColumn pos2)
769+ let inplines = take ((l2 - l1) + 1) $ T.lines inp
770+ let raw = case inplines of
771+ [] -> ""
772+ [l] -> T.take (c2 - c1) l
773+ ls -> T.unlines (init ls) <> T.take (c2 - 1) (last ls)
774+ return (result, raw)
862775
863776-- | Parses backslash, then applies character parser.
864−escaped :: (Stream s m Char, UpdateSourcePos s Char)
777+escaped :: Stream s m Char
865778 => ParserT s st m Char -- ^ Parser for character to escape
866779 -> ParserT s st m Char
867780escaped parser = try $ char '\\' >> parser
868781
869782-- | Parse character entity.
870−characterReference :: (Stream s m Char, UpdateSourcePos s Char) => ParserT s st m Char
783+characterReference :: Stream s m Char => ParserT s st m Char
871784characterReference = try $ do
872785 char '&'
873786 ent <- many1Till nonspaceChar (char ';')
@@ -880,19 +793,19 @@ characterReference = try $ do
880793 _ -> Prelude.fail "entity not found"
881794
882795-- | Parses an uppercase roman numeral and returns (UpperRoman, number).
883−upperRoman :: (Stream s m Char, UpdateSourcePos s Char) => ParserT s st m (ListNumberStyle, Int)
796+upperRoman :: Stream s m Char => ParserT s st m (ListNumberStyle, Int)
884797upperRoman = do
885798 num <- romanNumeral True
886799 return (UpperRoman, num)
887800
888801-- | Parses a lowercase roman numeral and returns (LowerRoman, number).
889−lowerRoman :: (Stream s m Char, UpdateSourcePos s Char) => ParserT s st m (ListNumberStyle, Int)
802+lowerRoman :: Stream s m Char => ParserT s st m (ListNumberStyle, Int)
890803lowerRoman = do
891804 num <- romanNumeral False
892805 return (LowerRoman, num)
893806
894807-- | Parses a decimal numeral and returns (Decimal, number).
895−decimal :: (Stream s m Char, UpdateSourcePos s Char) => ParserT s st m (ListNumberStyle, Int)
808+decimal :: Stream s m Char => ParserT s st m (ListNumberStyle, Int)
896809decimal = do
897810 num <- many1 digit
898811 return (Decimal, fromMaybe 1 $ safeRead $ T.pack num)
@@ -901,7 +814,7 @@ decimal = do
901814-- returns (DefaultStyle, [next example number]). The next
902815-- example number is incremented in parser state, and the label
903816-- (if present) is added to the label table.
904−exampleNum :: (Stream s m Char, UpdateSourcePos s Char)
817+exampleNum :: Stream s m Char
905818 => ParserT s ParserState m (ListNumberStyle, Int)
906819exampleNum = do
907820 char '@'
@@ -920,37 +833,37 @@ exampleNum = do
920833 return (Example, num)
921834
922835-- | Parses a '#' returns (DefaultStyle, 1).
923−defaultNum :: (Stream s m Char, UpdateSourcePos s Char) => ParserT s st m (ListNumberStyle, Int)
836+defaultNum :: Stream s m Char => ParserT s st m (ListNumberStyle, Int)
924837defaultNum = do
925838 char '#'
926839 return (DefaultStyle, 1)
927840
928841-- | Parses a lowercase letter and returns (LowerAlpha, number).
929−lowerAlpha :: (Stream s m Char, UpdateSourcePos s Char) => ParserT s st m (ListNumberStyle, Int)
842+lowerAlpha :: Stream s m Char => ParserT s st m (ListNumberStyle, Int)
930843lowerAlpha = do
931844 ch <- satisfy isAsciiLower
932845 return (LowerAlpha, ord ch - ord 'a' + 1)
933846
934847-- | Parses an uppercase letter and returns (UpperAlpha, number).
935−upperAlpha :: (Stream s m Char, UpdateSourcePos s Char) => ParserT s st m (ListNumberStyle, Int)
848+upperAlpha :: Stream s m Char => ParserT s st m (ListNumberStyle, Int)
936849upperAlpha = do
937850 ch <- satisfy isAsciiUpper
938851 return (UpperAlpha, ord ch - ord 'A' + 1)
939852
940853-- | Parses a roman numeral i or I
941−romanOne :: (Stream s m Char, UpdateSourcePos s Char) => ParserT s st m (ListNumberStyle, Int)
854+romanOne :: Stream s m Char => ParserT s st m (ListNumberStyle, Int)
942855romanOne = (char 'i' >> return (LowerRoman, 1)) <|>
943856 (char 'I' >> return (UpperRoman, 1))
944857
945858-- | Parses an ordered list marker and returns list attributes.
946−anyOrderedListMarker :: (Stream s m Char, UpdateSourcePos s Char) => ParserT s ParserState m ListAttributes
859+anyOrderedListMarker :: Stream s m Char => ParserT s ParserState m ListAttributes
947860anyOrderedListMarker = choice
948861 [delimParser numParser | delimParser <- [inPeriod, inOneParen, inTwoParens],
949862 numParser <- [decimal, exampleNum, defaultNum, romanOne,
950863 lowerAlpha, lowerRoman, upperAlpha, upperRoman]]
951864
952865-- | Parses a list number (num) followed by a period, returns list attributes.
953−inPeriod :: (Stream s m Char, UpdateSourcePos s Char)
866+inPeriod :: Stream s m Char
954867 => ParserT s st m (ListNumberStyle, Int)
955868 -> ParserT s st m ListAttributes
956869inPeriod num = try $ do
@@ -962,7 +875,7 @@ inPeriod num = try $ do
962875 return (start, style, delim)
963876
964877-- | Parses a list number (num) followed by a paren, returns list attributes.
965−inOneParen :: (Stream s m Char, UpdateSourcePos s Char)
878+inOneParen :: Stream s m Char
966879 => ParserT s st m (ListNumberStyle, Int)
967880 -> ParserT s st m ListAttributes
968881inOneParen num = try $ do
@@ -971,7 +884,7 @@ inOneParen num = try $ do
971884 return (start, style, OneParen)
972885
973886-- | Parses a list number (num) enclosed in parens, returns list attributes.
974−inTwoParens :: (Stream s m Char, UpdateSourcePos s Char)
887+inTwoParens :: Stream s m Char
975888 => ParserT s st m (ListNumberStyle, Int)
976889 -> ParserT s st m ListAttributes
977890inTwoParens num = try $ do
@@ -982,7 +895,7 @@ inTwoParens num = try $ do
982895
983896-- | Parses an ordered list marker with a given style and delimiter,
984897-- returns number.
985−orderedListMarker :: (Stream s m Char, UpdateSourcePos s Char)
898+orderedListMarker :: Stream s m Char
986899 => ListNumberStyle
987900 -> ListNumberDelim
988901 -> ParserT s ParserState m Int
@@ -1005,10 +918,10 @@ orderedListMarker style delim = do
1005918 return start
1006919
1007920-- | Parses a character reference and returns a Str element.
1008−charRef :: (Stream s m Char, UpdateSourcePos s Char) => ParserT s st m Inline
921+charRef :: Stream s m Char => ParserT s st m Inline
1009922charRef = Str . T.singleton <$> characterReference
1010923
1011−lineBlockLine :: Monad m => ParserT Sources st m Text
924+lineBlockLine :: Monad m => ParserT Text st m Text
1012925lineBlockLine = try $ do
1013926 char '|'
1014927 char ' '
@@ -1018,11 +931,11 @@ lineBlockLine = try $ do
1018931 continuations <- many (try $ char ' ' >> anyLine)
1019932 return $ white <> T.unwords (line : continuations)
1020933
1021−blankLineBlockLine :: (Stream s m Char, UpdateSourcePos s Char) => ParserT s st m Char
934+blankLineBlockLine :: Stream s m Char => ParserT s st m Char
1022935blankLineBlockLine = try (char '|' >> blankline)
1023936
1024937-- | Parses an RST-style line block and returns a list of strings.
1025−lineBlockLines :: Monad m => ParserT Sources st m [Text]
938+lineBlockLines :: Monad m => ParserT Text st m [Text]
1026939lineBlockLines = try $ do
1027940 lines' <- many1 (lineBlockLine <|> (T.singleton <$> blankLineBlockLine))
1028941 skipMany blankline
@@ -1030,8 +943,7 @@ lineBlockLines = try $ do
1030943
1031944-- | Parse a table using 'headerParser', 'rowParser',
1032945-- 'lineParser', and 'footerParser'.
1033−tableWith :: (Stream s m Char, UpdateSourcePos s Char,
1034− HasReaderOptions st, Monad mf)
946+tableWith :: (Stream s m Char, HasReaderOptions st, Monad mf)
1035947 => ParserT s st m (mf [Blocks], [Alignment], [Int])
1036948 -> ([Int] -> ParserT s st m (mf [Blocks]))
1037949 -> ParserT s st m sep
@@ -1051,8 +963,7 @@ tableWith headerParser rowParser lineParser footerParser = try $ do
1051963
1052964type TableComponents mf = ([Alignment], [Double], mf [Row], mf [Row])
1053965
1054−tableWith' :: (Stream s m Char, UpdateSourcePos s Char,
1055− HasReaderOptions st, Monad mf)
966+tableWith' :: (Stream s m Char, HasReaderOptions st, Monad mf)
1056967 => ParserT s st m (mf [Blocks], [Alignment], [Int])
1057968 -> ([Int] -> ParserT s st m (mf [Blocks]))
1058969 -> ParserT s st m sep
@@ -1101,19 +1012,20 @@ widthsFromIndices numColumns' indices =
11011012-- (which may be grid), then the rows,
11021013-- which may be grid, separated by blank lines, and
11031014-- 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
1015+gridTableWith :: (Stream s m Char, HasReaderOptions st, HasLastStrPosition st,
1016+ Monad mf, IsString s)
1017+ => ParserT s st m (mf Blocks) -- ^ Block list parser
11061018 -> Bool -- ^ Headerless table
1107− -> ParserT Sources st m (mf Blocks)
1019+ -> ParserT s st m (mf Blocks)
11081020gridTableWith blocks headless =
11091021 tableWith (gridTableHeader headless blocks) (gridTableRow blocks)
11101022 (gridTableSep '-') gridTableFooter
11111023
1112−gridTableWith' :: (Monad m, HasReaderOptions st, HasLastStrPosition st,
1113− Monad mf)
1114− => ParserT Sources st m (mf Blocks) -- ^ Block list parser
1024+gridTableWith' :: (Stream s m Char, HasReaderOptions st, HasLastStrPosition st,
1025+ Monad mf, IsString s)
1026+ => ParserT s st m (mf Blocks) -- ^ Block list parser
11151027 -> Bool -- ^ Headerless table
1116− -> ParserT Sources st m (TableComponents mf)
1028+ -> ParserT s st m (TableComponents mf)
11171029gridTableWith' blocks headless =
11181030 tableWith' (gridTableHeader headless blocks) (gridTableRow blocks)
11191031 (gridTableSep '-') gridTableFooter
@@ -1122,7 +1034,7 @@ gridTableSplitLine :: [Int] -> Text -> [Text]
11221034gridTableSplitLine indices line = map removeFinalBar $ tail $
11231035 splitTextByIndices (init indices) $ trimr line
11241036
1125−gridPart :: Monad m => Char -> ParserT Sources st m ((Int, Int), Alignment)
1037+gridPart :: Stream s m Char => Char -> ParserT s st m ((Int, Int), Alignment)
11261038gridPart ch = do
11271039 leftColon <- option False (True <$ char ':')
11281040 dashes <- many1 (char ch)
@@ -1137,7 +1049,7 @@ gridPart ch = do
11371049 (False, False) -> AlignDefault
11381050 return ((lengthDashes, lengthDashes + 1), alignment)
11391051
1140−gridDashedLines :: Monad m => Char -> ParserT Sources st m [((Int, Int), Alignment)]
1052+gridDashedLines :: Stream s m Char => Char -> ParserT s st m [((Int, Int), Alignment)]
11411053gridDashedLines ch = try $ char '+' >> many1 (gridPart ch) <* blankline
11421054
11431055removeFinalBar :: Text -> Text
@@ -1146,14 +1058,14 @@ removeFinalBar = T.dropWhileEnd go . T.dropWhileEnd (=='|')
11461058 go c = T.any (== c) " \t"
11471059
11481060-- | Separator between rows of grid table.
1149−gridTableSep :: Monad m => Char -> ParserT Sources st m Char
1061+gridTableSep :: Stream s m Char => Char -> ParserT s st m Char
11501062gridTableSep ch = try $ gridDashedLines ch >> return '\n'
11511063
11521064-- | Parse header for a grid table.
1153−gridTableHeader :: (Monad m, Monad mf, HasLastStrPosition st)
1065+gridTableHeader :: (Stream s m Char, Monad mf, IsString s, HasLastStrPosition st)
11541066 => Bool -- ^ Headerless table
1155− -> ParserT Sources st m (mf Blocks)
1156− -> ParserT Sources st m (mf [Blocks], [Alignment], [Int])
1067+ -> ParserT s st m (mf Blocks)
1068+ -> ParserT s st m (mf [Blocks], [Alignment], [Int])
11571069gridTableHeader True _ = do
11581070 optional blanklines
11591071 dashes <- gridDashedLines '-'
@@ -1176,17 +1088,17 @@ gridTableHeader False blocks = try $ do
11761088 heads <- sequence <$> mapM (parseFromString' blocks . trim) rawHeads
11771089 return (heads, aligns, indices)
11781090
1179−gridTableRawLine :: (Stream s m Char, UpdateSourcePos s Char) => [Int] -> ParserT s st m [Text]
1091+gridTableRawLine :: Stream s m Char => [Int] -> ParserT s st m [Text]
11801092gridTableRawLine indices = do
11811093 char '|'
11821094 line <- many1Till anyChar newline
11831095 return (gridTableSplitLine indices $ T.pack line)
11841096
11851097-- | Parse row of grid table.
1186−gridTableRow :: (Monad m, Monad mf, HasLastStrPosition st)
1187− => ParserT Sources st m (mf Blocks)
1098+gridTableRow :: (Stream s m Char, Monad mf, IsString s, HasLastStrPosition st)
1099+ => ParserT s st m (mf Blocks)
11881100 -> [Int]
1189− -> ParserT Sources st m (mf [Blocks])
1101+ -> ParserT s st m (mf [Blocks])
11901102gridTableRow blocks indices = do
11911103 colLines <- many1 (gridTableRawLine indices)
11921104 let cols = map ((<> "\n") . T.unlines . removeOneLeadingSpace) $
@@ -1207,38 +1119,34 @@ removeOneLeadingSpace xs =
12071119 Just (c, _) -> c == ' '
12081120
12091121-- | Parse footer for a grid table.
1210−gridTableFooter :: (Stream s m Char, UpdateSourcePos s Char) => ParserT s st m ()
1122+gridTableFooter :: Stream s m Char => ParserT s st m ()
12111123gridTableFooter = optional blanklines
12121124
12131125---
12141126
12151127-- | 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
1128+readWithM :: Monad m
1129+ => ParserT Text st m a -- ^ parser
1130+ -> st -- ^ initial state
1131+ -> Text -- ^ input
12201132 -> m (Either PandocError a)
12211133readWithM parser state input =
1222− mapLeft (PandocParsecError sources)
1223− <$> runParserT parser state (initialSourceName sources) sources
1224− where
1225− sources = toSources input
1134+ mapLeft (PandocParsecError input) <$> runParserT parser state "source" input
12261135
12271136-- | Parse a string with a given parser and state
1228−readWith :: ToSources t
1229− => Parser Sources st a
1137+readWith :: Parser Text st a
12301138 -> st
1231− -> t
1139+ -> Text
12321140 -> Either PandocError a
12331141readWith p t inp = runIdentity $ readWithM p t inp
12341142
12351143-- | Parse a string with @parser@ (for testing).
12361144testStringWith :: Show a
1237− => ParserT Sources ParserState Identity a
1145+ => ParserT Text ParserState Identity a
12381146 -> Text
12391147 -> IO ()
12401148testStringWith parser str = UTF8.putStrLn $ tshow $
1241− readWith parser defaultParserState (toSources str)
1149+ readWith parser defaultParserState str
12421150
12431151-- | Parsing options.
12441152data ParserState = ParserState
@@ -1485,42 +1393,34 @@ registerHeader (ident,classes,kvs) header' = do
14851393 updateState $ updateIdentifierList $ Set.insert ident
14861394 return (ident,classes,kvs)
14871395
1488−smartPunctuation :: (HasReaderOptions st, HasLastStrPosition st,
1489− HasQuoteContext st m,
1490− Stream s m Char, UpdateSourcePos s Char)
1396+smartPunctuation :: (HasReaderOptions st, HasLastStrPosition st, HasQuoteContext st m, Stream s m Char)
14911397 => ParserT s st m Inlines
14921398 -> ParserT s st m Inlines
14931399smartPunctuation inlineParser = do
14941400 guardEnabled Ext_smart
1495− choice [ quoted inlineParser, apostrophe, doubleCloseQuote, dash, ellipses ]
1401+ choice [ quoted inlineParser, apostrophe, dash, ellipses ]
14961402
1497−quoted :: (HasLastStrPosition st, HasQuoteContext st m,
1498− Stream s m Char, UpdateSourcePos s Char)
1403+apostrophe :: Stream s m Char => ParserT s st m Inlines
1404+apostrophe = (char '\'' <|> char '\8217') >> return (B.str "\x2019")
1405+
1406+quoted :: (HasLastStrPosition st, HasQuoteContext st m, Stream s m Char)
14991407 => ParserT s st m Inlines
15001408 -> ParserT s st m Inlines
15011409quoted inlineParser = doubleQuoted inlineParser <|> singleQuoted inlineParser
15021410
1503−singleQuoted :: (HasLastStrPosition st, HasQuoteContext st m,
1504− Stream s m Char, UpdateSourcePos s Char)
1411+singleQuoted :: (HasLastStrPosition st, HasQuoteContext st m, Stream s m Char)
15051412 => ParserT s st m Inlines
15061413 -> 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)
1414+singleQuoted inlineParser = try $ B.singleQuoted . mconcat
1415+ <$ singleQuoteStart
1416+ <*> withQuoteContext InSingleQuote (many1Till inlineParser singleQuoteEnd)
1417+
1418+doubleQuoted :: (HasQuoteContext st m, Stream s m Char)
15161419 => ParserT s st m Inlines
15171420 -> 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")
1421+doubleQuoted inlineParser = try $ B.doubleQuoted . mconcat
1422+ <$ doubleQuoteStart
1423+ <*> withQuoteContext InDoubleQuote (manyTill inlineParser doubleQuoteEnd)
15241424
15251425failIfInQuoteContext :: (HasQuoteContext st m, Stream s m t)
15261426 => QuoteContext
@@ -1529,14 +1429,13 @@ failIfInQuoteContext context = do
15291429 context' <- getQuoteContext
15301430 when (context' == context) $ Prelude.fail "already inside quotes"
15311431
1532−charOrRef :: (Stream s m Char, UpdateSourcePos s Char) => [Char] -> ParserT s st m Char
1432+charOrRef :: Stream s m Char => [Char] -> ParserT s st m Char
15331433charOrRef cs =
15341434 oneOf cs <|> try (do c <- characterReference
15351435 guard (c `elem` cs)
15361436 return c)
15371437
1538−singleQuoteStart :: (HasLastStrPosition st, HasQuoteContext st m,
1539− Stream s m Char, UpdateSourcePos s Char)
1438+singleQuoteStart :: (HasLastStrPosition st, HasQuoteContext st m, Stream s m Char)
15401439 => ParserT s st m ()
15411440singleQuoteStart = do
15421441 failIfInQuoteContext InSingleQuote
@@ -1544,39 +1443,30 @@ singleQuoteStart = do
15441443 guard =<< notAfterString
15451444 try $ do
15461445 charOrRef "'\8216\145"
1547− void $ lookAhead (satisfy (not . isSpaceChar))
1446+ notFollowedBy (oneOf [' ', '\t', '\n'])
15481447
1549−singleQuoteEnd :: (Stream s m Char, UpdateSourcePos s Char)
1448+singleQuoteEnd :: Stream s m Char
15501449 => ParserT s st m ()
15511450singleQuoteEnd = try $ do
15521451 charOrRef "'\8217\146"
15531452 notFollowedBy alphaNum
15541453
1555−doubleQuoteStart :: (HasLastStrPosition st,
1556− HasQuoteContext st m,
1557− Stream s m Char, UpdateSourcePos s Char)
1454+doubleQuoteStart :: (HasQuoteContext st m, Stream s m Char)
15581455 => ParserT s st m ()
15591456doubleQuoteStart = do
15601457 failIfInQuoteContext InDoubleQuote
1561− guard =<< notAfterString
15621458 try $ do charOrRef "\"\8220\147"
1563− void $ lookAhead (satisfy (not . isSpaceChar))
1459+ notFollowedBy (oneOf [' ', '\t', '\n'])
15641460
1565−doubleQuoteEnd :: (Stream s m Char, UpdateSourcePos s Char)
1461+doubleQuoteEnd :: Stream s m Char
15661462 => ParserT s st m ()
15671463doubleQuoteEnd = void (charOrRef "\"\8221\148")
15681464
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)
1465+ellipses :: Stream s m Char
15761466 => ParserT s st m Inlines
15771467ellipses = try (string "..." >> return (B.str "\8230"))
15781468
1579−dash :: (HasReaderOptions st, Stream s m Char, UpdateSourcePos s Char)
1469+dash :: (HasReaderOptions st, Stream s m Char)
15801470 => ParserT s st m Inlines
15811471dash = try $ do
15821472 oldDashes <- extensionEnabled Ext_old_dashes <$> getOption readerExtensions
@@ -1603,28 +1493,20 @@ nested p = do
16031493 updateState $ \st -> st{ stateMaxNestingLevel = nestlevel }
16041494 return res
16051495
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
1496+citeKey :: (Stream s m Char, HasLastStrPosition st)
1497+ => ParserT s st m (Bool, Text)
1498+citeKey = try $ do
16101499 guard =<< notAfterString
16111500 suppress_author <- option False (True <$ char '-')
16121501 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
16221502 firstChar <- alphaNum <|> char '_' <|> char '*' -- @* for wildcard in nocite
16231503 let regchar = satisfy (\c -> isAlphaNum c || c == '_')
16241504 let internal p = try $ p <* lookAhead regchar
16251505 rest <- many $ regchar <|> internal (oneOf ":.#$%&-+?<>~/") <|>
16261506 try (oneOf ":/" <* lookAhead (char '/'))
1627− return $ T.pack $ firstChar:rest
1507+ let key = firstChar:rest
1508+ return (suppress_author, T.pack key)
1509+
16281510
16291511token :: (Stream s m t)
16301512 => (t -> Text)
@@ -1644,15 +1526,12 @@ extractIdClass (ident, cls, kvs) = (ident', cls', kvs')
16441526 cls' = maybe cls T.words $ lookup "class" kvs
16451527 kvs' = filter (\(k,_) -> k /= "id" || k /= "class") kvs
16461528
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
1529+insertIncludedFile' :: (PandocMonad m, HasIncludeFiles st)
1530+ => ParserT a st m (mf Blocks)
1531+ -> (Text -> a)
1532+ -> [FilePath] -> FilePath
1533+ -> ParserT a st m (mf Blocks)
1534+insertIncludedFile' blocks totoks dirs f = do
16561535 oldPos <- getPosition
16571536 oldInput <- getInput
16581537 containers <- getIncludeFiles <$> getState
@@ -1661,32 +1540,32 @@ insertIncludedFile parser toStream dirs f mbstartline mbendline = do
16611540 updateState $ addIncludeFile $ T.pack f
16621541 mbcontents <- readFileFromDirs dirs f
16631542 contents <- case mbcontents of
1664− Just s -> return $ exciseLines mbstartline mbendline s
1543+ Just s -> return s
16651544 Nothing -> do
16661545 report $ CouldNotLoadIncludeFile (T.pack f) oldPos
16671546 return ""
1668− setInput $ toStream contents
1669− setPosition $ newPos f (fromMaybe 1 mbstartline) 1
1670− result <- parser
1547+ setPosition $ newPos f 1 1
1548+ setInput $ totoks contents
1549+ bs <- blocks
16711550 setInput oldInput
16721551 setPosition oldPos
16731552 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
1553+ return bs
16921554
1555+-- | Parse content of include file as blocks. Circular includes result in an
1556+-- @PandocParseError@.
1557+insertIncludedFile :: (PandocMonad m, HasIncludeFiles st)
1558+ => ParserT [a] st m Blocks
1559+ -> (Text -> [a])
1560+ -> [FilePath] -> FilePath
1561+ -> ParserT [a] st m Blocks
1562+insertIncludedFile blocks totoks dirs f =
1563+ runIdentity <$> insertIncludedFile' (Identity <$> blocks) totoks dirs f
1564+
1565+-- | Parse content of include file as future blocks. Circular includes result in
1566+-- an @PandocParseError@.
1567+insertIncludedFileF :: (PandocMonad m, HasIncludeFiles st)
1568+ => ParserT Text st m (Future st Blocks)
1569+ -> [FilePath] -> FilePath
1570+ -> ParserT Text st m (Future st Blocks)
1571+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+5−8
@@ -23,33 +23,30 @@ 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
5451 mblangEnv <- lookupEnv "LANG"
5552 let defaultLang = Lang "en" Nothing (Just "US") [] [] []
@@ -63,7 +60,7 @@ readBibTeX' variant _opts t = do
6360 Left _ -> throwError $ PandocCiteprocError e
6461 Right l -> return l
6562 case BibTeX.readBibtexString variant locale (const True) t of
66− Left e -> throwError $ PandocParsecError (toSources t) e
63+ Left e -> throwError $ PandocParsecError t e
6764 Right refs -> return $ setMeta "references"
6865 (map referenceToMetaValue refs)
6966 . 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+31−43
@@ -30,55 +30,45 @@ import Text.Pandoc.Readers.Metadata (yamlMetaBlock)
3030import Control.Monad.Except
3131import Data.Functor.Identity (runIdentity)
3232import Data.Typeable
33−import Text.Pandoc.Parsing (runParserT, getInput,
34− runF, defaultParserState, option, many1, anyChar,
35− Sources(..), ToSources(..), ParserT, Future,
36− sourceName)
33+import Text.Pandoc.Parsing (runParserT, getPosition, sourceLine,
34+ runF, defaultParserState, take1WhileP, option)
3735import qualified Data.Text as T
3836
3937-- | Parse a CommonMark formatted string into a 'Pandoc' structure.
40−readCommonMark :: (PandocMonad m, ToSources a)
41− => ReaderOptions -> a -> m Pandoc
38+readCommonMark :: PandocMonad m => ReaderOptions -> Text -> m Pandoc
4239readCommonMark 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
40+ | isEnabled Ext_yaml_metadata_block opts
41+ , "---" `T.isPrefixOf` s = do
42+ let metaValueParser = do
43+ inp <- option "" $ take1WhileP (const True)
44+ case runIdentity
45+ (commonmarkWith (specFor opts) "metadata value" inp) of
46+ Left _ -> mzero
47+ Right (Cm bls :: Cm () Blocks)
48+ -> return $ return $ B.toMetaValue bls
49+ res <- runParserT (do meta <- yamlMetaBlock metaValueParser
50+ pos <- getPosition
51+ return (meta, pos))
52+ defaultParserState "YAML metadata" s
53+ case res of
54+ Left _ -> readCommonMarkBody opts s
55+ Right (meta, pos) -> do
56+ let dropLines 0 = id
57+ dropLines n = dropLines (n - 1) . T.drop 1 . T.dropWhile (/='\n')
58+ let metaLines = sourceLine pos - 1
59+ let body = T.replicate metaLines "\n" <> dropLines metaLines s
60+ Pandoc _ bs <- readCommonMarkBody opts body
61+ return $ Pandoc (runF meta defaultParserState) bs
62+ | otherwise = readCommonMarkBody opts s
6163
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
64+readCommonMarkBody :: PandocMonad m => ReaderOptions -> Text -> m Pandoc
65+readCommonMarkBody opts s
7666 | isEnabled Ext_sourcepos opts =
77− case runIdentity (parseCommonmarkWith (specFor opts) toks) of
67+ case runIdentity (commonmarkWith (specFor opts) "" s) of
7868 Left err -> throwError $ PandocParsecError s err
7969 Right (Cm bls :: Cm SourceRange Blocks) -> return $ B.doc bls
8070 | otherwise =
81− case runIdentity (parseCommonmarkWith (specFor opts) toks) of
71+ case runIdentity (commonmarkWith (specFor opts) "" s) of
8272 Left err -> throwError $ PandocParsecError s err
8373 Right (Cm bls :: Cm () Blocks) -> return $ B.doc bls
8474
@@ -112,7 +102,5 @@ specFor opts = foldr ($) defaultSyntaxSpec exts
112102 | isEnabled Ext_implicit_header_references opts ] ++
113103 [ (footnoteSpec <>) | isEnabled Ext_footnotes opts ] ++
114104 [ (definitionListSpec <>) | isEnabled Ext_definition_lists opts ] ++
115− [ (taskListSpec <>) | isEnabled Ext_task_lists opts ] ++
116− [ (rebaseRelativePathsSpec <>)
117− | isEnabled Ext_rebase_relative_paths opts ]
105+ [ (taskListSpec <>) | isEnabled Ext_task_lists opts ]
118106
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+10−24
@@ -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
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+3−8
@@ -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
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 UnicodeCollation.Lang (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+1−1
@@ -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 UnicodeCollation.Lang (Lang(..), renderLang)
2727import Text.Pandoc.Class (PandocMonad(..), setTranslations)
2828import Text.Pandoc.Readers.LaTeX.Parsing
2929import Text.Pandoc.Parsing (updateState, option, getState, QuoteContext(..),
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+45−76
@@ -29,9 +29,7 @@ import qualified Data.Set as Set
2929import Data.Text (Text)
3030import qualified Data.Text as T
3131import 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
32+import System.FilePath (addExtension, takeExtension)
3533import Text.HTML.TagSoup hiding (Row)
3634import Text.Pandoc.Builder (Blocks, Inlines)
3735import qualified Text.Pandoc.Builder as B
@@ -49,20 +47,19 @@ import Text.Pandoc.Readers.LaTeX (applyMacros, rawLaTeXBlock, rawLaTeXInline)
4947import Text.Pandoc.Shared
5048import Text.Pandoc.XML (fromEntities)
5149import Text.Pandoc.Readers.Metadata (yamlBsToMeta, yamlBsToRefs, yamlMetaBlock)
52−-- import Debug.Trace (traceShowId)
5350
54−type MarkdownParser m = ParserT Sources ParserState m
51+type MarkdownParser m = ParserT Text ParserState m
5552
5653type F = Future ParserState
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
@@ -299,7 +298,7 @@ kvPair allowEmpty = try $ do
299298 (try $ newline >> lookAhead (blankline <|> nonspaceChar))
300299 guard $ allowEmpty || not (T.null val)
301300 let key' = T.concat $ T.words $ T.toLower key
302− let val' = MetaInlines $ B.toList $ B.text val
301+ let val' = MetaBlocks $ B.toList $ B.plain $ B.text val
303302 return (key',val')
304303
305304parseMarkdown :: PandocMonad m => MarkdownParser m Pandoc
@@ -338,9 +337,7 @@ referenceKey = try $ do
338337 notFollowedBy' (() <$ reference)
339338 many1Char $ notFollowedBy space >> litChar
340339 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)
340+ src <- try betweenAngles <|> sourceURL
344341 tit <- option "" referenceTitle
345342 attr <- option nullAttr $ try $
346343 do guardEnabled Ext_link_attributes
@@ -571,7 +568,7 @@ registerImplicitHeader raw attr@(ident, _, _)
571568-- hrule block
572569--
573570
574−hrule :: PandocMonad m => ParserT Sources st m (F Blocks)
571+hrule :: PandocMonad m => ParserT Text st m (F Blocks)
575572hrule = try $ do
576573 skipSpaces
577574 start <- satisfy isHruleChar
@@ -591,7 +588,7 @@ indentedLine = indentSpaces >> anyLineNewline
591588blockDelimiter :: PandocMonad m
592589 => (Char -> Bool)
593590 -> Maybe Int
594− -> ParserT Sources ParserState m Int
591+ -> ParserT Text ParserState m Int
595592blockDelimiter f len = try $ do
596593 skipNonindentSpaces
597594 c <- lookAhead (satisfy f)
@@ -735,7 +732,7 @@ lhsCodeBlockBirdWith c = try $ do
735732 blanklines
736733 return $ T.intercalate "\n" lns'
737734
738−birdTrackLine :: PandocMonad m => Char -> ParserT Sources st m Text
735+birdTrackLine :: PandocMonad m => Char -> ParserT Text st m Text
739736birdTrackLine c = try $ do
740737 char c
741738 -- allow html tags on left margin:
@@ -1028,7 +1025,7 @@ para = try $ do
10281025 option (B.plain <$> result)
10291026 $ try $ do
10301027 newline
1031− (mempty <$ blanklines)
1028+ (blanklines >> return mempty)
10321029 <|> (guardDisabled Ext_blank_before_blockquote >> () <$ lookAhead blockQuote)
10331030 <|> (guardEnabled Ext_backtick_code_blocks >> () <$ lookAhead codeBlockFenced)
10341031 <|> (guardDisabled Ext_blank_before_header >> () <$ lookAhead header)
@@ -1173,7 +1170,7 @@ lineBlock = do
11731170-- and the length including trailing space.
11741171dashedLine :: PandocMonad m
11751172 => Char
1176− -> ParserT Sources st m (Int, Int)
1173+ -> ParserT Text st m (Int, Int)
11771174dashedLine ch = do
11781175 dashes <- many1 (char ch)
11791176 sp <- many spaceChar
@@ -1242,7 +1239,7 @@ rawTableLine :: PandocMonad m
12421239 -> MarkdownParser m [Text]
12431240rawTableLine indices = do
12441241 notFollowedBy' (blanklines' <|> tableFooter)
1245− line <- anyLine
1242+ line <- take1WhileP (/='\n') <* newline
12461243 return $ map trim $ tail $
12471244 splitTextByIndices (init indices) line
12481245
@@ -1393,7 +1390,7 @@ pipeTableCell =
13931390 return $ B.plain <$> result)
13941391 <|> return mempty
13951392
1396−pipeTableHeaderPart :: PandocMonad m => ParserT Sources st m (Alignment, Int)
1393+pipeTableHeaderPart :: PandocMonad m => ParserT Text st m (Alignment, Int)
13971394pipeTableHeaderPart = try $ do
13981395 skipMany spaceChar
13991396 left <- optionMaybe (char ':')
@@ -1409,14 +1406,10 @@ pipeTableHeaderPart = try $ do
14091406 (Just _,Just _) -> AlignCenter, len)
14101407
14111408-- Succeed only if current line contains a pipe.
1412−scanForPipe :: PandocMonad m => ParserT Sources st m ()
1409+scanForPipe :: PandocMonad m => ParserT Text st m ()
14131410scanForPipe = 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
1411+ inp <- getInput
1412+ case T.break (\c -> c == '\n' || c == '|') inp of
14201413 (_, T.uncons -> Just ('|', _)) -> return ()
14211414 _ -> mzero
14221415
@@ -1710,13 +1703,13 @@ whitespace = spaceChar >> return <$> (lb <|> regsp) <?> "whitespace"
17101703 where lb = spaceChar >> skipMany spaceChar >> option B.space (endline >> return B.linebreak)
17111704 regsp = skipMany spaceChar >> return B.space
17121705
1713−nonEndline :: PandocMonad m => ParserT Sources st m Char
1706+nonEndline :: PandocMonad m => ParserT Text st m Char
17141707nonEndline = satisfy (/='\n')
17151708
17161709str :: PandocMonad m => MarkdownParser m (F Inlines)
17171710str = do
17181711 result <- mconcat <$> many1
1719− ( T.pack <$> (many1 alphaNum)
1712+ ( take1WhileP isAlphaNum
17201713 <|> "." <$ try (char '.' <* notFollowedBy (char '.')) )
17211714 updateLastStrPos
17221715 (do guardEnabled Ext_smart
@@ -1840,12 +1833,9 @@ regLink :: PandocMonad m
18401833 -> MarkdownParser m (F Inlines)
18411834regLink constructor lab = try $ do
18421835 (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
18461836 attr <- option nullAttr $
18471837 guardEnabled Ext_link_attributes >> attributes
1848− return $ constructor attr src' tit <$> lab
1838+ return $ constructor attr src tit <$> lab
18491839
18501840-- a link like [this][ref] or [this][] or [this]
18511841referenceLink :: PandocMonad m
@@ -1885,8 +1875,7 @@ referenceLink constructor (lab, raw) = do
18851875 Just ((src, tit), _) -> constructor nullAttr src tit <$> lab
18861876 Nothing -> makeFallback
18871877 else makeFallback
1888− Just ((src,tit), attr) ->
1889− constructor attr src tit <$> lab
1878+ Just ((src,tit), attr) -> constructor attr src tit <$> lab
18901879
18911880dropBrackets :: Text -> Text
18921881dropBrackets = dropRB . dropLB
@@ -1919,33 +1908,15 @@ autoLink = try $ do
19191908 return $ return $ B.linkWith attr (src <> escapeURI extra) ""
19201909 (B.str $ orig <> extra)
19211910
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−
19391911image :: PandocMonad m => MarkdownParser m (F Inlines)
19401912image = try $ do
19411913 char '!'
19421914 (lab,raw) <- reference
19431915 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
1916+ let constructor attr' src = case takeExtension (T.unpack src) of
1917+ "" -> B.imageWith attr' (T.pack $ addExtension (T.unpack src)
1918+ $ T.unpack defaultExt)
1919+ _ -> B.imageWith attr' src
19491920 regLink constructor lab <|> referenceLink constructor (lab,raw)
19501921
19511922note :: PandocMonad m => MarkdownParser m (F Inlines)
@@ -1991,7 +1962,7 @@ rawLaTeXInline' = do
19911962 s <- rawLaTeXInline
19921963 return $ return $ B.rawInline "tex" s -- "tex" because it might be context
19931964
1994−rawConTeXtEnvironment :: PandocMonad m => ParserT Sources st m Text
1965+rawConTeXtEnvironment :: PandocMonad m => ParserT Text st m Text
19951966rawConTeXtEnvironment = try $ do
19961967 string "\\start"
19971968 completion <- inBrackets (letter <|> digit <|> spaceChar)
@@ -2000,7 +1971,7 @@ rawConTeXtEnvironment = try $ do
20001971 (try $ string "\\stop" >> textStr completion)
20011972 return $ "\\start" <> completion <> T.concat contents <> "\\stop" <> completion
20021973
2003−inBrackets :: PandocMonad m => ParserT Sources st m Char -> ParserT Sources st m Text
1974+inBrackets :: PandocMonad m => ParserT Text st m Char -> ParserT Text st m Text
20041975inBrackets parser = do
20051976 char '['
20061977 contents <- manyChar parser
@@ -2120,7 +2091,7 @@ cite = do
21202091
21212092textualCite :: PandocMonad m => MarkdownParser m (F Inlines)
21222093textualCite = try $ do
2123− (suppressAuthor, key) <- citeKey True
2094+ (suppressAuthor, key) <- citeKey
21242095 -- If this is a reference to an earlier example list item,
21252096 -- then don't parse it as a citation. If the example list
21262097 -- item comes later, we'll parse it here and figure out in
@@ -2200,7 +2171,7 @@ prefix = trimInlinesF . mconcat <$>
22002171 manyTill inline (char ']'
22012172 <|> lookAhead
22022173 (try $ do optional (try (char ';' >> spnl))
2203− citeKey True
2174+ citeKey
22042175 return ']'))
22052176
22062177citeList :: PandocMonad m => MarkdownParser m (F [Citation])
@@ -2209,7 +2180,7 @@ citeList = fmap sequence $ sepBy1 citation (try $ char ';' >> spnl)
22092180citation :: PandocMonad m => MarkdownParser m (F Citation)
22102181citation = try $ do
22112182 pref <- prefix
2212− (suppress_author, key) <- citeKey True
2183+ (suppress_author, key) <- citeKey
22132184 suff <- suffix
22142185 noteNum <- stateNoteNumber <$> getState
22152186 return $ do
@@ -2228,30 +2199,28 @@ citation = try $ do
22282199smart :: PandocMonad m => MarkdownParser m (F Inlines)
22292200smart = do
22302201 guardEnabled Ext_smart
2231− doubleQuoted <|> singleQuoted <|> (return <$> doubleCloseQuote) <|>
2232− (return <$> apostrophe) <|> (return <$> dash) <|> (return <$> ellipses)
2202+ doubleQuoted <|> singleQuoted <|>
2203+ choice (map (return <$>) [apostrophe, dash, ellipses])
22332204
22342205singleQuoted :: PandocMonad m => MarkdownParser m (F Inlines)
2235−singleQuoted = do
2206+singleQuoted = try $ do
22362207 singleQuoteStart
2237− (try (withQuoteContext InSingleQuote $
2208+ withQuoteContext InSingleQuote $
22382209 fmap B.singleQuoted . trimInlinesF . mconcat <$>
2239− many1Till inline singleQuoteEnd))
2240− <|> (return (return (B.str "\8217")))
2210+ many1Till inline singleQuoteEnd
22412211
22422212-- doubleQuoted will handle regular double-quoted sections, as well
22432213-- as dialogues with an open double-quote without a close double-quote
22442214-- in the same paragraph.
22452215doubleQuoted :: PandocMonad m => MarkdownParser m (F Inlines)
2246−doubleQuoted = do
2216+doubleQuoted = try $ do
22472217 doubleQuoteStart
2248− (try (withQuoteContext InDoubleQuote $
2218+ withQuoteContext InDoubleQuote $
22492219 fmap B.doubleQuoted . trimInlinesF . mconcat <$>
2250− many1Till inline doubleQuoteEnd))
2251− <|> (return (return (B.str "\8220")))
2220+ many1Till inline doubleQuoteEnd
22522221
22532222toRow :: [Blocks] -> Row
22542223toRow = Row nullAttr . map B.simpleCell
22552224
22562225toHeaderRow :: [Blocks] -> [Row]
2257−toHeaderRow l = [toRow l | not (null l) && not (all null l)]
2226+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+15−22
@@ -35,9 +35,9 @@ import qualified Data.Text.Lazy as TL
3535import qualified Text.Pandoc.UTF8 as UTF8
3636
3737yamlBsToMeta :: (PandocMonad m, HasLastStrPosition st)
38− => ParserT Sources st m (Future st MetaValue)
38+ => ParserT Text st m (Future st MetaValue)
3939 -> BL.ByteString
40− -> ParserT Sources st m (Future st Meta)
40+ -> ParserT Text st m (Future st Meta)
4141yamlBsToMeta pMetaValue bstr = do
4242 case YAML.decodeNode' YAML.failsafeSchemaResolver False False bstr of
4343 Right (YAML.Doc (YAML.Mapping _ _ o):_)
@@ -45,9 +45,6 @@ yamlBsToMeta pMetaValue bstr = do
4545 Right [] -> return . return $ mempty
4646 Right [YAML.Doc (YAML.Scalar _ YAML.SNull)]
4747 -> 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
5148 Right _ -> Prelude.fail "expected YAML object"
5249 Left (yamlpos, err')
5350 -> do pos <- getPosition
@@ -70,10 +67,10 @@ lookupYAML _ _ = Nothing
7067
7168-- Returns filtered list of references.
7269yamlBsToRefs :: (PandocMonad m, HasLastStrPosition st)
73− => ParserT Sources st m (Future st MetaValue)
70+ => ParserT Text st m (Future st MetaValue)
7471 -> (Text -> Bool) -- ^ Filter for id
7572 -> BL.ByteString
76− -> ParserT Sources st m (Future st [MetaValue])
73+ -> ParserT Text st m (Future st [MetaValue])
7774yamlBsToRefs pMetaValue idpred bstr =
7875 case YAML.decodeNode' YAML.failsafeSchemaResolver False False bstr of
7976 Right (YAML.Doc o@YAML.Mapping{}:_)
@@ -101,12 +98,8 @@ yamlBsToRefs pMetaValue idpred bstr =
10198 Right [YAML.Doc (YAML.Scalar _ YAML.SNull)]
10299 -> return . return $ mempty
103100 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'
101+ Left (_pos, err')
102+ -> Prelude.fail err'
110103
111104
112105nodeToKey :: YAML.Node YE.Pos -> Maybe Text
@@ -115,9 +108,9 @@ nodeToKey (YAML.Scalar _ (YAML.SUnknown _ t)) = Just t
115108nodeToKey _ = Nothing
116109
117110normalizeMetaValue :: (PandocMonad m, HasLastStrPosition st)
118− => ParserT Sources st m (Future st MetaValue)
111+ => ParserT Text st m (Future st MetaValue)
119112 -> Text
120− -> ParserT Sources st m (Future st MetaValue)
113+ -> ParserT Text st m (Future st MetaValue)
121114normalizeMetaValue pMetaValue x =
122115 -- Note: a standard quoted or unquoted YAML value will
123116 -- not end in a newline, but a "block" set off with
@@ -140,9 +133,9 @@ checkBoolean t
140133 | otherwise = Nothing
141134
142135yamlToMetaValue :: (PandocMonad m, HasLastStrPosition st)
143− => ParserT Sources st m (Future st MetaValue)
136+ => ParserT Text st m (Future st MetaValue)
144137 -> YAML.Node YE.Pos
145− -> ParserT Sources st m (Future st MetaValue)
138+ -> ParserT Text st m (Future st MetaValue)
146139yamlToMetaValue pMetaValue (YAML.Scalar _ x) =
147140 case x of
148141 YAML.SStr t -> normalizeMetaValue pMetaValue t
@@ -163,9 +156,9 @@ yamlToMetaValue pMetaValue (YAML.Mapping _ _ o) =
163156yamlToMetaValue _ _ = return $ return $ MetaString ""
164157
165158yamlMap :: (PandocMonad m, HasLastStrPosition st)
166− => ParserT Sources st m (Future st MetaValue)
159+ => ParserT Text st m (Future st MetaValue)
167160 -> M.Map (YAML.Node YE.Pos) (YAML.Node YE.Pos)
168− -> ParserT Sources st m (Future st (M.Map Text MetaValue))
161+ -> ParserT Text st m (Future st (M.Map Text MetaValue))
169162yamlMap pMetaValue o = do
170163 kvs <- forM (M.toList o) $ \(key, v) -> do
171164 k <- maybe (throwError $ PandocParseError
@@ -184,8 +177,8 @@ yamlMap pMetaValue o = do
184177
185178-- | Parse a YAML metadata block using the supplied 'MetaValue' parser.
186179yamlMetaBlock :: (HasLastStrPosition st, PandocMonad m)
187− => ParserT Sources st m (Future st MetaValue)
188− -> ParserT Sources st m (Future st Meta)
180+ => ParserT Text st m (Future st MetaValue)
181+ -> ParserT Text st m (Future st Meta)
189182yamlMetaBlock parser = try $ do
190183 string "---"
191184 blankline
@@ -196,5 +189,5 @@ yamlMetaBlock parser = try $ do
196189 optional blanklines
197190 yamlBsToMeta parser $ UTF8.fromTextLazy $ TL.fromStrict rawYaml
198191
199−stopLine :: Monad m => ParserT Sources st m ()
192+stopLine :: Monad m => ParserT Text st m ()
200193stopLine = try $ (string "---" <|> string "...") >> blankline >> return ()
src/Text/Pandoc/Readers/Muse.hs+8−9
@@ -37,19 +37,18 @@ import Text.Pandoc.Error (PandocError (PandocParsecError))
3737import Text.Pandoc.Logging
3838import Text.Pandoc.Options
3939import Text.Pandoc.Parsing
40−import Text.Pandoc.Shared (trimr, tshow)
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+6−5
@@ -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)
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+3−3
@@ -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,7 +100,6 @@ module Text.Pandoc.Readers.Org.Parsing
99100 , getState
100101 , updateState
101102 , SourcePos
102− , sourceName
103103 , getPosition
104104 ) where
105105
@@ -114,7 +114,7 @@ import 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/Shared.hs−1
@@ -298,7 +298,6 @@ tabFilter tabStop = T.unlines . map go . T.lines
298298 (tabStop - (T.length s1 `mod` tabStop)) (T.pack " ")
299299 <> go (T.drop 1 s2)
300300
301−{-# DEPRECATED crFilter "readers filter crs automatically" #-}
302301-- | Strip out DOS line endings.
303302crFilter :: T.Text -> T.Text
304303crFilter = T.filter (/= '\r')
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/ConTeXt.hs+16−16
@@ -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 UnicodeCollation.Lang (Lang(..))
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
@@ -479,7 +483,7 @@ inlineToConTeXt (Note contents) = do
479483 then literal "\\footnote{" <> nest 2 (chomp contents') <> char '}'
480484 else literal "\\startbuffer " <> nest 2 (chomp contents') <>
481485 literal "\\stopbuffer\\footnote{\\getbuffer}"
482−inlineToConTeXt (Span (ident,_,kvs) ils) = do
486+inlineToConTeXt (Span (_,_,kvs) ils) = do
483487 mblang <- fromBCP47 (lookup "lang" kvs)
484488 let wrapDir txt = case lookup "dir" kvs of
485489 Just "rtl" -> braces $ "\\righttoleft " <> txt
@@ -489,11 +493,7 @@ inlineToConTeXt (Span (ident,_,kvs) ils) = do
489493 Just lng -> braces ("\\language" <>
490494 brackets (literal lng) <> txt)
491495 Nothing -> txt
492− addReference =
493− if T.null ident
494− then id
495− else (("\\reference" <> brackets (literal ident) <> "{}") <>)
496− addReference . wrapLang . wrapDir <$> inlineListToConTeXt ils
496+ wrapLang . wrapDir <$> inlineListToConTeXt ils
497497
498498-- | Craft the section header, inserting the section reference, if supplied.
499499sectionHeader :: PandocMonad m
src/Text/Pandoc/Writers/Docbook.hs+6−6
@@ -198,7 +198,8 @@ blockToDocbook opts (Div (id',"section":_,_) (Header lvl (_,_,attrs) ils : xs))
198198blockToDocbook opts (Div (ident,classes,_) bs) = do
199199 version <- ask
200200 let identAttribs = [(idName version, ident) | not (T.null ident)]
201− admonitions = ["caution","danger","important","note","tip","warning"]
201+ admonitions = ["attention","caution","danger","error","hint",
202+ "important","note","tip","warning"]
202203 case classes of
203204 (l:_) | l `elem` admonitions -> do
204205 let (mTitleBs, bodyBs) =
@@ -252,18 +253,17 @@ blockToDocbook opts (LineBlock lns) =
252253 blockToDocbook opts $ linesToPara lns
253254blockToDocbook opts (BlockQuote blocks) =
254255 inTagsIndented "blockquote" <$> blocksToDocbook opts blocks
255−blockToDocbook opts (CodeBlock (_,classes,_) str) = return $
256+blockToDocbook _ (CodeBlock (_,classes,_) str) = return $
256257 literal ("<programlisting" <> lang <> ">") <> cr <>
257258 flush (literal (escapeStringForXML str) <> cr <> literal "</programlisting>")
258259 where lang = if null langs
259260 then ""
260261 else " language=\"" <> escapeStringForXML (head langs) <>
261262 "\""
262− syntaxMap = writerSyntaxMap opts
263− isLang l = T.toLower l `elem` map T.toLower (languages syntaxMap)
263+ isLang l = T.toLower l `elem` map T.toLower languages
264264 langsFrom s = if isLang s
265265 then [s]
266− else (languagesByExtension syntaxMap) . T.toLower $ s
266+ else languagesByExtension . T.toLower $ s
267267 langs = concatMap langsFrom classes
268268blockToDocbook opts (BulletList lst) = do
269269 let attribs = [("spacing", "compact") | isTightList lst]
@@ -493,4 +493,4 @@ isSectionAttr DocBook4 ("os",_) = True
493493isSectionAttr DocBook4 ("revision",_) = True
494494isSectionAttr DocBook4 ("security",_) = True
495495isSectionAttr DocBook4 ("vendor",_) = True
496−isSectionAttr _ (_,_) = False
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 UnicodeCollation.Lang (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/JATS.hs+21−39
@@ -21,13 +21,12 @@ module Text.Pandoc.Writers.JATS
2121 , writeJatsPublishing
2222 , writeJatsArticleAuthoring
2323 ) where
24−import Control.Applicative ((<|>))
2524import Control.Monad.Reader
2625import Control.Monad.State
2726import Data.Generics (everywhere, mkT)
2827import Data.List (partition)
2928import qualified Data.Map as M
30−import Data.Maybe (fromMaybe, listToMaybe)
29+import Data.Maybe (fromMaybe)
3130import Data.Time (toGregorian, Day, parseTimeM, defaultTimeLocale, formatTime)
3231import qualified Data.Text as T
3332import Data.Text (Text)
@@ -225,21 +224,19 @@ imageMimeType src kvs =
225224 (T.drop 1 . T.dropWhile (/='/') <$> mbMT)
226225 in (maintype, subtype)
227226
228−languageFor :: WriterOptions -> [Text] -> Text
229−languageFor opts classes =
227+languageFor :: [Text] -> Text
228+languageFor classes =
230229 case langs of
231230 (l:_) -> escapeStringForXML l
232231 [] -> ""
233− where
234− syntaxMap = writerSyntaxMap opts
235− isLang l = T.toLower l `elem` map T.toLower (languages syntaxMap)
232+ where isLang l = T.toLower l `elem` map T.toLower languages
236233 langsFrom s = if isLang s
237234 then [s]
238− else (languagesByExtension syntaxMap) . T.toLower $ s
235+ else languagesByExtension . T.toLower $ s
239236 langs = concatMap langsFrom classes
240237
241−codeAttr :: WriterOptions -> Attr -> (Text, [(Text, Text)])
242−codeAttr opts (ident,classes,kvs) = (lang, attr)
238+codeAttr :: Attr -> (Text, [(Text, Text)])
239+codeAttr (ident,classes,kvs) = (lang, attr)
243240 where
244241 attr = [("id", escapeNCName ident) | not (T.null ident)] ++
245242 [("language",lang) | not (T.null lang)] ++
@@ -247,7 +244,7 @@ codeAttr opts (ident,classes,kvs) = (lang, attr)
247244 "code-version", "executable",
248245 "language-version", "orientation",
249246 "platforms", "position", "specific-use"]]
250− lang = languageFor opts classes
247+ lang = languageFor classes
251248
252249-- | Convert a Pandoc block element to JATS.
253250blockToJATS :: PandocMonad m => WriterOptions -> Block -> JATS m (Doc Text)
@@ -333,9 +330,9 @@ blockToJATS opts (BlockQuote blocks) = do
333330 HorizontalRule -> True
334331 _ -> False
335332 inTagsIndented "disp-quote" <$> wrappedBlocksToJATS needsWrap opts blocks
336−blockToJATS opts (CodeBlock a str) = return $
333+blockToJATS _ (CodeBlock a str) = return $
337334 inTags False tag attr (flush (text (T.unpack $ escapeStringForXML str)))
338− where (lang, attr) = codeAttr opts a
335+ where (lang, attr) = codeAttr a
339336 tag = if T.null lang then "preformat" else "code"
340337blockToJATS _ (BulletList []) = return empty
341338blockToJATS opts (BulletList lst) =
@@ -415,9 +412,9 @@ inlineToJATS opts (Quoted SingleQuote lst) = do
415412inlineToJATS opts (Quoted DoubleQuote lst) = do
416413 contents <- inlinesToJATS opts lst
417414 return $ char '“' <> contents <> char '”'
418−inlineToJATS opts (Code a str) =
415+inlineToJATS _ (Code a str) =
419416 return $ inTags False tag attr $ literal (escapeStringForXML str)
420− where (lang, attr) = codeAttr opts a
417+ where (lang, attr) = codeAttr a
421418 tag = if T.null lang then "monospace" else "code"
422419inlineToJATS _ il@(RawInline f x)
423420 | f == "jats" = return $ literal x
@@ -450,33 +447,18 @@ inlineToJATS opts (Note contents) = do
450447 $ text (show notenum)
451448inlineToJATS opts (Cite _ lst) =
452449 inlinesToJATS opts lst
453−inlineToJATS opts (Span (ident,classes,kvs) ils) = do
450+inlineToJATS opts (Span (ident,_,kvs) ils) = do
454451 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
452+ let attr = [("id", escapeNCName ident) | not (T.null ident)] ++
453+ [("xml:lang",l) | ("lang",l) <- kvs] ++
454+ [(k,v) | (k,v) <- kvs
455+ , k `elem` ["alt", "content-type", "rid", "specific-use",
456+ "vocab", "vocab-identifier", "vocab-term",
457+ "vocab-term-identifier"]]
476458 return $
477459 if null attr
478− then contents
479− else inTags False tag attr contents
460+ then contents -- unwrap if no relevant attributes are given
461+ else inTags False "named-content" attr contents
480462inlineToJATS _ (Math t str) = do
481463 let addPref (Xml.Attr q v)
482464 | Xml.qName q == "xmlns" = Xml.Attr q{ Xml.qName = "xmlns:mml" } v
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+9−14
@@ -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 UnicodeCollation.Lang (Lang (..), 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
@@ -894,9 +888,8 @@ inlineToLaTeX (Quoted qt lst) = do
894888 then char '`' <> inner <> char '\''
895889 else char '\x2018' <> inner <> char '\x2019'
896890 where
897− isQuoted (Span _ (x:_)) = isQuoted x
898− isQuoted (Quoted _ _) = True
899− isQuoted _ = False
891+ isQuoted (Quoted _ _) = True
892+ isQuoted _ = False
900893inlineToLaTeX (Str str) = do
901894 setEmptyLine False
902895 liftM literal $ stringToLaTeX TextString str
@@ -919,7 +912,7 @@ inlineToLaTeX il@(RawInline f str) = do
919912inlineToLaTeX LineBreak = do
920913 emptyLine <- gets stEmptyLine
921914 setEmptyLine True
922− return $ (if emptyLine then "\\strut " else "") <> "\\\\" <> cr
915+ return $ (if emptyLine then "~" else "") <> "\\\\" <> cr
923916inlineToLaTeX SoftBreak = do
924917 wrapText <- gets (writerWrapText . stOptions)
925918 case wrapText of
@@ -1050,3 +1043,5 @@ extractInline _ _ = []
10501043-- Look up a key in an attribute and give a list of its values
10511044lookKey :: Text -> Attr -> [Text]
10521045lookKey key (_,_,kvs) = maybe [] T.words $ lookup key kvs
1046+
1047+
src/Text/Pandoc/Writers/LaTeX/Lang.hs+1−1
@@ -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 UnicodeCollation.Lang (Lang(..))
1919
2020
2121-- In environments \Arabic instead of \arabic is used
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−26
@@ -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(..),
@@ -75,6 +75,7 @@ writeCommonMark opts document =
7575 -- we set them here so that escapeText will behave
7676 -- properly.
7777 enableExtension Ext_all_symbols_escapable $
78+ enableExtension Ext_pipe_tables $
7879 enableExtension Ext_intraword_underscores $
7980 writerExtensions opts }
8081
@@ -141,17 +142,18 @@ valToYaml (SimpleVal x)
141142 | otherwise =
142143 if hasNewlines x
143144 then hang 0 ("|" <> cr) x
144− else if isNothing $ foldM needsDoubleQuotes True x
145+ else if fst $ foldr needsDoubleQuotes (False, True) x
145146 then "\"" <> fmap escapeInDoubleQuotes x <> "\""
146147 else x
147148 where
148− needsDoubleQuotes isFirst t
149+ needsDoubleQuotes t (positive, isFirst)
149150 = if T.any isBadAnywhere t ||
150151 (isFirst && T.any isYamlPunct (T.take 1 t))
151− then Nothing
152− else Just False
152+ then (True, False)
153+ else (positive, False)
153154 isBadAnywhere '#' = True
154155 isBadAnywhere ':' = True
156+ isBadAnywhere '`' = False
155157 isBadAnywhere _ = False
156158 hasNewlines NewLine = True
157159 hasNewlines BlankLines{} = True
@@ -256,11 +258,32 @@ noteToMarkdown opts num blocks = do
256258 then hang (writerTabStop opts) (marker <> spacer) contents
257259 else marker <> spacer <> contents
258260
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
261+attrsToMarkdown :: Attr -> Doc Text
262+attrsToMarkdown attribs = braces $ hsep [attribId, attribClasses, attribKeys]
263+ where attribId = case attribs of
264+ ("",_,_) -> empty
265+ (i,_,_) -> "#" <> escAttr i
266+ attribClasses = case attribs of
267+ (_,[],_) -> empty
268+ (_,cs,_) -> hsep $
269+ map (escAttr . ("."<>))
270+ cs
271+ attribKeys = case attribs of
272+ (_,_,[]) -> empty
273+ (_,_,ks) -> hsep $
274+ map (\(k,v) -> escAttr k
275+ <> "=\"" <>
276+ escAttr v <> "\"") ks
277+ escAttr = mconcat . map escAttrChar . T.unpack
278+ escAttrChar '"' = literal "\\\""
279+ escAttrChar '\\' = literal "\\\\"
280+ escAttrChar c = literal $ T.singleton c
281+
282+linkAttributes :: WriterOptions -> Attr -> Doc Text
283+linkAttributes opts attr =
284+ if isEnabled Ext_link_attributes opts && attr /= nullAttr
285+ then attrsToMarkdown attr
286+ else empty
264287
265288-- | Ordered list start parser for use in Para below.
266289olMarker :: Parser Text ParserState ()
@@ -321,12 +344,9 @@ blockToMarkdown' opts (Div attrs ils) = do
321344 case () of
322345 _ | isEnabled Ext_fenced_divs opts &&
323346 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
347+ nowrap (literal ":::" <+> attrsToMarkdown attrs) $$
348+ chomp contents $$
349+ literal ":::" <> blankline
330350 | isEnabled Ext_native_divs opts ||
331351 (isEnabled Ext_raw_html opts &&
332352 (variant == Commonmark ||
@@ -368,7 +388,7 @@ blockToMarkdown' opts (Plain inlines) = do
368388-- title beginning with fig: indicates figure
369389blockToMarkdown' opts (Para [Image attr alt (src,tgt@(T.stripPrefix "fig:" -> Just tit))])
370390 | isEnabled Ext_raw_html opts &&
371− not (isEnabled Ext_link_attributes opts || isEnabled Ext_attributes opts) &&
391+ not (isEnabled Ext_link_attributes opts) &&
372392 attr /= nullAttr = -- use raw HTML
373393 (<> blankline) . literal . T.strip <$>
374394 writeHtml5String opts{ writerTemplate = Nothing }
@@ -433,8 +453,7 @@ blockToMarkdown' opts (Header level attr inlines) = do
433453 && id' == autoId -> empty
434454 (id',_,_) | isEnabled Ext_mmd_header_identifiers opts ->
435455 space <> brackets (literal id')
436− _ | isEnabled Ext_header_attributes opts ||
437− isEnabled Ext_attributes opts ->
456+ _ | isEnabled Ext_header_attributes opts ->
438457 space <> attrsToMarkdown attr
439458 | otherwise -> empty
440459 contents <- inlineListToMarkdown opts $
@@ -493,9 +512,8 @@ blockToMarkdown' opts (CodeBlock attribs str) = do
493512 endline c = literal $ T.replicate (endlineLen c) $ T.singleton c
494513 backticks = endline '`'
495514 tildes = endline '~'
496− attrs = if isEnabled Ext_fenced_code_attributes opts ||
497− isEnabled Ext_attributes opts
498− then nowrap $ " " <> classOrAttrsToMarkdown attribs
515+ attrs = if isEnabled Ext_fenced_code_attributes opts
516+ then nowrap $ " " <> attrsToMarkdown attribs
499517 else case attribs of
500518 (_,cls:_,_) -> " " <> literal cls
501519 _ -> empty
@@ -791,9 +809,6 @@ blockListToMarkdown opts blocks = do
791809 b1 : commentSep : fixBlocks (b2:bs)
792810 fixBlocks (Plain ils : bs@(RawBlock{}:_)) =
793811 Plain ils : fixBlocks bs
794− fixBlocks (Plain ils : bs@(Div{}:_))
795− | isEnabled Ext_fenced_divs opts =
796− Para ils : fixBlocks bs
797812 fixBlocks (Plain ils : bs) | inlist =
798813 Plain ils : fixBlocks bs
799814 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+1−1
@@ -24,7 +24,7 @@ import qualified Data.Text as T
2424import qualified Data.Text.Lazy as TL
2525import Data.Time
2626import System.FilePath (takeDirectory, takeExtension, (<.>))
27−import Text.Collate.Lang (Lang (..), renderLang)
27+import UnicodeCollation.Lang (Lang (..), renderLang)
2828import Text.Pandoc.Class.PandocMonad (PandocMonad, report, toLang)
2929import qualified Text.Pandoc.Class.PandocMonad as P
3030import Text.Pandoc.Definition
src/Text/Pandoc/Writers/OpenDocument.hs+52−48
@@ -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 UnicodeCollation.Lang (Lang (..), parseLang)
3029import Text.Pandoc.Class.PandocMonad (PandocMonad, report, translateTerm,
3130 setTranslations, toLang)
3231import Text.Pandoc.Definition
@@ -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,26 +874,27 @@ 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+ maybe id (Map.insert "fo:country") (langRegion lang) $ m
897+ | otherwise = m
894898
895899withLangFromAttr :: PandocMonad m => Attr -> OD m a -> OD m a
896900withLangFromAttr (_,_,kvs) action =
src/Text/Pandoc/Writers/Org.hs−2
@@ -407,8 +407,6 @@ inlineToOrg (Math t str) = do
407407 then "\\(" <> literal str <> "\\)"
408408 else "\\[" <> literal str <> "\\]"
409409inlineToOrg il@(RawInline f str)
410− | elem f ["tex", "latex"] && T.isPrefixOf "\\begin" str =
411− return $ cr <> literal str <> cr
412410 | isRawFormat f = return $ literal str
413411 | otherwise = do
414412 report $ InlineNotRendered il
src/Text/Pandoc/Writers/Powerpoint/Output.hs−1
@@ -537,7 +537,6 @@ registerMedia fp caption = do
537537 Just Eps -> Just ".eps"
538538 Just Svg -> Just ".svg"
539539 Just Emf -> Just ".emf"
540− Just Tiff -> Just ".tiff"
541540 Nothing -> Nothing
542541
543542 let newGlobalId = fromMaybe (maxGlobalId + 1) (M.lookup fp globalIds)
src/Text/Pandoc/Writers/Shared.hs−1
@@ -394,7 +394,6 @@ toSuperscript '2' = Just '\x00B2'
394394toSuperscript '3' = Just '\x00B3'
395395toSuperscript '+' = Just '\x207A'
396396toSuperscript '-' = Just '\x207B'
397−toSuperscript '\x2212' = Just '\x207B' -- unicode minus
398397toSuperscript '=' = Just '\x207C'
399398toSuperscript '(' = Just '\x207D'
400399toSuperscript ')' = 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/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/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+14−8
@@ -7,16 +7,22 @@ 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
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.1
14+- skylighting-0.10.5.1
15+- doclayout-0.3.0.2
16+- texmath-0.12.2
17+- random-1.2.0
18+- xml-conduit-1.9.1.1
19+# - citeproc-0.3.0.9
1620- git: https://github.com/jgm/citeproc
17− commit: 4ce0501cd6f9c86eee087afcf878c256e49b9615
21+ commit: b42857be658b8f2649e989e061978e304986f853
22+- git: https://github.com/jgm/unicode-collation
23+ commit: 9d229a5c6bcbaf53d7022575234eb223cfa90d55
1824ghc-options:
1925 "$locals": -fhide-source-paths -Wno-missing-home-modules
20−resolver: lts-18.0
26+resolver: lts-17.5
2127nix:
2228 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/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−6
@@ -83,32 +83,32 @@ tests = [ testGroup "line blocks"
8383 , "</warning>"
8484 ]
8585 , "admonition-with-title" =:
86− divWith ("foo", ["note"], []) (
86+ divWith ("foo", ["attention"], []) (
8787 divWith ("foo", ["title"], [])
8888 (plain (text "This is title")) <>
8989 para "This is a test"
9090 )
9191 =?> unlines
92− [ "<note id=\"foo\">"
92+ [ "<attention id=\"foo\">"
9393 , " <title>This is title</title>"
9494 , " <para>"
9595 , " This is a test"
9696 , " </para>"
97− , "</note>"
97+ , "</attention>"
9898 ]
9999 , "admonition-with-title-in-para" =:
100− divWith ("foo", ["note"], []) (
100+ divWith ("foo", ["attention"], []) (
101101 divWith ("foo", ["title"], [])
102102 (para "This is title") <>
103103 para "This is a test"
104104 )
105105 =?> unlines
106− [ "<note id=\"foo\">"
106+ [ "<attention id=\"foo\">"
107107 , " <title>This is title</title>"
108108 , " <para>"
109109 , " This is a test"
110110 , " </para>"
111− , "</note>"
111+ , "</attention>"
112112 ]
113113 , "single-child" =:
114114 divWith ("foo", [], []) (para "This is a test")
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+5−9
@@ -148,17 +148,13 @@ tests =
148148 spanWith nullAttr "text in span" =?>
149149 "<p>text in span</p>"
150150
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>")
151+ , "converted to named-content element" =:
152+ spanWith ("a", ["ignored"], [("alt", "aa")]) "text" =?>
153+ "<p><named-content id=\"a\" alt=\"aa\">text</named-content></p>"
155154
156− , "unwrapped if styled-content element would have no attributes" =:
157− spanWith ("", [], [("hidden", "true")]) "text in span" =?>
155+ , "unwrapped if named-content element would have no attributes" =:
156+ spanWith ("", ["ignored"], [("hidden", "true")]) "text in span" =?>
158157 "<p>text in span</p>"
159158
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>"
163159 ]
164160 ]
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/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/7208.md+1−1
@@ -2,5 +2,5 @@
22% pandoc -t gfm
33\<hi\>
44^D
5−\<hi>
5+\<hi\>
66```
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.md+1−1
@@ -108,7 +108,7 @@ Ubina, A. J. (1985).
108108% pandoc -C -t plain
109109---
110110nocite: '@*'
111−lang: fr-FR-u-kb-true
111+lang: fr
112112references:
113113- id: cote
114114 author: cote
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/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.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.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