From 57dc8030873e56453a5b66de2023720975b5061d Mon Sep 17 00:00:00 2001
From: "Bradley M. Kuhn" <bkuhn@ebb.org>
Date: Tue, 3 Sep 2013 16:47:14 -0400
Subject: [PATCH] Don't display any completed items.

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

diff --git a/org-mode-appt-check.plx b/org-mode-appt-check.plx
index 5acd1e3..92a65ce 100755
--- a/org-mode-appt-check.plx
+++ b/org-mode-appt-check.plx
@@ -63,6 +63,8 @@ while (my $line = <ORG_MODE_AGENDA>) {
     } else {
       $type = $source;
     }
+    next if $type =~ /(DELEGATED|DONE|DEFFERRED|CANCELLED)/i;
+
     $startHour = "0$startHour" if length($startHour) == 1;
     my $start = "$startHour:$startMin";
     my $date =  ParseDate("$dayLine $start");