@@ 0,0 1,26 @@
+image: nixos/latest
+sources:
+  - https://git.sr.ht/~jack/misc
+tasks:
+  - bunkplan: |
+      cd bunkplan
+      nix-build --no-out-link
+  - bunkplan-ml: |
+      cd bunkplan-ml
+      nix-build --no-out-link
+  - cabinsheets: |
+      cd cabinsheets
+      nix-build --no-out-link
+  - codeworld-raycaster: |
+      cd codeworld-raycaster
+      nix-build --no-out-link
+  - metscrape: |
+      cd metscrape
+      nix-build --no-out-link
+  - metscrape2: |
+      cd metscrape2
+      nix-build --no-out-link
+triggers:
+  - condition: failure
+    action: email
+    to: jack@jackkelly.name

@@ 0,0 1,661 @@
+                    GNU AFFERO GENERAL PUBLIC LICENSE
+                       Version 3, 19 November 2007
+
+ Copyright (C) 2007 Free Software Foundation, Inc. <https://fsf.org/>
+ Everyone is permitted to copy and distribute verbatim copies
+ of this license document, but changing it is not allowed.
+
+                            Preamble
+
+  The GNU Affero General Public License is a free, copyleft license for
+software and other kinds of works, specifically designed to ensure
+cooperation with the community in the case of network server software.
+
+  The licenses for most software and other practical works are designed
+to take away your freedom to share and change the works.  By contrast,
+our General Public Licenses are 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.
+
+  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.
+
+  Developers that use our General Public Licenses protect your rights
+with two steps: (1) assert copyright on the software, and (2) offer
+you this License which gives you legal permission to copy, distribute
+and/or modify the software.
+
+  A secondary benefit of defending all users' freedom is that
+improvements made in alternate versions of the program, if they
+receive widespread use, become available for other developers to
+incorporate.  Many developers of free software are heartened and
+encouraged by the resulting cooperation.  However, in the case of
+software used on network servers, this result may fail to come about.
+The GNU General Public License permits making a modified version and
+letting the public access it on a server without ever releasing its
+source code to the public.
+
+  The GNU Affero General Public License is designed specifically to
+ensure that, in such cases, the modified source code becomes available
+to the community.  It requires the operator of a network server to
+provide the source code of the modified version running there to the
+users of that server.  Therefore, public use of a modified version, on
+a publicly accessible server, gives the public access to the source
+code of the modified version.
+
+  An older license, called the Affero General Public License and
+published by Affero, was designed to accomplish similar goals.  This is
+a different license, not a version of the Affero GPL, but Affero has
+released a new version of the Affero GPL which permits relicensing under
+this license.
+
+  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 Affero 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. Remote Network Interaction; Use with the GNU General Public License.
+
+  Notwithstanding any other provision of this License, if you modify the
+Program, your modified version must prominently offer all users
+interacting with it remotely through a computer network (if your version
+supports such interaction) an opportunity to receive the Corresponding
+Source of your version by providing access to the Corresponding Source
+from a network server at no charge, through some standard or customary
+means of facilitating copying of software.  This Corresponding Source
+shall include the Corresponding Source for any work covered by version 3
+of the GNU General Public License that is incorporated pursuant to the
+following paragraph.
+
+  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 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 work with which it is combined will remain governed by version
+3 of the GNU General Public License.
+
+  14. Revised Versions of this License.
+
+  The Free Software Foundation may publish revised and/or new versions of
+the GNU Affero 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 Affero 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 Affero 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 Affero 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.
+
+    <one line to give the program's name and a brief idea of what it does.>
+    Copyright (C) <year>  <name of author>
+
+    This program is free software: you can redistribute it and/or modify
+    it under the terms of the GNU Affero 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 Affero General Public License for more details.
+
+    You should have received a copy of the GNU Affero General Public License
+    along with this program.  If not, see <https://www.gnu.org/licenses/>.
+
+Also add information on how to contact you by electronic and paper mail.
+
+  If your software can interact with users remotely through a computer
+network, you should also make sure that it provides a way for users to
+get its source.  For example, if your program is a web application, its
+interface could display a "Source" link that leads users to an archive
+of the code.  There are many ways you could offer source, and different
+solutions will be better for different programs; see section 13 for the
+specific requirements.
+
+  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 AGPL, see
+<https://www.gnu.org/licenses/>.

@@ 1,11 1,19 @@
 # Miscellaneous Code
 
