MirrorMirror
/
lufi
mirror of https://framagit.org/fiat-tux/hat-softwares/lufi.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

🌐 Add Date::Language::Occitan to not have to wait for a new Date::Language release 

Thanks to Quenti! 😘
Related Date::Language PR: https://github.com/gbarr/perl-TimeDate/pull/18
This commit is contained in:
Luc Didry 2019-08-03 14:29:09 +02:00
parent 913ae97ad3
commit 2c98a3b8b5
No known key found for this signature in database
GPG Key ID: EA868E12D0257E3C
2 changed files with 37 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
lib/Date/Language/Occitan.pm Normal file
View File

@ -0,0 +1,36 @@
##
## Occitan tables, contributed by Quentn PAGÈS
##
package Date::Language::Occitan;
use Date::Language ();
use vars qw(@ISA @DoW @DoWs @MoY @MoYs @AMPM @Dsuf %MoY %DoW $VERSION);
@ISA = qw(Date::Language);
$VERSION = "1.04";
@DoW = qw(dimenge diluns dimars dimècres dijòus divendres dissabte);
@MoY = qw(genièr febrièr mars abrial mai junh
julhet agost octòbre novembre decembre);
@DoWs = map { substr($_,0,3) } @DoW;
@MoYs = map { substr($_,0,3) } @MoY;
$MoYs[6] = 'jul';
@AMPM = qw(AM PM);
@Dsuf = ((qw(er e e e e e e e e e)) x 3, 'er');
@MoY{@MoY} = (0 .. scalar(@MoY));
@MoY{@MoYs} = (0 .. scalar(@MoYs));
@DoW{@DoW} = (0 .. scalar(@DoW));
@DoW{@DoWs} = (0 .. scalar(@DoWs));
# Formatting routines
sub format_a { $DoWs[$_[0]->[6]] }
sub format_A { $DoW[$_[0]->[6]] }
sub format_b { $MoYs[$_[0]->[4]] }
sub format_B { $MoY[$_[0]->[4]] }
sub format_h { $MoYs[$_[0]->[4]] }
sub format_p { $_[0]->[2] >= 12 ? $AMPM[1] : $AMPM[0] }
1;

1
lib/Lufi/Plugin/Helpers.pm
View File

@ -208,6 +208,7 @@ my %date_langs = (
it => 'Italian',
nn => 'Norwegian',
om => 'Oromo',
oc => 'Occitan',
ro => 'Romanian',
ru => 'Russian',
so => 'Somali',