From 6593ef02d658eedb0cedcb9a774773dd972cff65 Mon Sep 17 00:00:00 2001
From: Tom Feist <shabble@metavore.org>
Date: Fri, 3 Feb 2012 00:39:39 +0000
Subject: fixerying grep, trying ot introduce colouring of matches. Some
 initial work on adv_windowlist to support /window goto shortcuts as well

---
 fixery/adv_windowlist.pl | 111 ++++++++++++++++++++++++++++++++++++++++++-----
 fixery/grep.pl           |   6 ++-
 2 files changed, 104 insertions(+), 13 deletions(-)

diff --git a/fixery/adv_windowlist.pl b/fixery/adv_windowlist.pl
index 67c42c9..4ca18fe 100644
--- a/fixery/adv_windowlist.pl
+++ b/fixery/adv_windowlist.pl
@@ -282,6 +282,8 @@ my $needRemake;       # "normal" changes
 sub GLOB_QUEUE_TIMER () { 100 }
 my $globTime = undef; # timer to limit remake() calls
 
+my $EXTRA_HILIGHTS_STR = '';
+my $EXTRA_HILIGHTS = {};
 
 my $SCREEN_MODE;
 my $DISABLE_SCREEN_TEMP;
@@ -332,8 +334,9 @@ my $terminfo = bless { # xterm here, make this modular
 
 
 sub setc () {
-	$IRSSI{'name'}
+	$IRSSI{name}
 }
+
 sub set ($) {
 	setc . '_' . shift
 }
@@ -452,17 +455,32 @@ sub killOldStatus {
 my %keymap;
 
 sub get_keymap {
-	my ($textDest, undef, $cont_stripped) = @_;
-	if ($textDest->{'level'} == 524288 and $textDest->{'target'} eq ''
-			and !defined($textDest->{'server'})
-	) {
-		if ($cont_stripped =~ m/((?:meta-)+)(.)\s+change_window (\d+)/) {
-			my ($level, $key, $window) = ($1, $2, $3);
-			my $numlevel = ($level =~ y/-//) - 1;
-			$keymap{$window} = ('-' x $numlevel) . "$key";
-		}
-		Irssi::signal_stop();
-	}
+	my ($textDest, undef, $stripped_text) = @_;
+	#if ($textDest->{'level'} == 524288 and $textDest->{'target'} eq '') {
+	if ($textDest->{level} == Irssi::MSGLEVEL_CLIENTCRAP and
+        $textDest->{target} eq '') {
+        if (not defined($textDest->{server})) {
+
+            my $bind = $stripped_text;
+            if ($bind =~ m/((?:meta-)+)(.)\s+change_window (\d+)/) {
+
+                my ($level, $key, $window) = ($1, $2, $3);
+                my $numlevel = ($level =~ y/-//) - 1;
+
+                $keymap{$window} = ('-' x $numlevel) . "$key";
+
+            } elsif ($bind =~ m/((?:meta-)+)(.)\s+window goto (\d+|(?:#\w+))/) {
+                # TODO: make this work moar better
+                my ($level, $key, $window) = ($1, $2, $3);
+                my $numlevel = ($level =~ y/-//) - 1;
+
+                $keymap{$window} = ('-' x $numlevel) . "$key";
+            }
+
+            Irssi::signal_stop();
+        }
+
+    }
 }
 
 sub update_keymap {
@@ -719,8 +737,71 @@ my %banned_channels = map { lc1459($_) => undef }
 split ' ', Irssi::settings_get_str('banned_channels');
 Irssi::settings_add_str(setc, 'fancy_abbrev', 'fancy');
 
+sub _error {
+    my $msg = join '', @_;
+    Irssi::print(setc . ':', Irssi::MSGLEVEL_CLIENTERROR);
+}
+
 # }}}
 
+# {{{ extra channel hilights
+
+sub rereadChanHilights {
+    my $hilight_str = Irssi::settings_get_str(set 'extra_hilights');
+
+    # only update if changed.
+    return if $hilight_str eq $EXTRA_HILIGHTS_STR;
+
+    $EXTRA_HILIGHTS_STR = $hilight_str
+
+    return unless length $hilight_str;
+
+    # kill all existing entries
+    $EXTRA_HILIGHTS = {};
+
+    my @entries = split /\s+/, $hilight_str;
+
+    my $pattern = qr|^ (?:([^/]*)/)  # $1: optional '$tag/' capturing $tag
+                       ([^:]+):      # $2: required '$target:', capturing $target
+                       (%.+)         # $3: required '%$colour'
+                     $|xo;
+
+    foreach my $entry (@entries) {
+
+        if ($entry =~ $pattern) {
+            my ($tag, $target, $colour) = ($1, $2, $3);
+            my $components = ;
+
+            my $target_match_str = $target;
+            if (length $tag) {
+                $target_match_str = $tag . '/' . $target_match_str;
+            }
+
+            $EXTRA_HILIGHTS->{$target_match_str}
+              = { tag => $tag, target => $target, colour => $colour };
+
+        } else {
+            _error("malformed hilight entry: '$entry'");
+        }
+    }
+}
+
+sub matchExtraHilight {
+    my ($target, $tag) = @_;
+    my $match = $target;
+    if (length $tag) {
+        $match = $tag . '/' . $tag;
+    }
+    if (exists $EXTRA_HILIGHTS->{$match}) {
+        return $EXTRA_HILIGHTS->{$match}->{colour};
+    } else {
+        return '';
+    }
+}
+
+# }}}
+
+# {{{
 # {{{ main
 
 sub remake () {
@@ -957,6 +1038,9 @@ sub remake () {
 
 sub awlHasChanged () {
 	$globTime = undef;
+
+    rereadChanHilights();
+
 	my $temp = ($SCREEN_MODE ?
 		"\\\n" . Irssi::settings_get_int(set 'block').
 		Irssi::settings_get_int(set 'height_adjust')
@@ -1099,6 +1183,9 @@ Irssi::settings_add_int(setc, set 'position', 0);
 Irssi::settings_add_bool(setc, set 'all_disable', 0);
 Irssi::settings_add_str(setc, set 'automode', 'sbar');
 
+# format is '[$tag/]#channel:%colour1 [$tag/]#channel:%colour2 ...' list.
+Irssi::settings_add_str(setc, set 'extra_hilights', '');
+
 # }}}
 
 
diff --git a/fixery/grep.pl b/fixery/grep.pl
index ef5d043..78834be 100644
--- a/fixery/grep.pl
+++ b/fixery/grep.pl
@@ -52,7 +52,11 @@ sub sig_grep_text {
 
         if (not $options->{'-v'}) {
             $match_count++;
-            return;
+            # $text = "\x{03}5" . $text . "\x{0f}";
+            # $stripped_text = "\x{03}5" . $stripped_text . "\x{0f}";
+            $text = $text . "bacon";
+            $stripped_text = $stripped_text . "moo";
+            irssi::signal_continue($dest, $text, $stripped_text);
         }
     }
 
-- 
cgit v1.2.3