From c24a48624af5e6468255cfec0c8843c1669ca5bc Mon Sep 17 00:00:00 2001 From: "Bradley M. Kuhn" Date: Tue, 3 Sep 2013 10:45:04 -0400 Subject: [PATCH] "from" sometimes made these strings too long. --- org-mode-appt-check.plx | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/org-mode-appt-check.plx b/org-mode-appt-check.plx index f93e0d4..8b701bb 100755 --- a/org-mode-appt-check.plx +++ b/org-mode-appt-check.plx @@ -77,7 +77,7 @@ while (my $line = ) { } # Diaries and appointments are always printed, and have notifier. 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); # 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 @@ -102,7 +102,7 @@ while (my $line = ) { } } } 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 ($firstDay or $type =~ /(birthday|anniversary)/i or $source =~ /(birthday|anniversary)/i));