From e6a901057fd2ba5979c570b9ffcdb6fadf02f597 Mon Sep 17 00:00:00 2001
From: "Bradley M. Kuhn" <bkuhn@ebb.org>
Date: Mon, 2 Sep 2013 19:17:02 -0400
Subject: [PATCH] Rename file, and make it go to 10.

---
 org-mode-appt-check.plx | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/org-mode-appt-check.plx b/org-mode-appt-check.plx
index e1a4127..266531c 100755
--- a/org-mode-appt-check.plx
+++ b/org-mode-appt-check.plx
@@ -36,14 +36,14 @@ if ($? != 0) {
   exit 0;
 }
 my $now =  ParseDate("now");
-open(THREE_DAYS, "-|", "/usr/bin/emacs -batch -l ~/.emacs -eval '(org-batch-agenda \"a\" org-agenda-files (mapcar (lambda (arg) (replace-regexp-in-string \"~/Crypt/Orgs/\" \"~/Crypt/.org-backup/\" arg)) org-agenda-files) org-agenda-span (quote 9)  org-agenda-overriding-header \"\" org-agenda-repeating-timestamp-show-all t org-agenda-time-grid nil org-agenda-repeating-timestamp-show-all t org-agenda-entry-types (quote (:sexp :scheduled)) org-agenda-skip-function (quote bkuhn/skip-unless-appt-or-diary))' 2>/dev/null") or
+open(ORG_MODE_AGENDA, "-|", "/usr/bin/emacs -batch -l ~/.emacs -eval '(org-batch-agenda \"a\" org-agenda-files (mapcar (lambda (arg) (replace-regexp-in-string \"~/Crypt/Orgs/\" \"~/Crypt/.org-backup/\" arg)) org-agenda-files) org-agenda-span (quote 10)  org-agenda-overriding-header \"\" org-agenda-repeating-timestamp-show-all t org-agenda-time-grid nil org-agenda-repeating-timestamp-show-all t org-agenda-entry-types (quote (:sexp :scheduled))))' 2>/dev/null") or
 die "Unable to run emacs: $!";
 
 my $firstDay;
 my $dayLine = "";
 my $prettyDayLine;
 
-while (my $line = <THREE_DAYS>) {
+while (my $line = <ORG_MODE_AGENDA>) {
   my $thisLinePrintable;
   chomp $line;
   if ($line =~ /^\S+/) {
@@ -95,6 +95,9 @@ while (my $line = <THREE_DAYS>) {
     print $thisLinePrintable, "\n";
   }
 }
+close ORG_MODE_AGENDA;
+die "Error($?) reading org mode output: $!" unless $? == 0;
+exit 0;
 ###############################################################################
 #
 # Local variables: