App-cal-idn
view release on metacpan or search on metacpan
0.04 2013-10-05 Released-By: SHARYANTO
- Add option --show-joint-leave.
0.03 2013-04-03 Released-By: SHARYANTO
- No functional changes. Some display tweaks (short day of week names,
not showing prev/next month's days if we are showing more than one
month of calendar).
0.02 2013-04-03 Released-By: SHARYANTO
- Add options: -1, -3, -y, -h, -L.
0.01 2013-04-03 Released-By: SHARYANTO
- First release.
{
"abstract" : "Display Indonesian calendar on the command-line",
"author" : [
"perlancar <perlancar@cpan.org>"
],
"dynamic_config" : 0,
"generated_by" : "Dist::Zilla version 6.030, CPAN::Meta::Converter version 2.150010",
"license" : [
"perl_5"
],
"meta-spec" : {
"url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec",
---
abstract: 'Display Indonesian calendar on the command-line'
author:
- 'perlancar <perlancar@cpan.org>'
build_requires:
File::Spec: '0'
IO::Handle: '0'
IPC::Open3: '0'
Test::More: '0'
configure_requires:
ExtUtils::MakeMaker: '0'
dynamic_config: 0
Makefile.PL view on Meta::CPAN
# This file was automatically generated by Dist::Zilla::Plugin::MakeMaker v6.030.
use strict;
use warnings;
use 5.010001;
use ExtUtils::MakeMaker;
my %WriteMakefileArgs = (
"ABSTRACT" => "Display Indonesian calendar on the command-line",
"AUTHOR" => "perlancar <perlancar\@cpan.org>",
"CONFIGURE_REQUIRES" => {
"ExtUtils::MakeMaker" => 0
},
"DISTNAME" => "App-cal-idn",
"EXE_FILES" => [
"script/cal-idn"
],
"LICENSE" => "perl",
"MIN_PERL_VERSION" => "5.010001",
NAME
App::cal::idn - Display Indonesian calendar on the command-line
VERSION
This document describes version 0.137 of App::cal::idn (from Perl
distribution App-cal-idn), released on 2023-07-11.
SYNOPSIS
# See cal-idn script provided in this distribution
DESCRIPTION
This module provides the cal-idn command to display Indonesian calendar
on the command-line.
FUNCTIONS
gen_calendar
Usage:
gen_calendar(%args) -> [$status_code, $reason, $payload, \%result_meta]
Generate one or more monthly calendars in 3-column format.
This function is not exported.
Arguments ('*' denotes required arguments):
* highlight_today => *bool* (default: 1)
(No description)
* month => *int*
element ($reason) is a string containing error message, or something
like "OK" if status is 200. Third element ($payload) is the actual
result, but usually not present when enveloped result is an error
response ($status_code is not 2xx). Fourth element (%result_meta) is
called result metadata and is optional, a hash that contains extra
information, much like how HTTP response headers provide additional
metadata.
Return value: (any)
gen_monthly_calendar
Usage:
gen_monthly_calendar(%args) -> any
Generate a single month calendar.
Return [\@lines, \@hol]
This function is not exported.
Arguments ('*' denotes required arguments):
* highlight_today => *bool* (default: 1)
(No description)
lib/App/cal/idn.pm view on Meta::CPAN
our $DIST = 'App-cal-idn'; # DIST
our $VERSION = '0.137'; # VERSION
my $month_names = [qw(Januari Februari Maret April Mei Juni Juli Agustus September Oktober November Desember)];
my $short_month_names = [qw(Jan Feb Mar Apr Mei Jun Jul Agt Sep Okt Nov Des)];
our %SPEC;
$SPEC{':package'} = {
v => 1.1,
summary => 'Display Indonesian calendar on the command-line',
};
sub _center {
my ($w, $text) = @_;
my $tw = length($text);
sprintf("%s%s%s",
(" " x int(($w-$tw)/2)),
$text,
(" " x int(($w-$tw)/2)),
);
}
sub _rpad {
my ($w, $text) = @_;
sprintf("%s%s", $text, " " x ($w-ta_length($text)));
}
$SPEC{gen_monthly_calendar} = {
v => 1.1,
summary => 'Generate a single month calendar',
description => <<'_',
Return [\@lines, \@hol]
_
args => {
month => {
schema => ['int*' => between => [1, 12]],
req => 1,
},
lib/App/cal/idn.pm view on Meta::CPAN
highlight_today => {
schema => [bool => default => 1],
},
time_zone => {
schema => 'str*',
},
},
"x.perinci.sub.wrapper.disable_validate_args" => 1,
result_naked => 1,
};
sub gen_monthly_calendar {
my %args = @_;
my $m = $args{month};
my $y = $args{year};
my @lines;
my $tz = $args{time_zone} // $ENV{TZ} // "UTC";
my $dt = DateTime->new(year=>$y, month=>$m, day=>1, time_zone=>$tz);
my $dtl = DateTime->last_day_of_month(year=>$y, month=>$m, time_zone=>$tz);
my $dt_today = DateTime->today(time_zone=>$tz);
my $hol = list_idn_holidays(
lib/App/cal/idn.pm view on Meta::CPAN
$dow = $dt->day_of_week - 1; $dow = 7 if $dow == 0;
for my $i ($dow+1..7) {
$lines[-1] .= colored(sprintf("%2d ", $dt->day), "bright_black");
$dt->add(days => 1);
}
}
return [\@lines, $hol];
}
$SPEC{gen_calendar} = {
v => 1.1,
summary => 'Generate one or more monthly calendars in 3-column format',
args => {
months => {
schema => ['int*', min=>1, max=>12, default=>1],
},
year => {
schema => ['int*'],
req => 1,
},
month => {
summary => 'The first month',
lib/App/cal/idn.pm view on Meta::CPAN
},
highlight_today => {
schema => [bool => default => 1],
},
time_zone => {
schema => 'str*',
},
},
"x.perinci.sub.wrapper.disable_validate_args" => 1,
};
sub gen_calendar {
my %args = @_;
my $y = $args{year};
my $m = $args{month};
my $mm = $args{months} // 1;
my $tz = $args{time_zone} // $ENV{TZ} // "UTC";
my @lines;
my %margs = (
highlight_today => ($args{highlight_today} // 1),
lib/App/cal/idn.pm view on Meta::CPAN
}
$m or return [400, "Please specify month"];
if ($mm > 1) {
$margs{show_prev_month_days} = 0;
$margs{show_next_month_days} = 0;
}
my @moncals;
my $dt = DateTime->new(year=>$y, month=>$m, day=>1, time_zone=>$tz);
for (1..$mm) {
push @moncals, gen_monthly_calendar(
month=>$dt->month, year=>$dt->year, time_zone=>$tz, %margs);
$dt->add(months => 1);
}
my @hol = map {@{ $_->[1] }} @moncals;
my $l = max(map {scalar @$_} map {$_->[0]} @moncals);
my $i = 0;
my $j = @moncals;
while (1) {
for (0..$l-1) {
push @lines,
lib/App/cal/idn.pm view on Meta::CPAN
for my $i (0..@hol-1) {
push @lines, "" if $i == 0;
push @lines, sprintf("%2d %s = %s", $hol[$i]{day}, $short_month_names->[$hol[$i]{month}-1], $hol[$i]{ind_name});
}
}
[200, "OK", join("\n", @lines)];
}
1;
# ABSTRACT: Display Indonesian calendar on the command-line
__END__
=pod
=encoding UTF-8
=head1 NAME
App::cal::idn - Display Indonesian calendar on the command-line
=head1 VERSION
This document describes version 0.137 of App::cal::idn (from Perl distribution App-cal-idn), released on 2023-07-11.
=head1 SYNOPSIS
# See cal-idn script provided in this distribution
=head1 DESCRIPTION
This module provides the L<cal-idn> command to display Indonesian calendar on
the command-line.
=head1 FUNCTIONS
=head2 gen_calendar
Usage:
gen_calendar(%args) -> [$status_code, $reason, $payload, \%result_meta]
Generate one or more monthly calendars in 3-column format.
This function is not exported.
Arguments ('*' denotes required arguments):
=over 4
=item * B<highlight_today> => I<bool> (default: 1)
(No description)
lib/App/cal/idn.pm view on Meta::CPAN
(200 means OK, 4xx caller error, 5xx function error). Second element
($reason) is a string containing error message, or something like "OK" if status is
200. Third element ($payload) is the actual result, but usually not present when enveloped result is an error response ($status_code is not 2xx). Fourth
element (%result_meta) is called result metadata and is optional, a hash
that contains extra information, much like how HTTP response headers provide additional metadata.
Return value: (any)
=head2 gen_monthly_calendar
Usage:
gen_monthly_calendar(%args) -> any
Generate a single month calendar.
Return [\@lines, \@hol]
This function is not exported.
Arguments ('*' denotes required arguments):
=over 4
=item * B<highlight_today> => I<bool> (default: 1)
script/cal-idn view on Meta::CPAN
$args{year} = $dt->year;
}
if ($args{months} == 3) {
$dt = DateTime->new(year=>$args{year}, month=>$args{month}//1, day=>1);
$dt->subtract(months=>1);
$args{month} = $dt->month;
$args{year} = $dt->year;
}
my $res = App::cal::idn::gen_calendar(%args);
die $res->[1] unless $res->[0] == 200;
say $res->[2];
1;
# ABSTRACT: Display Indonesian calendar on the command-line
# PODNAME: cal-idn
__END__
=pod
=encoding UTF-8
=head1 NAME
cal-idn - Display Indonesian calendar on the command-line
=head1 VERSION
This document describes version 0.137 of cal-idn (from Perl distribution App-cal-idn), released on 2023-07-11.
=head1 SYNOPSIS
# show calendar for the current month
% cal-idn
# show calendar for the whole year
% cal-idn 2013
# show calendar for a certain month and year
% cal-idn 12 2013
=head1 DESCRIPTION
This command provides a subset of the Unix command B<cal> functionality for
displaying Indonesian calendar. It starts the week at Monday and highlights (and
lists) Indonesian holidays.
Background: I needed a quick and easy way to see monthly (and sometimes yearly)
calendar, since I haven't got a desk calendar on my desk for years (decades,
even).
=head1 OPTIONS
% cal-idn [opts] [[month] year]
Most options follow corresponding options of B<cal>. Not all options from B<cal>
are supported/recognized. Some options (long ones) are specific to B<cal-idn>.
=head2 -1
Show a single month of calendar (the default).
=head2 -3
Show three months of calendar (previous, current, next).
=head2 -h
Turn off highlighting of today.
=head2 -y
Show one year (12 months) of calendar (the default if only year is specified).
=head2 --noshow-holiday-list (-L)
Turn off showing list of holidays.
=head2 --show-joint-leave
Turn on showing list of joint leaves (cuti bersama). By default it is turned
off.
( run in 2.234 seconds using v1.01-cache-2.11-cpan-75ffa21a3d4 )