bin/heat: Hide previous event as it has been proven as confusing.

[nethome.git] / bin / heat

diff --git a/bin/heat b/bin/heat
index 1da4a35..77dac14 100755 (executable)
--- a/bin/heat
+++ b/bin/heat
@@ -78,7 +78,7 @@ sub schedulenext($) {
   die "No bestnext" if !defined $bestnext;
   return [$prev,$next];
 }
-$finishline=schedulenext $minutes;
+$finishline=[schedulenext($minutes)->[1]];
 my $silent=shift if ($ARGV[0]||"") eq "-s";
 logmsg "command: ".join(" ",@ARGV) if !$silent&&@ARGV;
 sub info($) {
@@ -108,7 +108,7 @@ if (defined $reset) {
 sub finishlinereset() {
   $finishline=schedulenext $resetminutes;
   if ($finishline) {
-    splice @$finishline,1,0,$reset;
+    $finishline=[$reset,$finishline->[1]];
   } else {
     $finishline=[$reset];
   }
@@ -156,7 +156,7 @@ if (!defined $newreset) {
   setstate;
   if (!$silent&&defined $reset) {
     unlink_resetfile;
-    $finishline=schedulenext $minutes;
+    $finishline=[schedulenext($minutes)->[1]];
   }
   finish;
 }