diff options
Diffstat (limited to 'fixery')
| -rw-r--r-- | fixery/adv_windowlist.pl | 111 | ||||
| -rw-r--r-- | 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); } } |