para

use v6.d;
unit module Date::Calendar::Bahai::Names:ver<0.1.0>:auth<zef:jforget>:api<1>;

my %month-names = 'ar' => ( "Bahá"     , "Jalál"  , "Jamál" , "‘Aẓamat"   , "Núr"
                          , "Rahmat"   , "Kalimát", "Kamál" , "Asmá'"     , "'Izzat"
                          , "Mashíyyat", "'Ilm"   , "Qudrat", "Qawl"      , "Masá'il"
                          , "Sharaf"   , "Sultán" , "Mulk"  , "Ayyám-i-Há", "'Alá"
                         )
                , 'en' => ( "Splendour", "Glory"      , "Beauty"    , "Grandeur"      , "Light"
                          , "Mercy"    , "Words"      , "Perfection", "Names"         , "Might"
                          , "Will"     , "Knowledge"  , "Power"     , "Speech"        , "Questions"
                          , "Honour"   , "Sovereignty", "Dominion"  , "The Days of Há", "Loftiness"
                          )
                , 'fr' => ( "Gloire"    , "Splendeur"   , "Beauté"    , "Grandeur"   , "Lumière"
                         , "Miséricorde", "Paroles"     , "Perfection", "Noms"       , "Puissance"
                         , "Volonté"    , "Connaissance", "Pouvoir"   , "Discours"   , "Questions"
                         , "Honneur"    , "Souveraineté", "Empire"    , "Jours de Há", "Élévation"
                         ) ;

my %month-abbr  = 'ar' => < Bah Jal Jam Aza Nur Rah Kal Kal Asm Izz Mat Ilm Qud Qaw Mal Sha Sul Mul Ayy Ala >
                , 'en' => < Glo Spl Bea Gra Lig Mer Wor Per Nam Mig Wil Kno Pow Spe Que Hon Sov Dom Add Lof >
                , 'fr' => < Glo Spl Bea Gra Lum Mis Par Per Nom Pui Pou Vol Cnn Dis Que Hon Sou Emp Int Ele >
;

my %day-names  =  'ar' => <  Jalál    Jamál    Kamál      Fiḍál    ʻIdál    Istijlál    Istiqlál     >
                , 'en' => <  Glory    Beauty   Perfection Grace    Justice  Majesty     Independence >
                , 'fr' => <  Gloire   Beauté   Perfection Grâce    Justice  Majesté     Indépendance >
;

my %day-abbr  =   'ar' => < Jal Jam Kam Fid Ida Isj Isq >
                , 'en' => < Glo Bea Per Gra Jus Maj Ind >
                , 'fr' => < Glo Bea Per Gra Jus Maj Ind >
;

my %cycle-year-names = 'ar' => < Alif   Bá'   Ab   Dál    Báb
                                 Váv    Abad  Jád  Bahá   Ḥubb
                                 Bahháj Javáb Aḥad Vahháb Vidád
                                 Badíʿ  Bahí  Abhá Váḥid
                               >
                     , 'en' => ( "A"         , "B"       , "Father"       , "D"        , "Gate"
                               , "V"         , "Eternity", "Generosity"   , "Splendour", "Love"
                               , "Delightful", "Answer"  , "Single"       , "Bountiful", "Affection"
                               , "Beginning" , "Luminous", "Most Luminous", "Unity"
                               )
                     , 'fr' => ( "A"        , "B"        , "Père"          , "D"        , "Porte"
                               , "V"        , "Éternité" , "Générosité"    , "Splendeur", "Amour"
                               , "Délicieux", "Réponse"  , "Unique"        , "Libéral"  , "Affection"
                               , "Début"    , "Splendide", "Plus Splendide", "Unité"
                               );


our sub allowed-locale(Str:D $locale) {
  %month-names{$locale}:exists;
}

our sub month-name(Str:D $locale, Int:D $month --> Str) {
  %month-names{$locale}[$month - 1];
}

our sub month-abbr(Str:D $locale, Int:D $month --> Str) {
  %month-abbr{$locale}[$month - 1];
}

our sub day-name(Str:D $locale, Int:D $index --> Str) {
  %day-names{$locale}[$index - 1];
}

our sub day-abbr(Str:D $locale, Int:D $index --> Str) {
  %day-abbr{$locale}[$index - 1];
}

our sub cycle-year-name(Str:D $locale, Int:D $index --> Str) {
  %cycle-year-names{$locale}[$index - 1];
}




head

Date::Calendar::Bahai::Names - string values for the Baháʼí calendar


code

=begin code :lang<raku>

use Date::Calendar::Bahai;

=end code


Date::Calendar::Bahai::Names  is a  utility  module, providing  string
values for the main module Date::Calendar::Bahai.


The names come from
L<https://icalendrier.fr/calendriers-saga/calendriers/baha-i>


The English names come from
L<https://en.wikipedia.org/wiki/Bah%C3%A1%27%C3%AD_calendar>


L<Date::Bahai::Simple|https://metacpan.org/pod/Date::Bahai::Simple>


C<calendar/cal-bahai.el>  in emacs  or xemacs.


CALENDRICA 4.0 -- Common Lisp, which can be download in the "Resources" section of
L<https://www.cambridge.org/us/academic/subjects/computer-science/computing-general-interest/calendrical-calculations-ultimate-edition-4th-edition?format=PB&isbn=9781107683167>


Calendrical Calculations (Third or Fourth Edition) by Nachum Dershowitz and
Edward M. Reingold, Cambridge University Press, see
L<http://www.calendarists.com>
or L<https://www.cambridge.org/us/academic/subjects/computer-science/computing-general-interest/calendrical-calculations-ultimate-edition-4th-edition?format=PB&isbn=9781107683167>.


L<https://bahai-library.com/uhj_badi_calendar_2014>


L<https://www.badi-calendar.com/faq.php>


L<https://www.funaba.org/cc>
(website no longer works).


L<https://en.wikipedia.org/wiki/Bah%C3%A1%27%C3%AD_calendar>


L<https://icalendrier.fr/calendriers-saga/calendriers/baha-i> (in French)


Jean Forget <J2N-FORGET at orange dot fr>


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


root

Bahai

Common

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<AI|file:../mcp/index.podlite>
=para L<Download |file:../download/index.podlite>
=para L<About|file:../about/index.podlite>
=para 🔍 K<⌘K>/K<ctrl-K>
=end React


=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<Download | file:../download/index.podlite>
    =item2 L<Raku cheat sheet|https://github.com/Raku/mu/blob/master/docs/Perl6/Cheatsheet/cheatsheet.txt>
    =item2 L<Raku on Exercism|https://exercism.org/tracks/raku>
    =item2 L<Wikipedia|https://en.wikipedia.org/wiki/Raku_(programming_language)>

=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>
    =item2 L<Hand these documents to an AI assistant|file:../mcp/index.podlite>

=end nested
=begin nested :!nested
=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/>

=end nested
=end React


Built with L<Podlite|https://podlite.org> — the markup and publishing tools behind this site.


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


Names

NAME

SYNOPSIS

DESCRIPTION

SOURCES

SEE ALSO

Perl 5 Software

Other Software

Books

Internet

AUTHOR

COPYRIGHT AND LICENSE

Date::Calendar::Bahai v0.1.0

Authors

License

Dependencies

Test Dependencies

Provides

Documentation