From 2dcd619187f41847c335fcdf8277eed476f7231e Mon Sep 17 00:00:00 2001
From: Jan Kratochvil <jan@jankratochvil.net>
Date: Mon, 17 Jan 2022 08:52:15 +0100
Subject: [PATCH] bin/heat: Hide previous event as it has been proven as
 confusing.

---
 bin/heat | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/bin/heat b/bin/heat
index 1da4a35..77dac14 100755
--- 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;
 }
-- 
1.8.3.1