From 6af5555c8bfa2d040d5bc4d8801ee711a2503e7c Mon Sep 17 00:00:00 2001
From: Marcel Lautenbach <mlautenb@gmail.com>
Date: Fri, 26 May 2017 21:26:51 +0200
Subject: [PATCH] fix use of wront constant

---
 cdmn | 15 ++++++++++++---
 1 file changed, 12 insertions(+), 3 deletions(-)

diff --git a/cdmn b/cdmn
index 9cf11b6..0eacdbb 100644
--- a/cdmn
+++ b/cdmn
@@ -48,6 +48,11 @@ package cdmn::constants {
         CAPTION_SOLID_BAR => 'solid-bar', #TODO remove?
     };
 
+    use constant {
+        STYLE_LED => 'led',
+        STYLE_BAR => 'bar',
+    };
+
     use constant REND => urxvt::SET_COLOR urxvt::OVERLAY_RSTYLE, 255, 1;
 }
 
@@ -1102,7 +1107,11 @@ package cdmn::visuals::visual {
     #use constant LED => '⬛';
     use constant LED => '■';
     use constant { TRUE => 1, FALSE => 0 };
-    use constant { ALIGN_ROW => cdmn::constants::ALIGN_ROW, };
+    use constant {
+        ALIGN_ROW => cdmn::constants::ALIGN_ROW,
+        STYLE_BAR => cdmn::constants::STYLE_BAR,
+        STYLE_LED => cdmn::constants::STYLE_LED,
+    };
 
     my $m = 0;
 
@@ -1207,8 +1216,8 @@ package cdmn::visuals::visual {
             $_->hide;
         }
 
-        $s->{gauges}{"$i"}{"$color"}->set( BLOCKS->[$bar_i] ) if $s->{visual_style} eq ALIGN_ROW;
-        $s->{gauges}{"$i"}{"$color"}->set( LED ) if $s->{visual_style} eq 'led';
+        $s->{gauges}{"$i"}{"$color"}->set( BLOCKS->[$bar_i] ) if $s->{visual_style} eq STYLE_BAR;
+        $s->{gauges}{"$i"}{"$color"}->set( LED ) if $s->{visual_style} eq STYLE_LED;
         $s->{gauges}{"$i"}{"$color"}->show;
     }
 }