From 74c2a33cbd00e0689eac98555891cb28f73ce63c Mon Sep 17 00:00:00 2001
From: Don Armstrong <don@donarmstrong.com>
Date: Tue, 14 Aug 2007 03:44:46 +0000
Subject: [PATCH]  * Add alarm  * Add date/time to latex invoice

---
 alarm            |  6 ++++++
 latexize_invoice | 20 ++++++++++++--------
 2 files changed, 18 insertions(+), 8 deletions(-)
 create mode 100755 alarm

diff --git a/alarm b/alarm
new file mode 100755
index 0000000..07a5873
--- /dev/null
+++ b/alarm
@@ -0,0 +1,6 @@
+#!/bin/sh
+SLEEP=$1;
+if [ -z "$SLEEP" ]; then
+    SLEEP="15m";
+fi;
+(sleep $SLEEP; mpg123 -k 15 -n 224 '/home/don/media/jack/Plantasia/01 Plantasia.mp3' 2&>1 >/dev/null) &
diff --git a/latexize_invoice b/latexize_invoice
index 1418b46..3ab22f0 100755
--- a/latexize_invoice
+++ b/latexize_invoice
@@ -12,14 +12,16 @@
 
 
 my $time = undef;
+my $date = undef;
 my @events;
 while (<>){
-     if (/^\s*\*.+\[([^\]]+)\]\s*\[[^\]]+\]/) {
+     if (/^\s*\*\s*([^-]+)\s+-.+\[([^\]]+)\]\s*\[[^\]]+\]/) {
 	  if (defined $time) {
-	       print format_events($time,@events);
+	       print format_events($date,$time,@events);
 	  }
 	  @events = ();
-	  $time = $1;
+	  $date = $1;
+	  $time = $2;
      }
      if (/^\s+\-\s*(.+)/) {
 	  my $event = $1;
@@ -28,13 +30,15 @@ while (<>){
      }
 }
 if (defined $time) {
-     print format_events($time,@events);
+     print format_events($date,$time,@events);
 }
 
 sub format_events{
-     my ($time,@events) = @_;
-     my $output = '        \Fee{\begin{itemize*}'."\n";
-     $output .= join('',map {"          \\item $_\n"} @events);
-     $output .= '        \end{itemize*}}{50.00}{'.$time.'}'."\n";
+     my ($date,$time,@events) = @_;
+     $date =~ s/\s+\d+\:\d+\:\d+\s+[A-Z]{0,3}\s*//;
+     my $output = '        \Fee{'.$date."\n".
+	  '         \begin{itemize*}'."\n";
+     $output .= join('',map {"           \\item $_\n"} @events);
+     $output .= '         \end{itemize*}}{50.00}{'.$time.'}'."\n";
      return $output;
 }
-- 
2.39.5