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

"from" sometimes made these strings too long.

Browse source
This commit is contained in:
Bradley M. Kuhn 2013-09-03 10:45:04 -04:00
parent 46edc5c63f
commit c24a48624a
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
org-mode-appt-check.plx
View file

@ -77,7 +77,7 @@ while (my $line = <ORG_MODE_AGENDA>) {
} }
# Diaries and appointments are always printed, and have notifier. # Diaries and appointments are always printed, and have notifier.
if ($source =~ /(Diary|APPT)/i or $type =~ /(Diary|APPT)/i) { if ($source =~ /(Diary|APPT)/i or $type =~ /(Diary|APPT)/i) {
$thisLinePrintable = " $start$end $rest\${alignr 10} (from $source)" $thisLinePrintable = " $start$end $rest\${alignr 10} ($source)"
if ($endDate gt $now); if ($endDate gt $now);
# At this point, we'd hope we'd hit a "\S+" line, which would indicate # At this point, we'd hope we'd hit a "\S+" line, which would indicate
# that there's a date in this output, as they start at column 0 on the # that there's a date in this output, as they start at column 0 on the
@ -102,7 +102,7 @@ while (my $line = <ORG_MODE_AGENDA>) {
} }
} }
} else { # Source isn't a diary or appointment } else { # Source isn't a diary or appointment
$thisLinePrintable = " $start$end $rest\${alignr 10}(from $source)" $thisLinePrintable = " $start$end $rest\${alignr 10}($type, $source)"
if (($endDate gt $now) and if (($endDate gt $now) and
($firstDay or $type =~ /(birthday|anniversary)/i ($firstDay or $type =~ /(birthday|anniversary)/i
or $source =~ /(birthday|anniversary)/i)); or $source =~ /(birthday|anniversary)/i));