head

B<Holidays::Miscellaneous> - Provides perpetual data for miscellaneous holidays


code

=begin code :lang<raku>
use Holidays::Miscellaneous;
use UUID::V4;

my $year = 2025;
my $set-id = uuid-v4; # A unique ID for the set of holidays so they can be
                      # merged with other C<Date::Event> sets for calendar
                      # generation;
my %mh = get-misc-holidays :$year, :$set-id;
# Keys of the '%us' hash are the C<$year>'s dates with holidays
my @d = %mh.keys.sort({$^a cmp $^b}); # Get array in date order
for @d -> $D {
    my Date $date .= new: $D; # Get the Date
    my %h = %mh{$date};
    # The value of %h is another hash keyed by: ($set-id ~ '|' ~ $id)
    # but we only break that key down for testing.
    #    %h{$h.date}{$key} = $holiday;
    my $holiday;
    for %h.keys -> $key {
        $holiday = %h{$key}; # The C<MiscHoliday> class object (a C<Date::Event>)
        # use the data for a calendar day cell
        my $d  = $holiday.date;
        my $n  = $holiday.name;
        my $ns = $holiday.short-name;
    }
}
=end code


B<Holidays::Miscellaneous> is a collection of holiday data the author
uses for I<perpetual> calendar creation. (The term I<perpetual> is
used to mean the source code to generate the calendar's holiday dates
is valid for any given year since the code uses the documented rules
for determining those dates and no additional data need be inserted in
the code annually.)


Note the names and dates of the holidays are those customarily used in
the U.S., but several of those holidays are commonly celebrated in
other countries around the world.


item

Holidays marked with a leading '*' are classified as 'calculated'
holidays since their observed dates vary from year to year.  This
module uses module B<Date::Utils> for that calculation.


The holidays without the leading asterisk are classified as 'directed'
or 'fixed' since they are always on fixed dates.


This library is free software; you may redistribute it or modify it under the Artistic License 2.0.


root

para

L<Examples| file:../examples/index.podlite>


L<Download |file:../download/index.podlite>


React

=begin React :component<HeaderCol> :id<menu> 
=para L<Documentation|/doc/introduction>
=para L<Modules| /mods>
=para L<Examples| file:../examples/index.podlite>
=para L<Download |file:../download/index.podlite>
=para L<About|file:../about/index.podlite>
=para 🔍 K<⌘K>/K<ctrl-K>
=end React


HEADER

FOOTER

README

unit module Holidays::Miscellaneous;

use Holidays::Data;
use Date::Event;
use Date::Utils;

# Valentines Day
# Flag Day
# St Patricks Day
# Mothers Day
# Fathers Day
# Perl Harbor Day
# Armed Forces Day

# National Grandparents' Day - first Sunday after Labor Day (US)
# Election Day - Tuesday after the first Monday of November in even years (US)
#   source: Wikipedia
#
# ===== LATER:
# Hanukkah - [use Raku module Date::Calendar::Hebrew by @jforget ]
#    Jewish festival that begins at the 25th day of Kislev, lasts
#       eight days, and concludes on the second or third day of
#       Tevet (Kislev can have 29 or 30 days). Note the Jewish day
#       begins at sunset.
#   source: Wikipedia

class MiscHoliday is Date::Event is export {}

# holidays are divided into two categories:
#   traditional or fixed (same every year)
#   calculated by some formula

# Valentines Day
# Flag Day
# St Patricks Day
# Mothers Day
# Fathers Day
# Perl Harbor Day
# Armed Forces Day

sub get-misc-holidays(:$year!, :$set-id!, :$debug --> Hash) is export {
    my %h;
    for %misc-holidays.keys -> $id {
        if $id ~~ /:i elect / {
            # special: Election Day only occurs in even years
            # Election Day
            next if $year % 2; # skip odd years
        }

        my $uid = $set-id ~ '|' ~ $id;
        my MiscHoliday $h = calc-misc-holiday-dates :$year, :$id, :$debug;
        %h{$h.date}{$uid} = $h;
    }
    %h
}

# Routines for calculating dates observed
# There are two types:
#   1. Those holidays designated as a certain day of the month.
#   2. Those holidays with assigned dates that may fall on
#      weekends. When the date for a year falls on a Saturday,
#      it is observed on the previous Friday. When the date falls
#      on a Sunday, it is observed on the following Monday.

sub calc-misc-holiday-dates(:$year!, :$id!, :$debug --> MiscHoliday) { # is export {
    # Holidays defined in the %holidays hash with attribute
    # date => "0000-nn-nn" have traditional, designated dates.
    #
    # Holidays with attribute date => "" (empty) are subject to the
    # calculated rule and their actual and observed dates
    # are the same.

    my $name           = %misc-holidays{$id}<name>;
    my $date           = %misc-holidays{$id}<date> // 0;
    my $short-name     = %misc-holidays{$id}<short-name>;
    my $check-id       = %misc-holidays{$id}<id>;
    # for calculated dates
    my $nth-value      = %misc-holidays{$id}<nth-value>;
    my $nth-dow        = %misc-holidays{$id}<nth-dow>;
    my $nth-month      = %misc-holidays{$id}<nth-month>;

    # fixed or directed date
    if $date ~~ /^ '0000-' (\d\d) '-' (\d\d) / {
        my $month = ~$0;
        my $day   = ~$1;
        # the actual date
        $date = Date.new("$year-$month-$day");
    }
    else {
        # calculated date:
        $date = calc-date :$name, :$year, :$debug;
    }
    MiscHoliday.new: :$date, :$id, :$name, :Etype(100), :$short-name;
}

