From 39f88320df5ae0ae9ceaad33a47d713dbd9c74a2 Mon Sep 17 00:00:00 2001
From: Ben Sima <ben@bsima.me>
Date: Wed, 17 Feb 2021 10:33:47 -0500
Subject: hledger-overview: add yellow for 95% complete metrics

---
 hledger-overview.hs | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

(limited to 'hledger-overview.hs')

diff --git a/hledger-overview.hs b/hledger-overview.hs
index 6090736..5418059 100755
--- a/hledger-overview.hs
+++ b/hledger-overview.hs
@@ -107,13 +107,22 @@ class Display a where
 instance Display Chunk where
   display c = c
 
+-- green = achieved
+-- yellow = within 5% of achieving
+-- red = work to do
 instance Display Metric where
   display (Target expected actual) = color $ display actual
     where
-      color = if actual >= expected then fore green else fore red
+      color
+        | actual >= expected = fore green
+        | actual >= (expected * 0.95) = fore yellow
+        | otherwise = fore red
   display (Limit expected actual) = color $ display actual
     where
-      color = if actual <= expected then fore green else fore red
+      color
+        | actual <= expected = fore green
+        | actual <= (expected * 0.95) = fore yellow
+        | otherwise = fore red
 
 -- | Tag numbers for different kinds of displays
 data Number
-- 
cgit v1.2.3