From df15c8295916b1a1d790e9f0c642893db13b0d1b Mon Sep 17 00:00:00 2001
From: Tom Feist <shabble@metavore.org>
Date: Thu, 23 Dec 2010 20:22:47 +0000
Subject: ido_switch: hilight individual parts of names that correspond to the
 search string.  Not currently functional for regex only (C-f) searches.

---
 ido-mode/ido_switcher.pl | 85 +++++++++++++++++++++++++++++++++++++++---------
 1 file changed, 69 insertions(+), 16 deletions(-)

(limited to 'ido-mode')

diff --git a/ido-mode/ido_switcher.pl b/ido-mode/ido_switcher.pl
index d244754..a148503 100644
--- a/ido-mode/ido_switcher.pl
+++ b/ido-mode/ido_switcher.pl
@@ -221,6 +221,8 @@ sub get_all_windows {
                         num    => $win->{refnum},
                         server => $win->{active_server},
                         active => $win->{data_level} > 0,
+                        b_pos  => -1,
+                        e_pos  => -1,
                        };
         }
 
@@ -234,7 +236,9 @@ sub get_all_windows {
                             server   => $item->{server},
                             num      => $win->{refnum},
                             itemname => $item->{name},
-                            active => $win->{data_level} > 0,
+                            active   => $win->{data_level} > 0,
+                            b_pos    => -1,
+                            e_pos    => -1,
                            };
             }
         } else {
@@ -283,6 +287,8 @@ sub ido_switch_exit {
 
 sub update_prompt {
 
+    #TODO: refactor this beast.
+
     # take the top $ido_show_count entries and display them.
     my $match_num = scalar @search_matches;
     my $show_num = $ido_show_count;
@@ -299,15 +305,20 @@ sub update_prompt {
 
         my @show = @ordered_matches[0..$show_num - 1];
 
-        $show[0] = sprintf '%%g%d:%s%%n', $show[0]->{num}, $show[0]->{name};
-        @show[1..$#show] = map
-          {
-              sprintf '%%r%d:%s%%n', $_->{num}, $_->{name};
-          } @show[1..$#show];
+        # show the first entry in green
+
+        unshift(@show, _format_display_entry(shift(@show), '%g'));
+
+        # and array-slice-map the rest to be red.
+        @show[1..$#show] = map { _format_display_entry($_, '%r') } @show[1..$#show];
 
+        # join em all up
         $show_str = join ', ', @show;
     }
+
+    # indicator if flex mode is being used (C-f to toggle)
     my $flex = sprintf(' [%s]', $ido_use_flex ? 'F' : 'E');
+
     my $search = '';
     $search = ' `' . $search_str . "'" if length $search_str;
 
@@ -316,6 +327,18 @@ sub update_prompt {
                        'UP_INNER');
 }
 
+sub _format_display_entry {
+    my ($obj, $colour) = @_;
+
+    my $name = $obj->{name};
+    if ($obj->{b_pos} >= 0 && $obj->{e_pos} > 0) {
+        substr($name, $obj->{e_pos}, 0) = '%_';
+        substr($name, $obj->{b_pos}, 0) = '%_';
+        _debug_print "Showing name as: $name";
+    }
+    return sprintf('%s%d:%s%%n', $colour, $obj->{num}, $name);
+}
+
 sub _check_active {
     my ($obj) = @_;
     return 1 unless $active_only;
@@ -327,29 +350,39 @@ sub update_matches {
     @search_matches = get_all_windows() unless $search_str;
 
     if ($search_str =~ m/^\d+$/) {
+
         @search_matches =
           grep {
-              _check_active($_)
-                and  $_->{num} == 0+$search_str
+              _check_active($_) and $_->{num} == 0+$search_str
           } @window_cache;
+
     } elsif ($ido_use_flex) {
+
         @search_matches =
           grep {
-              _check_active($_) and
-                flex_match($search_str, $_->{name}) >= 0
+              _check_active($_) and flex_match($_) >= 0
           } @window_cache;
+
     } else {
+
         @search_matches =
           grep {
-              _check_active($_)
-                and $_->{name} =~ m/\Q$search_str\E/i
+              _check_active($_) and regex_match($_)
           } @window_cache;
     }
 
 }
 
+sub regex_match {
+    my $obj = shift;
+    return $obj->{name} =~ m/(.*?)\Q$search_str\E.*?/i
+}
+
 sub flex_match {
-    my ($pattern, $source) = @_;
+    my ($obj) = @_;
+
+    my $pattern = $search_str;
+    my $source  = $obj->{name};
 
     _debug_print "Flex match: $pattern / $source";
 
@@ -366,14 +399,26 @@ sub flex_match {
     foreach my $char (@chars) {
         my $pos = index($lc_source, $char, $ret);
         if ($pos > -1) {
+            # store the beginning of the match
+            $obj->{b_pos} = $pos if $char eq @chars[0];
+
             _debug_print("matched: $char at $pos in $source");
             $ret = $pos + 1;
+
         } else {
+
+            $obj->{b_pos} = $obj->{e_pos} = -1;
             _debug_print "Flex returning: -1";
+
             return -1;
         }
     }
+
     _debug_print "Flex returning: $ret";
+
+    #store the end of the match.
+    $obj->{e_pos} = $ret;
+
     return $ret;
 }
 
@@ -383,6 +428,7 @@ sub prev_match {
     if ($match_index > $#search_matches) {
         $match_index = 0;
     }
+
     _debug_print "index now: $match_index";
 }
 
@@ -416,9 +462,6 @@ sub handle_keypress {
     }
 
     if ($key == 3) { # C-C
-        # $search_str = '';
-        # @window_cache = @search_matches;
-        # update_prompt();
         _print_clear();
         Irssi::signal_stop();
         return;
@@ -487,6 +530,16 @@ sub handle_keypress {
         return;
     }
 
+    if ($key == 21) { # Ctrl-U
+        $search_str = '';
+        update_matches();
+        update_prompt();
+
+        Irssi::signal_stop();
+        return;
+
+    }
+
     if ($key == 127) { # DEL
 
         if (length $search_str) {
-- 
cgit v1.2.3