path: root/calendar/dayplan_revised.pl

#!/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 gcal_block {
    my @output;
    push @output, "\n## Google Calendar:\n";
    my $caldata= `/home/lemon/src/virtualenvs/khal-venv/bin/khal list`;
    my @lines = split(/\n/, $caldata);	
    foreach my $l (@lines) {
        my $s = sprintf("%s\n", $l);
        push @output, $s;
    }
    return @output;
}

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 -t 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),
        gcal_block,
        # 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();