[Remind-Fans] Blue Moon in calendar

[Wolfgang Kroener]

Hi,
with the Blue Moon script found on the net (e. g.
http://lwn.net/Articles/75379/):
--8<--
FSET isFirstFull(date) \
monnum(moondate(2, date)) == monnum(moondate(2, moondate(2, date)+1))
REM 1 SATISFY isFirstFull(trigdate())
set blue moondate(2, moondate(2, trigdate())+1)

MSG Next blue moon is [trigger(blue)]
-->8--
the Blue Moon unfortunately isn't displayed with wyrd or rem2ps. With my
little change it does:
--8<--
fset subtract_month(date) \
        date(iif(monnum(date)==1,year(date)-1,year(date)),\
        iif(monnum(date)==1,12,monnum(date)-1),day(date))

fset isFirstFull(date) \
        monnum(moondate(2, date)) == monnum(moondate(2, moondate(2, date)+1))

rem 1 +1 satisfy isFirstFull(subtract_month(trigdate()))
set blue moondate(2, moondate(2, subtract_month(trigdate()))+1)
rem [trigger(blue)] msg Blue Moon
unset blue
-->8--
Perhaps someone may find it useful.

Regards, Wolfgang
-- 
Wolfgang Kroener              ooo       /|    |\
                         )-='=iii===`==( |    |
http://www.azog.de         ((.ICI_. ))  \|   ()
GnuPG: B3F4532E             `-UUU:=-'
-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: application/pgp-signature
Size: 189 bytes
Desc: Digital signature
URL: <http://lists.roaringpenguin.com/pipermail/remind-fans/attachments/20070418/807380b7/attachment.pgp>