From 7fa1f30f76b1745dcdb01c5b0970dd5bd898a260 Mon Sep 17 00:00:00 2001
From: "Alejandro R. Sedeno" <asedeno@darkmatter.mit.edu>
Date: Sun, 14 Sep 2008 20:29:13 -0400
Subject: [PATCH] * Fixing a class escaping bug * Adding a prefix for generated
 filters * Removing two commented-out keybindings

---
 lib/BarnOwl/Module/ColorUtils.pm | 13 ++++++-------
 1 file changed, 6 insertions(+), 7 deletions(-)

diff --git a/lib/BarnOwl/Module/ColorUtils.pm b/lib/BarnOwl/Module/ColorUtils.pm
index 9934e11..5dd1d3a 100644
--- a/lib/BarnOwl/Module/ColorUtils.pm
+++ b/lib/BarnOwl/Module/ColorUtils.pm
@@ -74,8 +74,6 @@ sub bindings_Color
     );
 
     # Key Bindings
-    #owl::command('bindkey recv "C-d s" command savecolors');
-    #owl::command('bindkey recv "C-d l" command loadcolors');
     owl::command('bindkey recv "c" command start-command setcolor ');
 }
 
@@ -112,13 +110,14 @@ sub createFilters($) {
             my @classInst = ();
 
             foreach my $c (sort keys %{ $workingColorMap{$mode} }) {
-                $c =~ s/([+*])/\\$1/g;
+                my $c_esc = $c;
+                $c_esc =~ s/([+*])/\\$1/g;
                 my @instances = (sort keys %{ $workingColorMap{$mode}{$c} });
                 my $cHasStar = grep(/\*/, @instances);
 
                 if ($cHasStar && @instances == 1) {
                     # Collect classes that are only globally colored.
-                    push(@class, $c) if ($workingColorMap{$mode}{$c}{'*'} eq $color);
+                    push(@class, $c_esc) if ($workingColorMap{$mode}{$c}{'*'} eq $color);
                 } else {
                     # Collect classes that have varying color for instances.
                     if ($cHasStar && $workingColorMap{$mode}{$c}{'*'} eq $color) {
@@ -128,7 +127,7 @@ sub createFilters($) {
                             $i =~ s/([+*])/\\$1/g;
                             push(@cInstances, $i);
                         }
-                        push(@classInst, 'class ^'.$c.'(.d)*$ and not instance ^('.join('|',@cInstances).')(.d)*$') if (@cInstances);
+                        push(@classInst, 'class ^'.$c_esc.'(.d)*$ and not instance ^('.join('|',@cInstances).')(.d)*$') if (@cInstances);
                     } else {
                         my @cInstances;
                         foreach my $i (@instances) {
@@ -136,7 +135,7 @@ sub createFilters($) {
                             $i =~ s/([+*])/\\$1/g;
                             push(@cInstances, $i);
                         }
-                        push(@classInst, 'class ^'.$c.'(.d)*$ and instance ^('.join('|',@cInstances).')(.d)*$') if (@cInstances);
+                        push(@classInst, 'class ^'.$c_esc.'(.d)*$ and instance ^('.join('|',@cInstances).')(.d)*$') if (@cInstances);
                     }
                 }
             }
@@ -209,7 +208,7 @@ sub createFilters($) {
         }
         #######################################################################
 
-        my $filter = $color.(($fgbg eq 'bg') ? '-bg' : '');
+        my $filter = 'ColorUtils::'.$color.(($fgbg eq 'bg') ? '-bg' : '');
         my $filterspec = "$filter ".(($fgbg eq 'bg') ? '-b' : '-c')." $color ";
         if (scalar(@strs)) {
             BarnOwl::filter("$filterspec ( "
-- 
2.45.2