├── .gitignore ├── screenshot-org-agenda.png ├── screenshot-calendar-moonrise-moonset.png ├── screenshot-calendar-moonrise-moonset-month.png ├── README.org ├── LICENSE └── moonrise.el /.gitignore: -------------------------------------------------------------------------------- 1 | *~ 2 | *.elc 3 | -------------------------------------------------------------------------------- /screenshot-org-agenda.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/misohena/moonrise-el/master/screenshot-org-agenda.png -------------------------------------------------------------------------------- /screenshot-calendar-moonrise-moonset.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/misohena/moonrise-el/master/screenshot-calendar-moonrise-moonset.png -------------------------------------------------------------------------------- /screenshot-calendar-moonrise-moonset-month.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/misohena/moonrise-el/master/screenshot-calendar-moonrise-moonset-month.png -------------------------------------------------------------------------------- /README.org: -------------------------------------------------------------------------------- 1 | #+TITLE: Moonrise/Moonset Calculation for Emacs 2 | 3 | * Usage 4 | 5 | 1. Add the following to your init.el: 6 | 7 | #+begin_src emacs-lisp 8 | (with-eval-after-load "calendar" 9 | (require 'moonrise) 10 | (define-key calendar-mode-map "Ld" 'calendar-moonrise-moonset) 11 | (define-key calendar-mode-map "Lm" 'calendar-moonrise-moonset-month)) 12 | #+end_src 13 | 14 | 2. M-x calendar 15 | 16 | 3. Type L d 17 | 18 | [[file:./screenshot-calendar-moonrise-moonset.png]] 19 | 20 | 4. Type L m 21 | 22 | [[file:./screenshot-calendar-moonrise-moonset-month.png]] 23 | 24 | 25 | * Add moonrise/moonset events to org-agenda 26 | 27 | Add the following line to an agenda file: 28 | 29 | #+begin_src org 30 | ,#+CATEGORY: Astro 31 | ,* Moonrise 32 | %%(moonrise-org-agenda) 33 | #+end_src 34 | 35 | [[file:./screenshot-org-agenda.png]] 36 | 37 | 38 | -------------------------------------------------------------------------------- /LICENSE: -------------------------------------------------------------------------------- 1 | GNU GENERAL PUBLIC LICENSE 2 | Version 3, 29 June 2007 3 | 4 | Copyright (C) 2007 Free Software Foundation, Inc. 5 | Everyone is permitted to copy and distribute verbatim copies 6 | of this license document, but changing it is not allowed. 7 | 8 | Preamble 9 | 10 | The GNU General Public License is a free, copyleft license for 11 | software and other kinds of works. 12 | 13 | The licenses for most software and other practical works are designed 14 | to take away your freedom to share and change the works. By contrast, 15 | the GNU General Public License is intended to guarantee your freedom to 16 | share and change all versions of a program--to make sure it remains free 17 | software for all its users. We, the Free Software Foundation, use the 18 | GNU General Public License for most of our software; it applies also to 19 | any other work released this way by its authors. You can apply it to 20 | your programs, too. 21 | 22 | When we speak of free software, we are referring to freedom, not 23 | price. Our General Public Licenses are designed to make sure that you 24 | have the freedom to distribute copies of free software (and charge for 25 | them if you wish), that you receive source code or can get it if you 26 | want it, that you can change the software or use pieces of it in new 27 | free programs, and that you know you can do these things. 28 | 29 | To protect your rights, we need to prevent others from denying you 30 | these rights or asking you to surrender the rights. Therefore, you have 31 | certain responsibilities if you distribute copies of the software, or if 32 | you modify it: responsibilities to respect the freedom of others. 33 | 34 | For example, if you distribute copies of such a program, whether 35 | gratis or for a fee, you must pass on to the recipients the same 36 | freedoms that you received. You must make sure that they, too, receive 37 | or can get the source code. And you must show them these terms so they 38 | know their rights. 39 | 40 | Developers that use the GNU GPL protect your rights with two steps: 41 | (1) assert copyright on the software, and (2) offer you this License 42 | giving you legal permission to copy, distribute and/or modify it. 43 | 44 | For the developers' and authors' protection, the GPL clearly explains 45 | that there is no warranty for this free software. For both users' and 46 | authors' sake, the GPL requires that modified versions be marked as 47 | changed, so that their problems will not be attributed erroneously to 48 | authors of previous versions. 49 | 50 | Some devices are designed to deny users access to install or run 51 | modified versions of the software inside them, although the manufacturer 52 | can do so. This is fundamentally incompatible with the aim of 53 | protecting users' freedom to change the software. The systematic 54 | pattern of such abuse occurs in the area of products for individuals to 55 | use, which is precisely where it is most unacceptable. Therefore, we 56 | have designed this version of the GPL to prohibit the practice for those 57 | products. If such problems arise substantially in other domains, we 58 | stand ready to extend this provision to those domains in future versions 59 | of the GPL, as needed to protect the freedom of users. 60 | 61 | Finally, every program is threatened constantly by software patents. 62 | States should not allow patents to restrict development and use of 63 | software on general-purpose computers, but in those that do, we wish to 64 | avoid the special danger that patents applied to a free program could 65 | make it effectively proprietary. To prevent this, the GPL assures that 66 | patents cannot be used to render the program non-free. 67 | 68 | The precise terms and conditions for copying, distribution and 69 | modification follow. 70 | 71 | TERMS AND CONDITIONS 72 | 73 | 0. Definitions. 74 | 75 | "This License" refers to version 3 of the GNU General Public License. 76 | 77 | "Copyright" also means copyright-like laws that apply to other kinds of 78 | works, such as semiconductor masks. 79 | 80 | "The Program" refers to any copyrightable work licensed under this 81 | License. Each licensee is addressed as "you". "Licensees" and 82 | "recipients" may be individuals or organizations. 83 | 84 | To "modify" a work means to copy from or adapt all or part of the work 85 | in a fashion requiring copyright permission, other than the making of an 86 | exact copy. The resulting work is called a "modified version" of the 87 | earlier work or a work "based on" the earlier work. 88 | 89 | A "covered work" means either the unmodified Program or a work based 90 | on the Program. 91 | 92 | To "propagate" a work means to do anything with it that, without 93 | permission, would make you directly or secondarily liable for 94 | infringement under applicable copyright law, except executing it on a 95 | computer or modifying a private copy. Propagation includes copying, 96 | distribution (with or without modification), making available to the 97 | public, and in some countries other activities as well. 98 | 99 | To "convey" a work means any kind of propagation that enables other 100 | parties to make or receive copies. Mere interaction with a user through 101 | a computer network, with no transfer of a copy, is not conveying. 102 | 103 | An interactive user interface displays "Appropriate Legal Notices" 104 | to the extent that it includes a convenient and prominently visible 105 | feature that (1) displays an appropriate copyright notice, and (2) 106 | tells the user that there is no warranty for the work (except to the 107 | extent that warranties are provided), that licensees may convey the 108 | work under this License, and how to view a copy of this License. If 109 | the interface presents a list of user commands or options, such as a 110 | menu, a prominent item in the list meets this criterion. 111 | 112 | 1. Source Code. 113 | 114 | The "source code" for a work means the preferred form of the work 115 | for making modifications to it. "Object code" means any non-source 116 | form of a work. 117 | 118 | A "Standard Interface" means an interface that either is an official 119 | standard defined by a recognized standards body, or, in the case of 120 | interfaces specified for a particular programming language, one that 121 | is widely used among developers working in that language. 122 | 123 | The "System Libraries" of an executable work include anything, other 124 | than the work as a whole, that (a) is included in the normal form of 125 | packaging a Major Component, but which is not part of that Major 126 | Component, and (b) serves only to enable use of the work with that 127 | Major Component, or to implement a Standard Interface for which an 128 | implementation is available to the public in source code form. A 129 | "Major Component", in this context, means a major essential component 130 | (kernel, window system, and so on) of the specific operating system 131 | (if any) on which the executable work runs, or a compiler used to 132 | produce the work, or an object code interpreter used to run it. 133 | 134 | The "Corresponding Source" for a work in object code form means all 135 | the source code needed to generate, install, and (for an executable 136 | work) run the object code and to modify the work, including scripts to 137 | control those activities. However, it does not include the work's 138 | System Libraries, or general-purpose tools or generally available free 139 | programs which are used unmodified in performing those activities but 140 | which are not part of the work. For example, Corresponding Source 141 | includes interface definition files associated with source files for 142 | the work, and the source code for shared libraries and dynamically 143 | linked subprograms that the work is specifically designed to require, 144 | such as by intimate data communication or control flow between those 145 | subprograms and other parts of the work. 146 | 147 | The Corresponding Source need not include anything that users 148 | can regenerate automatically from other parts of the Corresponding 149 | Source. 150 | 151 | The Corresponding Source for a work in source code form is that 152 | same work. 153 | 154 | 2. Basic Permissions. 155 | 156 | All rights granted under this License are granted for the term of 157 | copyright on the Program, and are irrevocable provided the stated 158 | conditions are met. This License explicitly affirms your unlimited 159 | permission to run the unmodified Program. The output from running a 160 | covered work is covered by this License only if the output, given its 161 | content, constitutes a covered work. This License acknowledges your 162 | rights of fair use or other equivalent, as provided by copyright law. 163 | 164 | You may make, run and propagate covered works that you do not 165 | convey, without conditions so long as your license otherwise remains 166 | in force. You may convey covered works to others for the sole purpose 167 | of having them make modifications exclusively for you, or provide you 168 | with facilities for running those works, provided that you comply with 169 | the terms of this License in conveying all material for which you do 170 | not control copyright. Those thus making or running the covered works 171 | for you must do so exclusively on your behalf, under your direction 172 | and control, on terms that prohibit them from making any copies of 173 | your copyrighted material outside their relationship with you. 174 | 175 | Conveying under any other circumstances is permitted solely under 176 | the conditions stated below. Sublicensing is not allowed; section 10 177 | makes it unnecessary. 178 | 179 | 3. Protecting Users' Legal Rights From Anti-Circumvention Law. 180 | 181 | No covered work shall be deemed part of an effective technological 182 | measure under any applicable law fulfilling obligations under article 183 | 11 of the WIPO copyright treaty adopted on 20 December 1996, or 184 | similar laws prohibiting or restricting circumvention of such 185 | measures. 186 | 187 | When you convey a covered work, you waive any legal power to forbid 188 | circumvention of technological measures to the extent such circumvention 189 | is effected by exercising rights under this License with respect to 190 | the covered work, and you disclaim any intention to limit operation or 191 | modification of the work as a means of enforcing, against the work's 192 | users, your or third parties' legal rights to forbid circumvention of 193 | technological measures. 194 | 195 | 4. Conveying Verbatim Copies. 196 | 197 | You may convey verbatim copies of the Program's source code as you 198 | receive it, in any medium, provided that you conspicuously and 199 | appropriately publish on each copy an appropriate copyright notice; 200 | keep intact all notices stating that this License and any 201 | non-permissive terms added in accord with section 7 apply to the code; 202 | keep intact all notices of the absence of any warranty; and give all 203 | recipients a copy of this License along with the Program. 204 | 205 | You may charge any price or no price for each copy that you convey, 206 | and you may offer support or warranty protection for a fee. 207 | 208 | 5. Conveying Modified Source Versions. 209 | 210 | You may convey a work based on the Program, or the modifications to 211 | produce it from the Program, in the form of source code under the 212 | terms of section 4, provided that you also meet all of these conditions: 213 | 214 | a) The work must carry prominent notices stating that you modified 215 | it, and giving a relevant date. 216 | 217 | b) The work must carry prominent notices stating that it is 218 | released under this License and any conditions added under section 219 | 7. This requirement modifies the requirement in section 4 to 220 | "keep intact all notices". 221 | 222 | c) You must license the entire work, as a whole, under this 223 | License to anyone who comes into possession of a copy. This 224 | License will therefore apply, along with any applicable section 7 225 | additional terms, to the whole of the work, and all its parts, 226 | regardless of how they are packaged. This License gives no 227 | permission to license the work in any other way, but it does not 228 | invalidate such permission if you have separately received it. 229 | 230 | d) If the work has interactive user interfaces, each must display 231 | Appropriate Legal Notices; however, if the Program has interactive 232 | interfaces that do not display Appropriate Legal Notices, your 233 | work need not make them do so. 234 | 235 | A compilation of a covered work with other separate and independent 236 | works, which are not by their nature extensions of the covered work, 237 | and which are not combined with it such as to form a larger program, 238 | in or on a volume of a storage or distribution medium, is called an 239 | "aggregate" if the compilation and its resulting copyright are not 240 | used to limit the access or legal rights of the compilation's users 241 | beyond what the individual works permit. Inclusion of a covered work 242 | in an aggregate does not cause this License to apply to the other 243 | parts of the aggregate. 244 | 245 | 6. Conveying Non-Source Forms. 246 | 247 | You may convey a covered work in object code form under the terms 248 | of sections 4 and 5, provided that you also convey the 249 | machine-readable Corresponding Source under the terms of this License, 250 | in one of these ways: 251 | 252 | a) Convey the object code in, or embodied in, a physical product 253 | (including a physical distribution medium), accompanied by the 254 | Corresponding Source fixed on a durable physical medium 255 | customarily used for software interchange. 256 | 257 | b) Convey the object code in, or embodied in, a physical product 258 | (including a physical distribution medium), accompanied by a 259 | written offer, valid for at least three years and valid for as 260 | long as you offer spare parts or customer support for that product 261 | model, to give anyone who possesses the object code either (1) a 262 | copy of the Corresponding Source for all the software in the 263 | product that is covered by this License, on a durable physical 264 | medium customarily used for software interchange, for a price no 265 | more than your reasonable cost of physically performing this 266 | conveying of source, or (2) access to copy the 267 | Corresponding Source from a network server at no charge. 268 | 269 | c) Convey individual copies of the object code with a copy of the 270 | written offer to provide the Corresponding Source. This 271 | alternative is allowed only occasionally and noncommercially, and 272 | only if you received the object code with such an offer, in accord 273 | with subsection 6b. 274 | 275 | d) Convey the object code by offering access from a designated 276 | place (gratis or for a charge), and offer equivalent access to the 277 | Corresponding Source in the same way through the same place at no 278 | further charge. You need not require recipients to copy the 279 | Corresponding Source along with the object code. If the place to 280 | copy the object code is a network server, the Corresponding Source 281 | may be on a different server (operated by you or a third party) 282 | that supports equivalent copying facilities, provided you maintain 283 | clear directions next to the object code saying where to find the 284 | Corresponding Source. Regardless of what server hosts the 285 | Corresponding Source, you remain obligated to ensure that it is 286 | available for as long as needed to satisfy these requirements. 287 | 288 | e) Convey the object code using peer-to-peer transmission, provided 289 | you inform other peers where the object code and Corresponding 290 | Source of the work are being offered to the general public at no 291 | charge under subsection 6d. 292 | 293 | A separable portion of the object code, whose source code is excluded 294 | from the Corresponding Source as a System Library, need not be 295 | included in conveying the object code work. 296 | 297 | A "User Product" is either (1) a "consumer product", which means any 298 | tangible personal property which is normally used for personal, family, 299 | or household purposes, or (2) anything designed or sold for incorporation 300 | into a dwelling. In determining whether a product is a consumer product, 301 | doubtful cases shall be resolved in favor of coverage. For a particular 302 | product received by a particular user, "normally used" refers to a 303 | typical or common use of that class of product, regardless of the status 304 | of the particular user or of the way in which the particular user 305 | actually uses, or expects or is expected to use, the product. A product 306 | is a consumer product regardless of whether the product has substantial 307 | commercial, industrial or non-consumer uses, unless such uses represent 308 | the only significant mode of use of the product. 309 | 310 | "Installation Information" for a User Product means any methods, 311 | procedures, authorization keys, or other information required to install 312 | and execute modified versions of a covered work in that User Product from 313 | a modified version of its Corresponding Source. The information must 314 | suffice to ensure that the continued functioning of the modified object 315 | code is in no case prevented or interfered with solely because 316 | modification has been made. 317 | 318 | If you convey an object code work under this section in, or with, or 319 | specifically for use in, a User Product, and the conveying occurs as 320 | part of a transaction in which the right of possession and use of the 321 | User Product is transferred to the recipient in perpetuity or for a 322 | fixed term (regardless of how the transaction is characterized), the 323 | Corresponding Source conveyed under this section must be accompanied 324 | by the Installation Information. But this requirement does not apply 325 | if neither you nor any third party retains the ability to install 326 | modified object code on the User Product (for example, the work has 327 | been installed in ROM). 328 | 329 | The requirement to provide Installation Information does not include a 330 | requirement to continue to provide support service, warranty, or updates 331 | for a work that has been modified or installed by the recipient, or for 332 | the User Product in which it has been modified or installed. Access to a 333 | network may be denied when the modification itself materially and 334 | adversely affects the operation of the network or violates the rules and 335 | protocols for communication across the network. 336 | 337 | Corresponding Source conveyed, and Installation Information provided, 338 | in accord with this section must be in a format that is publicly 339 | documented (and with an implementation available to the public in 340 | source code form), and must require no special password or key for 341 | unpacking, reading or copying. 342 | 343 | 7. Additional Terms. 344 | 345 | "Additional permissions" are terms that supplement the terms of this 346 | License by making exceptions from one or more of its conditions. 347 | Additional permissions that are applicable to the entire Program shall 348 | be treated as though they were included in this License, to the extent 349 | that they are valid under applicable law. If additional permissions 350 | apply only to part of the Program, that part may be used separately 351 | under those permissions, but the entire Program remains governed by 352 | this License without regard to the additional permissions. 353 | 354 | When you convey a copy of a covered work, you may at your option 355 | remove any additional permissions from that copy, or from any part of 356 | it. (Additional permissions may be written to require their own 357 | removal in certain cases when you modify the work.) You may place 358 | additional permissions on material, added by you to a covered work, 359 | for which you have or can give appropriate copyright permission. 360 | 361 | Notwithstanding any other provision of this License, for material you 362 | add to a covered work, you may (if authorized by the copyright holders of 363 | that material) supplement the terms of this License with terms: 364 | 365 | a) Disclaiming warranty or limiting liability differently from the 366 | terms of sections 15 and 16 of this License; or 367 | 368 | b) Requiring preservation of specified reasonable legal notices or 369 | author attributions in that material or in the Appropriate Legal 370 | Notices displayed by works containing it; or 371 | 372 | c) Prohibiting misrepresentation of the origin of that material, or 373 | requiring that modified versions of such material be marked in 374 | reasonable ways as different from the original version; or 375 | 376 | d) Limiting the use for publicity purposes of names of licensors or 377 | authors of the material; or 378 | 379 | e) Declining to grant rights under trademark law for use of some 380 | trade names, trademarks, or service marks; or 381 | 382 | f) Requiring indemnification of licensors and authors of that 383 | material by anyone who conveys the material (or modified versions of 384 | it) with contractual assumptions of liability to the recipient, for 385 | any liability that these contractual assumptions directly impose on 386 | those licensors and authors. 387 | 388 | All other non-permissive additional terms are considered "further 389 | restrictions" within the meaning of section 10. If the Program as you 390 | received it, or any part of it, contains a notice stating that it is 391 | governed by this License along with a term that is a further 392 | restriction, you may remove that term. If a license document contains 393 | a further restriction but permits relicensing or conveying under this 394 | License, you may add to a covered work material governed by the terms 395 | of that license document, provided that the further restriction does 396 | not survive such relicensing or conveying. 397 | 398 | If you add terms to a covered work in accord with this section, you 399 | must place, in the relevant source files, a statement of the 400 | additional terms that apply to those files, or a notice indicating 401 | where to find the applicable terms. 402 | 403 | Additional terms, permissive or non-permissive, may be stated in the 404 | form of a separately written license, or stated as exceptions; 405 | the above requirements apply either way. 406 | 407 | 8. Termination. 408 | 409 | You may not propagate or modify a covered work except as expressly 410 | provided under this License. Any attempt otherwise to propagate or 411 | modify it is void, and will automatically terminate your rights under 412 | this License (including any patent licenses granted under the third 413 | paragraph of section 11). 414 | 415 | However, if you cease all violation of this License, then your 416 | license from a particular copyright holder is reinstated (a) 417 | provisionally, unless and until the copyright holder explicitly and 418 | finally terminates your license, and (b) permanently, if the copyright 419 | holder fails to notify you of the violation by some reasonable means 420 | prior to 60 days after the cessation. 421 | 422 | Moreover, your license from a particular copyright holder is 423 | reinstated permanently if the copyright holder notifies you of the 424 | violation by some reasonable means, this is the first time you have 425 | received notice of violation of this License (for any work) from that 426 | copyright holder, and you cure the violation prior to 30 days after 427 | your receipt of the notice. 428 | 429 | Termination of your rights under this section does not terminate the 430 | licenses of parties who have received copies or rights from you under 431 | this License. If your rights have been terminated and not permanently 432 | reinstated, you do not qualify to receive new licenses for the same 433 | material under section 10. 434 | 435 | 9. Acceptance Not Required for Having Copies. 436 | 437 | You are not required to accept this License in order to receive or 438 | run a copy of the Program. Ancillary propagation of a covered work 439 | occurring solely as a consequence of using peer-to-peer transmission 440 | to receive a copy likewise does not require acceptance. However, 441 | nothing other than this License grants you permission to propagate or 442 | modify any covered work. These actions infringe copyright if you do 443 | not accept this License. Therefore, by modifying or propagating a 444 | covered work, you indicate your acceptance of this License to do so. 445 | 446 | 10. Automatic Licensing of Downstream Recipients. 447 | 448 | Each time you convey a covered work, the recipient automatically 449 | receives a license from the original licensors, to run, modify and 450 | propagate that work, subject to this License. You are not responsible 451 | for enforcing compliance by third parties with this License. 452 | 453 | An "entity transaction" is a transaction transferring control of an 454 | organization, or substantially all assets of one, or subdividing an 455 | organization, or merging organizations. If propagation of a covered 456 | work results from an entity transaction, each party to that 457 | transaction who receives a copy of the work also receives whatever 458 | licenses to the work the party's predecessor in interest had or could 459 | give under the previous paragraph, plus a right to possession of the 460 | Corresponding Source of the work from the predecessor in interest, if 461 | the predecessor has it or can get it with reasonable efforts. 462 | 463 | You may not impose any further restrictions on the exercise of the 464 | rights granted or affirmed under this License. For example, you may 465 | not impose a license fee, royalty, or other charge for exercise of 466 | rights granted under this License, and you may not initiate litigation 467 | (including a cross-claim or counterclaim in a lawsuit) alleging that 468 | any patent claim is infringed by making, using, selling, offering for 469 | sale, or importing the Program or any portion of it. 470 | 471 | 11. Patents. 472 | 473 | A "contributor" is a copyright holder who authorizes use under this 474 | License of the Program or a work on which the Program is based. The 475 | work thus licensed is called the contributor's "contributor version". 476 | 477 | A contributor's "essential patent claims" are all patent claims 478 | owned or controlled by the contributor, whether already acquired or 479 | hereafter acquired, that would be infringed by some manner, permitted 480 | by this License, of making, using, or selling its contributor version, 481 | but do not include claims that would be infringed only as a 482 | consequence of further modification of the contributor version. For 483 | purposes of this definition, "control" includes the right to grant 484 | patent sublicenses in a manner consistent with the requirements of 485 | this License. 486 | 487 | Each contributor grants you a non-exclusive, worldwide, royalty-free 488 | patent license under the contributor's essential patent claims, to 489 | make, use, sell, offer for sale, import and otherwise run, modify and 490 | propagate the contents of its contributor version. 491 | 492 | In the following three paragraphs, a "patent license" is any express 493 | agreement or commitment, however denominated, not to enforce a patent 494 | (such as an express permission to practice a patent or covenant not to 495 | sue for patent infringement). To "grant" such a patent license to a 496 | party means to make such an agreement or commitment not to enforce a 497 | patent against the party. 498 | 499 | If you convey a covered work, knowingly relying on a patent license, 500 | and the Corresponding Source of the work is not available for anyone 501 | to copy, free of charge and under the terms of this License, through a 502 | publicly available network server or other readily accessible means, 503 | then you must either (1) cause the Corresponding Source to be so 504 | available, or (2) arrange to deprive yourself of the benefit of the 505 | patent license for this particular work, or (3) arrange, in a manner 506 | consistent with the requirements of this License, to extend the patent 507 | license to downstream recipients. "Knowingly relying" means you have 508 | actual knowledge that, but for the patent license, your conveying the 509 | covered work in a country, or your recipient's use of the covered work 510 | in a country, would infringe one or more identifiable patents in that 511 | country that you have reason to believe are valid. 512 | 513 | If, pursuant to or in connection with a single transaction or 514 | arrangement, you convey, or propagate by procuring conveyance of, a 515 | covered work, and grant a patent license to some of the parties 516 | receiving the covered work authorizing them to use, propagate, modify 517 | or convey a specific copy of the covered work, then the patent license 518 | you grant is automatically extended to all recipients of the covered 519 | work and works based on it. 520 | 521 | A patent license is "discriminatory" if it does not include within 522 | the scope of its coverage, prohibits the exercise of, or is 523 | conditioned on the non-exercise of one or more of the rights that are 524 | specifically granted under this License. You may not convey a covered 525 | work if you are a party to an arrangement with a third party that is 526 | in the business of distributing software, under which you make payment 527 | to the third party based on the extent of your activity of conveying 528 | the work, and under which the third party grants, to any of the 529 | parties who would receive the covered work from you, a discriminatory 530 | patent license (a) in connection with copies of the covered work 531 | conveyed by you (or copies made from those copies), or (b) primarily 532 | for and in connection with specific products or compilations that 533 | contain the covered work, unless you entered into that arrangement, 534 | or that patent license was granted, prior to 28 March 2007. 535 | 536 | Nothing in this License shall be construed as excluding or limiting 537 | any implied license or other defenses to infringement that may 538 | otherwise be available to you under applicable patent law. 539 | 540 | 12. No Surrender of Others' Freedom. 541 | 542 | If conditions are imposed on you (whether by court order, agreement or 543 | otherwise) that contradict the conditions of this License, they do not 544 | excuse you from the conditions of this License. If you cannot convey a 545 | covered work so as to satisfy simultaneously your obligations under this 546 | License and any other pertinent obligations, then as a consequence you may 547 | not convey it at all. For example, if you agree to terms that obligate you 548 | to collect a royalty for further conveying from those to whom you convey 549 | the Program, the only way you could satisfy both those terms and this 550 | License would be to refrain entirely from conveying the Program. 551 | 552 | 13. Use with the GNU Affero General Public License. 553 | 554 | Notwithstanding any other provision of this License, you have 555 | permission to link or combine any covered work with a work licensed 556 | under version 3 of the GNU Affero General Public License into a single 557 | combined work, and to convey the resulting work. The terms of this 558 | License will continue to apply to the part which is the covered work, 559 | but the special requirements of the GNU Affero General Public License, 560 | section 13, concerning interaction through a network will apply to the 561 | combination as such. 562 | 563 | 14. Revised Versions of this License. 564 | 565 | The Free Software Foundation may publish revised and/or new versions of 566 | the GNU General Public License from time to time. Such new versions will 567 | be similar in spirit to the present version, but may differ in detail to 568 | address new problems or concerns. 569 | 570 | Each version is given a distinguishing version number. If the 571 | Program specifies that a certain numbered version of the GNU General 572 | Public License "or any later version" applies to it, you have the 573 | option of following the terms and conditions either of that numbered 574 | version or of any later version published by the Free Software 575 | Foundation. If the Program does not specify a version number of the 576 | GNU General Public License, you may choose any version ever published 577 | by the Free Software Foundation. 578 | 579 | If the Program specifies that a proxy can decide which future 580 | versions of the GNU General Public License can be used, that proxy's 581 | public statement of acceptance of a version permanently authorizes you 582 | to choose that version for the Program. 583 | 584 | Later license versions may give you additional or different 585 | permissions. However, no additional obligations are imposed on any 586 | author or copyright holder as a result of your choosing to follow a 587 | later version. 588 | 589 | 15. Disclaimer of Warranty. 590 | 591 | THERE IS NO WARRANTY FOR THE PROGRAM, TO THE EXTENT PERMITTED BY 592 | APPLICABLE LAW. EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT 593 | HOLDERS AND/OR OTHER PARTIES PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY 594 | OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, 595 | THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR 596 | PURPOSE. THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE PROGRAM 597 | IS WITH YOU. SHOULD THE PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF 598 | ALL NECESSARY SERVICING, REPAIR OR CORRECTION. 599 | 600 | 16. Limitation of Liability. 601 | 602 | IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING 603 | WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MODIFIES AND/OR CONVEYS 604 | THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY 605 | GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE 606 | USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED TO LOSS OF 607 | DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD 608 | PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER PROGRAMS), 609 | EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF 610 | SUCH DAMAGES. 611 | 612 | 17. Interpretation of Sections 15 and 16. 613 | 614 | If the disclaimer of warranty and limitation of liability provided 615 | above cannot be given local legal effect according to their terms, 616 | reviewing courts shall apply local law that most closely approximates 617 | an absolute waiver of all civil liability in connection with the 618 | Program, unless a warranty or assumption of liability accompanies a 619 | copy of the Program in return for a fee. 620 | 621 | END OF TERMS AND CONDITIONS 622 | 623 | How to Apply These Terms to Your New Programs 624 | 625 | If you develop a new program, and you want it to be of the greatest 626 | possible use to the public, the best way to achieve this is to make it 627 | free software which everyone can redistribute and change under these terms. 628 | 629 | To do so, attach the following notices to the program. It is safest 630 | to attach them to the start of each source file to most effectively 631 | state the exclusion of warranty; and each file should have at least 632 | the "copyright" line and a pointer to where the full notice is found. 633 | 634 | 635 | Copyright (C) 636 | 637 | This program is free software: you can redistribute it and/or modify 638 | it under the terms of the GNU General Public License as published by 639 | the Free Software Foundation, either version 3 of the License, or 640 | (at your option) any later version. 641 | 642 | This program is distributed in the hope that it will be useful, 643 | but WITHOUT ANY WARRANTY; without even the implied warranty of 644 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 645 | GNU General Public License for more details. 646 | 647 | You should have received a copy of the GNU General Public License 648 | along with this program. If not, see . 649 | 650 | Also add information on how to contact you by electronic and paper mail. 651 | 652 | If the program does terminal interaction, make it output a short 653 | notice like this when it starts in an interactive mode: 654 | 655 | Copyright (C) 656 | This program comes with ABSOLUTELY NO WARRANTY; for details type `show w'. 657 | This is free software, and you are welcome to redistribute it 658 | under certain conditions; type `show c' for details. 659 | 660 | The hypothetical commands `show w' and `show c' should show the appropriate 661 | parts of the General Public License. Of course, your program's commands 662 | might be different; for a GUI interface, you would use an "about box". 663 | 664 | You should also get your employer (if you work as a programmer) or school, 665 | if any, to sign a "copyright disclaimer" for the program, if necessary. 666 | For more information on this, and how to apply and follow the GNU GPL, see 667 | . 668 | 669 | The GNU General Public License does not permit incorporating your program 670 | into proprietary programs. If your program is a subroutine library, you 671 | may consider it more useful to permit linking proprietary applications with 672 | the library. If this is what you want to do, use the GNU Lesser General 673 | Public License instead of this License. But first, please read 674 | . 675 | -------------------------------------------------------------------------------- /moonrise.el: -------------------------------------------------------------------------------- 1 | ;;; moonrise.el --- calculate moonrise/moonset -*- lexical-binding: t; -*- 2 | 3 | ;; Copyright (C) 2020 AKIYAMA Kouhei 4 | 5 | ;; Author: AKIYAMA Kouhei 6 | ;; Keywords: calendar 7 | ;; Human-Keywords: moonrise, moonset, moon, lunar phases, calendar, diary, org 8 | 9 | ;; This program is free software; you can redistribute it and/or modify 10 | ;; it under the terms of the GNU General Public License as published by 11 | ;; the Free Software Foundation, either version 3 of the License, or 12 | ;; (at your option) any later version. 13 | 14 | ;; This program is distributed in the hope that it will be useful, 15 | ;; but WITHOUT ANY WARRANTY; without even the implied warranty of 16 | ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 17 | ;; GNU General Public License for more details. 18 | 19 | ;; You should have received a copy of the GNU General Public License 20 | ;; along with this program. If not, see . 21 | 22 | ;;; Commentary: 23 | 24 | ;; 25 | 26 | ;;; References: 27 | 28 | ;; [長沢99] 長沢 工. 日の出・日の入りの計算. 地人書館, 1999, ISBN978-4805206348 29 | 30 | ;;; Code: 31 | 32 | (require 'solar) 33 | (require 'svg) 34 | 35 | ;;;; Customization 36 | 37 | (defgroup moonrise nil 38 | "Moonrise/moonset calculation." 39 | :tag "Moonrise" 40 | :prefix "moonrise-" 41 | :group 'calendar) 42 | 43 | (defcustom moonrise-point-name-alist 44 | '((rise . "Moonrise") 45 | (set . "Moonset") 46 | (meridian . "Moon's Meridian Passing")) 47 | "Alist of moon passage points and their display names." 48 | :type '(alist 49 | :key-type (choice :tag "Key" 50 | (const rise) (const meridian) (const set) symbol) 51 | :value-type (string :tag "Value")) 52 | :group 'moonrise) 53 | 54 | (define-obsolete-variable-alias 55 | 'moonrise-display-points 56 | 'moonrise-day-events-format 57 | "2025-11-02") 58 | (defcustom moonrise-day-events-format 59 | '(rise (meridian :display-moon-age t :display-moon-phase t) set) 60 | "Format for the events portion of a day's moon information display. 61 | 62 | This format is used by `moonrise-day-events-string' and 63 | `moonrise-day-events-list'. 64 | 65 | List of moon passage points and time specifications to display. 66 | Each element can be: 67 | - A symbol: rise, meridian, or set 68 | Display the corresponding passage point event. 69 | 70 | - A cons cell: (TYPE . OPTIONS-PLIST) 71 | TYPE can be rise, meridian, set, or time. 72 | 73 | When TYPE is time, available options: 74 | :hour INTEGER - Hour (0-23, default 0) 75 | :minute INTEGER - Minute (0-59, default 0) 76 | :second INTEGER - Second (0-59, default 0) 77 | 78 | Common options for all types: 79 | :preceding BOOL - If non-nil, display before sorted events 80 | :last BOOL - If non-nil, display after sorted events 81 | :display-point-name BOOL - Whether to show passage point name 82 | :display-time BOOL - Whether to show time 83 | :display-moon-age BOOL - Whether to show moon age 84 | :display-moon-phase BOOL - Whether to show moon phase 85 | 86 | Examples: 87 | rise ; Simple moonrise event 88 | (rise) ; Same as above 89 | (time :hour 12) ; Moon state at noon 90 | (time :hour 12 :preceding t) ; Moon state at noon, shown first" 91 | :type '(repeat 92 | (choice 93 | (const rise) 94 | (const meridian) 95 | (const set) 96 | (cons (choice 97 | (const rise) 98 | (const meridian) 99 | (const set) 100 | (const time)) 101 | (plist 102 | :key-type (choice (const :tag "Hour(0-23)" :hour) 103 | (const :tag "Minute(0-59)" :minute) 104 | (const :tag "Second(0-59)" :second) 105 | (const :tag "Preceding(Bool)" :preceding) 106 | (const :tag "Last(Bool)" :last) 107 | (const :tag "Display Point Name(Bool)" 108 | :display-point-name) 109 | (const :tag "Display Time(Bool)" 110 | :display-time) 111 | (const :tag "Display Moon Age(Bool)" 112 | :display-moon-age) 113 | (const :tag "Display Moon Phase(Bool)" 114 | :display-moon-phase)) 115 | :value-type sexp)))) 116 | :group 'moonrise) 117 | 118 | (define-obsolete-variable-alias 119 | 'moonrise-display-points-org-agenda 120 | 'moonrise-day-events-format-org-agenda 121 | "2025-11-02") 122 | (defcustom moonrise-day-events-format-org-agenda 123 | '((rise :display-moon-age t :display-moon-phase t) set) 124 | "Format for the events portion of moon information display in Org Agenda. 125 | 126 | The format is the same as `moonrise-day-events-format'. 127 | See that variable for detailed documentation on available options." 128 | :type '(repeat 129 | (choice 130 | (const rise) 131 | (const meridian) 132 | (const set) 133 | (cons (choice 134 | (const rise) 135 | (const meridian) 136 | (const set) 137 | (const time)) 138 | (plist 139 | :key-type (choice (const :tag "Hour(0-23)" :hour) 140 | (const :tag "Minute(0-59)" :minute) 141 | (const :tag "Second(0-59)" :second) 142 | (const :tag "Preceding(Bool)" :preceding) 143 | (const :tag "Last(Bool)" :last) 144 | (const :tag "Display Point Name(Bool)" 145 | :display-point-name) 146 | (const :tag "Display Time(Bool)" 147 | :display-time) 148 | (const :tag "Display Moon Age(Bool)" 149 | :display-moon-age) 150 | (const :tag "Display Moon Phase(Bool)" 151 | :display-moon-phase)) 152 | :value-type sexp)))) 153 | :group 'moonrise) 154 | 155 | (defcustom moonrise-moon-age-format 156 | "(%.2f)" 157 | "Format for displaying the moon age." 158 | :type '(choice (string :tag "Format string") 159 | (function :tag "Formatter")) 160 | :group 'moonrise) 161 | 162 | (defcustom moonrise-moon-phase-format 163 | #'moonrise-moon-phase-format-default 164 | "Format for displaying the moon phase." 165 | :type '(choice (string :tag "Format string") 166 | (function :tag "Formatter")) 167 | :group 'moonrise) 168 | 169 | (defcustom moonrise-moon-phase-image-height nil 170 | "Height of moon phase images in pixels. 171 | 172 | If nil, automatically determine the height based on `default-font-height'." 173 | :type '(choice (const nil) integer) 174 | :group 'moonrise) 175 | 176 | (defcustom moonrise-point-event-format 177 | '((point-name :separator " ") 178 | (time :separator " ") 179 | (moon-age :separator " ") 180 | (moon-phase :separator " ")) 181 | "Format for displaying moon point event. 182 | 183 | This format is used by `moonrise-format-point-event-string'. 184 | 185 | This is a list of components to output. 186 | Each component is (COMPONENT-TYPE . OPTIONS-PLIST). 187 | 188 | COMPONENT-TYPE can be one of the following symbols: 189 | point-name - Name of the passage point (rise, set, meridian) 190 | time - Time when the moon passes the point 191 | moon-age - Age of the moon in days 192 | moon-phase - Phase of the moon (as image or text) 193 | FUNCTION - Custom function called with (passage-point time) 194 | 195 | Available options: 196 | :separator STRING 197 | Separator to output before the component. 198 | If the component is not output, the separator is also omitted." 199 | :type '(repeat :tag "Components" 200 | (cons :tag "Component" 201 | (choice :tag "Component Type" 202 | (const point-name) 203 | (const time) 204 | (const moon-age) 205 | (const moon-phase) 206 | (symbol)) 207 | (plist :tag "Options" 208 | :key-type (choice :tag "Key" 209 | (const :separator) symbol) 210 | :value-type (choice :tag "Value" 211 | string 212 | sexp))))) 213 | 214 | (make-obsolete-variable 215 | 'moonrise-moon-age-display-points 216 | "set `:display-moon-age' in `moonrise-day-events-format' instead" 217 | "2025-11-02") 218 | (defcustom moonrise-moon-age-display-points 219 | nil 220 | "List of moon passage points to display moon age." 221 | :type '(set (const rise) (const meridian) (const set)) 222 | :group 'moonrise) 223 | 224 | (make-obsolete-variable 225 | 'moonrise-moon-age-display-points-org-agenda 226 | "set `:display-moon-age' in `moonrise-day-events-format-org-agenda' instead" 227 | "2025-11-02") 228 | (defcustom moonrise-moon-age-display-points-org-agenda 229 | nil 230 | "List of moon passage points to display moon age in Org Agenda." 231 | :type '(set (const rise) (const meridian) (const set)) 232 | :group 'moonrise) 233 | 234 | (make-obsolete-variable 235 | 'moonrise-moon-phase-display-points 236 | "set `:display-moon-phase' in `moonrise-day-events-format' instead" 237 | "2025-11-02") 238 | (defcustom moonrise-moon-phase-display-points 239 | nil 240 | "List of moon passage points to display moon phase." 241 | :type '(set (const rise) (const meridian) (const set)) 242 | :group 'moonrise) 243 | 244 | (make-obsolete-variable 245 | 'moonrise-moon-phase-display-points-org-agenda 246 | "set `:display-moon-phase' in `moonrise-day-events-format-org-agenda' instead" 247 | "2025-11-02") 248 | (defcustom moonrise-moon-phase-display-points-org-agenda 249 | nil 250 | "List of moon passage points to display moon phase in Org Agenda." 251 | :type '(set (const rise) (const meridian) (const set)) 252 | :group 'moonrise) 253 | 254 | (defcustom moonrise-org-agenda-event-separator "; " 255 | "Separator string between moon events in Org Agenda." 256 | :type 'string 257 | :group 'moonrise) 258 | 259 | (defcustom moonrise-org-agenda-format-function 260 | #'moonrise-org-agenda-format-default 261 | "Function to format moon events for Org Agenda display. 262 | 263 | The function is called with a calendar date (month day year) as the 264 | argument and should return a string for display. 265 | 266 | See `moonrise-org-agenda-format-default' for the default implementation." 267 | :type 'function 268 | :group 'moonrise) 269 | 270 | (defcustom moonrise-org-agenda-use-cache nil 271 | "Non-nil means use cached moon data in Org Agenda. 272 | 273 | To clear the cache, use the command `moonrise-org-agenda-cache-clear'." 274 | :type 'boolean 275 | :group 'moonrise) 276 | 277 | (defcustom moonrise-use-images 'auto 278 | "Whether to use images for moon phase display. 279 | 280 | Value can be one of: 281 | nil - Never use images 282 | t - Always use images 283 | auto - Use images automatically when SVG is available or in batch mode" 284 | :type '(choice (const auto) (const t) (const nil)) 285 | :group 'moonrise) 286 | 287 | 288 | ;;;; Math Utilities 289 | 290 | 291 | (defun moonrise-normalize-degrees (deg) 292 | "Normalize DEG to the range [0, 360)." 293 | (mod deg 360)) 294 | 295 | (defun moonrise-normalize-degrees-180+180 (deg) 296 | "Normalize DEG to the range (-180, 180]." 297 | (let ((nd (mod deg 360))) 298 | (if (> nd 180) 299 | (+ nd -360) 300 | nd))) 301 | 302 | (defun moonrise-sin (deg) 303 | "Return the sine of DEG degrees." 304 | (sin (degrees-to-radians (mod deg 360.0)))) 305 | 306 | (defun moonrise-cos (deg) 307 | "Return the cosine of DEG degrees." 308 | (cos (degrees-to-radians (mod deg 360.0)))) 309 | 310 | 311 | ;;;; Moon Position Calculation 312 | 313 | ;; 314 | ;; see: [長沢99] 5.4 表によらない月位置 315 | ;; 316 | 317 | (defun moonrise-a*sin{b+c*T} (a b c T) 318 | (* a (moonrise-sin (+ b (* c T))))) 319 | 320 | (defun moonrise-sum{a*sin{b+c*T}} (list-abc T) 321 | (let ((sum 0)) 322 | (while list-abc 323 | (cl-incf sum (moonrise-a*sin{b+c*T} 324 | (pop list-abc) 325 | (pop list-abc) 326 | (pop list-abc) 327 | T))) 328 | sum)) 329 | 330 | (defun moonrise-A_m (T) 331 | (moonrise-sum{a*sin{b+c*T}} 332 | '(0.0040 119.5 1.33 333 | 0.0020 55.0 19.34 334 | 0.0006 71 0.2 335 | 0.0006 54 19.3) 336 | T)) 337 | 338 | (defun moonrise-ecliptic-longitude (T) 339 | (+ 218.3161 (* 4812.67881 T) 340 | (moonrise-a*sin{b+c*T} 6.2887 (+ 134.961 (moonrise-A_m T)) 4771.9886 T) 341 | (moonrise-sum{a*sin{b+c*T}} 342 | '(1.2740 100.738 4133.3536 343 | 0.6583 235.700 8905.3422 344 | 0.2136 269.926 9543.9773 345 | 0.1856 177.525 359.9905 346 | 0.1143 6.546 9664.0404 347 | 0.0588 214.22 638.635 348 | 0.0572 103.21 3773.363 349 | 0.0533 10.66 13677.331 350 | 0.0459 238.18 8545.352 351 | 0.0410 137.43 4411.998 352 | 0.0348 117.84 4452.671 353 | 0.0305 312.49 5131.979 354 | 0.0153 130.84 758.698 355 | 0.0125 141.51 14436.029 356 | 0.0110 231.59 4892.052 357 | 0.0107 336.44 13038.696 358 | 0.0100 44.89 14315.966 359 | 0.0085 201.5 8266.71 360 | 0.0079 278.2 4493.34 361 | 0.0068 53.2 9265.33 362 | 0.0052 197.2 319.32 363 | 0.0050 295.4 4812.66 364 | 0.0048 235.0 19.34 365 | 0.0040 13.2 13317.34 366 | 0.0040 145.6 18449.32 367 | 0.0040 119.5 1.33 368 | 0.0039 111.3 17810.68 369 | 0.0037 349.1 5410.62 370 | 0.0027 272.5 9183.99 371 | 0.0026 107.2 13797.39 372 | 0.0024 211.9 988.63 373 | 0.0024 252.8 9224.66 374 | 0.0022 240.6 8185.36 375 | 0.0021 87.5 9903.97 376 | 0.0021 175.1 719.98 377 | 0.0021 105.6 3413.37 378 | 0.0020 55.0 19.34 379 | 0.0018 4.1 4013.29 380 | 0.0016 242.2 18569.38 381 | 0.0012 339.0 12678.71 382 | 0.0011 276.5 19208.02 383 | 0.0009 218 8586.0 384 | 0.0008 188 14037.3 385 | 0.0008 204 7906.7 386 | 0.0007 140 4052.0 387 | 0.0007 275 4853.3 388 | 0.0007 216 278.6 389 | 0.0006 128 1118.7 390 | 0.0005 247 22582.7 391 | 0.0005 181 19088.0 392 | 0.0005 114 17450.7 393 | 0.0005 332 5091.3 394 | 0.0004 313 398.7 395 | 0.0004 278 120.1 396 | 0.0004 71 9584.7 397 | 0.0004 20 720.0 398 | 0.0003 83 3814.0 399 | 0.0003 66 3494.7 400 | 0.0003 147 18089.3 401 | 0.0003 311 5492.0 402 | 0.0003 161 40.7 403 | 0.0003 280 23221.3) 404 | T))) 405 | 406 | (defun moonrise-B_m (T) 407 | (moonrise-sum{a*sin{b+c*T}} 408 | '(0.0267 234.95 19.341 409 | 0.0043 322.1 19.36 410 | 0.0040 119.5 1.33 411 | 0.0020 55.0 19.34 412 | 0.0005 307 19.4) 413 | T)) 414 | 415 | (defun moonrise-ecliptic-latitude (T) 416 | (+ (moonrise-a*sin{b+c*T} 5.1282 (+ 93.273 (moonrise-B_m T)) 4832.0202 T) 417 | (moonrise-sum{a*sin{b+c*T}} 418 | '(0.2806 228.235 9604.0088 419 | 0.2777 138.311 60.0316 420 | 0.1732 142.427 4073.3220 421 | 0.0554 194.01 8965.374 422 | 0.0463 172.55 698.667 423 | 0.0326 328.96 13737.362 424 | 0.0172 3.18 14375.997 425 | 0.0093 277.4 8845.31 426 | 0.0088 176.7 4711.96 427 | 0.0082 144.9 3713.33 428 | 0.0043 307.6 5470.66 429 | 0.0042 103.9 18509.35 430 | 0.0034 319.9 4433.31 431 | 0.0025 196.5 8605.38 432 | 0.0022 331.4 13377.37 433 | 0.0021 170.1 1058.66 434 | 0.0019 230.7 9244.02 435 | 0.0018 243.3 8206.68 436 | 0.0018 270.8 5192.01 437 | 0.0017 99.8 14496.06 438 | 0.0016 135.7 420.02 439 | 0.0015 211.1 9284.69 440 | 0.0015 45.8 9964.00 441 | 0.0014 219.2 299.96 442 | 0.0013 95.8 4472.03 443 | 0.0013 155.4 379.35 444 | 0.0012 38.4 4812.68 445 | 0.0012 148.2 4851.36 446 | 0.0011 138.3 19147.99 447 | 0.0010 18.0 12978.66 448 | 0.0008 70 17870.7 449 | 0.0008 326 9724.1 450 | 0.0007 294 13098.7 451 | 0.0006 224 5590.7 452 | 0.0006 52 13617.3 453 | 0.0005 280 8485.3 454 | 0.0005 239 4193.4 455 | 0.0004 311 9483.9 456 | 0.0004 238 23281.3 457 | 0.0004 81 10242.6 458 | 0.0004 13 9325.4 459 | 0.0004 147 14097.4 460 | 0.0003 205 22642.7 461 | 0.0003 107 18149.4 462 | 0.0003 146 3353.3 463 | 0.0003 234 19268.0) 464 | T))) 465 | 466 | (defun moonrise-parallax (T) 467 | (+ 0.9507 ;;*(sin(90deg)) 468 | (moonrise-sum{a*sin{b+c*T}} 469 | '(0.0518 224.98 4771.989 470 | 0.0095 190.7 4133.35 471 | 0.0078 325.7 8905.34 472 | 0.0028 0.0 9543.98 473 | 0.0009 100.0 13677.3 474 | 0.0005 329 8545.4 475 | 0.0004 194 3773.4 476 | 0.0003 227 4412.0) 477 | T))) 478 | 479 | (defun moonrise-ecliptic-obliquity (T) 480 | (- 23.439291 (* 0.000130042 T))) 481 | 482 | (defun moonrise-ecliptic-to-equatorial (long lat obliquity) 483 | (let* ((cos_long (moonrise-cos long)) 484 | (sin_long (moonrise-sin long)) 485 | (cos_lat (moonrise-cos lat)) 486 | (sin_lat (moonrise-sin lat)) 487 | (cos_obliquity (moonrise-cos obliquity)) 488 | (sin_obliquity (moonrise-sin obliquity)) 489 | (u (* cos_lat cos_long)) 490 | (v (- (* cos_lat sin_long cos_obliquity) 491 | (* sin_lat sin_obliquity))) 492 | (w (+ (* cos_lat sin_long sin_obliquity) 493 | (* sin_lat cos_obliquity)))) 494 | (list 495 | (mod (radians-to-degrees (atan v u)) 360) 496 | (radians-to-degrees (atan w (sqrt (+ (* u u) (* v v)))))))) 497 | 498 | 499 | ;;;; Time Conversion 500 | 501 | ;; - jd2000 : Julian Days from J2000.0 502 | ;; - local-date : calendar date in Local Time 503 | ;; - utdate : calendar date in Universal Time 504 | ;; - time : emacs time 505 | 506 | ;;;;; Calendar Date in Universal Time 507 | 508 | (defun moonrise-jd2000-from-utdate (date &optional hour min sec) 509 | "Convert calendar DATE in UT to JD2000. 510 | 511 | DATE is a calendar date (month day year) in Universal Time. 512 | Optional HOUR, MIN, and SEC specify the time of day." 513 | (+ (- (calendar-absolute-from-gregorian date) 514 | (calendar-absolute-from-gregorian '(1 1.5 2000))) 515 | (if hour (/ hour 24.0) 0) 516 | (if min (/ min 1440.0) 0) ;;24*60=1440 517 | (if sec (/ sec 86400.0) 0))) ;;24*60*60=86400 518 | 519 | (defun moonrise-utdate-from-jd2000 (jd2000) 520 | "Convert JD2000 to a calendar date in Universal Time. 521 | 522 | Return a calendar date (month day year) where day may include a 523 | fractional part." 524 | (let* ((frac (mod (- jd2000 0.5) 1.0)) 525 | (date (calendar-gregorian-from-absolute 526 | (floor (+ (calendar-absolute-from-gregorian '(1 1.5 2000)) 527 | jd2000))))) 528 | (unless (= frac 0) 529 | (cl-incf (cadr date) frac)) 530 | date)) 531 | 532 | ;;;;; Calendar Date in Local Time 533 | 534 | (defun moonrise-jd2000-from-local-date (date) 535 | "Convert local calendar DATE to JD2000. 536 | 537 | DATE is a calendar date (month day year) in local time." 538 | (moonrise-jd2000-from-utdate date nil (- calendar-time-zone))) 539 | 540 | (defun moonrise-local-date-from-jd2000 (jd2000) 541 | "Convert JD2000 to a calendar date in local time. 542 | 543 | Return a calendar date (month day year) where day may include a 544 | fractional part." 545 | (moonrise-utdate-from-jd2000 (+ jd2000 (/ calendar-time-zone (* 24 60.0))))) 546 | 547 | ;;;;; Astronomical Julian Day 548 | 549 | (defun moonrise-jd2000-from-local-astro (astro) 550 | "Convert astronomical Julian Day ASTRO to JD2000 in local time." 551 | (- astro 552 | 2451545.0 553 | (/ calendar-time-zone (* 60.0 24.0)))) 554 | 555 | (defun moonrise-local-astro-from-jd2000 (jd2000) 556 | "Convert JD2000 to astronomical Julian Day in local time." 557 | (+ jd2000 558 | 2451545.0 559 | (/ calendar-time-zone (* 60.0 24.0)))) 560 | 561 | ;;;;; Emacs Time 562 | 563 | (defun moonrise-time-from-jd2000 (jd2000) 564 | "Convert JD2000 to an Emacs Lisp timestamp. 565 | 566 | Return nil if JD2000 is nil." 567 | (when jd2000 568 | (let* ((jd-date-time (moonrise-jd-to-date-time jd2000)) 569 | (jd-date (car jd-date-time)) 570 | (jd-time (cdr jd-date-time))) 571 | (encode-time (round (* jd-time 86400)) 0 0 572 | (floor (+ jd-date 1.5)) 1 2000 t)))) 573 | 574 | (defun moonrise-jd2000-from-time (time) 575 | "Convert Emacs Lisp timestamp TIME to JD2000. 576 | 577 | Return nil if TIME is nil." 578 | (when time 579 | (let* ((tm (decode-time time t)) 580 | (sec (nth 0 tm)) 581 | (min (nth 1 tm)) 582 | (hour (nth 2 tm)) 583 | (day (nth 3 tm)) 584 | (month (nth 4 tm)) 585 | (year (nth 5 tm))) 586 | (moonrise-jd2000-from-utdate (list month day year) hour min sec)))) 587 | 588 | ;;;;; Utilities 589 | 590 | (defun moonrise-floor-date (date) 591 | "Discard fractional part of calendar DATE. 592 | 593 | DATE is a calendar date (month day year) where day may be fractional. 594 | Return a calendar date with integer components." 595 | (list (floor (car date)) (floor (cadr date)) (floor (caddr date)))) 596 | 597 | (defun moonrise-jd-to-date-time (jd) 598 | "Split Julian Day JD into date and time parts. 599 | 600 | Return a cons cell (DATE . TIME) where DATE is the integer day part 601 | and TIME is the fractional day part in the range [0, 1)." 602 | (let* ((date-part (- (floor (+ jd 0.5)) 0.5)) 603 | (time-part (- jd date-part))) 604 | (cons date-part time-part))) 605 | 606 | (defun moonrise-jd-to-jc (jd) 607 | "Convert Julian Day JD to Julian centuries." 608 | (/ jd 36525.0)) 609 | 610 | (defun moonrise-jd-to-jy (jd) 611 | "Convert Julian Day JD to Julian years." 612 | (/ jd 365.25)) 613 | 614 | (defun moonrise-jy-to-jd (jy) 615 | "Convert Julian years JY to Julian Days." 616 | (* jy 365.25)) 617 | 618 | ;;;;; Sidereal Time 619 | 620 | (defun moonrise-sidereal-time-from-jd2000 (jd2000) 621 | "Calculate Greenwich sidereal time in degrees for JD2000. 622 | 623 | Return the sidereal time normalized to the range [0, 360)." 624 | (let ((jd-date-time (moonrise-jd-to-date-time jd2000))) 625 | (mod 626 | (+ (* (solar-sidereal-time (moonrise-jd-to-jc (car jd-date-time))) 15) 627 | (* (cdr jd-date-time) 360 1.00273790701)) 628 | 360))) 629 | 630 | 631 | ;;;; Time Finding 632 | 633 | ;; [長沢99] 5.3 634 | 635 | (defun moonrise-around (jd2000 &optional passage-point long lat height) 636 | "Find the time when the moon passes PASSAGE-POINT near JD2000. 637 | 638 | PASSAGE-POINT specifies which passage point to find (rise, set, or meridian). 639 | If nil, default to rise. 640 | 641 | LONG and LAT specify the observer's longitude and latitude in degrees. 642 | If nil, use values from `calendar-longitude' and `calendar-latitude'. 643 | 644 | HEIGHT specifies the observer's height above sea level in meters. 645 | If nil, use 0. 646 | 647 | Return the JD2000 value when the moon passes the specified point, 648 | which may be before or after the input JD2000." 649 | (unless passage-point (setq passage-point 'rise)) 650 | (unless long (setq long (calendar-longitude))) 651 | (unless lat (setq lat (calendar-latitude))) 652 | (unless height (setq height 0)) 653 | 654 | (let* ((jd0 jd2000) 655 | (et (solar-ephemeris-correction 656 | (caddr (moonrise-utdate-from-jd2000 jd0)))) 657 | (st0 (moonrise-normalize-degrees 658 | (+ (moonrise-sidereal-time-from-jd2000 jd0) long))) 659 | (horizontal-refraction 0.585556) 660 | (dip (* 0.0353333333333 (sqrt height))) 661 | (d 0) 662 | (delta-d 1)) 663 | (while (>= (abs delta-d) 0.000005) 664 | (let* ((jy (moonrise-jd-to-jy (+ jd0 et d))) 665 | ;; calculate moon position 666 | (ra-dec (moonrise-ecliptic-to-equatorial 667 | (moonrise-ecliptic-longitude jy) 668 | (moonrise-ecliptic-latitude jy) 669 | (moonrise-ecliptic-obliquity jy))) 670 | (ra (car ra-dec)) ;;alpha 671 | (dec (cadr ra-dec)) ;;delta 672 | (para (moonrise-parallax jy)) ;;pi 673 | (st (+ st0 (* 360.9856474 d))) ;;theta (sidereal time) 674 | (moon-hour-angle (- st ra)) ;;t 675 | 676 | ;; calculate rising or setting point 677 | (rise-set-altitude (- para horizontal-refraction dip)) ;;k see:p.20 678 | (cos-rise-set-hour-angle 679 | (/ (- (moonrise-sin rise-set-altitude) 680 | (* (moonrise-sin dec) (moonrise-sin lat))) 681 | (* (moonrise-cos dec) (moonrise-cos lat)))) ;;cos(t_k) see:p.38 682 | (rise-set-hour-angle 683 | (radians-to-degrees (acos cos-rise-set-hour-angle))) 684 | 685 | ;; target point 686 | (passage-point-hour-angle ;;-t_k (hour angle of rise or set point) 687 | (cond 688 | ((eq passage-point 'meridian) 0) ;;TODO: do not calculate rise-set-hour-angle 689 | ((eq passage-point 'set) rise-set-hour-angle) 690 | (t (- rise-set-hour-angle)))) 691 | 692 | ;; angle moon to target point 693 | (angle-moon-to-target 694 | (moonrise-normalize-degrees-180+180 695 | (- passage-point-hour-angle moon-hour-angle)))) 696 | 697 | (setq delta-d (/ angle-moon-to-target 347.8)) 698 | ;;(message "d=%f ra=%f dec=%f st=%f para=%f rise-set-alt=%f cos-rise-set-hangle=%f passage-point-hangle=%f moon-hangle=%f delta-angle=%f delta-d=%f" d ra dec st para rise-set-altitude cos-rise-set-hour-angle passage-point-hour-angle moon-hour-angle angle-moon-to-target delta-d) 699 | (setq d (+ d delta-d)))) 700 | 701 | (+ jd2000 d))) 702 | 703 | (defun moonrise-in-day (day-begin-jd2000 704 | &optional passage-point long lat height) 705 | "Find the time when the moon passes PASSAGE-POINT within a specific day. 706 | 707 | DAY-BEGIN-JD2000 specifies the start of the day. 708 | PASSAGE-POINT, LONG, LAT, and HEIGHT are as in `moonrise-around'. 709 | 710 | Return the JD2000 value if the passage occurs within the 24-hour period 711 | starting from DAY-BEGIN-JD2000, or nil if it does not occur within that day." 712 | (let ((jdp (moonrise-around (+ day-begin-jd2000 0.5) 713 | passage-point long lat height))) 714 | (when (and (>= jdp day-begin-jd2000) (< jdp (+ day-begin-jd2000 1.0))) 715 | jdp))) 716 | 717 | (defun moonrise-list (begin-jd2000 718 | end-jd2000 719 | &optional passage-point long lat height) 720 | "Return a list of times when the moon passes PASSAGE-POINT in a date range. 721 | 722 | BEGIN-JD2000 and END-JD2000 specify the start and end of the range. 723 | PASSAGE-POINT, LONG, LAT, and HEIGHT are as in `moonrise-around'. 724 | 725 | Return a list of JD2000 values in chronological order." 726 | (let ((jd begin-jd2000) 727 | results) 728 | (while (< jd end-jd2000) 729 | (let ((jdp (moonrise-in-day jd passage-point long lat height))) 730 | (when (and jdp (not (and results (< (abs (- (car results) jdp)) 1e-6)))) 731 | (push jdp results))) 732 | (setq jd (+ jd 1.0))) 733 | (nreverse results))) 734 | 735 | 736 | 737 | ;; Ex: calculate moonrise around specified time 738 | ;; (let* ((jd0 (moonrise-jd2000-from-utdate '(6 23 2020) -9)) 739 | ;; (jdp (moonrise-around (+ jd0 0.0) 'rise)) 740 | ;; (d (- jdp jd0))) 741 | ;; (message "%02d:%02d:%02d" 742 | ;; (floor (* 24 d)) 743 | ;; (floor (mod (* 24 60 d) 60)) 744 | ;; (floor (mod (* 24 60 60 d) 60)))) 745 | 746 | ;; Ex: calculate moonrise around specified range 747 | ;; (mapconcat 748 | ;; (lambda (jd2000) (format-time-string "%FT%T%z" (moonrise-time-from-jd2000 jd2000))) 749 | ;; (moonrise-list (moonrise-jd2000-from-utdate '(6 23 2020) -9) 750 | ;; (moonrise-jd2000-from-utdate '(6 30 2020) -9) 'rise) 751 | ;; "\n") 752 | 753 | 754 | ;;;; Moon Age 755 | 756 | ;; [長沢99] 5.6 757 | 758 | (defun moonrise-moon-age (jd2000) 759 | "Calculate the moon's age in days at JD2000. 760 | 761 | The moon age is the number of days since the last new moon. 762 | Return a floating-point number representing the age in days." 763 | (let* ((jd0 jd2000) 764 | (et (solar-ephemeris-correction 765 | (caddr (moonrise-utdate-from-jd2000 jd0)))) 766 | (jd jd0) 767 | (delta-long 1) 768 | (num-iter 0)) 769 | 770 | (while (>= (abs delta-long) 0.05) 771 | (let* ((solar-long (solar-longitude 772 | (moonrise-local-astro-from-jd2000 jd))) 773 | (lunar-long (moonrise-normalize-degrees 774 | (moonrise-ecliptic-longitude 775 | (moonrise-jd-to-jy (+ jd et))))) 776 | (solar-to-lunar-angle (funcall 777 | (if (= num-iter 0) 778 | #'moonrise-normalize-degrees 779 | #'moonrise-normalize-degrees-180+180) 780 | (- lunar-long solar-long))) 781 | (age (/ solar-to-lunar-angle 12.1908)) 782 | (new-moon (- jd age))) 783 | ;;(message "jd=%f delta-long=%f age=%f new-moon=%f" jd delta-long age new-moon) 784 | (setq jd new-moon) 785 | (setq delta-long solar-to-lunar-angle) 786 | (setq num-iter (1+ num-iter)))) 787 | 788 | (- jd0 jd))) 789 | 790 | ;;(moonrise-moon-age (moonrise-jd2000-from-local-date (list 6 21.5 2020))) => 29.390037587843835 791 | ;;(moonrise-moon-age (moonrise-jd2000-from-local-date (list 6 (+ 25 (/ 8 24)) 2020))) 792 | ;;(moonrise-moon-age (moonrise-jd2000-from-time (encode-time 0 0 8 25 6 2020))) 793 | 794 | 795 | ;;;; Moon Phase 796 | 797 | 798 | (defun moonrise-moon-phase (jd2000) 799 | "Calculate the moon's phase in degrees at JD2000. 800 | 801 | The phase is the ecliptic longitude difference between the moon and sun. 802 | Return a value in degrees in the range [0, 360), where: 803 | 0° = New Moon 804 | 90° = First Quarter 805 | 180° = Full Moon 806 | 270° = Last Quarter" 807 | (let* ((et (solar-ephemeris-correction 808 | (caddr (moonrise-utdate-from-jd2000 jd2000)))) 809 | (solar-long (solar-longitude 810 | (moonrise-local-astro-from-jd2000 jd2000))) 811 | (lunar-long (moonrise-normalize-degrees 812 | (moonrise-ecliptic-longitude 813 | (moonrise-jd-to-jy (+ jd2000 et))))) 814 | (solar-to-lunar-angle (moonrise-normalize-degrees 815 | (- lunar-long solar-long)))) 816 | solar-to-lunar-angle)) 817 | 818 | ;;(moonrise-moon-phase (moonrise-jd2000-from-time (encode-time 0 37 11 24 7 2021))) => 180.??? 819 | 820 | (defun moonrise-moon-phase-format-default (phase) 821 | "Format PHASE as a graphical moon image or text. 822 | 823 | PHASE is the moon phase in degrees. 824 | Return a string with a display property showing the moon's appearance, 825 | or a text representation based on `moonrise-use-images'." 826 | (moonrise-moon-phase-svg-image-string 827 | phase 828 | (or moonrise-moon-phase-image-height 829 | ;; In batch mode, (default-font-height) seems to be set to 1 830 | (if noninteractive 831 | (1- 16) 832 | (1- (default-font-height)))))) 833 | 834 | (defun moonrise-use-images-p () 835 | "Return non-nil if images should be used for moon phase display. 836 | 837 | When images are used is determined by `moonrise-use-images'." 838 | (pcase moonrise-use-images 839 | ('nil nil) 840 | ('t t) 841 | ('auto 842 | (or 843 | noninteractive 844 | (and 845 | (featurep 'image) 846 | (featurep 'svg) 847 | (display-graphic-p) 848 | (fboundp 'image-type-available-p) 849 | (image-type-available-p 'svg)))) 850 | (_ nil))) 851 | 852 | (defun moonrise-moon-phase-svg-image-string (phase 853 | size 854 | &optional ascent light shadow) 855 | "Create a string displaying the moon phase as an SVG image. 856 | 857 | PHASE is the moon phase in degrees. 858 | SIZE is the image size in pixels. 859 | ASCENT specifies vertical alignment (default: center). 860 | LIGHT and SHADOW are colors for sunlit and dark portions (default: #ffc 861 | and #000). 862 | 863 | Return a string with a display property containing the SVG image, 864 | or a text representation based on `moonrise-use-images'." 865 | (let ((str (format "%.2f[deg]" phase))) 866 | (if (moonrise-use-images-p) 867 | (propertize 868 | str 869 | 'display 870 | (moonrise-moon-phase-svg-image phase size ascent light shadow)) 871 | str))) 872 | 873 | (defun moonrise-moon-phase-svg-image (phase size &optional ascent light shadow) 874 | "Create an SVG image object showing the moon phase. 875 | 876 | PHASE is the moon phase in degrees. 877 | SIZE is the image size in pixels. 878 | ASCENT, LIGHT, and SHADOW are as in `moonrise-moon-phase-svg-image-string'. 879 | 880 | Return an image object suitable for display properties." 881 | (svg-image 882 | (moonrise-moon-phase-svg phase size light shadow) 883 | :scale 1 884 | :ascent (or ascent 'center))) 885 | 886 | (defun moonrise-moon-phase-svg (phase size &optional light shadow) 887 | "Create an SVG object showing the moon phase. 888 | 889 | PHASE is the moon phase in degrees. 890 | SIZE is the image size in pixels. 891 | LIGHT is the color for the sunlit portion (default: #ffc). 892 | SHADOW is the color for the dark portion (default: #000). 893 | 894 | Return an SVG object." 895 | (let* ((svg (svg-create size size)) 896 | ;; center and radius 897 | (cx (* 0.5 size)) 898 | (cy (* 0.5 size)) 899 | (radius (* 0.48 size)) 900 | ;; number of divisions 901 | (ndiv 32) 902 | (2pi/ndiv (* 2.0 (/ float-pi ndiv))) 903 | ;; degrees to radians 904 | (phase-rad (* 2.0 float-pi (/ (mod phase 360.0) 360.0))) 905 | ;; left and right sides of sunlit portion 906 | (right-edge (if (<= phase-rad float-pi) 1.0 (- (cos phase-rad)))) 907 | (left-edge (if (>= phase-rad float-pi) 1.0 (- (cos phase-rad))))) 908 | ;; entire of moon 909 | (svg-circle svg cx cy radius :fill (or shadow "#000")) 910 | ;; sunlit portion 911 | (svg-polygon 912 | svg 913 | (cl-loop for i from 0 to ndiv 914 | collect (let ((i-rad (* i 2pi/ndiv)) 915 | (edge (if (< (* 2 i) ndiv) right-edge left-edge))) 916 | (cons (+ cx (* (sin i-rad) radius edge)) 917 | (- cy (* (cos i-rad) radius))))) 918 | :fill (or light "#ffc")) 919 | svg)) 920 | 921 | 922 | ;;;; String Formatting 923 | 924 | 925 | (defun moonrise-point-name (passage-point) 926 | "Return the display name for PASSAGE-POINT. 927 | 928 | The name is looked up in `moonrise-point-name-alist'. 929 | If PASSAGE-POINT is not found, return an empty string." 930 | (or (cdr (assq passage-point moonrise-point-name-alist)) "")) 931 | 932 | (defun moonrise-moon-age-string (age) 933 | "Format AGE according to `moonrise-moon-age-format'." 934 | (cond 935 | ((stringp moonrise-moon-age-format) 936 | (format moonrise-moon-age-format age)) 937 | ((functionp moonrise-moon-age-format) 938 | (funcall moonrise-moon-age-format age)))) 939 | 940 | (defun moonrise-moon-phase-string (phase) 941 | "Format PHASE according to `moonrise-moon-phase-format'." 942 | (cond 943 | ((stringp moonrise-moon-phase-format) 944 | (format moonrise-moon-phase-format phase)) 945 | ((functionp moonrise-moon-phase-format) 946 | (funcall moonrise-moon-phase-format phase)))) 947 | 948 | (defun moonrise-time-string (time) 949 | "Convert TIME to a time string showing hours and minutes only. 950 | 951 | TIME should be a Lisp timestamp. 952 | The string is formatted according to `calendar-time-display-form'. 953 | Return nil if TIME is nil." 954 | (when time 955 | ;; TODO: Support DST? 956 | (let* ((tm (decode-time time (* calendar-time-zone 60))) 957 | (min (nth 1 tm)) 958 | (hour (nth 2 tm))) 959 | (solar-time-string (+ hour (/ min 60.0)) 960 | calendar-standard-time-zone-name)))) 961 | 962 | (defun moonrise-format-point-event-string (passage-point 963 | time 964 | display-point-name-p 965 | display-time-p 966 | display-moon-age-p 967 | display-moon-phase-p) 968 | "Format a display string for the moon event at PASSAGE-POINT. 969 | 970 | The string format is specified by `moonrise-point-event-format'. 971 | 972 | PASSAGE-POINT is the type of event (rise, set, meridian, or time). 973 | TIME is the Lisp timestamp for the event. 974 | 975 | The DISPLAY-* arguments control which components are included: 976 | DISPLAY-POINT-NAME-P - Include the passage point name 977 | DISPLAY-TIME-P - Include the time 978 | DISPLAY-MOON-AGE-P - Include the moon age 979 | DISPLAY-MOON-PHASE-P - Include the moon phase 980 | 981 | Return a formatted string, or an empty string if TIME is nil." 982 | (when time 983 | (let ((result nil)) 984 | (dolist (component moonrise-point-event-format) 985 | (let* ((sym (if (symbolp component) 986 | component 987 | (car component))) 988 | (str (pcase sym 989 | ('point-name (when display-point-name-p 990 | (moonrise-point-name passage-point))) 991 | ('time (when display-time-p 992 | (moonrise-time-string time))) 993 | ('moon-age (when display-moon-age-p 994 | (moonrise-moon-age-string 995 | (moonrise-moon-age 996 | (moonrise-jd2000-from-time time))))) 997 | ('moon-phase (when display-moon-phase-p 998 | (moonrise-moon-phase-string 999 | (moonrise-moon-phase 1000 | (moonrise-jd2000-from-time time))))) 1001 | ((pred functionp) (funcall sym passage-point time)))) 1002 | (options (when (consp component) (cdr component))) 1003 | (separator (when result 1004 | (or (plist-get options :separator) " ")))) 1005 | (when (and (stringp str) (not (string= str ""))) 1006 | (setq result (concat result separator str))))) 1007 | (or result "")))) 1008 | 1009 | (defun moonrise-day-events-list (local-date display-events) 1010 | "Generate a list of moon events for LOCAL-DATE. 1011 | 1012 | DISPLAY-EVENTS specifies which events to include, as described in 1013 | `moonrise-day-events-format'. 1014 | 1015 | Return a list of events, where each event is (JD2000 TYPE OPTIONS). 1016 | Events are ordered according to :preceding and :last options, 1017 | with other events sorted by time." 1018 | (let ((day-begin (moonrise-jd2000-from-local-date local-date)) 1019 | preceding-events 1020 | middle-events 1021 | last-events) 1022 | (dolist (event-spec display-events) 1023 | (let* ((type (cond 1024 | ((null event-spec) nil) 1025 | ((symbolp event-spec) event-spec) 1026 | ((consp event-spec) (car event-spec)))) 1027 | (options (cond 1028 | ((consp event-spec) (cdr event-spec)))) 1029 | (jd 1030 | (pcase type 1031 | ('time 1032 | (+ day-begin 1033 | (/ (or (plist-get options :hour) 0) 24.0) 1034 | (/ (or (plist-get options :minute) 0) (* 24.0 60)) 1035 | (/ (or (plist-get options :second) 0) (* 24.0 60 60)))) 1036 | ((or 'rise 'meridian 'set) 1037 | (moonrise-in-day day-begin type))))) 1038 | (when jd 1039 | (let ((event (list jd type options))) 1040 | (cond 1041 | ((plist-get options :preceding) (push event preceding-events)) 1042 | ((plist-get options :last) (push event last-events)) 1043 | (t (push event middle-events))))))) 1044 | (nconc 1045 | (nreverse preceding-events) 1046 | (sort 1047 | (nreverse middle-events) 1048 | (lambda (jdpp1 jdpp2) (< (car jdpp1) (car jdpp2)))) 1049 | (nreverse last-events)))) 1050 | 1051 | (defun moonrise-day-events-string (local-date 1052 | &optional display-events separator 1053 | moon-age-display-points 1054 | moon-phase-display-points) 1055 | "Format a string of moon events for LOCAL-DATE. 1056 | 1057 | DISPLAY-EVENTS specifies which events to include. 1058 | If nil, use `moonrise-day-events-format'. 1059 | 1060 | MOON-AGE-DISPLAY-POINTS and MOON-PHASE-DISPLAY-POINTS specify 1061 | which passage points should include moon age and phase information 1062 | by default. If nil, use `moonrise-moon-age-display-points' and 1063 | `moonrise-moon-phase-display-points' respectively. 1064 | These can be overridden by :display-moon-age and :display-moon-phase 1065 | options in individual events. 1066 | 1067 | SEPARATOR is the string used to separate multiple events. 1068 | If nil, use \", \"." 1069 | (unless display-events 1070 | (setq display-events moonrise-day-events-format)) 1071 | (unless moon-age-display-points 1072 | (setq moon-age-display-points moonrise-moon-age-display-points)) 1073 | (unless moon-phase-display-points 1074 | (setq moon-phase-display-points moonrise-moon-phase-display-points)) 1075 | 1076 | (mapconcat 1077 | (lambda (event) 1078 | (let* ((jd (nth 0 event)) 1079 | (type (nth 1 event)) 1080 | (options (nth 2 event)) 1081 | (display-point-name (plist-member options :display-point-name)) 1082 | (display-time (plist-member options :display-time)) 1083 | (display-moon-age (plist-member options :display-moon-age)) 1084 | (display-moon-phase (plist-member options :display-moon-phase))) 1085 | (moonrise-format-point-event-string 1086 | type 1087 | (moonrise-time-from-jd2000 jd) 1088 | (if display-point-name (cadr display-point-name) t) 1089 | (if display-time (cadr display-time) t) 1090 | (if display-moon-age 1091 | (cadr display-moon-age) 1092 | (memq type moon-age-display-points)) 1093 | (if display-moon-phase 1094 | (cadr display-moon-phase) 1095 | (memq type moon-phase-display-points))))) 1096 | (moonrise-day-events-list local-date display-events) 1097 | (or separator ", "))) 1098 | 1099 | 1100 | ;;;; For other packages 1101 | 1102 | ;;;;; For calendar.el 1103 | 1104 | ;;;###autoload 1105 | (defun calendar-moonrise-moonset (&optional event) 1106 | "Local time of moonrise and moonset for date under cursor. 1107 | Accurate to a few seconds." 1108 | (interactive (list last-nonmenu-event)) 1109 | (or (and calendar-latitude calendar-longitude calendar-time-zone) 1110 | (solar-setup)) 1111 | (let ((local-date (calendar-cursor-to-date t event))) 1112 | (message "%s: %s" 1113 | (calendar-date-string local-date t t) 1114 | (moonrise-day-events-string local-date)))) 1115 | 1116 | (defconst moonrise-moonrises-buffer "*Moonrise/Moonset Times*" 1117 | "Name of buffer used for moonrise/moonset times.") 1118 | 1119 | ;;;###autoload 1120 | (defun calendar-moonrise-moonset-month (&optional event) 1121 | "Local time of moonrise and moonset for month under cursor or at EVENT." 1122 | (interactive (list last-nonmenu-event)) 1123 | (or (and calendar-latitude calendar-longitude calendar-time-zone) 1124 | (solar-setup)) 1125 | (let* ((date (calendar-cursor-to-date t event)) 1126 | (month (car date)) 1127 | (year (nth 2 date)) 1128 | (last (calendar-last-day-of-month month year)) 1129 | (title (format "Moonrise/moonset times for %s %d at %s" 1130 | (calendar-month-name month) year 1131 | (eval calendar-location-name)))) 1132 | (calendar-in-read-only-buffer moonrise-moonrises-buffer 1133 | (calendar-set-mode-line title) 1134 | (insert title ":\n\n") 1135 | (dotimes (i last) 1136 | (setq date (list month (1+ i) year)) 1137 | (insert (format "%s %2d: " (calendar-month-name month t) (1+ i)) 1138 | (moonrise-day-events-string date) "\n"))))) 1139 | 1140 | ;;;;; For diary.el 1141 | 1142 | ;;;###autoload 1143 | (defun diary-moonrise-moonset () 1144 | "Local time of moonrise and moonset as a diary entry. 1145 | Accurate to a few seconds." 1146 | (or (and calendar-latitude calendar-longitude calendar-time-zone) 1147 | (solar-setup)) 1148 | (with-no-warnings (defvar date)) 1149 | (moonrise-day-events-string date)) 1150 | 1151 | ;;;;; For org-agenda.el 1152 | 1153 | ;;;###autoload 1154 | (defun moonrise-org-agenda () 1155 | "Return a string of moon events for display in Org Agenda. 1156 | 1157 | Get the date from the dynamic variable `org-agenda-current-date' or 1158 | `date'. 1159 | 1160 | If `moonrise-org-agenda-use-cache' is non-nil, use cached data 1161 | when available to improve performance." 1162 | (with-no-warnings (defvar org-agenda-current-date)) 1163 | (with-no-warnings (defvar date)) 1164 | (moonrise-org-agenda-make-string-with-cache 1165 | (or org-agenda-current-date date))) 1166 | ;;(moonrise-org-agenda) 1167 | 1168 | (defun moonrise-org-agenda-make-string-with-cache (date) 1169 | "Create a moon events string for DATE, using cache if enabled. 1170 | 1171 | DATE is a calendar date (month day year). 1172 | 1173 | If `moonrise-org-agenda-use-cache' is non-nil, return cached data 1174 | when available, otherwise compute and cache the result." 1175 | (if moonrise-org-agenda-use-cache 1176 | (let ((key (moonrise-org-agenda-cache-key date))) 1177 | (or (moonrise-org-agenda-cache-get key) 1178 | (moonrise-org-agenda-cache-put 1179 | key 1180 | (moonrise-org-agenda-make-string date)))) 1181 | (moonrise-org-agenda-make-string date))) 1182 | 1183 | (defun moonrise-org-agenda-make-string (date) 1184 | "Create a moon events string for DATE in Org Agenda. 1185 | 1186 | DATE is a calendar date (month day year). 1187 | 1188 | This function calls `moonrise-org-agenda-format-function' with DATE." 1189 | (funcall moonrise-org-agenda-format-function date)) 1190 | 1191 | (defun moonrise-org-agenda-format-default (date) 1192 | "Default formatter for moon events in Org Agenda. 1193 | 1194 | DATE is a calendar date (month day year). 1195 | This produces the traditional format with full event names. 1196 | 1197 | Use settings from `moonrise-day-events-format-org-agenda'." 1198 | (moonrise-day-events-string 1199 | date 1200 | moonrise-day-events-format-org-agenda 1201 | moonrise-org-agenda-event-separator 1202 | moonrise-moon-age-display-points-org-agenda 1203 | moonrise-moon-phase-display-points-org-agenda)) 1204 | 1205 | ;; Cache 1206 | 1207 | (defvar moonrise-org-agenda-cache nil 1208 | "Cache for Org Agenda moon event strings.") 1209 | 1210 | (defun moonrise-org-agenda-cache-clear () 1211 | "Clear the Org Agenda moon events cache." 1212 | (interactive) 1213 | (setq moonrise-org-agenda-cache nil)) 1214 | 1215 | (defun moonrise-org-agenda-cache-key (date) 1216 | "Generate a cache key for DATE in Org Agenda. 1217 | The returned key should be used with `moonrise-org-agenda-cache-get' 1218 | and `moonrise-org-agenda-cache-put'." 1219 | (format "%04d%02d%02d" (nth 2 date) (nth 0 date) (nth 1 date))) 1220 | 1221 | (defun moonrise-org-agenda-cache-get (key) 1222 | "Retrieve cached moon events string for KEY. 1223 | KEY should be generated by `moonrise-org-agenda-cache-key'. 1224 | Return nil if not found." 1225 | (cdr (assoc key moonrise-org-agenda-cache))) 1226 | 1227 | (defun moonrise-org-agenda-cache-put (key str) 1228 | "Store moon events string STR in cache with KEY. 1229 | KEY should be generated by `moonrise-org-agenda-cache-key'. 1230 | Return STR." 1231 | (push (cons key str) moonrise-org-agenda-cache) 1232 | str) 1233 | 1234 | (provide 'moonrise) 1235 | ;;; moonrise.el ends here 1236 | --------------------------------------------------------------------------------