+[![builds.sr.ht status](https://builds.sr.ht/~jack/misc.svg)](https://builds.sr.ht/~jack/misc?)
+
 Here's where I store code that's not worth spinning out into
-full-fledged projects. Most of it is GPLv3-or-later but I might
+full-fledged projects. Most of it is AGPLv3-or-later but I might
 licence it under something else if you ask nicely.
 
 ## Index of Projects
 
 All paths are relative to repository root.
 
+* `bunkplan` - Generate a HTML bunkplan from a CSV (Haskell).
+* `bunkplan-ml` - Generate a HTML bunkplan from a CSV (old O'Caml version).
+* `cabinsheets` - Make HTML sheets to print & hang outside each cabin on a ship.
 * `codeworld-raycaster` - Draw a blocky labyrinth like it's 1992.
+* `metscrape` - Batch-download wind forecasts from MetVUW (broken, unmaintained).
+* `metscrape2` - Batch-download marine weather forecasts.
+* `photoscripts` - Some shell scripts I use to manage my photos.

@@ 0,0 1,14 @@
+            DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE
+                    Version 2, December 2004
+
+ Copyright (C) 2004 Sam Hocevar <sam@hocevar.net>
+
+ Everyone is permitted to copy and distribute verbatim or modified
+ copies of this license document, and changing it is allowed as long
+ as the name is changed.
+
+            DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE
+   TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
+
+  0. You just DO WHAT THE FUCK YOU WANT TO.
+

@@ 0,0 1,5 @@
+bunkplan: bunkplan.ml
+	ocamlfind ocamlopt -package csv -package extlib -linkpkg -o $@ $^
+
+clean:
+	-rm -f *.html *.o *.cmi *.cmx bunkplan

@@ 0,0 1,7 @@
+This reads in a CSV file defining a watchbill and generates a nice
+HTML (4.01 transitional, yech) watchbill for printing. It also makes
+sheets to stick at the front of each cabin.
+
+Requires ocaml, findlib, extlib and csv.
+
+Sample CSV included.

@@ 0,0 1,326 @@
+(* bunkplan.ml - Generate (crappy) HTML bunkplans from CSV               *)
+(* Copyright (C) 2012  Jack Kelly                                        *)
+(*                                                                       *)
+(* This program is free software: you can redistribute it and/or modify  *)
+(* it under the terms of the GNU Affero 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 Affero General Public License for more details.                   *)
+(*                                                                       *)
+(* You should have received a copy of the GNU Affero General Public      *)
+(* License along with this program.  If not, see                         *)
+(* <https://www.gnu.org/licenses/>.                                      *)
+
+open ExtList;;
+open ExtString;;
+
+module IntMap = Map.Make (struct type t = int let compare = compare end);;
+module StringMap = Map.Make (String);;
+
+type crew_type =
+    CO
+  | Chef
+  | Mate of int
+  | Passenger
+  | Watch_Assistant
+  | Watch_Leader;;
+
+type watch = Red | White | Blue;;
+let watch_to_string w =
+  match w with
+    Red -> "RED"
+  | White -> "WHITE"
+  | Blue -> "BLUE"
+let watch_to_string_color w =
+  match w with
+    Red -> "<font color=\"red\">RED</font>"
+  | White -> "WHITE"
+  | Blue -> "<font color=\"blue\">BLUE</font>"
+
+type sex = Male | Female;;
+type bunk_definition = {
+    number: int;
+    cabin: string;
+    bunk_name: string;
+  };;
+type bunk_assignment = {
+    muster_number: int;
+    crew_type: crew_type;
+    watch: watch;
+    name: string;
+    sex: sex;
+    bunk_number: int;
+    liferaft: string;
+    emergency_station: string;
+  };;
+type bunkplan = {
+    assignment: bunk_assignment list;
+    bunks: bunk_definition list;
+  };;
+
+(* Split the rows of the CSV file into the bunkplan, bunks and
+   excludes sections. *)
+let split rows =
+  let chunk list mark =
+    let not_mark row = List.hd row <> mark
+    and not_hash row = (List.hd row).[0] <> '#' in
+    List.takewhile not_hash (List.tl (List.dropwhile not_mark list))
+  in
+  let assignments = chunk rows "#BUNKPLAN"
+  and bunks = chunk rows "#BUNKS"
+  and excludes = chunk rows "#EXCLUDE"
+  in
+  assignments, bunks, excludes;;
+
+(* Parse the watchbill *)
+let parse_assignments assignments =
+  let rec iter assignments acc =
+    match assignments with
+      [] -> List.rev acc
+    | [num;crew_type;watch;name;sex;bunk;liferaft;emergency_station]::tl ->
+        iter tl ({ muster_number=int_of_string num;
+                   crew_type=(match crew_type with
+                     "CO" -> CO
+                   | "CH" -> Chef
+                   | "M1" -> Mate 1
+                   | "M2" -> Mate 2
+                   | "M3" -> Mate 3
+                   | "WA" -> Watch_Assistant
+                   | "WL" -> Watch_Leader
+                   | "" -> Passenger
+                   | _ -> failwith "Invalid passenger type.");
+                   watch=(match watch with
+                     "R" -> Red
+                   | "W" -> White
+                   | "B" -> Blue
+                   | _ -> failwith "Invalid watch.");
+                   name=name;
+                   sex=(match sex with
+                     "M" -> Male
+                   | "F" -> Female
+                   | _ -> failwith "Invalid sex.");
+                   bunk_number=int_of_string bunk;
+                   liferaft=liferaft;
+                   emergency_station=emergency_station }::acc)
+    | _ -> failwith "Format error in watchbill." in
+  iter assignments [];;
+
+(* Parse bunk definitions *)
+let parse_bunks bunks =
+  let rec iter bunks acc =
+    match bunks with
+      [] -> List.rev acc
+    | [num;cabin;name]::tl -> iter tl ({ number=int_of_string num;
+                                         cabin=cabin;
+                                         bunk_name=name }::acc)
+    | _ -> failwith "Format error in bunk definition."
+  in iter bunks [];;
+
+(* Turn a filename into a watchbill and bunk definitions *)
+let read_bunkplan filename =
+  let tidy = List.map (List.map (fun s -> String.uppercase (String.strip s)))
+  and csv = List.filter (fun x -> x <> []) (Csv.trim (Csv.load filename)) in
+  let assignments, bunks, excludes = split (tidy csv) in
+  let watchbill = parse_assignments assignments
+  and bunk_def = parse_bunks bunks
+  and excludes = List.concat excludes in
+  watchbill, bunk_def, excludes;;
+
+let doctype = "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01 Transitional//EN\" \"http://www.w3.org/TR/html4/loose.dtd\">\n";;
+
+(* Print one cabin plan *)
+let print_cabin template_filename bunks_by_number name cabin =
+  if cabin = [] then () else
+  let size = List.length cabin
+  and filename = (Filename.chop_extension
+                    template_filename) ^ "-" ^ name ^ ".html" in
+  let chan = open_out filename in
+  let out = output_string chan
+  and printf = Printf.fprintf chan in
+  let cell = printf "<td><center>%s</center></td>" in
+  let heading = printf "<td><center><font color=\"darkblue\"><u>%s</u></font></center></td>" in
+  out doctype;
+  out "<html>\n";
+  out "<head>\n";
+  printf "<title>BUNK PLAN %s</title>\n" name;
+  out "</head>";
+  out "<body>\n";
+  if size <= 4 then out "<br /><br /><br /><br /><br /><br />";
+  printf "<h1 align=\"center\">BUNK PLAN %s</h1>\n" name;
+  out "<center>\n";
+  if size > 4 then
+    out "<font size=\"5\">"
+  else
+    out "<font size=\"6\">";
+  out"<b>\n";
+  out "<table cellpadding=\"5\" cellspacing=\"40\">\n";
+  out "<tr>";
+  heading "BUNK";
+  heading "WATCH";
+  heading "NAME";
+  out "</tr>\n";
+  List.iter (fun p ->
+    out "<tr>";
+    cell ((IntMap.find p.bunk_number bunks_by_number).bunk_name);
+    cell (watch_to_string_color p.watch);
+    cell p.name;
+    out "</tr>\n") (List.sort ~cmp:(fun a b ->
+      compare a.bunk_number b.bunk_number) cabin);
+  out "</table>\n";
+  out "</b></font>\n";
+  out "</center>\n";
+  out "</body>\n";
+  out "</html>\n";
+  close_out chan;;
+
+(* Print the watchbill *)
+let print_watchbill template_filename bunks_by_number watchbill =
+  let filename = (Filename.chop_extension
+                    template_filename) ^ "-WATCHBILL.html" in
+  let chan = open_out filename in
+  let out = output_string chan
+  and printf = Printf.fprintf chan in
+  let red = printf "<font color=\"red\">%s</font>" in
+  out doctype;
+  out "<html>\n";
+  out "<head>\n";
+  out "<title>WATCH AND STATION BILL</title>\n";
+  out "</head>\n";
+  out "<body>\n";
+  out "<center><font face=\"sans\">\n";
+  out "<table border=\"2\" rules=\"all\">\n";
+  out "<tr><td colspan=\"7\">";
+  out "<center>WINDEWARD BOUND<br />WATCH AND STATION BILL</center>";
+  out "</td></tr>\n";
+  let watch_head watch =
+    out "<tr style=\"border:solid 2px\"><td><center>";
+    red "NO.";
+    out "</center></td><td><center>";
+    red ((watch_to_string watch) ^ " WATCH");
+    out "</center></td><td><center>";
+    red "BUNK";
+    out "</center></td><td><center>";
+    red "GEAR";
+    out "</center></td><td><center>";
+    red "CABIN";
+    out "</center></td><td><center>";
+    red "LIFERAFT";
+    out "</center></td><td><center>";
+    red "EMERGENCY STATION";
+    out "</center></td></tr>\n"; in
+  let name_cell entry =
+    let bgcell label =
+      "<td bgcolor=\"#6666ff\">" ^ label ^ "</td>"
+    and nth n =
+      match n with
+        1 -> "1st"
+      | 2 -> "2nd"
+      | 3 -> "3rd"
+      | _ -> failwith "Unexpected number"
+    and passenger_cell sex name =
+      let color = match sex with Male -> "blue" | Female -> "red" in
+      "<td><font color=\"" ^ color ^ "\">" ^ name ^ "</font></td>"
+    in
+    match entry.crew_type with
+      CO -> bgcell ("CAPTAIN - " ^ entry.name)
+    | Chef -> bgcell ("COOK - " ^ entry.name)
+    | Mate n -> bgcell ((nth n) ^ " MATE " ^ entry.name)
+    | Passenger -> passenger_cell entry.sex entry.name
+    | Watch_Assistant -> "<td>" ^ entry.name ^ "</td>"
+    | Watch_Leader -> bgcell ("LEADER - " ^ entry.name) in
+  let watch_line entry =
+    out "<tr><td>";
+    red ("<center>" ^ (string_of_int entry.muster_number) ^ "</center>");
+    out "</td>";
+    out (name_cell entry);
+    out ("<td><center>" ^ (string_of_int entry.bunk_number) ^ "</center></td>");
+    out "<td></td>";
+    out "<td><center>";
+    out (IntMap.find entry.bunk_number bunks_by_number).cabin;
+    out "</center></td>";
+    printf "<td><center>%s</center></td>" entry.liferaft;
+    printf "<td><center>%s</center></td></tr>\n" entry.emergency_station in
+  watch_head Red;
+  let rec iter watchbill watch =
+    match watchbill with
+      [] -> ()
+    | hd::tl ->
+        if hd.watch <> watch then watch_head hd.watch;
+        watch_line hd;
+        iter tl hd.watch
+  in
+  iter (List.sort
+             ~cmp:(fun a b -> compare a.muster_number b.muster_number)
+             watchbill) Red;
+  out "</table>\n";
+  out "</font></center>\n";
+  out "</body>\n";
+  out "</html>\n";
+  close_out chan;;
+
+(* Build and print the cabin plans *)
+let make_cabins filename watchbill bunks excludes =
+  (* Build a map of the watchbill, by bunk *)
+  let wb_by_bunk =
+    let rec iter watchbill map =
+      match watchbill with
+        [] -> map
+      | hd::tl -> iter tl (IntMap.add hd.bunk_number hd map)
+    in iter watchbill IntMap.empty in
+
+  (* And a map of the bunks, by bunk number *)
+  let bunks_by_number =
+    let rec iter bunks map =
+      match bunks with
+        [] -> map
+      | hd::tl -> iter tl (IntMap.add hd.number hd map)
+    in iter bunks IntMap.empty in
+
+  (* And a map of the cabins, by their cabin name *)
+  let bunks_by_cabin =
+    let rec iter cabins map =
+      match cabins with
+        [] -> StringMap.map List.rev map
+      | hd::tl -> try
+          let cabin = StringMap.find hd.cabin map in
+          iter tl (StringMap.add hd.cabin (hd::cabin) map)
+      with Not_found -> iter tl (StringMap.add hd.cabin [hd] map)
+    in iter bunks StringMap.empty in
+
+  (* And now a map of the people in the cabin *)
+  let cabins = StringMap.map (fun cabin ->
+    List.filter_map (fun bunk ->
+      try
+        Some (IntMap.find bunk.number wb_by_bunk)
+      with Not_found -> None) cabin) bunks_by_cabin in
+
+  (* Filter out the excluded cabins. StringMap.filter is not yet in my
+     version of ocaml. *)
+  let cabins = ref cabins in
+  List.iter (fun cabin ->
+    cabins := StringMap.remove cabin !cabins)
+    excludes;
+  let cabins = !cabins in
+
+  (* Now print the cabin definitions! *)
+  StringMap.iter (print_cabin filename bunks_by_number) cabins;
+  print_watchbill filename bunks_by_number watchbill;;
+
+let make_bunkplan filename =
+  let watchbill, bunk_def, excludes = read_bunkplan filename in
+  make_cabins filename watchbill bunk_def excludes;;
+
+let main () =
+  let nargs = Array.length Sys.argv in
+  if nargs = 2 then
+    make_bunkplan Sys.argv.(1)
+  else begin
+    print_endline "Must have a single filename argument.";
+    exit 1
+  end;;
+
+main ();;

@@ 0,0 1,18 @@
+{ stdenv, ocaml, csv, findlib, ocaml_extlib }:
+
+stdenv.mkDerivation {
+  name = "bunkplan";
+  src = ./.;
+
+  buildInputs = [ ocaml csv findlib ocaml_extlib ];
+
+  installPhase = "install -D -m 755 bunkplan $out/bin/bunkplan";
+
+  meta = with stdenv.lib; {
+    homepage = https://git.sr.ht/~jack/misc;
+    description = "Generate a bunkplan from a CSV";
+    license = licenses.agpl3Plus;
+    maintainers = [ maintainers.endgame ];
+    platforms = platforms.all;
+  };
+}

@@ 0,0 1,6 @@
+{ nixpkgs ? import ../nix/nixpkgs.nix }:
+
+with nixpkgs;
+callPackage (import ./bunkplan.nix) {
+  inherit (ocamlPackages) csv findlib ocaml_extlib;
+}

@@ 0,0 1,77 @@
+Types:,
+CO,Captain
+CH,Chef
+M1,First Mate
+M2,Second Mate
+M3,Third Mate
+WA,Watch Assistant
+WL,Watch Leader
+(Leave blank for trainees/passengers.)
+
+Number,Type,Watch (R/W/B),Name,Sex (M/F),Bunk (1-30),Liferaft,Emergency Station
+#BUNKPLAN,<- Do not edit this line
+1,WL,R,Red Leader,F,9,Fwd,Quarterdeck
+2,WA,R,Red Assistant,M,3,Fwd,Quarterdeck
+3,,R,Red Crew 1,F,20,Fwd,Quarterdeck
+4,,R,Red Crew 2,F,21,Fwd,Quarterdeck
+5,,R,Red Crew 3,M,25,Fwd,Quarterdeck
+6,,R,Red Crew 4,M,24,Fwd,Quarterdeck
+7,,R,Red Crew 5,M,1,Fwd,Quarterdeck
+8,,R,Red Crew 6,M,2,Fwd,Quarterdeck
+9,CH,R,The Cook,F,10,Fwd,Quarterdeck
+10,CO,R,The Captain,F,29,Fwd,Quarterdeck
+11,WL,W,White Leader,M,23,Aft 1,Quarterdeck
+12,WA,W,White Assistant,F,11,Aft 1,Quarterdeck
+13,,W,White Crew 1,F,12,Aft 1,Quarterdeck
+14,,W,White Crew 2,F,14,Aft 1,Quarterdeck
+15,,W,White Crew 3,M,16,Aft 1,Quarterdeck
+16,,W,White Crew 4,M,17,Aft 1,Quarterdeck
+17,,W,White Crew 5,M,18,Aft 1,Quarterdeck
+18,,W,White Crew 6,M,15,Aft 1,Quarterdeck
+19,M1,W,The First Mate,M,28,Aft 1,Quarterdeck
+20,WL,B,Blue Leader,M,22,Aft 1,Quarterdeck
+21,,B,Blue Assistant,M,4,Aft 1,Quarterdeck
+22,,B,Blue Crew 1,F,13,Aft 1,Quarterdeck
+23,,B,Blue Crew 2,F,19,Aft 1,Quarterdeck
+24,,B,Blue Crew 3,M,8,Aft 1,Quarterdeck
+25,,B,Blue Crew 4,M,7,Aft 1,Quarterdeck
+26,,B,Blue Crew 5,M,5,Aft 2,Quarterdeck
+27,,B,Blue Crew 6,M,6,Aft 2,Quarterdeck
+28,M2,B,The Second Mate,M,27,Aft 2,Quarterdeck
+
+#BUNKS,<- Do not edit this line
+1,FOCS'L,Port Upper
+2,FOCS'L,Port Mid
+3,FOCS'L,Port Lower
+4,FOCS'L,Port Cross
+5,FOCS'L,Stbd Cross
+6,FOCS'L,Stbd Lower
+7,FOCS'L,Stbd Mid
+8,FOCS'L,Stbd Upper
+9,Port Fwd,Upper
+10,Port Fwd,Lower
+11,Port Fwd,Cross
+12,Stbd Fwd,Cross
+13,Stbd Fwd,Lower
+14,Stbd Fwd,Upper
+15,Port Mid,Upper
+16,Port Mid,Mid
+17,Port Mid,Lower
+18,Port Mid,Cross
+19,Stbd Aft,Lower
+20,Stbd Aft,Mid
+21,Stbd Aft,Upper
+22,Port Aft,Lower
+23,Port Aft,Mid
+24,Port Aft,Upper
+25,Port Aft,Cross
+26,Drystore,Bunk
+27,Mates,Upper
+28,Mates,Lower
+29,Aft,Port
+30,Aft,Stbd
+
+#EXCLUDE,"<- Do not edit this line"
+Mates
+Aft
+Drystore

@@ 0,0 1,262 @@
+-- bunkplan.ml - Generate (crappy) HTML bunkplans from CSV
+-- Copyright (C) 2012  Jack Kelly
+--
+-- This program is free software: you can redistribute it and/or modify
+-- it under the terms of the GNU Affero 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 Affero General Public License for more details.
+--
+-- You should have received a copy of the GNU Affero General Public License
+-- along with this program.  If not, see <https://www.gnu.org/licenses/>.
+
+{-# LANGUAGE LambdaCase #-}
+
+import Data.Char
+import Data.Foldable (traverse_)
+import Data.Function
+import Data.List
+import qualified Data.Map as Map
+import Data.Maybe
+import System.Exit
+import System.FilePath
+import System.Environment
+import Text.CSV hiding (csv)
+import Text.Html (Html, (!), (<<), (+++))
+import qualified Text.Html as Html
+import Text.ParserCombinators.Parsec.Error
+import Text.Printf
+
+data Crew = Captain
+          | Chef
+          | Mate Int
+          | Passenger
+          | WatchAssistant
+          | WatchLeader deriving Show
+
+data Watch = Red | White | Blue deriving Show
+
+watchLabel :: Watch -> Html
+watchLabel = Html.toHtml . map toUpper . show
+
+watchLabelColor :: Watch -> Html
+watchLabelColor w = colorize $ watchLabel w where
+    colorize = case w of
+                 Red -> (! [Html.color Html.red]) . Html.font
+                 White -> id
+                 Blue -> (! [Html.color Html.blue]) . Html.font
+
+data Sex = Male | Female deriving Show
+
+data BunkDefinition = BunkDefinition {
+      _number :: String, -- Yes, string, to handle bunk 9A and so on.
+      _cabin :: String,
+      _bunkName :: String
+    } deriving Show
+
+data BunkAssignment = BunkAssignment {
+      _musterNumber :: Int,
+      _crewType :: Crew,
+      _watch :: Watch,
+      _name :: String,
+      _sex :: Sex,
+      _bunkNumber :: String,
+      _liferaft :: String,
+      _emergencyStation :: String
+    } deriving Show
+
+data BunkPlan = BunkPlan {
+      _assignment :: [BunkAssignment],
+      _bunks :: [BunkDefinition]
+    } deriving Show
+
+-- Split up the csv into assignments, bunks and excluded cabins (no parsing).
+split :: CSV -> ([Record], [Record], [Record])
+split rows = (assignments, bunks, excludes) where
+    assignments = chunk rows "#BUNKPLAN"
+    bunks = chunk rows "#BUNKS"
+    excludes = chunk rows "#EXCLUDE"
+    chunk list mark = takeWhile notHash $ tail $ dropWhile notMark list where
+                                            notHash = (/= '#') . head . head
+                                            notMark = (/= mark) . head
+
+-- Parsing Functions.
+parseCrew :: String -> Crew
+parseCrew "CO" = Captain
+parseCrew "CH" = Chef
+parseCrew "M1" = Mate 1
+parseCrew "M2" = Mate 2
+parseCrew "M3" = Mate 3
+parseCrew "WA" = WatchAssistant
+parseCrew "WL" = WatchLeader
+parseCrew "" = Passenger
+parseCrew _ = error "Invalid passenger type."
+
+parseWatch :: String -> Watch
+parseWatch "R" = Red
+parseWatch "W" = White
+parseWatch "B" = Blue
+parseWatch _ = error "Invalid Watch."
+
+parseSex :: String -> Sex
+parseSex "M" = Male
+parseSex "F" = Female
+parseSex _ = error "Invalid Sex."
+
+parseAssignments :: [Record] -> [BunkAssignment]
+parseAssignments = iter [] where
+    iter acc [] = reverse acc
+    iter acc ([num,
+               crew,
+               watch,
+               name,
+               sex,
+               bunk,
+               liferaft,
+               emergencyStation]:rs) = iter (assign:acc) rs where
+                           assign = BunkAssignment {
+                                      _musterNumber = read num,
+                                      _crewType = parseCrew crew,
+                                      _watch = parseWatch watch,
+                                      _name = name,
+                                      _sex = parseSex sex,
+                                      _bunkNumber = bunk,
+                                      _liferaft = liferaft,
+                                      _emergencyStation = emergencyStation
+                                    }
+    iter _ _ = error "Format error in watchbill."
+
+parseDefinitions :: [Record] -> [BunkDefinition]
+parseDefinitions = iter [] where
+    iter acc [] = reverse acc
+    iter acc ([num, cabin, name]:rs) = iter (def:acc) rs where
+                           def = BunkDefinition {
+                                   _number = num,
+                                   _cabin = cabin,
+                                   _bunkName = name
+                                 }
+    iter _ _ = error "Format error in bunk definition."
+
+-- Trim a CSV file: remove empty columns on the left, empty rows at
+-- top or bottom and empty cells at the end of the row.
+
+trimCSV :: CSV -> CSV
+trimCSV = trimRight . trimLeft . trimBottom . trimTop where
+    trimRight = map $ reverse . dropWhile (== "") . reverse
+    trimLeft csv =
+      let margin = minimum $ map (length . takeWhile (== "")) csv
+      in map (drop margin) csv
+    trimTop = dropWhile (all (== ""))
+    trimBottom = reverse . trimTop . reverse
+
+-- Non-structural fixups on the CSV.
+tidy :: CSV -> CSV
+tidy = upper . trimCells where
+    upper = map $ map $ map toUpper
+    trimCells = map . map $ (reverse . dropWhile isSpace . reverse)
+
+-- Read the CSV, parse everything.
+readBunkPlan :: FilePath -> IO ([BunkAssignment], [BunkDefinition], [String])
+readBunkPlan f =
+    parseCSVFromFile f >>= \case
+      Left err -> error $ concatMap messageString $ errorMessages err
+      Right records -> do
+                   let records' = filter (not . null) $ trimCSV records
+                       (assignments, bunks, excludes) = split $ tidy records'
+                       watchbill = parseAssignments assignments
+                       bunkDefs = parseDefinitions bunks
+                       excludes' = concat excludes
+                   return (watchbill, bunkDefs, excludes')
+
+-- Turn the input filename into an output filename.
+makeFileName :: FilePath -> String -> FilePath
+makeFileName template inName = dropExtension template ++ "-" ++ inName ++ ".html"
+
+-- Print one cabin plan
+printCabin :: FilePath
+           -> Map.Map String BunkDefinition
+           -> String
+           -> [BunkAssignment]
+           -> IO ()
+printCabin template bunks name cabin =
+    if null cabin
+    then return ()
+    else do
+      let doctype = "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01 Transitional//EN\" \"http://www.w3.org/TR/html4/loose.dtd\">\n"
+          filename = makeFileName template name
+          size = length cabin
+          smallCabin = size <= 5
+          fontSize = if smallCabin then "6" else "5"
+
+          title = printf "BUNK PLAN %s" name :: String
+          theHead = Html.header << Html.thetitle << title
+          theH1 = (Html.h1 << title) ! [Html.align "center"]
+
+          headingCell label = Html.th
+            << Html.center
+            << (Html.font << Html.underline << label) ! [Html.color Html.navy]
+          headingRow = foldl1 (+++) $ map headingCell ["BUNK", "WATCH", "NAME"]
+          cell label = Html.td << Html.center << label
+          bunk assign = _bunkName $ bunks Map.! _bunkNumber assign
+          row assign = Html.tr << (cell (bunk assign)
+                              +++ cell (watchLabelColor $ _watch assign)
+                              +++ cell (_name assign))
+          theRows = map row $ sortBy (compare `on` _bunkNumber) cabin
+          theTable = (Html.table << (headingRow +++ theRows)) !
+            [Html.cellpadding 5, Html.cellspacing 40]
+          content = Html.center << ((Html.font << Html.bold << theTable)
+                               ! [Html.size fontSize])
+          theBody = Html.body << (theH1 +++ content)
+      writeFile filename $
+        doctype ++ Html.prettyHtml (Html.thehtml << (theHead +++ theBody))
+
+-- Build the cabin structures and print plans.
+makeCabins :: FilePath
+           -> ([BunkAssignment], [BunkDefinition], [String])
+           -> IO ()
+makeCabins filename (watchbill, bunks, excludes) = do
+  -- Build a map of the watchbill, by bunk.
+  let watchbillByBunk =
+          foldl (\m assign ->
+                     Map.insert (_bunkNumber assign) assign m)
+                Map.empty watchbill
+
+  -- And a map of the bunks by bunk number.
+  let bunksByNumber =
+          foldl (\m def ->
+                     Map.insert (_number def) def m) Map.empty bunks
+
+  -- And a map of the cabins, by cabin name.
+  let bunksByCabin =
+          Map.map reverse $
+             foldl (\m def -> Map.insertWith (++) (_cabin def) [def] m)
+                   Map.empty bunks
+
+  -- And now a map of the people in each cabin, except the excludes
+  let cabins =
+          Map.filterWithKey (\cabin _ -> cabin `notElem` excludes) $
+          Map.map (mapMaybe
+                   (\bunk -> Map.lookup (_number bunk) watchbillByBunk))
+          bunksByCabin
+
+  -- Now print everything!
+  traverse_ (uncurry $ printCabin filename bunksByNumber) $
+            Map.toList cabins
+
+-- Parse and print everything.
+makeBunkPlan :: FilePath -> IO ()
+makeBunkPlan fileName = readBunkPlan fileName >>= makeCabins fileName
+
+-- Let's go!
+main :: IO ()
+main = do
+  args <- getArgs
+  if length args /= 1
+    then do
+      putStrLn "Must have a single filename argument."
+      exitFailure
+    else makeBunkPlan $ head args

@@ 0,0 1,5 @@
+# Revision history for bunkplan
+
+## 0.1.0.0 -- YYYY-mm-dd
+
+* First version. Released on an unsuspecting world.

@@ 0,0 1,661 @@
+                    GNU AFFERO GENERAL PUBLIC LICENSE
+                       Version 3, 19 November 2007
+
+ Copyright (C) 2007 Free Software Foundation, Inc. <https://fsf.org/>
+ Everyone is permitted to copy and distribute verbatim copies
+ of this license document, but changing it is not allowed.
+
+                            Preamble
+
+  The GNU Affero General Public License is a free, copyleft license for
+software and other kinds of works, specifically designed to ensure
+cooperation with the community in the case of network server software.
+
+  The licenses for most software and other practical works are designed
+to take away your freedom to share and change the works.  By contrast,
+our General Public Licenses are 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.
+
+  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.
+
+  Developers that use our General Public Licenses protect your rights
+with two steps: (1) assert copyright on the software, and (2) offer
+you this License which gives you legal permission to copy, distribute
+and/or modify the software.
+
+  A secondary benefit of defending all users' freedom is that
+improvements made in alternate versions of the program, if they
+receive widespread use, become available for other developers to
+incorporate.  Many developers of free software are heartened and
+encouraged by the resulting cooperation.  However, in the case of
+software used on network servers, this result may fail to come about.
+The GNU General Public License permits making a modified version and
+letting the public access it on a server without ever releasing its
+source code to the public.
+
+  The GNU Affero General Public License is designed specifically to
+ensure that, in such cases, the modified source code becomes available
+to the community.  It requires the operator of a network server to
+provide the source code of the modified version running there to the
+users of that server.  Therefore, public use of a modified version, on
+a publicly accessible server, gives the public access to the source
+code of the modified version.
+
+  An older license, called the Affero General Public License and
+published by Affero, was designed to accomplish similar goals.  This is
+a different license, not a version of the Affero GPL, but Affero has
+released a new version of the Affero GPL which permits relicensing under
+this license.
+
+  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 Affero 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. Remote Network Interaction; Use with the GNU General Public License.
+
+  Notwithstanding any other provision of this License, if you modify the
+Program, your modified version must prominently offer all users
+interacting with it remotely through a computer network (if your version
+supports such interaction) an opportunity to receive the Corresponding
+Source of your version by providing access to the Corresponding Source
+from a network server at no charge, through some standard or customary
+means of facilitating copying of software.  This Corresponding Source
+shall include the Corresponding Source for any work covered by version 3
+of the GNU General Public License that is incorporated pursuant to the
+following paragraph.
+
+  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 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 work with which it is combined will remain governed by version
+3 of the GNU General Public License.
+
+  14. Revised Versions of this License.
+
+  The Free Software Foundation may publish revised and/or new versions of
+the GNU Affero 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 Affero 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 Affero 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 Affero 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.
+
+    <one line to give the program's name and a brief idea of what it does.>
+    Copyright (C) <year>  <name of author>
+
+    This program is free software: you can redistribute it and/or modify
+    it under the terms of the GNU Affero 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 Affero General Public License for more details.
+
+    You should have received a copy of the GNU Affero General Public License
+    along with this program.  If not, see <https://www.gnu.org/licenses/>.
+
+Also add information on how to contact you by electronic and paper mail.
+
+  If your software can interact with users remotely through a computer
+network, you should also make sure that it provides a way for users to
+get its source.  For example, if your program is a web application, its
+interface could display a "Source" link that leads users to an archive
+of the code.  There are many ways you could offer source, and different
+solutions will be better for different programs; see section 13 for the
+specific requirements.
+
+  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 AGPL, see
+<https://www.gnu.org/licenses/>.

@@ 0,0 1,2 @@
+import Distribution.Simple
+main = defaultMain

@@ 0,0 1,4 @@
+- Watchbill
+  - Font sizing on long names
+  - Lighten colour on "important person" highlight
+- Font sizing on large cabins?

@@ 0,0 1,25 @@
+cabal-version:       >=1.10
+
+name:                bunkplan
+version:             0.1.0.0
+synopsis:            Generate a HTML bunkplan from a CSV
+description:         Generate a HTML bunkplan from a CSV.
+license:             AGPL-3-or-later
+license-file:        COPYING
+author:              Jack Kelly
+maintainer:          jack@jackkelly.name
+copyright:           Copyright (C) 2012  Jack Kelly
+category:            Application
+build-type:          Simple
+extra-source-files:  CHANGELOG.md
+
+executable bunkplan
+  main-is:             Bunkplan.hs
+  build-depends:       base >= 4.12 && < 4.13
+                     , containers >= 0.6.0.1 && < 0.7
+                     , csv >= 0.1.2 && < 0.2
+                     , filepath >= 1.4.2.1 && < 1.5
+                     , html >= 1.0.1.2 && < 1.1
+                     , parsec >= 3.1.13.0 && < 3.2
+  default-language:    Haskell2010
+  ghc-options:         -Wall -threaded

@@ 0,0 1,15 @@
+{ mkDerivation, base, containers, csv, filepath, html, parsec
+, stdenv
+}:
+mkDerivation {
+  pname = "bunkplan";
+  version = "0.1.0.0";
+  src = ./.;
+  isLibrary = false;
+  isExecutable = true;
+  executableHaskellDepends = [
+    base containers csv filepath html parsec
+  ];
+  description = "Generate a HTML bunkplan from a CSV";
+  license = stdenv.lib.licenses.agpl3Plus;
+}

@@ 0,0 1,15 @@
+{ nixpkgs ? import ../nix/nixpkgs.nix
+, compiler ? "default"
+, doBenchmark ? false
+}:
+
+let
+  inherit (nixpkgs) pkgs;
+
+  haskellPackages = if compiler == "default"
+    then pkgs.haskellPackages
+    else pkgs.haskell.packages.${compiler};
+
+  variant = if doBenchmark then pkgs.haskell.lib.doBenchmark else pkgs.lib.id;
+in
+  variant (haskellPackages.callPackage ./bunkplan.nix {})

@@ 0,0 1,80 @@
+Types:,
+CO,Captain
+CH,Chef
+M1,First Mate
+M2,Second Mate
+M3,Third Mate
+WA,Watch Assistant
+WL,Watch Leader
+(Leave blank for trainees/passengers.)
+
+Number,Type,Watch (R/W/B),Name,Sex (M/F),Bunk (1-30),Liferaft,Emergency Station
+#BUNKPLAN,<- Do not edit this line
+1,WL,R,Red Leader,F,9,Fwd,Quarterdeck
+2,WA,R,Red Assistant,M,3,Fwd,Quarterdeck
+3,,R,Red Crew 1,F,20,Fwd,Quarterdeck
+4,,R,Red Crew 2,F,21,Fwd,Quarterdeck
+5,,R,Red Crew 3,M,25,Fwd,Quarterdeck
+6,,R,Red Crew 4,M,24,Fwd,Quarterdeck
+7,,R,Red Crew 5,M,1,Fwd,Quarterdeck
+8,,R,Red Crew 6,M,2,Fwd,Quarterdeck
+9,CH,R,The Cook,F,10,Fwd,Quarterdeck
+10,CO,R,The Captain,F,29,Fwd,Quarterdeck
+11,WL,W,White Leader,M,23,Aft 1,Quarterdeck
+12,WA,W,White Assistant,F,11,Aft 1,Quarterdeck
+13,,W,White Crew 1,F,12,Aft 1,Quarterdeck
+14,,W,White Crew 2,F,14,Aft 1,Quarterdeck
+15,,W,White Crew 3,M,16,Aft 1,Quarterdeck
+16,,W,White Crew 4,M,17,Aft 1,Quarterdeck
+17,,W,White Crew 5,M,18,Aft 1,Quarterdeck
+18,,W,White Crew 6,M,15,Aft 1,Quarterdeck
+19,M1,W,The First Mate,M,28,Aft 1,Quarterdeck
+20,WL,B,Blue Leader,M,22,Aft 1,Quarterdeck
+21,,B,Blue Assistant,M,4,Aft 1,Quarterdeck
+22,,B,Blue Crew 1,F,13,Aft 1,Quarterdeck
+23,,B,Blue Crew 2,F,19,Aft 1,Quarterdeck
+24,,B,Blue Crew 3,M,8,Aft 1,Quarterdeck
+25,,B,Blue Crew 4,M,7,Aft 1,Quarterdeck
+26,,B,Blue Crew 5,M,5,Aft 2,Quarterdeck
+27,,B,Blue Crew 6,M,6,Aft 2,Quarterdeck
+28,M2,B,The Second Mate,M,27,Aft 2,Quarterdeck
+
+#BUNKS,<- Do not edit this line
+1,FOCS'L,Port Upper
+2,FOCS'L,Port Mid
+3,FOCS'L,Port Lower
+4,FOCS'L,Port Cross
+5,FOCS'L,Stbd Cross
+6,FOCS'L,Stbd Lower
+7,FOCS'L,Stbd Mid
+8,FOCS'L,Stbd Upper
+9A,Port Fwd,Upper
+9,Port Fwd,Mid
+10,Port Fwd,Lower
+11,Port Fwd,Cross
+12,Stbd Fwd,Upper Cross
+13,Stbd Fwd,Lower
+13A,Stbd Fwd,Lower Cross
+14A,Stbd Fwd,Upper
+14,Stbd Fwd,Mid
+15,Port Mid,Upper
+16,Port Mid,Mid
+17,Port Mid,Lower
+18,Port Mid,Cross
+19,Stbd Aft,Lower
+20,Stbd Aft,Mid
+21,Stbd Aft,Upper
+22,Port Aft,Lower
+23,Port Aft,Mid
+24,Port Aft,Upper
+25,Port Aft,Cross
+26,Drystore,Bunk
+27,Mates,Upper
+28,Mates,Lower
+29,Aft,Port
+30,Aft,Stbd
+
+#EXCLUDE,"<- Do not edit this line"
+Mates
+Aft
+Drystore

@@ 0,0 1,13 @@
+{ nixpkgs ? import ../nix/nixpkgs.nix
+, compiler ? "default"
+, doBenchmark ? false
+}:
+let
+  inherit (nixpkgs) pkgs;
+  env = (import ./. { inherit nixpkgs compiler doBenchmark; }).env;
+in
+  env.overrideAttrs (oldAttrs: {
+    buildInputs = with pkgs.haskellPackages; oldAttrs.buildInputs ++ [
+      cabal-install cabal2nix ghcid
+    ];
+  })

@@ 0,0 1,138 @@
+-- cabinsheet.ml - Generate (crappy) HTML cabin sheets from CSV
+-- Copyright (C) 2012  Jack Kelly
+--
+-- 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 <http://www.gnu.org/licenses/>.
+
+import Control.Monad
+import Data.Char
+import qualified Data.Map as Map
+import System.Environment
+import System.Exit
+import System.FilePath
+import System.IO
+import Text.CSV
+import Text.Html
+import Text.ParserCombinators.Parsec.Error
+import Text.Printf
+
+-- Cabinsheets are a lot simpler than bunkplans: it's just a series of
+-- records of the form (Cabin, Bunk, Watch, Name). Watch names get
+-- colorized, and the string "HOT BUNK" is rendered in purple.
+data CabinEntry = CabinEntry {
+      bunk :: String,
+      watch :: String,
+      name :: String
+}
+
+type CabinPlan = Map.Map String [CabinEntry]
+
+-- Trim a CSV file: remove empty columns on the left, empty rows at
+-- top or bottom and empty cells at the end of the row.
+trimCSV :: CSV -> CSV
+trimCSV = noEmpty . trimRight . trimLeft where
+    noEmpty = filter (/= [])
+    trimRight = map $ reverse . (dropWhile (== "")) . reverse
+    trimLeft csv = let margin = minimum
+                                $ map length
+                                $ map (takeWhile (== "")) csv in
+                   map (drop margin) csv
+
+-- Non-structural fixups on the CSV.
+tidy :: CSV -> CSV
+tidy = upper . trimCells where
+    upper = map $ map $ map toUpper
+    trimCells = map $ map $ (reverse . (dropWhile isSpace) . reverse)
+
+-- Read the cabin plan into something useful.
+parseCabinPlan :: CSV -> CabinPlan
+parseCabinPlan = foldr addEntry Map.empty where
+    addEntry [cabin, bunk, watch, name] =
+        Map.insertWith (++) cabin [CabinEntry {
+                                     bunk = bunk,
+                                     watch = watch,
+                                     Main.name = name
+                                   }]
+    addEntry _ = error "Malformed line in CSV"
+
+readCabinPlan :: FilePath -> IO CabinPlan
+readCabinPlan file = do
+  csv <- parseCSVFromFile file
+  case csv of
+    Left err -> error $ concatMap messageString $ errorMessages err
+    Right records -> return $ parseCabinPlan $ tidy $ trimCSV records
+
+-- Generate cabin sheet.
+colorize :: String -> Html
+colorize "RED" = (font << "RED") ! [color "red"]
+colorize "BLUE" = (font << "BLUE") ! [color "blue"]
+colorize "GREEN" = (font << "GREEN") ! [color "green"]
+colorize "HOT BUNK" = (font << "HOT BUNK") ! [color "purple"]
+colorize other = toHtml other
+
+makeCabinSheet :: String -> [CabinEntry] -> String
+makeCabinSheet cabin entries =
+    doctype ++ (prettyHtml $ thehtml << (theHead +++ theBody)) where
+        doctype = "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01 Transitional//EN\" \"http://www.w3.org/TR/html4/loose.dtd\">\n"
+        size = length entries
+        smallCabin = size <= 5
+        bigNames = any ((>= 15) . length . Main.name) entries
+        fontSize
+            | smallCabin = "6"
+            | bigNames   = "5"
+            | otherwise  = "4"
+
+        title = (printf "BUNK PLAN %s" cabin) :: String
+        theHead = header << thetitle << title
+        theH1 = (h1 << title) ! [align "center"]
+
+        spacer = if smallCabin then iterate (br +++) br !! 3 else noHtml
+
+        headingCell label = th
+                            << center
+                            << (font << underline << label) ! [color navy]
+        headingRow = foldl1 (+++) $ map headingCell ["BUNK", "WATCH", "NAME"]
+        cell label = td << center << label
+        row entry = tr << ((cell $ bunk entry)
+                           +++ (cell $ colorize $ watch entry)
+                           +++ (cell $ Main.name entry))
+        theRows = map row entries
+        theTable = (table << (headingRow +++ theRows)) ! [cellpadding 5,
+                                                          cellspacing 40]
+        content = center << ((font << bold << theTable)
+                             ! [Text.Html.size fontSize])
+        theBody = body << (theH1 +++ content)
+
+-- Turn the input filename into an output filename.
+makeFileName :: FilePath -> String -> FilePath
+makeFileName template name = (dropExtension template) ++ "-" ++ name ++ ".html"
+
+printCabinSheet :: FilePath -> String -> [CabinEntry] -> IO ()
+printCabinSheet template cabin entries =
+    writeFile (makeFileName template cabin) (makeCabinSheet cabin entries)
+
+printCabinSheets :: FilePath -> CabinPlan -> IO ()
+printCabinSheets template cabins =
+    mapM_ (uncurry $ printCabinSheet template) $ Map.toList cabins
+
+main :: IO ()
+main = do
+  args <- getArgs
+  case args of
+    [file] -> do
+              plan <- readCabinPlan file
+              printCabinSheets file plan
+              exitSuccess
+    _ -> do
+         putStrLn "Must have a single filename argument."
+         exitFailure

@@ 0,0 1,5 @@
+Cabinsheets: Cabinsheets.hs
+	ghc --make Cabinsheets.hs
+
+clean:
+	-rm -f *.html Cabinsheets Cabinsheets.o Cabinsheets.hi

@@ 0,0 1,4 @@
+The cabin sheets are all generated from a single CSV file. Each row of
+the CSV has four columns: the cabin, the bunk, the watch and the name
+of the person in that bunk. Copy and alter sample.csv, that's the
+easiest way.

@@ 0,0 1,33 @@
+FOCS'L,Port Upper,Red,Person 1
+FOCS'L,Port Mid,Red,Person 2
+FOCS'L,Port Lower,Red,Person 3
+FOCS'L,Port Cross,Red,Person 4
+FOCS'L,Stbd Cross,Red,Person 5
+FOCS'L,Stbd Lower,Red,Person 6
+FOCS'L,Stbd Mid,Red,Person 7
+FOCS'L,Stbd Upper,Red,Person 8
+
+Port Fwd,Lower,White,Person 9
+Port Fwd,Mid,White,Person 10
+Port Fwd,Upper,White,Person 11
+Port Fwd,Cross,White,Person 12
+
+Stbd Fwd,Lower,White,Person 13
+Stbd Fwd,Mid,White,Person 14
+Stbd Fwd,Upper,White,Person 15
+Stbd Fwd,Lower Cross,White,Person 16
+Stbd Fwd,Upper Cross,White,Person 17
+
+Port Mid,Lower,Blue,Person 18
+Port Mid,Mid,Blue,Person 19
+Port Mid,Upper,Blue,Person 20
+Port Mid,Cross,Blue,Person 21
+
+Stbd Aft,Lower,Blue,Person 22
+Stbd Aft,Mid,Blue,Person 23
+Stbd Aft,Upper,Blue,Person 24
+
+Port Aft,Lower,Blue,Person 25
+Port Aft,Mid,Blue,Person 26
+Port Aft,Upper,Blue,Person 27
+Port Aft,Cross,Blue,Person 28

@@ 1,4 1,18 @@
-{-# LANGUAGE StaticPointers #-}
+-- codeworld-raycaster - draw a blocky labyrinth like it's 1992.
+-- Copyright (C) 2018  Jack Kelly <jack@jackkelly.name>
+--
+-- This program is free software: you can redistribute it and/or modify
+-- it under the terms of the GNU Affero 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 Affero General Public License for more details.
+--
+-- You should have received a copy of the GNU Affero General Public License
+-- along with this program.  If not, see <https://www.gnu.org/licenses/>.
 
 module Main where
 


@@ 12,4 26,4 @@ main
   = interactionOf initialState handleTime handleEvent draw
   where
     handleTime _ s = s
-    draw s = render s & coordinatePlane>
\ No newline at end of file
+    draw s = render s & coordinatePlane

@@ 0,0 1,12 @@
+diff -uar a/codeworld-api-0.3.1/codeworld-api.cabal b/codeworld-api-0.3.1/codeworld-api.cabal
+--- a/codeworld-api.cabal	2019-02-28 02:15:42.000000000 +1000
++++ b/codeworld-api.cabal	2019-11-02 19:15:58.972474817 +1000
+@@ -51,7 +51,7 @@
+                        ghcjs-dom             >= 0.8 && < 0.9,
+                        transformers
+   else
+-    Build-depends:     blank-canvas          >= 0.6 && < 0.7,
++    Build-depends:     blank-canvas,
+                        time                  >= 1.6.0 && < 1.9
+ 
+   Exposed:             True

@@ 1,15 0,0 @@
-{ mkDerivation, base, blank-canvas, cereal, cereal-text, containers
-, ghc-prim, hashable, mtl, random, random-shuffle, stdenv, text
-, time
-}:
-mkDerivation {
-  pname = "codeworld-api";
-  version = "0.3.1";
-  sha256 = "6f017882e65353e27077551af9bb5f6d427f967e9fc69bd88073c353617e6f8e";
-  libraryHaskellDepends = [
-    base blank-canvas cereal cereal-text containers ghc-prim hashable
-    mtl random random-shuffle text time
-  ];
-  description = "Graphics library for CodeWorld";
-  license = stdenv.lib.licenses.asl20;
-}

@@ 3,7 3,7 @@ cabal-version:       >= 2.0
 name:                codeworld-raycaster
 version:             0.1.0.0
 synopsis:            Simple raycaster
-license:             GPL-3.0-or-later
+license:             AGPL-3.0-or-later
 license-file:        LICENSE
 author:              Jack Kelly
 maintainer:          jack@jackkelly.name


@@ 11,6 11,7 @@ copyright:           (c) 2019 Jack Kelly
 category:            Game Engine
 build-type:          Simple
 extra-source-files:  CHANGELOG.md, README.md
+homepage:            https://git.sr.ht/~jack/misc
 
 library
   exposed-modules:     Controller

@@ 7,5 7,7 @@ mkDerivation {
   isExecutable = true;
   libraryHaskellDepends = [ array base codeworld-api text ];
   executableHaskellDepends = [ base codeworld-api ];
-  license = stdenv.lib.licenses.gpl3;
+  homepage = "https://git.sr.ht/~jack/misc";
+  description = "Simple raycaster";
+  license = stdenv.lib.licenses.agpl3Plus;
 }

@@ 1,4 1,7 @@
-{ nixpkgs ? import ./nixpkgs-pin.nix {}, compiler ? "default", doBenchmark ? false }:
+{ nixpkgs ? import ../nix/nixpkgs.nix
+, compiler ? "default"
+, doBenchmark ? false
+}:
 
 let
   inherit (nixpkgs) pkgs;


@@ 8,8 11,9 @@ let
                        else pkgs.haskell.packages.${compiler};
 
   myHaskellPackages = haskellPackages.override {
-    overrides = self: super: {
-      codeworld-api = super.callPackage ./codeworld-api-0.3.1.nix {};
+    overrides = self: super: with pkgs.haskell.lib; {
+      codeworld-api = appendPatch (unmarkBroken super.codeworld-api)
+        ./codeworld-api-0.3.1-blank-canvas-jailbreak.patch;
     };
   };
 

@@ 1,13 1,13 @@
-{ nixpkgs ? import ./nixpkgs-pin.nix {}
+{ nixpkgs ? import ../nix/nixpkgs.nix
 , compiler ? "default"
 , doBenchmark ? false
 }:
 let
   inherit (nixpkgs) pkgs;
-  env = (import ./default.nix { inherit nixpkgs compiler doBenchmark; }).env;
+  env = (import ./. { inherit nixpkgs compiler doBenchmark; }).env;
 in
   env.overrideAttrs (oldAttrs: {
     buildInputs = with pkgs.haskellPackages; oldAttrs.buildInputs ++ [
-      cabal-install ghcid
+      cabal-install cabal2nix ghcid
     ];
   })

@@ 1,3 1,19 @@
+-- codeworld-raycaster - draw a blocky labyrinth like it's 1992.
+-- Copyright (C) 2018  Jack Kelly <jack@jackkelly.name>
+--
+-- This program is free software: you can redistribute it and/or modify
+-- it under the terms of the GNU Affero 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 Affero General Public License for more details.
+--
+-- You should have received a copy of the GNU Affero General Public License
+-- along with this program.  If not, see <https://www.gnu.org/licenses/>.
+
 {-# LANGUAGE OverloadedStrings #-}
 
 module Controller where


@@ 13,7 29,7 @@ handleEvent (KeyPress k) s
   | k == "Up" = adjustPosition (forward 0.1) s
   | k == "Down" = adjustPosition (forward (-0.1)) s
   | k == "Left" = adjustFacing (normalize . (+ turnAngle)) s
-  | k == "Right" = adjustFacing (normalize . (subtract turnAngle)) s
+  | k == "Right" = adjustFacing (normalize . subtract turnAngle) s
 
   where
     forward d (px, py) = (px + d * cos theta, py + d * sin theta) where

@@ 1,3 1,19 @@
+-- codeworld-raycaster - draw a blocky labyrinth like it's 1992.
+-- Copyright (C) 2018  Jack Kelly <jack@jackkelly.name>
+--
+-- This program is free software: you can redistribute it and/or modify
+-- it under the terms of the GNU Affero 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 Affero General Public License for more details.
+--
+-- You should have received a copy of the GNU Affero General Public License
+-- along with this program.  If not, see <https://www.gnu.org/licenses/>.
+
 module Renderer (render, normalize) where
 
 import CodeWorld

@@ 1,3 1,19 @@
+-- codeworld-raycaster - draw a blocky labyrinth like it's 1992.
+-- Copyright (C) 2018  Jack Kelly <jack@jackkelly.name>
+--
+-- This program is free software: you can redistribute it and/or modify
+-- it under the terms of the GNU Affero 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 Affero General Public License for more details.
+--
+-- You should have received a copy of the GNU Affero General Public License
+-- along with this program.  If not, see <https://www.gnu.org/licenses/>.
+
 module State where
 
 import Data.Array (Array, (!), bounds, array)

@@ 0,0 1,13 @@
+PKGS := libcurl libxml-2.0
+CFLAGS := -std=gnu99 -Wall -Wextra $(shell pkg-config --cflags $(PKGS))
+LIBS := $(shell pkg-config --libs $(PKGS))
+
+all: metscrape
+
+metscrape: metscrape.c
+	gcc $(CFLAGS) -o $@ $< $(LIBS)
+
+clean:
+	-rm -f metscrape *.gif
+
+.PHONY: all clean

@@ 0,0 1,8 @@
+This is no longer maintained, and MetVUW have redone their website, so
+it doesn't work any more. Might still be useful as a reference.
+
+A simple C program to pull down a set of MetVUW weather
+images. Everything's hardcoded: it always pulls the "seaussie" set, and
+pulls down every image in the set.
+
+Requires libxml2 and libcurl.

@@ 0,0 1,2 @@
+{ nixpkgs ? import ../nix/nixpkgs.nix }:
+nixpkgs.callPackage (import ./metscrape.nix) {}

@@ 0,0 1,141 @@
+/*
+ * metscrape - dumb scraper to pull down MetVUW weather images
+ * Copyright (C) 2012  Jack Kelly <jack@jackkelly.name>
+ *
+ * This program is free software: you can redistribute it and/or modify
+ * it under the terms of the GNU Affero 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 Affero General Public License for more details.
+ *
+ * You should have received a copy of the GNU Affero General Public License
+ * along with this program.  If not, see <https://www.gnu.org/licenses/>.
+ */
+
+#include <stdio.h>
+#include <string.h>
+#include <unistd.h>
+
+#include <curl/curl.h>
+#include <libxml/HTMLparser.h>
+#include <libxml/xpath.h>
+
+#define FORECAST_URL ("http://www.metvuw.com/forecast/forecast1.php"     \
+                      "?type=rain&region=seaussie&tim=06")
+#define FORECAST_IMG_URL_PATTERN ("http://www.metvuw.com/forecast/%1$s/"    \
+                                  "rain-seaussie-%1$s-%2$02d.gif")
+#define FORECAST_IMG_FILE_PATTERN "rain-seaussie-%1$s-%2$03d.gif"
+#define BUFSIZE 1024
+
+/* Fetch options */
+#define START 6
+#define STEP 6
+#define LAST 180
+
+/* Fetch ALL THE IMAGES! */
+static void fetch_images(const char* base) {
+  puts("Fetching images...");
+
+  char buf[BUFSIZE];
+  CURL* curl = curl_easy_init();
+  if (curl == NULL) {
+    puts(" - Error");
+    return;
+  }
+
+  size_t write_cb(void* p, size_t sz, size_t nmemb, void* ud) {
+    FILE* fp = ud;
+    size_t written = fwrite(p, sz, nmemb, fp);
+    return sz * written;
+  }
+  curl_easy_setopt(curl, CURLOPT_WRITEFUNCTION, write_cb);
+
+  for (int i = START; i <= LAST; i += STEP) {
+    snprintf(buf, BUFSIZE, FORECAST_IMG_URL_PATTERN, base, i);
+    curl_easy_setopt(curl, CURLOPT_URL, buf);
+    snprintf(buf, BUFSIZE, FORECAST_IMG_FILE_PATTERN, base, i);
+    FILE* fp = fopen(buf, "w");
+    curl_easy_setopt(curl, CURLOPT_WRITEDATA, fp);
+    printf(" - %s...", buf);
+    fflush(stdout);
+
+    CURLcode status = curl_easy_perform(curl);
+    fclose(fp);
+    if (status == 0) {
+      puts(" OK");
+    } else {
+      puts(" FAIL");
+      unlink(buf);
+    }
+  }
+  curl_easy_cleanup(curl);
+}
+
+/* Forecast URLs take the form
+   http://www.metvuw.com/forecast/2012031712/rain-seaussie-2012031712-06.gif
+   This fetches a sample page and finds the base (here 20120031712).
+   Free the result with free().
+   Return NULL if it gets confused. */
+static char* get_forecast_base(void) {
+  char* result = NULL;
+  htmlParserCtxtPtr ctx = htmlNewParserCtxt();
+  if (ctx == NULL) goto err0;
+  htmlDocPtr doc = htmlCtxtReadFile(ctx,
+                                    FORECAST_URL,
+                                    NULL,
+                                    (HTML_PARSE_RECOVER
+                                     | XML_PARSE_NOERROR
+                                     | XML_PARSE_NOWARNING));
+  if (doc == NULL) goto err1;
+
+  xmlXPathContextPtr xpath = xmlXPathNewContext(doc);
+  if (xpath == NULL) goto err2;
+
+  xmlXPathObjectPtr obj = xmlXPathEvalExpression((const xmlChar*)"//img", xpath);
+  if (obj == NULL) goto err3;
+
+  for (int i = 0; i < obj->nodesetval->nodeNr; i++) {
+    xmlChar* prop = xmlGetProp(obj->nodesetval->nodeTab[i], (const xmlChar*)"src");
+    if (prop != NULL) {
+      if (strstr((const char*)prop, "rain-") != NULL) {
+        free(result);
+        result = strndup((const char*)prop + 2, 10);
+      }
+    }
+    xmlFree(prop);
+  }
+
+  xmlFreeDoc(doc);
+ err3:
+  xmlXPathFreeObject(obj);
+ err2:
+  xmlXPathFreeContext(xpath);
+ err1:
+  xmlFreeParserCtxt(ctx);
+ err0:
+  return result;
+}
+
+int main(int argc, char *argv[]) {
+  (void)argc;
+  (void)argv;
+  curl_global_init(CURL_GLOBAL_ALL);
+  xmlInitParser();
+  printf("Finding the forecast base... ");
+  fflush(stdout);
+  char* base = get_forecast_base();
+  if (base != NULL) {
+    printf("%s\n", base);
+    fetch_images(base);
+    free(base);
+  } else {
+    printf("error\n");
+  }
+  xmlCleanupParser();
+  curl_global_cleanup();
+  return 0;
+}

@@ 0,0 1,19 @@
+{ stdenv, curl, libxml2, pkgconfig }:
+
+stdenv.mkDerivation {
+  name = "metscrape";
+  src = ./.;
+
+  buildInputs = [ curl.dev libxml2.dev ];
+  nativeBuildInputs = [ pkgconfig ];
+
+  installPhase = "install -D -m 755 metscrape $out/bin/metscrape";
+
+  meta = with stdenv.lib; {
+    homepage = https://git.sr.ht/~jack/misc;
+    description = "Batch-download MetVUW forecasts";
+    license = licenses.agpl3Plus;
+    maintainers = [ maintainers.endgame ];
+    platforms = platforms.all;
+  };
+}

@@ 0,0 1,661 @@
+                    GNU AFFERO GENERAL PUBLIC LICENSE
+                       Version 3, 19 November 2007
+
+ Copyright (C) 2007 Free Software Foundation, Inc. <https://fsf.org/>
+ Everyone is permitted to copy and distribute verbatim copies
+ of this license document, but changing it is not allowed.
+
+                            Preamble
+
+  The GNU Affero General Public License is a free, copyleft license for
+software and other kinds of works, specifically designed to ensure
+cooperation with the community in the case of network server software.
+
+  The licenses for most software and other practical works are designed
+to take away your freedom to share and change the works.  By contrast,
+our General Public Licenses are 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.
+
+  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.
+
+  Developers that use our General Public Licenses protect your rights
+with two steps: (1) assert copyright on the software, and (2) offer
+you this License which gives you legal permission to copy, distribute
+and/or modify the software.
+
+  A secondary benefit of defending all users' freedom is that
+improvements made in alternate versions of the program, if they
+receive widespread use, become available for other developers to
+incorporate.  Many developers of free software are heartened and
+encouraged by the resulting cooperation.  However, in the case of
+software used on network servers, this result may fail to come about.
+The GNU General Public License permits making a modified version and
+letting the public access it on a server without ever releasing its
+source code to the public.
+
+  The GNU Affero General Public License is designed specifically to
+ensure that, in such cases, the modified source code becomes available
+to the community.  It requires the operator of a network server to
+provide the source code of the modified version running there to the
+users of that server.  Therefore, public use of a modified version, on
+a publicly accessible server, gives the public access to the source
+code of the modified version.
+
+  An older license, called the Affero General Public License and
+published by Affero, was designed to accomplish similar goals.  This is
+a different license, not a version of the Affero GPL, but Affero has
+released a new version of the Affero GPL which permits relicensing under
+this license.
+
+  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 Affero 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. Remote Network Interaction; Use with the GNU General Public License.
+
+  Notwithstanding any other provision of this License, if you modify the
+Program, your modified version must prominently offer all users
+interacting with it remotely through a computer network (if your version
+supports such interaction) an opportunity to receive the Corresponding
+Source of your version by providing access to the Corresponding Source
+from a network server at no charge, through some standard or customary
+means of facilitating copying of software.  This Corresponding Source
+shall include the Corresponding Source for any work covered by version 3
+of the GNU General Public License that is incorporated pursuant to the
+following paragraph.
+
+  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 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 work with which it is combined will remain governed by version
+3 of the GNU General Public License.
+
+  14. Revised Versions of this License.
+
+  The Free Software Foundation may publish revised and/or new versions of
+the GNU Affero 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 Affero 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 Affero 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 Affero 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.
+
+    <one line to give the program's name and a brief idea of what it does.>
+    Copyright (C) <year>  <name of author>
+
+    This program is free software: you can redistribute it and/or modify
+    it under the terms of the GNU Affero 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 Affero General Public License for more details.
+
+    You should have received a copy of the GNU Affero General Public License
+    along with this program.  If not, see <https://www.gnu.org/licenses/>.
+
+Also add information on how to contact you by electronic and paper mail.
+
+  If your software can interact with users remotely through a computer
+network, you should also make sure that it provides a way for users to
+get its source.  For example, if your program is a web application, its
+interface could display a "Source" link that leads users to an archive
+of the code.  There are many ways you could offer source, and different
+solutions will be better for different programs; see section 13 for the
+specific requirements.
+
+  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 AGPL, see
+<https://www.gnu.org/licenses/>.

@@ 0,0 1,2 @@
+An expansion of metscrape, written in haskell, that supports most of
+the forecasts that I'm interested in.

@@ 0,0 1,18 @@
+-- metscrape - bulk-download weather forecasts.
+-- Copyright (C) 2012  Jack Kelly <jack@jackkelly.name>
+--
+-- 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 <http://www.gnu.org/licenses/>.
+
+import Distribution.Simple
+main = defaultMain

@@ 0,0 1,15 @@
+{ nixpkgs ? import ../nix/nixpkgs.nix
+, compiler ? "default"
+, doBenchmark ? false
+}:
+
+let
+  inherit (nixpkgs) pkgs;
+
+  haskellPackages = if compiler == "default"
+    then pkgs.haskellPackages
+    else pkgs.haskell.packages.${compiler};
+
+  variant = if doBenchmark then pkgs.haskell.lib.doBenchmark else pkgs.lib.id;
+in
+  variant (haskellPackages.callPackage ./metscrape.nix {})

@@ 0,0 1,71 @@
+Cabal-Version:          >= 1.10
+
+Name:                   metscrape
+Version:                0.1.0.0
+Synopsis:               Batch-download marine weather forecasts
+Description:            Batch-download marine weather forecasts.
+Category:               Application
+License:                AGPL-3-or-later
+License-File:           COPYING
+Author:                 Jack Kelly
+Maintainer:             jack@jackkelly.name
+Build-Type:             Simple
+Homepage:               https://git.sr.ht/~jack/misc
+
+Library
+  Build-Depends:        base >= 4.12.0.0 && < 4.13,
+                        bytestring >= 0.10.8.2 && < 0.11,
+                        containers >= 0.6.0.1 && < 0.7,
+                        directory >= 1.3.3.0 && < 1.4,
+                        filepath >= 1.4.2.1 && < 1.5,
+                        HTTP >= 4000.3.14 && < 4000.4,
+                        hxt >= 9.3.1.18 && < 9.4,
+                        hxt-http >= 9.1.5.2 && < 9.2,
+                        network >= 2.8.0.1 && < 2.9,
+                        network-uri >= 2.6.1.0 && < 2.7
+
+  Exposed-Modules:      Menu,
+                        Scraper,
+                        Scrapers.BOM,
+                        Scrapers.BOMText,
+                        Scrapers.MetVUW,
+                        Text
+
+  HS-Source-Dirs:       src/lib
+  Default-Language:     Haskell2010
+  GHC-Options:          -Wall
+
+Executable MetscrapeAUS
+  Build-Depends:        base, metscrape
+  HS-Source-Dirs:       src/bin
+  Main-Is:              MetscrapeAUS.hs
+  Default-Language:     Haskell2010
+  GHC-Options:          -Wall -threaded
+
+Executable MetscrapeNSW
+  Build-Depends:        base, metscrape
+  HS-Source-Dirs:       src/bin
+  Main-Is:              MetscrapeNSW.hs
+  Default-Language:     Haskell2010
+  GHC-Options:          -Wall -threaded
+
+Executable MetscrapeVIC
+  Build-Depends:        base, metscrape
+  HS-Source-Dirs:       src/bin
+  Main-Is:              MetscrapeVIC.hs
+  Default-Language:     Haskell2010
+  GHC-Options:          -Wall -threaded
+
+Executable MetscrapeTAS
+  Build-Depends:        base, metscrape
+  HS-Source-Dirs:       src/bin
+  Main-Is:              MetscrapeTAS.hs
+  Default-Language:     Haskell2010
+  GHC-Options:          -Wall -threaded
+
+Executable MetscrapeNZ
+  Build-Depends:        base, metscrape
+  HS-Source-Dirs:       src/bin
+  Main-Is:              MetscrapeNZ.hs
+  Default-Language:     Haskell2010
+  GHC-Options:          -Wall -threaded

@@ 0,0 1,18 @@
+{ mkDerivation, base, bytestring, containers, directory, filepath
+, HTTP, hxt, hxt-http, network, network-uri, stdenv
+}:
+mkDerivation {
+  pname = "metscrape";
+  version = "0.1.0.0";
+  src = ./.;
+  isLibrary = true;
+  isExecutable = true;
+  libraryHaskellDepends = [
+    base bytestring containers directory filepath HTTP hxt hxt-http
+    network network-uri
+  ];
+  executableHaskellDepends = [ base ];
+  homepage = "https://git.sr.ht/~jack/misc";
+  description = "Batch-download marine weather forecasts";
+  license = stdenv.lib.licenses.agpl3Plus;
+}

@@ 0,0 1,13 @@
+{ nixpkgs ? import ../nix/nixpkgs.nix
+, compiler ? "default"
+, doBenchmark ? false
+}:
+let
+  inherit (nixpkgs) pkgs;
+  env = (import ./. { inherit nixpkgs compiler doBenchmark; }).env;
+in
+  env.overrideAttrs (oldAttrs: {
+    buildInputs = with pkgs.haskellPackages; oldAttrs.buildInputs ++ [
+      cabal-install cabal2nix ghcid
+    ];
+  })

@@ 0,0 1,30 @@
+-- metscrape - bulk-download weather forecasts.
+-- Copyright (C) 2013  Jack Kelly <jack@jackkelly.name>
+--
+-- This program is free software: you can redistribute it and/or modify
+-- it under the terms of the GNU Affero 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 Affero General Public License for more details.
+--
+-- You should have received a copy of the GNU Affero General Public License
+-- along with this program.  If not, see <https://www.gnu.org/licenses/>.
+
+import Menu
+import Scrapers.BOM as BOM
+import Scrapers.MetVUW as MetVUW
+
+main :: IO ()
+main = run [
+        ("[BOM] Mean Sea Level Pressure", BOM.scrapeMSLPP),
+        ("[BOM] Surface Pressure/Rainfall", BOM.scrapeSurfacePressureRainfall),
+        ("[MetVUW] SE Australia Winds",
+         MetVUW.scrapeMetVUW "seaussie" "Weather/MetVUW/SEAUS/Wind-%03d.gif"),
+        ("[BOM] SE Australia Sea And Swell",
+         scrapeInteractiveWeather "IDY30223" "sigWaveHgt"
+                                      "Weather/SeaAndSwell%03d.png")
+       ]

@@ 0,0 1,65 @@
+-- metscrape - bulk-download weather forecasts.
+-- Copyright (C) 2013  Jack Kelly <jack@jackkelly.name>
+--
+-- This program is free software: you can redistribute it and/or modify
+-- it under the terms of the GNU Affero 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 Affero General Public License for more details.
+--
+-- You should have received a copy of the GNU Affero General Public License
+-- along with this program.  If not, see <https://www.gnu.org/licenses/>.
+
+import Menu
+import Scraper
+import Scrapers.BOM
+import Scrapers.BOMText
+
+to :: String -> FilePath -> Scraper
+url `to` path = Munge url transformXml $ "Weather/NSW/" ++ path
+
+main :: IO ()
+main = run [
+        ("[BOM] NSW Winds",
+         scrapeMarineWind "nsw" "Weather/NSW/Wind%02d.png"),
+
+        ("[BOMText] Byron Coast",
+         "http://www.bom.gov.au/nsw/forecasts/byroncoast.shtml"
+         `to` "ByronCoast.txt"),
+
+        ("[BOMText] Coffs Coast",
+         "http://www.bom.gov.au/nsw/forecasts/coffscoast.shtml"
+         `to` "CoffsCoast.txt"),
+
+        ("[BOMText] Macquarie Coast",
+         "http://www.bom.gov.au/nsw/forecasts/macquariecoast.shtml"
+         `to` "MacquarieCoast.txt"),
+
+        ("[BOMText] Hunter Coast",
+         "http://www.bom.gov.au/nsw/forecasts/huntercoast.shtml"
+         `to` "HunterCoast.txt"),
+
+        ("[BOMText] Sydney Coast",
+         "http://www.bom.gov.au/nsw/forecasts/sydneycoast.shtml"
+         `to` "SydneyCoast.txt"),
+
+        ("[BOMText] Sydney Closed Waters",
+         "http://www.bom.gov.au/nsw/forecasts/sydneywaters.shtml"
+         `to` "SydneyClosedWaters.txt"),
+
+        ("[BOMText] Illawarra Coast",
+         "http://www.bom.gov.au/nsw/forecasts/illawarracoast.shtml"
+         `to` "IllawarraCoast.txt"),
+
+        ("[BOMText] Batemans Coast",
+         "http://www.bom.gov.au/nsw/forecasts/batemanscoast.shtml"
+         `to` "BatemansCoast.txt"),
+
+        ("[BOMText] Eden Coast",
+         "http://www.bom.gov.au/nsw/forecasts/edencoast.shtml"
+         `to` "EdenCoast.txt")
+       ]