bkuhn/small-hacks
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Generate Diary from new events first hack.

Browse source
This commit is contained in:
Bradley M. Kuhn 2013-11-30 13:37:44 -05:00
parent a706e3c17c
commit 1cde493a58
1 changed files with 24 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
calendar-import.plx
View file

@ -123,6 +123,30 @@ sub read_from_process
} }
} }
############################################################################### ###############################################################################
sub GenerateDiaryFromNewEvents ($) {
my($config) = @_;
chdir $config->{gitDir} or DieLog("Unable to change directory to $config->{gitDir}");
system($emacsSettings->{gitBinary}, 'checkout', $config->{incomingBranch});
DieLog("Unable to checkout $config->{incomingBranch} branch in git") unless ($? == 0);
my @gitDiffSummaryOutput =
read_from_process($emacsSettings->{gitBinary}, 'diff-index', $config->{myBranch});
my %operations;
foreach my $line (@gitDiffSummaryOutput) {
next if $line ~= /$ENV{USER}/; # Ignore lines that aren't for my calendar.
DieLog("odd line in diff-index output: $line") unless
$line =~ /(A|D|M)\s+(\S+)$/;
my($operation, $file) = ($1, $2);
$operations{$file} = $operation;
}
foreach my $file (keys %operations) {
HandleProposedEvent($config, $file, $operations{$file});
}
}
###############################################################################
system("/usr/bin/lockfile -r 8 $CALENDAR_LOCK_FILE"); system("/usr/bin/lockfile -r 8 $CALENDAR_LOCK_FILE");
DieLog("Failure to acquire calendar lock on $CALENDAR_LOCK_FILE") unless ($? == 0); DieLog("Failure to acquire calendar lock on $CALENDAR_LOCK_FILE") unless ($? == 0);