Because User::Language is designed to be, in effect, a core Intl module, it is allowed
only *one* dependency: C<Intl::LanguageTag>. This means that many operations that would
be very simple elsewhere by, e.g. consulting Intl::CLDR must be 100% self-contained here.


Due to the added complexity of handling potentially complicated lookups, it is
recommended that highly specialized look ups (e.g. major distributions of operating
systems) be farmed out into specialized modules C<Intl::UserLanguage::OS-Name>.
At the present moment, these are called individually by subs, but as that necessitates
some overhead for each one, a different solution will be devised later that will
load on demand or integrate the calls at build/compile time.



my package UserLanguage {
    my @languages;        #= The user's preferred languages
    my @languages-backup; #= The 'backup' when overriding, effectively a temp var
    my @fallback;         #= The fallback, in case languages could not be determined (rare)
}

# Because we allow the positional arguments,
# the use of the EXPORT sub is obligatory.

#| Exports the User::Language routines into the current scope
sub EXPORT (
        +@fallback-languages #= The language tag(s) to use as the fallback if language detection fails
) {
    use Intl::LanguageTag:auth<zef:guifa>:ver<0.12+>;
    use User::Language::Linux;
    use User::Language::Mac;
    use User::Language::Windows;

    # There are only three variables that need to be persistent
    my LanguageTag() @languages;        #= The user's preferred languages
    my               @languages-backup; #= The 'backup' when overriding, effectively a temp var
    my               @fallback;         #= The fallback, in case languages could not be determined (rare)

    # The fallback can either be specified in the 'use' statement, or defaults
    # to English (because linguistic hegemony and all -- but don't think I haven't
    # been tempted to set it to something like Guarani just for funsies).
    @fallback = @fallback-languages
        ?? @fallback-languages
        !! 'en';


    #| Obtains the user’s preferred language(s) in LanguageTag format.
    sub user-languages(+@default) {
        return @languages if @languages;
        say "detecting";
        @languages =
            do given $*DISTRO  {
                when .is-win   {  windows     }
                when /macos/   {    mac       }
                when /linux/   {   linux      }
                CATCH          {  default {}  }  # By doing nothing, we fall through to…
            } //               ( @default        # Return the fallback,
                                 || @fallback ); #   or defined at 'use'
    }

  #| Obtains the user’s preferred language in LanguageTag format.
  sub user-language($default = Empty) {
      user-languages($default).head;
  }

  Map.new:
          '&user-language'  => &user-language,
          '&user-languages' => &user-languages,
}


my package EXPORT::override {
    &OUR::override-user-languages =
        sub override-user-languages(+@languages is copy) {
            use Intl::LanguageTag;
            @UserLanguage::languages-backup = @UserLanguage::languages;
            @UserLanguage::languages        = @languages
        };

    &OUR::clear-user-language-override =
        sub clear-user-language-override {
            @UserLanguage::languages = @UserLanguage::languages-backup;
        }
}


root

Linux

README

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


=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


Language

User::Language v0.5.0

Authors

License

Dependencies

Test Dependencies

Provides

Documentation