#!/usr/bin/env -S perl
# Porting dayplan.ksh to Perl
use strict;
use warnings;
use DateTime;
use JSON;
use Archive::Tar;
use IO::Zlib;
use feature qw(say);
sub search_in_tgz {
my ($archive_file, $search_string) = @_;
my $tar = Archive::Tar->new;
my @out;
$tar->read($archive_file);
# Iterate through the files in the archive in memory
foreach my $file ($tar->get_files) {
# Check if the file matches your filter (e.g., .txt extension)
if ($file->name =~ /\.md$/) {
# Get the content of the file and process it as needed
my $file_content = $file->get_content;
# Perform your desired operations on $file_content
# For example, you can print it or manipulate it here
my @lines = split(/\n/, $file_content);
foreach my $line (@lines) {
if ($line =~ /$search_string/) {
# print "File name: " . $file->name . ": " . $line . "\n";
push(@out, $line);
}
}
}
}
return @out;
}
sub this_day {
my ($month, $day) = @_;
$day = "0$day" if $day < 10;
my @out;
my $archive_path = "/home/lemon/Documents/Notes/journal/archives/journal_archive_aug23.tgz";
my $tar = Archive::Tar->new;
$tar->read($archive_path);
foreach my $file ($tar->get_files) {
if ($file->name =~ /\d\d\d\d-$month-$day\.md/) {
my @lines = split(/\n/, $file->get_content);
foreach my $line (@lines) {
if ($line =~ /^- \d\d:\d\d/) {
my $stripped = $file->name =~ s/\.md//r;
push @out, $stripped . " " . $line . "\n";
}
}
}
}
return @out;
}
my $dayplans = '/home/lemon/Documents/Notes/journal/day_plans';
#my $dayplans = "/tmp/dayplans";
sub parse_args {
my $numargs = $#ARGV + 1;
my @weekdays = qw(Monday Tuesday Wednesday Thursday Friday Saturday Sunday);
if ($numargs == 1) {
my ($y, $m, $d) = $ARGV[0] =~ /(\d\d\d\d)-(\d\d)-(\d\d)/;
my $dt = DateTime->new(
year => $y,
month => $m,
day => $d
);
my $weekday = $weekdays[$dt->day_of_week - 1];
return ($dt, $d, $m, $y, $weekday);
}
else {
my $dt = DateTime->today;
my $d = $dt->day;
my $m = $dt->month;
my $y = $dt->year;
my $weekday = $weekdays[$dt->day_of_week - 1];
return ($dt, $d, $m, $y, $weekday);
}
}
my ($date, $day, $month, $year, $weekday) = parse_args();
sub get_quicknotes_and_quickfiles {
my @quicknotes;
my @qfiles;
foreach my $f (glob("$dayplans/*")) {
open my $fh, "<", $f or die "Cannot open f";
while (<$fh>) {
if ($_ =~ /^- (.*)$/) {
push @quicknotes => "- $1\n";
push @qfiles => "$f\n";
};
}
}
my %riddups = map { $_, "" } @quicknotes;
@quicknotes = keys %riddups;
my %riddfiles = map { $_, "" } @qfiles;
@qfiles = keys %riddfiles;
return (\@quicknotes, \@qfiles);
}
sub headerblock {
my $dt = shift;
my $d = shift;
my $y = shift;
my $weekday = shift;
my $mname = $dt->month_name;
return "# $weekday $d $mname $y\n
";
}
sub qnoteblock {
$" = "";
my $quicknotes_ref =shift;
my $qfiles_ref = shift;
my $qnote_block;
if (scalar @{$quicknotes_ref} == 0) {
$qnote_block = "## Quicknotes:\nNo quicknotes today.\n";
} else
{
unshift @$quicknotes_ref, "## Quicknotes:\n";
$qnote_block = "@{$quicknotes_ref}"."from:"."\n"."@{$qfiles_ref}";
}
return $qnote_block;
}
sub schoolblock {
my $day = shift;
if ($day =~ /Saturday|Sunday/) {
return "";
} else
{
return "
08:20 - Harvey to school
08:40 - Sophie to school
09:00 - 09:00 - Misc ";
}
}
sub twblock {
my ($y, $m, $d, $project, $type) = @_;
$m = sprintf("%02d", $m);
$d = sprintf("%02d", $d);
my $json = JSON->new->allow_nonref;
my $tw= qx(task project:$project status:pending $type:$y-$m-$d export);
my @output;
push @output, "## Taskwarrior $type - $project:\n";
if ($tw eq "") {
push @output, "* No tasks";
push @output, "\n";
return @output;
} else
{
my $text = $json->decode( $tw );
foreach my $h (@{$text}) {
push @output, sprintf ("* %-16s: %s\n", ${$h}{'project'}, ${$h}{'description'});
}
push @output, "\n";
return @output;
}
}
sub remindersblock {
my ($y, $m, $d) = @_;
my $reminders = qx(ssh bobbins remind ~/.reminders $y-$m-$d);
$reminders =~ s/\s{2,}/\n/gs;
$reminders =~ s/^Reminders.+\:\n//;
my @rems = split /\n/, $reminders;
my @out_rems;
foreach my $r (@rems) {
my $s = sprintf("* %s\n", $r);
push @out_rems, $s;
}
unshift @out_rems, "\n## Reminders:\n";
return @out_rems;
}
sub timeblock {
return "
09:30 - 10:00 -
10:00 - 11:00 -
11:00 - 12:00 -
12:15 - 13:00 - Lunch
13:00 - 14:00 -
14:00 - 15:00 -
15:00 - 16:00 -
16:00 - 17:00 -
";
}
sub historic_lines_block {
my ($month, $day) = @_;
my @historic_lines = this_day($month, $day);
# foreach my $line (@historic_lines) {
# say $line;
# }
unshift @historic_lines, "\n## On this day in history....\n";
if (scalar @historic_lines == 0) {
push @historic_lines, "There are no historic logs for today...\n";
return @historic_lines;
} else {
return @historic_lines;
}
}
sub generate_text {
my ($quicknotes_ref, $qfiles_ref) = get_quicknotes_and_quickfiles();
return
headerblock($date, $day, $year, $weekday),
twblock($year, $month, $day, "w", "sched"),
twblock($year, $month, $day, "h", "sched"),
twblock($year, $month, $day, "w", "due"),
twblock($year, $month, $day, "h", "due"),
qnoteblock($quicknotes_ref, $qfiles_ref),
remindersblock($year, $month, $day),
schoolblock($day),
timeblock,
historic_lines_block($month, $day);
}
sub write_file {
my $f = shift;
my $dt = shift;
open( FH, ">$f");
print FH generate_text;
my $today = DateTime->today;
if ($today != $dt) {
printf (FH "\nWARNING: This dayplan was generated in advance on %d-%02d-%d. Reminders and quicknotes may not be up to date.", $today->year, $today->month, $today->day);
}
close FH;
exec("vim", "$f");
}
sub main {
my $today_planner = sprintf("%s/%d-%02d-%02d.md", $dayplans, $year ,$month, $day);
if (-e $today_planner) {
exec("vim", "$today_planner");
} else
{
write_file($today_planner, $date);
}
}
main();
