Support querying only yesterday and today

diff --git a/src/InfoCon/stempel/stempel b/src/InfoCon/stempel/stempel
index ec2c4fb..f57499a 100755 (executable)
--- a/src/InfoCon/stempel/stempel
+++ b/src/InfoCon/stempel/stempel
@@ -270,9 +270,13 @@ sub list
     } elsif ($month =~ /^(\d\d?)$/) {
        my $pivot = $d_year+1900 . '-' . $1 . '-01';
        $query .= "AND start >= '$pivot' AND start <= '$pivot'::date + interval '1 month' ";
-    } elsif (length $month && $month !~ /^all$/) {
+    } elsif (length $month && $month eq 'today') {
+       $query .= "AND start::date = now()::date ";
+    } elsif (length $month && $month =~ /^yester(day)?$/) {
+       $query .= "AND start::date = (now() - interval '1 day')::date ";
+    } elsif (length $month && $month !~ /^(all|current)$/) {
        $query .= "AND task LIKE '%${month}%' ";
-    } elsif ($month !~ /^all$/) {
+    } elsif ($month !~ /^all$/ || $month eq 'current') {
        my $pivot = sprintf('%04d-%02d-01', $d_year+1900, $d_mon+1);
        $query .= "AND start >= '$pivot' AND start <= '$pivot'::date + interval '1 month' ";
     }
@@ -371,7 +375,7 @@ sub help
 {
     print <<"END";
 stempel  Copyright (c) 2007,8  Martin Schulze <joey\@infodrom.org>
-    --list [month] list month [default=current|all]
+    --list [month] list month [default=current|all|yesterday|today]
     --back n       move start of current task back by n minutes
     --open         list open
     --close time   close open task