From 53c96917a94358ab7010a0687837bc53b04df036 Mon Sep 17 00:00:00 2001 From: dickmao Date: Mon, 14 Oct 2024 17:30:53 -0400 Subject: [PATCH] gitawonk --- .github/workflows/test.yml | 120 ++ .gitignore | 13 + Cask | 12 + LICENSE | 674 ++++++++++ Makefile | 117 ++ README.in.rst | 71 + README.rst | 70 + features/rpc.feature | 16 + .../step-definitions/nndiscourse-steps.el | 79 ++ features/support/env.el | 114 ++ nndiscourse.el | 1181 +++++++++++++++++ nndiscourse/.gitignore | 10 + nndiscourse/.rubocop.yml | 13 + nndiscourse/.ruby-version | 1 + nndiscourse/Gemfile | 9 + nndiscourse/Gemfile.lock | 98 ++ nndiscourse/Makefile | 11 + nndiscourse/README.md | 39 + nndiscourse/Rakefile | 16 + nndiscourse/lib/nndiscourse.rb | 35 + nndiscourse/lib/nndiscourse/version.rb | 5 + nndiscourse/nndiscourse.gemspec | 27 + nndiscourse/nndiscourse.thor | 13 + nndiscourse/spec/nndiscourse_spec.rb | 13 + nndiscourse/spec/spec_helper.rb | 16 + scratch.el | 576 ++++++++ screenshot.png | Bin 0 -> 79292 bytes tests/nndiscourse-test.el | 59 + tests/recordings/install | 218 +++ tests/test-uncacheable.el | 7 + tools/package-lint.sh | 21 + tools/readme-sed.sh | 17 + tools/recipe | 3 + 33 files changed, 3674 insertions(+) create mode 100644 .github/workflows/test.yml create mode 100644 .gitignore create mode 100644 Cask create mode 100644 LICENSE create mode 100644 Makefile create mode 100644 README.in.rst create mode 100644 README.rst create mode 100644 features/rpc.feature create mode 100644 features/step-definitions/nndiscourse-steps.el create mode 100644 features/support/env.el create mode 100644 nndiscourse.el create mode 100644 nndiscourse/.gitignore create mode 100644 nndiscourse/.rubocop.yml create mode 100644 nndiscourse/.ruby-version create mode 100644 nndiscourse/Gemfile create mode 100644 nndiscourse/Gemfile.lock create mode 100644 nndiscourse/Makefile create mode 100644 nndiscourse/README.md create mode 100644 nndiscourse/Rakefile create mode 100644 nndiscourse/lib/nndiscourse.rb create mode 100644 nndiscourse/lib/nndiscourse/version.rb create mode 100644 nndiscourse/nndiscourse.gemspec create mode 100644 nndiscourse/nndiscourse.thor create mode 100644 nndiscourse/spec/nndiscourse_spec.rb create mode 100644 nndiscourse/spec/spec_helper.rb create mode 100644 scratch.el create mode 100644 screenshot.png create mode 100644 tests/nndiscourse-test.el create mode 100644 tests/recordings/install create mode 100644 tests/test-uncacheable.el create mode 100644 tools/package-lint.sh create mode 100755 tools/readme-sed.sh create mode 100644 tools/recipe diff --git a/.github/workflows/test.yml b/.github/workflows/test.yml new file mode 100644 index 0000000..59940d1 --- /dev/null +++ b/.github/workflows/test.yml @@ -0,0 +1,120 @@ +name: CI + +on: + pull_request: + paths-ignore: + - '**.md' + - '**.rst' + push: + paths-ignore: + - '**.md' + - '**.rst' + branches-ignore: + - 'master' + - 'main' + +jobs: + build: + runs-on: ${{ matrix.os }} + strategy: + matrix: + os: [ubuntu-latest] + emacs_version: [27.2, 28.2, 29.2] + ruby_version: [2.6] + + steps: + - uses: actions/checkout@v2 + + - uses: ruby/setup-ruby@v1 + with: + ruby-version: ${{ matrix.ruby_version }} + + - uses: purcell/setup-emacs@master + with: + version: ${{ matrix.emacs_version }} + + - uses: actions/cache@v2 + id: cache-cask-packages + with: + path: .cask + key: cache-cask-packages-000 + + - uses: actions/cache@v2 + id: cache-cask-executable + with: + path: ~/.cask + key: cache-cask-executable-000 + + - uses: conao3/setup-cask@master + if: steps.cache-cask-executable.outputs.cache-hit != 'true' + with: + version: snapshot + + - name: paths + run: | + echo "$HOME/local/bin" >> $GITHUB_PATH + echo "$HOME/.cask/bin" >> $GITHUB_PATH + echo "$HOME/.local/bin" >> $GITHUB_PATH + echo "LD_LIBRARY_PATH=$HOME/.local/lib" >> $GITHUB_ENV + + - uses: actions/cache@v2 + if: startsWith(runner.os, 'Linux') + with: + path: ~/.cache/rubocop_cache + key: ${{ runner.os }}-rubocop + + - uses: actions/cache@v2 + if: startsWith(runner.os, 'macOS') + with: + path: ~/Library/Caches/rubocop_cache + key: ${{ runner.os }}-rubocop + + - uses: actions/cache@v2 + with: + path: ~/local + key: ${{ runner.os }}-local-000 + + - uses: actions/cache@v2 + with: + path: ~/.emacs.d + key: emacs.d + + - uses: actions/cache@v2 + with: + path: ~/.cask + key: cask-000 + + - uses: actions/cache@v2 + with: + path: nndiscourse/vendor/bundle + key: ${{ runner.os }}-gems-${{ hashFiles('**/Gemfile.lock') }} + restore-keys: | + ${{ runner.os }}-gems- + + - name: bundler + run: | + gem install --user-install bundler:2.0.2 + + - name: apt-get + if: startsWith(runner.os, 'Linux') + run: | + sudo apt-get -yq update + DEBIAN_FRONTEND=noninteractive sudo apt-get -yq install gnutls-bin sharutils gnupg2 dirmngr libreadline-dev libcurl4-openssl-dev + + - name: gnupg + if: startsWith(runner.os, 'macOS') + run: brew list gnupg &>/dev/null || HOMEBREW_NO_AUTO_UPDATE=1 brew install gnupg + + - name: versions + run: | + ruby --version + rake --version + bundle --version + curl --version + emacs --version + gpg --version + + - name: test + run: | + make test-run + make test diff --git a/.gitignore b/.gitignore new file mode 100644 index 0000000..3ff6ee3 --- /dev/null +++ b/.gitignore @@ -0,0 +1,13 @@ +*.elc +.cask +nndiscourse-autoloads.el +.rspec +bin/ +vendor/ +nndiscourse*.gem +dist/ +.bundle +tests/Mail +tests/News +tests/.newsrc +.ecukes* diff --git a/Cask b/Cask new file mode 100644 index 0000000..b0f6706 --- /dev/null +++ b/Cask @@ -0,0 +1,12 @@ +(source gnu) +(source melpa) + +(package-file "nndiscourse.el") +(files "nndiscourse.el" ("nndiscourse" "nndiscourse/.ruby-version" "nndiscourse/Gemfile" "nndiscourse/Gemfile.lock" "nndiscourse/nndiscourse.gemspec" "nndiscourse/nndiscourse.thor" "nndiscourse/lib")) + +(development + (depends-on "ert-runner") + (depends-on "package-lint") + (depends-on "json-rpc") + (depends-on "rbenv") + (depends-on "ecukes")) diff --git a/LICENSE b/LICENSE new file mode 100644 index 0000000..f288702 --- /dev/null +++ b/LICENSE @@ -0,0 +1,674 @@ + GNU GENERAL PUBLIC LICENSE + Version 3, 29 June 2007 + + Copyright (C) 2007 Free Software Foundation, Inc. + Everyone is permitted to copy and distribute verbatim copies + of this license document, but changing it is not allowed. + + Preamble + + The GNU General Public License is a free, copyleft license for +software and other kinds of works. + + The licenses for most software and other practical works are designed +to take away your freedom to share and change the works. By contrast, +the GNU General Public License is intended to guarantee your freedom to +share and change all versions of a program--to make sure it remains free +software for all its users. We, the Free Software Foundation, use the +GNU General Public License for most of our software; it applies also to +any other work released this way by its authors. You can apply it to +your programs, too. + + When we speak of free software, we are referring to freedom, not +price. Our General Public Licenses are designed to make sure that you +have the freedom to distribute copies of free software (and charge for +them if you wish), that you receive source code or can get it if you +want it, that you can change the software or use pieces of it in new +free programs, and that you know you can do these things. + + To protect your rights, we need to prevent others from denying you +these rights or asking you to surrender the rights. Therefore, you have +certain responsibilities if you distribute copies of the software, or if +you modify it: responsibilities to respect the freedom of others. + + For example, if you distribute copies of such a program, whether +gratis or for a fee, you must pass on to the recipients the same +freedoms that you received. You must make sure that they, too, receive +or can get the source code. And you must show them these terms so they +know their rights. + + Developers that use the GNU GPL protect your rights with two steps: +(1) assert copyright on the software, and (2) offer you this License +giving you legal permission to copy, distribute and/or modify it. + + For the developers' and authors' protection, the GPL clearly explains +that there is no warranty for this free software. For both users' and +authors' sake, the GPL requires that modified versions be marked as +changed, so that their problems will not be attributed erroneously to +authors of previous versions. + + Some devices are designed to deny users access to install or run +modified versions of the software inside them, although the manufacturer +can do so. This is fundamentally incompatible with the aim of +protecting users' freedom to change the software. The systematic +pattern of such abuse occurs in the area of products for individuals to +use, which is precisely where it is most unacceptable. Therefore, we +have designed this version of the GPL to prohibit the practice for those +products. If such problems arise substantially in other domains, we +stand ready to extend this provision to those domains in future versions +of the GPL, as needed to protect the freedom of users. + + Finally, every program is threatened constantly by software patents. +States should not allow patents to restrict development and use of +software on general-purpose computers, but in those that do, we wish to +avoid the special danger that patents applied to a free program could +make it effectively proprietary. To prevent this, the GPL assures that +patents cannot be used to render the program non-free. + + The precise terms and conditions for copying, distribution and +modification follow. + + TERMS AND CONDITIONS + + 0. Definitions. + + "This License" refers to version 3 of the GNU General Public License. + + "Copyright" also means copyright-like laws that apply to other kinds of +works, such as semiconductor masks. + + "The Program" refers to any copyrightable work licensed under this +License. Each licensee is addressed as "you". "Licensees" and +"recipients" may be individuals or organizations. + + To "modify" a work means to copy from or adapt all or part of the work +in a fashion requiring copyright permission, other than the making of an +exact copy. The resulting work is called a "modified version" of the +earlier work or a work "based on" the earlier work. + + A "covered work" means either the unmodified Program or a work based +on the Program. + + To "propagate" a work means to do anything with it that, without +permission, would make you directly or secondarily liable for +infringement under applicable copyright law, except executing it on a +computer or modifying a private copy. Propagation includes copying, +distribution (with or without modification), making available to the +public, and in some countries other activities as well. + + To "convey" a work means any kind of propagation that enables other +parties to make or receive copies. Mere interaction with a user through +a computer network, with no transfer of a copy, is not conveying. + + An interactive user interface displays "Appropriate Legal Notices" +to the extent that it includes a convenient and prominently visible +feature that (1) displays an appropriate copyright notice, and (2) +tells the user that there is no warranty for the work (except to the +extent that warranties are provided), that licensees may convey the +work under this License, and how to view a copy of this License. If +the interface presents a list of user commands or options, such as a +menu, a prominent item in the list meets this criterion. + + 1. Source Code. + + The "source code" for a work means the preferred form of the work +for making modifications to it. "Object code" means any non-source +form of a work. + + A "Standard Interface" means an interface that either is an official +standard defined by a recognized standards body, or, in the case of +interfaces specified for a particular programming language, one that +is widely used among developers working in that language. + + The "System Libraries" of an executable work include anything, other +than the work as a whole, that (a) is included in the normal form of +packaging a Major Component, but which is not part of that Major +Component, and (b) serves only to enable use of the work with that +Major Component, or to implement a Standard Interface for which an +implementation is available to the public in source code form. A +"Major Component", in this context, means a major essential component +(kernel, window system, and so on) of the specific operating system +(if any) on which the executable work runs, or a compiler used to +produce the work, or an object code interpreter used to run it. + + The "Corresponding Source" for a work in object code form means all +the source code needed to generate, install, and (for an executable +work) run the object code and to modify the work, including scripts to +control those activities. However, it does not include the work's +System Libraries, or general-purpose tools or generally available free +programs which are used unmodified in performing those activities but +which are not part of the work. For example, Corresponding Source +includes interface definition files associated with source files for +the work, and the source code for shared libraries and dynamically +linked subprograms that the work is specifically designed to require, +such as by intimate data communication or control flow between those +subprograms and other parts of the work. + + The Corresponding Source need not include anything that users +can regenerate automatically from other parts of the Corresponding +Source. + + The Corresponding Source for a work in source code form is that +same work. + + 2. Basic Permissions. + + All rights granted under this License are granted for the term of +copyright on the Program, and are irrevocable provided the stated +conditions are met. This License explicitly affirms your unlimited +permission to run the unmodified Program. The output from running a +covered work is covered by this License only if the output, given its +content, constitutes a covered work. This License acknowledges your +rights of fair use or other equivalent, as provided by copyright law. + + You may make, run and propagate covered works that you do not +convey, without conditions so long as your license otherwise remains +in force. You may convey covered works to others for the sole purpose +of having them make modifications exclusively for you, or provide you +with facilities for running those works, provided that you comply with +the terms of this License in conveying all material for which you do +not control copyright. Those thus making or running the covered works +for you must do so exclusively on your behalf, under your direction +and control, on terms that prohibit them from making any copies of +your copyrighted material outside their relationship with you. + + Conveying under any other circumstances is permitted solely under +the conditions stated below. Sublicensing is not allowed; section 10 +makes it unnecessary. + + 3. Protecting Users' Legal Rights From Anti-Circumvention Law. + + No covered work shall be deemed part of an effective technological +measure under any applicable law fulfilling obligations under article +11 of the WIPO copyright treaty adopted on 20 December 1996, or +similar laws prohibiting or restricting circumvention of such +measures. + + When you convey a covered work, you waive any legal power to forbid +circumvention of technological measures to the extent such circumvention +is effected by exercising rights under this License with respect to +the covered work, and you disclaim any intention to limit operation or +modification of the work as a means of enforcing, against the work's +users, your or third parties' legal rights to forbid circumvention of +technological measures. + + 4. Conveying Verbatim Copies. + + You may convey verbatim copies of the Program's source code as you +receive it, in any medium, provided that you conspicuously and +appropriately publish on each copy an appropriate copyright notice; +keep intact all notices stating that this License and any +non-permissive terms added in accord with section 7 apply to the code; +keep intact all notices of the absence of any warranty; and give all +recipients a copy of this License along with the Program. + + You may charge any price or no price for each copy that you convey, +and you may offer support or warranty protection for a fee. + + 5. Conveying Modified Source Versions. + + You may convey a work based on the Program, or the modifications to +produce it from the Program, in the form of source code under the +terms of section 4, provided that you also meet all of these conditions: + + a) The work must carry prominent notices stating that you modified + it, and giving a relevant date. + + b) The work must carry prominent notices stating that it is + released under this License and any conditions added under section + 7. This requirement modifies the requirement in section 4 to + "keep intact all notices". + + c) You must license the entire work, as a whole, under this + License to anyone who comes into possession of a copy. This + License will therefore apply, along with any applicable section 7 + additional terms, to the whole of the work, and all its parts, + regardless of how they are packaged. This License gives no + permission to license the work in any other way, but it does not + invalidate such permission if you have separately received it. + + d) If the work has interactive user interfaces, each must display + Appropriate Legal Notices; however, if the Program has interactive + interfaces that do not display Appropriate Legal Notices, your + work need not make them do so. + + A compilation of a covered work with other separate and independent +works, which are not by their nature extensions of the covered work, +and which are not combined with it such as to form a larger program, +in or on a volume of a storage or distribution medium, is called an +"aggregate" if the compilation and its resulting copyright are not +used to limit the access or legal rights of the compilation's users +beyond what the individual works permit. Inclusion of a covered work +in an aggregate does not cause this License to apply to the other +parts of the aggregate. + + 6. Conveying Non-Source Forms. + + You may convey a covered work in object code form under the terms +of sections 4 and 5, provided that you also convey the +machine-readable Corresponding Source under the terms of this License, +in one of these ways: + + a) Convey the object code in, or embodied in, a physical product + (including a physical distribution medium), accompanied by the + Corresponding Source fixed on a durable physical medium + customarily used for software interchange. + + b) Convey the object code in, or embodied in, a physical product + (including a physical distribution medium), accompanied by a + written offer, valid for at least three years and valid for as + long as you offer spare parts or customer support for that product + model, to give anyone who possesses the object code either (1) a + copy of the Corresponding Source for all the software in the + product that is covered by this License, on a durable physical + medium customarily used for software interchange, for a price no + more than your reasonable cost of physically performing this + conveying of source, or (2) access to copy the + Corresponding Source from a network server at no charge. + + c) Convey individual copies of the object code with a copy of the + written offer to provide the Corresponding Source. This + alternative is allowed only occasionally and noncommercially, and + only if you received the object code with such an offer, in accord + with subsection 6b. + + d) Convey the object code by offering access from a designated + place (gratis or for a charge), and offer equivalent access to the + Corresponding Source in the same way through the same place at no + further charge. You need not require recipients to copy the + Corresponding Source along with the object code. If the place to + copy the object code is a network server, the Corresponding Source + may be on a different server (operated by you or a third party) + that supports equivalent copying facilities, provided you maintain + clear directions next to the object code saying where to find the + Corresponding Source. Regardless of what server hosts the + Corresponding Source, you remain obligated to ensure that it is + available for as long as needed to satisfy these requirements. + + e) Convey the object code using peer-to-peer transmission, provided + you inform other peers where the object code and Corresponding + Source of the work are being offered to the general public at no + charge under subsection 6d. + + A separable portion of the object code, whose source code is excluded +from the Corresponding Source as a System Library, need not be +included in conveying the object code work. + + A "User Product" is either (1) a "consumer product", which means any +tangible personal property which is normally used for personal, family, +or household purposes, or (2) anything designed or sold for incorporation +into a dwelling. In determining whether a product is a consumer product, +doubtful cases shall be resolved in favor of coverage. For a particular +product received by a particular user, "normally used" refers to a +typical or common use of that class of product, regardless of the status +of the particular user or of the way in which the particular user +actually uses, or expects or is expected to use, the product. A product +is a consumer product regardless of whether the product has substantial +commercial, industrial or non-consumer uses, unless such uses represent +the only significant mode of use of the product. + + "Installation Information" for a User Product means any methods, +procedures, authorization keys, or other information required to install +and execute modified versions of a covered work in that User Product from +a modified version of its Corresponding Source. The information must +suffice to ensure that the continued functioning of the modified object +code is in no case prevented or interfered with solely because +modification has been made. + + If you convey an object code work under this section in, or with, or +specifically for use in, a User Product, and the conveying occurs as +part of a transaction in which the right of possession and use of the +User Product is transferred to the recipient in perpetuity or for a +fixed term (regardless of how the transaction is characterized), the +Corresponding Source conveyed under this section must be accompanied +by the Installation Information. But this requirement does not apply +if neither you nor any third party retains the ability to install +modified object code on the User Product (for example, the work has +been installed in ROM). + + The requirement to provide Installation Information does not include a +requirement to continue to provide support service, warranty, or updates +for a work that has been modified or installed by the recipient, or for +the User Product in which it has been modified or installed. Access to a +network may be denied when the modification itself materially and +adversely affects the operation of the network or violates the rules and +protocols for communication across the network. + + Corresponding Source conveyed, and Installation Information provided, +in accord with this section must be in a format that is publicly +documented (and with an implementation available to the public in +source code form), and must require no special password or key for +unpacking, reading or copying. + + 7. Additional Terms. + + "Additional permissions" are terms that supplement the terms of this +License by making exceptions from one or more of its conditions. +Additional permissions that are applicable to the entire Program shall +be treated as though they were included in this License, to the extent +that they are valid under applicable law. If additional permissions +apply only to part of the Program, that part may be used separately +under those permissions, but the entire Program remains governed by +this License without regard to the additional permissions. + + When you convey a copy of a covered work, you may at your option +remove any additional permissions from that copy, or from any part of +it. (Additional permissions may be written to require their own +removal in certain cases when you modify the work.) You may place +additional permissions on material, added by you to a covered work, +for which you have or can give appropriate copyright permission. + + Notwithstanding any other provision of this License, for material you +add to a covered work, you may (if authorized by the copyright holders of +that material) supplement the terms of this License with terms: + + a) Disclaiming warranty or limiting liability differently from the + terms of sections 15 and 16 of this License; or + + b) Requiring preservation of specified reasonable legal notices or + author attributions in that material or in the Appropriate Legal + Notices displayed by works containing it; or + + c) Prohibiting misrepresentation of the origin of that material, or + requiring that modified versions of such material be marked in + reasonable ways as different from the original version; or + + d) Limiting the use for publicity purposes of names of licensors or + authors of the material; or + + e) Declining to grant rights under trademark law for use of some + trade names, trademarks, or service marks; or + + f) Requiring indemnification of licensors and authors of that + material by anyone who conveys the material (or modified versions of + it) with contractual assumptions of liability to the recipient, for + any liability that these contractual assumptions directly impose on + those licensors and authors. + + All other non-permissive additional terms are considered "further +restrictions" within the meaning of section 10. If the Program as you +received it, or any part of it, contains a notice stating that it is +governed by this License along with a term that is a further +restriction, you may remove that term. If a license document contains +a further restriction but permits relicensing or conveying under this +License, you may add to a covered work material governed by the terms +of that license document, provided that the further restriction does +not survive such relicensing or conveying. + + If you add terms to a covered work in accord with this section, you +must place, in the relevant source files, a statement of the +additional terms that apply to those files, or a notice indicating +where to find the applicable terms. + + Additional terms, permissive or non-permissive, may be stated in the +form of a separately written license, or stated as exceptions; +the above requirements apply either way. + + 8. Termination. + + You may not propagate or modify a covered work except as expressly +provided under this License. Any attempt otherwise to propagate or +modify it is void, and will automatically terminate your rights under +this License (including any patent licenses granted under the third +paragraph of section 11). + + However, if you cease all violation of this License, then your +license from a particular copyright holder is reinstated (a) +provisionally, unless and until the copyright holder explicitly and +finally terminates your license, and (b) permanently, if the copyright +holder fails to notify you of the violation by some reasonable means +prior to 60 days after the cessation. + + Moreover, your license from a particular copyright holder is +reinstated permanently if the copyright holder notifies you of the +violation by some reasonable means, this is the first time you have +received notice of violation of this License (for any work) from that +copyright holder, and you cure the violation prior to 30 days after +your receipt of the notice. + + Termination of your rights under this section does not terminate the +licenses of parties who have received copies or rights from you under +this License. If your rights have been terminated and not permanently +reinstated, you do not qualify to receive new licenses for the same +material under section 10. + + 9. Acceptance Not Required for Having Copies. + + You are not required to accept this License in order to receive or +run a copy of the Program. Ancillary propagation of a covered work +occurring solely as a consequence of using peer-to-peer transmission +to receive a copy likewise does not require acceptance. However, +nothing other than this License grants you permission to propagate or +modify any covered work. These actions infringe copyright if you do +not accept this License. Therefore, by modifying or propagating a +covered work, you indicate your acceptance of this License to do so. + + 10. Automatic Licensing of Downstream Recipients. + + Each time you convey a covered work, the recipient automatically +receives a license from the original licensors, to run, modify and +propagate that work, subject to this License. You are not responsible +for enforcing compliance by third parties with this License. + + An "entity transaction" is a transaction transferring control of an +organization, or substantially all assets of one, or subdividing an +organization, or merging organizations. If propagation of a covered +work results from an entity transaction, each party to that +transaction who receives a copy of the work also receives whatever +licenses to the work the party's predecessor in interest had or could +give under the previous paragraph, plus a right to possession of the +Corresponding Source of the work from the predecessor in interest, if +the predecessor has it or can get it with reasonable efforts. + + You may not impose any further restrictions on the exercise of the +rights granted or affirmed under this License. For example, you may +not impose a license fee, royalty, or other charge for exercise of +rights granted under this License, and you may not initiate litigation +(including a cross-claim or counterclaim in a lawsuit) alleging that +any patent claim is infringed by making, using, selling, offering for +sale, or importing the Program or any portion of it. + + 11. Patents. + + A "contributor" is a copyright holder who authorizes use under this +License of the Program or a work on which the Program is based. The +work thus licensed is called the contributor's "contributor version". + + A contributor's "essential patent claims" are all patent claims +owned or controlled by the contributor, whether already acquired or +hereafter acquired, that would be infringed by some manner, permitted +by this License, of making, using, or selling its contributor version, +but do not include claims that would be infringed only as a +consequence of further modification of the contributor version. For +purposes of this definition, "control" includes the right to grant +patent sublicenses in a manner consistent with the requirements of +this License. + + Each contributor grants you a non-exclusive, worldwide, royalty-free +patent license under the contributor's essential patent claims, to +make, use, sell, offer for sale, import and otherwise run, modify and +propagate the contents of its contributor version. + + In the following three paragraphs, a "patent license" is any express +agreement or commitment, however denominated, not to enforce a patent +(such as an express permission to practice a patent or covenant not to +sue for patent infringement). To "grant" such a patent license to a +party means to make such an agreement or commitment not to enforce a +patent against the party. + + If you convey a covered work, knowingly relying on a patent license, +and the Corresponding Source of the work is not available for anyone +to copy, free of charge and under the terms of this License, through a +publicly available network server or other readily accessible means, +then you must either (1) cause the Corresponding Source to be so +available, or (2) arrange to deprive yourself of the benefit of the +patent license for this particular work, or (3) arrange, in a manner +consistent with the requirements of this License, to extend the patent +license to downstream recipients. "Knowingly relying" means you have +actual knowledge that, but for the patent license, your conveying the +covered work in a country, or your recipient's use of the covered work +in a country, would infringe one or more identifiable patents in that +country that you have reason to believe are valid. + + If, pursuant to or in connection with a single transaction or +arrangement, you convey, or propagate by procuring conveyance of, a +covered work, and grant a patent license to some of the parties +receiving the covered work authorizing them to use, propagate, modify +or convey a specific copy of the covered work, then the patent license +you grant is automatically extended to all recipients of the covered +work and works based on it. + + A patent license is "discriminatory" if it does not include within +the scope of its coverage, prohibits the exercise of, or is +conditioned on the non-exercise of one or more of the rights that are +specifically granted under this License. You may not convey a covered +work if you are a party to an arrangement with a third party that is +in the business of distributing software, under which you make payment +to the third party based on the extent of your activity of conveying +the work, and under which the third party grants, to any of the +parties who would receive the covered work from you, a discriminatory +patent license (a) in connection with copies of the covered work +conveyed by you (or copies made from those copies), or (b) primarily +for and in connection with specific products or compilations that +contain the covered work, unless you entered into that arrangement, +or that patent license was granted, prior to 28 March 2007. + + Nothing in this License shall be construed as excluding or limiting +any implied license or other defenses to infringement that may +otherwise be available to you under applicable patent law. + + 12. No Surrender of Others' Freedom. + + If conditions are imposed on you (whether by court order, agreement or +otherwise) that contradict the conditions of this License, they do not +excuse you from the conditions of this License. If you cannot convey a +covered work so as to satisfy simultaneously your obligations under this +License and any other pertinent obligations, then as a consequence you may +not convey it at all. For example, if you agree to terms that obligate you +to collect a royalty for further conveying from those to whom you convey +the Program, the only way you could satisfy both those terms and this +License would be to refrain entirely from conveying the Program. + + 13. Use with the GNU Affero General Public License. + + Notwithstanding any other provision of this License, you have +permission to link or combine any covered work with a work licensed +under version 3 of the GNU Affero General Public License into a single +combined work, and to convey the resulting work. The terms of this +License will continue to apply to the part which is the covered work, +but the special requirements of the GNU Affero General Public License, +section 13, concerning interaction through a network will apply to the +combination as such. + + 14. Revised Versions of this License. + + The Free Software Foundation may publish revised and/or new versions of +the GNU General Public License from time to time. Such new versions will +be similar in spirit to the present version, but may differ in detail to +address new problems or concerns. + + Each version is given a distinguishing version number. If the +Program specifies that a certain numbered version of the GNU General +Public License "or any later version" applies to it, you have the +option of following the terms and conditions either of that numbered +version or of any later version published by the Free Software +Foundation. If the Program does not specify a version number of the +GNU General Public License, you may choose any version ever published +by the Free Software Foundation. + + If the Program specifies that a proxy can decide which future +versions of the GNU General Public License can be used, that proxy's +public statement of acceptance of a version permanently authorizes you +to choose that version for the Program. + + Later license versions may give you additional or different +permissions. However, no additional obligations are imposed on any +author or copyright holder as a result of your choosing to follow a +later version. + + 15. Disclaimer of Warranty. + + THERE IS NO WARRANTY FOR THE PROGRAM, TO THE EXTENT PERMITTED BY +APPLICABLE LAW. EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT +HOLDERS AND/OR OTHER PARTIES PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY +OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, +THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR +PURPOSE. THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE PROGRAM +IS WITH YOU. SHOULD THE PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF +ALL NECESSARY SERVICING, REPAIR OR CORRECTION. + + 16. Limitation of Liability. + + IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING +WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MODIFIES AND/OR CONVEYS +THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY +GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE +USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED TO LOSS OF +DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD +PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER PROGRAMS), +EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF +SUCH DAMAGES. + + 17. Interpretation of Sections 15 and 16. + + If the disclaimer of warranty and limitation of liability provided +above cannot be given local legal effect according to their terms, +reviewing courts shall apply local law that most closely approximates +an absolute waiver of all civil liability in connection with the +Program, unless a warranty or assumption of liability accompanies a +copy of the Program in return for a fee. + + END OF TERMS AND CONDITIONS + + How to Apply These Terms to Your New Programs + + If you develop a new program, and you want it to be of the greatest +possible use to the public, the best way to achieve this is to make it +free software which everyone can redistribute and change under these terms. + + To do so, attach the following notices to the program. It is safest +to attach them to the start of each source file to most effectively +state the exclusion of warranty; and each file should have at least +the "copyright" line and a pointer to where the full notice is found. + + + Copyright (C) + + This program is free software: you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation, either version 3 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program. If not, see . + +Also add information on how to contact you by electronic and paper mail. + + If the program does terminal interaction, make it output a short +notice like this when it starts in an interactive mode: + + Copyright (C) + This program comes with ABSOLUTELY NO WARRANTY; for details type `show w'. + This is free software, and you are welcome to redistribute it + under certain conditions; type `show c' for details. + +The hypothetical commands `show w' and `show c' should show the appropriate +parts of the General Public License. Of course, your program's commands +might be different; for a GUI interface, you would use an "about box". + + You should also get your employer (if you work as a programmer) or school, +if any, to sign a "copyright disclaimer" for the program, if necessary. +For more information on this, and how to apply and follow the GNU GPL, see +. + + The GNU General Public License does not permit incorporating your program +into proprietary programs. If your program is a subroutine library, you +may consider it more useful to permit linking proprietary applications with +the library. If this is what you want to do, use the GNU Lesser General +Public License instead of this License. But first, please read +. diff --git a/Makefile b/Makefile new file mode 100644 index 0000000..7d24eba --- /dev/null +++ b/Makefile @@ -0,0 +1,117 @@ +export EMACS ?= $(shell which emacs) +export CASK := $(shell which cask) +ifeq ($(CASK),) +$(error Please install CASK at https://cask.readthedocs.io/en/latest/guide/installation.html) +endif +CASK_DIR := $(shell $(CASK) package-directory || exit 1) +SRC = $(shell $(CASK) files) +PKBUILD = 2.3 +VERSION = $(shell $(CASK) version) +ELCFILES = $(SRC:.el=.elc) +TESTS = $(shell ls tests/test*el) +TESTSSRC = $(TESTS) features/support/env.el tests/nndiscourse-test.el +ELCTESTS = $(TESTSSRC:.el=.elc) +.DEFAULT_GOAL := test-compile + +.PHONY: autoloads +autoloads: + $(EMACS) -Q --batch --eval "(package-initialize)" --eval "(package-generate-autoloads \"nndiscourse\" \".\")" + +README.rst: README.in.rst nndiscourse.el + grep ';;' nndiscourse.el \ + | awk '/;;;\s*Commentary/{within=1;next}/;;;\s*/{within=0}within' \ + | sed -e 's/^\s*;;*\s*//g' \ + | tools/readme-sed.sh "COMMENTARY" README.in.rst > README.rst + +.PHONY: clean +clean: + $(CASK) clean-elc + $(MAKE) -C nndiscourse $@ + rm -f ert-profile* + rm -f tests/log/* + rm -rf tests/test-install + +.PHONY: bundler +bundler: + $(MAKE) $(HOME)/.gem/ruby/2.6.0/gems/bundler-2.0.2/bundler.gemspec + +$(HOME)/.gem/ruby/2.6.0/gems/bundler-2.0.2/bundler.gemspec: + cd nndiscourse ; gem install --user-install bundler:2.0.2 + +.PHONY: cask +cask: bundler $(CASK_DIR) + +$(CASK_DIR): Cask + $(CASK) install + touch $(CASK_DIR) + +.PHONY: test-compile +test-compile: cask autoloads + $(MAKE) -C nndiscourse $@ + sh -e tools/package-lint.sh ./nndiscourse.el + ! ($(CASK) eval "(let ((byte-compile-error-on-warn t)) (cask-cli/build))" 2>&1 | egrep -a "(Warning|Error):") ; (ret=$$? ; $(CASK) clean-elc && exit $$ret) + ! ($(CASK) eval \ + "(cl-letf (((symbol-function (quote cask-files)) (lambda (&rest _args) (mapcar (function symbol-name) (quote ($(TESTSSRC))))))) \ + (let ((byte-compile-error-on-warn t)) (cask-cli/build)))" 2>&1 | egrep -a "(Warning|Error):") ; (ret=$$? ; rm -f $(ELCTESTS) && exit $$ret) + +TESTFILES = $(shell $(CASK) files) + +define TESTRUN +--eval "(custom-set-variables \ + (backquote (nndiscourse-test-dir ,(file-name-as-directory (make-temp-file \"testrun-\" t)))) \ + (quote (gnus-select-method (quote (nndiscourse \"meta.discourse.org\" (nndiscourse-scheme \"https\"))))) \ + (quote (gnus-verbose 8)))" \ +--eval "(setq debug-on-error t)" \ +--eval "(fset (quote gnus-y-or-n-p) (function ignore))" \ +--eval "(dolist (f (mapcar (function symbol-name) (quote ($(TESTFILES))))) \ + (let* ((parent (file-name-directory f)) \ + (dest (concat (file-name-as-directory nndiscourse-test-dir) (or parent \".\")))) \ + (make-directory dest t) \ + (funcall (if (file-directory-p f) (function copy-directory) (function copy-file)) f (concat (file-name-as-directory dest) (file-name-nondirectory f)))))" +endef + +.PHONY: test-run +test-run: cask + $(CASK) emacs -Q --batch -l nndiscourse \ + $(TESTRUN) \ + --eval "(gnus-open-server gnus-select-method)" \ + --eval "(sleep-for .43)" \ + --eval "(cl-assert nndiscourse-processes)" \ + --eval "(nndiscourse-dump-diagnostics (nth 1 gnus-select-method))" + +.PHONY: test-run-interactive +test-run-interactive: cask autoloads + $(CASK) emacs -Q -l nndiscourse \ + $(TESTRUN) \ + -f gnus + +.PHONY: test-unit +test-unit: cask autoloads + $(CASK) exec ert-runner -L . -L tests $(TESTS) + +.PHONY: test-clean +test-clean: + rm -rf tests/.emacs* tests/.newsrc* tests/Mail tests/News tests/request tests/request-log + +.PHONY: test +test: test-compile test-unit test-int + +.PHONY: test-int +test-int: test-clean + rm -f tests/.newsrc.eld + $(CASK) exec ecukes --debug --reporter magnars + +.PHONY: dist-clean +dist-clean: + rm -rf dist + +.PHONY: dist +dist: dist-clean + $(CASK) package + +.PHONY: install +install: dist bundler + $(EMACS) -Q --batch -l package \ + --eval "(add-to-list 'package-archives '(\"melpa\" . \"https://melpa.org/packages/\"))" \ + --eval "(package-refresh-contents)" \ + --eval "(package-install-file (car (file-expand-wildcards \"dist/nndiscourse-$(VERSION).tar\")))" diff --git a/README.in.rst b/README.in.rst new file mode 100644 index 0000000..bc10391 --- /dev/null +++ b/README.in.rst @@ -0,0 +1,71 @@ +|build-status| |melpa-dev| + +.. COMMENTARY (see Makefile) + +.. |build-status| + image:: https://github.com/dickmao/nndiscourse/workflows/CI/badge.svg?branch=dev + :target: https://github.com/dickmao/nndiscourse/actions + :alt: Build Status +.. |melpa-dev| + image:: https://melpa.org/packages/nndiscourse-badge.svg + :target: http://melpa.org/#/nndiscourse + :alt: MELPA current version + +.. image:: https://github.com/dickmao/gnus-imap-walkthrough/blob/master/thumbnail.png + :target: https://youtu.be/DMpZtC98F_M + :alt: Replacing Thunderbird With Gnus + +.. image:: screenshot.png +.. |--| unicode:: U+2013 .. en dash +.. |---| unicode:: U+2014 .. em dash, trimming surrounding whitespace + :trim: + +Does not work for sites requiring login +======================================= +Some discourse instances allow unfettered public viewing, e.g., +``emacs-china.org``, ``devforum.roblox.com``. Others require login, e.g., +``discourse.doomemacs.org``. At the time I wrote nndiscourse, it was +impossible to get login going, and while `it does seem possible now +`_, +it still looks really hard and undocumented. + +Install +======= +Alas, you'll need Cask_. Then, + +:: + + rbenv install 2.6.2 + git clone https://github.com/dickmao/nndiscourse.git + make install + +Usage +===== +Suppose you want to follow https://emacs-china.org. In your ``.emacs`` or ``init.el``, use ONE of the following: + +:: + + ;; Applies to first-time Gnus users + (custom-set-variables '(gnus-select-method + (quote (nndiscourse "emacs-china.org" (nndiscourse-scheme "https"))))) + +or, if you're an existing Gnus user, + +:: + + ;; Applies to existing Gnus users + (add-to-list 'gnus-secondary-select-methods + (quote (nndiscourse "emacs-china.org" (nndiscourse-scheme "https")))) + +Then ``M-x gnus``. + +Select a topic category via ``RET``. Rapidly catch yourself up via ``N`` and ``P``. Instantly catch-up with ``c``. + +From the ``*Group*`` buffer, press ``g`` to refresh all categories. ``M-g`` on a particular category to refresh individually. + +From the summary buffer, ``/o`` redisplays posts already read. ``x`` undisplays them. + +Gnus beginners may find the interface bewildering. In particular, categories with no unread posts do not display. Use ``L`` to bring them out of hiding. + +.. _Cask: https://github.com/cask/cask +.. _Getting started: http://melpa.org/#/getting-started diff --git a/README.rst b/README.rst new file mode 100644 index 0000000..c56a69d --- /dev/null +++ b/README.rst @@ -0,0 +1,70 @@ +|build-status| |melpa-dev| + + +.. |build-status| + image:: https://github.com/dickmao/nndiscourse/workflows/CI/badge.svg?branch=dev + :target: https://github.com/dickmao/nndiscourse/actions + :alt: Build Status +.. |melpa-dev| + image:: https://melpa.org/packages/nndiscourse-badge.svg + :target: http://melpa.org/#/nndiscourse + :alt: MELPA current version + +.. image:: https://github.com/dickmao/gnus-imap-walkthrough/blob/master/thumbnail.png + :target: https://youtu.be/DMpZtC98F_M + :alt: Replacing Thunderbird With Gnus + +.. image:: screenshot.png +.. |--| unicode:: U+2013 .. en dash +.. |---| unicode:: U+2014 .. em dash, trimming surrounding whitespace + :trim: + +Does not work for sites requiring login +======================================= +Some discourse instances allow unfettered public viewing, e.g., +``emacs-china.org``, ``devforum.roblox.com``. Others require login, e.g., +``discourse.doomemacs.org``. At the time I wrote nndiscourse, it was +impossible to get login going, and while `it does seem possible now +`_, +it still looks really hard and undocumented. + +Install +======= +Alas, you'll need Cask_. Then, + +:: + + rbenv install 2.6.2 + git clone https://github.com/dickmao/nndiscourse.git + make install + +Usage +===== +Suppose you want to follow https://emacs-china.org. In your ``.emacs`` or ``init.el``, use ONE of the following: + +:: + + ;; Applies to first-time Gnus users + (custom-set-variables '(gnus-select-method + (quote (nndiscourse "emacs-china.org" (nndiscourse-scheme "https"))))) + +or, if you're an existing Gnus user, + +:: + + ;; Applies to existing Gnus users + (add-to-list 'gnus-secondary-select-methods + (quote (nndiscourse "emacs-china.org" (nndiscourse-scheme "https")))) + +Then ``M-x gnus``. + +Select a topic category via ``RET``. Rapidly catch yourself up via ``N`` and ``P``. Instantly catch-up with ``c``. + +From the ``*Group*`` buffer, press ``g`` to refresh all categories. ``M-g`` on a particular category to refresh individually. + +From the summary buffer, ``/o`` redisplays posts already read. ``x`` undisplays them. + +Gnus beginners may find the interface bewildering. In particular, categories with no unread posts do not display. Use ``L`` to bring them out of hiding. + +.. _Cask: https://github.com/cask/cask +.. _Getting started: http://melpa.org/#/getting-started diff --git a/features/rpc.feature b/features/rpc.feature new file mode 100644 index 0000000..3b53527 --- /dev/null +++ b/features/rpc.feature @@ -0,0 +1,16 @@ +Scenario: install + Given gnus start + And I dump buffer + Then of-record unreads for "nndiscourse+meta.discourse.org:bug" is 2 + And I go to word "bug" + And I press "RET" + Then I should be in buffer "*Summary nndiscourse+meta.discourse.org:bug*" + And prospective unreads for "nndiscourse+meta.discourse.org:bug" is 2 + And I go to word "david" + And I press "RET" + And I switch to buffer "*Article nndiscourse+meta.discourse.org:bug*" + Then I should see "hartz" + And prospective unreads for "nndiscourse+meta.discourse.org:bug" is 1 + And I switch to buffer "*Summary nndiscourse+meta.discourse.org:bug*" + And I press "q" + Then of-record unreads for "nndiscourse+meta.discourse.org:bug" is 1 diff --git a/features/step-definitions/nndiscourse-steps.el b/features/step-definitions/nndiscourse-steps.el new file mode 100644 index 0000000..befae30 --- /dev/null +++ b/features/step-definitions/nndiscourse-steps.el @@ -0,0 +1,79 @@ +(When "^of-record unreads for \"\\(.+\\)\" is \\([.0-9]+\\)$" + (lambda (group count) + (should (= (string-to-number count) (gnus-group-unread group))))) + +(When "^prospective unreads for \"\\(.+\\)\" is \\([.0-9]+\\)$" + (lambda (group count) + (when (< emacs-major-version 27) + (should (= (string-to-number count) (length gnus-newsgroup-unreads)))))) + +(When "^I should be in buffer like \"\\(.+\\)\"$" + (lambda (prefix) + (should (string-prefix-p prefix (buffer-name))))) + +(When "^I go to string \"\\(.+\\)\"$" + (lambda (string) + (goto-char (point-min)) + (let ((search (re-search-forward string nil t)) + (message "Can not go to string '%s' since it does not exist in the current buffer: %s")) + (cl-assert search nil message string (buffer-string))) + (backward-char (length string)))) + +(When "^I clear buffer \"\\(.*\\)\"$" + (lambda (buffer) + (with-current-buffer buffer + (let ((inhibit-read-only t)) + (erase-buffer))))) + +(When "^I scan news$" + (lambda () + (setq nndiscourse--last-scan-time 0) + (And "I switch to buffer \"*Group*\"") + (And "I press \"g\"") + (And "I dump buffer"))) + +(When "^I dump buffer" + (lambda () (message "%s" (buffer-string)))) + +(When "^gnus \\(try \\)?start\\(\\)$" + (lambda (demote _workaround) + (if-let ((it (get-buffer gnus-group-buffer))) + (switch-to-buffer it) + (if-demote demote + (When "I call \"gnus\"") + (Then "I should be in buffer \"%s\"" gnus-group-buffer))))) + +(When "^gnus stop$" + (lambda () + (when-let ((it (get-buffer gnus-group-buffer))) + (switch-to-buffer it) + (And "I press \"q\"") + (switch-to-buffer "*scratch*")))) + +(When "^I open latest \"\\(.+\\)\"$" + (lambda (relative-prefix) + (let* ((prefix (concat (file-name-as-directory gnus-home-directory) + relative-prefix)) + (dir (file-name-directory prefix)) + (base (file-name-base prefix)) + (alist + (directory-files-and-attributes dir t (regexp-quote base) t)) + (sofar (cl-first alist)) + (most-recent (dolist (cand alist (car sofar)) + (if (> (float-time (nth 5 (cdr cand))) + (float-time (nth 5 (cdr sofar)))) + (setq sofar cand))))) + (find-file most-recent)))) + +(When "^I wait \\([.0-9]+\\) seconds?$" + (lambda (seconds) + (sleep-for (string-to-number seconds)))) + +(When "^I wait for buffer to\\( not\\)? say \"\\(.+\\)\"$" + (lambda (negate bogey) + (nndiscourse-test-wait-for + (lambda () + (let* ((says (s-contains? (s-replace "\\n" "\n" bogey) (buffer-string)))) + (revert-buffer :ignore-auto :noconfirm) + (if negate (not says) says))) + nil 5000 1000))) diff --git a/features/support/env.el b/features/support/env.el new file mode 100644 index 0000000..7626464 --- /dev/null +++ b/features/support/env.el @@ -0,0 +1,114 @@ +;;; -*- lexical-binding: t; coding: utf-8 -*- + +;; (defsubst dir-up (x) +;; "Replica of f-parent without using f.el. + +;; I should just use f.el since ecukes loads it anyway." +;; (file-name-directory (directory-file-name x))) + +;; (let ((root-path (car (last (-iterate 'dir-up load-file-name 4))))) +;; (add-to-list 'load-path (concat root-path "lisp")) +;; (add-to-list 'load-path (concat root-path "tests"))) + +(require 'ecukes) +(require 'espuds) + +(add-to-list 'load-path (f-expand "lisp" (ecukes-project-path))) +(add-to-list 'load-path (f-expand "tests" (ecukes-project-path))) + +(require 'nndiscourse-test) + +(defvar incoming-iteration 0 "Used in filter-args advice of `nndiscourse--incoming'.") + +(defmacro if-demote (demote &rest forms) + (declare (debug t) (indent 1)) + `(if ,demote + (with-demoted-errors "demoted: %s" + ,@forms) + ,@forms)) + +(defun cleanup () + (let ((quick-file (concat (or (bound-and-true-p gnus-newsrc-file) + (bound-and-true-p gnus-current-startup-file)) + ".eld"))) + (when (file-exists-p quick-file) + (message "Deleting %s" quick-file) + (delete-file quick-file)))) + +(defun save-log (buffer-or-name file-name) + "from tkf/emacs-ipython-notebook ein:testing-save-buffer." + (when (and buffer-or-name (get-buffer buffer-or-name) file-name) + (with-current-buffer buffer-or-name + (let ((coding-system-for-write 'raw-text)) + (write-region (point-min) (point-max) file-name))))) + +(defvar scenario-recording-alist '((touched nil))) +(defvar scenario-recording-p t) + +(Setup + (add-function + :around (symbol-function 'nndiscourse-rpc-request) + (lambda (f server method &rest method-args) + (let ((sig (intern (mapconcat (apply-partially #'format "%s") + (cons method method-args) "-")))) + (if scenario-recording-p + (let ((result (apply f server method method-args))) + (prog1 result + (gnus-score-set sig + (append (gnus-score-get sig scenario-recording-alist) + (list result)) + scenario-recording-alist))) + (let* ((values (gnus-score-get sig scenario-recording-alist)) + (result (pop values))) + (gnus-score-set sig values scenario-recording-alist) + (or result (error "nndiscourse-rpc-request: could not playback %s" sig)))))))) + +(defmacro with-scenario (scenario &rest body) + (declare (indent defun)) + `(let* ((name (ecukes-scenario-name ,scenario)) + (filename (f-expand (replace-regexp-in-string "\\s-+" "-" name) + (f-expand "tests/recordings" (ecukes-project-path))))) + ,@body)) + +(Before + (dolist (server (mapcar #'car nndiscourse-processes)) + (setf (nndiscourse-by-server server :last-scan-time) 0)) + (setq ecukes-reporter-before-scenario-hook + (lambda (scenario) + (with-scenario scenario + (setq scenario-recording-p (not (file-exists-p filename))) + (setq scenario-recording-alist + (if scenario-recording-p + '((touched nil)) + (with-temp-buffer + (let ((coding-system-for-read score-mode-coding-system)) + (insert-file-contents filename)) + (goto-char (point-min)) + (read (current-buffer)))))))) + (setq ecukes-reporter-after-scenario-hook + (lambda (scenario) + (with-scenario scenario + (when scenario-recording-p + (setq scenario-recording-alist + (assq-delete-all 'touched scenario-recording-alist)) + (gnus-make-directory (file-name-directory filename)) + (with-temp-buffer + (gnus-prin1 scenario-recording-alist) + (let ((coding-system-for-write score-mode-coding-system)) + (gnus-write-buffer filename))))) + (setq scenario-recording-alist '((touched nil))) + (setq scenario-recording-p t)))) + +(After + ) + +(Teardown + (cleanup) +) + +(Fail + (if noninteractive + (with-demoted-errors "demote: %s" + (Teardown)) + (backtrace) + (keyboard-quit))) ;; useful to prevent emacs from quitting diff --git a/nndiscourse.el b/nndiscourse.el new file mode 100644 index 0000000..789ed72 --- /dev/null +++ b/nndiscourse.el @@ -0,0 +1,1181 @@ +;;; nndiscourse.el --- Gnus backend for Discourse -*- lexical-binding: t; coding: utf-8 -*- + +;; Copyright (C) 2019 The Authors of nndiscourse.el + +;; Authors: dickmao +;; Version: 0.1.0 +;; Keywords: news +;; URL: https://github.com/dickmao/nndiscourse +;; Package-Requires: ((emacs "27.1") (rbenv "0.0.3") (json-rpc "0.0.1")) + +;; This file is NOT part of GNU Emacs. + +;; This program is free software: you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation, either version 3 of the License, or +;; (at your option) any later version. + +;; This program is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with nndiscourse.el. If not, see . + +;;; Commentary: + +;; A Gnus backend for Discourse. + +;;; Code: + +(eval-when-compile (require 'cl-lib) + (cl-assert (fboundp 'libxml-parse-html-region) nil + "nndiscourse requires emacs built with libxml support")) +(require 'nnoo) +(require 'gnus) +(require 'gnus-start) +(require 'gnus-art) +(require 'gnus-sum) +(require 'gnus-msg) +(require 'gnus-cite) +(require 'gnus-srvr) +(require 'gnus-cache) +(require 'gnus-bcklg) +(require 'gnus-score) +(require 'mm-url) +(require 'cl-lib) +(require 'json) +(require 'subr-x) +(require 'json-rpc) +(require 'rbenv) + +(nnoo-declare nndiscourse) + +(nnoo-define-basics nndiscourse) + +(defvoo nndiscourse-scheme "https" + "URI scheme for address.") + +(defcustom nndiscourse-test-dir nil + "Test bundler install from here (see Makefile)." + :type 'directory + :group 'nndiscourse) + +(defcustom nndiscourse-render-post t + "If non-nil, follow link upon `gnus-summary-select-article'. +Otherwise, just display link." + :type 'boolean + :group 'nndiscourse) + +(defcustom nndiscourse-public-keyfile (expand-file-name "~/.ssh/id_rsa.pub") + "Location of rsa private key." + :type '(file :must-match t) + :group 'nndiscourse) + +(defcustom nndiscourse-localhost "127.0.0.1" + "Some users keep their browser in a separate domain." + :type 'string + :group 'nndiscourse) + +(defvoo nndiscourse-status-string "" "Out-of-band message.") + +(defvar nndiscourse-by-server-hashtb (gnus-make-hashtable)) + +(defsubst nndiscourse--gethash (string hashtable &optional dflt) + "Get value of STRING from HASHTABLE, or DFLT if undefined. +Starting in emacs-src commit c1b63af, Gnus moved from obarrays +to normal hashtables." + (unless (stringp string) + (setq string (format "%s" string))) + (if (fboundp 'gnus-gethash) + (let ((sym (intern-soft string hashtable))) + (if (or (null sym) (not (boundp sym))) dflt (symbol-value sym))) + (gethash string hashtable dflt))) + +(defmacro nndiscourse--sethash (string value hashtable) + "Set value of STRING to VALUE in HASHTABLE. +Starting in emacs-src commit c1b63af, Gnus moved from obarrays +to normal hashtables." + (declare (indent defun)) + `(,(if (fboundp 'gnus-sethash) + 'gnus-sethash + 'puthash) + (format "%s" ,string) ,value ,hashtable)) + +(defmacro nndiscourse-by-server (server key) + "Get generalized variable for SERVER value of KEY. +Thought I could use macros here to setf it." + `(let ((foo (nndiscourse--gethash ,server nndiscourse-by-server-hashtb))) + (alist-get ,key foo))) + +(defun nndiscourse-obarrayp (obj) + "Return t if OBJ is an obarray. `obarrayp' did not exist in emacs-25." + (and (vectorp obj) (< 0 (length obj)))) + +(defun nndiscourse-by-server-initial () + "Ensure deep copy of seed values for `nndiscourse-by-server'." + (mapcar (lambda (x) (cons (car x) + (if (nndiscourse-obarrayp (cdr x)) (copy-sequence (cdr x)) + (if (hash-table-p (cdr x)) + (copy-hash-table (cdr x)) + (cdr x))))) + `((:last-id . nil) + (:last-scan-time . ,(- (truncate (float-time)) 100)) + (:headers-hashtb . ,(gnus-make-hashtable)) + (:refs-hashtb . ,(gnus-make-hashtable)) + (:categories-hashtb . ,(gnus-make-hashtable))))) + +(defmacro nndiscourse--callback (result &optional callback) + "Set RESULT to return value of CALLBACK." + `(cl-function (lambda (&rest args &key data &allow-other-keys) + (setq ,result (if ,callback + (apply ,callback args) + data))))) + +(cl-defstruct (nndiscourse-proc-info) + "port and elisp process" + port process) + +(defvar nndiscourse-processes nil + "Association list of ( server-name-qua-url . nndiscourse-proc-info ).") + +(defun nndiscourse-good-server (server) + "SERVER needs to be a non-zero length string." + (or (and (stringp server) (not (zerop (length server))) + (prog1 t + (unless (nndiscourse--gethash server nndiscourse-by-server-hashtb) + (nndiscourse--sethash server + (nndiscourse-by-server-initial) + nndiscourse-by-server-hashtb)))) + (prog1 nil (backtrace)))) + +(defsubst nndiscourse--replace-hash (string func hashtable) + "Set value of STRING to FUNC on STRING's extant value in HASHTABLE. +Starting in emacs-src commit c1b63af, Gnus moved from obarrays +to normal hashtables." + (declare (indent defun)) + (unless (stringp string) + (setq string (prin1-to-string string))) + (let* ((capture (nndiscourse--gethash string hashtable)) + (replace-with (funcall func capture))) + (if (fboundp 'gnus-sethash) + (set (intern string hashtable) replace-with) + (puthash string replace-with hashtable)))) + +(defmacro nndiscourse--maphash (func table) + "Map FUNC taking key and value over TABLE, return nil. + +Starting in emacs-src commit c1b63af, Gnus moved from obarrays +to normal hashtables." + (declare (indent nil)) + (let ((workaround 'gnus-gethash-safe)) + `(,(if (fboundp 'gnus-gethash-safe) + 'mapatoms + 'maphash) + ,(if (fboundp 'gnus-gethash-safe) + `(lambda (k) (funcall + (apply-partially + ,func + (symbol-name k) (,workaround k ,table)))) + func) + ,table))) + +(defvar nndiscourse-summary-voting-map + (let ((map (make-sparse-keymap))) + map) + "Voting map.") + +(defvar nndiscourse-summary-mode-map + (let ((map (make-sparse-keymap))) + (define-key map "r" 'gnus-summary-followup) + (define-prefix-command 'nndiscourse-summary-voting-map) + (define-key map "R" 'nndiscourse-summary-voting-map) + (define-key nndiscourse-summary-voting-map "0" 'nndiscourse-novote) + (define-key nndiscourse-summary-voting-map "-" 'nndiscourse-downvote) + (define-key nndiscourse-summary-voting-map "=" 'nndiscourse-upvote) + (define-key nndiscourse-summary-voting-map "+" 'nndiscourse-upvote) + map)) + +(defvar nndiscourse-article-mode-map + (copy-keymap nndiscourse-summary-mode-map)) ;; how does Gnus do this? + +(define-minor-mode nndiscourse-article-mode + "Minor mode for nndiscourse articles. +Disallow `gnus-article-reply-with-original'. + +\\{gnus-article-mode-map}" + :lighter " Discourse" + :keymap nndiscourse-article-mode-map) + +(define-minor-mode nndiscourse-summary-mode + "Disallow \"reply\" commands in `gnus-summary-mode-map'. + +\\{nndiscourse-summary-mode-map}" + :lighter " Discourse" + :keymap nndiscourse-summary-mode-map) + +(defsubst nndiscourse-get-headers (server group) + "List headers for SERVER GROUP." + (nndiscourse--gethash group (nndiscourse-by-server server :headers-hashtb))) + +(defun nndiscourse-set-headers (server group new-headers) + "Assign headers for SERVER GROUP to NEW-HEADERS." + (nndiscourse--sethash group new-headers (nndiscourse-by-server server :headers-hashtb))) + +(defun nndiscourse-get-refs (server id) + "Amongst SERVER refs, return list of descending ancestors for ID." + (cl-loop for prev-id = id then cur-id + for cur-id = (nndiscourse--gethash prev-id (nndiscourse-by-server server :refs-hashtb)) + until (not cur-id) + collect cur-id into rresult + finally return (nreverse rresult))) + +(defun nndiscourse-set-ref (server id parent-id) + "Amongst SERVER refs, associate ID to PARENT-ID." + (nndiscourse--sethash id parent-id (nndiscourse-by-server server :refs-hashtb))) + +(defun nndiscourse-get-category (server category-id) + "Amongst SERVER categories, return group for CATEGORY-ID." + (nndiscourse--gethash category-id (nndiscourse-by-server server :categories-hashtb))) + +(defun nndiscourse-set-category (server category-id group) + "Amongst SERVER categories, associate CATEGORY-ID to GROUP." + (nndiscourse--sethash category-id group (nndiscourse-by-server server :categories-hashtb))) + +(defmacro nndiscourse--with-mutex (mtx &rest body) + "If capable of threading, lock with MTX and execute BODY." + (declare (indent defun)) + (if (fboundp 'with-mutex) + `(with-mutex ,mtx ,@body) + `(progn ,@body))) + +(defvar nndiscourse--mutex-rpc-request (when (fboundp 'make-mutex) + (make-mutex "nndiscourse--mutex-rpc-request")) + "Only one jsonrpc output buffer, so avoid two requests using at the same time.") + +(declare-function set-process-thread "process" t t) ;; emacs-25 + +(defun nndiscourse-rpc-request (server method &rest args) + "Make jsonrpc call to SERVER invoking METHOD ARGS. + +nnreddit had just one jsonrpyc process using stdio pipe for IPC. +jsonrpyc could not assume HTTP. + +The jimson library does assume HTTP, so we follow `json-rpc' SOP. +This means two processes, one jimson process, which we administer, +and one `json-rpc' network pipe which json-rpc.el administers. + +Process stays the same, but the `json-rpc' connection (a cheap struct) gets +reinstantiated with every call. + +Return response of METHOD ARGS of type `json-object-type' or nil if failure." + (when (and (nndiscourse-good-server server) (nndiscourse-server-opened server)) + (condition-case err + (if-let ((port (nndiscourse-proc-info-port + (cdr (assoc server nndiscourse-processes)))) + (connection (json-rpc-connect nndiscourse-localhost port)) + (sock (json-rpc-process connection))) + (unwind-protect + (progn + (set-process-query-on-exit-flag sock nil) + (when (fboundp 'set-process-thread) + (set-process-thread sock nil)) + (nndiscourse--with-mutex nndiscourse--mutex-rpc-request + (gnus-message 7 "nndiscourse-rpc-request: send %s %s" method + (mapconcat (lambda (s) (format "%s" s)) args " ")) + (json-rpc connection method args))) + (json-rpc-close connection)) + (error (prog1 nil + (gnus-message 3 "nndiscourse-rpc-request: could not connect to %s:%s" + nndiscourse-localhost port)))) + (error (prog1 nil + (gnus-message 3 "nndiscourse-rpc-request: %s" (error-message-string err))))))) + +(defsubst nndiscourse--gate (&optional group) + "Apply our minor modes only when the following conditions hold for GROUP." + (unless group + (setq group gnus-newsgroup-name)) + (and (stringp group) + (listp (gnus-group-method group)) + (eq 'nndiscourse (car (gnus-group-method group))))) + +(deffoo nndiscourse-request-close () + "Nnimap does nothing also." + t) + +(deffoo nndiscourse-request-type (_group &optional _article) + 'news) + +(defsubst nndiscourse--server-buffer-name (server) + "Arbitrary proc buffer name for SERVER." + (when (nndiscourse-good-server server) + (format " *%s*" server))) + +(defsubst nndiscourse--server-buffer (server &optional create) + "Get proc buffer for SERVER. Create if necessary if CREATE." + (when (nndiscourse-good-server server) + (let ((name (nndiscourse--server-buffer-name server))) + (if create + (get-buffer-create name) + (get-buffer name))))) + +(deffoo nndiscourse-server-opened (&optional server) + (when (nndiscourse-good-server server) + (buffer-live-p (nndiscourse--server-buffer server)))) + +(deffoo nndiscourse-status-message (&optional server) + (when (nndiscourse-good-server server) + nndiscourse-status-string)) + +(defun nndiscourse--initialize () + "Run `bundle install` if necessary." + (let ((default-directory + (expand-file-name "nndiscourse" + (or nndiscourse-test-dir + (file-name-directory + (or (locate-library "nndiscourse") + default-directory))))) + (bundle-exec (executable-find "bundle"))) + (unless bundle-exec + (error "`nndiscourse--initialize': nndiscourse requires bundler")) + (unless (file-exists-p (expand-file-name "vendor")) + (let ((bundle-buffer (get-buffer-create "*nndiscourse: bundle install*"))) + (if (zerop (apply #'call-process bundle-exec nil + (cons bundle-buffer (list t)) + nil (split-string "install --deployment --without development"))) + (kill-buffer bundle-buffer) + (switch-to-buffer bundle-buffer) + (error "`nndiscourse--initialize': bundle install failed")))))) + +(deffoo nndiscourse-open-server (server &optional defs) + "Retrieve the Jimson process for SERVER. + +I am counting on `gnus-check-server` in `gnus-read-active-file-1' in +`gnus-get-unread-articles' to open server upon install." + (when (nndiscourse-good-server server) + (or (nndiscourse-server-opened server) + (let ((original-global-rbenv-mode global-rbenv-mode)) + (unless global-rbenv-mode + (let (rbenv-show-active-ruby-in-modeline) + (global-rbenv-mode))) + (unwind-protect + (progn + (when defs ;; defs should be non-nil when called from `gnus-open-server' + (nndiscourse--initialize)) + (nnoo-change-server 'nndiscourse server defs) + (let* ((proc-buf (nndiscourse--server-buffer server t)) + (proc (get-buffer-process proc-buf))) + (if (process-live-p proc) + proc + (let* ((free-port (with-temp-buffer + (let ((proc (make-network-process + :name "free-port" + :noquery t + :host nndiscourse-localhost + :buffer (current-buffer) + :server t + :stop t + :service t))) + (prog1 (process-contact proc :service) + (delete-process proc))))) + (ruby-command (split-string (format "%s exec thor cli:serve %s://%s -p %s" + (executable-find "bundle") + nndiscourse-scheme + server + free-port))) + (stderr-buffer (get-buffer-create (format " *%s-stderr*" server)))) + (with-current-buffer stderr-buffer + (add-hook 'after-change-functions + (apply-partially #'nndiscourse--message-user server) + nil t)) + (nndiscourse-register-process + free-port + (let ((default-directory + (expand-file-name "nndiscourse" + (or nndiscourse-test-dir + (file-name-directory + (or (locate-library "nndiscourse") + default-directory)))))) + (let ((new-proc (make-process :name server + :buffer proc-buf + :command ruby-command + :noquery t + :sentinel #'nndiscourse-sentinel + :stderr stderr-buffer))) + (cl-loop repeat 10 + until (condition-case nil + (prog1 t + (delete-process + (make-network-process :name "test-port" + :noquery t + :host nndiscourse-localhost + :service free-port + :buffer nil + :stop t))) + (file-error nil)) + do (accept-process-output new-proc 0.3)) + new-proc))))))) + (unless original-global-rbenv-mode + (global-rbenv-mode -1))))))) + +(defun nndiscourse-alist-get (key alist &optional default remove testfn) + "Replicated library function for emacs-25. + +Same argument meanings for KEY ALIST DEFAULT REMOVE and TESTFN." + (ignore remove) + (let ((x (if (not testfn) + (assq key alist) + (assoc key alist)))) + (if x (cdr x) default))) + +(gv-define-expander nndiscourse-alist-get + (lambda (do key alist &optional default remove testfn) + (macroexp-let2 macroexp-copyable-p k key + (gv-letplace (getter setter) alist + (macroexp-let2 nil p `(if (and ,testfn (not (eq ,testfn 'eq))) + (assoc ,k ,getter) + (assq ,k ,getter)) + (funcall do (if (null default) `(cdr ,p) + `(if ,p (cdr ,p) ,default)) + (lambda (v) + (macroexp-let2 nil v v + (let ((set-exp + `(if ,p (setcdr ,p ,v) + ,(funcall setter + `(cons (setq ,p (cons ,k ,v)) + ,getter))))) + `(progn + ,(cond + ((null remove) set-exp) + ((or (eql v default) + (and (eq (car-safe v) 'quote) + (eq (car-safe default) 'quote) + (eql (cadr v) (cadr default)))) + `(if ,p ,(funcall setter `(delq ,p ,getter)))) + (t + `(cond + ((not (eql ,default ,v)) ,set-exp) + (,p ,(funcall setter + `(delq ,p ,getter)))))) + ,v)))))))))) + +(defun nndiscourse-register-process (port proc) + "Register PORT and PROC with a server-name-qua-url. +Return PROC if success, nil otherwise." + (declare (indent defun)) + (nndiscourse-deregister-process (process-name proc)) + (if (process-live-p proc) + (prog1 proc + (gnus-message 5 "nndiscourse-register-process: registering %s" + (process-name proc)) + (setf (nndiscourse-alist-get (process-name proc) nndiscourse-processes + nil nil #'equal) + (make-nndiscourse-proc-info :port port :process proc))) + (prog1 nil + (gnus-message 3 "`nndiscourse-register-process': dead process %s" + (process-name proc)) + (nndiscourse-deregister-process (process-name proc))))) + +(defun nndiscourse-deregister-process (server) + "Disavow any knowledge of SERVER's process." + (when-let ((it (nndiscourse-alist-get server nndiscourse-processes nil nil #'equal))) + (let ((proc (nndiscourse-proc-info-process it))) + (gnus-message 5 "`nndiscourse-deregister-process': deregistering %s %s pid=%s" + server (process-name proc) (process-id proc)) + (delete-process proc))) + (setf (nndiscourse-alist-get server nndiscourse-processes nil nil #'equal) nil)) + +(deffoo nndiscourse-close-server (&optional server defs) + "Patterning after nnimap.el." + (when (nndiscourse-good-server server) + (nndiscourse-deregister-process server) + (when-let ((it (nndiscourse--server-buffer server))) + (kill-buffer it)) + ;; keep state in nndiscourse-by-server-hashtb? + (when (nnoo-change-server 'nndiscourse server defs) + (nnoo-close-server 'nndiscourse server)) + t)) + +(deffoo nndiscourse-close-group (_group &optional server) + (nnoo-change-server 'nndiscourse server nil) + t) + +(defmacro nndiscourse--with-group (server group &rest body) + "If `gnus-newsgroup-name' is null, recreate it based on SERVER. +Disambiguate GROUP if it's empty. +Then execute BODY." + (declare (debug (form &rest form)) + (indent defun)) + `(let* ((group (or ,group (gnus-group-real-name gnus-newsgroup-name))) + (gnus-newsgroup-name (or gnus-newsgroup-name + (gnus-group-full-name + group (cons 'nndiscourse (list server))))) + (server (or ,server (nth 1 (gnus-find-method-for-group gnus-newsgroup-name))))) + ,@body)) + +(defsubst nndiscourse--first-article-number (server group) + "Get article-number qua id of first article of SERVER GROUP." + (plist-get (car (nndiscourse-get-headers server group)) :id)) + +(defsubst nndiscourse--last-article-number (server group) + "Get article-number qua id of last article of SERVER GROUP." + (plist-get (car (last (nndiscourse-get-headers server group))) :id)) + +(defun nndiscourse--get-header (server group article-number) + "Amongst SERVER GROUP headers, binary search ARTICLE-NUMBER." + (let ((headers (nndiscourse-get-headers server group))) + (cl-flet ((id-of (k) (plist-get (elt headers k) :id))) + (cl-do* ((x article-number) + (l 0 (if dir (1+ m) l)) + (r (length headers) (if dir r m)) + (m (/ (- r l) 2) (+ m (* (if dir 1 -1) (max 1 (/ (- r l) 2))))) + (dir (> x (id-of m)) (> x (id-of m)))) + ((or (<= (- r l) 1) (= x (id-of m))) + (and (< m (length headers)) (>= m 0) (= x (id-of m)) (elt headers m))))))) + +(defun nndiscourse--massage (body) + "Precede each quoted line of BODY broken by `shr-fill-line' with '>'." + (with-temp-buffer + (insert body) + (mm-url-decode-entities) + (cl-loop initially (goto-char (point-min)) + until (and (null (re-search-forward "\\(^>\\( .*?\\)\\)

" nil t)) + (null (re-search-forward "\\(

\\s-*>\\( .*?\\)\\)

" nil t))) + do (let* ((start (match-beginning 1)) + (end (match-end 1)) + (matched (match-string 2))) + (perform-replace + ".*" + (concat "

\n" + (with-temp-buffer + (insert matched) + (fill-region (point-min) (point-max)) + (insert + (prog1 + (cl-subseq (replace-regexp-in-string + "\n" "
\n> " (concat "\n" (buffer-string))) + 5) + (erase-buffer))) + (buffer-string)) + "\n") + nil t nil nil nil start end))) + (buffer-string))) + +(defsubst nndiscourse--citation-wrap (author body) + "Cite AUTHOR using `gnus-message-cite-prefix-regexp' before displaying BODY. + +Originally written by Paul Issartel." + (with-temp-buffer + (insert body) + (mm-url-remove-markup) + (mm-url-decode-entities) + (fill-region (point-min) (point-max)) + (let* ((trimmed-1 (replace-regexp-in-string "\\(\\s-\\|\n\\)+$" "" (buffer-string))) + (trimmed (replace-regexp-in-string "^\\(\\s-\\|\n\\)+" "" trimmed-1))) + (concat author " wrote:

\n" + "

\n"
+              (cl-subseq (replace-regexp-in-string "\n" "\n> " (concat "\n" trimmed)) 1)
+              "\n

")))) + +(defun nndiscourse-add-entry (hashtb e field) + "Add to HASHTB a lookup consisting of entry E's id to its FIELD." + (nndiscourse--sethash (plist-get e :id) (plist-get e field) hashtb)) + +(defsubst nndiscourse--summary-exit () + "Call `gnus-summary-exit' without the hackery." + (remove-function (symbol-function 'gnus-summary-exit) + (symbol-function 'nndiscourse--score-pending)) + (gnus-summary-exit) + (add-function :after (symbol-function 'gnus-summary-exit) + (symbol-function 'nndiscourse--score-pending))) + +(deffoo nndiscourse-request-group-scan (group &optional server info) + "\\[gnus-group-get-new-news-this-group] from *Group* calls this." + (nndiscourse--with-group server group + (gnus-message 5 "nndiscourse-request-group-scan: scanning %s..." group) + (nndiscourse-request-scan nil server) + (gnus-get-unread-articles-in-group + (or info (gnus-get-info gnus-newsgroup-name)) + (gnus-active (gnus-info-group info))) + (gnus-message 5 "nndiscourse-request-group-scan: scanning %s...done" group)) + t) + +;; gnus-group-select-group +;; gnus-group-read-group +;; gnus-summary-read-group +;; gnus-summary-read-group-1 +;; gnus-summary-setup-buffer +;; sets gnus-newsgroup-name +;; gnus-select-newsgroup +;; gnus-request-group +;; nndiscourse-request-group +(deffoo nndiscourse-request-group (group &optional server _fast _info) + (nndiscourse--with-group server group + (let* ((num-headers (length (nndiscourse-get-headers server group))) + (status (format "211 %d %d %d %s" num-headers + (or (nndiscourse--first-article-number server group) 1) + (or (nndiscourse--last-article-number server group) 0) + group))) + (gnus-message 7 "nndiscourse-request-group: %s" status) + (nnheader-insert "%s\n" status)) + t)) + +(defun nndiscourse--request-item (id server) + "Retrieve ID from SERVER as a property list." + (let* ((port (nndiscourse-proc-info-port (cdr (assoc server nndiscourse-processes)))) + (conn (json-rpc-connect nndiscourse-localhost port)) + (utf-decoder (lambda (x) + (decode-coding-string (with-temp-buffer + (set-buffer-multibyte nil) + (insert x) + (buffer-string)) + 'utf-8)))) + (add-function :filter-return (symbol-function 'json-read-string) utf-decoder) + (unwind-protect + (condition-case err (json-rpc conn "get_post" id) + (error (gnus-message 3 "nndiscourse--request-item: %s" (error-message-string err)) + nil)) + (remove-function (symbol-function 'json-read-string) utf-decoder)))) + +(defun nndiscourse-get-categories (server) + "Query SERVER /categories.json." + (seq-filter (lambda (x) (eq json-false (plist-get x :read_restricted))) + (let ((cats (funcall #'nndiscourse-rpc-request server "categories"))) + (when (seqp cats) cats)))) + +(cl-defun nndiscourse-get-topics (server slug &key (page 0)) + "Query SERVER /c/SLUG/l/latest.json, optionally for PAGE." + (funcall #'nndiscourse-rpc-request server + "category_latest_topics" + :category_slug slug :page page)) + +(cl-defun nndiscourse-get-posts (server &key (before 0)) + "Query SERVER /posts.json for posts before BEFORE." + (plist-get (let ((result (funcall #'nndiscourse-rpc-request server + "posts" :before before))) + (when (listp result) result)) + :latest_posts)) + +(defun nndiscourse--number-to-header (server group topic-id post-number) + "O(n) search for SERVER GROUP TOPIC-ID POST-NUMBER in headers." + (declare (indent defun)) + (when-let ((headers (nndiscourse-get-headers server group)) + (found (seq-position + headers (cons topic-id post-number) + (lambda (plst loc) + (cl-destructuring-bind (topic-id* . post-number*) loc + (and (= topic-id* (plist-get plst :topic_id)) + (= post-number* (plist-get plst :post_number)))))))) + (elt headers found))) + +(defun nndiscourse--earliest-header (server group topic-id) + "O(n) search for first header satisfying SERVER GROUP TOPIC-ID." + (declare (indent defun)) + (when-let ((headers (nndiscourse-get-headers server group))) + (seq-find (lambda (plst) (= topic-id (plist-get plst :topic_id))) + headers))) + +(defsubst nndiscourse-hash-count (table-or-obarray) + "Return number items in TABLE-OR-OBARRAY." + (let ((result 0)) + (nndiscourse--maphash (lambda (&rest _args) (cl-incf result)) table-or-obarray) + result)) + +(defsubst nndiscourse-hash-values (table-or-obarray) + "Return right hand sides in TABLE-OR-OBARRAY." + (let (result) + (nndiscourse--maphash (lambda (_key value) (push value result)) table-or-obarray) + result)) + +(defsubst nndiscourse-hash-keys (table-or-obarray) + "Return left hand sides in TABLE-OR-OBARRAY." + (let (result) + (nndiscourse--maphash (lambda (key _value) (push key result)) table-or-obarray) + result)) + +(defun nndiscourse--incoming (server) + "Drink from the SERVER firehose." + (interactive) + (when (zerop (nndiscourse-hash-count (nndiscourse-by-server server :categories-hashtb))) + (nndiscourse-request-list server)) + (cl-loop + with new-posts + for page-bottom = 1 then (plist-get (elt posts (1- (length posts))) :id) + for posts = (nndiscourse-get-posts server :before (1- page-bottom)) + until (null posts) + do (unless (nndiscourse-by-server server :last-id) + (setf (nndiscourse-by-server server :last-id) + (1- (plist-get (elt posts (1- (length posts))) :id)))) + do (cl-do* ((k 0 (1+ k)) + (plst (and (< k (length posts)) (elt posts k)) + (and (< k (length posts)) (elt posts k)))) + ((or (null plst) + (<= (plist-get plst :id) (nndiscourse-by-server server :last-id)))) + (push plst new-posts)) + until (<= (1- (plist-get (elt posts (1- (length posts))) :id)) + (nndiscourse-by-server server :last-id)) + finally + (let ((counts (gnus-make-hashtable))) + (dolist (plst new-posts) + (setf (nndiscourse-by-server server :last-id) (plist-get plst :id)) + (when-let ((not-deleted (not (plist-get plst :deleted_at))) + (type (plist-get plst :post_type)) + (category-id (plist-get plst :category_id)) + (group (nndiscourse-get-category server category-id)) + (full-group (gnus-group-full-name + group + (cons 'nndiscourse (list server))))) + (if-let ((it (plist-get plst :reply_to_post_number))) + (nndiscourse-set-ref server + (plist-get plst :id) + (plist-get (nndiscourse--number-to-header + server group + (plist-get plst :topic_id) it) + :id)) + (when-let ((it (plist-get (nndiscourse--earliest-header + server group + (plist-get plst :topic_id)) + :id))) + (nndiscourse-set-ref server (plist-get plst :id) it))) + (nndiscourse--replace-hash type (lambda (x) (1+ (or x 0))) counts) + (if-let ((info (gnus-get-info full-group))) + (progn + (unless (gnus-info-read info) + (with-suppressed-warnings ((obsolete gnus-range-normalize)) + (setf (gnus-info-read info) + (gnus-range-normalize `(1 . ,(1- (plist-get plst :id))))))) + (when-let ((last-number (nndiscourse--last-article-number server group)) + (next-number (plist-get plst :id)) + (gap `(,(1+ last-number) . ,(1- next-number)))) + (when (<= (car gap) (cdr gap)) + (with-suppressed-warnings ((obsolete gnus-range-normalize) + (obsolete gnus-range-add)) + (setf (gnus-info-read info) + (gnus-range-add (gnus-info-read info) + (gnus-range-normalize gap)))) + (when (gnus-info-marks info) + (setf (alist-get 'unexist (gnus-info-marks info)) nil))))) + (gnus-message 3 "nndiscourse--incoming: cannot update read for %s" group)) + (nndiscourse-set-headers server group + (nconc (nndiscourse-get-headers server group) (list plst))))) + (gnus-message + 5 (concat "nndiscourse--incoming: " + (format "last-id: %s, " (nndiscourse-by-server server :last-id)) + (let ((result "")) + (nndiscourse--maphash + (lambda (key value) + (setq result (concat result (format "type=%s +%s " key value)))) + counts) + result)))))) + +(deffoo nndiscourse-request-scan (&optional _group server) + (when (nndiscourse-good-server server) + (if (> 2 (- (truncate (float-time)) (nndiscourse-by-server server :last-scan-time))) + (gnus-message 7 "nndiscourse-request-scan: last scanned at %s" + (current-time-string (nndiscourse-by-server server :last-scan-time))) + (cl-destructuring-bind (seconds num-gc seconds-gc) + (benchmark-run (nndiscourse--incoming server)) + (setf (nndiscourse-by-server server :last-scan-time) (truncate (float-time))) + (gnus-message 5 (concat "nndiscourse-request-scan: Took %s seconds," + " with %s gc runs taking %s seconds") + seconds num-gc seconds-gc))))) + +(defsubst nndiscourse--make-message-id (id) + "Construct a valid Gnus message id from ID." + (format "<%s@discourse.org>" id)) + +(defsubst nndiscourse--make-references (server id) + "For SERVER, construct a space delimited string of message ancestors of ID." + (mapconcat (lambda (ref) (nndiscourse--make-message-id ref)) + (nndiscourse-get-refs server id) " ")) + +(defsubst nndiscourse--make-header (server group article-number) + "Construct mail headers from article header. +For SERVER GROUP article headers, construct mail headers from ARTICLE-NUMBER'th +article header. Gnus manual does say the term `header` is oft conflated." + (when-let ((header (nndiscourse--get-header server group article-number))) + (let ((score (plist-get header :score)) + (reads (plist-get header :reads))) + (make-full-mail-header + article-number + (plist-get header :topic_title) + (plist-get header :username) + (format-time-string "%a, %d %h %Y %T %z (%Z)" (date-to-time (plist-get header :created_at))) + (nndiscourse--make-message-id (plist-get header :id)) + (nndiscourse--make-references server (plist-get header :id)) + 0 0 nil + (append `((X-Discourse-Name . ,(plist-get header :name))) + `((X-Discourse-ID . ,(plist-get header :id))) + `((X-Discourse-Permalink . ,(format "%s/t/%s/%s/%s" + server + (plist-get header :topic_slug) + (plist-get header :topic_id) + (plist-get header :id)))) + (and (numberp score) + `((X-Discourse-Score . ,(number-to-string (truncate score))))) + (and (numberp reads) + `((X-Discourse-Reads . ,(number-to-string (truncate reads)))))))))) + +;; CORS denial +(defalias 'nndiscourse--request #'ignore) + +(deffoo nndiscourse-request-article (article-number &optional group server buffer) + (unless buffer (setq buffer nntp-server-buffer)) + (nndiscourse--with-group server group + (with-current-buffer buffer + (erase-buffer) + (let* ((header (nndiscourse--get-header server group article-number)) + (mail-header (nndiscourse--make-header server group article-number)) + (score (cdr (assq 'X-Discourse-Score (mail-header-extra mail-header)))) + (permalink (cdr (assq 'X-Discourse-Permalink (mail-header-extra mail-header)))) + (body (nndiscourse--massage (plist-get header :cooked)))) + (when body + (insert + "Newsgroups: " group "\n" + "Subject: " (mail-header-subject mail-header) "\n" + "From: " (or (mail-header-from mail-header) "nobody") "\n" + "Date: " (mail-header-date mail-header) "\n" + "Message-ID: " (mail-header-id mail-header) "\n" + "References: " (mail-header-references mail-header) "\n" + "Archived-at: " permalink "\n" + "Score: " score "\n" + "\n") + (mml-insert-multipart "alternative") + (mml-insert-tag 'part 'type "text/html" + 'disposition "inline" + 'charset "utf-8") + (save-excursion (mml-insert-tag '/part)) + (when-let + ((parent (car (last (nndiscourse-get-refs server (plist-get header :id))))) + (parent-author + (or (plist-get (nndiscourse--get-header server group parent) + :username) + "Someone")) + (parent-body (nndiscourse--massage + (plist-get + (nndiscourse--get-header server group parent) + :cooked)))) + (insert (nndiscourse--citation-wrap parent-author parent-body))) + (insert body) + (insert "\n") + (if (mml-validate) + (message-encode-message-body) + (gnus-message 2 "nndiscourse-request-article: Invalid mml:\n%s" + (buffer-string))) + (cons group article-number)))))) + +(deffoo nndiscourse-retrieve-headers (article-numbers &optional group server _fetch-old) + (with-current-buffer nntp-server-buffer + (erase-buffer) + (nndiscourse--with-group server group + (dolist (i article-numbers) + (when-let ((header (nndiscourse--make-header server group i))) + (nnheader-insert-nov header))) + 'nov))) + +;; Primarily because `gnus-get-unread-articles' won't update unreads +;; upon install (nndiscourse won't yet be in type-cache), +;; I am counting on logic in `gnus-read-active-file-1' in `gnus-get-unread-articles' +;; to get here upon install. +(deffoo nndiscourse-retrieve-groups (_groups &optional server) + (when (nndiscourse-good-server server) + ;; Utterly insane thing where `gnus-active-to-gnus-format' expects + ;; `gnus-request-list' output to be in `nntp-server-buffer' + ;; and populates `gnus-active-hashtb' + (nndiscourse-request-list server) + (with-current-buffer nntp-server-buffer + (with-suppressed-warnings ((obsolete gnus-select-method)) + (let (gnus-server-method-cache + (gnus-select-method '(nnnil))) + (gnus-active-to-gnus-format + (gnus-server-to-method (format "nndiscourse:%s" server)) + gnus-active-hashtb nil t)))) + (mapc (lambda (group) + (let ((full-name (gnus-group-full-name group `(nndiscourse ,server)))) + (gnus-get-unread-articles-in-group (gnus-get-info full-name) + (gnus-active full-name)))) + (nndiscourse-hash-values (nndiscourse-by-server server :categories-hashtb))) + ;; `gnus-read-active-file-2' will now repeat what I just did. Brutal. + 'active)) + +(deffoo nndiscourse-request-list (&optional server) + (let ((groups (nndiscourse-hash-values (nndiscourse-by-server server :categories-hashtb)))) + (when (and (nndiscourse-good-server server) (nndiscourse-server-opened server)) + (with-current-buffer nntp-server-buffer + (unless groups + (mapc + (lambda (plst) + (let ((group (plist-get plst :slug))) + (when (and group (not (zerop (length group)))) + (let* ((category-id (plist-get plst :id)) + (full-name (gnus-group-full-name group `(nndiscourse ,server))) + (subcategory-ids (append (plist-get plst :subcategory_ids) nil)) + (must-subscribe (not (gnus-get-info full-name)))) + (erase-buffer) + ;; only `gnus-activate-group' seems to call `gnus-parse-active' + (gnus-activate-group full-name nil nil `(nndiscourse ,server)) + (when must-subscribe + (funcall (if (fboundp 'gnus-group-set-subscription) + #'gnus-group-set-subscription + (with-no-warnings + #'gnus-group-unsubscribe-group)) + full-name gnus-level-default-subscribed t)) + (nndiscourse-set-category server category-id group) + (dolist (sub-id subcategory-ids) + (nndiscourse-set-category server sub-id group)) + (push group groups))))) + (nndiscourse-get-categories server))) + (erase-buffer) + (mapc (lambda (group) + (insert + (format "%s %d %d y\n" group + (or (nndiscourse--last-article-number server group) 0) + (or (nndiscourse--first-article-number server group) 1)))) + groups))) + t)) + +(defun nndiscourse-sentinel (process event) + "Wipe headers state when PROCESS dies from EVENT." + (unless (string= "open" (substring event 0 4)) + (gnus-message 2 "nndiscourse-sentinel: process %s %s" + (car (process-command process)) + (replace-regexp-in-string "\n$" "" event)) + (nndiscourse-close-server (process-name process)) + (gnus-backlog-shutdown))) + +(defun nndiscourse--message-user (server beg end _prev-len) + "Message SERVER related alert with `buffer-substring' from BEG to END." + (let ((string (buffer-substring beg end)) + (magic "::user::")) + (when (string-prefix-p magic string) + (message "%s: %s" server (substring string (length magic)))))) + +;; C-c C-c from followup buffer +;; message-send-and-exit +;; message-send +;; message-send-method-alist=message-send-news-function=message-send-news +;; gnus-request-post +;; nndiscourse-request-post +(deffoo nndiscourse-request-post (&optional _server) + nil) + +(defun nndiscourse--browse-post (&rest _args) + "What happens when I click on discourse Subject." + (when-let ((group-article gnus-article-current) + (server (nth 1 (gnus-find-method-for-group (car group-article)))) + (header (nndiscourse--get-header + server + (gnus-group-real-name (car group-article)) + (cdr group-article))) + (url (format "%s://%s/t/%s/%s/%s" + nndiscourse-scheme + server + (plist-get header :topic_slug) + (plist-get header :topic_id) + (plist-get header :post_number)))) + (browse-url url))) + +(defun nndiscourse--header-button-alist () + "Construct a buffer-local `gnus-header-button-alist' for nndiscourse." + (let* ((result (copy-alist gnus-header-button-alist)) + (references-value (assoc-default "References" result + (lambda (x y) (string-match-p y x)))) + (references-key (car (rassq references-value result)))) + (setq result (cl-delete "^Subject:" result :test (lambda (x y) (cl-search x (car y))))) + (setq result (cl-delete references-key result :test (lambda (x y) (cl-search x (car y))))) + (push (append '("^\\(Message-I[Dd]\\|^In-Reply-To\\):") references-value) result) + (push '("^Subject:" ": *\\(.+\\)$" 1 (>= gnus-button-browse-level 0) + nndiscourse--browse-post 1) + result) + result)) + +(defsubst nndiscourse--fallback-link () + "Cannot render post." + (let* ((header (nndiscourse--get-header + (nth 1 (gnus-find-method-for-group (car gnus-article-current))) + (gnus-group-real-name (car gnus-article-current)) + (cdr gnus-article-current))) + (body (nndiscourse--massage (plist-get header :cooked)))) + (with-current-buffer gnus-original-article-buffer + (article-goto-body) + (delete-region (point) (point-max)) + (insert body)))) + +(defalias 'nndiscourse--display-article + (lambda (article &optional all-headers header) + (condition-case-unless-debug err + (gnus-article-prepare article all-headers header) + (error + (if nndiscourse-render-post + (progn + (gnus-message 7 "nndiscourse--display-article: '%s' (falling back...)" + (error-message-string err)) + (nndiscourse--fallback-link) + (gnus-article-prepare article all-headers)) + (error (error-message-string err)))))) + "In case of shr failures, dump original link.") + +(defun nndiscourse-dump-diagnostics (server) + "Makefile recipe test-run. SERVER second element of `gnus-select-method'." + (if-let ((it (nndiscourse-alist-get server nndiscourse-processes nil nil #'equal))) + (dolist (b `(,byte-compile-log-buffer + ,gnus-group-buffer + "*Messages*" + ,(buffer-name (process-buffer (nndiscourse-proc-info-process it))) + ,(format " *%s-stderr*" server))) + (when (buffer-live-p (get-buffer b)) + (princ (format "\nBuffer: %s\n%s\n\n" b (with-current-buffer b (buffer-string))) + #'external-debugging-output))) + (error "Server %s not found among %s" server (mapcar #'car nndiscourse-processes)))) + +(defsubst nndiscourse--dense-time (time) + "Convert TIME to a floating point number. + +Written by John Wiegley (https://github.com/jwiegley/dot-emacs)." + (+ (* (car time) 65536.0) + (cadr time) + (/ (or (car (cdr (cdr time))) 0) 1000000.0))) + +(defalias 'nndiscourse--format-time-elapsed + (lambda (header) + (condition-case nil + (let ((date (mail-header-date header))) + (if (> (length date) 0) + (let* + ((then (nndiscourse--dense-time + (apply #'encode-time (parse-time-string date)))) + (now (nndiscourse--dense-time (current-time))) + (diff (- now then)) + (str + (cond + ((>= diff (* 86400.0 7.0 52.0)) + (if (>= diff (* 86400.0 7.0 52.0 10.0)) + (format "%3dY" (floor (/ diff (* 86400.0 7.0 52.0)))) + (format "%3.1fY" (/ diff (* 86400.0 7.0 52.0))))) + ((>= diff (* 86400.0 30.0)) + (if (>= diff (* 86400.0 30.0 10.0)) + (format "%3dM" (floor (/ diff (* 86400.0 30.0)))) + (format "%3.1fM" (/ diff (* 86400.0 30.0))))) + ((>= diff (* 86400.0 7.0)) + (if (>= diff (* 86400.0 7.0 10.0)) + (format "%3dw" (floor (/ diff (* 86400.0 7.0)))) + (format "%3.1fw" (/ diff (* 86400.0 7.0))))) + ((>= diff 86400.0) + (if (>= diff (* 86400.0 10.0)) + (format "%3dd" (floor (/ diff 86400.0))) + (format "%3.1fd" (/ diff 86400.0)))) + ((>= diff 3600.0) + (if (>= diff (* 3600.0 10.0)) + (format "%3dh" (floor (/ diff 3600.0))) + (format "%3.1fh" (/ diff 3600.0)))) + ((>= diff 60.0) + (if (>= diff (* 60.0 10.0)) + (format "%3dm" (floor (/ diff 60.0))) + (format "%3.1fm" (/ diff 60.0)))) + (t + (format "%3ds" (floor diff))))) + (stripped + (replace-regexp-in-string "\\.0" "" str))) + (concat (cond + ((= 2 (length stripped)) " ") + ((= 3 (length stripped)) " ") + (t "")) + stripped)))) + ;; print some spaces and pretend nothing happened. + (error " "))) + "Return time elapsed since HEADER was sent. + +Written by John Wiegley (https://github.com/jwiegley/dot-emacs).") + +;; Evade melpazoid! +(funcall #'fset 'gnus-user-format-function-S + (symbol-function 'nndiscourse--format-time-elapsed)) + +(let ((custom-defaults + ;; For now, revert any user overrides that I can't predict. + (mapcar (lambda (x) + (let* ((var (cl-first x)) + (sv (get var 'standard-value))) + (when (eq var 'gnus-default-adaptive-score-alist) + (setq sv (list `(quote + ,(mapcar (lambda (entry) + (cons (car entry) + (assq-delete-all 'from (cdr entry)))) + (eval (car sv))))))) + (cons var sv))) + (seq-filter (lambda (x) (eq 'custom-variable (cl-second x))) + (append (get 'gnus-score-adapt 'custom-group) + (get 'gnus-score-default 'custom-group)))))) + (add-to-list 'gnus-parameters `("^nndiscourse" + ,@custom-defaults + (gnus-summary-make-false-root 'adopt) + (gnus-cite-hide-absolute 5) + (gnus-cite-hide-percentage 0) + (gnus-cited-lines-visible '(2 . 2)) + (gnus-simplify-subject-functions (quote (gnus-simplify-subject-fuzzy))) + (gnus-summary-line-format "%3t%U%R%uS %I%(%*%-10,10f %s%)\n") + (gnus-auto-extend-newsgroup nil) + (gnus-add-timestamp-to-message t) + (gnus-summary-display-article-function + (quote ,(symbol-function 'nndiscourse--display-article))) + (gnus-header-button-alist + (quote ,(nndiscourse--header-button-alist))) + (gnus-visible-headers ,(concat gnus-visible-headers "\\|^Score:"))))) + +(defun nndiscourse-article-mode-activate () + "Augment the `gnus-article-mode-map' conditionally." + (when (nndiscourse--gate) + (nndiscourse-article-mode))) + +(defun nndiscourse-summary-mode-activate () + "Shadow some bindings in `gnus-summary-mode-map' conditionally." + (when (nndiscourse--gate) + (nndiscourse-summary-mode))) + +(nnoo-define-skeleton nndiscourse) + +(defsubst nndiscourse--who-am-i () + "Get my Discourse username." + "dickmao") + +;; I believe I did try buffer-localizing hooks, and it wasn't sufficient +(add-hook 'gnus-article-mode-hook #'nndiscourse-article-mode-activate) +(add-hook 'gnus-summary-mode-hook #'nndiscourse-summary-mode-activate) + +;; `gnus-newsgroup-p' requires valid method post-mail to return t +(add-to-list 'gnus-valid-select-methods '("nndiscourse" post-mail) t) + +(add-function + :filter-return (symbol-function 'message-make-fqdn) + (lambda (val) + (if (and (nndiscourse--gate) + (cl-search "--so-tickle-me" val)) + "discourse.org" val))) + +(add-function + :before-until (symbol-function 'message-make-from) + (lambda (&rest _args) + (when (nndiscourse--gate) + (concat (nndiscourse--who-am-i) "@discourse.org")))) + +;; the let'ing to nil of `gnus-summary-display-article-function' +;; in `gnus-summary-select-article' dates back to antiquity. +(add-function + :around (symbol-function 'gnus-summary-display-article) + (lambda (f &rest args) + (cond ((nndiscourse--gate) + (let ((gnus-summary-display-article-function + (symbol-function 'nndiscourse--display-article))) + (apply f args))) + (t (apply f args))))) + +;; possible impostors +(setq gnus-valid-select-methods (cl-remove-if (lambda (method) + (equal (car method) "nndiscourse")) + gnus-valid-select-methods)) +(gnus-declare-backend "nndiscourse" 'post-mail 'address) + +(provide 'nndiscourse) + +;;; nndiscourse.el ends here diff --git a/nndiscourse/.gitignore b/nndiscourse/.gitignore new file mode 100644 index 0000000..134739b --- /dev/null +++ b/nndiscourse/.gitignore @@ -0,0 +1,10 @@ +/.yardoc +/_yardoc/ +/coverage/ +/doc/ +/pkg/ +/spec/reports/ +/tmp/ + +# rspec failure tracking +.rspec_status diff --git a/nndiscourse/.rubocop.yml b/nndiscourse/.rubocop.yml new file mode 100644 index 0000000..e2673a5 --- /dev/null +++ b/nndiscourse/.rubocop.yml @@ -0,0 +1,13 @@ +AllCops: + Exclude: + - 'db/**/*' + - 'config/**/*' + - 'script/**/*' + - 'vendor/**/*' + - 'bin/**/*' + - !ruby/regexp /old_and_unused\.rb$/ + +Layout/LineLength: + Max: 100 + Exclude: + - !ruby/regexp /.*\.gemspec$/ \ No newline at end of file diff --git a/nndiscourse/.ruby-version b/nndiscourse/.ruby-version new file mode 100644 index 0000000..097a15a --- /dev/null +++ b/nndiscourse/.ruby-version @@ -0,0 +1 @@ +2.6.2 diff --git a/nndiscourse/Gemfile b/nndiscourse/Gemfile new file mode 100644 index 0000000..42ae9bf --- /dev/null +++ b/nndiscourse/Gemfile @@ -0,0 +1,9 @@ +# frozen_string_literal: true + +source 'https://rubygems.org' + +gem 'discourse_api', github: 'dickmao/discourse_api', branch: 'dev' +gem 'jimson', github: 'dickmao/jimson', branch: 'next' + +# Specify your gem's dependencies in nndiscourse.gemspec +gemspec diff --git a/nndiscourse/Gemfile.lock b/nndiscourse/Gemfile.lock new file mode 100644 index 0000000..01c81ed --- /dev/null +++ b/nndiscourse/Gemfile.lock @@ -0,0 +1,98 @@ +GIT + remote: https://github.com/dickmao/discourse_api.git + revision: f7e79ed525bc65567eba49a838d02c8f4a595318 + branch: dev + specs: + discourse_api (0.38.0.pre.dev) + faraday (~> 0.9) + faraday_middleware (~> 0.10) + rack (>= 1.6) + +GIT + remote: https://github.com/dickmao/jimson.git + revision: 22160cf954fdad3d44c4d597b2f47cc7fe58200e + branch: next + specs: + jimson (0.11.0) + blankslate (~> 3.1, >= 3.1.3) + multi_json (~> 1, >= 1.11.2) + rack (~> 2, >= 2.1.4) + rest-client (~> 1, >= 1.7.3) + +PATH + remote: . + specs: + nndiscourse (0.1.0) + jimson (~> 0.11.0) + thor (~> 0.20.3) + +GEM + remote: https://rubygems.org/ + specs: + ast (2.4.0) + blankslate (3.1.3) + diff-lcs (1.3) + domain_name (0.5.20190701) + unf (>= 0.0.5, < 1.0.0) + faraday (0.17.3) + multipart-post (>= 1.2, < 3) + faraday_middleware (0.14.0) + faraday (>= 0.7.4, < 1.0) + http-cookie (1.0.3) + domain_name (~> 0.5) + jaro_winkler (1.5.4) + mime-types (2.99.3) + multi_json (1.15.0) + multipart-post (2.1.1) + netrc (0.11.0) + parallel (1.19.1) + parser (2.7.0.2) + ast (~> 2.4.0) + rack (2.2.3) + rainbow (3.0.0) + rake (13.0.1) + rest-client (1.8.0) + http-cookie (>= 1.0.2, < 2.0) + mime-types (>= 1.16, < 3.0) + netrc (~> 0.7) + rspec (3.9.0) + rspec-core (~> 3.9.0) + rspec-expectations (~> 3.9.0) + rspec-mocks (~> 3.9.0) + rspec-core (3.9.1) + rspec-support (~> 3.9.1) + rspec-expectations (3.9.0) + diff-lcs (>= 1.2.0, < 2.0) + rspec-support (~> 3.9.0) + rspec-mocks (3.9.1) + diff-lcs (>= 1.2.0, < 2.0) + rspec-support (~> 3.9.0) + rspec-support (3.9.2) + rubocop (0.79.0) + jaro_winkler (~> 1.5.1) + parallel (~> 1.10) + parser (>= 2.7.0.1) + rainbow (>= 2.2.2, < 4.0) + ruby-progressbar (~> 1.7) + unicode-display_width (>= 1.4.0, < 1.7) + ruby-progressbar (1.10.1) + thor (0.20.3) + unf (0.1.4) + unf_ext + unf_ext (0.0.7.7) + unicode-display_width (1.6.1) + +PLATFORMS + ruby + +DEPENDENCIES + bundler (~> 2.0) + discourse_api! + jimson! + nndiscourse! + rake (~> 13.0) + rspec (~> 3.4) + rubocop (~> 0.69) + +BUNDLED WITH + 2.0.2 diff --git a/nndiscourse/Makefile b/nndiscourse/Makefile new file mode 100644 index 0000000..fbae043 --- /dev/null +++ b/nndiscourse/Makefile @@ -0,0 +1,11 @@ +SHELL := /bin/bash +REPO := $(shell git rev-parse --show-toplevel) + +.PHONY: test-compile +test-compile: + bundle install --quiet + bundle exec rake + +.PHONY: clean +clean: + @echo Not running bundle clean diff --git a/nndiscourse/README.md b/nndiscourse/README.md new file mode 100644 index 0000000..7419bf7 --- /dev/null +++ b/nndiscourse/README.md @@ -0,0 +1,39 @@ +# Nndiscourse + +Welcome to your new gem! In this directory, you'll find the files you need to be able to package up your Ruby library into a gem. Put your Ruby code in the file `lib/nndiscourse`. To experiment with that code, run `bin/console` for an interactive prompt. + +TODO: Delete this and the text above, and describe your gem + +## Installation + +Add this line to your application's Gemfile: + +```ruby +gem 'nndiscourse' +``` + +And then execute: + + $ bundle + +Or install it yourself as: + + $ gem install nndiscourse + +## Usage + +TODO: Write usage instructions here + +## Development + +After checking out the repo, run `bin/setup` to install dependencies. Then, run `rake spec` to run the tests. You can also run `bin/console` for an interactive prompt that will allow you to experiment. + +To install this gem onto your local machine, run `bundle exec rake install`. To release a new version, update the version number in `version.rb`, and then run `bundle exec rake release`, which will create a git tag for the version, push git commits and tags, and push the `.gem` file to [rubygems.org](https://rubygems.org). + +## Contributing + +Bug reports and pull requests are welcome on GitHub at https://github.com/dickmao/nndiscourse. + +## License + +The gem is available as open source under the terms of the [MIT License](https://opensource.org/licenses/MIT). diff --git a/nndiscourse/Rakefile b/nndiscourse/Rakefile new file mode 100644 index 0000000..5c857b3 --- /dev/null +++ b/nndiscourse/Rakefile @@ -0,0 +1,16 @@ +# frozen_string_literal: true + +require 'bundler' + +Bundler::GemHelper.install_tasks + +require 'bundler/gem_tasks' +require 'rspec/core/rake_task' +RSpec::Core::RakeTask.new(:spec) + +require 'rubocop/rake_task' +RuboCop::RakeTask.new(:rubocop) + +task test: :spec +task lint: :rubocop +task default: %i[spec lint] diff --git a/nndiscourse/lib/nndiscourse.rb b/nndiscourse/lib/nndiscourse.rb new file mode 100644 index 0000000..c7e986b --- /dev/null +++ b/nndiscourse/lib/nndiscourse.rb @@ -0,0 +1,35 @@ +# frozen_string_literal: true + +require 'nndiscourse/version' +require 'jimson' +require 'discourse_api' + +module Nndiscourse + # This proxies DiscourseApi::Client + class Handler < DiscourseApi::Client + extend Jimson::Handler + + def initialize(url) + super(url) + end + + def send(method_name, *params) + params.map! do |param| + if param.is_a?(Hash) + param.each_with_object({}) { |(k, v), h| h[k.to_sym] = v } + else + param + end + end + super(method_name, *params) + end + end + + # Process contains a Jimson Server instance + class Process + def initialize(url, port = 8999) + @server = Jimson::Server.new(Handler.new(url), port: port, show_errors: true) + @server.start + end + end +end diff --git a/nndiscourse/lib/nndiscourse/version.rb b/nndiscourse/lib/nndiscourse/version.rb new file mode 100644 index 0000000..6aa6a5c --- /dev/null +++ b/nndiscourse/lib/nndiscourse/version.rb @@ -0,0 +1,5 @@ +# frozen_string_literal: true + +module Nndiscourse + VERSION = '0.1.0' +end diff --git a/nndiscourse/nndiscourse.gemspec b/nndiscourse/nndiscourse.gemspec new file mode 100644 index 0000000..d8357db --- /dev/null +++ b/nndiscourse/nndiscourse.gemspec @@ -0,0 +1,27 @@ +# frozen_string_literal: true + +require File.expand_path('lib/nndiscourse/version', __dir__) + +Gem::Specification.new do |spec| + spec.name = 'nndiscourse' + spec.version = Nndiscourse::VERSION + spec.authors = ['dickmao'] + spec.email = [] + + spec.summary = 'API calls from nndiscourse.el to Discourse' + spec.homepage = 'https://github.com/dickmao/nndiscourse' + spec.license = 'GPLv3' + + spec.files = Dir['lib/**/*.rb'] + spec.test_files = spec.files.grep(%r{^spec/}) + spec.executables = spec.files.grep(%r{^bin/}).map { |f| File.basename(f) } + spec.require_path = 'lib' + + spec.add_runtime_dependency 'jimson', '~> 0.11.0' + spec.add_runtime_dependency 'thor', '~> 0.20.3' + + spec.add_development_dependency 'bundler', '~> 2.0' + spec.add_development_dependency 'rake', '~> 13.0' + spec.add_development_dependency 'rspec', '~> 3.4' + spec.add_development_dependency 'rubocop', '~> 0.69' +end diff --git a/nndiscourse/nndiscourse.thor b/nndiscourse/nndiscourse.thor new file mode 100644 index 0000000..3b3c3dd --- /dev/null +++ b/nndiscourse/nndiscourse.thor @@ -0,0 +1,13 @@ +# frozen_string_literal: true + +require 'thor' +require 'nndiscourse' + +# CLI documentation string +class CLI < Thor + desc 'serve URL', 'Run the jimson server' + method_option :port, aliases: '-p', desc: 'Port to listen on' + def serve(url) + Nndiscourse::Process.new(url, options[:port]) + end +end diff --git a/nndiscourse/spec/nndiscourse_spec.rb b/nndiscourse/spec/nndiscourse_spec.rb new file mode 100644 index 0000000..775596b --- /dev/null +++ b/nndiscourse/spec/nndiscourse_spec.rb @@ -0,0 +1,13 @@ +# frozen_string_literal: true + +require 'nndiscourse' + +RSpec.describe Nndiscourse do + it 'has a version number' do + expect(Nndiscourse::VERSION).not_to be nil + end + + it 'does something useful' do + expect(true).to eq(true) + end +end diff --git a/nndiscourse/spec/spec_helper.rb b/nndiscourse/spec/spec_helper.rb new file mode 100644 index 0000000..de02fec --- /dev/null +++ b/nndiscourse/spec/spec_helper.rb @@ -0,0 +1,16 @@ +# frozen_string_literal: true + +require 'bundler/setup' +require 'nndiscourse' + +RSpec.configure do |config| + # Enable flags like --only-failures and --next-failure + config.example_status_persistence_file_path = '.rspec_status' + + # Disable RSpec exposing methods globally on `Module` and `main` + config.disable_monkey_patching! + + config.expect_with :rspec do |c| + c.syntax = :expect + end +end diff --git a/scratch.el b/scratch.el new file mode 100644 index 0000000..1b73ba7 --- /dev/null +++ b/scratch.el @@ -0,0 +1,576 @@ +(require 'request) +(require 'shr) + +(require 'simple-httpd) + +(require 'json) +(require 'json-rpc) +(require 'shr) + +;; poor man's +(let ((result)) + (request "localhost:8999" + :type "POST" + :data (json-encode '(("method" . "category_latest_topics") ("jsonrpc" . "2.0") ("params" :category_slug "emacs") ("id" . 1))) + :sync t + :parser 'json-read + :success (cl-function + (lambda (&key data &allow-other-keys) + (setq result (cdr (assq 'result data)))))) + result) + +;; rich man's +(add-to-list 'gnus-secondary-select-methods '(nndiscourse "emacs-china.org" (nndiscourse-scheme "https"))) + +(let ((server "emacs-china.org")) + (nndiscourse-open-server server) + (seq-filter (lambda (raw) (cl-search "emacs" (cdr raw))) + (seq-map (lambda (x) (cons (plist-get x :raw) (plist-get x :topic_title))) + (nndiscourse-get-posts server)))) + +(let* ((server "emacs-china.org") + (group "emacs") + (headers (nndiscourse-get-headers server group))) + (nndiscourse-open-server server) + (cons (nndiscourse--first-article-number server group) + (nndiscourse--last-article-number server group)) + (nndiscourse--get-header server group 72124)) + +(let ((nntp-server-buffer (get-buffer-create "foo"))) + (nndiscourse-request-list "emacs-china.org")) + +(let ((server "emacs-china.org") + result) + (nndiscourse-open-server server) + (with-current-buffer (nndiscourse--server-buffer server) + (mapatoms (lambda (k) + (push (nndiscourse-get-category server k) result)) + nndiscourse--categories-hashtb) + result)) + +(let ((server "emacs-china.org") + (nndiscourse--last-id nil) + (group "emacs")) + (nndiscourse-open-server server) + (with-current-buffer (nndiscourse--server-buffer server) + (mapatoms (lambda (k) + (nndiscourse-set-headers server k nil)) + nndiscourse--headers-hashtb)) + (nndiscourse--incoming server) + (length (nndiscourse-get-headers server group))) + +(nndiscourse-get-headers "emacs-china.org" "emacs") + +(let ((server "emacs-china.org")) + (nndiscourse-open-server server) + (nndiscourse--incoming server) + (length (nndiscourse-get-headers server "emacs"))) + +(let ((server "emacs-china.org")) + (nndiscourse-get-ref + server + (plist-get (car (last (nndiscourse-get-headers server))) :id))) + +(let ((server "emacs-china.org") + result) + (length (nndiscourse-get-headers server)) + (with-current-buffer (nndiscourse--server-buffer server) + (nndiscourse--maphash + (lambda (key value) + (!cons `(,key ,(nndiscourse-get-ref server key)) result)) + nndiscourse-refs-hashtb)) + result) + +(let ((foo (lambda (f &rest args) + (cl-macrolet ((gnus-active (_group) `(cons 1 10))) + (apply f args))))) + (add-function :around (symbol-function 'gnus-group-insert-group-line-info) + foo) + (unwind-protect (gnus-group-insert-group-line-info "nndiscourse:emacs") + (remove-function (symbol-function 'gnus-group-insert-group-line-info) foo))) + +(gnus-group-entry "nndiscourse:emacs") + +(gnus-info-read (gnus-get-info "nndiscourse:emacs")) + +(let ((foo (lambda (args) + (let ((group (car args))) + (if (gnus-group-entry group) + args + (setf (nthcdr 3 args) 10) + args)))) + (group "nndiscourse:emacs")) + (add-function :filter-args (symbol-function 'gnus-group-insert-group-line) foo) + (unwind-protect + (gnus-group-insert-group-line group + gnus-level-killed + nil + 40 + (gnus-method-simplify + (gnus-find-method-for-group group))) + (remove-function (symbol-function 'gnus-group-insert-group-line) foo))) + + + +(nndiscourse--gethash "emacs-china.org" nndiscourse-headers-hashtb) + +(defun nndiscourse--get-header (server group article-number) + "Amongst SERVER GROUP headers, binary search ARTICLE-NUMBER." + (declare (indent defun)) + (let ((headers (nndiscourse-get-headers server group))) + (cl-flet ((id-of (k) (plist-get (elt headers k) :id))) + (cl-do* ((x article-number) + (l 0 (if (> x m) (1+ m) l)) + (r (length headers) (if (< x m) m r)) + (m (/ (- r l) 2))) + ((or (<= (- r l) 1) (= x (id-of m))) + (and (< m (length headers)) (>= m 0) (= x (id-of m)) (elt headers m))))))) + +(defun bsearch (article-number) + (let ((headers '((:id 3) (:id 5) (:id 13) (:id 23) (:id 30)))) + (cl-flet ((id-of (k) (plist-get (elt headers k) :id))) + (cl-do* ((x article-number) + (l 0 (if dir (1+ m) l)) + (r (length headers) (if dir r m)) + (m (/ (- r l) 2) (+ m (* (if dir 1 -1) (max 1 (/ (- r l) 2))))) + (dir (> x (id-of m)) (> x (id-of m)))) + ((or (<= (- r l) 1) (= x (id-of m))) + (and (< m (length headers)) (>= m 0) (= x (id-of m)) (elt headers m))) + )))) + +(bsearch 29) + + +(setq nndiscourse-headers-hashtb (gnus-make-hashtable)) +(let ((server "emacs-china.org")) + (seq-map (-rpartial #'plist-get :post_number) + (plist-get (nndiscourse-rpc-request "" "posts" :before 0) :latest_posts))) + +(defun nnreddit-rpc-get (&optional server) + "Retrieve the PRAW process for SERVER." + (setq proc (make-process :name server + :buffer (get-buffer-create (format " *%s*" server)) + :command praw-command + :connection-type 'pipe + :noquery t + :sentinel #'nnreddit-sentinel + :stderr (get-buffer-create (format " *%s-stderr*" server)))) + proc) + + + +;; run thor on command line, and don't instantiate it in emacs +(let ((server "emacs-china.org")) + (cl-letf (((symbol-function 'nndiscourse-open-server) (lambda (&rest args) t))) + ;; (nndiscourse-rpc-request "" "category_latest_topics" '(:category_slug . "emacs")) + (nndiscourse-rpc-request server "category_latest_topics" :category_slug "emacs"))) + +(let ((server "emacs-china.org")) + (seq-map (-rpartial #'plist-get :title) (nndiscourse-get-topics server "emacs"))) + +(let ((server "emacs-china.org")) + (seq-map (-rpartial #'plist-get :topic_title) (nndiscourse-get-posts server :before 71000))) + +(let ((server "emacs-china.org")) + (apply #'min (seq-map (-rpartial #'plist-get :id) (nndiscourse-get-posts server)))) + +(let ((server "emacs-china.org")) + (seq-filter (lambda (raw) (cl-search "org-mode" raw)) + (seq-map (lambda (x) (plist-get x :raw)) (nndiscourse-get-posts server)))) + +(let ((server "emacs-china.org")) + (seq-filter (lambda (raw) (cl-search "word wrap" (cdr raw))) + (seq-map (lambda (x) (cons (plist-get x :raw) (plist-get x :topic_title))) + (nndiscourse-get-posts server)))) + +(let ((server "emacs-china.org")) + (seq-map (-rpartial #'plist-get :slug) (nndiscourse-get-categories server))) + +(gnus-group-full-name "programming" "nndiscourse:") + +(let ((server "emacs-china.org")) + (gnus-get-info (gnus-group-full-name "programming" `(nndiscourse ,server)))) + +(let* ((rpc (json-rpc-connect "localhost" 8999)) + (cooked (plist-get (json-rpc rpc "get_post" 12) :cooked))) + (with-temp-buffer + (insert cooked) + (shr-render-buffer (current-buffer)))) + +(json-read-from-string (buffer-string)) + +(makunbound 'httpd-root) +(custom-set-default 'httpd-root "/home/dick/nndiscourse") +(custom-set-default 'httpd-port 9009) +(httpd-start) + +(let ((site "http://localhost:3000/login") + result) + (request site + :parser (lambda () + (let ((foo (make-temp-file "foo"))) + (write-region (point-min) (point-max) foo) + (eww-open-file foo))) + :data '(("username" . "priapushk@gmail.com") + ("password" . "StT9nyTvyD") + ("redirect" . site)) + :sync t + :success (cl-function + (lambda (&key data symbol-status response error-thrown + &allow-other-keys + &aux (response-status (request-response-status-code response))) + (setq result (format "SUCCESS: ss=%s r=%s et=%s data=%s" + symbol-status response-status error-thrown data)))) + :error (cl-function + (lambda (&key data symbol-status response error-thrown + &allow-other-keys + &aux (response-status (request-response-status-code response))) + (setq result (format "ERROR: ss=%s r=%s et=%s data=%s" + symbol-status response-status error-thrown data))))) + result) + +(let (result) + (request "http://localhost:3000/user-api-key/new" + :type "GET" + ;; :parser (lambda () (shr-render-buffer (current-buffer))) + :parser (lambda () + (let ((foo (make-temp-file "foo"))) + (write-region (point-min) (point-max) foo) + (eww-open-file foo))) + :data `(("auth_redirect" . "https://localhost:9009") + ("application_name" . "nndiscourse") + ("client_id" . "nndiscourse-0") + ("scopes" . "read,write,message_bus,session_info") + ("public_key" . ,(shell-command-to-string "gpg --export-secret-keys 87681210 | openpgp2ssh 87681210 | openssl rsa -pubout")) + ("nonce" . ,(shell-command-to-string "head /dev/urandom | tr -dc A-Za-z0-9 | head -c10 -"))) + :sync t + :success (cl-function + (lambda (&key data symbol-status response error-thrown + &allow-other-keys + &aux (response-status (request-response-status-code response))) + (setq result (format "SUCCESS: ss=%s r=%s et=%s data=%s" + symbol-status response-status error-thrown data)))) + :error (cl-function + (lambda (&key data symbol-status response error-thrown + &allow-other-keys + &aux (response-status (request-response-status-code response))) + (setq result (format "ERROR: ss=%s r=%s et=%s data=%s" + symbol-status response-status error-thrown data))))) + result) + +;; can't use curl because authorization requires javascript +;; need to go through the browser, but can't auth_redirect, must +;; copy-paste to emacs sadly. + +(defun nndiscourse-first-to-succeed (&rest commands) + "Return output of first command among COMMANDS to succeed, NIL if none." + (let (conds) + (dolist (c + (nreverse commands) + (eval `(with-temp-buffer + ,(cons 'cond conds)))) + (push `((let ((_ (erase-buffer)) + (rv (apply #'call-process + ,(substring c 0 (search " " c)) + nil (quote (t nil)) nil + (split-string ,(aif (search " " c) (substring c (1+ it)) ""))))) + (and (numberp rv) (zerop rv))) + (buffer-string)) + conds)))) + + +(print-out (cl-macroexpand '(nndiscourse-first-to-succeed "true" "false"))) +(nndiscourse-first-to-succeed "false" "false" "true") + +(let* ((nndiscourse-public-keyfile (expand-file-name "~/.ssh/id_rsa.pub")) + (nndiscourse-private-keyfile (file-name-sans-extension nndiscourse-public-keyfile))) + (nndiscourse-first-to-succeed + (format "ssh-keygen -f %s -e -m pkcs8" nndiscourse-public-keyfile) + (format "openssl rsa -in %s -pubout" nndiscourse-private-keyfile))) + +(defun build-query (&optional site) + (unless site + (setq site "http://localhost:3000")) + (let* (result + (shell-command-default-error-buffer "*scratch*") + (nndiscourse-public-keyfile (expand-file-name "~/.ssh/id_rsa.pub")) + (nndiscourse-private-keyfile (file-name-sans-extension nndiscourse-public-keyfile))) + (format "%s/user-api-key/new?%s" + site + (url-build-query-string + `((auth_redirect "https://api.discourse.org/api/auth_redirect") + (application_name "nndiscourse") + (client_id "nndiscourse-0") + (scopes "read,write,message_bus,session_info") + ;; (public_key ,(shell-command-to-string (format "gpg --export-secret-keys %s | openpgp2ssh %s | openssl rsa -pubout 2>/dev/null" "87681210" "87681210"))) + (public_key ,(or (with-temp-buffer + (let ((retval + (apply #'call-process + "ssh-keygen" nil t nil + (split-string + (format "-f %s -e -m pkcs8" + nndiscourse-public-keyfile))))) + (when (and (numberp retval) (zerop retval)) + (buffer-string)))) + (with-temp-buffer + (let ((retval + (apply #'call-process + "openssl" nil t nil + (split-string + (format "rsa -in %s -pubout" + nndiscourse-private-keyfile))))) + (when (and (numberp retval) (zerop retval)) + (buffer-string)))))) + (nonce ,(shell-command-to-string "head /dev/urandom | tr -dc A-Za-z0-9 | head -c10 -"))))))) + +;; eww doesn't fly for lack of javascript +(build-query "http://localhost:3000") + +;; client = DiscourseApi::Client.new("http://localhost:3000") +;; client = DiscourseApi::Client.new('http://localhost:3000', 'b28f0cea1b4fb749b9a3b8683760388c', 'priapushk', 'User-Api-Key', 'User-Api-Client-Id') +;; proc = Nndiscourse::Process.new('http://localhost:3000', 'b28f0cea1b4fb749b9a3b8683760388c', 'priapushk') +;; (let ((user-api-key +;; (alist-get +;; 'key +;; (with-temp-buffer +;; (shell-command (concat "openssl pkeyutl -decrypt" +;; " -inkey <(gpg --export-secret-keys 87681210 | " +;; "openpgp2ssh 87681210 | openssl rsa 2>/dev/null) " +;; "-in <(cat /tmp/decryptme | base64 --decode)") +;; t) +;; (json-read))))) +;; user-api-key) + +(user-api-key "https://api.discourse.org/api/auth_redirect?payload=DiHDYIoM2pzmLfdh2FnZhwTyQfK8bdbebiol2jBouObQGojI5yF%2ByoO00ael%0AO7LstQj1uCBjQnO%2BjrbI03Bvbz1LDvQyVAMYMIPBmwam48JqfCQHm73Z0Qkc%0A%2Bid4LNo8xiP2EiycQKgYRh2KY1y19v%2FXD3Osm6o%2Fn%2BrawpVdJ0fSZTgBkHV%2F%0AcjaCAIRpOOoFzlH1CeSZBUTEl6GhT1ALKR7yurqS2GZ5MW8bIts3MYV5FQss%0A0jSDH6AG2xJENBpRJ9x%2FvM5t5DRbp2jy3105H4d4se2Qfexgf1dfrvDOpaIZ%0Aq5UTqnOatPZ94vIqjBYTnlroh8hlGGU8QKK01k6QhQ%3D%3D%0A") + +(defun user-api-key (return-url) + (let* ((emacs-china-url "https://api.discourse.org/api/auth_redirect?payload=ZYOTYZz0uM%2B3xBIRTN%2FsOoz3iZvLW%2BdWtPT%2FAOD8Ge1PWJjpGWPijLQlukl7%0AjcD%2Fd2IOTM8fBUUxO9R2P314frGKTHQ1bx%2FLCVxXhcD7CN%2FQxxPUYkr3BEui%0ANAUVW0uIH8el6VbPfPoeUfTp%2BGGYNBNkpqdZJj1sTqi%2FcbrXMlMUSfsYlqKW%0AQLQYr1XuY42vT1B%2FmVUH1i7xad6c3bb6ayQrBoTFJicEG14tEa%2BAtICUu9KI%0Aod%2FlZ2Sq%2Ffid7qnS9q0Z7l4vl6nOkT3T8ngqU2Bajx0Jo6pVcDLw6lcLv8bk%0A%2Bc2HI%2BY4zT98cEzdJjJ2XxvUnEqCPXvs6VvYe9vRcw%3D%3D%0A") + (parsed-url (url-generic-parse-url return-url)) + (encrypted (cl-second + (assoc-string "payload" (url-parse-query-string + (cdr (url-path-and-query parsed-url)))))) + (user-api-key + (alist-get + 'key + (with-temp-buffer + (shell-command (concat "openssl pkeyutl -decrypt" + " -inkey " (expand-file-name "~/.ssh/id_rsa") + " -in " + (format "<(echo %s | base64 --decode)" (replace-regexp-in-string "\\s-" "" encrypted))) + t) + (json-read))))) + user-api-key)) + +(let ((foo (gnus-make-hashtable))) + (nndiscourse--sethash 1 '(a b c (c . e)) foo)) + +(let ((foo (gnus-make-hashtable))) + (nndiscourse--sethash "froo" '(a b c (c . e)) foo) + (let ((posts (nndiscourse--gethash "froo" foo)) + (index 2)) + (when (< (length posts) (1+ index)) + (nndiscourse--sethash "froo" + (nconc posts (make-list (- (1+ index) + (length posts)) + nil)) + foo)) + + (setf (elt (nndiscourse--gethash "froo" foo) index) "hi!") + (nndiscourse--gethash "froo" foo))) + +(let ((id (plist-get plst :id)) + (group (plist-get plst :creation_id)) + (topic-title (plist-get plst :topic_title)) + (post_number (plist-get plst :post_number))) + (nndiscourse--sethash + id + (list group topic-title post_number) + nndiscourse-location-hashtb) + (nndiscourse--sethash + group + (let* ((posts-hashtb + (or (nndiscourse--gethash group nndiscourse-headers-hashtb) + (gnus-make-hashtable))) + (posts (nndiscourse--gethash topic-title posts-hashtb))) + (when (< (length posts) post-number) + (nndiscourse--sethash + topic-title + (nconc posts (make-list (- post-number (length posts)) nil)) + posts-hashtb)) + (setf (elt (nndiscourse--gethash topic-title posts-hashtb) + post-number) + plst) + posts-hashtb) + nndiscourse-headers-hashtb)) + +(setq gnus-server-method-cache nil) +(gnus-server-to-method "nndiscourse:emacs-china.org") + +(setq gnus-secondary-select-methods (cdr gnus-secondary-select-methods)) + +(gnus-method-to-server-name '(nndiscourse "emacs-china.org" :scheme "https")) +(gnus-find-method-for-group "nndiscourse+emacs-china.org:emacs-general") + +(add-to-list 'gnus-secondary-select-methods '(nndiscourse "emacs-china.org" (nndiscourse-scheme "https"))) + +(nndiscourse-open-server "emacs-china.org") +(nndiscourse-proc-info-process (cdr (assoc "emacs-china.org" nndiscourse-processes))) +(let ((nntp-server-buffer (get-buffer-create "foo"))) + (nndiscourse-request-list "emacs-china.org")) + +(process-contact (alist-get "emacs-china.org" nndiscourse-processes nil nil #'equal)) + +(mapcan (lambda (b) (let ((foo (buffer-name b))) + (and (cl-search "stderr" foo) (list foo)))) + (buffer-list)) + +(gnus-find-method-for-group "nndiscourse+emacs-china.org:emacs") + + +(condition-case nil + (prog1 t + (delete-process (make-network-process :name "test-port" + :noquery t + :host nndiscourse-localhost + :service 37529 + :buffer nil + :stop t))) + (file-error nil)) + +(gnus-compress-sequence (gnus-range-normalize '(72330 . 72367))) + +(set (gv-ref (with-current-buffer "scratch.el" + this-is-mine)) t) + + +(format-time-string "%a, %d %h %Y %T %z (%Z)" (date-to-time "2020-02-04T12:52:06.942Z")) +(date-to-time "2020-02-04T12:52:06.942Z") + +(let ((marks '((unexist (1 . 1) 4) (halle t))) + (marks nil)) + (setf (alist-get 'unexist marks) `((2 . 2) (1 . 1))) + (alist-get 'unexist marks) + ) + +(require 'shr) +(rfc2231-parse-qp-string "Content-Type: text/html; charset=UTF-8") + +(defmacro mm-with-part (handle &rest forms) + "Run FORMS in the temp buffer containing the contents of HANDLE." + `(let* ((handle ,handle)) + (when (and (mm-handle-buffer handle) + (buffer-name (mm-handle-buffer handle))) + (with-temp-buffer + (set-buffer-multibyte (buffer-local-value 'enable-multibyte-characters + (mm-handle-buffer handle))) + (insert-buffer-substring (mm-handle-buffer handle)) + (mm-decode-content-transfer-encoding + (mm-handle-encoding handle) + (mm-handle-media-type handle)) + ,@forms)))) + +(defun mm-shr (handle) + (let ((shr-width (if shr-use-fonts + nil + fill-column)) + (shr-content-function (lambda (id) + (let ((handle (mm-get-content-id id))) + (when handle + (mm-with-part handle + (buffer-string)))))) + (shr-inhibit-images mm-html-inhibit-images) + (shr-blocked-images mm-html-blocked-images) + charset coding char document) + (mm-with-part (or handle (setq handle (mm-dissect-buffer t))) + (setq case-fold-search t) + (or (setq charset + (mail-content-type-get (mm-handle-type handle) 'charset)) + (progn + (goto-char (point-min)) + (and (re-search-forward "\ +]+\\)[^>]*>" nil t) + (setq coding (mm-charset-to-coding-system (match-string 1) + nil t)))) + (setq charset mail-parse-charset)) + (when (and (or coding + (setq coding (mm-charset-to-coding-system charset nil t))) + (not (eq coding 'ascii))) + (let ((convert (buffer-string))) + (insert (prog1 + (decode-coding-string convert coding) + (erase-buffer) + (set-buffer-multibyte t))))) + (goto-char (point-min)) + (while (re-search-forward + "&#\\(?:x\\([89][0-9a-f]\\)\\|\\(1[2-5][0-9]\\)\\);" nil t) + (when (setq char + (cdr (assq (if (match-beginning 1) + (string-to-number (match-string 1) 16) + (string-to-number (match-string 2))) + mm-extra-numeric-entities))) + (replace-match (char-to-string char)))) + ;; Remove "soft hyphens". + (goto-char (point-min)) + (while (search-forward "­" nil t) + (replace-match "" t t)) + (setq document (libxml-parse-html-region (point-min) (point-max)))) + (save-restriction + (narrow-to-region (point) (point)) + (shr-insert-document document) + (unless (bobp) + (insert "\n")) + (mm-handle-set-undisplayer + handle + (let ((min (point-min-marker)) + (max (point-max-marker))) + (lambda () + (let ((inhibit-read-only t)) + (delete-region min max)))))))) + +(with-temp-buffer + (set-buffer-multibyte t) + (save-excursion + (insert "

最近也想尝试,但是感觉蛮难的,比如不知道如何在")) + (let ((handle (mm-make-handle + (current-buffer) + (rfc2231-parse-qp-string "Content-Type: text/html; charset=UTF-8")))) + (cl-assert (not (zerop (length (with-temp-buffer (mm-shr handle) + (buffer-string)))))))) + +(require 'polymode-core) +(defun ein:markdown-syntax-propertize (start end) + "Function used as `syntax-propertize-function'. +START and END delimit region to propertize." + (message "got here %s %s %s" start end (pm-innermost-range start)) + (with-silent-modifications + (save-excursion + (remove-text-properties start end ein:markdown--syntax-properties) + (ein:markdown-syntax-propertize-fenced-block-constructs start end) + (ein:markdown-syntax-propertize-list-items start end) + (ein:markdown-syntax-propertize-pre-blocks start end) + (ein:markdown-syntax-propertize-blockquotes start end) + (ein:markdown-syntax-propertize-headings start end) + (ein:markdown-syntax-propertize-hrs start end) + (ein:markdown-syntax-propertize-comments start end)))) + +;; Same boat here, although I am only trying to use User-Api-Key (not Api-Key) to create a topic post and am getting CSRF denial from the actionpack library. + +;; Unless the discourse server has turned off CSRF checking, posting from a third-party desktop app seems hard. I’m not about to emulate a browser. + +;; which see ~/discourse_api/gem-transcript{,2} + +(with-temp-buffer + (let ((html "

最近也想尝试,但是感觉蛮难的,比如不知道如何在")) + (insert + "Subject: " "foo" "\n" + "From: " "nobody" "\n" + "\n") + (mml-insert-multipart "alternative") + ;; (mml-insert-empty-tag 'part 'type "text/html") + (mml-insert-part "text/html") + (insert html) + (insert "\n") + (when (mml-validate) + (message-encode-message-body)) + (buffer-string))) diff --git a/screenshot.png b/screenshot.png new file mode 100644 index 0000000000000000000000000000000000000000..2e2c87990864187b41363ace3affb4d0255de0b2 GIT binary patch literal 79292 zcmZ5{1z1#3*YzM$QVK|yGPHC`N;9N{bTgD7-7P5~t#qeIceiwd#L(R^bjN@3eZRka z3?3QoJ@@Rr*IsMwb3;BVNMXJpegOi3Fd@?7${^4)U*L}sDl+gt>LL!mfq$Mmh(c6R zfnT1e&~G3RB?uxeqUxHmzu@Ajx|O>9IP%`iebStB7fJk8f@vt5ft77L^`zZ=1@oUi z;>wHg%H*_ps86d^#o~H*Bdiey)$9qWEXSp_3-<_jTui3e#&RaX6zUcN?ZIK)(Gl-Q2YCrCQn~Yp)03NvyoEd>2kx^NqHfL zX2yR$SCgZIP&{5?SzD|Ob*2#Kw`wkC}&u(^z^KUR~AIF&CMF0=CvU}eumcwIv9+sb*& zL0A1YE=smz;&RUDL2rzoH3^X@G@=#CcN;2IoPGeU@0a^7NlJMUhQUHhZ3X6p%ricR zCXl{;3YKWx@854hq+d1ONwO0D**aZum`93KBStLBQ z|J`y;4fpQe9>TBRzq889j^tDis*3cQ-8Hs!y{|VqhdIb2D{Yp9Oh?j&;+V956&3w~ zUm}jeU=U+ts!G!#qk%Z4zkmNO+wuktI*c+eYe@I#=>_Br5b_zAC%h&~Ukb|HX}Yv0 zyS)t9HV?`Aja*SewSyeu9b@_T>VL>d73bg~4X)*h4*v8T_ySzMlV;~;!=nt+UD8)e} z!;tW98AX`zECucb_n_+MAjDv|oO%bWyt|7)f6zEmFphs}bhK?t_|fgzS5Q*k*!Vbm z5$L7DIFcvS28C$|jdX*(!4ztC{h1H`xPfX~DL2GPQ6hk{<49}H7n(<9fxL~JlnF(Y zlpn|w%Ub!E&^)(Wkf`}SD-8enN{5oR_Q2_gu%fOm8Gaa2`bf|Dw7w#oFPE0jejOFw za?2dA>r4bf!6MBlD#ECpljkKpbn$+Nzqa7A)MZ_pentu;b%Y#^|L@?Q0@fe&`}daWOWqVUdEMz?uLF>EZE~@8ExXw;Deyd(^A6apH~;MGCBAo{F)=YQK4L)a2xN@y!zg@RmYwY%6omY6Ve`mM zaEI{Y#}8Xz-;cJlBcH7|i1%pOfUXW~d_3CL9#2>v{Yv(zJ|k3X75|8fI~mY_U?+H9 zs#A{xi8*p_=H%fy-P3pI9&gDci8-XYcVe%@bA%ijn(Wsp8@l5gYd0WbR z2iKE6T3ER;3Zr@n81KdLe&xujEiWB2b6!hJ+E6kN6$B>+eB4c9vut1gtE9yAV76K= zg*O_?-e==;s|}QS{aOV7w=ScnBB2Co!(mhIv!!JsmnD8M7MaoH?@xotJlK&vogVP! zp4aL+Uw{9;d$?@f(q6j3#}5lE^*XQwwg#yFzUIrtfk>Y_<2Ytr8EtJ6Y{9daL58eO zyQ&xPrS!(Uk92<~6orBOrV$oShx+9bWJimBo^1QYucUyneqz6wdIVn3s)=$dY zXsNr{r&Q&Z=C z9`EP9Zx8+$v4J70*gjW?Q44P7;{dknx1>~5urC5TCnF=1An3teyXelyv*=3Y=H_;{ z*ZRP?bk)s6$H+)Uh*4p;CK=NQ*1zsozdFko9_qvv9t>k?K_%VmDw{j7nkh4EJE{FL zhuju~N#eQ^NO1KxU#M%k<$|lBp#fkS#z!*$sfegPXpn&71gCNVo|BW4z{QNQ=i}`X ziUE)yo-643l(BsodpBh#d?XRrAjP5ygPtI&Xz2_(nRJ#)(@G){iy(Q+ONQ+iVz4AuPmm%bcoE zY21VLaGm~`*cVI7VbYI>(MgFPwqjpze;rA}6A>4O&&SXI)ymQsNY=Spn=POlh)+8` z#R`bw(e1r>wi57x`jsFO`?b?~Yo2lqj7nIFWhNs7Lso7sl7td+Q_Er%ZQK&cx|6fB z5g{@c7gtqn?ZoUXUjvWE%YZkSwdi#f6){reZs7PlbzagS$K@qFYY6GPENfv7||p;gitn@9a< zD6j9A0MVgt`5v!THl7Y9u=xY%2|VZ3vOo4yT{Sn8fgmwAjv;ARSIh1Gpn3Pbe^_?2 zSBjWH_hNE#5_ESQ>9f9>Y?D`A{W^U_is7eG_jjUsx2;sGrIu8R`)#Q|Yjyy;blWSg z^|czkNM5=NvgQ2_h6vnjXD7(f{4Ojk`1K34Ts^I44687)T5Ni+p1!uEohO&bZgAaf z(=x5+!L(wVkbbvLJMXgOH3&c(9=rr#0nrNi!IQc>&W#Q}*?ZHaBZ8$CTIpy;R0qlj zLuUOHc6ISxyoD1dQ*-8*VS#Ewc&SCo~NWnT7J{)z&?;^v|U ze8WummWU=6t#LsJng-xNuVhZMEQ{*Y6+QhI8XQ^UnAcd=Hu)(vWe-nQzaMDXvq*EVb zF_D-0m7fW%yZ!!hNzu-ZEndeSt-89pQx92E3s5)Z_8a})D2pD>1Wt{ZCx~5i zL0?&xp;H~~H2V8JM(S;>qg;sclVeK#6oD$NxV$d0c`RjN8$;JR0vVT402>en-O)Urv0Wd*;92gTPWVm)Y+|N z^lSl*dDksXW)Wa4H#hE^Bk3am{?fgB2WDZx?p=(%xNzPaO76Ki-+Rgt(@M<5t=Vcz zMRL%yyE{gkkE-lMl?x%(y}d~h3np1r^Wnk<1Ba+@>GAO1|4NFEY;2R6I7CfO|FYcM zz??P4I$q>#t-*H0r{_ocoe2`dnkbjgNt4UdoJB`_FuXnVc=hSgBb@^yTaiz98rJB- zqFrP4=BErBz_G2HjwMO4P%tquy-q&iQBPa4rR?$l)CIHxuY;b)0as{P*sYxTO9f`~ zNL;L7fM?xnT_N*3vjfylXbMRnikfHo=%G@I?p@-yx5=YU;jSMy%sKs|Pn7wFyUxBxs7Zgt;MvZE zW`iTWLOw1e2H-5Dg6>sI^_`e%ikCOQk~jd4SfKi%aFTE8(|eXW9cDmCev8C39R=Cm zWHHE@2D+s4eH+n^kS{l2V_bjDD;>yr(K06qp7~DC^kxsag62&j4bBcLN^GOX)ip#_ zo{6Xk70}-VpxDY2XO3~{(&lb0yFJ=vk zPfDLMB_FDpmzNjR>~R?*lN(g+7{b~R^cr;0a5DAYvBr7A^%oftl7uoV>!{;vGXAcg zD)c3EyedwwpQPRjRmXv|3Lx77b|t~MOh~8%LS1G#S!LnlxtPcO_ldiWW7h;WV@c~m z$(4N~JD`6&-IY~q(DanPxSlqp0Vu(@kxtbAl;g{Q%0fl-<&;Kby_Z@~S{w*S>lbg& zPlsFHx@~Itgx~1@{rHhmOsK@I0KRV9zehkNAbbV-=UY(f7>NJ(7PensJ<;6wobr-3 z&~O)DI1O4(|xgN5Erl zA>bmH2jsy5bYLCRoEP~37l#vC>W*MaS3UG<|_=$~3vxf0NAdT&Vw zeT|E_6o`r%s)>#J^2-847qLx~jl^Tekx$6;?nh~EeC3_dpqq(*TI`NB%~Vj3T;G*#hY>c&^fWvYwNC<@mNE~+22rC~>UH@BvzIHJIa>VT=<7W9> zv^Ik>!rF&VtMhYWjv*wuQ$H5Hg?V&8+# z+)M(CSs-9*den_6zEy}(q)+RU-JUsGr=QG@w{loZcB5+lGLn@avG6$7-x|55=c6l| z-PJfcdA7YFjDZxt7znNCu)8F!xXd&@Fy8+B0*d5_sckr9k&pNxCOXH;zp>Ds*^NVp z&0yiLD}j{$11;#CTkh4?ykB3UqInPF2X5Xn0>ySsA#@BfOA)Suh*|IJgoQx!PsmC_1;Pm@Vx<@f7>EKR zam^|$o+&OD)K@IM@0;?fdN^+dvBJE5c->K;45Cw3t(ojot61DF$J04eOx^vSFZT<) zG&qgqx0qdXvcAC$+0?D?sTn8II2{P#v8Fikl!9Tfr*-In%#-qE$jR;KRUj`Xi5Hkw?na*nV&j)5q|%&{TU6p~jg6UL%2+tiO@SvxdtS$mJmq z=o_g!1%&NY-I+DsZC~v|>=)+!+zG`3EUyzbnC+*bT#v1RZBlfQ6yu|iN#Ykg{nOWu zTxcz?c9=Y`6+#ITxoT?!mX`&EO>fVhU=&>V|2CZ6c8g!uTE1fS_D~|g4+i~6V9Ct01 z$oP<|l{8nk)~$2L6ljkjbfUag0>Wm@L>S4$8m+N_9M#6}L{t#b32jI&+f*OFyJ(F) z{4H#;w-8b#{w<^|&F1nwv*fES}LiHQnD?;&YNXlEOw>fhg zet(E_V&@7@Xv? z(U7a4?)umm;M{`YTj`09gbsf*){yRKrduLm_NxM@V2i8MNAjOHDF=6r+yamyI}&^w z`iEAm6x*z$oJB6(^B3G5#`?WP@m-oAsld|WAe@??LA;T5okz747*O+{f z9ixOSIi*@{wCkw?XgpJr^44VaYD%ngRB27*1#@$(#+sT@xVGIVmbW%Hn4GQUWMcBE zRZX!zkRP@Y$-$MMg+k(*9gFVIeTxTzN?tAAsFq@=yEb@5(j41dl}( z2kMAW*mePLCK*c%7MWl!`B;I6!@-;AB zDlB+=_CnzBI4tO0j}kY!N1rMPgGtQ%(h_K)*p;;jHIt92Bn)FMo9cMF4=z7+?qAPN z-4SDu^^LND5m}=!yj*b!F#NYyoIo1IYr#UT!PObWHbY#0NNSgXj5W2P4~bi-KlYNO z32BD%H6(ScpS@wkS8hjc>wS=at(wgP@2?4+o2TQ(Zh2q(a&cPt1Ic%oirhoWh|v&* zl=+ry0Cp3P?MGAS2Mz<@@|229|7a2Q+fB>kI6v@OqB|x{G71;@pCoDtZQ4!ylqlN}i?KlA}Qh57v+OT>b{J`zy+A#td0 z=uM$vu@RW9VzQ1DjBvcAz2_ozW#Mihb7ulWreArM102S>Ka0|M&eyb!-4Rt{8(+FV z`yd6A%aY=rXx?+0$7RU}u*t&x{7uk=k-Y$fZ7t1~h|s-;#DcI&^@sSH+MwHpD~&!H z?Q`>~4_q~VXtc%YF8y3}w0a8ait)OOgNhN>4_wpBNmbxE>R%?k>0TT(>Ij*-rCEjd zJ-oSmd#pecwE+?Sl9ZJ|J8;7ln?91$5*>@VwQ#@h`F{3*<&53v()!isfoyw+ZfEpJ z3nY~^Jjy{>fDx2uWS*E7m!4TF!k$>U&=cV~SON-)6R~rJ1Si@4&`&|HITug3sBY~R zzH}z-Qb9fNPSxndmpN%ssBjW)Kk#`XE0{AsXBq3xHUDbR;`?wPaWo==fJ`)P-1XQ4 zGtRvD&F1cR<+x?I9~k?Az3isP&>ratVymEpmLl9NvfkAAKGeS~Uf_EputSLTZlqX0 z#NYv?jUgsg-XP5he_QcL=1Bl#WTru{hoivA50iux@1(^mw$D}BOLhQ78Cfr^z{WtV zG+u`A!q)hZ;^##!TWZVJ)mPJ8-xnAl9v;X0=Ijd|OC7!7@~a-hAx0^64&Uej0tf&qJ&>Bi z&e2a8@?Gl;ZArorB}0ng+Ye7f+k6o5gZjDXczbsKygT>ond392R~^I&QOO6}bbS&2 zD(*C{86J}t=4VgfMb_v`|M*1Ru3|s9PTZsy|CIq0In|Tg&=BW@gslq zQobZ&So@?MdI204{w0*THB!|~usnM%Y6xqvWM4yS`YN!h=^hTk({r||d0m@t!d!Jq zEy}Mi8Z)HoeL)-G+$sZP-f`YSf?!~0Luro+6&WJ34=AW4E7#bShJ{+I5t-?Ar<$t2 zk=;wn8FpJ@Cb1%Guaet&VK_iP_<0)Vv_6Id%!E_uk&HB#U?ts0J$;2K#z<5)K>F;v zx+?C1MpN#uas@Et4KANdks&(LDI5&*_Qmyy*I8rk+AYl4I7m0uUeDcMPw42n#Nn^7 zXzLROgi0q@9zq6~vF`WgtKGyq+Y;16SG32b5kq@?-?(<*o^jj5)t(e3g}JsN0U z7h29B7_2XU?zmkPVb?5stdwEjS3kzSxTFFWWHzo`gf!X9&7-VHkmsob5+a5cl5`z*sd1W!?=^;lQ!96IPM90W zV+SJBLVrhf`u52CC8-gL$vz_?n_sl%rU@NZKqyQjjaA%M0(>2#= zLjgV*Wvf{CU1N zpXLW#j^#BFamSKfl#UB1a0+x0djYIXIPEV(rintUHDXK?y+vv5&mBlUMgv-6)Q|nO z9SW)Rs^`9=X*?*+rBpvdssQC9FA!VVs@@RSZgm+Alr6E3#nPb>i=eJeqg{G^)gn+XtochF)P3XN5npN>~?Hm?pWZ8J2 zv?6b1_>EOhHGb+o;{K15_)3b+?H-p*?0I&lck<3wDmF(tWd`pn`ee*6_W%h~(Z{#l zcBQhB=!$gQ{YB&c6R(U}TC}59RzjevcsVMVw{36xBaMr%pRAD7`Y4LDDZi^CNLO_i4Dj-|Thl2aoM_Qg3f?Qpq_+EJkWumR6Gfh*D0Z`t=)>OEb zD7_K70%C7b)U&(A>IwcWUTkvsV|f;i z4}&5~h$wcwFTbTG`#d;gP=!qMR(n5(4=cUAfiNl5YPa#uza%$$eas7>-aJ7inY<^N z`6k1hGp@g)H`6hU&57g=vvdXmVS=`WYAhZ*s!?EoB1hwKTx8K#HQiFw-+mb?C9S?W zXXi(^m9P6AS4-ZlB!mtqn0n*B8pL|*(Fyr!{)YjrkAl$D@r5A`^xqD#h7ntI$sy2T zW&|9|8PT4GrSV&S#^f(EFD$?De34Qsni(+5Ho%aAU*;<0=6F@vEzbFwb6+1 zl_v!U_o^JhVUMxu{`5ZBeBr3&2esB^v}SXt_<#^zBZ^s<72pm4Z54O+o_ME(s*d(u z$Et3WZq-d)20M@V2kuyxF()9;DPav1Fssh}7tlQ?WHp{XfJ4AUzOe%W))DTFDRqoD zzebQ*2>GjF=G;e6Atq{tgbP&dI*m~s!&VII90J;xs0|lrAtKY%Pcjr4?hG!N!1fN| z&ZrU&Q==V#6vIP`8x8Pcq{-*_@1#b+Z0}F#G%uV$c){2hspEUCu|soKoujHUCHKf= z6hcA_17>J`wuVHNKPBW9gljq=`Au<)20-EN)Au{&({p2+D!!`df^9Y3xzz$#;v-pe zwh-M07%%G#z06wsg>Ax@+^gYplIO`aRyD@+0$p^20bf+UOKV!x1}F5Zh(w)793Z zT$UZ9e5s)LElQ-(xnf(AKBUQzqo$*ew~)Dg9m_XoS%v|Y$hwpYAHTwu3?2%{R`|Fz_I)geh98S~A;uShI-^UN1w+>W?4yX}4Svrf? zGKce{!|H(WLiV^GM3^QD*!PI)d%b;`W_a-l&?*u&e3c?(26hCSyQWYaFhBOh$;D%? z2Ye22!(J8Z2IKFEhC6MLyTHBufjXfXtBRG&al(T~Q=$@tvRNWHeq#9`D}g+(w(FRv zgY-l1@?hQ=0OytDYkJW}y*{QI0m88S1i*LO@lsK!+CMxM5hk9;C0I+VBh($p=xPK= zNn&qi3q?cb0gJNjPAXv7Jc`Av&nqBwsSACZ6pmPIh7?*q)b3yN>t%T?&E2E(i`d?x z2&pVK&HWQ$1FOclPZBy;O+~pvml&OT&y+ki zi4nRGwt8e}|N5ffv>+!IkAo(k0tOX3u(tOka<|QG^KmkdLU&AB0=z}H+rR1(niA6~^;$!gYqrLe z*v)%TiS$mPgpqcBlrBr>URe-0l_h41%QTEkw zn=a9u|02dhBQ%-`tE~;{fW`OjDTn;7T|ggMADRDZ5C9w{31h9G z9tXZ&DDA>yGOeZK$pT>7EB*?kSdMh@Q)}gRs=8k0B|r*GU#9UK4c+0jfAJwN6Daf% z2+E7u6_~O#a5if_>Y}Eeqqc&&F!ZJ0Yswvh+KWeG53Tcz4{QM6>dun6xY+htP{{=e z_h|V;h+(q=z{O~ZD?zM)cPGk!6KO+)nP|&+u6TbRwdGWFn~rcf^_|O_>bT>v8#*E; zFL8TNG1{_OE);pLYNfGp&Udqm9qg1w4A0s~ecZmh`!EuokQc-0&!lWRskKvh?^+XwB3x$B?gA>lr`rhl;F{L|=o0i8cmbiS7 z!`_Rec_a-1>OZ?e0G$Mdm8Nts9*&emyNb%rNKZgw#E-f31LYVlzmnSkrdE%v#@#2n zh$iF2JwAX_Ca z1c~0@T1bSWIN(aUU)EM{s=tNM>`TO&>o)J^Xk%l6y`dcC4Vd-#98!IbXHY_}R~Y_$&G60@HSR1E3YF=`Q@hz7JbL zSs?7l-QQ|Q_%<9X*guD*MDjuUbtA#aD5)>O+Np$zXHl_1fIkQr+mDy;xsxtMV=7Af z=r?JTizp$2#bKSU@*ZZMmn{!H3;bX-w1N>Cgo>`TxjA)i7^@?b%l-Y~%CTE&Q3;`$ z*OHaUOCdhxa=K&+eWbSEp9;IZ$v&)PODPXtnR?^IGWurHgz&)0Y-@Hj*c9x7cIfl@ z)%}IHaUC&U&!k%2R(NY(JoiFmlIQq+*};0_G!_{k)a&d(%Lvbj#H702SiZWO=)o6+ z>$)80T)KW^c}-PP2%HOj2@FHNH#q)^&YSk(oSOVMQCR_ZTj7`en;-eHa!bxXO9)N% zTv7RV^zr%1KFJO#*4VTEOlfSt5>2rA(nyihc#s2?Jc&z{B9%o)8RuJs|* z_F&c_%Ttq0#k+I*mL>`e?dlk-^_DEMo6{`Z3hY-BAYvkVe*pSe?qRDo>^CtW`Lu2! z`))Ak@3H)1d(6#`yMKey9)T{))w%CB+pkD#~E0m)-P-1mz;zn?>DF9_x(dN#K{8mG?O ztsPChYfn-S%1MxRCe3r0L;rPb4e}(=^-qJm(I%_w(f5n{K3={>?`2&u6 zqtQe?gHHQO=t>Aglbqa?l$*mx@-fy>rt|@4tO3(E!e+MGSQ}>8pKd4Urc(N*?pD6x zvNX@OeQ7zd?w48ZS1W>|<_tcUmYjrRISpSUCy)VrC+lGTf&Cykt$lqk|8BN)ywRni z*_<88!KP!qH{W3(4D{ojZX&;s>NTk3H;h(ZSoOY2JivT`hJD3(er+@S>cRDC{~x*E zI+37K=!mU!@E^HBMzh{(ccJ z-&%Q>E)>K?CbT3m0GNqySHuL@$cwQ;@fQX6&)RhXYdZytEca$AxP1NRx|SM8xx(zU zFq$v%UdHakQqTHPR<~FugHPF+7!annPRXMj1u8H4y$G17>b6({E}AfXGYfy{xjlY6 zeFfxEfWuEz5XzfA8UbAV(fWg2p%D_nTRY;nRz!=2C0R3fK1+`fhom%Fi$E8 zX9++n$(E{2fK3O+FVcb@ISlwxhbfNJWAh`Q-_CIr&CC-faTlE^#(DE1Ebl~@t^WkB z+cnS8GyUmb)Lw{#cu|2~3#|;7K4^$dvFmt99VaRsw}{0<+HRyR%q;Y$WxvtW=o`O{ z8dBq{ZTUuw{x-Qt)%&E;tK<>thE;p_W{*?)ULiOqAqt8cZw6kSjVxYmy@&@ivR13Zn-cxCcl3SGU@79Sqn5xPRS=CE$t ze_>$1zLM;%o2~+YH*cur$0BAh zc;hZ6F-8q>M?pO~h9mm~pB|T0$9Npc${B_5GLd4P9A$Gs)L@ax(aJ5Y1h;!G{L}Sf zUwk%A$DfEpfwlAZb9~%_vVAeHzd!DanI}GPCo45%Buw9nJ6LQb21a|oS`G{`xa6lJ zrX#4i9cP8^1SQbn9X$71(AeH__T{w20t-F^PHR*?BZo}qs76Rf6S=R6&K2aZxcHyGAs44#+ceT}P~>7^Se@^wki}vG(iJ)qhp6i;jZTT_!Fo|t6E0xS^Z1RCTd{R37);k z)<|6+xgs2+O1^onACzgW1ttx%&L{fS9MwDTOlYuGx;c4a{;E;$4V);-oO!ZgrF_OUQ znku)D9_!&y)>s$wsfQ49ZJo2TJ_QR{VQ;tvdPZM#a9^4f&FrF0u^?b<(w4(xUcuW7WS3@d>X1> z<-l*NkHmXgCMKqcKK)u}_V`5NHgedc4uA)R#uiHwfm}d!-c~dlzc`(NbNQ zOX4*%N^1*v8$U;D4lf<=2J1;XP9M&@o;Aj91e$JNzn-H>v$t|6(!*t!WjL;p&CYakGF;WcBt;nr~TdzvaJ)R$CBeQve~5~D{#HWPRF_qgx}K5zl}UcKral7sahO`+4G{lVx%>w{C?#R`I@vprUr zz^{Gn?dPdxO%_yIrlnm^Z+hhsm5i4R!yY4%(ME8+#?k z@xF4Qtl4<^|L&mYij)ulOFjXpjCSarI{bx>BPQ6E+PPsbS-caN4no$P0Nzz<**8 zJ|+WqjSH6|@P^VFv-}cLOEK!^Fhr0UsT1+_gQe5V)~)4OzS24!pl{q1ktwMo7zse~ z+O-}keGAi+T8`1CYup@o&Rm~srfBd~u63*_4g+nyar?oZHhcOkf~lm(X|4I4nnJM^ zmKCx-ISmn`SKW$VjTc%IHE0j^(w~0_clvm~12?vJt;A&*MjSpNqI1Tk2}T(Ska+IW z9IdUPDJ${q?-$XL9OQYkX_aOWAksTWJUIwByNO-aBT$&@153zCH*0jmcn%D8j0nBDEC;bnry^6+fxj$xMP?p4>Sc+Be;o1Q@$ zoz7WK$wzW}avMD@Vhg8_-!cpHb%p;O7@AIXKv*tkbN14n07Li+*Wjx|jRju2Bni6L zc!SsPa@7|UI}3&ThT`O1$SmD<5AfBj4o_)7oE~9Oa%x4_8##^IJEZO8gEfA~V16uY zUQ0FZxpLP~wnjuC&+sTW^kl+n*UuQ4A$Uw$3O#vd6=59M8J0baUgWg=dvqy2{O!7> zTixh+e37FUD{zEw+*a8)HNkeD^iq)VPM1ye(=Z0b5nm;|pBpO7 zHwKK$OcU0>7%To1FKvXnHuSz5>m!p=698kWF13#m1`k`PgO8*!Ma$$ok-(q@BSB!Q z3=>QQ%*B|N!YL3C<7G*XKR z@)f{H>}YHrcWRWqs?;YYbgvaMJ**CKA}3;(=bI0$g}#usZ#_qxbR`sweY;qZZhpTh zaymAN7c>5-{!v{;I?s3wNq)F#?F1WV_EKGveNnmGY{IgSl@KQA{d(`%_yLR;*1V+k z$9tXfsMP(%bfMwID$yVX% z5`8$^V{5#l>;rN#5M3x3z(4a+!L^OZK=C~hoG&QHBX{d%!`KvB{zgtptXq;``ddaQ zx?I~TJu-%<$5NibMR>vj44(_4X8UQdW0w>N6Q+++|WnE}|)|JRO$7ys+>+yAHW) zS2Si_Xzk@hCJjJEVO!~$mg2kIIJ2kt((C}~25Nqw=Eg0Q9!Q3QWu@`VeZn5;19yON z8aclP!8F@rV3JL4BRlhw{}R^bI|MxgMrJT?<{jlh3V`xgx7yM24Y!7xX7R15Er9j1 z9&!k`jdGnirfj-Ak_d9x)~=byfYCF44CSWFa&3S1JNk+(Sv+hOX5?h-e66(BK95BsjZ<^S;K(G;_t&v|&o&R9-lgql zwcBc%U6MP76Ww0g+DN4B{prw?Yc`}L?HacAR7kem;Si9j3f$QsvD7bjxQTsXo>I()$-XA90;V9@olFqKCK{gdfO~7InD{MtNtB zIlLZU5G;NzHt<}!p)(y{V0wPpB)EM};kF_5By(WRzf6cA%HO7J@|+IV@;ON~pLTIr z!Wah>gk7|za}y#&8AO+GOH}1pbK7EaZWATHDH2Jd)sT0{v|#WrZ3o`7q5auq6jSVxV&g@Ost7}CL_gN8 z`VPG{{QGKu-EfE{e?JL@zJ65?z_K&`!{15aebI_raRdl-nhi10`-=QifCXS1+4x*) zhf|r%X?sWfFrhg=tj6JXpvuM_8E|z^EL&elZ+}h#+=DEsnrAOR#bv+KQ`JYR@Xwe{P0tp^u&?Bhmq_LEo;fMKWT z8i}w;U85U-Cu2bez~5^6L|tL6z|pc4n4h zq$9-p4@m!EJ^=hyr!^e@5B149FtGM~D&k3XksNEmi#FFP)hflk(!OXZgTtXJ8_y)U zDukDXQP*7|IOMNgcSY>n~24{9ZxNqS|Y z*B%HY(wtewtf0JUhetw#Z*TfBeBX#D-&V%Ou{sPdnxzXK^yreE!*e)o6r}_S^se}b z9gsC;g&^$*`k@gk#IxAWZ@qf-BR%#jd7>-t*hp!Yz9YGQZK;_#UWt>{w5hj#_JJCw z+v}KjD)gu0{vFHs@9FM{0#0NrhiT*90#R-aW8<~;%nat&-G!~vqmffd!QC}?`UzR$FO~$=S+1A33Ma6frEB)?3mUy>1jUbaOcIO!Kn7~gx8jvqD_^Tz)S7@g>mUK z%DtiWBG;5OM3(Qs5-o~uDZ&cOg`^n-4)ST7SpGGZ;-qN&wkEE0vGh-pBVU)Y+03%! z2c(kYBEgn=OV4_W=3$PFIqxcmU`p4QJ5CnR)IO6mP8MK(-K+DNEnnk;9S0W;=$7;L>35~ z@l0a5Q%d$DOWlG?4F_}C-FEVEV2DPc&09+t)fm?!I3#00q32eZCgtxtgTU`dmr<3g z#~SW7E{Lh{M_L)2HIz~hnSevD);BJbu``=rKIBdr3!kue`^_rlJHx%wigMGz4lB)+ z1?E>n`dv(MDce`B`%-!$U*z)dR(xpoU9!g$QR~SZtsdDxizSsapQl%>`6F(QF+;RuF*4aw z#>3$4!(`i#ABcn@*b* zo{+fGXuMP(F#C^(!1bXD^q&_zJO>BO(KBWfB4(o$MkmE);0l^8F-0QrN`Boj65!>| zX@{?6ONkX{I}TH?(Abi4D z#_eIjBkh0D_0~~w1<$td5CVh%A;BGjhv4oLg1Zyk-Q8V-y9IZL;O_2j!QI_$cqh5{ z_kC}@ci&p`$1H|9=S+8X)voHjt4Zh=@HP682Q+Uf8%r|!7TxJ@m*XY=6-|AuX;Pv= z^b>1Rne8t_JKzcQyM<{NoTU~n*`qT57U(ZxbUGBMX}bud*)WEHhW@KwK~#L&eCEKO}LuH2R=y_5AL$OcZ|k<~zV zHt2qNQ_0ZaCz;h>&``1koBo#gvnUmF0-ky8(ZvljikK-y)b>=0IA#v3p*FY$-TPUM z4Jvl&?sm&`t=As1^Fp<|hjd9Ht~xRFsqNO42J$-usy%Rid{-v=fLw!c8~04n&d!98 zN_3-FezI&?%3eie9_|5nc;5Qlc!K(fb~hu(QX5v3==-I5L%Twr@Sr{W%ll`?me1&; zFOxK{5jAQLV7H;hyqPh~M7HXx1-=w{aFJWXI(^m4ck;D0mQX<#=w-EO$&4Sd3J+3_ zDG$9Hx~@E`yw&tgbDQm_rD);9e+^R6uA3HGk4p91MiU)0FgF{UYHLP}%|4`Jg!W4Z zi?3>+@28q#g!izfdcPJbiQ&ibC^sfu@VOb;n(8mRp847q8of_28Nbv#GMMo%D_K&Y zL>nKlS<9;sdT1gM*5*N<%UC?8x8xmYrayKQtHL72<-0AeCW$U(rW+CPhA0wRT$Frm zx^7CXO#!aaP+bh?{m?il{Sl|gLuNdZkXO>lq~;nP`67NKZrj_>9gXO*-R; zcs>JtUe&)A~@0*vqTKLkzaszAa^4(LuP{3TvF$A2>Z!%i}A3hUMP!WDh zKAE~P4>X=X&(xy%mo#k@H|R8b$6H55H6vU7fX3(Y^!;4$UQbhUXzFWpr5}QhE=1;< z#%Riaaws~Bh;HO@hyY_xi-YGmz)JU49wzy?;X7TKpyb3OeaVCU)`UnW6$*(n`-;74NBL!r03||Ut}@E^B3p>V)S`EnGn=8H7GRBL9Dm(G5LcBA|CA&t z#JKZUCFh^aN&-|m#KKu=2!W^ss+tS|-l-U+d#+X`gt<6nF&O#g0^n#+<$*mq6WMA! zpux^=o?Eb2?=?cqEJ@B)=aLluG;L+{N*Lk5S_t}3MnG4~j5GX$Ue~p%;@eivk)rhd zV@>IAyNN-eTVstm*_Z{=qjboas05}CTq}CJo7(o-{gqN?$5!5+6|gCv*-zH#7BBy8 zGDxIEV|)uIOQ{NK!*)w;J(jIX$@5X*G>DlK@%hZDWOC?}0+mb&@pB|g_?O0d{h@!w zDkjN44K_JdCe!4g1nx%oG?Psw_Vy(QmLV34stTM*CvsKV74eF3`T}>@!tzKoCbqr z8j1xlbN@!2krrG>{Qs&dywx#h!T}YBAM7&?M>!N}P)NoAQ1a{V5mlceSB1WpSrBBl5;of@)1Ai$lJulPlhoRHH}N?_PbO1PE5XM9a#Cxd;nU@}jGM z!2EhcZ!_)o#<5#|Qy4s8mcPD#9Fg-KBT!H!sT%t}Uv6Z>iZ4>`-l&MS3`z9o{tzb< z)sh01?vHrwnzelg($i$o$%yT=YnD?o+=x+_tuX(sOQrH|(*WhKX|po{Njx;cagbK$ zl1Id4P<#C4bMqayu=a1Rx_YJCD&awm7v`~DKhcx=`0C5*20DVAE58irsK$Ly+aKWI zr%i@Rm}Q5aY0dG6HBX29(Eq|^sX!=(emQyjxKyDIf!45z29BoFeT@@SPqL(VB zj28+TQxZAr#MB!{N?j2JQV51^h4lk&rt4CFi`6vcp`&+C>emFzzU>t(v-P$HB2bc`8!lc{bwH-ywoVH55qGwrP6x*dqql9RsY77n6 z&oQNa^GiQp_P_dbPd3%gmXn}d=S*SumuI}4C*(9)ew0+;wQz+>4n2kb1|Ov7^Q@mc zzZ_yP_n!DOIAUw*w^Dhh=e45m*r|y^%inoX$F*D+B|?eG{jN9IsnkrMB~6m0?|2!t zz5g07PU9g)+7wkmPD6K_+Gx*Ust0@9tp+vF?tn@^)>l2B6!zd0&1-}o@mP<|{shJG z73^1Q%R=Q~Z^jDDQDCV`XDZicVqZoaZr%>jz6di=j;8?s=>>FMdlF z6>&m>dQTJ$Lh|x8fgJ?5w1!_FQ1FgB`JD?MmaUm}ecIa&^_q_$6*rTL zKbcEXw1PG`8EEObV9Smv_j9AMu`0(+p*K8Ij0Eeem|=d|I{7J2rz8@MNS9c8v>9RsX(WN z)-QYBzYx>9tVsv@+y9lgW;-l7@dcAgEV-=<+FCv0;h15FQU3f~9}-nSXdv+Co0i(~ z*@mS7kiG6ge^W8yn^QZ#VeL)7x?`25LXPkAwm5Y~zE_TE(kyMDv8;BeC9m#NhJ! z3j^2^a9KfkUr<6I-X+XU4SR|>JXNbB%6fOtw-}ERRyk)qxW=U}g*8I%D@Z?b8h$7Y zaQ#I2kd4ofE}N1-=p;qDEi7lI7de}My|5Nj+N(gHxC*UyUNeu1wg1zyDW&U(f>HK? zT(5Lq3my*M4Q?`tQFq)#LPdT^>z}Vw1iXM470aKR=LO_;^P0a|;+&*cRO|noBC7x7 zVsjdmSKz)qE364@*sC>pFs9}p65VGK2fPJZ`L5qvja!pMtG+LvU~wFy8D1@!cg<(| z?9H!E!??)kCwzcZTg6ByM!{xlKThPQ$Ur1-^BYk7+_$-yAUW3;0dlG}{jj@7t`y`L zB|8MFZ~{{Fx(E5;|2!%qtc>1Z{&AL7AAu2_Timfh(1y zaQOp;=vxg(&ed0j4Sho>Xihb#2ebA8>*1*86Rb2sh_32RQ^GZYd-QWH?w8l?`gd@x z>=Ergyd~UoG+frV(52{RNx(*0mj9b;e6KAzU9#_YZEI1@hoa_JteJ90m4q(Xdcevo z&lvFEfetx)@M1uODHNe9&VZO4H+fL3HgGq~0$w$1f9y3Vq`ys?6t8F2p8mk?AD}q$ zsR4TS7)<9&0_td6RL<$1GHcIzv#zcA_rSndNRZ&2qu6qZ7{Z>5Pyxx@pwPgc1gCY& zsz?oqdr(vh?h>2|@!yjJ>w?%$8U54lq(`20;`ffsG^BuK_WLO4Suu#_o} zSxa;-bG*ER(F`U(J79owIQJ^b!B9dF;ddO3u!Te@R|4Q`=Zaa1sLHLAfv`8GB(VBx zydYEH-!Iooj;7V-mm+g9dqoWYg6ch%1~xkHN{`#oYJhwN3>lu&O~xdAfD=KZIlXt$ zo~ZG1M@iQDNektYUFJLAr6q(Lp9_NUWB4;D%w^W!Lkf2ML`)?)KwM6-y{a>$NdNQC zMA5&`yczZ$M5x+`<_$h=wKdBK_@6^<(+8qS2Uxow;PC1P?c>Ja?b2uJ)6o9?=k-01 zK5bLR@~kv4g2zoOZ%(%c{?AxzqXw$bC&JpdilnKuA$tqkv`OH`DXj-2uBNT=QBK-j zHB{jr(#oP%{pkAAaoL+=M+EPHYF@{*i{ZWsJdo^G#?61aZQSQ+fbr5YE4JDhic-+0 zZNap=(CzZ1035sC7cD8Ee1v-2D3VbfAu@n#<|A)nzg_Acv&!#9x?PtuPEAr~NYixv zom3^fqW;s<DlSO-iBrpX)b_m@9DJC?ERYJPe9d zG@=ieq6>WY#OtruDO2}**)MsUwlZDl{I4XyN{R=~j`vQ}D|cVF^Z(CZ4f%{jBOqFh zGgE9W`~ikNklNj;-okL~1!OB2qSraeu-bz2T1q{L27nHNav&D4Ko5kmp>gdp^>8tK zjkB?&AK{YYoSO>jFUt^^ z4+=hFlYQvYq$tn#dkg0VSXhev3sB*VZGE0*PvO=5t;5Dq!W#;N^D3Q3HT1uwkgi&y zA_i~dGIdwMX8($}|Dvv7;_3Nat@TCOS?q`3#r}9!Hm_ySQ8&8_)DxnV6gpV9ajZV6=sZeqC|8L0Xxnd&pfN#^zGu_A$0ti_AgeET&XQu1L0vBoO2e z{pG)-3CvVqIBvXT3M`Pow^cWek+Es#`e!?G#Wk1HcxJOgKa zMG4bnSLT+4BlSROO8h38AB55zXCBf#UTW?*CroDIb`AP@=R2*FZqs>>{iLo{Y4RFX za(LH*FV{Ra5ySB(4U$ilo4i}XuD{H7F3vd~rqH6uq7k$i2+HlW&!rigXSE#=H`XyL zji!Vv(Tt059Q)C7^AZLuCKu+4cYpDGnUms%?4JkKhME@9(*6`r+`rEqqF>j)3!Zk@ zm0T&*ld2E$tPdJtK1w=U6NnK#Lxw$YM2ym5=x^t}TwRM5oP|TJwdMDY1P}8FO%ncMytyi5iX~I&uRpjoag+v>fnCRru1Ig8t(3A+YQDK96lnS^@1% z7QL748U9QH`b9U*lJUVQ8P`e(7^~+D`TYJ-t&rv`4yVQjGS_WYI|NVVKndtgN8TFI z?z*iB@~peT|KoP7uT0|%4YjNZ&S>&rLHIfhLfJ)@NlNqKE7+O0I?;bPF8(qrd)7e& zUV8jcPhFZv3U=!`ky3}4X*m9hk4dFo<#EQV2MW0*hK7S>8SRfBRwAHSd4Bs0Wj`-m zmF&%ad@t+_IY~oo;?9{OF>kX}9dKg_Il+#fE7I^ch0c%?NXmND1wK%^DLo{lh?bH#h zn(**cK$sj%tm&|HOR#+B@sRcvSE&9?2$8jGamdv}0UbB%bZ=6Oh(K0#MTYkNkkossp+S8cMVI4B zrJP+g+>D=GdmRT?<|`iFzc%+HomW!D+N{^`vFugR1UK%^PIl|h+y~g&&P^0zdLZ&h zcpOUuTDQ#HQBDXM#ot^kkC+<&ufH6*y;|C(GR*aoI7s{twV`yN2?=QbsG* z{&4KLSsfklm&n?!{kmttM~#0~O-zZFvJ~QkwnUc1XR7XSKJ$)Ehwv4LTyjhpr5?ZceuT=D}Er(XyR#u`&Kb+`(uT8=)LX3?G;@_tgHKAK6qtn%zKGx z*F!lB)^s>z!DgEjS!3?fy%np%Q_Irp@ zcyOwvFKM_OCer zBR()Baj+{+0+)~;xQfMr-ygHP$B-a}CtY)%YSzYel_G+G+qyh;$b$6aN4AbELx$b< zCSC1uka)ecN3I8#!C^1F68WAKt{&VF5Z&nlKRb$sn(fkRH`dMMX`b|oC#q^~s{MnU z!P#InbrDsh!$z2SRw8Ne1A3mjeUp!8K?-6?a_fzeimVzsLb`WDl|g~p)@23Nh*AGW zY(pzAwGe;Tvpg9VVwO@Qq*zP=5={E^cvb=K_hH(*fbosnHnf=!>9tw;8Z^$LOK2^p znAE=n7qNNym@Kc|GWnS1_ z_ok|0eA-7IiCx`tZk{I9o<|X5M_xnjBW@Ky8oG(KWXPg?Z$-%7H`s?E;mT7_{cAYd z4zt1PhH(Veqic));!apV)_Jdk0q|}NhYr-z6Vt2-UmqZb0cM`2yqy_m1?#fgHfprg7tNZjWz~mfaPY>FE6xgV2>S|xU825l8`QGP0vs!8jDg5h2h60n0x5Y zO^?~bKo8B6^?;LR6$Ocvl9I(cR$LYVDTc=MuGN*M}uyep59uKq~{ma90=;!BICl`l#D0NLObsRxi zpgZCMTNkv(uZ{;iI^y*Uo zcu>R?zw`XFC zWAj#V;>K}rL<14T)Ya})XEzQb2F#bKoRAm}#>&kr*`rFJcIYeCiYJY>WT-s4H#znz zXPDM7KFW6K;eqSc`H*4Jb8<)V{G7XahtT)xt|B4CdGg|J|LA_KE-34~l|zDcljs=t zi#l;WQmRbUUDx*!%K7XZo|j#9oCd)RSUtUjPNzG7o2^{U7U)Oy@M>{7XK#+k*i8_u zof$3KuH^|L_h|o714BP;nzdi$(>w1s?AIbdG!|1Fu z_&!ion2v4z_V<=C&(RS^c7kGqhi6yxJF8=^k<=+-z+isgDL_-ynQv7Pwu9$FoQoU7 zQR&a@|HB0^3iM3}d;#Pba+Bj*S$Qd)M=K0INUS|}dGW~|0`lC7*QX$<--eLmg@#=` zHO@6ph~QYglPtpw&)W&6_3a8mFQPeJRW^!87qM#ywjm4l0lxhw#Gpy_UZ{K8ipbqD zf>V`Rw9v_Kp84UAeM;{cEq;_CeiF=DngkcuKA0LG9c&FO3PJXa2vX0vTb2BJwKKa< zwda1$zqr!NzIZ-Hq&P!H@t=?E)CR<=8LgDy>uHO7%_Yjwc_#Oan%cFx`<~osD#~>4 zE|^Ny>OkIC7HJJUycjzUc|GWyvJPN|x2w-<Miwqtk+N)`G;%s6gki zZ=Q9Y(sLsz9wGPZ`(FTGq%G=TuU;}vs68Cf8cVeW1gJC3M*rr1?5Kt1S^k0-Iq}JX z(_95S>AZ_KP0>CZ`u!kRXg*gwXkdM{G`@-~SJL)_RO)ILO237x3YEwrzm$>FU(>y{ zA{u}bJ~A;s>)N?sTn=0(d@rWj|Ov+Se59oW3(ZbRTEW&cK0sA?yr+?su)vl>$wd@bnA z0pP#tidJC6K~tpNW*F8x=&z~h$gePfbzuG zisSA>6!Hdkbld1o>aPn2Kn!3UZ~a(pLL>Pqy0@;h0%G#!1a8!1qlVXbZbZj4j6Bo^Ol@dZK#Fj|AGKr(a%hSm*W-v`r*oD$aOC^xQCaU>X5O!F@#~#&8&8 z1$DgdaQ>XaB~xO+NNt$DU@g9^d{kuX=F#B6D<;hR9?igr+=F}aF3611HHEW>dvfF5kD!^y9!9tVtkIO z4Xu@pY+zp+&+G1oXCETm1Uk}DbK;MPmxOdJ7*9knzFF{z36!IwyJi`Xw?J&Ry>@4+ zaKHZqOwJA@g_Z`LUY3Vqi0~Uh4vR4(e&)ZWKZsM}NpbZUMxnSPzI`8n@eBcp2SUg= zw-&&q z6gsHC3Wla-+gsvN;i(8zfr&K>$cTsyrx8HA9|sE=#Ws8Jy27ObsPu<<>fw$({~94g z=Db+lO1ZoD1Lw&H0E0CG`~#^k*_3!ZYZB}z8~HGHn`3uyem3I%>U1cx71YB((9m}@ z`RqiUHeR3Z7Ol6J(*MkZUqNWqvQ{9_AN%5oS0Ol+JI?^v)k^^m<-iayABK?a^rikU zI}1a?5^s{rqn)rr1kS$WTr3hUevRID&OVErm~e{X-n?_7YK4=354urB+W4g98!;TG@(0_Gi{s%z$Ranyqt&(s|;r% zQzEoob2GPP#DRpDrNKhJ>ra9k4{S~!<JrGTA&CS1X=)B zPkvkbsm=HiapT%qwA~z~UpdC(^_zV-e|4v|VxkXxV0WsCg^_`U!}28&U0Zw5WBy#j zc#9BCzvu71nEiVJ;3$I?-4L2tMsy$TpWi6`Wh=y88)SbCV%0AX3w+;rCl%==)KpYp z#&~1KxX*xXUpZbclta$0+j8j5t1N=42Q_62*ZwVk4v zuw>F(s4TyKQhHEkSpDv2O-*viw^W#p-sfdxgXiJRxky;eRYAw~b^0E*s1Ufcx0+ zGEtPAaP7=nxpi>D8$*sjoQPPY?GGcXQqWwEE9R%E3j zF+(S#t`m*3pDS|pPrVitR)YrHcvZu3s`z&LA*Wb`@pDH_DM)ehO=LjlaE} zw|4T3gHJrv~4`W9ka3QEt^>7tndQ%kn?5$u0 zwC!G`d_s&5L3(FjKn4B$^?IN?1C2@`qunITcvvZfH%HAI9~Ig2NlEN~DTpD(P>PE% zeK9+#^m}9QFh76auCq0J2EeAA+U7)SQr~P!09s%KO`|uDr-m_))jO=;J^+VZR1V@6 zMHQd*4|Q>mz~Wb&aST)~#{bCutlM&TCvXFt#xQL7<9sy>bpcL;eTBdgkC&ln3&3B6 zq`@#ij$?g|)+zH-o3bY&C)Ud&f9B2o1kKm`Q7*#s_KXMos?zTzbLR{AY#Q?j22$H% zWf%2rmY<<5>0WP-z`7F$K%mY|4&!#1|Ko2$Cc2rWru5sOUlX{8C=r%!_hkTpynm+Y zF<`q~j@7oDLkJuRc!Py#NJ?g(A7o;k+$#L$?^^s+%Y^b`qR4{#$r&J&vXJ0s>tR+P z2Fu9Epxr-u2^~G0#*6DhYZchNPRAb~U7i1lZ>ifOIwN2g5|F*$&ESpTD`?%^fnM;s zq{i?|Ka80ynISYY27LX6AGn3!?pcf5oo(lV14s(Q-K+@z;v{?ivd73$4N;|E0pI9* zAk#>|1+~q?=~H?~?neT9ALH!mnhjCZO&LA zrxc%AiN*jGzTT9l$lvC-`=9BH=vSYBa_n-eEknDD8O7gG0IGELH0k2v^*pTpw7|2i z5#E)n4oTOyje?(#+oKgwLQ9NnvdZk_?#L~c8)O%OQzk&->B~LHZ4gXR3P;zL`)4S| zDe739SEn42**6oKUZ9}ia8bZt+4j(T(f`z&5NzrV^Gv0q6qNmqETm@3Si0LVPlXn- zj%80=M9N6L`=xB2T^8~~6>!WNKOS#Hx82%3l40TvW=6}2R?Nj7+HKPa=m@;LsY_fG z*vgmo`VVe1=S@VJuqiw&66b~K(KfX_YXj(3+kJ{R2kXbuOxp(N>MZs$UaxJK^-AH` zWgq0T)(-k`5o6K})20yj1kN%rf#tNelYV`lhdbE*3Q@GwWT#*yv1M$#S;p8+K<`&V z5Xl2pLp%2!aYp+StJqZ)Dn)}(_>XpAm3St?iM~lOxOQ?PMacrHREvcfGut8hd7Doc zkz99^Cs-nj%58%p`JRBAt`f_x%t^^;dB#{uyA4EM^z^17|J7&R*V-ak4y2qK+gr7$SUFo5 z#Nudgb3W1-hxYGqHGs3jn9mI_00lXR1bv|n`B%R8wPsPTRO!fT z?9{5>o`4=Is2a#S#)tWHq7U$`Z8zOX+O$8G42n3|eBQA32S7+aZb}j50Dp;6_3KP> z1MMzzHGHd*czur7RLS`K7?qw99~5U9Y=35G&fb^~AyzIsTTpQfansXd5f$y`{vxc{ zm0e|0*fEEubYwT5rXeg#9$Bu+h_OBkZ6p9r$W^(T^&Zs1gfPa-$+>vaWGE#HR>md+ zVcj7h0Oi8OS5poR@|8@kUpyF}9&an?*~u9I<+G&(!TMfK$5U=`qj~MAqsE2lZb)na zN`h5yi>d@H&z>qBqtzTWvuW}c5~i`a^a*kA-;Gcr^^|-TcmbuNO$hFn72RxVxh$ z(qwj|A~j$XMdNElxg)DXt=)v_411~+A}9WAZ|_#Zoh^!ttg?up&S$4GRZ$&BR`ML5 zkgl%Wp&zNS{J>x9X;uC{1{;arQUWbsMQhWN>|Z9GFFjNK@*7I1$W=$XWxJ(YeC-Yg zlWCLC$qt}{eAmIn8|y5RCdt9$D%~*+^DT8VE|4Dq-CbFEC`}>Oy8xj6^gV`jN*4t9)1a_)WjhIDSc?;3kBXN^TCBlm!D$&PK`tjS|5sA#D@fztv)$d}I zRwZFOBZ{+Qum~v%For1Drg;0S0Qxb--%d}k^#@{eQ{NV+=_`QUMYOnFR)&?rC!egnN@@F|~R+77D zLNTFw9F+!YRCS@W+3|vDIC0+xy%QwH3M{u`Nmg#w|HK+fRxS~kRi<4vo$~~n%Do2s zj@CrJdJ0EPCoe({?1N>mVH{4^lN!f6>pBik=v#e!ZVy%rl%$x#BGAXyRn(o{&Rmv_sE#1O)jEE2j*Sp=*` zr?v5j`)wL~!2Di8c41W4G4*@9Dxjo1lyGv^@4KcCRReaPLqIKA>V$J z#(;6UtdJD_LqRNlPy|SurN5$$XWce7EnSLFNvSj*>04P0F!ln(pCVF$13(sG!(4fA zm8eOU3`zP8b8_a>uUjQ*-Ty6b_m)wS3@z~=Z1KG?HTDi$2(U#oUq7P-Pv|&lSO1C` zGkQ2S6|=QlsM5pioLDHcNIW{Vn_y!X37j1YM0cpUxy@EIqZ}E`9$pP{3R4=6PUY8V z#E6ZadRAvPMVd{Nl;W6O5HOJaEWS6R&5Cnz?+#R5uVi0LfSD`RXnAMVA#L>v3dzo# z6;LDdfG7luDIRZtG#w?^*Qk-#;CVM=TlqGPOEc8UI5T`ek%H zhZ&3v@*)~o+*PXK--7DbBgER?Z-m8AQ2MRYYYRBU(X=!L4D`OSgPOa_rv;mY(d6#b zDmf50uNHL&g1_HLMG^}$MsyZNryYCh*d%6Z?*DiHl>eQABi}XZ|6=)Lh}LrEXmW_r zPt(f0s%KVz;(-3p;ogsLnc!@P{{uztv@tynBD==vf%hn%+~O!JyerSm9;r zhWX^j_uLuWPas4by->P29MB!zKxQXL^WWb;zaX7^Y3O@i^vg&(zdzOM=Wxk7I7Iu` zbjcq#<{hYl!RmAcykXP-Ga&V!*?r6hnuW|KC5)9P)Bdx8cWezNCoumSJ^}vT>pv%O zoHGCiU*h@zRK_s@3yBP|O@@s48w}ET?%hg-nB47EU#i*2XeZVp#LBXsqrCuChUj#tR}h02>tm_P*6ys=t_Lv`a(?!M{z!AmEq)5T z8=WNWKiSMVl7cF<#Tf)7?dGBG8qN|F9ks4~SGYGT zgbT0_ek+yczq}BVh*DizE&gn7O&>${WIcSYIZPQ;wx-i)_6lxq#}9WoK6-G)4Sw4) z>Ak@0_$|lZ_x^aavVYMbGP^o{qV_5Atwt-Lx)Cv5Nix~8lKQ-V80R2SfIAapEhJ)3Mk{bRbj$$tPD#7ihO zp#!Dh{=I(QeF;~Fy+3<2L_(~} zPy87}07G~49ndXFNBWXbsp&uJ zm#s1AQ;-Q2GwWG#wf}Pv22+b=TLJ};(ikyTgGxioVNWf2Ld<_>k5l#ATuPQIvXPk4 z!6>J3d4-@n;LWL&45+n*gm)!+%&7At9bZe;pdqCsnw|57SoCGH< z`sZi80b+9tf0-93Jwl#xgXn;zo*1{3o$i=Fj|BxD=G-yuv)QDd2oC;BL49PCW@bBd z{2cw^10_75IE)b!l0|z1ou-#=KwXG`=P4v-5(dl(=;I|K(V*>dW%J2fPPNagr?AU3 z!q!eRTlMwdQQYPhBHKa=UId;!knFQr4f(z?mr{T0os z6Xv6V=0=OMrZ?7e;bQA zsm-s*SZ9icE>_ZrDhb!@B-X*O3ImLV(8rx-G`aYG(kPzE*^_Q}%D@IH69saQ>tMp#E zk%`w?5Ng8otSh3?G@m;U=7a&7PMLB5zm%u6QY|B ztG8C4l>7gzKKT4=hG0n_`vF9jP4hP<%LLxmDWV13u8M;{&I$&+CHaiAltbfgsv@{@ zY#Nbn)wOj6l?fEj6i12Y4S}r+yX$8d*p*3IK^3y<>^jbbwZ_ns>+60es68V?84Y!B z%@UvhuzCML&P`J1FkLu1lYkMc7a9S5gpZZkRs;hRV8EhS7}&Iop^$)z^@q_y>qVuD z!0MvN&=?7N)V z#A3)hxBk`34@BDzfIUxKKq7sNG3}}@f%Aa?)g0h1Vd_1B5V&Dd5$PZsuPmOgHZ3kiSQOFSC>5gQx`V&daE%0A^O_&P@a-#Zp297%L3MyNX)=SK{zNLa1~0 z1);%1qq_0g_Wpwqu=mzzaq(Sqr8V+zB~-xp0i^KyBfKysatqD_KyvI`Zmc2r zU6cFd1}jL_Uq9^&E0cnSL?kX#A?wmaK4uSr+E4=V5e;a++Ne{e z;Q3soroUeHc7hGQ$<-K$(Q!P_zn2Y#2@(8tvg1hY6s*!Nc_p z5esFg2t81=3j*x&tYOMv7^kMN%>|BxsvUsH8+Zs%?^>%(US&X(NRsbecI7z4FtQ}+ zzR48@zkTsAMU1NBYW)D%g1VN76Gx|WNx z*;dqHr?4ip*wCi9F+hHF^0d307Y?XdN~w5$*jwVH93Ag9W&Z7O$NTJKe5C1imWL5O zcS^u)dL#44^D$MgUbC@<_c66x)<>u6xL>ndy$Q`~o+D1=5^7t2YLHW&+IvFPw(x!g z`Q3+b@nL0a>Eo6z2d!Z7`Nk`3POx)A*Ns+h(hvS|ADRZ$h^XdWlNmt9Q3?oe(!&Do zP;3_)?|1Lc9oguWWY$f28{FdkdS$$$Ld~K3|ivVx`dxoNv>g=e^!S&+Ke)aHH zx;(B$@0+oMGbgA1**8nfM5qc*A*@7EsRLiS!Ht z`Zq{q{>xgi@I{bFB95E%MK6jc>Bd zz(Fk?_wOJy+7Kf~88OC2N3pi>= z+&qzXuRYb*c%HtJGJ*NYSyN&|v+LyVagbvpqzr@=3vz(>A7rYI7E?QEzQ6nIS!YfK zN<|EKcwD?vfDtRCMVe615Y$sdU*mLQIQvy~&R6C|P165On9|P81tXzboU!m7TsQSXx4u}Ja!|5H#Opcl zTDCJ9NBF`VJgAvpuFRrvu#XrrDg|6!AI@OL6VQ>YJkpkn0o|HrH^_ei}K-mR|T<><`&*;?b`oB51%1>bx#xI@_?Q zO+`5-N7CHp)hftSap^*A;pPDfXAA7r(UjUO9CRnccb+n6EL=#zyO&#L+}9#gf^cgv z(;f59Nea%skct-sst8Y5qs)j!H>;0LH!H`LJHp`b-D^YPA=lJLeiis9j6dV{jYGbq|N4M7+xL8q6f@1w?D2Rf%L3P`1+kFek>tct zFXWIfbiX`=eTQhYG+x$>MZeJM;PV_aki+LaUsp-X|SjruW zh%0<-W~bu!*5cZTXF}KA>OlTA8)44lbwySo>-YM$6ec)*PENslh#HzxY8LQk9lB!u z-9Kz>3Vt;HA2D_32&Ys3Pi7E|=; z648?mzFF3F8SCA|7wn38P-ucG4(ENFx3w6WzZaRA6;~7_H#eDyM-e7C$^Lc$4#6h% zZS4^v2orEbo7cs`&gP$cXJ%x=GnmY`8OsAw;Jpx!J9fnY@qGIHdoKrYnn_HyHsAO4 zjo%t&CR9PwZBUu%Zo|F)&_NJ=_qpfER32(Qdd%@rs6RPeh`}cTf7Urw%2%g^T!)rb zTFrt+syR)8ynC!~hlKd+8#0ABG}Kh2X$6gdr2}=AOt*!XjZe3A%%~wFsNwyx=mEbj z<#xB=4RfxpBg3l;ihN#ZB-PJqg}x?YVn$0C{p=|vuL>)V70FwaRT83PY~LiE>vwWA zcm4Qtw*PDIaT;ON`^YRx92V(UP7pBX@4w9kk7H7=$c5Ij6qB$GIKn!vmz(C0I*{Xn zils_SX6q*OO?0!rOM%&%+wr`nWwW7woX?#0RqG+Ux<^c;5z^1Ud{CtD!k#_t5$T6N zb|FY%(`F%r&T~trSiT8laj9*O`87Q!h6-3t+>bRelGrZAIgtY&%(CDdNfO-Jab%5t zl}l~^n&xbDqs+NqoWiv}**aHfIe$vORpeeR1~AILCzx2^CR@yZ(l<`JUe>QO;l&5q z!?vg5TX5N3HS6onW#(tkp(><3qF>wNjcx$v#&k@;A3snQ?`m6~pP*OlQCYniNDh*z zb+e9}iAp-`mR||ZS$O{)zn5ikuxQV<>;bia)(fUvM8577=3D1!h4MfN`ZXLK1f5kH z9$gsRJ+ssP#aIRYv%mBIqVBEZqKdxuQ3M5*QUQ@R5D=8^v=F6{?(XiMK@kuT5Rn>6 zKtOT`=@=S`VT7S;=!RjaVTj=#@cq8O_uk*{{(tWueC9B5&OUpuz1H(QYwdl`9XSa+ z#5MyK$6g|T+Ga5jYuD8!>#mNDO7JVYE0Oca9I(>0&2BgE*3NY1<%yM9(+a1ADj|KU z3)v-P`}~{^DQ3OIediWk->*?qq*T&(k28!&x?n6KDny*z9kfZ($URp>KRDexU6pq# z9$oUsiv1nw+g^S{J*M%a8gkSg$ToA#GZwgX^${zAHN1l^rf8GEcSCqFW8O>BrD?fp1&eKD#Gg01vla)e5R21n*Ie z$NueqZsLwFJUTX>jgaxA1^K)3JHpqpw{c*y2>F0rX&|7kr=Q66O`US9C&FH$6Tu9R96gDW z>cMwq)ojn>We9yr$)-QPMdf(P36TQBehQ!$N&f|5NWr|T7$0AFN8CLHh#u9NAOK%( z!zPs;#y^bjcBwyq;f_*)>RP;eyWG#}2IuSv+Gr2cNB_Qa!YcB;7EplLK}bcr=t znM!3@`e$dZ^-<^e-gxdZ&gUU}j7b!+5u;vQkUmP(eWv8rs=wXf>@`L2Z&`=x1h0vUeAlwh5|fG@I`pe4J-gcx zYp=iK<~BZ|VU~vMRzhLQuoG0Wp-pa@&xQ(z#L*pLV_mO&VJRV%qnVVEw}X%O+CI>% zhB%!Oz?UA0Nj(?81BBamY|Od8wk}3AczHK2X`SfWvR^-+?>1tWS(k~S9u7c=*8o7w zjm`XZaP^J&yPZ>G)gcUZ_u7j$;M4PO(aP#mxCflkc*!zM{rLT-Olc39Zs^Gj+|Pge zRndbO`IirH0)n!~JYU0C`h}7qOl4ZKy1f1;^-0G)(^t&QtCJs-(O5%{jWSe7Z13jT zCN&(gI5DLDGh5v^!#lQc3Np{el>AzS+t5k1WtrQLV^+f@L9g;d{T-ywQY2?kv-|=>WiTnq@HQj6973K+PbC3#H>o$a; zXr<_0sJuyV1bS(uEh8-q3DrC_k)LJ%bZfGYgddo8dxys)fbYHa^0Shz`5o$uqwAQ8 zw}j6x-*bHPp98D5D?hS0z8{|*No}WYbx5NlxIou0zeAZoP7(wu*g3_tNrE@8S3S1J zrq95_5+IO|R?3p%!YQ3y8KUxKqbDG1*^6JG%alZ}6c)TR_q2Sl_i*Ob&6^$4JP^)C zf{R9MSs{_lWJ*_U3#VTo{`ABhj(m?FRD%&EwskuQ_C%$F%(_{-ygdI3@Fy4wJLNx0 z+amj-!b_8$T~-&d4B<4Ouura@8E_2^9?@%w$SSSR|4}Fnp6>5L zSOas-$41qW-Kt4aaB@*5iZ{W?sm%?NqJzkk!ospiq1@KnPKW!kZ}n{@*6rRg&>g=i z9;S1E^pvGB8EmYvC%i2!EKAp5dlfsXp!p-oMzW=H+vs5#$=+ab{JAV}H{4;t-G86v z)&{sO##8%Bc?^waZ4fVY$WE;?`~aLDMM@N@_cmX~+Y((oMSWCu+SacE!e)Gx)q7It z$>|oi$E&;{bY5ji=p87nre<<_q)Q;i!Z5mfWs~W!K z9imP7sh5G9t25n=H4po%K@RQhh~6Evv}F`#*zy!&McNj~6EUKOTV`K><-+>iqflM} z)*ub*$XN$6VM9aL=$IDXS~I|fhQ*WyAA@+5hBYP2>f^%yKAnE`Xk0o1_@8mj!J1dJ z`(Rs|P?{%?avPpoeEqws*1n0YuoBXysHD}l+7ipMZS(3%i5E8W$IgDs*{=v1jpD>} zS$_z<&+=bO5dk@ zkW@1pH_m!Vec2yL7M$>6{EHG#?7XL#&+#n2VUOd&QYfpGMhWOc-=SCUIaW#}QJ{Lq zy-OQIB#45i=t{MOlag*=TEiCvhc)R}sB<7`zi0?cUv0Yz=OtHgX(NJHuz+@g+^^V2Xu# z4*!>fz`abACtdQ5<&UK9zj|D3lDDEdY6pkOn>|GPxbjrq>#OzuwfI{85Cy>@(jTRp zu-$?C8&1jQD~94RH>hPZ$2LrD9)6zO{$cf?)Tr>(|4rvT2$@;+_}xP|KUH^eRHKM! z>Yl$3C_OPl{6*QQf)9xKV!BDrRQ$uu^buKlAL15`vcw@|e18q}FqS zNpy=McZIpgpFuBEjP5>TI) zobZYNq=G0Oq1+9v<|IB3{?Mi!Fi}cwu|6JGYA-C#V4u&y-MQxR!z9gu&xRT>-}VJZ z1(kiA&&Td@UclNYm2E2Y;?@1=rv*(i?e+f=TjZP=qZfm8bxO~-JH+fCHHaggaB-Wt zb?Pm6iZjkluJ8;1;zppQSlEPqt%zt}J=R}`vBKnOzL3C|_!Goq?bV9h0?vYh9}KmX zPNA9E`90+eS9lYhM_KA}OH#&jrz&@iRVf=CWOZSud#-LM?oHvSlt!ZVZ|@umI`_IL zSFXlg&a(i=TKPPGn@_Kp9LG@$-PCl3?DuX82#QsjK~x3h%{?DuG$Q6qzCv~hEI~5W z$He7bfWA^*X$}~p=-_zg@QD=Q%stwE{8{LxV8xv57LF70k_G$lMj~*ju)=84P5sKu9NFFz-tb5OvPhJ_D9(vvh2o_a#_gBpJG!nkg{+?8$4oQph?Cn>h;mB+l zqvseb=e_Ce`W>x@GhRRHr;zqMwrEMw8s!29{f9M$)>&}gYZH8HP1Zw8j2&~NKhaMi zg#eJ?*2@N16{Bxb?mNVv>nHm9<&*ypKrckoGtN+b<$7qV$H*wZuvDL)AWk zFp8ZemUBTgZl6Gso0dY!oSWJBt|Vu~N7NQutbA;bh1+48SWS%0)BfRYqf=&)ve)1C zUv(|Uoy$3LEjd@{svoxBxiLt0c6&+nBKn4WRXO!qQh*Ze9B)9K8;M<>ttp0%+gP0u zX`9?5j@5DK2m~A@F#BdVpDNb}Pe+lHsSt}WT6EmGq1E(JvqG%8=OA&JkI~Rq?|bF$ zxzV^h&YJ(Y0IGCx@|fx_HzP_Vb%0lWL@ltTb@NI~wZ)eZ#*`Yq;!HErS^#hd0558M zo)R_xHTdqFQGe8Acs^B(Es@CpK6vmt)6ti@^y27~PlH1ZvFa5*#Flu4Yz;%pu&b2c_~`!)jmNl!5O81`FE#;sBBk-9%9 z$*E{cuwaWbjBpkp1hD`s>A$3#+BrGt;x#pMI8{HkIX${}lS+Y&6ap&51;Z1;z&p;1~W zlq}F^hjmP1alfHnF*uxBP5Ei;>`{p_aM_gD zS&tWk&O%`QXXgilToJ7U{a$+Zg+Qp~hAI zjibQS85nJl4u3dm>x~F`6Mm$&0nH=et|skjM!SG~uv~r12m1Y-l4(k=8U2V}WwvzE zWnwE8<{pz7Zep}jbp88R#XPVTQM26HS$`sO?nhM?**5j*5PEX&pz-}LG{UQTO*)8n zd&=B~|7|#;H_qQ{cj$xE>FRD}1Con_`lP{T-GB0CeFh3A#2*e_~>9e@ZlGwj4s|U&+<@q_$od8Mvikyer{#~zqL?8yjHfZijwXV<}mk; zQAtU$4!|!82lNL3fx_Mp+_$cmO)xKA=G|O%8YaaI|+w z7$)V0XK@UDk0->TjPK-AXSdjT0gKxX4_o)90Ep9LZvyMa44deV-Sqc*wq$H60A!MnZ~RuB=HM1fFS$0GH#UxklG78EEV zWNU^;RV0&JO{-mhS1@^+PEVgX!ha5GAxChNhO40mqi(=`Fday^h^6+u$(~wWGal(v z-`tyb6HOw6-}Oju3`=?b-^d#wtiBWngF{kc_(WjG)chM;Jf9AXG72~t9h@^cZ{1IL z>sFj6f|fjpmi|>Gq7*kbOZ`lu08?Yo$9@L@djh^xRSas>-OX$gi6S8+zx z_qa+Yj^_SOKl%dBx4DA`=(XOGp{pb7a`55du`PP_x$7eS$8Vobb?w!Hg|#&2J?oRm zLdKC(LC851K~Xro31koUq=5@*j{k?S?w#nNQde_Ij>AVH>q^l zbh7(Vl9g&94sUER1=?3LF`crtTt2d5KcEGZ$$B3AJh#o1tnIj&NaJe6yWGL4b(Tdv zZyuw>V1N;jJpYH`jciJilWy<{igo;5q|UW%46j_Wl&l0(#%1zq*ZU8U$Hg#8e9E;G z8=XcDH4B6tnj_t+oi$~Dd@9eH-$X-l2XqWWkWQ1TcY zjyH067Ekmw>Hpj)cYnemzfGwlv{Lr^<6+&z=KIJLAsPyEq()DKNcG6!1g^TLbHxh@ z&<79EZ{9m3s@iJNU2BV0&`Rl(?#B9x6G%ZJ01Ep}T)u5g2VM;@Qf8S-nTE}rQT=E~ z=j7K#uzPv)--hJ)+py~Q8fwx5?vw(6z6Q0UZ7weKFl&3u#soMBrakXAc0r6e?mUi_ zcegrcCT1^&jP{2-R*1_ddljetdf^5=Cs#sRcEit4M8)vJgmb+m{m&~KTD{=n6`AIe zPI2*#jT#X_MSwoYiBAI5pns-o1X#;Fu?|dR8~S^N6OzHbrhy;O5Z!J!XV#HQzr?wy>}Z^?CRL^O83DJq&t3kYG!AvJTjj=U`MJ z1A*JiB#>psmQR$+YUVr+I2;!Mn&~}vQy}*GiZg0yab_BTjiLiOsdM>HwkgP*IhqOI zS{EJEC^Q&-%p4}Fg)f5TeCezybSUAftUU~cg4R$g>Eu~??dpT`*B@hKT&b&(FC>%A ztktEkVRAJx76(t#B0GFBi+r3!9g0q~o`8hen!||1%pLBGYh%W7o$my76Bc_+{g#1_xF!iv`<`w{r$!{H_Y?9w-p$PU*y1 zmni_G)O>=WC@Z9B1(;p$&y2qV9BSB?N-tmk+_WH zNH^cPE4=(dZM}IJKdZ8yYVO@%|4%JI-lKE*746dFUxpiN@Dj(fQi-!*F&N_YLq;d( zh3#3@8KNIO5s@5+(!X5w19UE9ow4!mEu$xanKQ=q(>Gbw3!l1+(onc>XCBm>-zaoo zdu7@LI+WD>aHl|lNKjLIKu5Eqy5DeW=PD*&kvJ^ScWYZ~Plk_be#1GfZNsY!R+*ef zu{jr(2wj@iv=ZL^vFyWF>N!zN@bk~sver=xR)#(%?yV)q;ju6^L8y5d4bd3j*H82y zzQ=z-fZhy5tYtwN+8!+!s&K$_Lm(BP#H30kbZuj*3e9>;FdEzxs#*_kFLj>gMFN0p zKuujCg)b5RV!#DB9-cgUdhG^*kY&C(gq>deDiSr6Ltq;+U zlHa-G4}+CA*F1>Z1YIY#fGjhzT9pgHL~oxa_m~x~iKM{fo~8AhK-iFTB#$Hj_>8f* z37f2RIxZL_cx*(OBP%UWn`{4GBmTJOriN^$y$>$f$-^%65z|dsBj*{)q&pcR5)(Ac zSA$ZXoac;Yq~0h_Zc;@%Tg^RiL~3nU{n#KL7+cRKC2unU(%rx#V4bj(n8EyoA#JV2 zeV*PhL-lS4GtErTJ?DD>6$ey4XH)~cS0(KSziMl{A_sI2DoB%%rGp~X)N~{CBxw6P zFr?|Uv)nToR~Rso+jjfH#{e=F5ar!}HOBh~w_Rh%p+FB{Pck3&t>CI{0M?Ha$7P6S ztc+f|!*es92j=ezI|i-0-^duJoZ+u4ydZ3bl=D-|ng*}|@oDJ$HMcjs33s14XB(d? zX!x$;X;gCmtctg&CS`V4N~BFV&_fEG>_EROSL@Q<%?-r~-CyC5f`Uqq`AI@;-VEZ{=6Qd5x)%s`04Yc>q;>;DT^wuE!I zd&+X#+DIqlTj`;3aL!)Ww|8}Nop+67K~toLB3l0Up+BuH96GisE<4(oC-A|HaVcSq z&chF*l_1r|bPI7={k ze$lHYodK2A$KkK{=Ay52=cV0&CXP(dM{hagIXk4jeHv;?|5Jc?iIhoTOE~JR7~VT* z?NN9JlGCMIe-%u!O&L>Kog+5ct@lr(@ck8s#iTI>tnYU#9c=0K8aSl)eEa4AE>DZ9 zJre}t34X*1&=XkkP9DFnz)9hi03zG9&5=h=B{&2 zDX-LB!DKDeOFVhDySII2)WB_hSoxIV;Tj7=URm9pjIIzu0PvVNNq6o~8C=p9T*A3s z2I63lQc-bG!!Rwdrg~(=WK@uig?_GX5Vx{yZm_oAkK>~~zUE0D^Mm6i(?MlT8U?j% z3mW6{t1)UE=i6G=`sJzd|D=Tg?6KrJb-k(8b=-lq!F1VHGyevH?~{WQHCp1Z-ys!qqzz2*c!=FfTWdq2kf&$07uTGqcDJ7)-6p!ve4on7;a*MgV$ zSS7Eh)qvl{@SWj5KN})oUbB%CA)5K@ZcGMr|d9`6URssp4mY6b*& z(cXSn+)NS z=#4<@@AyMorbGJ6BX{8$N=QHmv+y$)`YxRqsgf$1aCTw`=q+tErqYB^NU_@JehF?1STM8Rx}@z2V^EoTpM@mK!A> zOeT|Q1XY-vLaGcc?S;iY~R)D_+R)lkE+B1Kpu!273iTiSp^f;3>58rxtgc7Ral#R$`v6L()pq4?%iH*>Gau6_#^}K&vJ--F~X|L3%Pn|@1R&|8zjd;qNeZYq0|C zB>fE4H6^*(+1Sc_+}e8O>|(<_TO&$=Ek#P9zP> z<)e+^ISE*HKQ{nKrH>)EBH8jnHw_Bab%w8_(SK&FbAnG-!9gDboifkDP4mGlUCbkh z=lm#7Y*cq+58y`#1SDX-n#*u|5 zC_eQyRNfS3sAd7yS&8aGPs!WHcKsU?eE2JKn!$x@DCcmE0+UK%N`1!rI~>KDc$@*a z5evPAM%Nnxb=yTK7lL05oe6dp8=O6K6w1!Hxk^2J+}eJqeWx%dkUE-R;?Fo)(IacS zU;gGeBjjX5%b_yBbnE2AZwZzT@UZ_~eoMTTY#-Qk^WbcJn^~8jW*W}^E#M%k0_`pQ z>6ZQV{?Hr!O<4EO{a_3Tc&oiShlfoqnq~n3qil$>7v8uXIk3vLwq^t@;mbo7HeMEip z;Qc%{c0fQeWJPPU2#~P>4v&Ad4H@sSh+H#XtRfjIIO%sOf$UkAEURCrk1~_Oj0BuILP6EX#}#c= zN=OS2PH#HidU)q{rynQL$kngvbG+3jBo*pZzc+v7*4EM28=7-6&RMCjgg-{!75qPv z?dF?J;(+|^CJGc6)eazG4tn8c8MKLQEfzLjulDX$j%Xnz#1qKzL6%4*n}W{RXyKVU zP~=JsOaIB#g^qa(T}@6&$XB+!Vhb&Vb3fkWz2>vLbETkHzE(o8y%-O2fV>%Kg#aG^ ze^0TA$%Ug7)IDibHn%Mv3Myd#zOA}j@_)?tJzHV?mt_Mv=xrZX>Rc(wNPhb%c&j*7 ztTYCA5oN0FCD^jJweau@9mmOuP^MpwSaxZ?S~I|Ra@tpxI^w!~G3~AZ`=F?-sE)N$4sQ z!^-?Lce5U3rN8+;5Kw?*oa>qsZJpC!4fW(WX?hi2s&F$1PGmrQ(@R6v6l^a5$>Noy z``IvtaF?U79MvE@3KZ1RcFoQM3v~R`jGHDjSek)^Ei^+)Mf1m}^+5ul$ABTj6uZ*` zA?Q2qOfl?HAvZ>2(aYVwyLEBEC-pVwtFqB9i`5qu_M&(7g(sT~E9S61JGE1rj!rMt z5>m05vMo^TzH4Ki^D8LaKxfy_io0hi7}InHQgIP zfeVnnEVI{gxf|Y<&q@A+qo=%uHq`W%N-n0>fRaDcwuX_yEc{@UEs9;;!XpjXS@iGX z5TxrLV6`dpr@D^lauIin>;xbt_tT;oDgMx5{mbOQJf=KVdqgY;3{s`g?tQ`%-)QxJ=#U|6nWf;LPqHL->o5 zg!!`4eER2!ZT)i5OywXxrOSvbBH*qCYx3d0kUYhz3WNJY#XZ`di;#glmgot9G~9J+ zoDZ(=9X}ltRUBz`{qDB9cZD}WHL{zOJtj^*&tqdYi)6AcXU4)?--BUo_^6RTc~Dyhm^^Q^+UnzC!!Sbmzk}Bu^AO)d0Q;>} z*$pf&gj;s`7;rN}It?V7^1Hup2{RZa##x9rI;1zfbP;0|-4xEkd{R7odf{Iwi~dI} z3fv1M@NCnme$yui7m5jge5YMF<;wlbnB?)ul`5Y){Cg4l!Yh8xc$TtGbdmeM{(#x| zp9g>G06bCP!j=F3;vj^SfF{Qz@6M%Pj8SeOY}QVf?xr>J;Xc0_(Fzpe4Ji>v!*=K0 zPp2wW967hTRG1f#EYgknzyJM0V$$l)S+EL-IV@W$8Eb*Y$T64!$ z6NY92Hy72m4=4vj#ABzeAZ($gMLyAM<6?Li&p8w9sLc9^MP~0EenSM-W#eK6Jfvt= zLio7gv}e+lQHDPpOtiQ=$8`f zYP7ARnTma!rWZGElKIg9A=XSHxE+{C@`1q*ebfPz7Hs<_r@{5uZkA!ft z{N83+u-K#`l>tRp`4;#Xjt;hU%X7Xp&08}mbG2EW1nX8>5j8TwWK+;1f)bC(wQZlj z0r-ANPa78X3ip&J6a@I=6K4nUe|W&(7O2d9*d~aZWPvr#H)Wjc?Bab3vP=k)*v?N$ zVa>+ib8;sSEXEpzf547KTe-1)YIDjiDgQVVTb8;JfS$5Umo5jxPaAOC1jA!Mh|s8Z)C8 z{KcPOPCh@rGqp}P+gc1{lbL45J6rmNfrKNFTLJ~FaSF`6^*Y~EVKy~!_~uXaYTQv} zds68Q!ez~imViaPAw!ilqIYffxj(6Tg=y2_LdC{%adsJSVz2j$2fR$_3wdZGM7@>9 zg=1$4(5JteMQ|`o!-X#r{GAOn0E{VweO5xcRax_kI~&ykRjZq}w)4Q#%dSFu@-t*8UZj zx|6y*6(v#F)Q==N-06!YGN_$|r=X2ic7Qb9hSwq^Qpd16I>N2F;OvxyC-D1g&W>tS z(;t-*19NWr4%=!X7Yl6?FnR&O4`^l*&c=(oY25OsGn=*PQ`IT7h}2mp)P0~ybO1Vn zg4eGB1pHfhQBKxR4t7fNVVWULO$)Gde(_v3d-R}Ib+C5{YEBE?T<0s%P!WZY#tIUd zQw6M~MP9YG!m&sn5Dr^@(Cn4F=$@FwXTt=X5v?W5p_*8!qPnNgpT_pt3WLVr+tSjQ zA=l{5?O8b2sQaOqgO|}+E$!Q%?|TQw9VW^hoegT0<;e34t4j8H3@LCs-T^g%@orV2P9_c?!G}0R5hVA|O3Q{9rgLdyyycl8QQP=l z;C}mUK*334F>Zh;xu1bpOoqQn`)}Tt5eJ7J%)Jh5KDx4A6n# zlkJ#dVfUgI@xmn~P3m+Rpg1A}mP-EFKdg%bb0QjOBV&yJAn1O9yk$tMrmmhY*NbRP zVZ+tC5*-UUNqNNt>X*fkb^XKsQjF8nEh*@k=B?5N_jPnn zA*?BOg}Bu?xuah6SyH}gQp7j2EQ~0i<4yA(rLf??gO6&pYbHgKknQ^Vy3tu2fU);5&A8+fepgEhPa7T1zwWc3NZHRT2M_HD>x8um|HbF9*+))-4aW zJa3bw4I16idKpQ`v{e#Y7#VEH)Wx#3!g4YqrR# zFv6LET6;GT$=h6H!|s0mCK@H}AIn9W?QYN2t4b4+P)9$d%#N|RqoiqDSPgN(RtiDs z2qql0Zs!QpRwm>t`V9+)+V093pRfVG-xdm88rxQ0rn-S&WI(l5xio25E#X5cQiiEd zT)^!B2xxOQK7f?&8ccO-I7yH8q!?CMA}tcW%xp6-vBw%1ZE#-1;Vxt-QFG`zr*y#P zeWU7OIVh)U`Ffdk^yb1&zc9!L!x=%yTpfAxs*pq<0Cb?Gj+LXc^Ickigo)FyAFb7k z)OgfK20FrrWCWq8w$6{p27jo;iGS>98>xy^cZk0C`0&u5Fbed71lnLeKiD5rlNtc5 z+gXawQ^B;6Y9~eYL4EpFSwGrBG!pJoMZc+-Ro~a9Kb6TiW zf&IZqr8W32iRapuXE#V%t9G@G7IJev5X72*HFbm5c7oMk<_|y2Tpb55Uu-iI{%3;*Az+{^A1(n?k55 z_Z>sbMV;ee=)@)l2zCJ&bsk=Za0?O%RslL7()k|$xiZt>mR4xkNEW5CJHC>xE6i)D z22>Jgp$QPo5}zk+l|W~UP1E0>DF!rty8}zCI-YQld8;)1S0i5M;XBFX`8VDy2r1vs zJ@2`Ev}i&)Aw8Q1K+FLG-K%k{Q6i>if+HHPYlml>LT}je#*l-bx|XiW&iyF?k}ado z4~-<8-<3?GmvB^a?!BvIW^)=P*URzfFd9$d@B!7A~B#5k8TKz zo$DqkOl66IRrqgn0snQfd`sgBb_qa{djBT0V87t#J85) z3Y9}6yrR;{Xa6lpsOLuURi={nTC;_{DMc zR2ooj7!7N0_*eM4i*J5EY5=NhTL6%7>|v0M$(hZ>quz*r?f^kW}uP&&)whpYFvG9=Z3R`^tl77FWZeJ#9#$0*Jmf#5LHg1J+7iPB?&K5<@K2bI) zEPlQ*6;oBgR9Qvekvo@^vC`MfYt22qLfPaNe~#;H?->n8=x0Z8*@>iSUUbEEO!G2f zvjw9STjIa7J#lW4Q>I=?#y-YKO;VM60gM)hZbPGCRWd3RYEgMM3xKY@NFnZGcYRnGi&Xpblc}H9_qRm0N~TDT481atHE1ohE+Hb zB25in!BcW~(TNS$^M0Av#l;~*k{0}h83@7RpudW{8!+6HDcAufK86$#RJLnEb$M&C zuqcus_e@JFsnM}b$p!9KEt)pNx#oioME2F5BE6=79HgL~5eO5>@-ZgR4hNDV+KVN( z*8ZzS%1YQ_A3duak={WtFt2xpd=8xv_H1UG$X3i6WZCcAEn{7)@_#z$I2U|8%Q$s;gPsN9?c zILSX1PRtC>EWeOKu9rEE-}KCCI*Pb+y~H*__LZO#MYAImGUY&C!cxtvLU2UEQ7*a4s4J;k1v zo-WczJm=E+?^C_jwB#mP$4sBHtT^pO*&`c#t*^cj;Jr;`Ooz>oA$r#FQ zZ`o%_5&qan&ib1EBKhFb)9aWQ-w28(ini`Qgj4r@L%ShuEywO&c6{)geQQNNr&kY3ij9opSq}9P|4bvCMV~F-;LTirFnlwjXbj{rpu6N z5AZ$yU9Erg1c%%%e-Xac!PmKLq`T*O z5$uay)UND=Izr7?W-EtU`EQaUF!^$t=`x3+F%3J{dMZQWCn*+%D|Ezq`CJV*FTRKk z-SG82wPp6(gr)D7>3cOLH@*_t?P(VX*bX~K`-0&T*oJsq51Gu=dF3$kHeKUcXUyM3 zCaWsRYkF}?2}gJZ<7Iyykn56gJu!4?#L)S{nkB)}Zj4Mvg&czU*m>+woIm_w254WV zI^Z;++!v|IVsc-m^=RtF@!q2b(c?!=yNl z@<6=-xZ=)e%&8pbfh7wC`1STc?9U>WLPtDy)e9^@)T&iXTnnZDTML?7SNwfK#a zDGw4;gN6K8F$6Bt2`5Q~it`dTyeN#?_6J3c{db}LVpXx}jhmAmq_#3$ee+jkd~jS} z5KPh=2&+tfxS3~yVelyC=mYqw$w@O!Up#w~f#{p8vhPis4%jm1h2s6(ux@t0cSe}| z1gL=R3Ja>o+zfT$K=XCF7*oWWvBt;z!=(YH=dsp13sfLr_dgcUCkd}}!JPeB`5M?oW*&P!T0e746Zb&DY5>uViq zM(I8fLxz(03rL!^QDk@f&wJ1G#I6i8cf@x5hVWwbVB+-kq~unTl9P*B;w*&~W1c>L ze78Wrr;4(9CNsqcIm}|>HphYTJFJilTm@!>>5{!+?Ha}Q)Sj>r{Rtni&G!RIiCJr> zBOyYOTDKG>sro0ZC(87r&p`rbwQ#O;W^Sj2ku+>Y{_jY33dz36Y?V}Z2cX%rp4v?@ zkB~eV_={fDeFC{RfV}em&$<>JQ z>^4s{{L}LkUee*{Jpy@rFbZF#c zjpfQ28LjtD@R{*a^N_$)BbJFQ(aT`}DE>X*5b{3Z!fPMxTPzyb0W*BsdN}4|iax~5 z+;+uQCV^s?wLvhZX+J(bIe}!?a9!tLmd*@oEfBh$R<6DMB712oGKd%>-x^mG zBJRdbgZcxbCXZ;#ZCW{Sdz$~u8)vW2c8z_{odk@1<`HYXj(W9l+*H@t)Qbc=_daf= z-PTnqu8jKAJsmF(E1C1n67Z`B!-)O))oW)4{T)?|+fAEkjOn1*HY88+`lvJtZJu9M zT3%^#KBi8#R9#k#zDc1Z4OUz5-XfTE`xVMgTddKR6K}>2^gvchkspCZf^5+O66DY% z3Cw%7i{aS;uE>}gkkF>ib7$i-V7kppyTIe@luv4tU*AS4?er{GaE*3|FVF7p?OTQN z_@v6^8qc=F&#YPWWp0Ql@l7LuZVG$(;iJaaM{CvyUt?2)m5_n1@y0p7f&+fQ54_B& z@)>mGUXs4!1Su3oy#s>;Ztz%2YulHH&)X82aQ@*>nsnYkN!@^y&nqB#n|_u3+IPd)VMt2u=*F63SPQ?rIcOD zXE42i3TUk}3=1x^Z>x0R+_FOLz%|w*1C~!RnyU<&Kjk1@9VvtSG$huJd5h+*&ggdi z94gEh%e;pFTayLd?68OW@Bn@dj6IXd zH82+4+T!lOfmqZ$cF~`Si`+M@L?@3nOrv;9Vs{4F1C<9A)Jx#7V}*;T#N@0=WMb@< z6eU%Ev|N!Pwcxm}7R62p3IqN~Mh|_ulwkc$QPmgr|6(I)rft3`+2miNN(#}9}7l2>A+`r#5YZ~3H5 zi1VHjlUn7MGi&)e?YlZn9UjLoH31H~JhRj@r;gUd;qdQx=@cs2A;4;pe`cAKnfGvnx%_ljGxZq zk=t$8)UVEoUGd%oaTU!EE=~KRx)YiLPZtEhk>>u?0OWXoc6A1G<{IsJ>c{(`1UN4= zM>j|>a0}=Ix^s0B82k`lc&{%7RUJFiNJdk=HZ=QL5d z@Ab_toH1zoLAvzmA37|7pI38ZB8(LEPPOFO*PTJeq@x=$;yX$NP53z2TzcPGHV{iRRk~GKqulImd=wUczk(hJtHF+9Q{V%hRF5;P z(doQ=OTUTfr;NJ8HZGQW&y};Ox;+qZi-t{yL+6rPqm|#IqTvYEFZT9_fvJe242i>g zQppcM$H&H5deB)h>5C{tq15QojpYGA&Toc;Ov=Ew;G?$X@Dm7$%$E%Lj038I$iyZr z*Vf9;G;8GWIFgz6Zp{+_`?&?qeSb8he0n;b^RBhVtEcNltP*v&XZuS_E6uKDaq00N zZ=V&Es;0kywmi8_>&}uMcb{r88LFr*fd~vQK0IWQY3&=lXNX_eR?U~kvFdk-qf z21NsyxgEDy&4TY>Cpcj4Vo0#23pl?)+O+y zED>vT9rYP$Pr?kiG8Y(K%!9Wgw^SIM;jrI_^k1m73hG(w4BjyUHXj6#>$2tM+o3`k zJErPjF|0o#uTqf~7r8gJ41c0auvaqvRW7~ATm(6inp%|>vOIAiYHe^WCL@kCeevIC zHDk&b`8b|#wuc}V>bP;?UA3&Et^X{&hJ~`ipgLc&9Ws}CB~gNtyaM>atVZTb+DLUu zKpwL_=VqVcvNIGKVY_s)RKc8n_p6NEOem64TbCV=J!n!sji8U*A|*~scYe__1u%W> zN${c+Q()-eO8KAi7(Yu?+H0uYA4{o5O=4b4SG*t>?E7a>f{l#%*b^P1I7R3IB^C(! z_;Y6`CgHcY*_&ZuYo31!E=_^Y;r)HRuvzhq0wqFZV;P_O>P}2mQJy5y^cFQJ>V_&d z&yY8$#!!g#zFgjtM>^V)v@R7-s$Q@(O#fh|LQ(sUOvgVS2#N81?0vC({G-Np#+BE^kCT?9)yA_vQv;`&AT zj-z`4ico7ZERfXxOw1QIyJT$f4a!h%WWR!kMqxuq4m%Qz5V86XocL*eAv1PBr-(qO z6JJc7x-R=JMht*<2K^Toc+|~neDTzC*5cV*K8P0GdEkPu|Js2EW74|@TR~j0_keUP*}@SiqfPC5&sOcwdpC7$1J}5BoTK zevn9!jismWdperJ{@D9`crl88#vdU140$`Xp*nWEoYis*{(OlDP90W42Hsc81e>A1 ziqimqtq%+I$KS}~leK510IJj+OGpK8ulBXKsi%x>e5OQ54^AgYA^>`m0(zTInYY|C zbsQ1&nqw>;(L!?BDwrC}(n=Ydk0eK4g8g}g1s?{+lZ4IFCK~N^a=-LEPkiwcuZ-n$ zY?QVo4&viQYs30k|6ikhDWH*oZf0L>x@^NAy^3^BpD=KR^6@7ajXC&UbHYm@%ecJ% zh|mG#tHR7HZevVx$KDXxUz{t(kxRKoYaGjk5$?gTK?_hJB?;KPRxYe(Kzv3^4*uBv z$1m|38#2J`(E+n&jh){^w)7t3s;*j~xksL6-7c-WYj)|ADK<{|Ce%Ggg)QEQj2yV# zr!mSd=KATSvRi`MP^{93q(g0HC z0Z19=?6RPa0x74W)lTUg6_&U@W7W9*>q+Rt6YF)xOHk~}Q9Lq5h74>TU#Bert@JoD zsjGP=cum@_fm+agh%4cgfNQibg&7sKjuhY!o!aoM>S}(H;xm^R?nLW-B`?wzT5c8n8ICUKVE@YSHVb_z1dv zRMcrHYEZTG=%AEhOa={Em7WkKh2+O5ar}?=ea6aWJX6hjLX7__ldU<{XeMZTmd2N* z5HBQ(iOFq2bwhR^xGSN}M-C!-$?!x_tDz)j5}x9@UYf&=btpKSHp=*UXt*KB^=B5C zME=$LSN6PRv6CaPqnMcEFCHOZ*9ZzX3^mP7N4thiM}ri=$%0NSNB0AiNV)d|P$>Fs zBdD%|U0u+UO#52!EkR;q00K82lOE*;Z_Y7+r^E81=au9rH0){K)ua>=0v zxo7h6R1p;q7%MUQhJo#vQB1DM)p7IrjFm9syMn|Ug^&Z+ej0K%_$Nx|>)QM`(c|Hh zB(IC51{hTx=UoUU#d11)k7J%$!-A7#-}O!6EU-LPDpftxa4H93zR1r%ArVN^#lS%A zwT_lA#RFql-$F73_nd%ujP!?Fb&A$*g4l z;UO;|;_L^l|H)hgXEbG6I+v6!R9I&BryS6T9Hur=oyl_8!?LfV{?qLfGKD~3tm5oJ zEqYkH4wn0>W}IBaS4CK3x~XO6hY6*$rS97GBTQt9{;=ug#>jL&+gs*+@19gYfICs} zJ??m6mYg@&d`Wl;g;s#)Qokub)K#gG$bW}rvxG-4i7ErKx4J2}sTSZg;rT2djYlEL z8zJ71O;ef9xYc-q3Mp8k1~pfVB&6SDW~Sh>iAS7bOUL*H<$HY}#kDZX11nO))UH`O zq)oNu5ji;7suK9kzHSMpL=Y z1uzgbG4+39+MWYU6*G)oWQ}j8iuvUQSVwtnUZ0#oB)OMj8!lC1%6{E=&?0(YJHvGv zDQ_5=>Ip@tc3cY4+8|~U;uwFQDg|?Y#t+bIe{m#C=~{NHKI6%}GO*@< z|F=y9Ei&q67Of8#{`YY(-Ao<-k?TpV4%P&2PyK(o(GGA-Q@a|tYKD0{JM4f`x7&BU zMZ?y->f1C)iV<}j8BarS8`k1w5>3Bte0Q)Z1lo3&DPdsEF{ts^nbg1;{@s2jqJ)Xh0l?skf{x#51W;P zQ$=Anb)%@#2*ake#tg=UmnQL4lZi&Q3hy>+ZNySNL)Dui%Zxs*U|fI{!Yh*R9<1)PM)+_wTQp zy{*^G_~8dW*yG0^8B?(S7z0&@@$o=O0aCS7%jXDlpZ{8=Wn|>n)bw9pGv_}3u`1KF z*jO&l%>DNJ$%0lT0+kxZxrrsbyKGuB4hWU!v=1xc{UAwjlbhp^6Vqs(S^l>g(|^2^cAo$cd##*UPBNw@YAr z;d>CiVx?H&cz079>z@qpm|j(+QY&l1hSPMJ&gn&<3$9>gPEwYd)(RYa+2x|IyaX%FWL1asUh^rCa3*()XN4fZr%2Ufo+QM8wHiqtiNl3g ziY8qSJb;To!bt~d@|AeQJ#5U*ll!!85&UuxQ?}DCN+&$=Kj6+0U>qw*QWTmDnM3L! z(#+7hwu3ae%E)+Q`sL8raa8xwVDa2gQ3}GpY+K^}@k?49UJ4VpI93q)=AghG`rk<6OgtX86IA|nBWS@ej8a-WeD65=S%t41VHO+8jlN(#=G+(hVN5YI7~}8*4I$)5BeQFY#CkKs zB6>*dXvBWQ+|A;F_j^9pQ^v`ICOFg~U0fYD;}*P1eWSUI>Dr0W8^R|$4fH=1-@kn= zrfR4ZBneA0Lk=w%PKmx{Ms*e1s{$XV!S`I{1Ga!0gY?F>LYhi z)uR!|oZAoITZO$=3>S89x>W65g?QRXJ*a25lzG*^hpVhr%6xTQ|nDP*U9 z9Ch*V$^MJqW%HNiay=7m(YSw8W*_yjsbSJ0#0|?eyt*{Eigc5yOtR~0Cx9nm3_Yqz zy{7jbv({e5f(Ab7t32#x8{ls4E12berGAx!u^F{&t^589dbM==V1MQNjTplyhl^Df z=r_^1l_I{NnmfFYknK;opjK6Fx8bg_nevt?vyTImah9-rcR(QzEz+$*np#p`1|*ny zS-@~l&n9!P_fDZVWc<^DS;Kza+|AMs-QwZHHGlQkWfi6tLvyRJo__9=s!nX!*PJR1 z&thGZfT|Iu8^U+T+Hf3A8A`C5z}1MwbEAD(jXsC2)vEUH zLhhb0D=&fBhCQ*L4)i8{9&{~wTnL=?PZcZy_U2S*cmjM_vJKm}(=aU4`eiwpXPwW- z6L;2(Dg?LrSVbBSR-}PBceB-)6?F5TZ^Qr_l>Oy9xrM#GN4|Z8`Sk)1hxNEDm%B5y z|FexdeNRSvpKgw0Qk_XqjpfR>YD8N*^(A#5!lx=CF4776OoQ!rGPn~>k}AL zN_&UEFVk_{Dpxm)x=55Z)iR2@xQ9?*QZvqAJmf;)s_!UoxoA{zZeKORIftUGnc|tR zSwvZK84+FgoOZ_dJ;(w!3Wym1A2pVVN%yG@AIddjc2=xMO!pSYx$+@5RU&+8& z2tAZkq?c8smqfNf^4YwoZzq{1r#vM+1ee2_jV=! zp5k(+TMW$LZiZx(T?n<$GyIAWnX=_mdoTjTAv_byrusZ_H9_IR4ahPEndFJf7ItL> zTwcp@uwhBw&9rI8eTv|wgK^gJ>OFa?U~clJ-p11D;bGhSW*!C1?^j2l$pSP*V7)rI zk@@x!x!DJXms(X2Al9>J%p(QYv(1nusQ}Z3RX1}2V|K@q&A8C22)rf-OP&_Bapc`(b$tW`Q6i-i^oK#yZcpw1B z$KCI_$>TC!N0~072F=^CbHZG4s$Q(*GaLWHbJk+~-4qG=*crGgAQJm;jti_uNZc?! z?9x-m9Xn(BD{+pGa4xEjIcz@fPo&B4SdJ}Pe_oTgT}&(vW)%H5cJ=;vN)&DZc$}aj z4f#C-mb?Y`P=eg~|EmR{rzia!Lywy$)z5Po3Y+5vp&L`~2+G_ZHXFwZWJNDC3V3Al*z2ag6 zM4PKxE$jNW(v1qq7MqznN;`8Hn}o@L>qm%E{6+5x+5XFWkHNm^ z1G7YXo$zn#kFiE?F7e9t8zN9Dp%fXgN}uJLe;brB-xW8UT>4%%$IKN$Nisey%8PU0 zY|(JV)_jg35L%hHq@A31SZnHo|ICT~a8z4*bK#s8nVcRGM^VjqWC1muGqHiGL|Lo= zqu~5#aj33Mw09G7RQmaFxlL@OlV&ET3DY0h_^rr`6Z@cb6X8DtP+{wb*t4tUzAMG> zcmQS?-To$-!E5EJe@e%&%%gpEGZ;yE!A;t$e$l1$=k8Ba}1TA!&f?OiMc~kdvk_yS7^?cvj zY`!Sy*G*>OQ%a_42Xv2rUb8>X&iydSQBcJ%=aQbgS<-+2@a>=}yZUGcPas2GGjXi{ z{t$mOrjDdRT6w9xqHjG+1$QxJ;FH8ogl2XuazTWBfSHkrR9&kzC$C+8YHO*eHIr1$ z&W{$glWX5o1&jN?C)AUgO!Xov_@9wDcPvGWtLYUBq!zS|U{rX~-*QM(qc+f|&RRQY z68F&#i9=%L`;MO98CHqXa4q>tQWBZHi|MiAy*;j)?eP#!LWnJL(MN+hfWSYbJ%bL~ z3+k;oIgeE`=UTVIUdRoKfY{+w$zl$wo3-VFFMQ;o_R zkhV^6*=L4F>n}kTE)tZ`Utefgui$1hty-L8lLkhuIY#p*7Zz_HbGG!*2H_|+?K*za zYM?|OM|m%qy3bp>Eccb={HpcR$z$dbAUzw$X`_kXo3x?@41%F09D+LTxI*4e5Ze=s z)V`hwOs%F+*O_u74T8O!-+DHis}ZC8#L=psf8ESIfnqU!{E+lwb^2BV^MpuD#8t_d zu=psVeoShF>|e?Pic*#(1;u6cVwSAOwt#1pFYeb}NI2 zPu^XtZC+=%`cMcgJ|YE9Bfq@YLs+3QkIvBQ!T{=hw9wO5>Z zO%l-z8MMS1#u)SJCAsIL>90S<2-KDEBBhN>7crdHgw*!l+^giLE)+G~mtSSH_gB*z zd>^{`)GEu8Uo%c`p}S`+v5YFaD^ZYP>Nsz4loqC|x@hHPaKI?l{qK^^8?jX=eG7v& zmK|4aH0^7JAveX;&EF2=>FIV6kR}tmyZY@*6NNH^qeAgRjH(EcL7dX^VF^y_VVb^? zBnO#^Pkn9;cIki(on{`xBX?A%ih(O1&k6C9dOFjLEJki!Au{ ziTuH_@#x?>!r_m2H_Q?m)DkcF?V-4D?fyh*`JS;mz|i7 zo+BWBjq#!Np5%I)R7I~7^p~|!LlIBsC=~`|g7B(CY0>7?QbQ<|R`+L*t$@hLH zoHm3&IlsgRFR6v9iuuu9G86}zZwBM7AW_NZ(#~eK z^empAD&*f2kU_ZP+)3*Pw~%<~(m=+p$02=>G)>XY1{$ba%KOMWcNCA*qZLKs-*a}0 zR=0MeCzREo8aseu8bxHP3PrLQPHbh*66NGjEfzL*xlfBDT>z6{1b3-+&?Z|f-rTdP znfZFy#McvZw+UOLnMwD^r;#rrR}hI$eT7kxsDj-Iw>WG;GiS;CHLD}6OGv&lQ1hKd zx-dAc&sd?Iy7vr%Qp=oV!Hv$KxrdK#*Y;DBq^4A54_keQC2FAFX2+^rtfr%8oMwJ- zV}WoRpJZ_F5dfvTEqEgc2pH6kwTSumepC17i$g7oeNyqx>(6r#RX8?C})t=-GWb%0|j_W z{A5aAQ(TiwqmQqciu@gAe=c)8GY}CgCmux8UoX_P@7HXu+7s=zZMM@d=y+9J>Qv@X zYL-Q4j1{^PsPn{(SgH(5+NCxz;%q-YtKb$tcQqIh>_?^_f77ynpgVJsZ@EV1K?)S6lE;%)trE*9oj=I15KO?Dv z;fK=W3f8_(su?v=YIL*U(nm7|Q+MkgnZ@B5x9Hr@;(B%sFi2j%59Jd}eXCx?9l0Vu z|C|$kDWuLC%{>*ewh=d{C7Fz(4Hay4SdICBR2vNPjxOfcf8FWl)b#NOlJ z45?Pn*VRimppKe1_mmT3#QspvY3V<2av2fEsCUmD{V~x7rFlGeQsF%0k`mRG@UsW7 zA)w*B@#Bz*T9W8Ec4La2YfCxBUys&qX*EOPYRi-iFl_F+py|M4yGl1n8+u9^kHf@T zv%=tkOM4D>6Q^1XpIWktZam;gR!SH0S?g<7c_4Nd4(~LJZd0pmI#IBn{t5upfqCKY2&P)uaQP-+VGmHzo7J5Q$q?cu-ODOHp zl8)Q}$(oQCi?FuKCIdC`;B;TrU#~Fw#f~1&@RN?E0>MGE?!5|YYh=W;=%3OPhnon^ zc#C{M60`f{N>su+kbQrLXaf%vwl({W&c8Q_gTiwMJU>8@b^PH8-D)o)?mHF<|0myj z{EL3b#VV|~31+9dVH1J)VC3OpMS`53LL7f6C$3)7PzYgKuxw$5SmGUk!Em2er zkP|wEL~Dv=^?i|#KuUHl0kF<==*H8hxd$#C)@#M_##z%E!JlJ*X#nylPTc*`UnJ=` zkHh8*!{1uoYcnU(fpxC$jC%@OVSLFJ`B7dcrldX_tfGZhdy(j*6#l#H)A@z{vz)~T z=8o%-9Q_fqs9;IPfem#lRy)p*mYj_Tmr5GsHafoEju})p8Cj$=RVlatpf`zlh(^Dx zY4xs$kEf>5{IKN^!oK~`!KAf)bI7by;TIhK&n`ydC~;uO52a7 zGKQ#@7tIXqHXRnt1rx%U3mvxFx?BT)>o>!ed>04q^o_Vbz`ywO-rI73nZU>#x6xj) z3z9I_Kc>WY9kM?yrKUH>-)_xS6Zl)US zU1kq#G6CHU*hQ3BMqm(AdOzS4P!$$$dzy|g;~2qDMjsNCZk5=tx`em1^23g9*I1PR zd2c=|MeUPhK0ni73&}cDtsy_+GY2L6LN{eR7+4OhJ57v_hJ)pFw~Zq!cIN zRX10ttwmha${}-UT-_fN35n!EqS3W^Zlu+SlDU)QGu#)7ELV3e(p^|@NA@|ktn3v= z_Hz*5t>;U%a$(&F$;qJgKE(OL@B01zfbZhEk-zD$V4I<2ok*YTa>s}4UJsl%Kl_9d z015py^XJ3RUxm*RV27WaaK>KK@S@XPv8q5$`OxNzu|TJK?=ZFAbIE1MO1VH3Kh$4( zs~ssUl46nK9{#SD7v02ZEwsrCAE)uoYxp>u5!X2iA*+IoPFO&$@r``?RZHQ+@bu?d zr*q$~ScEox$sd8dbP0T{&r9*LIgIj1CjvKw3Zx;um^P?X%X0e&J$%8#g|SI z7mXi({T#4fxi)FcRD~?(C;#Prn_xVz<8kaESc>TMgZCMwRsXPYWD<#Lp;tUNF$Fqp zO2t0qZ3w=24Uv3@fvr60BAiUsg*W{X{3QUqN#}F#RHJb5yN!l%hQ0mQn37nt`6C?4 zG_3#|XkxtQ*}g)$&T%p3{LZ+m|0dFW^fy^E?NGn@6J^2!{^;TNb1NKIZ7L!cLivu{ zJ(C|xT@xh`YHYsLe|<|$G4}^)>6pHUIDIegBH|RY8oKi=Y@)&9q z@dg#6%tU!fROUNGh2lKLsJ+mGNtHGUq(Pi8J&fuhTKT_e*~o zCxBWNkS9m9`ZP#?NVRI^-E_*$Hg)~1DbPMJ(~*wM41n3x;vfR&8Jf*YwI>I=tS^$H|=l4Z51Sc&D5p$$XN9zF9l3{ zXJdm>amOp@mWUemAhjzPp2}TleYvn~X0fhzPc%lOed|+k4OZ`NC#n{yh(5P{hwr|T zV^F7!X>h{3osa4F@c?%^2c8dGMW7Q4*nwBgr8@%Dg8fV4l%G8_$YNMkl8p(%+c&nEP{@zw=05T6VA0#0P%kc0%wbVZ zJc=B;mb#BzRFH2b37b>vZ!?Wc-(3>?KJv5IcChKpRX7MH~7&{St5Odzw z>?_GFd3~Xah>OXsABWCljABO_5h3HtIBdst`Tu}sK>EHiSDBbh5L;w000@OCiQOBB zPsEH+ME=Vk?&KB+!(5>Hg;sgkal9rBG0R-Rgq~U_qHe{xJ68^V@t4P@VL*}1de)?@ zMop_VV=|XmZ8x6PzUGn0{f8}#00lwbfDyBGOPs4-vAC`U$G;xku0IZ=LVIFy!YuXF z7?~VQBu5(oq)0q1{l`)_cS=1okh(uC=|{felIT_^BL@^Ie#Kg9eIdnmAoAHkT-B@o zz4QyNLLH=q?ul2C_nF!BY&B|bAp{Vy8|g0P`|GO`NK{h6kCwYu$QjX|k)YtnR=Qj? zA`5HeyowG7HgTIOfMCy;-J%D6QQM1?w0xWYUIEd1$FQEtRF|K;#fCi%R4mK17}bSq zjP0y@qMbHrR7clAg5Nkf znUDQ9I-?xNtvskywD{~Yb0S9+K8t2JEC3Gzv2HE&N>9zo zBq%ldU`>5c{-{}iQ4K+OqRYUuWh0`=1}Rx-SSQEyA3wUL5e8!_biF?QkxC@*_Pp=_ z3Qf-RbQyEdiGK5x2#PDx@4EY=jrxw6HEOBYBgXo6QZMj}ytM`SmunD-MdfZXb7jO7mel7P=9A z?$B-D&cF8U8wC$RBKhj}GDI)JpJtw!7WR(g$Q&*rpa{{x;&DOAS(bfR=4)=BV=6Sq z)+1DaA?14A?++D%7N|K}S<>cIap8q9g))!$44*wlbblksrm^4 z!nmbQ5+4bX8|mD5DX*<@dO$>Ls2O*D$NfGZ>C>$=HxfiapJ4%#a6={sN z)iNh&g4^=VI@fqg5i131Q1f=M??bc$cDe2urX03-)$?YMVO28!n$lf@-;-O{5SI{a=IbdJKZjg~x0g~}@+6KF* zs!f|wGTyvm7A1^pX>qne=#pfboBKC4%FkSP`anmlfUUse=e+RN_HX?){-C?| ziZMeGzgi=_<^<| zzz#@a1k>06SlL<@>NJHnz4B>ma-CiDXdwUwV2er@-IlT&?n3Xfpu%Y(*JmpC zOWLXV=hIK&Evt2Hb5sz#0$m?!we4i@LSB=UdI(IyKE(un%)kGSk#_%90-4Y{KTkp{wUs!#E4-%naS0G za_Rc1nd5`R$8v4==n6jryt86E+1Fb(Q-_2l@N~BR==QuR+u25EoXGNr9yUXvvEI

>g2-{yU==)N`MIVs(0z6`}!86Y5_ zyx7Y9{p;nE^GeN5JlM`;O8LCT-AH!*?mm zvr9GLybY>vV1S=KJT1^F2K@>xgq#iIEbYHj>@?bizPGR0q1l=L_jIM7CA5O<|7um& z;)M9?rh8AEE80#+Kbz??TF-q)7k9G6SGdb3P#Jx{?TcBIQQMb@j?kW4&5ATQ%*HX; zsHWLvs{wj0m|EH@Bh8gvvEaLXdBslU(Yb4TbXoK5lz-f+L2*7e!ohbPICgo;<-X8% z^=sdCA;CU0goc+Lna#`G=G)82cuHP}(aX($zkeoT!LDc$OITozL<2z7foYWio}Mmy z_olApo2J^j`~CO~$R9iNl;NGL1m>{mYQ13qV9Gi#Y&#Y@jc2}iCOTXV2nb&PlVDCRy3y1t*BrYomDDvHisGJbClDo(@Dc;Y zNUwsN4dE;u^SU&&AVlUwxH&D>M;S5YLIcKG?wvZMfkFaNOx|<^p9xW1 zLU7@|R{BU!27jHQ|CeAT%xsHCU^5tN2@F2*I_y7$@$V7Ru}H~Xtmy}b5ryMd+tA{b zkHrl8H#B3td&;B!V^;NZT^lj*!L=0IB9?DWH~C}&CaEI5w&Y!6$WYA zr1|Gehn**?Lp&*i^C}-}K}78sASrJgYmNXWsRYPOD#Bp19kB@G0YpP(xDu)lj?a zNBX)cJM8raoV#zM6v+;~NKgVB2TK@>(Ijn)ag4w@8k?8;5qEDGCz<^Wj;9hBUhMee zxbtV)aFK=H^){TdCJ)oIMc8I_HWZhxZ^6_~1dILaV`Unb@$-MexhDL6Iahb0tG3~O zSIPR^#5|d4I>*fmI$C_j8f8k?*kOQ9nxkF|xT`S+tcj}OM6dXMnbu4bV9mIpcLA2rJOm8C(f0!~Fq+hjpg z#)*Ztg%)kXYL>zdw;5GVA%G81yDF~VS*`Ht@ocRDQAzbbjw`x;siOE5sj%;&1B*1K-B>b8X}NebN>O>PPm zT9tlA8$-~0iK|g2wZ)3P0m+Pt5NdyH@7j9+`*#XWwKnY*kvGA>*xvZ^@wRJib9kvp zT)#Z{_#z_*rrIeB``I=>HqsNzV+VGgXaga21E#An!iK+U{JpUT3O)45+7MK!WsZH! z$he4pXLSkr*OZH?R!uvH9Y4fVw~?z_JbWe8VrJBaM^j}Os?D8han+F@5V1{=ftva? zncW|rJ0bW<1m4FHmd*N<99jlwAEi`|G?dX==|APOjo*&b_#)3SZYa{DwT)&lpn>wM8}ICN#ksocJ&w#fUkXjNd6%|^Ka)2PGXzd*Eyd?^zxjRvxK=mHN)4j4 zVMLQUBqI`{Ba2;;#}C6^Il3OEk<{RDs%XK$WpX>IY*Q~pVTc{)-5@8`v9KETWevx* zFC1)Vu1q_)))@j>oedX=p;evSn(q#2vLfraDXjHkk zL6Rd29CZq6@q;|_OkeK=^t%8Be2US9Kv9-kE3F&4BlFt`Q;J4>o&Bkz6+_iUg)`dy zQkvU`K3mlVoMfe~bx)jAmW2Y2vc1(Z@bTjA60FDdb)t}j6uann21V~eT{c4No^S(k z*2gc_5IcoIOQ|YNhZ`BmaJ?rGK9Bd?a7D6)ivcB+l}-C<#E7>{HkEQUkN@d4>1^wC zCCq1mrPRKd;f|r-JJm)1l>X+6RJHTKO24)35y8m_6+K+w04nsRO?D(-XFM7WK*^YU{@@w`wA`w!sS5H1^hUahrY)1{a&((3V4=LywSOgqK&!Rfhuv4wmOD#80- zwKlxtc3?(Lb)Y0#zM&bW)-Z%d=hXo1<4fS0p=h7(uQv`f&%-nY279^qTshkF({|+j zsI|=@=3sD@s+*r9!|jIz!Kbb+LJQYhyjmN#ulVc8B5!AZ$2K*Qj*AJkmn$Np8{L(! zT+IFXC2X|Y2pyG*m;QR&Eyq9=)A}$5?fPbFjyJiYgwKDrRf4O`8KD1){8=aWCcRd? z3GW9Y=^&=;YrDA2vx2^T<$rWY2CA;K5F@!Ao{5=avSVd% zGHS0YAh*V3y~^EU-Y>}0v^+Fwt3aH;A>wm&^8;z)jWH#ISBsBz^+Bn1znAvAY8Fr} z-wJO>27=Q35{?J9J8BNS{eJxU>jRwJnVBqy*|EbyUv`gE-~eE2R?2Vu(PE&KYshQg zMxmP-hVGBxJAdM4qhAAs5W0A^=6)LOOojX=n>R|oC{~@B`c|OFkYDalvbv(rhiQ`4 z$Ser@cyHr(#%GI+@}I;T(<@x10Ai6RJ}(g!e(o(ie`~obu8TMKFx_X19sAzFnQqSE zh2vBoB~^b~5qD(vGi8}-c;-8cjrrtv7ztehyPk7ABJDFgI79r!I74HKF<92KBU$45HILwXYQW|!6vRy(&Ug^Z@ z*MA3Apu8@;!B!td-Ko_^T5DUw00*HGz_6FRVDD|H9@c5waO~ZJjx=X*>3L=6R5ZS*c z(-|=`W_jbSKZcBaRjEx@Al#+|@`*QfQ4kk-(`hO>eI%hq(MrKqnQ?)JB4_EX2+J(QjJDiRbxCTTgF9@VZP3vb~zypND?t zc(B2<5$xiDIMXZ7=?VhmiziJBi-L<%-s3nEq*W&8GF{nOsl?rAJ`2JI<+-h2BUrQa zynkP7+4k;nb)K!W=^VH>UOj&MFdZCcZcqas?56?)!_JZ*k_sc0a4=WNrNMsx+jP3@ zLd$>p2OPKc#+xN{k_wD8@;klUcKM%D60GmTj5ngu<(ozHWJ^I`FX#Dq0F-l>@y&uR zeF!la2^wuomh_gIt|Xy=6j(H4T0dnnKgHPSNf-sgN|IRBhx)DD^ku&rBSUlP3JE^A z-b77Z$*1B%59MjCI-Qit!m`=l=4;|YUdPm*N{1#|9{>M&ZbTU}wwAJTO>sMAoJ=Ni%86YQsI3Byh`)@`vFIIPex ztY5bpK-(Y|(_P<}YtCc#aQjiFx{r7m0k$_fOye`ZnucOiQLSiWYt8`a3sbWV42hxV z(>v$9lILuQpxC5&n5e7yl{!1eDAG1z+ zY46ZmWpd9*ueJRWR%M6Har4TScn*2J?j-7S-rp^+IE$eStp$?5bwqrF@<1c>prfT0 z49qZfEKAt}puaBhLu|-g-iXl>e?rBo_PQTxnYehRD7h!k^{;Y1!8&UH zHop)kO1M$@myJ-AJ?@tosxg3M6=4|mhH8J@B+1TUg^DGh=DaA0`bQ-qj}`(Rl1A_I ze8rG|F8w+GG@taupcYAmDq^i7~P23oahjgBcvNp2!hBlEPxkd-i-Lq z8Br8zIh*B556szpIEHL@_hkMZe>yx3MA2l!M1r48(Tz@)KIRdCIHr5ABWM=w^OBuqxXFc2_4Nk@6nO6qHu8fgRoDoCby@g3~eiV6P zCNPpA>4fIo$!`p>8&zy^Ku>cLJ17Ir+c1dA30Y)I?uT4dy>oCdeJ&z9Eqsq^8Lx&6 zC`q*WIE^X!UMGP)TOew65rkli3=i8o`kO)drVCzl=!fRF=918*o{jhWT?lh%7Kgc; z43fg4VlYW!pw;uY=+yN;srb>=m;_CGt8oz&!<&7lo9c~N;B@zfI_YK!XqfjJ^-ov1v%)}6%my@!qyQj_$yve@1>(X-+DN z3syveQBeUEiPVKXv@pY~W4~iGe{J&o3Q@CwcPpBRTMkgMeuEEY;~NwbCbr#zF%%GR zv4PbgR&hpqBkDmBhWU}h_mZ01N+8AH0wdk>pOfhC#>(_Jv5LIE?SWkB&Sx4^t9 zpov@ji4N@B%YRzkmw&3P!g-CPyLWl|(bF#fP4JIL(&EQn-1l(Xb(O)N$QQ#n(gHbu zfL{ZOjN_@F%aN54wKOt)#m-FHq$5T@p-waV)kv4qANaY}C z@AF@n;Dn`$#8|o?7J7P)D}LP8bm2BNXxzUd!y8e08yHqTDcn$FOYIDtew5*GBMzZ* zLSixImmQ!;^j_}-cl0Dx!zduVb*o-5Frwj<=EOG>rZu4;1tx?pZ-fwomqmg$MD7hX>lJ`&`=k!2{QemAo|7RZ3MtF zuj>aVI1i(6KaEvsAjQh12Yg)qK?IwJ^eY+jasWy8&#v!Dq-#Ed8E`tB zwJpu}=qNcq6e85wgAEwA7+B$ZTsM;}o^ik+CX?6XN?IIY_tH0Oun>PDE`8MKM9D9IQIMHA%c6YSv@x*h}d* zMi#}Pn6D}@K^o-X4&ufYk|!P*IC7|H`bf8t8J=4XsKS|(0X3439A327T@DPwWH6TN zr)vez?Ed0<93X{srMm&N?LffOyuOuJiBt}i*ZSsf#jju(8zO}2$x~L^bNNAQaG(6z-Y?TLs7T1Gk zROqloP~l;hNt6_%kgTF0pAtV^o>||SkN0#9PS%G2&8=T{A2N)i4c$<(rHYad%@{Y~ z?!qCFAB!m*Zo#^%Z%z@E+A$po1}jpVMaUTU&O#VKgyL}8h?NQ7TgEVZc%+Lf9lc$@ z;<&28C1@}i6#}d*DpqR1DT0Al`H6(U}h3W3CY z4>d?}NtuSvN_r3Z;`Q?Ox7a&rKvZW10$6ljv<$Q&86#|isKgX4l$E8!(TpI2u7U{~ zZMtMpnZV!@1_~s}v_N^W#0GxQXyi%4kCC!hHOQZ0Z}a#kfC=_}Wf{(yQ57aRA2|9s z#n{EeNT&R-p5I0BC6Y_aS%VN(7?eN?(Gd2c0$Gkzj{R2GHZP$Eb zCO(he#0V0tr4mjovW8LlFwbr^08IZV@YZazn&C(vR&;@aO0^fMnG(KdUs4mqyg^h2 zllJe^609h-lvvpn)l=A6j41h{Qu45>8zHi66ve1~7@70=`+LGD!AuZXSG1QW>i&h0 z67=&uFti>4ci;ypY0Z(los{yz%;MwRKm@3RUK1$1K@{?$@Sb}gv#1Owpdp%hP$PU7E1bhMgDt6g3#*6n1 zc4lri`&iHXdB+_N91Bg?(JgMM^I!4DLqwDXfXpx32eJQrx!7fzR%DgGTqKjuQ(~UR zD9`90msF38hUta4@yvfdt5|M!0*>-c%{AH|e>Ei5jJZbNp_awMRdcuDdLIHD^M2f> zA@#{nd7n$*<6wUuR?XcF#E*sO`^0zyA<9`>+=@vFcP+QFmG0!ZN3LOhOHq1t$sSeu zL~U*R$jK#R0{o!B%8wtdZf7v%13@p)?r65#_y4q7+FE^3 zRkKw}Ywta3)E=$9slAC^L{;gdilX*<)ZWz~R*c#sl-RL@*hC01zwdtfJLi{^KXQ_s zJMZ^(UHA36R_<3XPO^f2jQ6gJT#Fxra$*qt`arhI@bP_V%Fk4whY>FsGaew^20~#p z_m+Pc|42jFZ_mYazcnGP)R3#z_|y$JRf@UG*)5@qLxtC^PxU5EzX;hzo_f(zjio zNq|xmZFuK{RmEvB#*SPJGkwLWDUUMEM#&@ozt-RK!4RZzoxt zmK*Ai4veO5PpYzZScP58#JRsT{5K=ZY9%1_ zDj{f#I%_uTlD93gmIswPbt>nIr?=vK1G*rrxn^xksA7sp&iVMPFiHU=B$=&&{gPrI z;l1K*{1 zX32E#CJ00oIr{W69~k*usZz2~&MAxeYWwMfd4otF;i~iFcYz98q3{=cHGv-( z;-f|b_#5k|NJ>t2b5ujUdHV88oy+EV%VetDQ5K?7Cmi*u8bX=+F47)HLrFdkM`S+b zu0xd-W0oxK{MOcXU+Ci*;*lLIrvC=$uoTa(y$}z`)q)SO$G!;`lL+ygLPeTnQ4;3WU! z*0MSHC3gchFfIDH&QQ$PcV2#8e+ws7oz-0?BgL-GzAlzNe6a0070sbHEfPCIyzkSx z&#!g0H77gbdXXz46}#_XSv6JU*yWJ7x7lXXOsjh*yzn&!cL*1=3SOA!yr=kS!s}yg zYjgS!8bCdC*_miSxMW%*E8gNSz;n|V3fgGsj}(!Yc$g>=)o1Rf8dQl#tNX>y`199s zea0fBO;tY2laB$)f#ijVG@8h@@+rb@?2QG<*-wbKHi7FM)r~2zYP)JQ689`JddkABv%%20y(V?zqHWcHe9A_l1nUTCoYuT zBjszoagZpKj_eROIOQ*cACWVj#?Lnw$7AM*@7ahj+JL>IePlk>hjGP--__n_B{ zAM!nzTY$1HHd)uDIago>#6^eGBP>QLtTN}RJ>tK32e_>?R>G4r7CS}-R{CicB?E|| zWnMl`A2m)`egoI(GZkowzUH2B4-wOQeZxzH@mY%MYqPcItxl&tZ#k&>Ft8O3+ns^8O#Nf9lYGK($^|VNA|susM#+L1H3z(LOx`Op|7e% zKb&bLx3{WF^OT{HhMtxP3;A3}ku%`>mPU_!7jRz?BSLizWba=L9>MAkQJF*) zQBN<1Yo0cqFI7H;w*-W~4{HdC6^lP&ReR&l`=vr#HHGc#AqlUls>ERD#g^&9r5GR; zTQ7j6@qMnw3G+`X3Z(8DfQ*wWBIWm}V>AGZRh8B@9nswd-=q@z^vcB8tn)1%yIhIt zqEZ7Kbn3p$f3U*FC0TiVYcqKNNsQ~0IKO)Dl16Wp$~4w~JGSgEt+>NP7ohp+H=d25rPE8JtsrrFs9Q8+$iSOP&go|HC_VcrO^hDqn4e!zT{``b z-1CUEf~F$LO^NCN=R(2JEU7zSOk2w+os(hXv$s4a&D-xxT3*_NOmy zx`&$%x!^7LT}o`N1HTa_L~a@^%t81LPg5i2djfS&I@{T?mR?~LSRf7S*d{9Q(-_}HWZaOgizmdHMWyV7fOkI2-; zRbpaZO;3xwV`EtRS}LJB^gTB6Hb4q;>288tP$7zFyfV>xmT?I&H{`N~;!v}>R(HXd z*xyyXnC2^T|E9mjs`47(^oCH3+to<}n1F!D0Z#^3wY*CdDZ;I&x-v2*U@tFSQ(uA< z3EDdmS56rndS++x%HU_%!!d+r&*S6)K=DG-LcL2H;-i5dUKB@Q8##Q+Ot@QuR{6Ed zdyd8gE9)SC)c9#aLDBC)HM4A2@RSD@sl&H_=K0P!-CB6y_Yt=u5~|5#=h`1PJiOM* zkdXu6aKLIEnhCghG0YO+i%y#R$r z;PpC)WuDp2*TX`?@x2!Ej((8D+?eM4nc^78A;qY~zZrPv^@GSYT{?pVf%1EPvV6cZ z`~{^gj&$50s1z(-T6qXK_aAg*>-bV!kib5)Vs&Wjo`}?GY|6mJ0KE~5bWi(IprcgO zjkZRA()r(0FwFIQ)yH37hK9i22eRR1FPbvx|7B0ST}jF?9ynJZ_=tAu9*#QHkPL_? z*RGysxLz{uI@wFmti!}ez$jd-Rh~W&K`H{LcCQcZMcG&*g*879Y!zXsS{l$+y!Re0 zes%$68*<5}LO0$ejKma2wuI2bvxOrf4+!~BC}7P01e?7$ds$^lp2YjiFZU z#Kc=V;__vFo;t|eXeDj*q3>!zuMMVJ_Uzk)7oLP)P)LQJYE7y-dk_v6aXa)hCA;lC zQz;RvUOAR z5Onj@1&}Qu&CL`AlP4bEE|b=8u0J!SnQaSUbaPqVn`ZNCy?}TWGCNuWLOnz=5CP83 zn6-a|*MdDoGeNWHbf$0z7;+JSO-zg#8Vv#l2grEE*pVT$5)lH%Fpv5zyFmP62Tz!9 z67T0ogf|VM`~&oei230SL#r#SKn}tGTqlLI7%}k6<*RFa6bMY2W!7oymSbumMwe?g zgh2OKQBc5yy&DRn7cE)-o8A51SRbV%sm!18UaTqnG zi1eNo_OT}_VmhAj6JBik5pH7e zd&t4CGafPU(P`gan?(Nu@wucuZhdjnlFy*3GUGeEN5bkHw5QeTm?7ax@tH%< zOj9wqW(rHF3X7QE>xB1+End(ll2s}`oLfyI$w)eV6%amvP3ZS+Q9wXprukI|IX@1f12Ex_ zxwNJ@j6GtS=LfGd7EfgO++hK}xsrVza)L0bcN)7wowIoVY_>&ZcpY~7L?;HmG=;;7%PV^5K>5PmS+PZVA#dFa6g%n^r z`56frnd$%$$6Q@^3c#BgE9;49*2ic6?g&Q{mlro{JT%F;!`Z--W&4BCO(Ih zC>IuLz{gAHDt;yLM|>075?eL#N%6e*hw#k zxUN~}imBJ2`8S++dAEX!q71bU>FJy{khg<_?Z}e8gHNBws=`N9Nu=8|!P>6{RtGB}P_6n~I%w7q6TV+g6_y1z-f= z=%g$z8uiN_j(SI|(i4R4v!O9rj>v?S`a808A+G49{TVu(zVt`3uavS?hMR`)at!9( z&#*rs0W#jaw#vxXNe76x2*Y%Ow*8MZ{XaBVp9XVngG#=a2_iCUzt$*yIH{WNvWJ3e zZG(^S>3h5o0>KaBxBJXW#+#;B_M<%VtSNEwuo~W@fMz45;JgCC z&ACBD%=;>ajWayg{NP{BTS3)crr1&S3p0`XZJT;WD7~mdhrpfwpc&KR_gnHw zW#2u)+M;AcOiW0<;iyv049y;Sp>k=szQ4%ietJYP;7;Dc?kv5DlrMMqRls=)_sF@0rzVg!I3)c_CZPnlT>F)ISX?{+O6B0AI#ExPcA=)>gB`|Q zzhD(|xyIHPt>BA0$Fh8*N{OR066-0@DX&`igIrX9M8C6Pkz*jHYm`U99(5)m*fiXJ z!08?i0z#I4-zZ(-j9sJK9@kuy%pabt35Tl8nxfh zR*n%~+;MPiF4Vq1%+E&Xkp)MJ=1Rra^kzCclO7iV>d(sIJLZK#kKXp%@$ysnv$S1i z6^|3N90d!6Bx#`;&7SORE!t8VdH0#@k{`Gx&^@wP#IIbj#)UO<`i8{Zy9sa|Zztrd zk$o}uwL$2$QsmBuwp&@Aezeo^#)EfZguR93y?dav@K}?YmW(`wm8iuv7l-L^a`<#wBwL z!fZ8Lr1>>*_xz_wM0^>ilLIx7=bC*iyFBvb^B|7}AiLKdHaej@!X=}VXb&4d^SLSC z7>D}8rq-N70|1Y0;JO-b`hW#}n6I1aF7F&Y8@-O8xMWA+Ii+*y zF>cpr_+WBWcHL;o*qn5fvBcgXC~`U7=K!i#G(z%JAbWqA=Vn}J_ zF65E`R8;au=yI}c-vvE_s^#^d-#(`sKrH^!(_SVf?r{2sJ-%=ji;5y-#-yIcP|7NZ z`L>?-ls7tIz=yA__&k|65z4&kiCr@h^FU4{C@9ri4*vwcX~LSmx-fl9WfI4!t_lRJ zwqCwpu#LAbnpbZQN+NperRQ#>M7%6BrvT~(3CADDX6jgj<`Y^%%u7Tmy)3esJyAQaM(baA6NGH~Q9X`t*H^Btp1O?PEOTX1CwL~^; zmYvl@_@_Ch%*WZoUIp;T^g@ngrV3h8%sC})22L`^lr3+8mtUzBQ0 zxu>}un&`L0$H%{xGkzQOtC|bDV>cLm1F&+6@>f909nt@s0>&txV$Zu6*4{THjX4hn z8z>zLh&Hz$t8~^*5F}ds>xEMDu%{yuWz@lS3&=<|R4`034b!rvYYmQR7Ap`V%>!Pox)ps8oU6v#+1 zT%8&$H9nUnu%-=AWp@UDd? zU)864n61JYtj%gW3TAC>4H4K=T`gwZEvBvAJaV43c`lBQCIk6-dZG2d*N|n_X9mP- zE6F(#W@n94rw`OiahaNqx@?i`{OnlFuK@%34BefU=OfH|iCim7XrcTF}|hs!DsO!uE?2Lw>5b=9P4nn9GV zS1-8aMa$ftHo2e?^gpkhNLmh@8H~@6fV}!w78!kMYX0|;e>xtpX&Opf-1XY7a!zM0h73v>(~W(xsi3s@0%q=L2G{&Rx_iN&c1HZ|0T zn=~ft`T-mnGape7y$*G&H(!Zvp?GgcY(x$39Nq&$6}Hr>g8Qc17qwF)VAAET5K*nq z^KX}D(NBi)zR1@sAU2?PHL|zh2yu@kx}vw--|oPGt4K3ZVJy#-?Vr2wqG9<;9)-dYT}1t1GYHlLV~ z5qt0IWg3wIg&pnkm#C?A_c`bN zJN`hX#5N5Jv&Z&sj?_|YK=}E=Rd<8oqY9#DGX*b#lA4Q-$;v8LuNE~WdVjUI|BjUr z2@3|CCja!mABW|N8U9&hK-UHBkUeeo!x0Ijt7Dj#N;TX~z5CU|PoX|QGXsp*J@MIAtoi11@i}`@ReBikCIc`l z2|a!O;X&!E^W{zKB{KI)X6kx}19Y*{N9|hkYSKI$uy}+y{s~ZyJVHdv`tHc)end)z=_htvQ^DSS6Y6r0b5g_hAo!|rZ zd`^~j(_Ar(c(!JtF?pogZa$f2-mMVeKVB^Bp0cL}JMMBZ_`#Q9jtrH@H#EzBsfc+9 zwPm%v>EybUQKG)ZG)H0=b^nJr*HX&+Uz9XxLAdO;>HohV z)9s7R%9juyf+Xk@DwA*}7_=7grM=H zL06c0xxcsG{W?XMpYjzna^1CMFAFps^j`url*D_sVu-i$AaiiaN93GMZ3RJn$><^@ z&z7=;41akhX-Zgg%%zU)#sTH z)>Z9^N&s5c`EWRURygu7F2gkd#O%*-9Kj!d)nspkTnl_f5aBCvn85u*^2uMzEf~In zuwaCoe3&DbWpPr%rpbb|_pN3FbjQZ6{V)jhzinW+4$y+GG&@Onntn18J`Z5>s(HQf zSx3sVKUxux6dA0RZGI)0y&OikTl#;Vd^k-(vS-j{u!} z#EgayPTf5%JH=dY1b|T->$G%?%=YYz4m^wwUV-0$C4Y??zuYBa-1O)zD7!ct69KY} zw$pW~l5I6pvn^NWBf00V3(8)oG|kpjrcw+BT!o-;z&*DcbthE$x8f#U$+Qq&gkgZD z;`Wf_U#C5Wgggl*xFMWoa+S2GOwHb%u-D$M(ir zAc4$12^Z5?U-U2qA9~eT$T3=!=Z8oFh~;lux9)b==k{+D9$O`r_)8J2ucE70)%lf# zbN(wD=UGhAxUARx?*f}yuI;?8G_w>0D9Yh%h_UNHw@ij>p+|O`dh_>1k~BA=wBK^DJE#+ zEtfx+VC8cCKusaVe#|*^@MKey-Y5NDi6aWN(AraE!CuLIo zU)3JIt~YIWmWh}tp!(bc^z*)GjR=Uh%=^%doq2S3lTsNW~d01CJB5?ZK&4Se>>*;%huf8&Hs3Ny-dxIxxzw z&g2O@%?@y`IDVQiL3h>5axDOAYxL!LXsmm$us*l?ns9nB%d_Pga?uRfW~n|sQA8VI zi4|){pn5KsleUrzS(A21x(iiXd-$;WC+%>?PW60nSIwUG)jUgRs{XT14l#8WBw{r) z?60F8dAO+}cb0%fvs}}?M~9uFTe?3|CwO(lx;h9k7iT+3*VrCJmT?yNWv58WU9V(X zq2;dnb8YDCeO1f(3-OD)UjL;Vq)aLlaOtY+B-oe1Jw7bosVOe=?MwVPvdhXCp%{Z4hf(=CFyiKf9Gbe*JwYzHL!rBP>ccepa%=tqlkwK z|FUX4Yon!r8s^C=OfGuCx<;F9e*7@)hwjT>|J`*td=DOg0y+y`wD|1Zl7+=633lgW z)gTb;0B%G5b<57>!@sb(=8y?$V4?P`(d6UCg*a6xj^u|H3&{!Cf{(_Ar^1D-GB z*{C`^U>LW~ziR^%Sj-8kw~Td&aGS-sR58&7E&uNWEB&`MbPxF~Z^_?09gT+^ft9TO k_cOp^>MJ@|t2zbOcavzLF=M`NSP<|~Q`T0hQn3E;e{;@6QUCw| literal 0 HcmV?d00001 diff --git a/tests/nndiscourse-test.el b/tests/nndiscourse-test.el new file mode 100644 index 0000000..be62744 --- /dev/null +++ b/tests/nndiscourse-test.el @@ -0,0 +1,59 @@ +;;; nndiscourse-test.el --- Test utilities for nndiscourse -*- lexical-binding: t; coding: utf-8 -*- + +;; The following is a derivative work of +;; https://github.com/millejoh/emacs-ipython-notebook +;; licensed under GNU General Public License v3.0. + +(custom-set-default 'gnus-home-directory (concat default-directory "tests")) +(custom-set-default 'message-directory (concat default-directory "tests/Mail")) +(custom-set-variables + '(auto-revert-verbose nil) + '(auto-revert-stop-on-user-input nil) + '(gnus-batch-mode t) + '(gnus-use-dribble-file nil) + '(gnus-read-newsrc-file nil) + '(gnus-save-killed-list nil) + '(gnus-save-newsrc-file nil) + '(gnus-secondary-select-methods (quote ((nndiscourse "meta.discourse.org")))) + '(gnus-select-method (quote (nnnil))) + '(gnus-message-highlight-citation nil) + '(gnus-verbose 8) + '(gnus-large-ephemeral-newsgroup 4000) + '(gnus-large-newsgroup 4000) + '(gnus-interactive-exit (quote quiet))) + +(require 'nndiscourse) +(require 'ert) +(require 'message) + +(setq ert-runner-profile nil) +(mapc (lambda (key-params) + (when (string-match-p (car key-params) "nndiscourse") + (let ((params (cdr key-params))) + (setq params (assq-delete-all 'gnus-thread-sort-functions params)) + (setcdr key-params params)))) + gnus-parameters) + +(defun nndiscourse-test-wait-for (predicate &optional predargs ms interval continue) + "Wait until PREDICATE function returns non-`nil'. + PREDARGS is argument list for the PREDICATE function. + MS is milliseconds to wait. INTERVAL is polling interval in milliseconds." + (let* ((int (or interval (if ms (max 300 (/ ms 10)) 300))) + (count (max 1 (if ms (truncate (/ ms int)) 25)))) + (unless (or (cl-loop repeat count + when (apply predicate predargs) + return t + do (sleep-for (/ int 1000.0))) + continue) + (error "Timeout: %s" predicate)))) + +;; if yes-or-no-p isn't specially overridden, make it always "yes" +(let ((original-yes-or-no-p (symbol-function 'yes-or-no-p))) + (add-function :around (symbol-function 'message-cancel-news) + (lambda (f &rest args) + (if (not (eq (symbol-function 'yes-or-no-p) original-yes-or-no-p)) + (apply f args) + (cl-letf (((symbol-function 'yes-or-no-p) (lambda (&rest _args) t))) + (apply f args)))))) + +(provide 'nndiscourse-test) diff --git a/tests/recordings/install b/tests/recordings/install new file mode 100644 index 0000000..e412007 --- /dev/null +++ b/tests/recordings/install @@ -0,0 +1,218 @@ +((posts-:before-0 (:latest_posts [(:id 699087 :name "Jennifer Alencar Araujo" :username "jenni_alencar" :avatar_template "/user_avatar/meta.discourse.org/jenni_alencar/{size}/169068_2.png" :created_at "2020-02-11T21:02:00.313Z" :cooked "

Hi guys,

+

What’s the difference between staff, admin and moderators? And what is this under the name of the group (Owner, automatic, member?)

+

Thank you.

" :post_number 1 :post_type 1 :updated_at "2020-02-11T21:02:00.313Z" :reply_count 0 :reply_to_post_number nil :quote_count 0 :incoming_link_count 0 :reads 1 :readers_count 0 :score 0 :yours :json-false :topic_id 141327 :topic_slug "understading-groups-in-discourse" :topic_title "Understading groups in discourse" :topic_html_title "Understading groups in discourse" :category_id 17 :display_username "Jennifer Alencar Araujo" :primary_group_name nil :primary_group_flair_url nil :primary_group_flair_bg_color nil :primary_group_flair_color nil :version 1 :can_edit :json-false :can_delete :json-false :can_recover :json-false :can_wiki :json-false :user_title "customer" :raw "Hi guys, + +What's the difference between staff, admin and moderators? And what is this under the name of the group (Owner, automatic, member?) + +Thank you." :actions_summary [] :moderator :json-false :admin :json-false :staff :json-false :user_id 73806 :hidden :json-false :trust_level 1 :deleted_at nil :user_deleted :json-false :edit_reason nil :can_view_edit_history t :wiki :json-false :can_accept_answer :json-false :can_unaccept_answer :json-false :accepted_answer :json-false) (:id 699086 :name "Kris" :username "awesomerobot" :avatar_template "/user_avatar/meta.discourse.org/awesomerobot/{size}/142900_2.png" :created_at "2020-02-11T20:59:52.911Z" :cooked "

I’ve got a fix here that should do the trick

+ + +

The problem is that the digest background color isn’t being dictated by the theme colors (it’s static grey), and the colors of those two links were a theme variable. So light text from dark themes ended up on a light grey background.

+

\"Screen
+Screen Shot 2020-02-11 at 3.59.27 PM1774×98 16.8 KB +

+

Something related that may be helpful to someone looking at the digest in the future… the background color of the email is set on the HTML tag… and a lot of email clients (like gmail) will just ignore that style and make the email background white anyway… so even if the background color was defined by a theme, it wouldn’t be reliable:

+

\"Screen
+Screen Shot 2020-02-11 at 3.56.57 PM2044×112 17.9 KB +

" :post_number 9 :post_type 1 :updated_at "2020-02-11T20:59:52.911Z" :reply_count 0 :reply_to_post_number nil :quote_count 0 :incoming_link_count 0 :reads 1 :readers_count 0 :score 0 :yours :json-false :topic_id 135973 :topic_slug "summary-email-footer-linked-text-is-light-grey-on-white" :topic_title "Summary Email footer, linked text is light grey-on-white" :topic_html_title "Summary Email footer, linked text is light grey-on-white" :category_id 6 :display_username "Kris" :primary_group_name "team" :primary_group_flair_url "https://aws1.discourse-cdn.com/dev/original/2X/e/ebee30bd98aef20357e4a177a5a1e45b877ce088.svg" :primary_group_flair_bg_color "" :primary_group_flair_color "111" :version 1 :can_edit :json-false :can_delete :json-false :can_recover :json-false :can_wiki :json-false :user_title "team" :raw "I've got a fix here that should do the trick + +https://github.com/discourse/discourse/commit/e6e5ce3c5413b2fa85d87660bc443dfb1557576c + +The problem is that the digest background color isn't being dictated by the theme colors (it's static grey), and the colors of those two links were a theme variable. So light text from dark themes ended up on a light grey background. + +![Screen Shot 2020-02-11 at 3.59.27 PM|690x38](upload://1BUGnf5xKwd77HNXPyL8BjPDe1U.png) + +Something related that may be helpful to someone looking at the digest in the future... the background color of the email is set on the HTML tag... and a lot of email clients (like gmail) will just ignore that style and make the email background white anyway... so even if the background color was defined by a theme, it wouldn't be reliable: + +![Screen Shot 2020-02-11 at 3.56.57 PM|690x37](upload://xvDzbdYUvHoWxmgkQqKuoLTjmQT.png)" :actions_summary [] :moderator t :admin t :staff t :user_id 2770 :hidden :json-false :trust_level 4 :deleted_at nil :user_deleted :json-false :edit_reason nil :can_view_edit_history t :wiki :json-false :can_accept_answer :json-false :can_unaccept_answer :json-false :accepted_answer :json-false) (:id 699079 :name "David Taylor" :username "david" :avatar_template "/user_avatar/meta.discourse.org/david/{size}/157490_2.png" :created_at "2020-02-11T20:44:48.368Z" :cooked " +

Almost certainly this change which was for this issue. I’m not sure exactly what the issue is, but I’ll be looking into it \":eyes:\"

" :post_number 14 :post_type 1 :updated_at "2020-02-11T20:44:48.368Z" :reply_count 0 :reply_to_post_number 12 :quote_count 1 :incoming_link_count 0 :reads 4 :readers_count 3 :score 60.8 :yours :json-false :topic_id 141232 :topic_slug "recent-changes-breaking-subfolder-setup" :topic_title "Recent Changes Breaking Subfolder Setup?" :topic_html_title "Recent Changes Breaking Subfolder Setup?" :category_id 1 :display_username "David Taylor" :primary_group_name "team" :primary_group_flair_url "https://aws1.discourse-cdn.com/dev/original/2X/e/ebee30bd98aef20357e4a177a5a1e45b877ce088.svg" :primary_group_flair_bg_color "" :primary_group_flair_color "111" :version 1 :can_edit :json-false :can_delete :json-false :can_recover :json-false :can_wiki :json-false :user_title "team" :raw "[quote=\"hartz, post:12, topic:141232\"] +where in the code +[/quote] + +Almost certainly [this change](https://github.com/discourse/discourse/commit/fe0d912b97985a6272e720729aa6197e8e40274f) which was for [this issue](https://meta.discourse.org/t/discourse-docker-blocked-csp-error-with-svg-sprite-when-using-subfolders/139492/9?u=david). I'm not sure exactly what the issue is, but I'll be looking into it :eyes:" :actions_summary [(:id 2 :count 2)] :moderator :json-false :admin t :staff t :user_id 23968 :hidden :json-false :trust_level 4 :deleted_at nil :user_deleted :json-false :edit_reason nil :can_view_edit_history t :wiki :json-false :can_accept_answer :json-false :can_unaccept_answer :json-false :accepted_answer :json-false) (:id 699077 :name "Tobias Eigen" :username "tobiaseigen" :avatar_template "/user_avatar/meta.discourse.org/tobiaseigen/{size}/116107_2.png" :created_at "2020-02-11T20:37:59.472Z" :cooked "

If you mouse over that text, it will tell you the precise time. Doesn’t work on mobile, obviously. Personally, I like the way it is now.

" :post_number 2 :post_type 1 :updated_at "2020-02-11T20:37:59.472Z" :reply_count 0 :reply_to_post_number nil :quote_count 0 :incoming_link_count 0 :reads 2 :readers_count 1 :score 15.4 :yours :json-false :topic_id 141321 :topic_slug "make-topic-timers-more-specific" :topic_title "Make Topic Timers More Specific" :topic_html_title "Make Topic Timers More Specific" :category_id 2 :display_username "Tobias Eigen" :primary_group_name nil :primary_group_flair_url nil :primary_group_flair_bg_color nil :primary_group_flair_color nil :version 1 :can_edit :json-false :can_delete :json-false :can_recover :json-false :can_wiki :json-false :user_title "" :raw "If you mouse over that text, it will tell you the precise time. Doesn't work on mobile, obviously. Personally, I like the way it is now." :actions_summary [(:id 2 :count 1)] :moderator :json-false :admin :json-false :staff :json-false :user_id 8571 :hidden :json-false :trust_level 3 :deleted_at nil :user_deleted :json-false :edit_reason nil :can_view_edit_history t :wiki :json-false :can_accept_answer :json-false :can_unaccept_answer :json-false :accepted_answer :json-false) (:id 699072 :name "Kris" :username "awesomerobot" :avatar_template "/user_avatar/meta.discourse.org/awesomerobot/{size}/142900_2.png" :created_at "2020-02-11T20:24:38.134Z" :cooked "

Fixed for RTL languages here

+ + +

\"Screen
+Screen Shot 2020-02-11 at 3.23.46 PM592×1288 88.8 KB +

" :post_number 4 :post_type 1 :updated_at "2020-02-11T20:24:38.134Z" :reply_count 0 :reply_to_post_number nil :quote_count 0 :incoming_link_count 0 :reads 2 :readers_count 1 :score 45.4 :yours :json-false :topic_id 125660 :topic_slug "i-couldnt-see-the-setting-menu-bar-in-mobile-rtl-language" :topic_title "I couldn't see the setting menu bar in mobile RTL language" :topic_html_title "I couldn’t see the setting menu bar in mobile RTL language" :category_id 1 :display_username "Kris" :primary_group_name "team" :primary_group_flair_url "https://aws1.discourse-cdn.com/dev/original/2X/e/ebee30bd98aef20357e4a177a5a1e45b877ce088.svg" :primary_group_flair_bg_color "" :primary_group_flair_color "111" :version 1 :can_edit :json-false :can_delete :json-false :can_recover :json-false :can_wiki :json-false :user_title "team" :raw "Fixed for RTL languages here + +https://github.com/discourse/discourse/commit/d73e94bbeb54bc0002123bf879fcd8c3f0c03c7d + +![Screen Shot 2020-02-11 at 3.23.46 PM|229x500](upload://f5cA9GCYpII9Fjo8d1W24qX6quS.png)" :actions_summary [(:id 2 :count 1)] :moderator t :admin t :staff t :user_id 2770 :hidden :json-false :trust_level 4 :deleted_at nil :user_deleted :json-false :edit_reason nil :can_view_edit_history t :wiki :json-false :can_accept_answer :json-false :can_unaccept_answer :json-false :accepted_answer :json-false) (:id 699071 :name "Alex" :username "nexo" :avatar_template "/user_avatar/meta.discourse.org/nexo/{size}/106384_2.png" :created_at "2020-02-11T20:21:53.785Z" :cooked "

I saw this on Meta and it seems poll fields are overlapping the border of the poll preview.

+

\"image\"
+image896×648 19.3 KB +

" :post_number 1 :post_type 1 :updated_at "2020-02-11T20:21:53.785Z" :reply_count 0 :reply_to_post_number nil :quote_count 0 :incoming_link_count 0 :reads 5 :readers_count 4 :score 1.0 :yours :json-false :topic_id 141323 :topic_slug "poll-fields-colliding-with-poll-preview" :topic_title "Poll fields colliding with poll preview" :topic_html_title "Poll fields colliding with poll preview" :category_id 9 :display_username "Alex" :primary_group_name nil :primary_group_flair_url nil :primary_group_flair_bg_color nil :primary_group_flair_color nil :version 1 :can_edit :json-false :can_delete :json-false :can_recover :json-false :can_wiki :json-false :user_title "Regular" :raw "I saw this on Meta and it seems poll fields are overlapping the border of the poll preview. + +![image|690x499, 75%](upload://rwcm5sg5F1tQzij6f0Uw3R9B4RE.png)" :actions_summary [] :moderator :json-false :admin :json-false :staff :json-false :user_id 42456 :hidden :json-false :trust_level 3 :deleted_at nil :user_deleted :json-false :edit_reason nil :can_view_edit_history t :wiki :json-false :can_accept_answer :json-false :can_unaccept_answer :json-false :accepted_answer :json-false) (:id 699069 :name "Carson" :username "outofthebox" :avatar_template "/user_avatar/meta.discourse.org/outofthebox/{size}/83708_2.png" :created_at "2020-02-11T20:20:17.544Z" :cooked "

Hi,

+

I’d like to suggest that when a Topic is scheduled to be posted, that the text be precise about when the Topic will be published.

+

Example:

+

\"Screen
+Screen Shot 2020-02-11 at 3.18.08 PM791×136 3.38 KB +

+

Better:

+
+

This topic will be published to XYZ on March 14th at 8am Eastern.

+
" :post_number 1 :post_type 1 :updated_at "2020-02-11T20:20:17.544Z" :reply_count 0 :reply_to_post_number nil :quote_count 0 :incoming_link_count 0 :reads 4 :readers_count 3 :score 0.8 :yours :json-false :topic_id 141321 :topic_slug "make-topic-timers-more-specific" :topic_title "Make Topic Timers More Specific" :topic_html_title "Make Topic Timers More Specific" :category_id 2 :display_username "Carson" :primary_group_name nil :primary_group_flair_url nil :primary_group_flair_bg_color nil :primary_group_flair_color nil :version 1 :can_edit :json-false :can_delete :json-false :can_recover :json-false :can_wiki :json-false :user_title nil :raw "Hi, + +I'd like to suggest that when a Topic is scheduled to be posted, that the text be precise about when the Topic will be published. + +Example: + +![Screen Shot 2020-02-11 at 3.18.08 PM|690x118](upload://h6MTSHaShKYucsoMFnEkVJNanEt.png) + +Better: + +> This topic will be published to XYZ on March 14th at 8am Eastern." :actions_summary [] :moderator :json-false :admin :json-false :staff :json-false :user_id 32674 :hidden :json-false :trust_level 2 :deleted_at nil :user_deleted :json-false :edit_reason nil :can_view_edit_history t :wiki :json-false :can_accept_answer :json-false :can_unaccept_answer :json-false :accepted_answer :json-false) (:id 699063 :name "Jay Pfaffman" :username "pfaffman" :avatar_template "/user_avatar/meta.discourse.org/pfaffman/{size}/120154_2.png" :created_at "2020-02-11T20:12:33.362Z" :cooked " +

It almost certainly isn’t. Make sure that it’s https. Trailing slash or space could also be a problem.

" :post_number 6 :post_type 1 :updated_at "2020-02-11T20:12:33.362Z" :reply_count 0 :reply_to_post_number 4 :quote_count 1 :incoming_link_count 0 :reads 1 :readers_count 0 :score 0.2 :yours :json-false :topic_id 141309 :topic_slug "cannot-signup-with-google" :topic_title "Cannot signup with google?" :topic_html_title "Cannot signup with google?" :category_id 6 :display_username "Jay Pfaffman" :primary_group_name nil :primary_group_flair_url nil :primary_group_flair_bg_color nil :primary_group_flair_color nil :version 1 :can_edit :json-false :can_delete :json-false :can_recover :json-false :can_wiki :json-false :user_title "Senior Tester" :raw "[quote=\"Young, post:4, topic:141309, full:true\"] +That’s exactly what I added in google. +[/quote] + +It almost certainly isn't. Make sure that it's `https`. Trailing slash or space could also be a problem." :actions_summary [] :moderator :json-false :admin :json-false :staff :json-false :user_id 15209 :hidden :json-false :trust_level 3 :deleted_at nil :user_deleted :json-false :edit_reason nil :can_view_edit_history t :wiki :json-false :can_accept_answer :json-false :can_unaccept_answer :json-false :accepted_answer :json-false) (:id 699059 :name "Pack Elend" :username "PackElend" :avatar_template "/user_avatar/meta.discourse.org/packelend/{size}/95294_2.png" :created_at "2020-02-11T20:09:24.610Z" :cooked "

here is my dashboard

+
    +
  1. Dashboard
    +
    \"image\"
    +image1445×582 34.2 KB +
    +
    2. +
  2. HTTP Routers
    +
    \"image\"
    +image1415×458 46.9 KB +
    +
    3. +
  3. HTTP Services
    +
    \"image\"
    +image1423×461 29.7 KB +
    +
    4. +
  4. HTTP Middlewares
    +
    \"image\"
    +image1421×413 28.7 KB +
    +
    5. +
" :post_number 26 :post_type 1 :updated_at "2020-02-11T20:09:24.610Z" :reply_count 0 :reply_to_post_number 22 :quote_count 0 :incoming_link_count 0 :reads 2 :readers_count 1 :score 0.4 :yours :json-false :topic_id 130357 :topic_slug "discourse-with-traefik-2-0" :topic_title "Discourse with Traefik 2.0" :topic_html_title "Discourse with Traefik 2.0" :category_id 31 :display_username "Pack Elend" :primary_group_name nil :primary_group_flair_url nil :primary_group_flair_bg_color nil :primary_group_flair_color nil :version 1 :can_edit :json-false :can_delete :json-false :can_recover :json-false :can_wiki :json-false :user_title nil :reply_to_user (:username "pc1oad1etter" :avatar_template "https://avatars.discourse.org/v4/letter/p/f14d63/{size}.png") :raw "here is my dashboard +1. Dashboard +![image|690x277, 50%](upload://zyksDuXaNi4ayLe1U0bnQ8tJSp0.png) +1. HTTP Routers +![image|690x223, 50%](upload://wYenehnOag1lXCc7v7XGkkieirU.png) +1. HTTP Services +![image|690x223, 50%](upload://4B3BDwon8KXQOc30JqANKJ9e3BC.png) +1. HTTP Middlewares +![image|690x200](upload://55fF7GEpkwyOFHLO1gpfoxsv382.png)" :actions_summary [] :moderator :json-false :admin :json-false :staff :json-false :user_id 32226 :hidden :json-false :trust_level 2 :deleted_at nil :user_deleted :json-false :edit_reason nil :can_view_edit_history t :wiki :json-false :can_accept_answer :json-false :can_unaccept_answer :json-false :accepted_answer :json-false) (:id 699057 :name "Simon Cossar" :username "Simon_Cossar" :avatar_template "/user_avatar/meta.discourse.org/simon_cossar/{size}/86411_2.png" :created_at "2020-02-11T20:08:04.106Z" :cooked "

Did you enable Google logins on your Discourse site? It’s in step 9 of Configuring Google login for Discourse. Try going through that guide again and make sure everything has been setup correctly.

" :post_number 5 :post_type 1 :updated_at "2020-02-11T20:08:04.649Z" :reply_count 0 :reply_to_post_number 4 :quote_count 0 :incoming_link_count 0 :reads 2 :readers_count 1 :score 0.4 :yours :json-false :topic_id 141309 :topic_slug "cannot-signup-with-google" :topic_title "Cannot signup with google?" :topic_html_title "Cannot signup with google?" :category_id 6 :display_username "Simon Cossar" :primary_group_name "team" :primary_group_flair_url "https://aws1.discourse-cdn.com/dev/original/2X/e/ebee30bd98aef20357e4a177a5a1e45b877ce088.svg" :primary_group_flair_bg_color "" :primary_group_flair_color "111" :version 2 :can_edit :json-false :can_delete :json-false :can_recover :json-false :can_wiki :json-false :user_title "team" :raw "Did you enable Google logins on your Discourse site? It's in step 9 of https://meta.discourse.org/t/configuring-google-login-for-discourse/15858. Try going through that guide again and make sure everything has been setup correctly." :actions_summary [] :moderator :json-false :admin t :staff t :user_id 14353 :hidden :json-false :trust_level 4 :deleted_at nil :user_deleted :json-false :edit_reason "Automatically removed quote of whole previous post." :can_view_edit_history t :wiki :json-false :can_accept_answer :json-false :can_unaccept_answer :json-false :accepted_answer :json-false)])) (categories [(:id 17 :name "Uncategorized" :color "AB9364" :text_color "FFFFFF" :slug "uncategorized" :topic_count 11 :post_count 343 :position 16 :description "Topics that don't need a category, or don't fit into any other existing category." :description_text "Topics that don't need a category, or don't fit into any other existing category." :description_excerpt "Topics that don't need a category, or don't fit into any other existing category." :topic_url nil :read_restricted :json-false :permission nil :notification_level 1 :topic_template nil :has_children :json-false :sort_order nil :sort_ascending nil :show_subcategory_list t :num_featured_topics 3 :default_view nil :subcategory_list_style "rows" :default_top_period "all" :minimum_required_tags 0 :navigate_to_first_post_after_read :json-false :topics_day 0 :topics_week 0 :topics_month 1 :topics_year 1 :topics_all_time 11 :is_uncategorized t :uploaded_logo nil :uploaded_background nil) (:id 1 :name "bug" :color "e9dd00" :text_color "000000" :slug "bug" :topic_count 3201 :post_count 22768 :position 1 :description "A bug report means something is broken, preventing normal/typical use of Discourse. Do be sure to search prior to submitting bugs. Include repro steps, and only describe one bug per topic please." :description_text "A bug report means something is broken, preventing normal/typical use of Discourse. Do be sure to search prior to submitting bugs. Include repro steps, and only describe one bug per topic please." :description_excerpt "A bug report means something is broken, preventing normal/typical use of Discourse. Do be sure to search prior to submitting bugs. Include repro steps, and only describe one bug per topic please." :topic_url "/t/category-definition-for-bug/2" :read_restricted :json-false :permission nil :notification_level 1 :topic_template "" :has_children :json-false :sort_order "" :sort_ascending nil :show_subcategory_list t :num_featured_topics 3 :default_view "latest" :subcategory_list_style "rows" :default_top_period "all" :minimum_required_tags 0 :navigate_to_first_post_after_read :json-false :topics_day 2 :topics_week 10 :topics_month 35 :topics_year 418 :topics_all_time 3201 :uploaded_logo nil :uploaded_background nil) (:id 2 :name "feature" :color "0E76BD" :text_color "FFFFFF" :slug "feature" :topic_count 4645 :post_count 41429 :position 2 :description "Discussion about existing Discourse features, how they can be improved or enhanced, and how proposed new features could work." :description_text "Discussion about existing Discourse features, how they can be improved or enhanced, and how proposed new features could work." :description_excerpt "Discussion about existing Discourse features, how they can be improved or enhanced, and how proposed new features could work." :topic_url "/t/category-definition-for-feature/11" :read_restricted :json-false :permission nil :notification_level 1 :topic_template "" :has_children t :sort_order "" :sort_ascending nil :show_subcategory_list t :num_featured_topics 3 :default_view "latest" :subcategory_list_style "rows_with_featured_topics" :default_top_period "all" :minimum_required_tags 0 :navigate_to_first_post_after_read :json-false :topics_day 4 :topics_week 19 :topics_month 53 :topics_year 665 :topics_all_time 4760 :subcategory_ids [67] :uploaded_logo nil :uploaded_background nil) (:id 9 :name "ux" :color "5F497A" :text_color "FFFFFF" :slug "ux" :topic_count 1411 :post_count 10584 :position 3 :description "Discussion about the user interface of Discourse, how features are presented to the user in the client, including language and UI elements." :description_text "Discussion about the user interface of Discourse, how features are presented to the user in the client, including language and UI elements." :description_excerpt "Discussion about the user interface of Discourse, how features are presented to the user in the client, including language and UI elements." :topic_url "/t/category-definition-for-ux/2628" :read_restricted :json-false :permission nil :notification_level 1 :topic_template nil :has_children :json-false :sort_order nil :sort_ascending nil :show_subcategory_list t :num_featured_topics 3 :default_view nil :subcategory_list_style "rows" :default_top_period "all" :minimum_required_tags 0 :navigate_to_first_post_after_read :json-false :topics_day 1 :topics_week 9 :topics_month 30 :topics_year 313 :topics_all_time 1411 :uploaded_logo nil :uploaded_background nil) (:id 6 :name "support" :color "CEA9A9" :text_color "FFFFFF" :slug "support" :topic_count 10246 :post_count 72243 :position 8 :description "Support on configuring and using Discourse after it is up and running. For installation questions, use the install category." :description_text "Support on configuring and using Discourse after it is up and running. For installation questions, use the install category." :description_excerpt "Support on configuring and using Discourse after it is up and running. For installation questions, use the install category." :topic_url "/t/category-definition-for-support/389" :read_restricted :json-false :permission nil :notification_level 1 :topic_template "" :has_children t :sort_order "" :sort_ascending nil :show_subcategory_list t :num_featured_topics 3 :default_view "latest" :subcategory_list_style "rows" :default_top_period "all" :minimum_required_tags 0 :navigate_to_first_post_after_read :json-false :topics_day 17 :topics_week 76 :topics_month 289 :topics_year 3204 :topics_all_time 10738 :subcategory_ids [21] :uploaded_logo nil :uploaded_background nil) (:id 31 :name "installation" :color "997E7E" :text_color "FFFFFF" :slug "installation" :topic_count 978 :post_count 7274 :position 24 :description "Getting Discourse up and running for the first time, and anything you need for installation." :description_text "Getting Discourse up and running for the first time, and anything you need for installation." :description_excerpt "Getting Discourse up and running for the first time, and anything you need for installation." :topic_url "/t/about-the-installation-category/21019" :read_restricted :json-false :permission nil :notification_level 1 :topic_template nil :has_children :json-false :sort_order nil :sort_ascending nil :show_subcategory_list t :num_featured_topics 3 :default_view nil :subcategory_list_style "rows" :default_top_period "all" :minimum_required_tags 0 :navigate_to_first_post_after_read :json-false :topics_day 1 :topics_week 2 :topics_month 14 :topics_year 215 :topics_all_time 978 :uploaded_logo nil :uploaded_background nil) (:id 10 :name "howto" :color "76923C" :text_color "FFFFFF" :slug "howto" :topic_count 27 :post_count 253 :position 0 :description "Tutorial topics that describe how to set up, configure, or install Discourse using a specific platform or environment. Topics in this category may only be created by trust level 2 and up. " :description_text "Tutorial topics that describe how to set up, configure, or install Discourse using a specific platform or environment. Topics in this category may only be created by trust level 2 and up." :description_excerpt "Tutorial topics that describe how to set up, configure, or install Discourse using a specific platform or environment. Topics in this category may only be created by trust level 2 and up." :topic_url "/t/category-definition-for-howto/2629" :read_restricted :json-false :permission nil :notification_level 1 :topic_template "" :has_children t :sort_order "" :sort_ascending nil :show_subcategory_list t :num_featured_topics 3 :default_view "top" :subcategory_list_style "boxes_with_featured_topics" :default_top_period "all" :minimum_required_tags 0 :navigate_to_first_post_after_read t :topics_day 0 :topics_week 1 :topics_month 3 :topics_year 67 :topics_all_time 467 :subcategory_ids [56 55 53 45 4 66] :uploaded_logo nil :uploaded_background nil) (:id 22 :name "plugin" :color "F7941D" :text_color "FFFFFF" :slug "plugin" :topic_count 188 :post_count 7349 :position 19 :description "Plugin directory. To post here, use the Request Access button on the group page with a link to your plugin." :description_text "Plugin directory. To post here, use the Request Access button on the group page with a link to your plugin." :description_excerpt "Plugin directory. To post here, use the Request Access button on the group page with a link to your plugin." :topic_url "/t/about-the-plugin-category/12648" :read_restricted :json-false :permission nil :notification_level 1 :topic_template "" :has_children t :sort_order "" :sort_ascending nil :show_subcategory_list t :num_featured_topics 3 :default_view "latest" :subcategory_list_style "boxes" :default_top_period "all" :minimum_required_tags 0 :navigate_to_first_post_after_read :json-false :topics_day 0 :topics_week 5 :topics_month 18 :topics_year 187 :topics_all_time 638 :subcategory_ids [75 74 78 73 34 60 77 59 84 5 58 76] :uploaded_logo nil :uploaded_background nil) (:id 8 :name "hosting" :color "74CCED" :text_color "FFFFFF" :slug "hosting" :topic_count 356 :post_count 3031 :position 12 :description "Topics about hosting Discourse, either on your own servers, in the cloud, or with specific hosting services." :description_text "Topics about hosting Discourse, either on your own servers, in the cloud, or with specific hosting services." :description_excerpt "Topics about hosting Discourse, either on your own servers, in the cloud, or with specific hosting services." :topic_url "/t/category-definition-for-hosting/2626" :read_restricted :json-false :permission nil :notification_level 1 :topic_template nil :has_children :json-false :sort_order nil :sort_ascending nil :show_subcategory_list t :num_featured_topics 3 :default_view nil :subcategory_list_style "rows" :default_top_period "all" :minimum_required_tags 0 :navigate_to_first_post_after_read :json-false :topics_day 0 :topics_week 2 :topics_month 6 :topics_year 65 :topics_all_time 356 :uploaded_logo nil :uploaded_background nil) (:id 61 :name "theme" :color "BF1E2E" :text_color "FFFFFF" :slug "theme" :topic_count 132 :post_count 3615 :position 40 :description "Themes are reusable CSS/HTML blocks you can use on your site." :description_text "Themes are reusable CSS/HTML blocks you can use on your site." :description_excerpt "Themes are reusable CSS/HTML blocks you can use on your site." :topic_url "/t/about-the-theme-category/60925" :read_restricted :json-false :permission nil :notification_level 1 :topic_template "" :has_children t :sort_order "" :sort_ascending nil :show_subcategory_list :json-false :num_featured_topics 3 :default_view "latest" :subcategory_list_style "rows_with_featured_topics" :default_top_period "all" :minimum_required_tags 1 :navigate_to_first_post_after_read :json-false :topics_day 0 :topics_week 1 :topics_month 2 :topics_year 55 :topics_all_time 136 :subcategory_ids [82] :uploaded_logo nil :uploaded_background nil) (:id 65 :name "community" :color "12A89D" :text_color "FFFFFF" :slug "community" :topic_count 423 :post_count 4015 :position 4 :description "A great platform doesn’t guarantee success. Community building is a science. This category is for discussions about launching, building, growing and managing a thriving community." :description_text "A great platform doesn’t guarantee success. Community building is a science. This category is for discussions about launching, building, growing and managing a thriving community." :description_excerpt "A great platform doesn’t guarantee success. Community building is a science. This category is for discussions about launching, building, growing and managing a thriving community." :topic_url "/t/about-the-community-category/67750" :read_restricted :json-false :permission nil :notification_level 1 :topic_template "" :has_children :json-false :sort_order "" :sort_ascending nil :show_subcategory_list :json-false :num_featured_topics 3 :default_view "latest" :subcategory_list_style "rows_with_featured_topics" :default_top_period "all" :minimum_required_tags 0 :navigate_to_first_post_after_read :json-false :topics_day 0 :topics_week 3 :topics_month 9 :topics_year 113 :topics_all_time 423 :uploaded_logo nil :uploaded_background nil) (:id 7 :name "dev" :color "292929" :text_color "fff" :slug "dev" :topic_count 1581 :post_count 9413 :position 5 :description "Anything related to hacking on Discourse: submitting pull requests, configuring development environments, coding conventions, and so forth." :description_text "Anything related to hacking on Discourse: submitting pull requests, configuring development environments, coding conventions, and so forth." :description_excerpt "Anything related to hacking on Discourse: submitting pull requests, configuring development environments, coding conventions, and so forth." :topic_url "/t/category-definition-for-dev/1026" :read_restricted :json-false :permission nil :notification_level 1 :topic_template "" :has_children t :sort_order "" :sort_ascending nil :show_subcategory_list t :num_featured_topics 3 :default_view "latest" :subcategory_list_style "boxes" :default_top_period "all" :minimum_required_tags 0 :navigate_to_first_post_after_read :json-false :topics_day 1 :topics_week 7 :topics_month 36 :topics_year 427 :topics_all_time 1962 :subcategory_ids [24 27] :uploaded_logo nil :uploaded_background nil) (:id 30 :name "releases" :color "BF1E2E" :text_color "FFFFFF" :slug "releases" :topic_count 17 :post_count 74 :position 22 :description "Outlining each official release of Discourse, and plans for future releases." :description_text "Outlining each official release of Discourse, and plans for future releases." :description_excerpt "Outlining each official release of Discourse, and plans for future releases." :topic_url "/t/about-the-releases-category/20857" :read_restricted :json-false :permission nil :notification_level 1 :topic_template "" :has_children :json-false :sort_order "created" :sort_ascending :json-false :show_subcategory_list t :num_featured_topics 3 :default_view nil :subcategory_list_style "rows" :default_top_period "all" :minimum_required_tags 0 :navigate_to_first_post_after_read :json-false :topics_day 0 :topics_week 0 :topics_month 0 :topics_year 1 :topics_all_time 17 :uploaded_logo nil :uploaded_background nil) (:id 14 :name "marketplace" :color "8C6238" :text_color "FFFFFF" :slug "marketplace" :topic_count 653 :post_count 3670 :position 18 :description "About commercial Discourse related stuff: jobs or paid gigs, plugins, themes, hosting, etc. All soliciting must be in this public category, private solicitations are not permitted here." :description_text "About commercial Discourse related stuff: jobs or paid gigs, plugins, themes, hosting, etc. All soliciting must be in this public category, private solicitations are not permitted here." :description_excerpt "About commercial Discourse related stuff: jobs or paid gigs, plugins, themes, hosting, etc. All soliciting must be in this public category, private solicitations are not permitted here." :topic_url "/t/category-definition-for-marketplace/5425" :read_restricted :json-false :permission nil :notification_level 1 :topic_template "What would you like done? + +When do you need it done? + +What is your budget, in $ USD that you can offer for this task?" :has_children :json-false :sort_order nil :sort_ascending nil :show_subcategory_list t :num_featured_topics 3 :default_view nil :subcategory_list_style "rows" :default_top_period "all" :minimum_required_tags 0 :navigate_to_first_post_after_read :json-false :topics_day 0 :topics_week 0 :topics_month 13 :topics_year 166 :topics_all_time 653 :uploaded_logo nil :uploaded_background nil) (:id 3 :name "Site Feedback" :color "aaa" :text_color "FFFFFF" :slug "site-feedback" :topic_count 277 :post_count 2317 :position 6 :description "Discussion about meta.discourse.org itself, the organization of this forum about Discourse, how it works, and how we can improve this site." :description_text "Discussion about meta.discourse.org itself, the organization of this forum about Discourse, how it works, and how we can improve this site." :description_excerpt "Discussion about meta.discourse.org itself, the organization of this forum about Discourse, how it works, and how we can improve this site." :topic_url "/t/category-definition-for-meta/24" :read_restricted :json-false :permission nil :notification_level 1 :topic_template "" :has_children t :sort_order "" :sort_ascending nil :show_subcategory_list t :num_featured_topics 3 :default_view "" :subcategory_list_style "rows" :default_top_period "all" :minimum_required_tags 0 :navigate_to_first_post_after_read :json-false :topics_day 0 :topics_week 1 :topics_month 3 :topics_year 20 :topics_all_time 364 :subcategory_ids [13] :uploaded_logo nil :uploaded_background nil) (:id 35 :name "praise" :color "9EB83B" :text_color "FFFFFF" :slug "praise" :topic_count 201 :post_count 763 :position 27 :description "Got something nice to say about Discourse?" :description_text "Got something nice to say about Discourse?" :description_excerpt "Got something nice to say about Discourse?" :topic_url "/t/about-the-praise-category/30010" :read_restricted :json-false :permission nil :notification_level 1 :topic_template nil :has_children t :sort_order nil :sort_ascending nil :show_subcategory_list t :num_featured_topics 3 :default_view nil :subcategory_list_style "rows" :default_top_period "all" :minimum_required_tags 0 :navigate_to_first_post_after_read :json-false :topics_day 0 :topics_week 0 :topics_month 1 :topics_year 22 :topics_all_time 208 :subcategory_ids [63] :uploaded_logo nil :uploaded_background nil)] [(:id 17 :name "Uncategorized" :color "AB9364" :text_color "FFFFFF" :slug "uncategorized" :topic_count 11 :post_count 343 :position 16 :description "Topics that don't need a category, or don't fit into any other existing category." :description_text "Topics that don't need a category, or don't fit into any other existing category." :description_excerpt "Topics that don't need a category, or don't fit into any other existing category." :topic_url nil :read_restricted :json-false :permission nil :notification_level 1 :topic_template nil :has_children :json-false :sort_order nil :sort_ascending nil :show_subcategory_list t :num_featured_topics 3 :default_view nil :subcategory_list_style "rows" :default_top_period "all" :minimum_required_tags 0 :navigate_to_first_post_after_read :json-false :topics_day 0 :topics_week 0 :topics_month 1 :topics_year 1 :topics_all_time 11 :is_uncategorized t :uploaded_logo nil :uploaded_background nil) (:id 1 :name "bug" :color "e9dd00" :text_color "000000" :slug "bug" :topic_count 3201 :post_count 22768 :position 1 :description "A bug report means something is broken, preventing normal/typical use of Discourse. Do be sure to search prior to submitting bugs. Include repro steps, and only describe one bug per topic please." :description_text "A bug report means something is broken, preventing normal/typical use of Discourse. Do be sure to search prior to submitting bugs. Include repro steps, and only describe one bug per topic please." :description_excerpt "A bug report means something is broken, preventing normal/typical use of Discourse. Do be sure to search prior to submitting bugs. Include repro steps, and only describe one bug per topic please." :topic_url "/t/category-definition-for-bug/2" :read_restricted :json-false :permission nil :notification_level 1 :topic_template "" :has_children :json-false :sort_order "" :sort_ascending nil :show_subcategory_list t :num_featured_topics 3 :default_view "latest" :subcategory_list_style "rows" :default_top_period "all" :minimum_required_tags 0 :navigate_to_first_post_after_read :json-false :topics_day 2 :topics_week 10 :topics_month 35 :topics_year 418 :topics_all_time 3201 :uploaded_logo nil :uploaded_background nil) (:id 2 :name "feature" :color "0E76BD" :text_color "FFFFFF" :slug "feature" :topic_count 4645 :post_count 41429 :position 2 :description "Discussion about existing Discourse features, how they can be improved or enhanced, and how proposed new features could work." :description_text "Discussion about existing Discourse features, how they can be improved or enhanced, and how proposed new features could work." :description_excerpt "Discussion about existing Discourse features, how they can be improved or enhanced, and how proposed new features could work." :topic_url "/t/category-definition-for-feature/11" :read_restricted :json-false :permission nil :notification_level 1 :topic_template "" :has_children t :sort_order "" :sort_ascending nil :show_subcategory_list t :num_featured_topics 3 :default_view "latest" :subcategory_list_style "rows_with_featured_topics" :default_top_period "all" :minimum_required_tags 0 :navigate_to_first_post_after_read :json-false :topics_day 4 :topics_week 19 :topics_month 53 :topics_year 665 :topics_all_time 4760 :subcategory_ids [67] :uploaded_logo nil :uploaded_background nil) (:id 9 :name "ux" :color "5F497A" :text_color "FFFFFF" :slug "ux" :topic_count 1411 :post_count 10584 :position 3 :description "Discussion about the user interface of Discourse, how features are presented to the user in the client, including language and UI elements." :description_text "Discussion about the user interface of Discourse, how features are presented to the user in the client, including language and UI elements." :description_excerpt "Discussion about the user interface of Discourse, how features are presented to the user in the client, including language and UI elements." :topic_url "/t/category-definition-for-ux/2628" :read_restricted :json-false :permission nil :notification_level 1 :topic_template nil :has_children :json-false :sort_order nil :sort_ascending nil :show_subcategory_list t :num_featured_topics 3 :default_view nil :subcategory_list_style "rows" :default_top_period "all" :minimum_required_tags 0 :navigate_to_first_post_after_read :json-false :topics_day 1 :topics_week 9 :topics_month 30 :topics_year 313 :topics_all_time 1411 :uploaded_logo nil :uploaded_background nil) (:id 6 :name "support" :color "CEA9A9" :text_color "FFFFFF" :slug "support" :topic_count 10246 :post_count 72243 :position 8 :description "Support on configuring and using Discourse after it is up and running. For installation questions, use the install category." :description_text "Support on configuring and using Discourse after it is up and running. For installation questions, use the install category." :description_excerpt "Support on configuring and using Discourse after it is up and running. For installation questions, use the install category." :topic_url "/t/category-definition-for-support/389" :read_restricted :json-false :permission nil :notification_level 1 :topic_template "" :has_children t :sort_order "" :sort_ascending nil :show_subcategory_list t :num_featured_topics 3 :default_view "latest" :subcategory_list_style "rows" :default_top_period "all" :minimum_required_tags 0 :navigate_to_first_post_after_read :json-false :topics_day 17 :topics_week 76 :topics_month 289 :topics_year 3204 :topics_all_time 10738 :subcategory_ids [21] :uploaded_logo nil :uploaded_background nil) (:id 31 :name "installation" :color "997E7E" :text_color "FFFFFF" :slug "installation" :topic_count 978 :post_count 7274 :position 24 :description "Getting Discourse up and running for the first time, and anything you need for installation." :description_text "Getting Discourse up and running for the first time, and anything you need for installation." :description_excerpt "Getting Discourse up and running for the first time, and anything you need for installation." :topic_url "/t/about-the-installation-category/21019" :read_restricted :json-false :permission nil :notification_level 1 :topic_template nil :has_children :json-false :sort_order nil :sort_ascending nil :show_subcategory_list t :num_featured_topics 3 :default_view nil :subcategory_list_style "rows" :default_top_period "all" :minimum_required_tags 0 :navigate_to_first_post_after_read :json-false :topics_day 1 :topics_week 2 :topics_month 14 :topics_year 215 :topics_all_time 978 :uploaded_logo nil :uploaded_background nil) (:id 10 :name "howto" :color "76923C" :text_color "FFFFFF" :slug "howto" :topic_count 27 :post_count 253 :position 0 :description "Tutorial topics that describe how to set up, configure, or install Discourse using a specific platform or environment. Topics in this category may only be created by trust level 2 and up. " :description_text "Tutorial topics that describe how to set up, configure, or install Discourse using a specific platform or environment. Topics in this category may only be created by trust level 2 and up." :description_excerpt "Tutorial topics that describe how to set up, configure, or install Discourse using a specific platform or environment. Topics in this category may only be created by trust level 2 and up." :topic_url "/t/category-definition-for-howto/2629" :read_restricted :json-false :permission nil :notification_level 1 :topic_template "" :has_children t :sort_order "" :sort_ascending nil :show_subcategory_list t :num_featured_topics 3 :default_view "top" :subcategory_list_style "boxes_with_featured_topics" :default_top_period "all" :minimum_required_tags 0 :navigate_to_first_post_after_read t :topics_day 0 :topics_week 1 :topics_month 3 :topics_year 67 :topics_all_time 467 :subcategory_ids [56 55 53 45 4 66] :uploaded_logo nil :uploaded_background nil) (:id 22 :name "plugin" :color "F7941D" :text_color "FFFFFF" :slug "plugin" :topic_count 188 :post_count 7349 :position 19 :description "Plugin directory. To post here, use the Request Access button on the group page with a link to your plugin." :description_text "Plugin directory. To post here, use the Request Access button on the group page with a link to your plugin." :description_excerpt "Plugin directory. To post here, use the Request Access button on the group page with a link to your plugin." :topic_url "/t/about-the-plugin-category/12648" :read_restricted :json-false :permission nil :notification_level 1 :topic_template "" :has_children t :sort_order "" :sort_ascending nil :show_subcategory_list t :num_featured_topics 3 :default_view "latest" :subcategory_list_style "boxes" :default_top_period "all" :minimum_required_tags 0 :navigate_to_first_post_after_read :json-false :topics_day 0 :topics_week 5 :topics_month 18 :topics_year 187 :topics_all_time 638 :subcategory_ids [75 74 78 73 34 60 77 59 84 5 58 76] :uploaded_logo nil :uploaded_background nil) (:id 8 :name "hosting" :color "74CCED" :text_color "FFFFFF" :slug "hosting" :topic_count 356 :post_count 3031 :position 12 :description "Topics about hosting Discourse, either on your own servers, in the cloud, or with specific hosting services." :description_text "Topics about hosting Discourse, either on your own servers, in the cloud, or with specific hosting services." :description_excerpt "Topics about hosting Discourse, either on your own servers, in the cloud, or with specific hosting services." :topic_url "/t/category-definition-for-hosting/2626" :read_restricted :json-false :permission nil :notification_level 1 :topic_template nil :has_children :json-false :sort_order nil :sort_ascending nil :show_subcategory_list t :num_featured_topics 3 :default_view nil :subcategory_list_style "rows" :default_top_period "all" :minimum_required_tags 0 :navigate_to_first_post_after_read :json-false :topics_day 0 :topics_week 2 :topics_month 6 :topics_year 65 :topics_all_time 356 :uploaded_logo nil :uploaded_background nil) (:id 61 :name "theme" :color "BF1E2E" :text_color "FFFFFF" :slug "theme" :topic_count 132 :post_count 3615 :position 40 :description "Themes are reusable CSS/HTML blocks you can use on your site." :description_text "Themes are reusable CSS/HTML blocks you can use on your site." :description_excerpt "Themes are reusable CSS/HTML blocks you can use on your site." :topic_url "/t/about-the-theme-category/60925" :read_restricted :json-false :permission nil :notification_level 1 :topic_template "" :has_children t :sort_order "" :sort_ascending nil :show_subcategory_list :json-false :num_featured_topics 3 :default_view "latest" :subcategory_list_style "rows_with_featured_topics" :default_top_period "all" :minimum_required_tags 1 :navigate_to_first_post_after_read :json-false :topics_day 0 :topics_week 1 :topics_month 2 :topics_year 55 :topics_all_time 136 :subcategory_ids [82] :uploaded_logo nil :uploaded_background nil) (:id 65 :name "community" :color "12A89D" :text_color "FFFFFF" :slug "community" :topic_count 423 :post_count 4015 :position 4 :description "A great platform doesn’t guarantee success. Community building is a science. This category is for discussions about launching, building, growing and managing a thriving community." :description_text "A great platform doesn’t guarantee success. Community building is a science. This category is for discussions about launching, building, growing and managing a thriving community." :description_excerpt "A great platform doesn’t guarantee success. Community building is a science. This category is for discussions about launching, building, growing and managing a thriving community." :topic_url "/t/about-the-community-category/67750" :read_restricted :json-false :permission nil :notification_level 1 :topic_template "" :has_children :json-false :sort_order "" :sort_ascending nil :show_subcategory_list :json-false :num_featured_topics 3 :default_view "latest" :subcategory_list_style "rows_with_featured_topics" :default_top_period "all" :minimum_required_tags 0 :navigate_to_first_post_after_read :json-false :topics_day 0 :topics_week 3 :topics_month 9 :topics_year 113 :topics_all_time 423 :uploaded_logo nil :uploaded_background nil) (:id 7 :name "dev" :color "292929" :text_color "fff" :slug "dev" :topic_count 1581 :post_count 9413 :position 5 :description "Anything related to hacking on Discourse: submitting pull requests, configuring development environments, coding conventions, and so forth." :description_text "Anything related to hacking on Discourse: submitting pull requests, configuring development environments, coding conventions, and so forth." :description_excerpt "Anything related to hacking on Discourse: submitting pull requests, configuring development environments, coding conventions, and so forth." :topic_url "/t/category-definition-for-dev/1026" :read_restricted :json-false :permission nil :notification_level 1 :topic_template "" :has_children t :sort_order "" :sort_ascending nil :show_subcategory_list t :num_featured_topics 3 :default_view "latest" :subcategory_list_style "boxes" :default_top_period "all" :minimum_required_tags 0 :navigate_to_first_post_after_read :json-false :topics_day 1 :topics_week 7 :topics_month 36 :topics_year 427 :topics_all_time 1962 :subcategory_ids [24 27] :uploaded_logo nil :uploaded_background nil) (:id 30 :name "releases" :color "BF1E2E" :text_color "FFFFFF" :slug "releases" :topic_count 17 :post_count 74 :position 22 :description "Outlining each official release of Discourse, and plans for future releases." :description_text "Outlining each official release of Discourse, and plans for future releases." :description_excerpt "Outlining each official release of Discourse, and plans for future releases." :topic_url "/t/about-the-releases-category/20857" :read_restricted :json-false :permission nil :notification_level 1 :topic_template "" :has_children :json-false :sort_order "created" :sort_ascending :json-false :show_subcategory_list t :num_featured_topics 3 :default_view nil :subcategory_list_style "rows" :default_top_period "all" :minimum_required_tags 0 :navigate_to_first_post_after_read :json-false :topics_day 0 :topics_week 0 :topics_month 0 :topics_year 1 :topics_all_time 17 :uploaded_logo nil :uploaded_background nil) (:id 14 :name "marketplace" :color "8C6238" :text_color "FFFFFF" :slug "marketplace" :topic_count 653 :post_count 3670 :position 18 :description "About commercial Discourse related stuff: jobs or paid gigs, plugins, themes, hosting, etc. All soliciting must be in this public category, private solicitations are not permitted here." :description_text "About commercial Discourse related stuff: jobs or paid gigs, plugins, themes, hosting, etc. All soliciting must be in this public category, private solicitations are not permitted here." :description_excerpt "About commercial Discourse related stuff: jobs or paid gigs, plugins, themes, hosting, etc. All soliciting must be in this public category, private solicitations are not permitted here." :topic_url "/t/category-definition-for-marketplace/5425" :read_restricted :json-false :permission nil :notification_level 1 :topic_template "What would you like done? + +When do you need it done? + +What is your budget, in $ USD that you can offer for this task?" :has_children :json-false :sort_order nil :sort_ascending nil :show_subcategory_list t :num_featured_topics 3 :default_view nil :subcategory_list_style "rows" :default_top_period "all" :minimum_required_tags 0 :navigate_to_first_post_after_read :json-false :topics_day 0 :topics_week 0 :topics_month 13 :topics_year 166 :topics_all_time 653 :uploaded_logo nil :uploaded_background nil) (:id 3 :name "Site Feedback" :color "aaa" :text_color "FFFFFF" :slug "site-feedback" :topic_count 277 :post_count 2317 :position 6 :description "Discussion about meta.discourse.org itself, the organization of this forum about Discourse, how it works, and how we can improve this site." :description_text "Discussion about meta.discourse.org itself, the organization of this forum about Discourse, how it works, and how we can improve this site." :description_excerpt "Discussion about meta.discourse.org itself, the organization of this forum about Discourse, how it works, and how we can improve this site." :topic_url "/t/category-definition-for-meta/24" :read_restricted :json-false :permission nil :notification_level 1 :topic_template "" :has_children t :sort_order "" :sort_ascending nil :show_subcategory_list t :num_featured_topics 3 :default_view "" :subcategory_list_style "rows" :default_top_period "all" :minimum_required_tags 0 :navigate_to_first_post_after_read :json-false :topics_day 0 :topics_week 1 :topics_month 3 :topics_year 20 :topics_all_time 364 :subcategory_ids [13] :uploaded_logo nil :uploaded_background nil) (:id 35 :name "praise" :color "9EB83B" :text_color "FFFFFF" :slug "praise" :topic_count 201 :post_count 763 :position 27 :description "Got something nice to say about Discourse?" :description_text "Got something nice to say about Discourse?" :description_excerpt "Got something nice to say about Discourse?" :topic_url "/t/about-the-praise-category/30010" :read_restricted :json-false :permission nil :notification_level 1 :topic_template nil :has_children t :sort_order nil :sort_ascending nil :show_subcategory_list t :num_featured_topics 3 :default_view nil :subcategory_list_style "rows" :default_top_period "all" :minimum_required_tags 0 :navigate_to_first_post_after_read :json-false :topics_day 0 :topics_week 0 :topics_month 1 :topics_year 22 :topics_all_time 208 :subcategory_ids [63] :uploaded_logo nil :uploaded_background nil)])) \ No newline at end of file diff --git a/tests/test-uncacheable.el b/tests/test-uncacheable.el new file mode 100644 index 0000000..c4f95e8 --- /dev/null +++ b/tests/test-uncacheable.el @@ -0,0 +1,7 @@ +;;; -*- lexical-binding: t; coding: utf-8 -*- +(require 'nndiscourse-test) + +;; since nndiscourse has fixed numbering, maybe we *can* use gnus-cache +(ert-deftest nndiscourse-could-cache () + (should (featurep 'gnus-cache)) + (should-not (string-match (or gnus-uncacheable-groups "$a") "nndiscourse+emacs-china.org:emacs"))) diff --git a/tools/package-lint.sh b/tools/package-lint.sh new file mode 100644 index 0000000..9e1a6cd --- /dev/null +++ b/tools/package-lint.sh @@ -0,0 +1,21 @@ +#!/bin/sh -ex + +export EMACS="${EMACS:=emacs}" +export BASENAME=$(basename "$1") + +( cask emacs -Q --batch \ + --visit "$1" \ + --eval "(checkdoc-eval-current-buffer)" \ + --eval "(princ (with-current-buffer checkdoc-diagnostic-buffer \ + (buffer-string)))" \ + 2>&1 | egrep -a "^$BASENAME:" ) && false + +!( cask emacs -Q --batch \ + -l package-lint \ + --eval "(package-initialize)" \ + --eval "(push (quote (\"melpa\" . \"http://melpa.org/packages/\")) \ + package-archives)" \ + --eval "(package-refresh-contents)" \ + --eval "(setq debug-on-error t)" \ + -f package-lint-batch-and-exit "$1" \ + 2>&1 | egrep -a "^$BASENAME:" | egrep -v "non-snapshot" | egrep .) diff --git a/tools/readme-sed.sh b/tools/readme-sed.sh new file mode 100755 index 0000000..991872d --- /dev/null +++ b/tools/readme-sed.sh @@ -0,0 +1,17 @@ +#!/bin/bash + +# by mklement0 https://stackoverflow.com/a/29613573/5132008 + +# Define sample multi-line literal. +input=`cat` +replace="$input" +if [ ! -z "$3" ]; then + replace=$(awk "/$3/,EOF { print \" \" \$0 }" <<<"$input") +fi + +# Escape it for use as a Sed replacement string. +IFS= read -d '' -r < <(sed -e ':a' -e '$!{N;ba' -e '}' -e 's/[&/\]/\\&/g; s/\n/\\&/g' <<<"$replace") +replaceEscaped=${REPLY%$'\n'} + +# If ok, outputs $replace as is. +sed "/$1/c\\$replaceEscaped" $2 diff --git a/tools/recipe b/tools/recipe new file mode 100644 index 0000000..39469ab --- /dev/null +++ b/tools/recipe @@ -0,0 +1,3 @@ +(nndiscourse :repo "dickmao/nndiscourse" + :fetcher github + :files ("nndiscourse.el" ("nndiscourse" "nndiscourse/.ruby-version" "nndiscourse/Gemfile" "nndiscourse/Gemfile.lock" "nndiscourse/nndiscourse.gemspec" "nndiscourse/nndiscourse.thor" "nndiscourse/lib")))