sub calc-date(:$name!, :$year!, :$debug --> Date) {
    # This should be similar to the same routine in Holidays::US::Federal
    my Date $date;
    with $name {
        my ($month, $nth, $dow);

        when $_.contains("Grandp") {
            # we first have to determine Labor day
            # which is first Monday in September
            $month =  9; # same month
            my $Ldow = 1;
            my $Lnth = 1;
            my $Ldate  = nth-day-of-week-in-month :$year, :$month,
                         :day-of-week($Ldow), :nth($Lnth), :$debug;

            # Now Grandparents
            $dow   =  7; # first Sunday after labor day
            $nth   =  1;
            $date = nth-dow-after-date :date($Ldate), :$nth, :$dow;
        }

        # Election Day - Tuesday after the first Monday of November in even years (US)
        #   source: Wikipedia
        when $_.contains("Election") {
            die "FATAL: Election Day is in even years, $year is odd" if $year % 2;
            $month = 11;
            # we first have to determine first Monday in November
            my $Edow = 1;
            my $Enth = 1;
            my $Edate  = nth-day-of-week-in-month :$year, :$month,
                         :day-of-week($Edow), :nth($Enth), :$debug;

            # now the actual day
            $dow   =  2;
            $nth   =  1;
            $date = nth-dow-after-date :date($Edate), :$nth, :$dow;
        }
        when $_.contains("Mother") {
            $month = 5;
            $dow   = 7;
            $nth   = 2;
            $date  = nth-day-of-week-in-month :$year, :$month,
                     :day-of-week($dow), :$nth, :$debug;
        }
        when $_.contains("Armed") {
            $month = 5;
            $dow   = 6;
            $nth   = 3;
            $date  = nth-day-of-week-in-month :$year, :$month,
                     :day-of-week($dow), :$nth, :$debug;
        }
        when $_.contains("Father") {
            $month = 6;
            $dow   = 7;
            $nth   = 3;
            $date  = nth-day-of-week-in-month :$year, :$month,
                     :day-of-week($dow), :$nth, :$debug;
        }
        default {
            die "FATAL: Unknown holiday '$name'";
        }
    }
    $date
}



comment

=begin comment
sub get-hanukkah-start(:$year!, :$debug --> Date) is export {
    # scheme is to do the following:
    #   start with the first day of November
    #   get the Hebrew y/m/d equivalent of that Date
    #   while hebrew date not first day of hanukkah {
    #       get next Date
    #   }
    my Date $us .= new: $year, 11, 1;
    my Date::Calendar::Hebrew $he .= new-from-date: $us;
}
=end comment


Miscellaneous

Image

The Raku Knowledge Base


=begin React :component<HeaderCol> :id<footer>  
=begin nested :!nested
=item1 B<Language>
    =item2 L<Get started|file:../getting-started/getting-started.podlite>
    =item2 L<Why Raku?|/doc/language/faq#Why-should-I-learn-Raku-What's-so-great-about-it>
    =item2 L<Try Raku|https://glot.io/new/raku>
    =item2 L<Raku cheat sheet|https://github.com/Raku/mu/blob/master/docs/Perl6/Cheatsheet/cheatsheet.txt>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<Raku on Exercism|https://exercism.org/tracks/raku>
    =item2 L<Wikipedia|https://en.wikipedia.org/wiki/Raku_(programming_language)>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>

=end nested
=begin nested :!nested

=item1 B<L<Documentation|/doc>>
    =item2 L<Getting started, Migration guides from other languages, & Tutorials | file:../doc/introduction.podlite>
    =item2 L<Language References|file:../doc/reference.podlite>
    =item2 L<Type Reference| file:../doc/types.podlite>
    =item2 L<Miscellaneous| file:../doc/miscellaneous.podlite>
    =item2 L<FAQs (Frequently Asked Questions)|/doc/language/faq>
    =item2 L<Community|/doc/language/community>
    =item2 L<The list of all documents|file:../doc/index.podlite>

=item1 B<Resources>
    =item2 L<The Raku Guide|https://raku.guide/>
    =item2 L<Books |https://perl6book.com/>
    =item2 L<Rosetta Code | https://www.raku.org/community/rosettacode>

=end nested
=begin nested :!nested

=item1 B<Resoures>
    =item2 L<Download | file:../download/index.podlite>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>

=item1 B<Learning>
    =item2 L<The Raku Guide|https://raku.guide/>
    =item2 L<Wikibook |https://en.wikibooks.org/wiki/Raku_Programming>
    =item2 L<Books |https://perl6book.com/>
    =item2 L<Rosetta Code | https://www.raku.org/community/rosettacode>
    =item2 L<Learn Raku in Y minutes|https://learnxinyminutes.com/docs/raku/>
    =item2 L<Golfing |https://github.com/AlexDaniel/raku-golf-cheatsheet>
=end nested
=begin nested :!nested

=item1 B<Explore>
    =item2 L<Raku Blog Aggregator|https://planet.raku.org/>
    =item2 L<Rakudo Weekly|https://rakudoweekly.blog/>
    =item2 L<The Weekly Challenge |https://perlweeklychallenge.org/>
    =item2 L<Raku Advent Calendar|https://raku-advent.blog/>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>

=end nested
=end React


=begin React :component<CookieConsent> :id<CookieConsent> :buttonCaption("Got it!")
=para
This website uses cookies for analytics.
=end React


README

NAME

SYNOPSIS

DESCRIPTION

Current holiday list

SEE ALSO

AUTHOR

COPYRIGHT AND LICENSE

Holidays::Miscellaneous v0.0.1

Authors

License

Dependencies

Test Dependencies

Provides

Documentation