Drop a bunch of old config files

29 files changed, 0 insertions, 6705 deletions

diff --git a/.irssi/scripts/adv_windowlist.pl b/.irssi/scripts/adv_windowlist.pl
deleted file mode 100644
index 91afa1c..0000000
--- a/.irssi/scripts/adv_windowlist.pl
+++ /dev/null
@@ -1,2555 +0,0 @@
-use strict;
-use warnings;
-
-our $VERSION = '1.5'; # 5df597ac461465e
-our %IRSSI = (
-    authors     => 'Nei',
-    contact     => 'Nei @ anti@conference.jabber.teamidiot.de',
-    url         => "http://anti.teamidiot.de/",
-    name        => 'adv_windowlist',
-    description => 'Adds a permanent advanced window list on the right or in a status bar.',
-    sbitems     => 'awl_shared',
-    license     => 'GNU GPLv2 or later',
-   );
-
-# UPGRADE NOTE
-# ============
-# for users of 0.7 or earlier series, please note that appearance
-# settings have moved to /format, i.e. inside your theme!
-# the fifo (screen) has been replaced by an external viewer script
-
-# Usage
-# =====
-# copy the script to ~/.irssi/scripts/
-#
-# In irssi:
-#
-#		/run adv_windowlist
-#
-# In your shell (for example a tmux split):
-#
-#		perl ~/.irssi/scripts/adv_windowlist.pl
-#
-# To use sbar mode instead:
-#
-#		/toggle awl_viewer
-#
-# Hint: to get rid of the old [Act:] display
-#     /statusbar window remove act
-#
-# to get it back:
-#     /statusbar window add -after lag -priority 10 act
-
-# Options
-# =======
-# formats can be cleared with /format -delete
-#
-# /format awl_display_(no)key(_active|_visible) <string>
-# * string : Format String for one window. The following $'s are expanded:
-#     $C : Name
-#     $N : Number of the Window
-#     $Q : meta-Keymap
-#     $H : Start hilighting
-#     $S : Stop hilighting
-#         /+++++++++++++++++++++++++++++++++,
-#        | ****  I M P O R T A N T :  ****  |
-#        |                                  |
-#        | don't forget  to use  $S  if you |
-#        | used $H before!                  |
-#        |                                  |
-#        '+++++++++++++++++++++++++++++++++/
-#   key     : a key binding that goes to this window could be detected in /bind
-#   nokey   : no such key binding was detected
-#   active  : window would receive the input you are currently typing
-#   visible : window is also visible on screen but not active (a split window)
-#
-# /format awl_name_display <string>
-# * string : Format String for window names
-#     $0 : name as formatted by the settings
-#
-# /format awl_display_header <string>
-# * string : Format String for this header line. The following $'s are expanded:
-#     $C : network tag
-#
-# /format awl_separator(2) <string>
-# * string : Character to use between the channel entries
-# variant 2 can be used for alternating separators (only in status bar
-# without block display)
-#
-# /format awl_abbrev_chars <string>
-# * string : Character to use when shortening long names. The second character
-#   will be used if two blocks need to be filled.
-#
-# /format awl_title <string>
-# * string : Text to display in the title string or title bar
-#
-# /format awl_viewer_item_bg <string>
-# * string : Format String specifying the viewer's item background colour
-#
-# /set awl_prefer_name <ON|OFF>
-# * this setting decides whether awl will use the active_name (OFF) or the
-#   window name as the name/caption in awl_display_*.
-#   That way you can rename windows using /window name myownname.
-#
-# /set awl_hide_empty <num>
-# * if visible windows without items should be hidden from the window list
-# set it to 0 to show all windows
-#           1 to hide visible windows without items (negative exempt
-#           active window)
-#
-# /set awl_hide_data <num>
-# * num : hide the window if its data_level is below num
-# set it to 0 to basically disable this feature,
-#           1 if you don't want windows without activity to be shown
-#           2 to show only those windows with channel text or hilight
-#           3 to show only windows with hilight (negative exempt active window)
-#
-# /set awl_hide_name_data <num>
-# * num : hide the name of the window if its data_level is below num
-#   (only works in status bar without block display)
-# you will want to change your formats to add $H...$S around $Q or $N
-# if you plan to use this
-#
-# /set awl_maxlines <num>
-# * num : number of lines to use for the window list (0 to disable, negative
-#   lock)
-#
-# /set awl_maxcolumns <num>
-# * num : number of columns to use for the window list when using the
-#   tmux integration (0 to disable)
-#
-# /set awl_block <num>
-# * num : width of a column in viewer mode (negative values = block
-#   display in status bar mode)
-#         /+++++++++++++++++++++++++++++++++,
-#        | ******  W A R N I N G !  ******  |
-#        |                                  |
-#        | If  your  block  display  looks  |
-#        | DISTORTED,  you need to add the  |
-#        | following  line to your  .theme  |
-#        | file under                       |
-#        |     abstracts = {             :  |
-#        |                                  |
-#        |       sb_act_none = "%K$*";      |
-#        |                                  |
-#        '+++++++++++++++++++++++++++++++++/
-#
-# /set awl_sbar_maxlength <ON|OFF>
-# * if you enable the maxlength setting, the block width will be used as a
-#   maximum length for the non-block status bar mode too.
-#
-# /set awl_height_adjust <num>
-# * num : how many lines to leave empty in viewer mode
-#
-# /set awl_sort <-data_level|-last_line|refnum>
-# * you can change the window sort order with this variable
-#     -data_level : sort windows with hilight first
-#     -last_line  : sort windows in order of activity
-#     refnum      : sort windows by window number
-#     active/server/tag : sort by server name
-#   "-" reverses the sort order
-#   typechecks are supported via ::, e.g. active::Query or active::Irc::Query
-#   undefinedness can be checked with ~, e.g. ~active
-#   string comparison can be done with =, e.g. name=(status)
-#   to make sort case insensitive, use #i, e.g. name#i
-#   any key in the window hash can be tested, e.g. active/chat_type=XMPP
-#   multiple criteria can be separated with , or +, e.g. -data_level+-last_line
-#
-# /set awl_placement <top|bottom>
-# /set awl_position <num>
-# * these settings correspond to /statusbar because awl will create
-#   status bars for you
-# (see /help statusbar to learn more)
-#
-# /set awl_all_disable <ON|OFF>
-# * if you set awl_all_disable to ON, awl will also remove the
-#   last status bar it created if it is empty.
-#   As you might guess, this only makes sense with awl_hide_data > 0 ;)
-#
-# /set awl_viewer <ON|OFF>
-# * enable the external viewer script
-#
-# /set awl_viewer_launch <ON|OFF>
-# * try to auto-launch the viewer under tmux or with a shell command
-#   /awl restart is required all auto-launch related settings to take
-#   effect
-#
-# /set awl_viewer_tmux_position <left|top|right|bottom|custom>
-# * try to split in this direction when using tmux for the viewer
-#   custom : use custom_command setting
-#
-# /set awl_viewer_xwin_command <shell command>
-# * custom command to run in order to start the viewer when irssi is
-#   running under X
-#   %A  - gets replaced by the command to run the viewer
-#   %qA - additionally quote the command
-#
-# /set awl_viewer_custom_command <shell command>
-# * custom command to run in order to start the viewer
-#
-# /set awl_viewer_launch_env <string>
-# * specific environment settings for use on viewer auto-launch,
-#   without the AWL_ prefix
-#
-# /set awl_shared_sbar <left<right|OFF>
-# * share a status bar for the first awl item, you will need to manually
-#   /statusbar window add -after lag -priority 10 awl_shared
-#     left   : space in cells occupied on the left of status bar
-#     right  : space occupied on the right
-# Note: you need to replace "left" AND "right" with the appropriate numbers!
-#
-# /set awl_path <path>
-# * path to the file which the viewer script reads
-#
-# /set fancy_abbrev <no|head|strict|fancy>
-# * how to shorten too long names
-#     no     : shorten in the middle
-#     head   : always cut off the ends
-#     strict : shorten repeating substrings
-#     fancy  : combination of no+strict
-#
-# /set awl_custom_xform <perl code>
-# * specify a custom routine to transform window names
-#   example: s/^#// remove the #-mark of IRC channels
-#   the special flags $CHANNEL / $TAG / $QUERY / $NAME can be
-#   tested in conditionals
-#
-# /set awl_last_line_shade <timeout>
-# * set timeout to shade activity base colours, to enable
-#   you also need to add +-last_line to awl_sort
-#   (requires 256 colour support)
-#
-# /set awl_no_mode_hint <ON|OFF>
-# * whether to show the hint of running the viewer script in the
-#   status bar
-#
-# /set awl_mouse <ON|OFF>
-# * enable the terminal mouse in irssi
-# (use the awl-patched mouse.pl for gestures and commands if you need
-# them and disable mouse_escape)
-#
-# /set awl_mouse_offset <num>
-# * specifies where on the screen is the awl status bar
-#   (0 = on top/bottom, 1 = one additional line in between,
-#   e.g. prompt)
-#   you MUST set this correctly otherwise the mouse coordinates will
-#   be off
-#
-# /set mouse_scroll <num>
-# * how many lines the mouse wheel scrolls
-#
-# /set mouse_escape <num>
-# * seconds to disable the mouse, when not clicked on the windowlist
-#
-
-# Commands
-# ========
-# /awl redraw
-# * redraws the windowlist. There may be occasions where the
-#   windowlist can get destroyed so you can use this command to
-#   force a redraw.
-#
-# /awl restart
-# * restart the connection to the viewer script.
-
-# Viewer script
-# =============
-# When run from the command line, adv_windowlist acts as the viewer
-# script to be used together with the irssi script to display the
-# window list in a sidebar/terminal of its own.
-#
-# One optional parameter is accepted, the awl_path
-#
-# The viewer can be configured by three environment variables:
-#
-# AWL_HI9=1
-# * interpret %9 as high-intensity toggle instead of bold. This had
-#   been the default prior to version 0.9b8
-#
-# AWL_AUTOFOCUS=0
-# * disable auto-focus behaviour when activating a window
-#
-# AWL_NOTITLE=1
-# * disable the title bar
-
-# Nei =^.^= ( anti@conference.jabber.teamidiot.de )
-
-no warnings 'redefine';
-use constant IN_IRSSI => __PACKAGE__ ne 'main' || $ENV{IRSSI_MOCK};
-use constant SCRIPT_FILE => __FILE__;
-no if !IN_IRSSI, strict => (qw(subs refs));
-use if IN_IRSSI, Irssi => ();
-use if IN_IRSSI, 'Irssi::TextUI' => ();
-use v5.10;
-use Encode;
-use Storable ();
-use IO::Socket::UNIX;
-use List::Util qw(min max reduce);
-use Hash::Util qw(lock_keys);
-use Text::ParseWords qw(shellwords);
-
-BEGIN {
-    if ($] < 5.012) {
-	*CORE::GLOBAL::length = *CORE::GLOBAL::length = sub (_) {
-	    defined $_[0] ? CORE::length($_[0]) : undef
-	};
-	*Irssi::active_win = {}; # hide incorrect warning
-    }
-}
-
-unless (IN_IRSSI) {
-    local *_ = \@ARGV;
-    &AwlViewer::main;
-    exit;
-}
-
-
-use constant GLOB_QUEUE_TIMER => 100;
-
-our $BLOCK_ALL;  # localized blocker
-my @actString;   # status bar texts
-my @win_items;
-my $currentLines = 0;
-my %awins;
-my $globTime;    # timer to limit remake calls
-
-my %CHANGED;
-my $VIEWER_MODE;
-my $MOUSE_ON;
-my %mouse_coords;
-my %statusbars;
-my %S; # settings
-my $settings_str = '';
-my $window_sort_func;
-my $custom_xform;
-my ($sb_base_width, $sb_base_width_pre, $sb_base_width_post);
-my $print_text_activity;
-my $shade_line_timer;
-my ($screenHeight, $screenWidth);
-my %viewer;
-
-my (%keymap, %nummap, %wnmap, %specialmap, %wnmap_exp, %custom_key_map);
-my %banned_channels;
-my %abbrev_cache;
-
-use constant setc => 'awl';
-
-sub set ($) {
-    setc . '_' . $_[0]
-}
-
-sub add_statusbar {
-    for (@_) {
-	# add subs
-	my $l = set $_;
-	{
-	    my $close = $_;
-	    no strict 'refs';
-	    *{$l} = sub { awl($close, @_) };
-	}
-	Irssi::command("statusbar $l reset");
-	Irssi::command("statusbar $l enable");
-	if (lc $S{placement} eq 'top') {
-	    Irssi::command("statusbar $l placement top");
-	}
-	if (my $x = $S{position}) {
-	    Irssi::command("statusbar $l position $x");
-	}
-	Irssi::command("statusbar $l add -priority 100 -alignment left barstart");
-	Irssi::command("statusbar $l add $l");
-	Irssi::command("statusbar $l add -priority 100 -alignment right barend");
-	Irssi::command("statusbar $l disable");
-	Irssi::statusbar_item_register($l, '$0', $l);
-	$statusbars{$_} = 1;
-	Irssi::command("statusbar $l enable");
-    }
-}
-
-sub remove_statusbar {
-    for (@_) {
-	my $l = set $_;
-	Irssi::command("statusbar $l disable");
-	Irssi::command("statusbar $l reset");
-	Irssi::statusbar_item_unregister($l);
-	{
-	    no strict 'refs';
-	    undef &{$l};
-	}
-	delete $statusbars{$_};
-    }
-}
-
-my $awl_shared_empty = sub {
-    return if $BLOCK_ALL;
-    my ($item, $get_size_only) = @_;
-    $item->default_handler($get_size_only, '', '', 0);
-};
-
-sub syncLines {
-    my $maxLines = $S{maxlines};
-    my $newLines = ($maxLines > 0 and @actString > $maxLines) ?
-	$maxLines :
-    ($maxLines < 0) ?
-	-$maxLines :
-	    @actString;
-    $currentLines = 1 if !$currentLines && $S{shared_sbar};
-    if ($S{shared_sbar} && !$statusbars{shared}) {
-	my $l = set 'shared';
-	{
-	    no strict 'refs';
-	    *{$l} = sub {
-		return if $BLOCK_ALL;
-		my ($item, $get_size_only) = @_;
-
-		my $text = $actString[0];
-		my $title = _get_format(set 'title');
-		if (length $title) {
-		    $title =~ s{\\(.)|(.)}{
-			defined $2 ? quotemeta $2
-			    : $1 eq 'V' ? '\u'
-			    : $1 eq ':' ? quotemeta ':%n'
-			    : $1 =~ /^[uUFQE]$/ ? "\\$1"
-			    : quotemeta "\\$1"
-			}sge;
-		    $title = eval qq{"$title"};
-		    $title .= ' ';
-		}
-		my $pat = defined $text ? "{sb $title\$*}" : '{sb }';
-		$text //= '';
-		$item->default_handler($get_size_only, $pat, $text, 0);
-	    };
-	}
-	$statusbars{shared} = 1;
-	remove_statusbar (0) if $statusbars{0};
-    }
-    elsif ($statusbars{shared} && !$S{shared_sbar}) {
-	add_statusbar (0) if $currentLines && $newLines;
-	delete $statusbars{shared};
-	my $l = set 'shared';
-	{
-	    no strict 'refs';
-	    *{$l} = $awl_shared_empty;
-	}
-    }
-    if ($currentLines == $newLines) { return; }
-    elsif ($newLines > $currentLines) {
-	add_statusbar ($currentLines .. ($newLines - 1));
-    }
-    else {
-	remove_statusbar (reverse ($newLines .. ($currentLines - 1)));
-    }
-    $currentLines = $newLines;
-}
-
-sub awl {
-    return if $BLOCK_ALL;
-    my ($line, $item, $get_size_only) = @_;
-
-    my $text = $actString[$line];
-    my $pat = defined $text ? '{sb $*}' : '{sb }';
-    $text //= '';
-    $item->default_handler($get_size_only, $pat, $text, 0);
-}
-
-# remove old statusbars
-{ my %killBar;
-  sub get_old_status {
-      my ($textDest, $cont, $cont_stripped) = @_;
-      if ($textDest->{level} == 524288 and $textDest->{target} eq '' and !defined $textDest->{server}) {
-	  my $name = quotemeta(set '');
-	  if ($cont_stripped =~ m/^$name(\d+)\s/) { $killBar{$1} = 1; }
-	  Irssi::signal_stop;
-      }
-  }
-  sub killOldStatus {
-      %killBar = ();
-      Irssi::signal_add_first('print text' => 'get_old_status');
-      Irssi::command('statusbar');
-      Irssi::signal_remove('print text' => 'get_old_status');
-      remove_statusbar(keys %killBar);
-  }
-}
-
-sub _add_map {
-    my ($type, $target, $map) = @_;
-    ($type->{$target}) = sort { length $a <=> length $b || $a cmp $b }
-	$map, exists $type->{$target} ? $type->{$target} : ();
-}
-
-sub get_keymap {
-    my ($textDest, undef, $cont_stripped) = @_;
-    if ($textDest->{level} == 524288 and $textDest->{target} eq '' and !defined $textDest->{server}) {
-	my $one_meta_or_ctrl_key = qr/((?:meta-)*?)(?:(meta-|\^)(\S)|(\w+))/;
-	$cont_stripped = as_uni($cont_stripped);
-	if ($cont_stripped =~ m/((?:$one_meta_or_ctrl_key-)*$one_meta_or_ctrl_key)\s+(.*)$/) {
-	    my ($combo, $command) = ($1, $10);
-	    my $map = '';
-	    while ($combo =~ s/(?:-|^)$one_meta_or_ctrl_key$//) {
-		my ($level, $ctl, $key, $nkey) = ($1, $2, $3, $4);
-		my $numlevel = ($level =~ y/-//);
-		$ctl = '' if !$ctl || $ctl ne '^';
-		$map = ('-' x ($numlevel%2)) . ('+' x ($numlevel/2)) .
-		    $ctl . (defined $key ? $key : "\01$nkey\01") . $map;
-	    }
-	    for ($command) {
-		last unless length $map;
-		if (/^change_window (\d+)/i) {
-		    _add_map(\%nummap, $1, $map);
-		}
-		elsif (/^(?:command window goto|change_window) (\S+)/i) {
-		    my $window = $1;
-		    if ($window !~ /\D/) {
-			_add_map(\%nummap, $window, $map);
-		    }
-		    elsif (lc $window eq 'active') {
-			_add_map(\%specialmap, '_active', $map);
-		    }
-		    else {
-			_add_map(\%wnmap, $window, $map);
-		    }
-		}
-		elsif (/^(?:active_window|command (ack))/i) {
-		    _add_map(\%specialmap, '_active', $map);
-		    $viewer{use_ack} = !!$1;
-		}
-		elsif (/^command window last/i) {
-		    _add_map(\%specialmap, '_last', $map);
-		}
-		elsif (/^(?:upper_window|command window up)/i) {
-		    _add_map(\%specialmap, '_up', $map);
-		}
-		elsif (/^(?:lower_window|command window down)/i) {
-		    _add_map(\%specialmap, '_down', $map);
-		}
-		elsif (/^key\s+(\w+)/i) {
-		    $custom_key_map{$1} = $map;
-		}
-	    }
-	}
-	Irssi::signal_stop;
-    }
-}
-
-sub update_keymap {
-    %nummap = %wnmap = %specialmap = %custom_key_map = ();
-    Irssi::signal_remove('command bind' => 'watch_keymap');
-    Irssi::signal_add_first('print text' => 'get_keymap');
-    Irssi::command('bind');
-    Irssi::signal_remove('print text' => 'get_keymap');
-    for (keys %custom_key_map) {
-	if (exists $custom_key_map{$_} &&
-		$custom_key_map{$_} =~ s/\01(\w+)\01/exists $custom_key_map{$1} ? $custom_key_map{$1} : "\02"/ge) {
-	    if ($custom_key_map{$_} =~ /\02/) {
-		delete $custom_key_map{$_};
-	    }
-	    else {
-		redo;
-	    }
-	}
-    }
-    for my $keymap (\(%specialmap, %wnmap, %nummap)) {
-	for (keys %$keymap) {
-	    if ($keymap->{$_} =~ s/\01(\w+)\01/exists $custom_key_map{$1} ? $custom_key_map{$1} : "\02"/ge) {
-		if ($keymap->{$_} =~ /\02/) {
-		    delete $keymap->{$_};
-		}
-	    }
-	}
-    }
-    Irssi::signal_add('command bind' => 'watch_keymap');
-    delete $viewer{client_keymap};
-    &wl_changed;
-}
-
-# watch keymap changes
-sub watch_keymap {
-    Irssi::timeout_add_once(1000, 'update_keymap', undef);
-}
-
-{ my %strip_table = (
-    # fe-common::core::formats.c:format_expand_styles
-    #      delete                format_backs  format_fores bold_fores   other stuff
-    (map { $_ => '' } (split //, '04261537' .  'kbgcrmyw' . 'KBGCRMYW' . 'U9_8I:|FnN>#[' . 'pP')),
-    #      escape
-    (map { $_ => $_ } (split //, '{}%')),
-   );
-  sub ir_strip_codes { # strip %codes
-      my $o = shift;
-      $o =~ s/(%(%|Z.{6}|z.{6}|X..|x..|.))/exists $strip_table{$2} ? $strip_table{$2} :
-	  $2 =~ m{x(?:0[a-f]|[1-6][0-9a-z]|7[a-x])|z[0-9a-f]{6}}i ? '' : $1/gex;
-      $o
-  }
-}
-## ir_parse_special -- wrapper around parse_special
-## $i - input format
-## $args - array ref of arguments to format
-## $win - different target window (default current window)
-## $flags - different kind of escape flags (default 4|8)
-## returns formatted str
-sub ir_parse_special {
-    my $o;
-    my $i = shift;
-    my $args = shift // [];
-    y/ /\177/ for @$args; # hack to escape spaces
-    my $win = shift || Irssi::active_win;
-    my $flags = shift // 0x4|0x8;
-    my @cmd_args = ($i, (join ' ', @$args), $flags);
-    my $server = Irssi::active_server();
-    if (ref $win and ref $win->{active}) {
-	$o = $win->{active}->parse_special(@cmd_args);
-    }
-    elsif (ref $win and ref $win->{active_server}) {
-	$o = $win->{active_server}->parse_special(@cmd_args);
-    }
-    elsif (ref $server) {
-	$o =  $server->parse_special(@cmd_args);
-    }
-    else {
-	$o = &Irssi::parse_special(@cmd_args);
-    }
-    $o =~ y/\177/ /;
-    $o
-}
-
-sub sb_format_expand { # Irssi::current_theme->format_expand wrapper
-    Irssi::current_theme->format_expand(
-	$_[0],
-	(
-	    Irssi::EXPAND_FLAG_IGNORE_REPLACES
-		    |
-	    ($_[1] ? 0 : Irssi::EXPAND_FLAG_IGNORE_EMPTY)
-	)
-    )
-}
-
-{ my $term_type = Irssi::version > 20040819 ? 'term_charset' : 'term_type';
-  local $@;
-  eval { require Text::CharWidth; };
-  unless ($@) {
-      *screen_length = sub { Text::CharWidth::mbswidth($_[0]) };
-  }
-  else {
-      my $err = $@; chomp $err; $err =~ s/\sat .* line \d+\.$//;
-      #Irssi::print("%_$IRSSI{name}: warning:%_ Text::CharWidth module failed to load. Length calculation may be off! Error was:");
-      print "%_$IRSSI{name}:%_ $err";
-      *screen_length = sub {
-	  my $temp = shift;
-	  if (lc Irssi::settings_get_str($term_type) eq 'utf-8') {
-	      Encode::_utf8_on($temp);
-	  }
-	  length($temp)
-      };
-  }
-  sub as_uni {
-      no warnings 'utf8';
-      Encode::decode(Irssi::settings_get_str($term_type), $_[0], 0)
-  }
-  sub as_tc {
-      Encode::encode(Irssi::settings_get_str($term_type), $_[0], 0)
-  }
-}
-
-sub sb_length {
-    screen_length(ir_strip_codes($_[0]))
-}
-
-sub run_custom_xform {
-    local $@;
-    eval {
-	$custom_xform->()
-    };
-    if ($@) {
-	$@ =~ /^(.*)/;
-	print '%_'.(set 'custom_xform').'%_ died (disabling): '.$1;
-	$custom_xform = undef;
-    }
-}
-
-sub remove_uniform {
-    my $o = shift;
-    $o =~ s/^xmpp:(.*?[%@]).+\.[^.]+$/$1/ or
-	$o =~ s#^psyc://.+\.[^.]+/([@~].*)$#$1#;
-    if ($custom_xform) {
-	run_custom_xform() for $o;
-    }
-    $o
-}
-
-sub remove_uniform_vars {
-    my $win = shift;
-    my $name = __PACKAGE__ . '::custom_xform::' . $win->{active}{type}
-	if ref $win->{active} && $win->{active}{type};
-    no strict 'refs';
-    local ${$name} = 1 if $name;
-    remove_uniform(+shift);
-}
-
-sub lc1459 {
-    my $x = shift;
-    $x =~ y/][\\^/}{|~/;
-    lc $x
-}
-
-sub window_list {
-    sort $window_sort_func Irssi::windows;
-}
-
-sub _calculate_abbrev {
-    my ($wins, $abbrevList) = @_;
-    if ($S{fancy_abbrev} !~ /^(no|off|head)/i) {
-	my @nameList = map { ref $_ ? remove_uniform_vars($_, as_uni($_->get_active_name) // '') : '' } @$wins;
-	for (my $i = 0; $i < @nameList - 1; ++$i) {
-	    my ($x, $y) = ($nameList[$i], $nameList[$i + 1]);
-	    s/^[+#!=]// for $x, $y;
-	    my $res = exists $abbrev_cache{$x}{$y} ? $abbrev_cache{$x}{$y}
-		: $abbrev_cache{$x}{$y} = string_LCSS($x, $y);
-	    if (defined $res) {
-		for ($nameList[$i], $nameList[$i + 1]) {
-		    $abbrevList->{$_} //= int((index $_, $res) + (length $res) / 2);
-		}
-	    }
-	}
-    }
-}
-
-my %act_last_line_shades = (
-    r => [qw[ 50 40 30 20 ]],
-    g => [qw[ 1O 1I 1C 16 ]],
-    y => [qw[ 5O 4I 3C 26 ]],
-    b => [qw[ 15 14 13 12 ]],
-    m => [qw[ 54 43 32 21 ]],
-    c => [qw[ 1S 1L 1E 17 ]],
-    w => [qw[ 7W 7T 7Q 3E ]],
-    K => [qw[ 7M 7K 27 7H ]],
-    R => [qw[ 60 50 40 30 ]],
-    G => [qw[ 1U 1O 1I 1C ]],
-    Y => [qw[ 6U 5O 4I 3C ]],
-    B => [qw[ 2B 2A 29 28 ]],
-    M => [qw[ 65 54 43 32 ]],
-    C => [qw[ 1Z 1S 1L 1E ]],
-    W => [qw[ 6Z 5S 7R 7O ]],
-   );
-
-sub _format_display {
-    my (undef, $format, $cformat, $hilight, $name, $number, $key, $win) = @_;
-    if ($print_text_activity && $S{line_shade}) {
-	my @hilight_code = split /\177/, sb_format_expand("{$hilight \177}"), 2;
-	my $max_time = max(1, log($S{line_shade}) - log(1000));
-	my $time_delta = min(3, min($max_time, log(max(1, time - $win->{last_line}))) / $max_time * 3);
-	if ($hilight_code[0] =~ /%(.)/ && exists $act_last_line_shades{$1}) {
-	    $hilight = 'sb_act_hilight_color %X'.$act_last_line_shades{$1}[$time_delta];
-	}
-    }
-    $cformat = '$0' unless length $cformat;
-    my %map = ('$C' => $cformat, '$N' => '$1', '$Q' => '$2');
-    $format =~ s<(\$.)><$map{$1}//$1>ge;
-    $format =~ s<\$H((?:\$.|[^\$])*?)\$S><{$hilight $1%n}>g;
-    my @ret = ir_parse_special(sb_format_expand($format), [$name, $number, $key], $win);
-    @ret
-}
-
-sub _get_format {
-    Irssi::current_theme->get_format(__PACKAGE__, @_)
-}
-
-sub _calculate_items {
-    my ($wins, $abbrevList) = @_;
-
-    my $display_header = _get_format(set 'display_header');
-    my $name_format = _get_format(set 'name_display');
-    my $abbrev_chars = as_uni(_get_format(set 'abbrev_chars'));
-
-    my %displays;
-
-    my $active = Irssi::active_win;
-    @win_items = ();
-    %keymap = (%nummap, %wnmap_exp);
-
-    my ($numPad, $keyPad) = (0, 0);
-    if ($VIEWER_MODE or $S{block} < 0) {
-	$numPad = length((sort { length $b <=> length $a } keys %keymap)[0]) // 0;
-	$keyPad = length((sort { length $b <=> length $a } values %keymap)[0]) // 0;
-    }
-    my $last_net;
-    my ($abbrev1, $abbrev2) = $abbrev_chars =~ /(\X)(.*)/;
-    my @abbrev_chars = ('~', "\x{301c}");
-    unless (defined $abbrev1 && screen_length(as_tc($abbrev1)) == 1) { $abbrev1 = $abbrev_chars[0] }
-    unless (length $abbrev2) {
-	$abbrev2 = $abbrev1;
-	if ($abbrev1 eq $abbrev_chars[0]) {
-	    $abbrev2 = $abbrev_chars[1];
-	}
-	else {
-	    $abbrev2 = $abbrev1;
-	}
-    }
-    if (screen_length(as_tc($abbrev2)) == 1) {
-	$abbrev2 x= 2;
-    }
-    while (screen_length(as_tc($abbrev2)) > 2) {
-	chop $abbrev2;
-    }
-    unless (screen_length(as_tc($abbrev2)) == 2) {
-	$abbrev2 = $abbrev_chars[1];
-    }
-    for my $win (@$wins) {
-	my $global_tag_header_mode;
-
-	next unless ref $win;
-
-	my $backup_win = Storable::dclone($win);
-	delete $backup_win->{active} unless ref $backup_win->{active};
-
-	$global_tag_header_mode =
-	    $display_header && ($last_net // '') ne ($backup_win->{active}{server}{tag} // '');
-
-	if ($win->{data_level} < abs $S{hide_data}
-		&& ($win->{refnum} != $active->{refnum} || 0 <= $S{hide_data})) {
-	    next; }
-	elsif (exists $awins{$win->{refnum}} && $S{hide_empty} && !$win->items
-		&& ($win->{refnum} != $active->{refnum} || 0 <= $S{hide_empty})) {
-	    next; }
-
-	my $colour = $win->{hilight_color} // '';
-	my $hilight = do {
-	    if    ($win->{data_level} == 0) { 'sb_act_none'; }
-	    elsif ($win->{data_level} == 1) { 'sb_act_text'; }
-	    elsif ($win->{data_level} == 2) { 'sb_act_msg'; }
-	    elsif ($colour           ne '') { "sb_act_hilight_color $colour"; }
-	    elsif ($win->{data_level} == 3) { 'sb_act_hilight'; }
-	    else                            { 'sb_act_special'; }
-	};
-	my $number = $win->{refnum};
-
-	my ($name, $display, $cdisplay);
-	if ($global_tag_header_mode) {
-	    $display = $display_header;
-	    $name = as_uni($backup_win->{active}{server}{tag}) // '';
-	    if ($custom_xform) {
-		no strict 'refs';
-		local ${ __PACKAGE__ . '::custom_xform::TAG' } = 1;
-		run_custom_xform() for $name;
-	    }
-	}
-	else {
-	    my @display = ('display_nokey');
-	    if (defined $keymap{$number} and $keymap{$number} ne '') {
-		unshift @display, map { (my $cpy = $_) =~ s/_no/_/; $cpy } @display;
-	    }
-	    if (exists $awins{$number}) {
-		unshift @display, map { my $cpy = $_; $cpy .= '_visible'; $cpy } @display;
-	    }
-	    if ($active->{refnum} == $number) {
-		unshift @display, map { my $cpy = $_; $cpy .= '_active'; $cpy }
-		    grep { !/_visible$/ } @display;
-	    }
-	    $display = (grep { length $_ }
-			       map { $displays{$_} //= _get_format(set $_) }
-				   @display)[0];
-	    $cdisplay = $name_format;
-	    $name = as_uni($win->get_active_name) // '';
-	    $name = '*' if $S{banned_on} and exists $banned_channels{lc1459($name)};
-	    $name = remove_uniform_vars($win, $name) if $name ne '*';
-	    if ($name ne '*' and $win->{name} ne '' and $S{prefer_name}) {
-		$name = as_uni($win->{name});
-		if ($custom_xform) {
-		    no strict 'refs';
-		    local ${ __PACKAGE__ . '::custom_xform::NAME' } = 1;
-		    run_custom_xform() for $name;
-		}
-	    }
-
-	    if (!$VIEWER_MODE && $S{block} >= 0 && $S{hide_name}
-		&& $win->{data_level} < abs $S{hide_name}
-		&& ($win->{refnum} != $active->{refnum} || 0 <= $S{hide_name})) {
-		$name = '';
-		$cdisplay = '';
-	    }
-	}
-
-	$display = "$display%n";
-	my $num_ent = (' 'x max(0,$numPad - length $number)) . $number;
-	my $key_ent = exists $keymap{$number} ? ((' 'x max(0,$keyPad - length $keymap{$number})) . $keymap{$number}) : ' 'x$keyPad;
-	if ($VIEWER_MODE or $S{sbar_maxlen} or $S{block} < 0) {
-	    my $baseLength = sb_length(_format_display(
-		'', $display, $cdisplay, $hilight,
-		'x', # placeholder
-		$num_ent,
-		$key_ent,
-		$win)) - 1;
-	    my $diff = (abs $S{block}) - (screen_length(as_tc($name)) + $baseLength);
-	    if ($diff < 0) { # too long
-		my $screen_length = screen_length(as_tc($name));
-		if ((abs $diff) >= $screen_length) { $name = '' } # forget it
-		elsif ((abs $diff) + screen_length(as_tc(substr($name, 0, 1))) >= $screen_length) { $name = substr($name, 0, 1); }
-		else {
-		    my $ulen = length $name;
-		    my $middle2 = exists $abbrevList->{$name} ?
-			($S{fancy_strict}) ?
-			    2* $abbrevList->{$name} :
-			   (2*($abbrevList->{$name} + $ulen) / 3) :
-			       ($S{fancy_head}) ?
-				2*$ulen :
-				    $ulen;
-		    my $first = 1;
-		    while (length $name > 1) {
-			my $cp = $middle2 >= 0 ? $middle2/2 : -1; # clearing position
-			my $rm = 2;
-			# if character at end is wider than 1 cell -> replace it with ~
-			if (screen_length(as_tc(substr $name, $cp, 1)) > 1) {
-			    if ($first || $cp < 0) {
-				$rm = 1;
-				$first = undef;
-			    }
-			}
-			elsif ($cp < 0) { # elsif at end -> replace last 2 characters
-			    --$cp;
-			}
-			(substr $name, $cp, $rm) = $abbrev1;
-			if ($cp > -1 && $rm > 1) {
-			    --$middle2;
-			}
-			my $sl = screen_length(as_tc($name));
-			if ($sl + $baseLength < abs $S{block}) {
-			    (substr $name, ($middle2+1)/2, 1) = $abbrev2;
-			    last;
-			}
-			elsif ($sl + $baseLength == abs $S{block}) {
-			    last;
-			}
-		    }
-		}
-	    }
-	    elsif ($VIEWER_MODE or $S{block} < 0) {
-		$name .= (' ' x $diff);
-	    }
-	}
-
-	push @win_items, _format_display(
-	    '', $display, $cdisplay, $hilight,
-	    as_tc($name),
-	    $num_ent,
-	    as_tc($key_ent),
-	    $win);
-
-	if ($global_tag_header_mode) {
-	    $last_net = $backup_win->{active}{server}{tag};
-	    redo;
-	}
-
-	$mouse_coords{refnum}{$#win_items} = $number;
-    }
-}
-
-sub _spread_items {
-    my $width = $screenWidth - $sb_base_width - 1;
-    my @separator = _get_format(set 'separator');
-    if ($S{block} >= 0) {
-	my $sep2 = _get_format(set 'separator2');
-	push @separator, $sep2 if length $sep2 && $sep2 ne $separator[0];
-    }
-    $separator[0] .= '%n';
-    my @sepLen = map { sb_length($_) } @separator;
-
-    @actString = ();
-    my $curLine;
-    my $curLen = 0;
-    if ($S{shared_sbar}) {
-	$curLen += $S{shared_sbar}[0] + 2;
-	$width -= $S{shared_sbar}[2];
-    }
-    my $mouse_header_check = 0;
-    for my $it (@win_items) {
-	my $itemLen = sb_length($it);
-	if ($curLen) {
-	    if ($curLen + $itemLen + $sepLen[$mouse_header_check % @sepLen] > $width) {
-		$width += $S{shared_sbar}[2]
-		    if !@actString && $S{shared_sbar};
-		push @actString, $curLine;
-		$curLine = undef;
-		$curLen = 0;
-	    }
-	    elsif (defined $curLine) {
-		$curLine .= $separator[$mouse_header_check % @separator];
-		$curLen += $sepLen[$mouse_header_check % @sepLen];
-	    }
-	}
-	$curLine .= $it;
-	if (exists $mouse_coords{refnum}{$mouse_header_check}) {
-	    $mouse_coords{scalar @actString}{ $_ } = $mouse_coords{refnum}{$mouse_header_check}
-		for $curLen .. $curLen + $itemLen - 1;
-	}
-	$curLen += $itemLen;
-    }
-    continue {
-	++$mouse_header_check;
-    }
-    $curLen -= $S{shared_sbar}[0]
-	if !@actString && $S{shared_sbar};
-    push @actString, $curLine if $curLen;
-}
-
-sub remake {
-    my %abbrevList;
-    my @wins = window_list();
-    if ($VIEWER_MODE or $S{sbar_maxlen} or $S{block} < 0) {
-	_calculate_abbrev(\@wins, \%abbrevList);
-    }
-
-    %mouse_coords = ( refnum => +{} );
-    _calculate_items(\@wins, \%abbrevList);
-
-    unless ($VIEWER_MODE) {
-	_spread_items();
-
-	push @actString, undef unless @actString || $S{all_disable};
-    }
-}
-
-sub update_wl {
-    return if $BLOCK_ALL;
-    remake();
-
-    Irssi::statusbar_items_redraw(set $_) for keys %statusbars;
-
-    unless ($VIEWER_MODE) {
-	Irssi::timeout_add_once(100, 'syncLines', undef);
-    }
-    else {
-	syncViewer();
-    }
-}
-
-sub screenFullRedraw {
-    my ($window) = @_;
-    if (!ref $window or $window->{refnum} == Irssi::active_win->{refnum}) {
-	$viewer{fullRedraw} = 1 if $viewer{client};
-	$settings_str = '';
-	&setup_changed;
-    }
-}
-
-sub restartViewerServer {
-    if ($VIEWER_MODE) {
-	stop_viewer();
-	start_viewer();
-    }
-}
-
-sub _simple_quote {
-    my @r = map {
-	my $x = $_;
-	$x =~ s/'/'"'"'/g;
-	$x = "'$x'";
-    } @_;
-    wantarray ? @r : shift @r
-}
-
-sub _viewer_command_replace_format {
-    my ($ecmd, @args) = @_;
-    my $file = _simple_quote(SCRIPT_FILE());
-    my $path = _simple_quote($viewer{path});
-    my @env;
-    for my $env (shellwords($S{viewer_launch_env})) {
-	if ($env =~ /^(\w+)(?:=(.*))$/) {
-	    push @env, "AWL_$1=$2"
-	}
-    }
-    my $cmd = join ' ',
-	(@env ? ('env', _simple_quote(@env)) : ()),
-	'perl', $file, '-1', _simple_quote(@args), $path;
-    $ecmd =~ s{%(%|\w+)}{
-	my $sub = $1;
-	if ($sub eq '%') {
-	    '%'
-	}
-	elsif ($sub =~ /^(q*)A(.*)/) {
-	    my $ret = $cmd;
-	    for (1..length $1) {
-		$ret = _simple_quote($ret);
-	    }
-	    "$ret$2"
-	}
-	else {
-	    "%$sub"
-	}
-    }gex;
-    $ecmd
-}
-
-sub start_viewer {
-    unlink $viewer{path} if -S $viewer{path} || -p _;
-
-    $viewer{server} = IO::Socket::UNIX->new(
-	Type => SOCK_STREAM,
-	Local => $viewer{path},
-	Listen => 1
-       );
-    unless ($viewer{server}) {
-	$viewer{msg} = "Viewer: $!";
-	$viewer{retry} = Irssi::timeout_add_once(5000, 'retry_viewer', 1);
-	return;
-    }
-    $viewer{server}->blocking(0);
-    set_viewer_mode_hint();
-    $viewer{server_tag} = Irssi::input_add($viewer{server}->fileno, INPUT_READ, 'vi_connected', undef);
-
-    if ($S{viewer_launch}) {
-	if (length $ENV{TMUX_PANE} && length $ENV{TMUX} && lc $S{viewer_tmux_position} ne 'custom') {
-	    my $cmd = _viewer_command_replace_format('%qA', '-p', lc $S{viewer_tmux_position});
-	    Irssi::command("exec - tmux neww -d $cmd 2>&1 &");
-	}
-	elsif (length $ENV{WINDOWID} && length $ENV{DISPLAY} && length $S{viewer_xwin_command} && $S{viewer_xwin_command} =~ /\S/) {
-	    my $cmd = _viewer_command_replace_format($S{viewer_xwin_command});
-	    Irssi::command("exec - $cmd 2>&1 &");
-	}
-	elsif (length $S{viewer_custom_command} && $S{viewer_custom_command} =~ /\S/) {
-	    my $cmd = _viewer_command_replace_format($S{viewer_custom_command});
-	    Irssi::command("exec - $cmd 2>&1 &");
-	}
-    }
-}
-
-sub set_viewer_mode_hint {
-    return unless $viewer{server};
-    if ($S{no_mode_hint}) {
-	$viewer{msg} = undef;
-    }
-    else {
-	my ($name) = __PACKAGE__ =~ /::([^:]+)$/;
-	$viewer{msg} = "Run $name from the shell or switch to sbar mode";
-    }
-}
-
-sub retry_viewer {
-    start_viewer();
-}
-
-sub vi_close_client {
-    Irssi::input_remove(delete $viewer{client_tag}) if exists $viewer{client_tag};
-    $viewer{client}->close if $viewer{client};
-    delete $viewer{client};
-    delete $viewer{client_keymap};
-    delete $viewer{client_settings};
-    delete $viewer{client_env};
-    delete $viewer{fullRedraw};
-}
-
-sub vi_connected {
-    vi_close_client();
-    $viewer{client} = $viewer{server}->accept or return;
-    $viewer{client}->blocking(0);
-    $viewer{client_tag} = Irssi::input_add($viewer{client}->fileno, INPUT_READ, 'vi_clientinput', undef);
-    syncViewer();
-}
-
-use constant VIEWER_BLOCK_SIZE => 1024;
-sub vi_clientinput {
-    if ($viewer{client}->read(my $buf, VIEWER_BLOCK_SIZE)) {
-	$viewer{rcvbuf} .= $buf;
-	if ($viewer{rcvbuf} =~ s/^(?:(active|\d+)|(last|up|down))\n//igm) {
-	    if (defined $2) {
-		Irssi::command("window $2");
-	    }
-	    elsif (lc $1 eq 'active' && $viewer{use_ack}) {
-		Irssi::command("ack");
-	    }
-	    else {
-		Irssi::command("window goto $1");
-	    }
-	}
-    }
-    else {
-	vi_close_client();
-	Irssi::timeout_add_once(100, 'syncViewer', undef);
-    }
-}
-
-sub stop_viewer {
-    Irssi::timeout_remove(delete $viewer{retry}) if exists $viewer{retry};
-    vi_close_client();
-    Irssi::input_remove(delete $viewer{server_tag}) if exists $viewer{server_tag};
-    return unless $viewer{server};
-    $viewer{server}->close;
-    delete $viewer{server};
-}
-sub _encode_var {
-    my $str;
-    while (@_) {
-	my ($name, $var) = splice @_, 0, 2;
-	my $type = ref $var ? $var =~ /HASH/ ? 'map' : $var =~ /ARRAY/ ? 'list' : '' : '';
-	$str .= "\n\U$name$type\_begin\n";
-	if ($type eq 'map') {
-	    no warnings 'numeric';
-	    $str .= " $_\n ${$var}{$_}\n" for sort { $a <=> $b || $a cmp $b } keys %$var;
-	}
-	elsif ($type eq 'list') {
-	    $str .= " $_\n" for @$var;
-	}
-	else {
-	    $str .= " $var\n";
-	}
-	$str .= "\U$name$type\_end\n";
-    }
-    $str
-}
-sub syncViewer {
-    if ($viewer{client}) {
-	@actString = ();
-	if ($currentLines) {
-	    killOldStatus();
-	    $currentLines = 0;
-	}
-	my $str;
-	unless ($viewer{client_keymap}) {
-	    $str .= _encode_var('key', +{ %nummap, %specialmap });
-	    $viewer{client_keymap} = 1;
-	}
-	unless ($viewer{client_settings}) {
-	    $str .= _encode_var(
-		block => $S{block},
-		ha => $S{height_adjust},
-		mc => $S{maxcolumns},
-		ml => $S{maxlines},
-	       );
-	    $viewer{client_settings} = 1;
-	}
-	unless ($viewer{client_env}) {
-	    $str .= _encode_var(irssienv => +{
-		length $ENV{TMUX_PANE} && length $ENV{TMUX} ?
-		     (tmux_pane => $ENV{TMUX_PANE},
-		      tmux_srv => $ENV{TMUX}) : (),
-		length $ENV{WINDOWID} ?
-		     (xwinid => $ENV{WINDOWID}) : (),
-	       });
-	    $viewer{client_env} = 1;
-	}
-	my $separator = _get_format(set 'separator');
-	my $sepLen = sb_length($separator);
-	my $item_bg = _get_format(set 'viewer_item_bg');
-	my $title = _get_format(set 'title');
-	if (length $title) {
-	    $title =~ s{\\(.)|(.)}{
-		defined $2 ? quotemeta $2
-		    : $1 eq 'V' ? '\U'
-		    : $1 eq ':' ? quotemeta '%N'
-		    : $1 =~ /^[uUFQE]$/ ? "\\$1"
-		    : quotemeta "\\$1"
-		}sge;
-	    $title = eval qq{"$title"};
-	}
-	$str .= _encode_var(redraw => 1) if delete $viewer{fullRedraw};
-	$str .= _encode_var(separator => $separator,
-			    seplen => $sepLen,
-			    itembg => $item_bg,
-			    title => $title,
-			    mouse => $mouse_coords{refnum},
-			    key2 => \%wnmap_exp,
-			    win => \@win_items);
-
-	my $was = $viewer{client}->blocking(1);
-	$viewer{client}->print($str);
-	$viewer{client}->blocking($was);
-    }
-    elsif ($viewer{server}) {
-	if (defined $viewer{msg}) {
-	    @actString = ((uc setc()).": $viewer{msg}");
-	}
-	else {
-	    @actString = ();
-	}
-    }
-    elsif (defined $viewer{msg}) {
-	@actString = ((uc setc()).": $viewer{msg}");
-    }
-    if (@actString) {
-	Irssi::timeout_add_once(100, 'syncLines', undef);
-    }
-    elsif ($currentLines) {
-	killOldStatus();
-	$currentLines = 0;
-    }
-}
-
-sub reset_awl {
-    Irssi::timeout_remove($shade_line_timer) if $shade_line_timer; $shade_line_timer = undef;
-    my $was_sort = $S{sort} // '';
-    my $was_xform = $S{xform} // '';
-    my $was_shared = $S{shared_sbar};
-    my $was_no_hint = $S{no_mode_hint};
-    %S = (
-	sort	      => Irssi::settings_get_str( set 'sort'),
-	fancy_abbrev  => Irssi::settings_get_str('fancy_abbrev'),
-	xform	      => Irssi::settings_get_str( set 'custom_xform'),
-	block	      => Irssi::settings_get_int( set 'block'),
-	banned_on     => Irssi::settings_get_bool('banned_channels_on'),
-	prefer_name   => Irssi::settings_get_bool(set 'prefer_name'),
-	hide_data     => Irssi::settings_get_int( set 'hide_data'),
-	hide_name     => Irssi::settings_get_int( set 'hide_name_data'),
-	hide_empty    => Irssi::settings_get_int( set 'hide_empty'),
-	sbar_maxlen   => Irssi::settings_get_bool(set 'sbar_maxlength'),
-	placement     => Irssi::settings_get_str( set 'placement'),
-	position      => Irssi::settings_get_int( set 'position'),
-	maxlines      => Irssi::settings_get_int( set 'maxlines'),
-	maxcolumns    => Irssi::settings_get_int( set 'maxcolumns'),
-	all_disable   => Irssi::settings_get_bool(set 'all_disable'),
-	height_adjust => Irssi::settings_get_int( set 'height_adjust'),
-	mouse_offset  => Irssi::settings_get_int( set 'mouse_offset'),
-	mouse_scroll  => Irssi::settings_get_int( 'mouse_scroll'),
-	mouse_escape  => Irssi::settings_get_int( 'mouse_escape'),
-	line_shade    => Irssi::settings_get_time(set 'last_line_shade'),
-	no_mode_hint  => Irssi::settings_get_bool(set 'no_mode_hint'),
-	viewer_launch	      => Irssi::settings_get_bool(set 'viewer_launch'),
-	viewer_launch_env     => Irssi::settings_get_str(set 'viewer_launch_env'),
-	viewer_xwin_command   => Irssi::settings_get_str(set 'viewer_xwin_command'),
-	viewer_custom_command => Irssi::settings_get_str(set 'viewer_custom_command'),
-	viewer_tmux_position  => Irssi::settings_get_str(set 'viewer_tmux_position'),
-	);
-    $S{fancy_strict} = $S{fancy_abbrev} =~ /^strict/i;
-    $S{fancy_head} = $S{fancy_abbrev} =~ /^head/i;
-    my $shared = Irssi::settings_get_str(set 'shared_sbar');
-    if ($shared =~ /^(\d+)([<])(\d+)$/) {
-	$S{shared_sbar} = [$1, $2, $3];
-    }
-    else {
-	Irssi::settings_set_str(set 'shared_sbar', 'OFF');
-	$S{shared_sbar} = undef;
-    }
-    lock_keys(%S);
-    if ($was_sort ne $S{sort}) {
-	$print_text_activity = undef;
-	my @sort_order = grep { @$_ > 4 } map {
-	    s/^\s*//;
-	    my $reverse = s/^\W*\K[-!]//;
-	    my $undef_check = s/^\W*\K~// ? 1 : undef;
-	    my $equal_check = s/=(.*)\s?$// ? $1 : undef;
-	    s/\s*$//;
-	    my $ignore_case = s/#i$// ? 1 : undef;
-
-	    $print_text_activity = 1 if $_ eq 'last_line';
-
-	    my @path = split '/';
-	    my $class_check = @path && $path[-1] =~ s/(::.*)$// ? $1 : undef;
-
-	    [ $reverse ? -1 : 1, $undef_check, $equal_check, $class_check, $ignore_case, @path ]
-	} "$S{sort}," =~ /([^+,]*|[^+,]*=[^,]*?\s(?=\+)|[^+,]*=[^,]*)[+,]/g;
-	$window_sort_func = sub {
-	    no warnings qw(numeric uninitialized);
-	    for my $so (@sort_order) {
-		my @x = map {
-		    my $ret = 0;
-		    $_ = lc1459($_) if defined $_ && !ref $_ && $so->[4];
-		    $ret = $_ eq ($so->[4] ? lc1459($so->[2]) : $so->[2]) ? 1 : -1 if defined $so->[2];
-		    $ret = defined $_ ? ($ret || -3) : 3 if $so->[1];
-		    $ret = ref $_ && $_->isa('Irssi'.$so->[3]) ? 2 : ($ret || -2) if $so->[3];
-		    -$ret || $_
-		}
-		map {
-		    reduce { return unless ref $a; $a->{$b} } $_, @{$so}[5..$#$so]
-		} $a, $b;
-		return ((($x[0] <=> $x[1] || $x[0] cmp $x[1]) * $so->[0]) || next);
-	    }
-	    return ($a->{refnum} <=> $b->{refnum});
-	};
-    }
-    if ($was_xform ne $S{xform}) {
-	if ($S{xform} !~ /\S/) {
-	    $custom_xform = undef;
-	}
-	else {
-	    my $script_pkg = __PACKAGE__ . '::custom_xform';
-	    local $@;
-	    $custom_xform = eval qq{
-package $script_pkg;
-use strict;
-no warnings;
-our (\$QUERY, \$CHANNEL, \$TAG, \$NAME);
-return sub {
-# line 1 @{[ set 'custom_xform' ]}\n$S{xform}\n}};
-	    if ($@) {
-		$@ =~ /^(.*)/;
-		print '%_'.(set 'custom_xform').'%_ did not compile: '.$1;
-	    }
-	}
-    }
-
-    my $new_settings = join "\n", $VIEWER_MODE
-	 ? ("\\", $S{block}, $S{height_adjust}, $S{maxlines}, $S{maxcolumns})
-	 : ("!", $S{placement}, $S{position});
-
-    if ($settings_str ne $new_settings) {
-	@actString = ();
-	%abbrev_cache = ();
-	$currentLines = 0;
-	killOldStatus();
-	delete $viewer{client_settings};
-	$settings_str = $new_settings;
-    }
-
-    my $was_mouse_mode = $MOUSE_ON;
-    if ($MOUSE_ON = Irssi::settings_get_bool(set 'mouse') and !$was_mouse_mode) {
-	install_mouse();
-    }
-    elsif ($was_mouse_mode and !$MOUSE_ON) {
-	uninstall_mouse();
-    }
-
-    my $path = Irssi::settings_get_str(set 'path');
-    my $was_viewer_mode = $VIEWER_MODE;
-    if ($was_viewer_mode &&
-	defined $viewer{path} && $viewer{path} ne $path) {
-	stop_viewer();
-	$was_viewer_mode = 0;
-    }
-    elsif ($was_viewer_mode && $S{no_mode_hint} != $was_no_hint + 0) {
-	set_viewer_mode_hint();
-    }
-    $viewer{path} = $path;
-    if ($VIEWER_MODE = Irssi::settings_get_bool(set 'viewer') and !$was_viewer_mode) {
-	start_viewer();
-    }
-    elsif ($was_viewer_mode and !$VIEWER_MODE) {
-	stop_viewer();
-    }
-
-    %banned_channels = map { lc1459(to_uni($_)) => undef }
-	split ' ', Irssi::settings_get_str('banned_channels');
-
-    my @sb_base = split /\177/, sb_format_expand("{sbstart}{sb \177}{sbend}"), 2;
-    $sb_base_width_pre = sb_length($sb_base[0]);
-    $sb_base_width_post = max 0, sb_length($sb_base[1])-1;
-    $sb_base_width = $sb_base_width_pre + $sb_base_width_post;
-
-    if ($print_text_activity && $S{line_shade}) {
-	$shade_line_timer = Irssi::timeout_add(max(10 * GLOB_QUEUE_TIMER, 100*$S{line_shade}**(1/3)), 'wl_changed', undef);
-    }
-
-    $CHANGED{AWINS} = 1;
-}
-
-sub stop_mouse_tracking {
-    print STDERR "\e[?1005l\e[?1000l";
-}
-sub start_mouse_tracking {
-    print STDERR "\e[?1000h\e[?1005h";
-}
-sub install_mouse {
-    Irssi::command_bind('mouse_xterm' => 'mouse_xterm');
-    Irssi::command('^bind meta-[M command mouse_xterm');
-    Irssi::signal_add_first('gui key pressed' => 'mouse_key_hook');
-    start_mouse_tracking();
-}
-sub uninstall_mouse {
-    stop_mouse_tracking();
-    Irssi::signal_remove('gui key pressed' => 'mouse_key_hook');
-    Irssi::command('^bind -delete meta-[M');
-    Irssi::command_unbind('mouse_xterm' => 'mouse_xterm');
-}
-
-sub awl_mouse_event {
-    return if $VIEWER_MODE;
-    if ((($_[0] == 3 and $_[3] == 0)
-	     || $_[0] == 64 || $_[0] == 65) and
-	    $_[1] == $_[4] and $_[2] == $_[5]) {
-	my $top = lc $S{placement} eq 'top';
-	my ($pos, $line) = @_[1 .. 2];
-	unless ($top) {
-	    $line -= $screenHeight;
-	    $line += $currentLines;
-	    $line += $S{mouse_offset};
-	}
-	else {
-	    $line -= $S{mouse_offset};
-	}
-	$pos -= $sb_base_width_pre;
-	return if $line < 0 || $line >= $currentLines;
-	if ($_[0] == 64) {
-	    Irssi::command('window up');
-	}
-	elsif ($_[0] == 65) {
-	    Irssi::command('window down');
-	}
-	elsif (exists $mouse_coords{$line}{$pos}) {
-	    my $win = $mouse_coords{$line}{$pos};
-	    Irssi::command('window ' . $win);
-	}
-	Irssi::signal_stop;
-    }
-}
-
-sub mouse_scroll_event {
-    return unless $S{mouse_scroll};
-    if (($_[3] == 64 or $_[3] == 65) and
-	    $_[0] == $_[3] and $_[1] == $_[4] and $_[2] == $_[5]) {
-	my $cmd = 'scrollback goto ' . ($_[3] == 64 ? '-' : '+') . $S{mouse_scroll};
-	Irssi::active_win->command($cmd);
-	Irssi::signal_stop;
-    }
-    elsif ($_[0] == 64 or $_[0] == 65) {
-	Irssi::signal_stop;
-    }
-}
-
-sub mouse_escape {
-    return unless $S{mouse_escape} > 0;
-    if ($_[0] == 3) {
-	my $tm = $S{mouse_escape};
-	$tm *= 1000 if $tm < 1000;
-	stop_mouse_tracking();
-	Irssi::timeout_add_once($tm, 'start_mouse_tracking', undef);
-	Irssi::signal_stop;
-    }
-}
-
-sub UNLOAD {
-    @actString = ();
-    killOldStatus();
-    stop_viewer() if $VIEWER_MODE;
-    uninstall_mouse() if $MOUSE_ON;
-}
-
-sub addPrintTextHook { # update on print text
-    return unless defined $^S;
-    return if $BLOCK_ALL;
-    return unless $print_text_activity;
-    return if $_[0]->{level} == 262144 and $_[0]->{target} eq ''
-	and !defined($_[0]->{server});
-    &wl_changed;
-}
-
-sub block_event_window_change {
-    Irssi::signal_stop;
-}
-
-sub update_awins {
-    my @wins = Irssi::windows;
-    local $BLOCK_ALL = 1;
-    Irssi::signal_add_first('window changed' => 'block_event_window_change');
-    my $bwin =
-	my $awin = Irssi::active_win;
-    my $lwin;
-    my $defer_irssi_broken_last;
-    unless ($wins[0]{refnum} == $awin->{refnum}) {
-	# special case: more than 1 last win, so /win last;
-	# /win last doesn't come back to the current window. eg. after
-	# connect & autojoin; we can't handle this situation, bail out
-	$defer_irssi_broken_last = 1;
-    }
-    else {
-	$awin->command('window last');
-	$lwin = Irssi::active_win;
-	$lwin->command('window last');
-	$defer_irssi_broken_last = $lwin->{refnum} == $bwin->{refnum};
-    }
-    my $awin_counter = 0;
-    Irssi::signal_remove('window changed' => 'block_event_window_change');
-    unless ($defer_irssi_broken_last) {
-	# we need to keep the fe-windows code running here
-	Irssi::signal_add_priority('window changed' => 'block_event_window_change', -99);
-	%awins = %wnmap_exp = ();
-	do {
-	    Irssi::active_win->command('window up');
-	    $awin = Irssi::active_win;
-	    $awins{$awin->{refnum}} = undef;
-	    ++$awin_counter;
-	} until ($awin->{refnum} == $bwin->{refnum} || $awin_counter >= @wins);
-	Irssi::signal_remove('window changed' => 'block_event_window_change');
-
-	Irssi::signal_add_first('window changed' => 'block_event_window_change');
-	for my $key (keys %wnmap) {
-	    next unless Irssi::window_find_name($key) || Irssi::window_find_item($key);
-	    $awin->command("window goto $key");
-	    my $cwin = Irssi::active_win;
-	    $wnmap_exp{ $cwin->{refnum} } = $wnmap{$key};
-	    $cwin->command('window last')
-		if $cwin->{refnum} != $awin->{refnum};
-	}
-	for my $win (reverse @wins) { # restore original window order
-	    Irssi::active_win->command('window '.$win->{refnum});
-	}
-	$awin->command('window '.$lwin->{refnum}); # restore last win
-	Irssi::active_win->command('window last');
-	Irssi::signal_remove('window changed' => 'block_event_window_change');
-    }
-    $CHANGED{WL} = 1;
-}
-
-sub resizeTerm {
-    if (defined (my $r = `stty size 2>/dev/null`)) {
-	($screenHeight, $screenWidth) = split ' ', $r;
-	$CHANGED{SETUP} = 1;
-    }
-    else {
-	$CHANGED{SIZE} = 1;
-    }
-}
-
-sub awl_refresh {
-    $globTime = undef;
-    resizeTerm()   if delete $CHANGED{SIZE};
-    reset_awl()    if delete $CHANGED{SETUP};
-    update_awins() if delete $CHANGED{AWINS};
-    update_wl()    if delete $CHANGED{WL};
-}
-
-sub termsize_changed { $CHANGED{SIZE}  = 1; &queue_refresh; }
-sub setup_changed    { $CHANGED{SETUP} = 1; &queue_refresh; }
-sub awins_changed    { $CHANGED{AWINS} = 1; &queue_refresh; }
-sub wl_changed       { $CHANGED{WL}    = 1; &queue_refresh; }
-
-sub window_changed {
-    &awins_changed if $_[1];
-}
-
-sub queue_refresh {
-    return if $BLOCK_ALL;
-    Irssi::timeout_remove($globTime)
-	    if defined $globTime; # delay the update further
-    $globTime = Irssi::timeout_add_once(GLOB_QUEUE_TIMER, 'awl_refresh', undef);
-}
-
-sub awl_init {
-    termsize_changed();
-    update_keymap();
-}
-
-sub runsub {
-    my $cmd = shift;
-    sub {
-	my ($data, $server, $item) = @_;
-	Irssi::command_runsub($cmd, $data, $server, $item);
-    };
-}
-
-Irssi::signal_register({
-    'gui mouse' => [qw/int int int int int int/],
-   });
-{ my $broken_expandos = (Irssi::version >= 20081128 && Irssi::version < 20110210)
-      ? sub { my $x = shift; $x =~ s/\$\{cumode_space\}/ /; $x } : undef;
-  Irssi::theme_register([
-    map { $broken_expandos ? $broken_expandos->($_) : $_ }
-    set 'display_nokey'		=>   '$N${cumode_space}$H$C$S',
-    set 'display_key'		=>   '$Q${cumode_space}$H$C$S',
-    set 'display_nokey_visible' => '%2$N${cumode_space}$H$C$S',
-    set 'display_key_visible'	=> '%2$Q${cumode_space}$H$C$S',
-    set 'display_nokey_active'	=> '%1$N${cumode_space}$H$C$S',
-    set 'display_key_active'	=> '%1$Q${cumode_space}$H$C$S',
-    set 'display_header'	=> '%8$C|${N}',
-    set 'name_display'		=> '$0',
-    set 'separator'		=> ' ',
-    set 'separator2'		=> '',
-    set 'abbrev_chars'		=> "~\x{301c}",
-    set 'viewer_item_bg'	=> sb_format_expand('{sb_background}'),
-    set 'title'			=> '\V'.setc().'\:',
-   ]);
-}
-Irssi::settings_add_bool(setc, set 'prefer_name',    0); #
-Irssi::settings_add_int( setc, set 'hide_empty',     0); #
-Irssi::settings_add_int( setc, set 'hide_data',      0); #
-Irssi::settings_add_int( setc, set 'hide_name_data', 0); #
-Irssi::settings_add_int( setc, set 'maxlines',       9); #
-Irssi::settings_add_int( setc, set 'maxcolumns',     4); #
-Irssi::settings_add_int( setc, set 'block',          15); #
-Irssi::settings_add_bool(setc, set 'sbar_maxlength', 1); #
-Irssi::settings_add_int( setc, set 'height_adjust',  2); #
-Irssi::settings_add_str( setc, set 'sort',           'refnum'); #
-Irssi::settings_add_str( setc, set 'placement',      'bottom'); #
-Irssi::settings_add_int( setc, set 'position',       0); #
-Irssi::settings_add_bool(setc, set 'all_disable',    1); #
-Irssi::settings_add_bool(setc, set 'viewer',         1); #
-Irssi::settings_add_str( setc, set 'shared_sbar',    'OFF'); #
-Irssi::settings_add_bool(setc, set 'mouse',          0); #
-Irssi::settings_add_str( setc, set 'path', Irssi::get_irssi_dir . '/_windowlist'); #
-Irssi::settings_add_str( setc, set 'custom_xform',   ''); #
-Irssi::settings_add_time(setc, set 'last_line_shade', '0'); #
-Irssi::settings_add_int( setc, set 'mouse_offset',   1); #
-Irssi::settings_add_int( setc, 'mouse_scroll',       3); #
-Irssi::settings_add_int( setc, 'mouse_escape',       1); #
-Irssi::settings_add_str( setc, 'banned_channels',    '');
-Irssi::settings_add_bool(setc, 'banned_channels_on', 1);
-Irssi::settings_add_str( setc, 'fancy_abbrev',       'fancy'); #
-Irssi::settings_add_bool(setc, set 'no_mode_hint',   0); #
-Irssi::settings_add_bool(setc, set 'viewer_launch',  1); #
-Irssi::settings_add_str( setc, set 'viewer_launch_env',  ''); #
-Irssi::settings_add_str( setc, set 'viewer_tmux_position',  'left'); #
-Irssi::settings_add_str( setc, set 'viewer_xwin_command',  'xterm +sb -e %A'); #
-Irssi::settings_add_str( setc, set 'viewer_custom_command',  ''); #
-
-Irssi::signal_add_last({
-    'setup changed'    => 'setup_changed',
-    'print text'       => 'addPrintTextHook',
-    'terminal resized' => 'termsize_changed',
-    'setup reread'     => 'screenFullRedraw',
-    'window hilight'   => 'wl_changed',
-    'command format'   => 'wl_changed',
-});
-Irssi::signal_add({
-    'window changed'	       => 'window_changed',
-    'window item changed'      => 'wl_changed',
-    'window changed automatic' => 'window_changed',
-    'window created'	       => 'awins_changed',
-    'window destroyed'	       => 'awins_changed',
-    'window name changed'      => 'wl_changed',
-    'window refnum changed'    => 'wl_changed',
-});
-Irssi::signal_add_last('gui mouse' => 'mouse_escape');
-Irssi::signal_add_last('gui mouse' => 'mouse_scroll_event');
-Irssi::signal_add_last('gui mouse' => 'awl_mouse_event');
-Irssi::command_bind( setc() => runsub(setc()) );
-Irssi::command_bind( setc() . ' redraw' => 'screenFullRedraw' );
-Irssi::command_bind( setc() . ' restart' => 'restartViewerServer' );
-
-{
-    my $l = set 'shared';
-    {
-	no strict 'refs';
-	*{$l} = $awl_shared_empty;
-    }
-    Irssi::statusbar_item_register($l, '$0', $l);
-}
-
-awl_init();
-
-# Mouse script based on irssi mouse patch by mirage
-{ my $mouse_status = -1; # -1:off 0,1,2:filling mouse_combo
-  my @mouse_combo; # 0:button 1:x 2:y
-  my @mouse_previous; # previous contents of mouse_combo
-
-  sub mouse_xterm_off {
-      $mouse_status = -1;
-  }
-  sub mouse_xterm {
-      $mouse_status = 0;
-      Irssi::timeout_add_once(10, 'mouse_xterm_off', undef);
-  }
-
-  sub mouse_key_hook {
-      my ($key) = @_;
-      if ($mouse_status != -1) {
-	  if ($mouse_status == 0) {
-	      @mouse_previous = @mouse_combo;
-		  #if @mouse_combo && $mouse_combo[0] < 64;
-	  }
-	  $mouse_combo[$mouse_status] = $key - 32;
-	  $mouse_status++;
-	  if ($mouse_status == 3) {
-	      $mouse_status = -1;
-	      # match screen coordinates
-	      $mouse_combo[1]--;
-	      $mouse_combo[2]--;
-	      Irssi::signal_emit('gui mouse', @mouse_combo[0 .. 2], @mouse_previous[0 .. 2]);
-	  }
-	  Irssi::signal_stop;
-      }
-  }
-}
-
-sub string_LCSS {
-    my $str = join "\0", @_;
-    (sort { length $b <=> length $a } $str =~ /(?=(.+).*\0.*\1)/g)[0]
-}
-
-# workaround for issue #271
-{ package Irssi::Nick }
-
-# workaround for issue #572
-@Irssi::UI::Exec::ISA = 'Irssi::Windowitem'
-    if Irssi::version >= 20140822 && Irssi::version <= 20161101 && !@Irssi::UI::Exec::ISA;
-
-UNITCHECK
-{ package AwlViewer;
-  use strict;
-  use warnings;
-  no warnings 'redefine';
-  use Encode;
-  use IO::Socket::UNIX;
-  use IO::Select;
-  use List::Util qw(max);
-  use constant BLOCK_SIZE => 1024;
-  use constant RECONNECT_TIME => 5;
-
-  my $sockpath;
-
-  our $VERSION = '0.8';
-
-  our ($got_int, $resized, $timeout);
-
-  my %vars;
-  my (%c2w, @seqlist);
-  my %mouse_coords;
-  my (@mouse, @last_mouse);
-  my ($err, $sock, $loop);
-  my ($keybuf, $rcvbuf);
-  my @screen;
-  my ($screenHeight, $screenWidth);
-  my ($disp_update, $fs_open, $one_shot_integration, $one_shot_resize);
-  my $integration_position;
-  my $show_title_bar;
-
-  sub connect_it {
-      $sock = IO::Socket::UNIX->new(
-	  Type => SOCK_STREAM,
-	  Peer => $sockpath,
-	 );
-      unless ($sock) {
-	  $err = $!;
-	  return;
-      }
-      $sock->blocking(0);
-      $loop->add($sock);
-  }
-
-  sub remove_conn {
-      my $fh = shift;
-      $loop->remove($fh);
-      $fh->close;
-      $sock = undef;
-      %vars = ();
-      @screen = ();
-  }
-
-  { package Terminfo; # xterm
-    sub civis      { "\e[?25l" }
-    sub sc	   { "\e7" }
-    sub cup	   { "\e[" . ($_[0] + 1) . ';' . ($_[1] + 1) . 'H' }
-    sub el	   { "\e[K" }
-    sub rc	   { "\e8" }
-    sub cnorm      { "\e[?25h" }
-    sub setab      { "\e[4" . $_[0] . 'm' }
-    sub setaf      { "\e[3" . $_[0] . 'm' }
-    sub setaf16    { "\e[9" . $_[0] . 'm' }
-    sub setab16    { "\e[10" . $_[0] . 'm' }
-    sub setaf256   { "\e[38;5;" . $_[0] . 'm' }
-    sub setab256   { "\e[48;5;" . $_[0] . 'm' }
-    sub sgr0       { "\e[0m" }
-    sub bold       { "\e[1m" }
-    sub it         { "\e[3m" }
-    sub ul         { "\e[4m" }
-    sub blink      { "\e[5m" }
-    sub rev	   { "\e[7m" }
-    sub op	   { "\e[39;49m" }
-    sub exit_bold  { "\e[22m" }
-    sub exit_it    { "\e[23m" }
-    sub exit_ul    { "\e[24m" }
-    sub exit_blink { "\e[25m" }
-    sub exit_rev   { "\e[27m" }
-    sub smcup      { "\e[?1049h" }
-    sub rmcup      { "\e[?1049l" }
-    sub smmouse    { "\e[?1000h\e[?1005h" }
-    sub rmmouse    { "\e[?1005l\e[?1000l" }
-  }
-
-  sub init {
-      $sockpath = shift // "$ENV{HOME}/.irssi/_windowlist";
-      STDOUT->autoflush(1);
-      printf "\r%swaiting for %s...", Terminfo::sc, $::IRSSI{name};
-
-      `stty -icanon -echo`;
-
-      $loop = IO::Select->new;
-      STDIN->blocking(0);
-      $loop->add(\*STDIN);
-
-      $SIG{INT} = sub {
-	  $got_int = 1
-      };
-      $SIG{WINCH} = sub {
-	  $resized = 1
-      };
-
-      $resized = 3;
-
-      $disp_update = 2;
-
-      $show_title_bar = 1;
-  }
-
-  sub enter_fs {
-      return if $fs_open;
-      safe_print(Terminfo::rc, Terminfo::smcup, Terminfo::civis, Terminfo::smmouse);
-      $fs_open = 1;
-  }
-
-  sub leave_fs {
-      return unless $fs_open;
-      safe_print(Terminfo::rmmouse, Terminfo::cnorm, Terminfo::rmcup);
-      safe_print(sprintf "\r%swaiting for %s...", Terminfo::sc, $::IRSSI{name}) if $_[0];
-
-      $fs_open = 0;
-  }
-
-  sub end_prog {
-      leave_fs();
-      STDIN->blocking(1);
-      `stty sane`;
-      printf "\r%s%sthanks for using %s\n", Terminfo::rc, Terminfo::el, $::IRSSI{name};
-  }
-
-  sub safe_print {
-      my $st = STDIN->blocking(1);
-      print @_;
-      STDIN->blocking($st);
-  }
-
-  sub safe_qx {
-      my $st = STDIN->blocking(1);
-      my $ret = `$_[0]`;
-      STDIN->blocking($st);
-      $ret
-  }
-
-  sub safe_print_sock {
-      return unless $sock;
-      my $was = $sock->blocking(1);
-      $sock->print(@_);
-      $sock->blocking($was);
-  }
-
-  sub process_recv {
-      my $need = 0;
-      while ($rcvbuf =~ s/\n(.+)_BEGIN\n((?: .*\n)*)\1_END\n//) {
-	  my $var = lc $1;
-	  my $data = $2;
-	  my @data = split "\n ", "\n$data ", -1;
-	  shift @data; pop @data;
-	  my $itembg = $vars{itembg};
-	  if ($var =~ s/list$//) {
-	      $vars{$var} = \@data;
-	  }
-	  elsif ($var =~ s/map$//) {
-	      $vars{$var} = +{ @data };
-	  }
-	  else {
-	      $vars{$var} = join "\n", @data;
-	  }
-	  $need = 1 if $var eq 'win';
-	  $need = 1 if $var eq 'redraw' && $vars{$var};
-	  if (($itembg//'') ne ($vars{itembg}//'')) {
-	      $need = $vars{redraw} = 1;
-	  }
-	  _build_keymap() if $var eq 'key2';
-      }
-      $need
-  }
-
-  { my %ansi_table;
-    my ($i, $j, $k) = (0, 0, 0);
-    my %term_state;
-    sub reset_term_state { my %old_term = %term_state; %term_state = (); %old_term }
-    sub set_term_state { my %old_term = %term_state; %term_state = @_; %old_term }
-    %ansi_table = (
-	# fe-common::core::formats.c:format_expand_styles
-	(map { my $t = $i++; ($_ => sub { my $n = $term_state{hicolor} ? \&Terminfo::setab16 : \&Terminfo::setab;
-					  $n->($t) }) } (split //, '01234567' )),
-	(map { my $t = $j++; ($_ => sub { my $n = $term_state{hicolor} ? \&Terminfo::setaf16 : \&Terminfo::setaf;
-					  $n->($t) }) } (split //, 'krgybmcw' )),
-	(map { my $t = $k++; ($_ => sub { my $n = $term_state{hicolor} ? \&Terminfo::setaf : \&Terminfo::setaf16;
-					  $n->($t) }) } (split //, 'KRGYBMCW')),
-	# reset
-	n => sub { $term_state{hicolor} = 0; my $r = Terminfo::op;
-		   for (qw(blink rev bold)) {
-		       $r .= Terminfo->can("exit_$_")->() if delete $term_state{$_};
-		   }
-		   {
-		       local $ansi_table{n} = $ansi_table{N};
-		       $r .= formats_to_ansi_basic($vars{itembg});
-		   }
-		   $r
-	       },
-	N => sub { reset_term_state(); Terminfo::sgr0 },
-	# flash/bright
-	F => sub { my $n = 'blink'; my $e = ($term_state{$n} ^= 1) ? $n : "exit_$n"; Terminfo->can($e)->() },
-	# reverse
-	8 => sub { my $n = 'rev'; my $e = ($term_state{$n} ^= 1) ? $n : "exit_$n"; Terminfo->can($e)->() },
-	# bold
-	"_" => sub { my $n = 'bold'; my $e = ($term_state{$n} ^= 1) ? $n : "exit_$n"; Terminfo->can($e)->() },
-	# underline
-	U => sub { my $n = 'ul'; my $e = ($term_state{$n} ^= 1) ? $n : "exit_$n"; Terminfo->can($e)->() },
-	# italic
-	I => sub { my $n = 'it'; my $e = ($term_state{$n} ^= 1) ? $n : "exit_$n"; Terminfo->can($e)->() },
-	# bold, used as colour modifier if AWL_HI9 is set
-	9 => $ENV{AWL_HI9} ? sub { $term_state{hicolor} ^= 1; '' }
-	    : sub { my $n = 'bold'; my $e = ($term_state{$n} ^= 1) ? $n : "exit_$n"; Terminfo->can($e)->() },
-	#      delete                other stuff
-	(map { $_ => sub { '' } } (split //, ':|>#[')),
-	#      escape
-	(map { my $close = $_; $_ => sub { $close } } (split //, '{}%')),
-       );
-    for my $base (0 .. 15) {
-	my $close = $base;
-	my $idx = ($close&8) | ($close&4)>>2 | ($close&2) | ($close&1)<<2;
-	$ansi_table{ (sprintf "x0%x", $close) } =
-	    $ansi_table{ (sprintf "x0%X", $close) } =
-		sub { Terminfo::setab256($idx) };
-	$ansi_table{ (sprintf "X0%x", $close) } =
-	    $ansi_table{ (sprintf "X0%X", $close) } =
-		sub { Terminfo::setaf256($idx) };
-    }
-    for my $plane (1 .. 6) {
-	for my $coord (0 .. 35) {
-	    my $close = 16 + ($plane-1) * 36 + $coord;
-	    my $ch = $coord < 10 ? $coord : chr( $coord - 10 + ord 'a' );
-	    $ansi_table{ "x$plane$ch" } =
-		$ansi_table{ "x$plane\U$ch" } =
-		    sub { Terminfo::setab256($close) };
-	    $ansi_table{ "X$plane$ch" } =
-		$ansi_table{ "X$plane\U$ch" } =
-		    sub { Terminfo::setaf256($close) };
-	}
-    }
-    for my $gray (0 .. 23) {
-	my $close = 232 + $gray;
-	my $ch = chr( $gray + ord 'a' );
-	$ansi_table{ "x7$ch" } =
-	    $ansi_table{ "x7\U$ch" } =
-		sub { Terminfo::setab256($close) };
-	$ansi_table{ "X7$ch" } =
-	    $ansi_table{ "X7\U$ch" } =
-		sub { Terminfo::setaf256($close) };
-    }
-    sub formats_to_ansi_basic {
-	my $o = shift;
-	$o =~ s/(%(X..|x..|.))/exists $ansi_table{$2} ? $ansi_table{$2}->() : $1/gex;
-	$o
-    }
-  }
-
-  sub _header {
-      my $str = $vars{title} // uc ::setc();
-      my $ccs = qr/%(?:X(?:[1-6][0-9A-Z]|7[A-X])|[0-9BCFGIKMNRUWY_])/i;
-      (my $stripstr = $str) =~ s/($ccs)//g;
-      my $space = int( ((abs $vars{block}) - length $stripstr) / (1 + length $stripstr));
-      if ($space > 0) {
-	  my $ss = ' ' x $space;
-	  my @x = $str =~ /((?:$ccs)*\X(?:(?:$ccs)*$)?)/g;
-	  $str = join $ss, '', @x, '';
-      }
-      ($stripstr = $str) =~ s/($ccs)//g;
-      my $pad = max 0, (abs $vars{block}) - length $stripstr;
-      $str = ' ' x ($pad/2) . $str . ' ' x ($pad/2 + $pad%2);
-      $str
-  }
-
-  sub _add_item {
-      my ($i, $j, $c, $wi, $screen, $mouse) = @_;
-      $screen->[$i][$j] = "%N%n$wi";
-      if (exists $vars{mouse}{$c - 1}) {
-	  $mouse->[$i][$j] = $vars{mouse}{$c - 1};
-      }
-  }
-  sub update_screen {
-      $disp_update = 0;
-      unless ($sock && exists $vars{seplen} && exists $vars{block}) {
-	  leave_fs(1);
-	  return;
-      }
-      enter_fs();
-      @screen = () if delete $vars{redraw};
-      %mouse_coords = ();
-      my $ncols = ($vars{seplen} + abs $vars{block}) ?
-	  int( ($screenWidth + $vars{seplen}) / ($vars{seplen} + abs $vars{block}) ) : 0;
-      my $xenl = ($vars{seplen} + abs $vars{block})
-	  && $ncols > int( ($screenWidth + $vars{seplen} - 1) / ($vars{seplen} + abs $vars{block}) );
-      my $nrows = $screenHeight - $vars{ha};
-      my @wi = @{$vars{win}//[]};
-      my $max_items = $ncols * $nrows;
-      my $c = $show_title_bar ? 1 : 0;
-      my $items = @wi + $c;
-      my $titems = $items > $max_items ? $max_items : $items;
-      my $i = 0;
-      my $j = 0;
-      my @new_screen;
-      my @new_mouse;
-      $new_screen[0][0] = _header() #. ' ' x $vars{seplen}
-	  if $show_title_bar;
-      unless ($nrows > $ncols) { # line layout
-	  ++$j if $show_title_bar;
-	  for my $wi (@wi) {
-	      if ($j >= $ncols) {
-		  $j = 0;
-		  ++$i;
-	      }
-	      last if $i >= $nrows;
-	      _add_item($i, $j, $show_title_bar ? $c : $c + 1,
-			$wi, \@new_screen, \@new_mouse);
-	      if ($c + 1 < $titems && $j + 1 < $ncols) {
-		  $new_screen[$i][$j] .= $vars{separator};
-	      }
-	      ++$j;
-	      ++$c;
-	  }
-      }
-      else { # column layout
-	  ++$i if $show_title_bar;
-	  for my $wi (@wi) {
-	      if ($i >= $nrows) {
-		  $i = 0;
-		  ++$j;
-	      }
-	      last if $j >= $ncols;
-	      _add_item($i, $j, $show_title_bar ? $c : $c + 1,
-			$wi, \@new_screen, \@new_mouse);
-	      if ($c + $nrows < $titems) {
-		  $new_screen[$i][$j] .= $vars{separator};
-	      }
-	      ++$i;
-	      ++$c;
-	  }
-      }
-      my $step = $vars{seplen} + abs $vars{block};
-      $i = 0;
-      my $str = Terminfo::sc . Terminfo::sgr0;
-      for (my $i = 0; $i < @new_screen; ++$i) {
-	  for (my $j = 0; $j < @{$new_screen[$i]}; ++$j) {
-	      if (defined $new_mouse[$i] && defined $new_mouse[$i][$j]) {
-		  my $from = $j * $step;
-		  $mouse_coords{$i}{$_} = $new_mouse[$i][$j]
-		      for $from .. $from + abs $vars{block};
-	      }
-	      next if defined $screen[$i] && defined $screen[$i][$j]
-		  && $screen[$i][$j] eq $new_screen[$i][$j];
-	      $str .= Terminfo::cup($i, $j * $step)
-		   .  formats_to_ansi_basic($new_screen[$i][$j])
-		   .  Terminfo::sgr0;
-	      $str .= Terminfo::el if $j == $#{$new_screen[$i]} && (!$xenl || $j + 1 != $ncols);
-	  }
-      }
-      for (@new_screen .. $screenHeight - 1) {
-	  if (!@screen || defined $screen[$_]) {
-	      $str .= Terminfo::cup($_, 0) . Terminfo::sgr0 . Terminfo::el;
-	  }
-      }
-      $str .= Terminfo::rc;
-      safe_print $str;
-      @screen = @new_screen;
-  }
-
-  sub handle_resize {
-      if (defined (my $r = safe_qx('stty size'))) {
-	  ($screenHeight, $screenWidth) = split ' ', $r;
-	  $resized = 0;
-	  @screen = ();
-	  $disp_update = 1;
-	  if ($one_shot_integration == 2) {
-	      $one_shot_resize--;
-	  }
-      }
-      else {
-      }
-  }
-
-  sub _build_keymap {
-      %c2w = reverse( %{$vars{key}}, %{$vars{key2}} );
-      if (!grep { /^[+-]./ } keys %c2w) {
-	  %c2w = (%c2w, map { ("-$_" => $c2w{$_}) } grep { !/^\^./ } keys %c2w);
-      }
-      %c2w = map {
-	  my $key = $_;
-	  s{^(-)?(\+)?(\^)?(.)}{
-	      join '', (
-		  ($1 ? "\e" : ''),
-		  ($2 ? "\e\e" : ''),
-		  ($3 ? "$4"^"@" : $4)
-		 )
-	  }e;
-	  $_ => $c2w{$key}
-      } keys %c2w;
-      @seqlist = sort { length $b <=> length $a } keys %c2w;
-  }
-
-  sub _match_tmux {
-      length $ENV{TMUX} && exists $vars{irssienv}{tmux_srv} && length $vars{irssienv}{tmux_pane}
-	  && $ENV{TMUX} eq $vars{irssienv}{tmux_srv}
-  }
-
-  sub process_keys {
-      Encode::_utf8_on($keybuf);
-      my $win;
-      my $use_mouse;
-      my $maybe;
-  KEY: while (length $keybuf && !$maybe) {
-	  $maybe = 0;
-	  if ($keybuf =~ s/^\e\[M(.)(.)(.)//) {
-	      @last_mouse = @mouse;# if @mouse && $mouse[0] < 64;
-	      @mouse = map { -32 + ord } ($1, $2, $3);
-	      $use_mouse = 1;
-	      next KEY;
-	  }
-	  for my $s (@seqlist) {
-	      if ($keybuf =~ s/^\Q$s//) {
-		  $win = $c2w{$s};
-		  $use_mouse = 0;
-		  next KEY;
-	      }
-	      elsif (length $keybuf < length $s && $s =~ /^\Q$keybuf/) {
-		  $maybe = 1;
-	      }
-	  }
-	  unless ($maybe) {
-	      substr $keybuf, 0, 1, '';
-	  }
-      }
-      if ($use_mouse && @mouse && @last_mouse &&
-	      $mouse[2] == $last_mouse[2] &&
-		  $mouse[1] == $last_mouse[1] &&
-		      ($mouse[0] == 3 || $mouse[0] == 64 || $mouse[0] == 65)) {
-	  if ($mouse[0] == 64) {
-	      $win = 'up';
-	  }
-	  elsif ($mouse[0] == 65) {
-	      $win = 'down';
-	  }
-	  elsif (exists $mouse_coords{$mouse[2] - 1}{$mouse[1] - 1}) {
-	      $win = $mouse_coords{$mouse[2] - 1}{$mouse[1] - 1};
-	  }
-	  elsif ($mouse[2] == 1 && $mouse[1] <= abs $vars{block}) {
-	      $win = $last_mouse[0] != 0 ? 'last' : 'active';
-	  }
-	  else {
-	  }
-      }
-      if (defined $win) {
-	  $win =~ s/^_//;
-	  safe_print_sock("$win\n");
-	  if (!exists $ENV{AWL_AUTOFOCUS} || $ENV{AWL_AUTOFOCUS}) {
-	      if (_match_tmux()) {
-		  safe_qx("tmux selectp -t $vars{irssienv}{tmux_pane} 2>&1");
-	      }
-	      elsif (exists $vars{irssienv}{xwinid}) {
-		  safe_qx("wmctrl -ia $vars{irssienv}{xwinid} 2>/dev/null");
-	      }
-	  }
-      }
-      Encode::_utf8_off($keybuf);
-  }
-
-  sub check_integration {
-      return unless $vars{irssienv};
-      return unless $sock && exists $vars{seplen} && exists $vars{block};
-      if ($one_shot_integration == 1) {
-	  my $nrows = $screenHeight - $vars{ha};
-	  my $ncols = ($vars{seplen} + abs $vars{block}) ? int( ($screenWidth + $vars{seplen}) / ($vars{seplen} + abs $vars{block}) ) : 0;
-	  my $items = ($show_title_bar ? 1 : 0) + @{$vars{win}//[]};
-	  my $dcols_required = $nrows ? int($items/$nrows) + !!($items%$nrows) : 0;
-	  my $rows_required = $ncols ? int($items/$ncols) + !!($items%$ncols) : 0;
-	  $rows_required = abs $vars{ml}
-	      if ($vars{ml} < 0 || ($vars{ml} > 0 && $rows_required > $vars{ml}));
-	  $dcols_required = abs $vars{mc}
-	      if ($vars{mc} < 0 || ($vars{mc} > 0 && $dcols_required > $vars{mc}));
-	  my $rows = $rows_required + $vars{ha};
-	  my $cols = ($dcols_required * ($vars{seplen} + abs $vars{block})) - $vars{seplen};
-	  if (_match_tmux()) {
-	      # int( ($screenWidth + $vars{seplen}) / ($vars{seplen} + abs $vars{block}) );
-	      my ($pos_flag, $before);
-	      if ($integration_position eq 'left') {
-		  $pos_flag = 'h';
-		  $before = 1;
-	      }
-	      elsif ($integration_position eq 'top') {
-		  $pos_flag = 'v';
-		  $before = 1;
-	      }
-	      elsif ($integration_position eq 'right') {
-		  $pos_flag = 'h';
-	      }
-	      else {
-		  $pos_flag = 'v';
-	      }
-	      my @cmd = "joinp -d$pos_flag -s $ENV{TMUX_PANE} -t $vars{irssienv}{tmux_pane}";
-	      push @cmd, "swapp -d -t $ENV{TMUX_PANE} -s $vars{irssienv}{tmux_pane}"
-		  if $before;
-	      $cols = max($cols, 2);
-	      $rows = max($rows, 2);
-
-	      safe_qx("tmux " . (join " \\\; ", @cmd) . " 2>&1");
-	  }
-	  else {
-	      $resized = 1;
-	      #safe_qx("resize -s $screenHeight $cols 2>&1")
-		#  if $cols > 0;
-	  }
-	  $one_shot_integration++;
-	  if ($resized == 1) {
-	      handle_resize();
-	      resize_integration();
-	  }
-      }
-      elsif ($one_shot_integration == 2) {
-	  resize_integration(1);
-      }
-  }
-
-  sub resize_integration {
-      return unless $one_shot_integration;
-      return unless ($one_shot_resize//0) < 0 || shift;
-      my $nrows = $screenHeight - $vars{ha};
-      my $ncols = ($vars{seplen} + abs $vars{block}) ? int( ($screenWidth + $vars{seplen}) / ($vars{seplen} + abs $vars{block}) ) : 0;
-      my $items = ($show_title_bar ? 1 : 0) + @{$vars{win}//[]};
-      my $dcols_required = $nrows ? (int($items/$nrows) + !!($items%$nrows)) : 0;
-      my $rows_required = $ncols ? int($items/$ncols) + !!($items%$ncols) : 0;
-      $rows_required = abs $vars{ml}
-	  if ($vars{ml} < 0 || ($vars{ml} > 0 && $rows_required > $vars{ml}));
-      $dcols_required = abs $vars{mc}
-	  if ($vars{mc} < 0 || ($vars{mc} > 0 && $dcols_required > $vars{mc}));
-      my $rows = $rows_required + $vars{ha};
-      my $cols = ($dcols_required * ($vars{seplen} + abs $vars{block})) - $vars{seplen};
-      if (_match_tmux()) {
-	  my $pos_flag;
-	  my $before = 0;
-	  if ($integration_position eq 'left') {
-	      $pos_flag = 'h';
-	      $before = 1;
-	  }
-	  elsif ($integration_position eq 'top') {
-	      $pos_flag = 'v';
-	      $before = 1;
-	  }
-	  elsif ($integration_position eq 'right') {
-	      $pos_flag = 'h';
-	  }
-	  else {
-	      $pos_flag = 'v';
-	  }
-	  my @cmd;
-	  # hard tmux limits
-	  $cols = max($cols, 2);
-	  $rows = max($rows, 2);
-	  if ($pos_flag eq 'h' && $cols != $screenWidth) {
-	      my $change = $screenWidth - $cols;
-	      my $dir = ($before ^ ($change<0)) ? 'L' : 'R';
-	      push @cmd, "resizep -$dir -t $ENV{TMUX_PANE} @{[abs $change]}";
-	      #push @cmd, "resizep -x $cols -t $ENV{TMUX_PANE}";
-	      $one_shot_resize = 1;
-	  }
-	  if ($pos_flag eq 'v' && $rows != $screenHeight) {
-	      #push @cmd, "resizep -y $rows -t $ENV{TMUX_PANE}";
-	      my $change = $screenHeight - $rows;
-	      my $dir = ($before ^ ($change<0)) ? 'U' : 'D';
-	      push @cmd, "resizep -$dir -t $ENV{TMUX_PANE} @{[abs $change]}";
-	      $one_shot_resize = 1;
-	  }
-
-	  safe_qx("tmux " . (join " \\\; ", @cmd) . " 2>&1")
-	      if @cmd;
-      }
-      else {
-	  $cols = max($cols, 1);
-	  $rows = max($rows, 1);
-	  unless ($nrows > $ncols) { # line layout
-	      if ($rows != $screenHeight) {
-		  safe_qx("resize -s $rows $screenWidth 2>&1");
-		  $one_shot_resize = 1;
-	      }
-	  }
-	  else {
-	      if ($cols != $screenWidth) {
-		  safe_qx("resize -s $screenHeight $cols 2>&1");
-		  $one_shot_resize = 1;
-	      }
-	  }
-      }
-      if ($resized == 1) {
-	  handle_resize();
-      }
-  }
-
-  sub init_integration {
-      return unless $one_shot_integration;
-      if (_match_tmux()) {
-      }
-      else {
-      }
-      safe_print("\e]2;".(uc ::setc())."\e\\");
-  }
-
-  sub main {
-      require Getopt::Std;
-      my %opts;
-      Getopt::Std::getopts('1p:', \%opts);
-      my $one_shot = $opts{1};
-      $integration_position = $opts{p};
-      $one_shot_integration = 0+!!$one_shot;
-      #shift if @_ && $_[0] eq '--';
-      &init;
-      $show_title_bar = 0 if $ENV{AWL_NOTITLE};
-      init_integration();
-      until ($got_int) {
-	  $timeout = undef;
-	  if ($resized) {
-	      if ($resized == 1) {
-		  $timeout = 1;
-		  $resized++;
-	      }
-	      else {
-		  handle_resize();
-		  resize_integration();
-	      }
-	  }
-	  unless ($sock || $timeout) {
-	      connect_it();
-	  }
-	  $timeout ||= RECONNECT_TIME unless $sock;
-	  update_screen() if $disp_update;
-      SELECT: while (my @read = $loop->can_read($timeout)) {
-	      for my $fh (@read) {
-		  if ($fh == \*STDIN) {
-		      if (read STDIN, my $buf, BLOCK_SIZE) {
-			  do {
-			      $keybuf .= $buf;
-			  } while read STDIN, $buf, BLOCK_SIZE;
-		      }
-		      else {
-			  $got_int = 1;
-			  last SELECT;
-		      }
-		  }
-		  else {
-		      if ($fh->read(my $buf, BLOCK_SIZE)) {
-			  do {
-			      $rcvbuf .= $buf;
-			  } while $fh->read($buf, BLOCK_SIZE);
-		      }
-		      else {
-			  $disp_update = 1;
-			  remove_conn($fh);
-			  if ($one_shot) {
-			      $got_int = 1;
-			      last SELECT;
-			  }
-			  $timeout ||= RECONNECT_TIME;
-		      }
-		  }
-	      }
-	      $disp_update |= process_recv() if length $rcvbuf;
-	      process_keys() if length $keybuf;
-	      check_integration() if $one_shot;
-	      update_screen() if $disp_update;
-	  }
-	  continue {
-	  }
-      }
-      end_prog();
-  }
-}
-
-1;
-
-# Changelog
-# =========
-# 1.5 - improve compat. with sideways splits
-#
-# 1.4
-# - fix line wrapping in some themes, reported by justanotherbody
-# - fix named window key detection, reported by madduck
-# - make title (in viewer and shared_sbar) configurable
-#
-# 1.3 - workaround for irssi issue #572
-# 1.2 - new format to choose abbreviation character
-# 1.1 - infinite loop on shortening certain window names reported by Kalan
-#
-# 1.0
-# - new awl_viewer_launch setting and an array of related settings
-# - fixed regression bug /exec -interactive
-# - fixed some warnings in perl 5.10 reported by kl3
-# - workaround for crash due to infinite recursion in irssi's Perl
-#   error handling
-#
-# 0.9
-# - fix endless loop in awin detection code!
-# - correct colour swap in awl_viewer
-# - fix passing of alternate socket path to the viewer
-# - potential undefinedness in mouse refnum hinted at by Canopus
-# - fixed regression bug /exec -interactive
-# - add case-insensitive modifier to awl_sort
-# - run custom_xform on awl_prefer_name also
-# - avoid inconsistent active window state after awin detection
-#   reported by ss
-# - revert %9-hack in the viewer prompted by discussion with pierrot
-# - fix new warning in perl 5.22
-#
-# 0.8
-# - replace fifo mode with external viewer script
-# - remove bundled cpan modules
-# - work around bogus irssi warning
-# - improve mouse support
-# - workaround for broken cumode in irssi 0.8.15
-# - fix handling of non-meta windows (uninitialized warning)
-# - add 256 colour support, strip true colour codes
-# - fix totally bogus $N padding reported by Ed S.
-# - make /window goto #name mappings work but ignore non-existant ones
-# - improve incomplete reads reported by bcode
-# - fix single % in awl_viewer reported by bcode
-# - add support for key bindings by nike and ferret
-# - coerce utf8 key binds
-# - add settings: custom_xform, last_line_shade, hide_name_data
-# - abbreviations were broken in some cases
-# - fix some misuse of / as cmdchar in mouse script reported by bcode
-# - add shared status bar mode
-# - ${type} variables for custom_xform setting
-# - crash if custom_xform had runtime error
-# - update sorting documentation
-# - fix odd case in size calculation noted by lasers
-# - add missing font styles to the viewer reported by ishanyx
-# - add italic
-#
-# 0.7g
-# - remove screen support and replace it with fifo support
-# - add double-width support to the shortener
-# - correct documentation regarding $T vs. display_header
-# - add missing refresh for window item changed (thanks vague)
-# - add visible windows
-# - add exemptions for active window
-# - workaround for hiding the window changes from trackbar
-# - hack to force 16colours in screen mode
-# - remember last window (reported by earthnative)
-# - wrong window focus on new queries (reported by emsid)
-# - dataloss bug on trying to remember last window
-#
-# 0.6d+
-# - add support for network headers
-# - fixed regression bug /exec -interactive
-#
-# 0.6ca+
-# - add screen support (from nicklist.pl)
-# - names can now have a max length and window names can be used
-# - fixed a bug with block display in screen mode and status bar mode
-# - added space handling to ir_fe and removed it again
-# - now handling formats on my own
-# - started to work on $tag display
-# - added warning about missing sb_act_none abstract leading to
-# - display*active settings
-# - added warning about the bug in awl_display_(no)key_active settings
-# - mouse hack
-#
-# 0.5d
-# - add setting to also hide the last status bar if empty (awl_all_disable)
-# - reverted to old utf8 code to also calculate broken utf8 length correctly
-# - simplified dealing with status bars in wlreset
-# - added a little tweak for the renamed term_type somewhere after Irssi 0.8.9
-# - fixed bug in handling channel #$$
-# - reset background colour at the beginning of an entry
-#
-# 0.4d
-# - fixed order of disabling status bars
-# - several attempts at special chars, without any real success
-#   and much more weird new bugs caused by this
-# - setting to specify sort order
-# - reduced timeout values
-# - added awl_hide_data
-# - make it so the dynamic sub is actually deleted
-# - fix a bug with removing of the last separator
-# - take into consideration parse_special
-#
-# 0.3b
-# - automatically kill old status bars
-# - reset on /reload
-# - position/placement settings
-#
-# 0.2
-# - automated retrieval of key bindings (thanks grep.pl authors)
-# - improved removing of status bars
-# - got rid of status chop
-#
-# 0.1
-# - Based on chanact.pl which was apparently based on lightbar.c and
-#   nicklist.pl with various other ideas from random scripts.
diff --git a/.irssi/scripts/autoaway.pl b/.irssi/scripts/autoaway.pl
deleted file mode 100644
index ef3c485..0000000
--- a/.irssi/scripts/autoaway.pl
+++ /dev/null
@@ -1,133 +0,0 @@
-# /AUTOAWAY <n> - Mark user away after <n> seconds of inactivity
-# /AWAY - play nice with autoaway
-# New, brighter, whiter version of my autoaway script. Actually works :)
-# (c) 2000 Larry Daffner (vizzie@airmail.net)
-#     You may freely use, modify and distribute this script, as long as
-#      1) you leave this notice intact
-#      2) you don't pretend my code is yours
-#      3) you don't pretend your code is mine
-#
-# share and enjoy!
-
-# A simple script. /autoaway <n> will mark you as away automatically if
-# you have not typed any commands in <n> seconds. (<n>=0 disables the feature)
-# It will also automatically unmark you away the next time you type a command.
-# Note that using the /away command will disable the autoaway mechanism, as
-# well as the autoreturn. (when you unmark yourself, the autoaway wil
-# restart again)
-
-# Thanks to Adam Monsen for multiserver and config file fix
-
-use strict;
-use Irssi;
-use Irssi::Irc;
-
-use vars qw($VERSION %IRSSI);
-$VERSION = "0.4";
-%IRSSI = (
-    authors => 'Larry "Vizzie" Daffner',
-    contact => 'vizzie@airmail.net',
-    name => 'Automagic away setting',
-    description => 'Automatically goes  away after defined inactivity',
-    license => 'BSD',
-    url => 'http://www.flamingpackets.net/~vizzie/irssi/',
-    changed => 'Tue Apr 26 19:30:00 CDT 2016',
-    changes => 'Applied multiserver/store config patch from Adam Monsen'
-);
-
-my ($autoaway_sec, $autoaway_to_tag, $autoaway_state);
-$autoaway_state = 0;
-
-#
-# /AUTOAWAY - set the autoaway timeout
-#
-sub cmd_autoaway {
-  my ($data, $server, $channel) = @_;
-  
-  if (!($data =~ /^[0-9]+$/)) {
-    Irssi::print("autoaway: usage: /autoaway <seconds>");
-    return 1;
-  }
-  
-  $autoaway_sec = $data;
-  
-  if ($autoaway_sec) {
-    Irssi::settings_set_int("autoaway_timeout", $autoaway_sec);
-    Irssi::print("autoaway timeout set to $autoaway_sec seconds");
-  } else {
-    Irssi::print("autoway disabled");
-  }
-  
-  if (defined($autoaway_to_tag)) {
-    Irssi::timeout_remove($autoaway_to_tag);
-    $autoaway_to_tag = undef;
-  }
-
-  if ($autoaway_sec) {
-    $autoaway_to_tag =
-      Irssi::timeout_add($autoaway_sec*1000, "auto_timeout", "");
-  }
-}
-
-#
-# away = Set us away or back, within the autoaway system
-sub cmd_away {
-  my ($data, $server, $channel) = @_;
-  
-  if ($data eq "") {
-    $autoaway_state = 0;
-  } else {
-    if ($autoaway_state eq 0) {
-      Irssi::timeout_remove($autoaway_to_tag);
-      $autoaway_to_tag = undef;
-      $autoaway_state = 2;
-    }
-  }
-}
-
-sub auto_timeout {
-  my ($data, $server) = @_;
-
-  # we're in the process.. don't touch anything.
-  $autoaway_state = 3;
-  foreach my $server (Irssi::servers()) {
-      $server->command("/AWAY autoaway after $autoaway_sec seconds");
-  }
-
-  Irssi::timeout_remove($autoaway_to_tag);
-  $autoaway_state = 1;
-}
-
-sub reset_timer {
-   if ($autoaway_state eq 1) {
-     $autoaway_state = 3;
-     foreach my $server (Irssi::servers()) {
-         $server->command("/AWAY");
-     }
-     
-     $autoaway_state = 0;
-   } 
-  if ($autoaway_state eq 0) {
-    if (defined($autoaway_to_tag)) {
-      Irssi::timeout_remove($autoaway_to_tag);
-      $autoaway_to_tag = undef();
-    }
-    if ($autoaway_sec) {
-      $autoaway_to_tag = Irssi::timeout_add($autoaway_sec*1000
-					    , "auto_timeout", "");
-    }
-  }
-}
-
-Irssi::settings_add_int("misc", "autoaway_timeout", 0);
-
-my $autoaway_default = Irssi::settings_get_int("autoaway_timeout");
-if ($autoaway_default) {
-  $autoaway_to_tag =
-    Irssi::timeout_add($autoaway_default*1000, "auto_timeout", "");
-
-}
-
-Irssi::command_bind('autoaway', 'cmd_autoaway');
-Irssi::command_bind('away', 'cmd_away');
-Irssi::signal_add('send command', 'reset_timer');
diff --git a/.irssi/scripts/autorun/adv_windowlist.pl b/.irssi/scripts/autorun/adv_windowlist.pl
deleted file mode 120000
index d210a5c..0000000
--- a/.irssi/scripts/autorun/adv_windowlist.pl
+++ /dev/null
@@ -1 +0,0 @@
-../adv_windowlist.pl
\ No newline at end of file
diff --git a/.irssi/scripts/autorun/autoaway.pl b/.irssi/scripts/autorun/autoaway.pl
deleted file mode 120000
index a6c9910..0000000
--- a/.irssi/scripts/autorun/autoaway.pl
+++ /dev/null
@@ -1 +0,0 @@
-../autoaway.pl
\ No newline at end of file
diff --git a/.irssi/scripts/autorun/chansort.pl b/.irssi/scripts/autorun/chansort.pl
deleted file mode 120000
index 8b25183..0000000
--- a/.irssi/scripts/autorun/chansort.pl
+++ /dev/null
@@ -1 +0,0 @@
-../chansort.pl
\ No newline at end of file
diff --git a/.irssi/scripts/autorun/dispatch.pl b/.irssi/scripts/autorun/dispatch.pl
deleted file mode 120000
index fbc8677..0000000
--- a/.irssi/scripts/autorun/dispatch.pl
+++ /dev/null
@@ -1 +0,0 @@
-../dispatch.pl
\ No newline at end of file
diff --git a/.irssi/scripts/autorun/go.pl b/.irssi/scripts/autorun/go.pl
deleted file mode 120000
index c516cee..0000000
--- a/.irssi/scripts/autorun/go.pl
+++ /dev/null
@@ -1 +0,0 @@
-../go.pl
\ No newline at end of file
diff --git a/.irssi/scripts/autorun/hilightwin.pl b/.irssi/scripts/autorun/hilightwin.pl
deleted file mode 120000
index fb9568b..0000000
--- a/.irssi/scripts/autorun/hilightwin.pl
+++ /dev/null
@@ -1 +0,0 @@
-../hilightwin.pl
\ No newline at end of file
diff --git a/.irssi/scripts/autorun/nickcolor.pl b/.irssi/scripts/autorun/nickcolor.pl
deleted file mode 120000
index f4f7c6f..0000000
--- a/.irssi/scripts/autorun/nickcolor.pl
+++ /dev/null
@@ -1 +0,0 @@
-../nickcolor.pl
\ No newline at end of file
diff --git a/.irssi/scripts/autorun/recentdepart.pl b/.irssi/scripts/autorun/recentdepart.pl
deleted file mode 120000
index cafd41b..0000000
--- a/.irssi/scripts/autorun/recentdepart.pl
+++ /dev/null
@@ -1 +0,0 @@
-../recentdepart.pl
\ No newline at end of file
diff --git a/.irssi/scripts/autorun/splitlong.pl b/.irssi/scripts/autorun/splitlong.pl
deleted file mode 120000
index f2fa101..0000000
--- a/.irssi/scripts/autorun/splitlong.pl
+++ /dev/null
@@ -1 +0,0 @@
-../splitlong.pl
\ No newline at end of file
diff --git a/.irssi/scripts/autorun/tmux_away.pl b/.irssi/scripts/autorun/tmux_away.pl
deleted file mode 120000
index 70df40e..0000000
--- a/.irssi/scripts/autorun/tmux_away.pl
+++ /dev/null
@@ -1 +0,0 @@
-../tmux_away.pl
\ No newline at end of file
diff --git a/.irssi/scripts/autorun/trackbar.pl b/.irssi/scripts/autorun/trackbar.pl
deleted file mode 120000
index 8c5a483..0000000
--- a/.irssi/scripts/autorun/trackbar.pl
+++ /dev/null
@@ -1 +0,0 @@
-../trackbar.pl
\ No newline at end of file
diff --git a/.irssi/scripts/autorun/twtopic.pl b/.irssi/scripts/autorun/twtopic.pl
deleted file mode 120000
index a283269..0000000
--- a/.irssi/scripts/autorun/twtopic.pl
+++ /dev/null
@@ -1 +0,0 @@
-../twtopic.pl
\ No newline at end of file
diff --git a/.irssi/scripts/autorun/usercount.pl b/.irssi/scripts/autorun/usercount.pl
deleted file mode 120000
index 1afd2ea..0000000
--- a/.irssi/scripts/autorun/usercount.pl
+++ /dev/null
@@ -1 +0,0 @@
-../usercount.pl
\ No newline at end of file
diff --git a/.irssi/scripts/chansort.pl b/.irssi/scripts/chansort.pl
deleted file mode 100644
index 814d041..0000000
--- a/.irssi/scripts/chansort.pl
+++ /dev/null
@@ -1,103 +0,0 @@
-#! /usr/bin/perl
-#
-#    $Id: chansort.pl,v 1.4 2004/11/02 22:52:33 peder Exp $
-#
-# Copyright (C) 2004 by Peder Stray <peder@gzip.ninja.no>
-#
-
-use strict;
-use Irssi;
-use Irssi::Irc;
-
-# ======[ Script Header ]===============================================
-
-use vars qw{$VERSION %IRSSI};
-($VERSION) = '$Revision: 1.4 $' =~ / (\d+\.\d+) /;
-%IRSSI = (
-          name        => 'chansort',
-          authors     => 'Peder Stray',
-          contact     => 'peder@ninja.no',
-          url         => 'http://ninja.no/irssi/chansort.pl',
-          license     => 'GPL',
-          description => 'Sort all channel and query windows',
-         );
-
-# ======[ Hooks ]=======================================================
-
-# --------[ sig_sort_trigger ]------------------------------------------
-
-sub sig_sort_trigger {
-    return unless Irssi::settings_get_bool('chansort_autosort');
-    cmd_chansort();
-}
-
-# ======[ Commands ]====================================================
-
-# --------[ CHANSORT ]--------------------------------------------------
-
-# Usage: /CHANSORT
-sub cmd_chansort {
-    my(@windows);
-    my($minwin);
-
-    for my $win (Irssi::windows()) {
-	my $act = $win->{active};
-	my $key;
-
-	if ($act->{type} eq 'CHANNEL') {
-	    $key = "C".$act->{server}{tag}.' '.substr($act->{visible_name}, 1);
-	}
-	elsif ($act->{type} eq 'QUERY') {
-	    $key = "Q".$act->{server}{tag}.' '.$act->{visible_name};
-	}
-	else {
-	    next;
-	}
-	if (!defined($minwin) || $minwin > $win->{refnum}) {
-	    $minwin = $win->{refnum};
-	}
-	push @windows, [ lc $key, $win ];
-
-    }
-
-    for (sort {$a->[0] cmp $b->[0]} @windows) {
-	my($key,$win) = @$_;
-	my($act) = $win->{active};
-    
-#	printf("win[%d->%d]: t[%s] [%s] [%s] {%s}\n", 
-#	       $win->{refnum},
-#	       $minwin,
-#	       $act->{type},
-#	       $act->{visible_name},
-#	       $act->{server}{tag},
-#	       $key,
-#	      );
-
-	$win->command("window move $minwin");
-	$minwin++;
-    }
-}
-
-# ======[ Setup ]=======================================================
-
-# --------[ Register commands ]-----------------------------------------
-
-Irssi::command_bind('chansort', 'cmd_chansort');
-
-# --------[ Register settings ]-----------------------------------------
-
-Irssi::settings_add_bool('chansort', 'chansort_autosort', 0);
-
-# --------[ Register signals ]------------------------------------------
-
-Irssi::signal_add_last('window item name changed', 'sig_sort_trigger');
-Irssi::signal_add_last('channel created', 'sig_sort_trigger');
-Irssi::signal_add_last('query created', 'sig_sort_trigger');
-
-# ======[ END ]=========================================================
-
-# Local Variables:
-# header-initial-hide: t
-# mode: header-minor
-# end:
-
diff --git a/.irssi/scripts/dispatch.pl b/.irssi/scripts/dispatch.pl
deleted file mode 100644
index 6050520..0000000
--- a/.irssi/scripts/dispatch.pl
+++ /dev/null
@@ -1,26 +0,0 @@
-use strict;
-use warnings;
-use Irssi;
-use Irssi::Irc;
-use vars qw($VERSION %IRSSI);
-
-$VERSION = "0.0.2";
-%IRSSI = (
-	authors     => "Sebastian 'yath' Schmidt",
-	contact     => "yathen\@web.de",
-	name        => "Command dispatcher",
-	description => "This scripts sends unknown commands to the server",
-	license     => "GNU GPLv2",
-	changed     => "Tue Mar  5 14:55:29 CET 2002",
-);
-
-sub event_default_command {
-	my ($command, $server) = @_;
-	return if (Irssi::settings_get_bool("dispatch_unknown_commands") == 0
-		|| !$server);
-	$server->send_raw($command);
-	Irssi::signal_stop();
-}
-
-Irssi::settings_add_bool("misc", "dispatch_unknown_commands", 1);
-Irssi::signal_add_first("default command", "event_default_command");
diff --git a/.irssi/scripts/go.pl b/.irssi/scripts/go.pl
deleted file mode 100644
index 0b0a2a2..0000000
--- a/.irssi/scripts/go.pl
+++ /dev/null
@@ -1,105 +0,0 @@
-use strict;
-use vars qw($VERSION %IRSSI);
-use Irssi;
-use Irssi::Irc;
-
-# Usage:
-# /script load go.pl
-# If you are in #irssi you can type /go #irssi or /go irssi or even /go ir ...
-# also try /go ir<tab> and /go  <tab> (that's two spaces)
-#
-# The following settings exist:
-#
-#   /SET go_match_case_sensitive [ON|OFF]
-#     Match window/item names sensitively (the default). Turning this off
-#     means e.g. "/go foo" would jump to a window named "Foobar", too.
-#
-#   /SET go_match_anchored [ON|OFF]
-#     Match window/names only at the start of the word (the default). Turning
-#     this off will mean that strings can match anywhere in the window/names.
-#     The leading '#' of channel names is optional either way.
-#
-#   /SET go_complete_case_sensitive [ON|OFF]
-#     When using tab-completion, match case-insensitively (the default).
-#     Turning this on means that "/go foo<tab>" will *not* suggest "Foobar".
-#
-#   /SET go_complete_anchored [ON|OFF]
-#     Match window/names only at the start of the word. The default is 'off',
-#     which causes completion to match anywhere in the window/names during
-#     completion. The leading '#' of channel names is optional either way.
-#
-
-$VERSION = '1.1';
-
-%IRSSI = (
-    authors     => 'nohar',
-    contact     => 'nohar@freenode',
-    name        => 'go to window',
-    description => 'Implements /go command that activates a window given a name/partial name. It features a nice completion.',
-    license     => 'GPLv2 or later',
-    changed     => '2017-02-02'
-);
-
-sub _make_regexp {
-	my ($name, $ci, $aw) = @_;
-	my $re = "\Q${name}\E";
-	$re = "(?i:$re)" unless $ci;
-	$re = "^#?$re" if $aw;
-	return $re;
-}
-
-sub signal_complete_go {
-	my ($complist, $window, $word, $linestart, $want_space) = @_;
-	my $channel = $window->get_active_name();
-	my $k = Irssi::parse_special('$k');
-
-        return unless ($linestart =~ /^\Q${k}\Ego\b/i);
-
-	my $re = _make_regexp($word,
-		Irssi::settings_get_bool('go_complete_case_sensitive'),
-		Irssi::settings_get_bool('go_complete_anchored'));
-	@$complist = ();
-	foreach my $w (Irssi::windows) {
-		my $name = $w->get_active_name();
-		if ($word ne "") {
-			if ($name =~ $re) {
-				push(@$complist, $name)
-			}
-		} else {
-			push(@$complist, $name);
-		}
-	}
-	Irssi::signal_stop();
-};
-
-sub cmd_go
-{
-	my($chan,$server,$witem) = @_;
-
-	$chan =~ s/ *//g;
-	my $re = _make_regexp($chan,
-		Irssi::settings_get_bool('go_match_case_sensitive'),
-		Irssi::settings_get_bool('go_match_anchored'));
-
-	foreach my $w (Irssi::windows) {
-		my $name = $w->get_active_name();
-		if ($name =~ $re) {
-			$w->set_active();
-			return;
-		}
-	}
-}
-
-Irssi::command_bind("go", "cmd_go");
-Irssi::signal_add_first('complete word', 'signal_complete_go');
-Irssi::settings_add_bool('go', 'go_match_case_sensitive', 1);
-Irssi::settings_add_bool('go', 'go_complete_case_sensitive', 0);
-Irssi::settings_add_bool('go', 'go_match_anchored', 1);
-Irssi::settings_add_bool('go', 'go_complete_anchored', 0);
-
-# Changelog
-#
-# 2017-02-02  1.1  martin f. krafft <madduck@madduck.net>
-#   - made case-sensitivity of match configurable
-#   - made anchoring of search strings configurable
-#
diff --git a/.irssi/scripts/hilightwin.pl b/.irssi/scripts/hilightwin.pl
deleted file mode 100644
index 3bb2863..0000000
--- a/.irssi/scripts/hilightwin.pl
+++ /dev/null
@@ -1,85 +0,0 @@
-#
-# Print hilighted messages & private messages to window named "hilight" for
-# irssi 0.7.99 by Timo Sirainen
-#
-# Modded a tiny bit by znx to stop private messages entering the hilighted
-# window (can be toggled) and to put up a timestamp.
-#
-# Changed a little by rummik to optionally show network name. Enable with
-# `/set hilightwin_shownetwork on`
-#
-
-use strict;
-use Irssi;
-use POSIX;
-use vars qw($VERSION %IRSSI);
-
-$VERSION = "1.00";
-%IRSSI = (
-    authors     => "Timo \'cras\' Sirainen, Mark \'znx\' Sangster, Kimberly \'rummik\' Zick",
-    contact     => "tss\@iki.fi, znxster\@gmail.com, git\@zick.kim",
-    name        => "hilightwin",
-    description => "Print hilighted messages to window named \"hilight\"",
-    license     => "Public Domain",
-    url         => "http://irssi.org/",
-    changed     => "Thu Apr  6 15:30:25 EDT 2017"
-);
-
-sub is_ignored {
-    my ($dest) = @_;
-
-    my @ignore = split(' ', Irssi::settings_get_str('hilightwin_ignore_targets'));
-    return 0 if (!@ignore);
-
-    my %targets = map { $_ => 1 } @ignore;
-
-    return 1 if exists($targets{"*"});
-    return 1 if exists($targets{$dest->{target}});
-
-    if ($dest->{server}) {
-        my $tag = $dest->{server}->{tag};
-        return 1 if exists($targets{$tag . "/*"});
-        return 1 if exists($targets{$tag . "/" . $dest->{target}});
-    }
-
-    return 0;
-}
-
-sub sig_printtext {
-    my ($dest, $text, $stripped) = @_;
-
-    my $opt = MSGLEVEL_HILIGHT;
-    my $shownetwork = Irssi::settings_get_bool('hilightwin_show_network');
-
-    if(Irssi::settings_get_bool('hilightwin_showprivmsg')) {
-        $opt = MSGLEVEL_HILIGHT|MSGLEVEL_MSGS;
-    }
-    
-    if(
-        ($dest->{level} & ($opt)) &&
-        ($dest->{level} & MSGLEVEL_NOHILIGHT) == 0 &&
-        (!is_ignored($dest))
-    ) {
-        my $window = Irssi::window_find_name('hilight');
-        
-        if ($dest->{level} & MSGLEVEL_PUBLIC) {
-            $text = $dest->{target}.": ".$text;
-            $text = $dest->{server}->{tag} . "/" . $text if ($shownetwork);
-        } elsif ($shownetwork) {
-            $text = $dest->{server}->{tag} . ": " . $text;
-        }
-        $text =~ s/%/%%/g;
-        $window->print($text, MSGLEVEL_CLIENTCRAP) if ($window);
-    }
-}
-
-my $window = Irssi::window_find_name('hilight');
-Irssi::print("Create a window named 'hilight'") if (!$window);
-
-Irssi::settings_add_bool('hilightwin','hilightwin_showprivmsg',1);
-Irssi::settings_add_str('hilightwin', 'hilightwin_ignore_targets', '');
-Irssi::settings_add_bool('hilightwin','hilightwin_show_network', 0);
-
-Irssi::signal_add('print text', 'sig_printtext');
-
-# vim:set ts=4 sw=4 et:
diff --git a/.irssi/scripts/nickcolor.pl b/.irssi/scripts/nickcolor.pl
deleted file mode 100644
index 95b7b63..0000000
--- a/.irssi/scripts/nickcolor.pl
+++ /dev/null
@@ -1,253 +0,0 @@
-use strict;
-use Irssi 20020101.0250 ();
-use vars qw($VERSION %IRSSI);
-$VERSION = "2.1";
-%IRSSI = (
-    authors     => "Timo Sirainen, Ian Peters, David Leadbeater, Bruno Cattáneo",
-    contact	=> "tss\@iki.fi",
-    name        => "Nick Color",
-    description => "assign a different color for each nick",
-    license	=> "Public Domain",
-    url		=> "http://irssi.org/",
-    changed	=> "Mon 08 Jan 21:28:53 BST 2018",
-);
-
-# Settings:
-#   nickcolor_colors: List of color codes to use.
-#   e.g. /set nickcolor_colors 2 3 4 5 6 7 9 10 11 12 13
-#   (avoid 8, as used for hilights in the default theme).
-#
-#   nickcolor_enable_prefix: Enables prefix for same nick.
-#
-#   nickcolor_enable_truncate: Enables nick truncation.
-#
-#   nickcolor_prefix_text: Prefix text for succesive messages.
-#   e.g. /set nickcolor_prefix_text -
-#
-#   nickcolor_truncate_value: Truncate nick value.
-#   e.g. /set nickcolor_truncate_value -7
-#   This will truncate nicknames at 7 characters and make them right aligned
-
-my %saved_colors;
-my %session_colors = {};
-my %saved_nicks; # To store each channel's last nickname
-
-sub load_colors {
-  open my $color_fh, "<", "$ENV{HOME}/.irssi/saved_colors";
-  while (<$color_fh>) {
-    chomp;
-    my($nick, $color) = split ":";
-    $saved_colors{$nick} = $color;
-  }
-}
-
-sub save_colors {
-  open COLORS, ">", "$ENV{HOME}/.irssi/saved_colors";
-
-  foreach my $nick (keys %saved_colors) {
-    print COLORS "$nick:$saved_colors{$nick}\n";
-  }
-
-  close COLORS;
-}
-
-# If someone we've colored (either through the saved colors, or the hash
-# function) changes their nick, we'd like to keep the same color associated
-# with them (but only in the session_colors, ie a temporary mapping).
-
-sub sig_nick {
-  my ($server, $newnick, $nick, $address) = @_;
-  my $color;
-
-  $newnick = substr ($newnick, 1) if ($newnick =~ /^:/);
-
-  if ($color = $saved_colors{$nick}) {
-    $session_colors{$newnick} = $color;
-  } elsif ($color = $session_colors{$nick}) {
-    $session_colors{$newnick} = $color;
-  }
-}
-
-# This gave reasonable distribution values when run across
-# /usr/share/dict/words
-
-sub simple_hash {
-  my ($string) = @_;
-  chomp $string;
-  my @chars = split //, $string;
-  my $counter;
-
-  foreach my $char (@chars) {
-    $counter += ord $char;
-  }
-
-  my @colors = split / /, Irssi::settings_get_str('nickcolor_colors');
-  $counter = $colors[$counter % @colors];
-
-  return $counter;
-}
-
-# process public (others) messages
-sub sig_public {
-  my ($server, $msg, $nick, $address, $target) = @_;
-
-  my $enable_prefix = Irssi::settings_get_bool('nickcolor_enable_prefix');
-  my $enable_truncate = Irssi::settings_get_bool('nickcolor_enable_truncate');
-  my $prefix_text = Irssi::settings_get_str('nickcolor_prefix_text');
-  my $truncate_value = Irssi::settings_get_int('nickcolor_truncate_value');
-
-  # Reference for server/channel
-  my $tagtarget = "$server->{tag}/$target";
-
-  # Set default nick truncate value to 0 if option is disabled
-  $truncate_value = 0 if (!$enable_truncate);
-
-  # Has the user assigned this nick a color?
-  my $color = $saved_colors{$nick};
-
-  # Have -we- already assigned this nick a color?
-  if (!$color) {
-    $color = $session_colors{$nick};
-  }
-
-  # Let's assign this nick a color
-  if (!$color) {
-    $color = simple_hash $nick;
-    $session_colors{$nick} = $color;
-  }
-
-  $color = sprintf "\003%02d", $color;
-
-  # Optional: We check if it's the same nickname for current target
-  if ($saved_nicks{$tagtarget} eq $nick && $enable_prefix)
-  {
-    # Grouped message
-    Irssi::command('/^format pubmsg ' . $prefix_text . '$1');
-  }
-  else
-  {
-    # Normal message
-    Irssi::command('/^format pubmsg {pubmsgnick $2 {pubnick ' . $color . '$[' . $truncate_value . ']0}}$1');
-
-    # Save nickname for next message
-    $saved_nicks{$tagtarget} = $nick;
-  }
-
-}
-
-# process public (me) messages
-sub sig_me {
-  my ($server, $msg, $target) = @_;
-  my $nick = $server->{nick};
-
-  my $enable_prefix = Irssi::settings_get_bool('nickcolor_enable_prefix');
-  my $enable_truncate = Irssi::settings_get_bool('nickcolor_enable_truncate');
-  my $prefix_text = Irssi::settings_get_str('nickcolor_prefix_text');
-  my $truncate_value = Irssi::settings_get_int('nickcolor_truncate_value');
-
-  # Reference for server/channel
-  my $tagtarget = "$server->{tag}/$target";
-
-  # Set default nick truncate value to 0 if option is disabled
-  $truncate_value = 0 if (!$enable_truncate);
-
-  # Optional: We check if it's the same nickname for current target
-  if ($saved_nicks{$tagtarget} eq $nick && $enable_prefix)
-  {
-    # Grouped message
-    Irssi::command('/^format own_msg ' . $prefix_text . '$1');
-  }
-  else
-  {
-    # Normal message
-    Irssi::command('/^format own_msg {ownmsgnick $2 {ownnick $[' . $truncate_value . ']0}}$1');
-
-    # Save nickname for next message
-    $saved_nicks{$tagtarget} = $nick;
-  }
-
-}
-
-# process public (others) actions
-sub sig_action_public {
-  my ($server, $msg, $nick, $address, $target) = @_;
-
-  my $enable_prefix = Irssi::settings_get_bool('nickcolor_enable_prefix');
-
-  # Reference for server/channel
-  my $tagtarget = "$server->{tag}/$target";
-
-  # Empty current target nick if prefix option is enabled
-  $saved_nicks{$tagtarget} = '' if ($enable_prefix);
-
-}
-
-# process public (me) actions
-sub sig_action_me {
-  my ($server, $msg, $target) = @_;
-  my $nick = $server->{nick};
-
-  my $enable_prefix = Irssi::settings_get_bool('nickcolor_enable_prefix');
-
-  # Reference for server/channel
-  my $tagtarget = "$server->{tag}/$target";
-
-  # Empty current target nick if prefix option is enabled
-  $saved_nicks{$tagtarget} = '' if ($enable_prefix);
-
-}
-
-sub cmd_color {
-  my ($data, $server, $witem) = @_;
-  my ($op, $nick, $color) = split " ", $data;
-
-  $op = lc $op;
-
-  if (!$op) {
-    Irssi::print ("No operation given (save/set/clear/list/preview)");
-  } elsif ($op eq "save") {
-    save_colors;
-  } elsif ($op eq "set") {
-    if (!$nick) {
-      Irssi::print ("Nick not given");
-    } elsif (!$color) {
-      Irssi::print ("Color not given");
-    } elsif ($color < 2 || $color > 14) {
-      Irssi::print ("Color must be between 2 and 14 inclusive");
-    } else {
-      $saved_colors{$nick} = $color;
-    }
-  } elsif ($op eq "clear") {
-    if (!$nick) {
-      Irssi::print ("Nick not given");
-    } else {
-      delete ($saved_colors{$nick});
-    }
-  } elsif ($op eq "list") {
-    Irssi::print ("\nSaved Colors:");
-    foreach my $nick (keys %saved_colors) {
-      Irssi::print (chr (3) . sprintf("%02d", $saved_colors{$nick}) . "$nick" .
-		    chr (3) . "1 ($saved_colors{$nick})");
-    }
-  } elsif ($op eq "preview") {
-    Irssi::print ("\nAvailable colors:");
-    foreach my $i (2..14) {
-      Irssi::print (chr (3) . "$i" . "Color #$i");
-    }
-  }
-}
-
-load_colors;
-
-Irssi::settings_add_str('misc', 'nickcolor_colors', '2 3 4 5 6 7 9 10 11 12 13');
-Irssi::settings_add_bool('misc', 'nickcolor_enable_prefix', 0);
-Irssi::settings_add_bool('misc', 'nickcolor_enable_truncate', 0);
-Irssi::settings_add_str('misc', 'nickcolor_prefix_text' => '- ');
-Irssi::settings_add_int('misc', 'nickcolor_truncate_value' => 0);
-Irssi::command_bind('color', 'cmd_color');
-
-Irssi::signal_add('message public', 'sig_public');
-Irssi::signal_add('message own_public', 'sig_me');
-Irssi::signal_add('message irc action', 'sig_action_public');
-Irssi::signal_add('message irc own_action', 'sig_action_me');
-Irssi::signal_add('event nick', 'sig_nick');
diff --git a/.irssi/scripts/old/nickcolor.pl.old b/.irssi/scripts/old/nickcolor.pl.old
deleted file mode 100644
index ff9915d..0000000
--- a/.irssi/scripts/old/nickcolor.pl.old
+++ /dev/null
@@ -1,145 +0,0 @@
-use strict;
-use Irssi 20020101.0250 ();
-use vars qw($VERSION %IRSSI); 
-$VERSION = "2";
-%IRSSI = (
-    authors     => "Timo Sirainen, Ian Peters, David Leadbeater",
-    contact	=> "tss\@iki.fi", 
-    name        => "Nick Color",
-    description => "assign a different color for each nick",
-    license	=> "Public Domain",
-    url		=> "http://irssi.org/",
-    changed	=> "Sun 15 Jun 19:10:44 BST 2014",
-);
-
-# Settings:
-#   nickcolor_colors: List of color codes to use.
-#   e.g. /set nickcolor_colors 2 3 4 5 6 7 9 10 11 12 13
-#   (avoid 8, as used for hilights in the default theme).
-
-my %saved_colors;
-my %session_colors = {};
-
-sub load_colors {
-  open my $color_fh, "<", "$ENV{HOME}/.irssi/saved_colors";
-  while (<$color_fh>) {
-    chomp;
-    my($nick, $color) = split ":";
-    $saved_colors{$nick} = $color;
-  }
-}
-
-sub save_colors {
-  open COLORS, ">", "$ENV{HOME}/.irssi/saved_colors";
-
-  foreach my $nick (keys %saved_colors) {
-    print COLORS "$nick:$saved_colors{$nick}\n";
-  }
-
-  close COLORS;
-}
-
-# If someone we've colored (either through the saved colors, or the hash
-# function) changes their nick, we'd like to keep the same color associated
-# with them (but only in the session_colors, ie a temporary mapping).
-
-sub sig_nick {
-  my ($server, $newnick, $nick, $address) = @_;
-  my $color;
-
-  $newnick = substr ($newnick, 1) if ($newnick =~ /^:/);
-
-  if ($color = $saved_colors{$nick}) {
-    $session_colors{$newnick} = $color;
-  } elsif ($color = $session_colors{$nick}) {
-    $session_colors{$newnick} = $color;
-  }
-}
-
-# This gave reasonable distribution values when run across
-# /usr/share/dict/words
-
-sub simple_hash {
-  my ($string) = @_;
-  chomp $string;
-  my @chars = split //, $string;
-  my $counter;
-
-  foreach my $char (@chars) {
-    $counter += ord $char;
-  }
-
-  my @colors = split / /, Irssi::settings_get_str('nickcolor_colors');
-  $counter = $colors[$counter % @colors];
-
-  return $counter;
-}
-
-sub sig_public {
-  my ($server, $msg, $nick, $address, $target) = @_;
-
-  # Has the user assigned this nick a color?
-  my $color = $saved_colors{$nick};
-
-  # Have -we- already assigned this nick a color?
-  if (!$color) {
-    $color = $session_colors{$nick};
-  }
-
-  # Let's assign this nick a color
-  if (!$color) {
-    $color = simple_hash $nick;
-    $session_colors{$nick} = $color;
-  }
-
-  $color = sprintf "\003%02d", $color;
-  $server->command('/^format pubmsg {pubmsgnick $2 {pubnick ' . $color . '$0}}$1');
-}
-
-sub cmd_color {
-  my ($data, $server, $witem) = @_;
-  my ($op, $nick, $color) = split " ", $data;
-
-  $op = lc $op;
-
-  if (!$op) {
-    Irssi::print ("No operation given (save/set/clear/list/preview)");
-  } elsif ($op eq "save") {
-    save_colors;
-  } elsif ($op eq "set") {
-    if (!$nick) {
-      Irssi::print ("Nick not given");
-    } elsif (!$color) {
-      Irssi::print ("Color not given");
-    } elsif ($color < 2 || $color > 14) {
-      Irssi::print ("Color must be between 2 and 14 inclusive");
-    } else {
-      $saved_colors{$nick} = $color;
-    }
-  } elsif ($op eq "clear") {
-    if (!$nick) {
-      Irssi::print ("Nick not given");
-    } else {
-      delete ($saved_colors{$nick});
-    }
-  } elsif ($op eq "list") {
-    Irssi::print ("\nSaved Colors:");
-    foreach my $nick (keys %saved_colors) {
-      Irssi::print (chr (3) . "$saved_colors{$nick}$nick" .
-		    chr (3) . "1 ($saved_colors{$nick})");
-    }
-  } elsif ($op eq "preview") {
-    Irssi::print ("\nAvailable colors:");
-    foreach my $i (2..14) {
-      Irssi::print (chr (3) . "$i" . "Color #$i");
-    }
-  }
-}
-
-load_colors;
-
-Irssi::settings_add_str('misc', 'nickcolor_colors', '2 3 4 5 6 7 9 10 11 12 13');
-Irssi::command_bind('color', 'cmd_color');
-
-Irssi::signal_add('message public', 'sig_public');
-Irssi::signal_add('event nick', 'sig_nick');
diff --git a/.irssi/scripts/old/trackbar22.pl.old b/.irssi/scripts/old/trackbar22.pl.old
deleted file mode 100644
index 0d10882..0000000
--- a/.irssi/scripts/old/trackbar22.pl.old
+++ /dev/null
@@ -1,508 +0,0 @@
-# trackbar.pl
-#
-# This little script will do just one thing: it will draw a line each time you
-# switch away from a window. This way, you always know just upto where you've
-# been reading that window :) It also removes the previous drawn line, so you
-# don't see double lines.
-#
-#  redraw trackbar only works on irssi 0.8.17 or higher.
-#
-#
-# Usage:
-#
-#     The script works right out of the box, but if you want you can change
-#     the working by /set'ing the following variables:
-#
-#    Setting:     trackbar_style
-#    Description: This setting will be the color of your trackbar line.
-#                 By default the value will be '%K', only Irssi color
-#                 formats are allowed. If you don't know the color formats
-#                 by heart, you can take a look at the formats documentation.
-#                 You will find the proper docs on http://www.irssi.org/docs.
-#
-#    Setting:     trackbar_string
-#    Description: This is the string that your line will display. This can
-#                 be multiple characters or just one. For example: '~-~-'
-#                 The default setting is '-'.
-#
-#    Setting:     trackbar_use_status_window
-#    Description: If this setting is set to OFF, Irssi won't print a trackbar
-#                 in the statuswindow
-#
-#    Setting:     trackbar_ignore_windows
-#    Description: A list of windows where no trackbar should be printed
-#
-#    Setting:     trackbar_print_timestamp
-#    Description: If this setting is set to ON, Irssi will print the formatted
-#                 timestamp in front of the trackbar.
-#
-#    Setting:     trackbar_require_seen
-#    Description: Only clear the trackbar if it has been scrolled to.
-#
-#     /mark is a command that will redraw the line at the bottom.
-#
-#    Command:     /trackbar, /trackbar goto
-#    Description: Jump to where the trackbar is, to pick up reading
-#
-#    Command:     /trackbar keep
-#    Description: Keep this window's trackbar where it is the next time
-#                 you switch windows (then this flag is cleared again)
-#
-#    Command:     /mark, /trackbar mark
-#    Description: Remove the old trackbar and mark the bottom of this
-#                 window with a new trackbar
-#
-#    Command:     /trackbar markvisible
-#    Description: Like mark for all visible windows
-#
-#    Command:     /trackbar markall
-#    Description: Like mark for all windows
-#
-#    Command:     /trackbar remove
-#    Description: Remove this window's trackbar
-#
-#    Command:     /trackbar removeall
-#    Description: Remove all windows' trackbars
-#
-#    Command:     /trackbar redraw
-#    Description: Force redraw of trackbars
-#
-
-
-# For bugreports and other improvements contact one of the authors.
-#
-#    This program is free software; you can redistribute it and/or modify
-#    it under the terms of the GNU General Public License as published by
-#    the Free Software Foundation; either version 2 of the License, or
-#    (at your option) any later version.
-#
-#    This program is distributed in the hope that it will be useful,
-#    but WITHOUT ANY WARRANTY; without even the implied warranty of
-#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-#    GNU General Public License for more details.
-#
-#    You should have received a copy of the GNU General Public License
-#    along with this script; if not, write to the Free Software
-#    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
-#
-##
-
-use strict;
-use warnings;
-use Irssi;
-use Irssi::TextUI;
-use Encode;
-
-use POSIX qw(strftime);
-use vars qw($VERSION %IRSSI);
-
-$VERSION = "2.4"; # 1ca8fa9f28b9586
-
-%IRSSI = (
-    authors     => 'Peter Leurs and Geert Hauwaerts',
-    contact     => 'peter@pfoe.be',
-    patchers    => 'Johan Kiviniemi (UTF-8), Uwe Dudenhoeffer (on-upgrade-remove-line)',
-    name        => 'trackbar',
-    description => 'Shows a bar where you have last read a window.',
-    license     => 'GNU General Public License',
-    url         => 'http://www.pfoe.be/~peter/trackbar/',
-    commands    => 'trackbar',
-);
-
-## Comments and remarks.
-#
-# This script uses settings.
-# Use /SET  to change the value or /TOGGLE to switch it on or off.
-#
-#
-#    Tip:     The command 'trackbar' is very usefull if you bind that to a key,
-#             so you can easily jump to the trackbar. Please see 'help bind' for
-#             more information about keybindings in Irssi.
-#
-#    Command: /BIND meta2-P key F1
-#             /BIND F1 command trackbar
-#
-##
-
-## Bugfixes and new items in this rewrite.
-#
-# * Remove all the trackbars before upgrading.
-# * New setting trackbar_use_status_window to control the statuswindow trackbar.
-# * New setting trackbar_print_timestamp to print a timestamp or not.
-# * New command 'trackbar' to scroll up to the trackbar.
-# * When resizing your terminal, Irssi will update all the trackbars to the new size.
-# * When changing trackbar settings, change all the trackbars to the new settings.
-# * New command 'trackbar mark' to draw a new trackbar (The old '/mark').
-# * New command 'trackbar markall' to draw a new trackbar in each window.
-# * New command 'trackbar remove' to remove the trackbar from the current window.
-# * New command 'trackbar removeall' to remove all the trackbars.
-# * Don't draw a trackbar in empty windows.
-# * Added a version check to prevent Irssi redraw errors.
-# * Fixed a bookmark NULL versus 0 bug.
-# * Fixed a remove-line bug in Uwe Dudenhoeffer his patch.
-# * New command 'help trackbar' to display the trackbar commands.
-# * Fixed an Irssi startup bug, now processing each auto-created window.
-#
-##
-
-## Known bugs and the todolist.
-#
-#    Todo: * Instead of drawing a line, invert the line.
-#
-##
-
-sub cmd_help {
-    my ($args) = @_;
-    if ($args =~ /^trackbar *$/i) {
-        print CLIENTCRAP <<HELP
-%9Syntax:%9
-
-TRACKBAR
-TRACKBAR GOTO
-TRACKBAR KEEP
-TRACKBAR MARK
-TRACKBAR MARKVISIBLE
-TRACKBAR MARKALL
-TRACKBAR REMOVE
-TRACKBAR REMOVEALL
-TRACKBAR REDRAW
-
-%9Parameters:%9
-
-    GOTO:        Jump to where the trackbar is, to pick up reading
-    KEEP:        Keep this window's trackbar where it is the next time
-                 you switch windows (then this flag is cleared again)
-    MARK:        Remove the old trackbar and mark the bottom of this
-                 window with a new trackbar
-    MARKVISIBLE: Like mark for all visible windows
-    MARKALL:     Like mark for all windows
-    REMOVE:      Remove this window's trackbar
-    REMOVEALL:   Remove all windows' trackbars
-    REDRAW:      Force redraw of trackbars
-
-%9Description:%9
-
-    Manage a trackbar. Without arguments, it will scroll up to the trackbar.
-
-%9Examples:%9
-
-    /TRACKBAR MARK
-    /TRACKBAR REMOVE
-HELP
-    }
-}
-
-Irssi::theme_register([
-    'trackbar_loaded', '%R>>%n %_Scriptinfo:%_ Loaded $0 version $1 by $2.',
-    'trackbar_wrong_version', '%R>>%n %_Trackbar:%_ Please upgrade your client to 0.8.17 or above if you would like to use this feature of trackbar.',
-    'trackbar_all_removed', '%R>>%n %_Trackbar:%_ All the trackbars have been removed.',
-    'trackbar_not_found', '%R>>%n %_Trackbar:%_ No trackbar found in this window.',
-]);
-
-my $old_irssi = Irssi::version < 20140701;
-sub check_version {
-    if ($old_irssi) {
-        Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'trackbar_wrong_version');
-        return;
-    } else {
-        return 1;
-    }
-}
-
-sub is_utf8 {
-    lc Irssi::settings_get_str('term_charset') eq 'utf-8'
-}
-
-my (%config, %keep_trackbar, %unseen_trackbar);
-
-sub remove_one_trackbar {
-    my $win = shift;
-    my $view = shift || $win->view;
-    my $line = $view->get_bookmark('trackbar');
-    if (defined $line) {
-        my $bottom = $view->{bottom};
-        $view->remove_line($line);
-        $win->command('^scrollback end') if $bottom && !$win->view->{bottom};
-        $view->redraw;
-    }
-}
-
-sub add_one_trackbar {
-    my $win = shift;
-    my $view = shift || $win->view;
-    $win->print(line($win->{width}), MSGLEVEL_NEVER);
-    $view->set_bookmark_bottom('trackbar');
-    $unseen_trackbar{ $win->{_irssi} } = 1;
-    Irssi::signal_emit("window trackbar added", $win);
-    $view->redraw;
-}
-
-sub update_one_trackbar {
-    my $win = shift;
-    my $view = shift || $win->view;
-    my $force = shift;
-    my $ignored = win_ignored($win, $view);
-    remove_one_trackbar($win, $view)
-	if $force || !defined $force || !$ignored;
-    add_one_trackbar($win, $view)
-	if $force || !$ignored;
-}
-
-sub win_ignored {
-    my $win = shift;
-    my $view = shift || $win->view;
-    return 1 unless $view->{buffer}{lines_count};
-    return 1 if $win->{name} eq '(status)' && !$config{use_status_window};
-    no warnings 'uninitialized';
-    return 1 if grep { $win->{name} eq $_ || $win->{refnum} eq $_
-			   || $win->get_active_name eq $_ } @{ $config{ignore_windows} };
-    return 0;
-}
-
-sub sig_window_changed {
-    my ($newwindow, $oldwindow) = @_;
-    return unless $oldwindow;
-    redraw_trackbars($newwindow);
-    trackbar_update_seen($newwindow);
-    return if delete $keep_trackbar{ $oldwindow->{_irssi} };
-    trackbar_update_seen($oldwindow);
-    return if $config{require_seen} && $unseen_trackbar{ $oldwindow->{_irssi } };
-    update_one_trackbar($oldwindow, undef, 0);
-}
-
-sub trackbar_update_seen {
-    my $win = shift;
-    return unless $win;
-    return unless $unseen_trackbar{ $win->{_irssi} };
-
-    my $view = $win->view;
-    my $line = $view->get_bookmark('trackbar');
-    unless ($line) {
-        delete $unseen_trackbar{ $win->{_irssi} };
-        Irssi::signal_emit("window trackbar seen", $win);
-        return;
-    }
-    my $startline = $view->{startline};
-    return unless $startline;
-
-    if ($startline->{info}{time} < $line->{info}{time}
-            || $startline->{_irssi} == $line->{_irssi}) {
-        delete $unseen_trackbar{ $win->{_irssi} };
-        Irssi::signal_emit("window trackbar seen", $win);
-    }
-}
-
-sub screen_length;
-{ local $@;
-  eval { require Text::CharWidth; };
-  unless ($@) {
-      *screen_length = sub { Text::CharWidth::mbswidth($_[0]) };
-  }
-  else {
-      *screen_length = sub {
-          my $temp = shift;
-          if (is_utf8()) {
-              Encode::_utf8_on($temp);
-          }
-          length($temp)
-      };
-  }
-}
-
-{ my %strip_table = (
-    (map { $_ => '' } (split //, '04261537' .  'kbgcrmyw' . 'KBGCRMYW' . 'U9_8I:|FnN>#[' . 'pP')),
-    (map { $_ => $_ } (split //, '{}%')),
-   );
-  sub c_length {
-      my $o = Irssi::strip_codes($_[0]);
-      $o =~ s/(%(%|Z.{6}|z.{6}|X..|x..|.))/exists $strip_table{$2} ? $strip_table{$2} :
-          $2 =~ m{x(?:0[a-f]|[1-6][0-9a-z]|7[a-x])|z[0-9a-f]{6}}i ? '' : $1/gex;
-      screen_length($o)
-  }
-}
-
-sub line {
-    my ($width, $time)  = @_;
-    my $string = $config{string};
-    $string = ' ' unless length $string;
-    $time ||= time;
-
-    Encode::_utf8_on($string);
-    my $length = c_length($string);
-
-    my $format = '';
-    if ($config{print_timestamp}) {
-        $format = $config{timestamp_str};
-        $format =~ y/%/\01/;
-        $format =~ s/\01\01/%/g;
-        $format = strftime($format, localtime $time);
-        $format =~ y/\01/%/;
-    }
-
-    my $times = $width / $length;
-    $times += 1 if $times != int $times;
-    $format .= $config{style};
-    $width -= c_length($format);
-    $string x= $times;
-    chop $string while length $string && c_length($string) > $width;
-    return $format . $string;
-}
-
-sub remove_all_trackbars {
-    for my $window (Irssi::windows) {
-        next unless ref $window;
-        remove_one_trackbar($window);
-    }
-}
-
-sub UNLOAD {
-    remove_all_trackbars();
-}
-
-sub redraw_trackbars {
-    return unless check_version();
-    for my $win (@_ ? @_ : Irssi::windows) {
-        next unless ref $win;
-        my $view = $win->view;
-        my $line = $view->get_bookmark('trackbar');
-        next unless $line;
-        my $bottom = $view->{bottom};
-        $win->print_after($line, MSGLEVEL_NEVER, line($win->{width}, $line->{info}{time}),
-                          $line->{info}{time});
-        $view->set_bookmark('trackbar', $win->last_line_insert);
-        $view->redraw;
-        $view->remove_line($line);
-        $win->command('^scrollback end') if $bottom && !$win->view->{bottom};
-        $view->redraw;
-    }
-}
-
-sub goto_trackbar {
-    my $win = Irssi::active_win;
-    my $line = $win->view->get_bookmark('trackbar');
-
-    if ($line) {
-        $win->command("scrollback goto ". strftime("%d %H:%M:%S", localtime($line->{info}{time})));
-    } else {
-        $win->printformat(MSGLEVEL_CLIENTCRAP, 'trackbar_not_found');
-    }
-}
-
-sub cmd_mark {
-    update_one_trackbar(Irssi::active_win, undef, 1);
-}
-
-sub cmd_markall {
-    for my $window (Irssi::windows) {
-        next unless ref $window;
-        update_one_trackbar($window);
-    }
-}
-
-sub signal_stop {
-    Irssi::signal_stop;
-}
-
-sub cmd_markvisible {
-    my @wins = Irssi::windows;
-    my $awin =
-        my $bwin = Irssi::active_win;
-    my $awin_counter = 0;
-    Irssi::signal_add_priority('window changed' => 'signal_stop', -99);
-    do {
-        Irssi::active_win->command('window up');
-        $awin = Irssi::active_win;
-        update_one_trackbar($awin);
-        ++$awin_counter;
-    } until ($awin->{refnum} == $bwin->{refnum} || $awin_counter >= @wins);
-    Irssi::signal_remove('window changed' => 'signal_stop');
-}
-
-sub cmd_trackbar_remove_one {
-    remove_one_trackbar(Irssi::active_win);
-}
-
-sub cmd_remove_all_trackbars {
-    remove_all_trackbars();
-    Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'trackbar_all_removed');
-}
-
-sub cmd_keep_once {
-    $keep_trackbar{ Irssi::active_win->{_irssi} } = 1;
-}
-
-sub trackbar_runsub {
-    my ($data, $server, $item) = @_;
-    $data =~ s/\s+$//g;
-
-    if ($data) {
-        Irssi::command_runsub('trackbar', $data, $server, $item);
-    } else {
-        goto_trackbar();
-    }
-}
-
-sub update_config {
-    my $was_status_window = $config{use_status_window};
-    $config{style} = Irssi::settings_get_str('trackbar_style');
-    $config{string} = Irssi::settings_get_str('trackbar_string');
-    $config{require_seen} = Irssi::settings_get_bool('trackbar_require_seen');
-    $config{ignore_windows} = [ split /[,\s]+/, Irssi::settings_get_str('trackbar_ignore_windows') ];
-    $config{use_status_window} = Irssi::settings_get_bool('trackbar_use_status_window');
-    $config{print_timestamp} = Irssi::settings_get_bool('trackbar_print_timestamp');
-    if (defined $was_status_window && $was_status_window != $config{use_status_window}) {
-        if (my $swin = Irssi::window_find_name('(status)')) {
-            if ($config{use_status_window}) {
-                update_one_trackbar($swin);
-            }
-            else {
-                remove_one_trackbar($swin);
-            }
-        }
-    }
-    if ($config{print_timestamp}) {
-        my $ts_format = Irssi::settings_get_str('timestamp_format');
-        my $ts_theme = Irssi::current_theme->get_format('fe-common/core', 'timestamp');
-        my $render_str = Irssi::current_theme->format_expand($ts_theme);
-        (my $ts_escaped = $ts_format) =~ s/([%\$])/$1$1/g;
-        $render_str =~ s/(?|\$(.)(?!\w)|\$\{(\w+)\})/$1 eq 'Z' ? $ts_escaped : $1/ge;
-        $config{timestamp_str} = $render_str;
-    }
-    redraw_trackbars() unless $old_irssi;
-}
-
-Irssi::settings_add_str('trackbar', 'trackbar_string', is_utf8() ? "\x{2500}" : '-');
-Irssi::settings_add_str('trackbar', 'trackbar_style', '%K');
-Irssi::settings_add_str('trackbar', 'trackbar_ignore_windows', '');
-Irssi::settings_add_bool('trackbar', 'trackbar_use_status_window', 1);
-Irssi::settings_add_bool('trackbar', 'trackbar_print_timestamp', 0);
-Irssi::settings_add_bool('trackbar', 'trackbar_require_seen', 0);
-
-update_config();
-
-Irssi::signal_add_last( 'mainwindow resized' => 'redraw_trackbars')
-    unless $old_irssi;
-
-Irssi::signal_register({'window trackbar added' => [qw/Irssi::UI::Window/]});
-Irssi::signal_register({'window trackbar seen' => [qw/Irssi::UI::Window/]});
-Irssi::signal_register({'gui page scrolled' => [qw/Irssi::UI::Window/]});
-Irssi::signal_add_last('gui page scrolled' => 'trackbar_update_seen');
-
-Irssi::signal_add('setup changed' => 'update_config');
-Irssi::signal_add_priority('session save' => 'remove_all_trackbars', Irssi::SIGNAL_PRIORITY_HIGH-1);
-
-Irssi::signal_add('window changed' => 'sig_window_changed');
-
-Irssi::command_bind('trackbar goto'      => 'goto_trackbar');
-Irssi::command_bind('trackbar keep'      => 'cmd_keep_once');
-Irssi::command_bind('trackbar mark'      => 'cmd_mark');
-Irssi::command_bind('trackbar markvisible' => 'cmd_markvisible');
-Irssi::command_bind('trackbar markall'   => 'cmd_markall');
-Irssi::command_bind('trackbar remove'    => 'cmd_trackbar_remove_one');
-Irssi::command_bind('trackbar removeall' => 'cmd_remove_all_trackbars');
-Irssi::command_bind('trackbar redraw'    => 'redraw_trackbars');
-Irssi::command_bind('trackbar'           => 'trackbar_runsub');
-Irssi::command_bind('mark'               => 'cmd_mark');
-Irssi::command_bind_last('help' => 'cmd_help');
-
-Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'trackbar_loaded', $IRSSI{name}, $VERSION, $IRSSI{authors});
diff --git a/.irssi/scripts/recentdepart.pl b/.irssi/scripts/recentdepart.pl
deleted file mode 100644
index efb8b95..0000000
--- a/.irssi/scripts/recentdepart.pl
+++ /dev/null
@@ -1,332 +0,0 @@
-#!/usr/bin/perl -w
-#
-# recentdepart.pl
-#
-# irssi script
-# 
-# This script, when loaded into irssi, will filter quit and parted messages
-# for channels listed in recdep_channels for any nick whos last message was
-# more then a specified time ago.
-#
-# It also filters join messages showing only join messages for nicks who recently
-# parted.
-#
-# [settings]
-# recdep_channels
-#     - Should contain a list of chatnet and channel  names that recentdepart
-#        should monitor.  Its format is a spcae delimited list of chatnet/#channel
-#        pairs.  Either chatnet or channel are optional but adding a / makes it
-#        explicitly recognized as a chatnet or a channel name.  A special case is just a
-#        "*" which turns it on globally.
-#
-#        "#irrsi #perl"                 - enables filtering on the #irssi and #perl
-#                                          channels on all chatnets.
-#
-#        "freenode IRCNet/#irssi"       - enables filtering for all channels on frenode
-#                                          and only the #irssi channel on IRCNet.
-#
-#        "freenode/"                    - force "freenode" to be interpreted as the chatnet
-#                                          name by adding a / to the end.
-#
-#        "/freenode"                    - forces "freenode" to be interpreted as the channel
-#                                          by prefixing it with the / delimiter.
-#
-#         "*"                           - globally enables filtering.
-#
-# recdep_period
-#     - specifies the window of time, after a nick last spoke, for which quit/part
-#        notices will be let through the filter. 
-#
-# recdep_rejoin
-#     - specifies a time period durring which a join notice for someone rejoining will
-#        be shown.  Join messages are filtered if the nicks part/quit message was filtered
-#        or if the nick is gone longer then the rejoin period.
-#        Set to 0 to turn off filtering of join notices.
-#
-# recdep_nickperiod
-#     - specifies a window of time like recdep_period that is used to filter nick change
-#        notices. Set to 0 to turn off filtering of nick changes.
-#
-# recdep_use_hideshow
-#     - whether to use hideshow script instead of ignoring
-#
-
-use strict;
-use warnings;
-use Irssi;
-use Irssi::Irc;
-
-our $VERSION = "0.7";
-our %IRSSI = (
-    authors     => 'Matthew Sytsma',
-    contact     => 'spiderpigy@yahoo.com',
-    name        => 'Recently Departed',
-    description => 'Filters quit/part/join/nick notices based on time since last message. (Similar to weechat\'s smartfilter).',
-    license     => 'GNU GPLv2 or later',
-    url         => '',
-);
-
-# store a hash of configure selected servers/channels
-my %chanlist;
-# Track recent times by server/nick/channel
-# (it is more optimal to go nick/channel then channel/nick because some quit signals are by server not by channel.
-#  We will only have to loop through open channels that a nick has spoken in which should be less then looping
-#  through all the monitored channels looking for the nick.
-my %nickhash=();
-# Track recent times for parted nicks by server/channel/nick
-my %joinwatch=();
-my $use_hide;
-
-sub on_setup_changed {
-    my %old_chanlist = %chanlist;
-    %chanlist = ();
-    my @pairs = split(/ /, Irssi::settings_get_str("recdep_channels"));
-
-    $use_hide = Irssi::settings_get_bool("recdep_use_hideshow");
-    foreach (@pairs)
-    {
-        my ($net, $chan, $more) = split(/\//);
-        if ($more)
-        {
-            /\/(.+)/;
-            $chan = $1;
-        }
-#        Irssi::active_win()->print("Initial Net: $net  Chan: $chan");
-        if (!$net)
-        {
-            $net = '*';
-        }
-
-        if ($net =~ /^[#!@&]/ && !$chan)
-        {
-            $chan = $net;
-            $net = "*";
-        }
-
-        if (!$chan)
-        {
-            $chan = "*";
-        }
-
-        $chanlist{$net}{$chan} = 1;
-    }
-
-    # empty the storage in case theres a channel or server we are no longer filtering
-    %nickhash=();
-    %joinwatch=();
-}
-
-sub check_channel
-{
-    my ($server, $channel) = @_;
-
-    # quits dont have a channel so we need to see if this server possibly contains this channel
-    if (!$channel || $channel eq '*')
-    {
-        # see if any non chatnet channel listings are open on this server
-        if (keys %{ $chanlist{'*'} })
-        {
-            foreach my $chan (keys %{ $chanlist{'*'} })
-            {
-                if ($chan eq '*' || $server->channel_find($chan))
-                {
-                    return 1;
-                }
-            }
-        }
-
-        #  see if there were any channels listed for this chatnet
-        if (keys %{ $chanlist{$server->{'chatnet'}} })
-        {    return 1;    }
-        else
-        {    return 0;    }
-    }
-
-    # check for global channel matches and pair matches
-    return (($chanlist{'*'}{'*'}) ||
-            ($chanlist{'*'}{$channel}) ||
-            ($chanlist{$server->{'chatnet'}}{'*'}) ||
-            ($chanlist{$server->{'chatnet'}}{$channel}));
-}
-
-# Hook for quitting
-sub on_quit
-{
-	my ($server, $nick, $address, $reason) = @_;
-
-        if ($server->{'nick'} eq $nick)
-        {  return;   }
-
-	if (check_channel($server, '*'))
-        {
-            my $recent = 0;
-            foreach my $chan (keys %{ $nickhash{$server->{'tag'}}{lc($nick)} })
-            {
-                 if (time() - $nickhash{$server->{'tag'}}{lc($nick)}{$chan} < Irssi::settings_get_int("recdep_period"))
-                 {
-                     $recent = 1;
-
-                     if (Irssi::settings_get_int("recdep_rejoin") > 0)
-                     {
-                         $joinwatch{$server->{'tag'}}{$chan}{lc($nick)} = time();
-                     }
-                 }
-            }
-
-            delete $nickhash{$server->{'tag'}}{lc($nick)};
-
-            if (!$recent)
-            {
-                $use_hide ? $Irssi::scripts::hideshow::hide_next = 1
-		    : Irssi::signal_stop();
-            }
-	}
-}
-
-# Hook for parting
-sub on_part 
-{
-	my ($server, $channel, $nick, $address, $reason) = @_;
-
-        # cleanup if its you who left a channel
-        if ($server->{'nick'} eq $nick)
-        {
-            # slightly painfull cleanup but we shouldn't hit this as often
-            foreach my $nickd (keys %{ $nickhash{$server->{'tag'}} })
-            {
-                delete $nickhash{$server->{'tag'}}{$nickd}{$channel};
-                if (!keys(%{ $nickhash{$server->{'tag'}}{$nickd} }))
-                {
-                    delete $nickhash{$server->{'tag'}}{$nickd};
-                }
-            }
-            delete $joinwatch{$server->{'tag'}}{$channel};
-        }
-	elsif (check_channel($server, $channel))
-        {
-            if (!defined $nickhash{$server->{'tag'}}{lc($nick)}{$channel} || time() - $nickhash{$server->{'tag'}}{lc($nick)}{$channel} > Irssi::settings_get_int("recdep_period"))
-            {
-                $use_hide ? $Irssi::scripts::hideshow::hide_next = 1
-		    : Irssi::signal_stop();
-            }
-            elsif (Irssi::settings_get_int("recdep_rejoin") > 0)
-            {
-                $joinwatch{$server->{'tag'}}{$channel}{lc($nick)} = time();
-            }
-
-            delete $nickhash{$server->{'tag'}}{lc($nick)}{$channel};
-            if (!keys(%{ $nickhash{$server->{'tag'}}{lc($nick)} }))
-            {
-                delete $nickhash{$server->{'tag'}}{lc($nick)};
-            }
-	}
-}
-
-# Hook for public messages.
-sub on_public
-{
-	my ($server, $msg, $nick, $addr, $target) = @_;
-
-        if (!$target) { return; }
-        if ($nick =~ /^#/) { return; }
-
-        if ($server->{'nick'} eq $nick) { return; }
-
-	if (check_channel($server, $target))
-        {
-            $nickhash{$server->{'tag'}}{lc($nick)}{$target} = time();
-	}
-}
-
-# Hook for people joining
-sub on_join 
-{
-	my ($server, $channel, $nick, $address) = @_;
-
-        if ($server->{'nick'} eq $nick)
-        {  return;   }
-
-        if (Irssi::settings_get_int("recdep_rejoin") == 0)
-        {   return;  }
-
-	if (check_channel($server, $channel))
-        {
-            if (!defined $joinwatch{$server->{'tag'}}{$channel}{lc($nick)} || time() - $joinwatch{$server->{'tag'}}{$channel}{lc($nick)} > Irssi::settings_get_int("recdep_rejoin"))
-            {
-                $use_hide ? $Irssi::scripts::hideshow::hide_next = 1
-		    : Irssi::signal_stop();
-            }
-	}
-
-        # loop through and delete all old nicks from the rejoin hash
-        # this should be a small loop because it will only inlude nicks who recently left channel and who
-        # passed the part message filter
-        foreach my $nickd (keys %{ $joinwatch{$server->{'tag'}}{$channel} })
-        {
-           if (time() - $joinwatch{$server->{'tag'}}{$channel}{lc($nickd)} < Irssi::settings_get_int("recdep_rejoin"))
-           {   next;   }
-
-           delete $joinwatch{$server->{'tag'}}{$channel}{lc($nickd)};
-        }
-        if (!keys(%{ $joinwatch{$server->{'tag'}}{$channel} }))
-        {
-            delete $joinwatch{$server->{'tag'}}{$channel};
-        }
-}
-
-# Hook for nick changes
-sub on_nick 
-{
-        my ($server, $new, $old, $address) = @_;
-
-        if ($server->{'nick'} eq $old || $server->{'nick'} eq $new)
-        {  return;   }
-   
-        if (check_channel($server, '*'))
-        {
-            my $recent = 0;
-            foreach my $chan (keys %{ $nickhash{$server->{'tag'}}{lc($old)} })
-            {
-                 if (time() - $nickhash{$server->{'tag'}}{lc($old)}{$chan} < Irssi::settings_get_int("recdep_nickperiod"))
-                 {
-                     $recent = 1;
-                 }
-            }
-
-            if (!$recent && Irssi::settings_get_int("recdep_nickperiod") > 0)
-            {
-                $use_hide ? $Irssi::scripts::hideshow::hide_next = 1
-		    : Irssi::signal_stop();
-            }
-
-           delete $nickhash{$server->{'tag'}}{lc($old)}; 
-        }
-}
-
-
-# Hook for cleanup on server quit
-sub on_serverquit
-{
-        my ($server, $msg) = @_;
-
-        delete $nickhash{$server->{'tag'}};
-        delete $joinwatch{$server->{'tag'}};
-}
-
-# Setup hooks on events
-Irssi::signal_add_last("message public", "on_public");
-Irssi::signal_add_last("message part", "on_part");
-Irssi::signal_add_last("message quit", "on_quit");
-Irssi::signal_add_last("message nick", "on_nick");
-Irssi::signal_add_last("message join", "on_join");
-Irssi::signal_add_last("server disconnected", "on_serverquit");
-Irssi::signal_add_last("server quit", "on_serverquit");
-Irssi::signal_add('setup changed', "on_setup_changed");
-
-# Add settings
-Irssi::settings_add_str("recdentpepart", "recdep_channels", '*');
-Irssi::settings_add_int("recdentpepart", "recdep_period", 600);
-Irssi::settings_add_int("recdentpepart", "recdep_rejoin", 120);
-Irssi::settings_add_int("recdentpepart", "recdep_nickperiod", 600);
-Irssi::settings_add_bool("recdentpepart", "recdep_use_hideshow", 0);
-on_setup_changed();
diff --git a/.irssi/scripts/scriptassist.pl b/.irssi/scripts/scriptassist.pl
deleted file mode 100644
index 6870894..0000000
--- a/.irssi/scripts/scriptassist.pl
+++ /dev/null
@@ -1,1229 +0,0 @@
-# by Stefan "tommie" Tomanek
-#
-# scriptassist.pl
-
-
-use strict;
-
-our $VERSION = '2003020806';
-our %IRSSI = (
-    authors     => 'Stefan \'tommie\' Tomanek',
-    contact     => 'stefan@pico.ruhr.de',
-    name        => 'scriptassist',
-    description => 'keeps your scripts on the cutting edge',
-    license     => 'GPLv2',
-    url         => 'http://irssi.org/scripts/',
-    modules     => 'Data::Dumper LWP::UserAgent (GnuPG)',
-    commands	=> "scriptassist"
-);
-
-our ($forked, %remote_db, $have_gpg, @complist);
-
-use Irssi 20020324;
-use Data::Dumper;
-use LWP::UserAgent;
-use POSIX;
-
-# GnuPG is not always needed
-$have_gpg = 0;
-eval "use GnuPG qw(:algo :trust);";
-$have_gpg = 1 if not ($@);
-
-sub show_help {
-    my $help = "scriptassist $VERSION
-/scriptassist check
-    Check all loaded scripts for new available versions
-/scriptassist update <script|all>
-    Update the selected or all script to the newest version
-/scriptassist search <query>
-    Search the script database
-/scriptassist info <scripts>
-    Display information about <scripts>
-".#/scriptassist ratings <scripts>
-#    Retrieve the average ratings of the the scripts
-#/scriptassist top <num>
-#    Retrieve the first <num> top rated scripts
-"/scriptassist new <num>
-    Display the newest <num> scripts
-".#/scriptassist rate <script> <stars>
-#    Rate the script with a number of stars ranging from 0-5
-"/scriptassist contact <script>
-    Write an email to the author of the script
-    (Requires OpenURL)
-/scriptassist cpan <module>
-    Visit CPAN to look for missing Perl modules
-    (Requires OpenURL)
-/scriptassist install <script>
-    Retrieve and load the script
-/scriptassist autorun <script>
-    Toggles automatic loading of <script>
-";  
-    my $text='';
-    foreach (split(/\n/, $help)) {
-        $_ =~ s/^\/(.*)$/%9\/$1%9/;
-        $text .= $_."\n";
-    }
-    print CLIENTCRAP &draw_box("ScriptAssist", $text, "scriptassist help", 1);
-    #theme_box("ScriptAssist", $text, "scriptassist help", 1);
-}
-
-sub theme_box {
-    my ($title, $text, $footer, $colour) = @_;
-    Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'box_header', $title);
-    foreach (split(/\n/, $text)) {
-	Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'box_inside', $_);
-    }
-    Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'box_footer', $footer);
-}
-
-sub draw_box {
-    my ($title, $text, $footer, $colour) = @_;
-    my $box = '';
-    $box .= '%R,--[%n%9%U'.$title.'%U%9%R]%n'."\n";
-    foreach (split(/\n/, $text)) {
-        $box .= '%R|%n '.$_."\n";
-    }
-    $box .= '%R`--<%n'.$footer.'%R>->%n';
-    $box =~ s/%.//g unless $colour;
-    return $box;
-}
-
-sub call_openurl {
-    my ($url) = @_;
-    # check for a loaded openurl
-    if (my $code = Irssi::Script::openurl::->can('launch_url')) {
-	$code->($url);
-    } else {
-        print CLIENTCRAP "%R>>%n Please install openurl.pl";
-    }
-}
-
-sub bg_do {
-    my ($func) = @_;
-    my ($rh, $wh);
-    pipe($rh, $wh);
-    if ($forked) {
-	print CLIENTCRAP "%R>>%n Please wait until your earlier request has been finished.";
-	return;
-    }
-    my $pid = fork();
-    $forked = 1;
-    if ($pid > 0) {
-	print CLIENTCRAP "%R>>%n Please wait...";
-        close $wh;
-        Irssi::pidwait_add($pid);
-        my $pipetag;
-        my @args = ($rh, \$pipetag, $func);
-        $pipetag = Irssi::input_add(fileno($rh), INPUT_READ, \&pipe_input, \@args);
-    } else {
-	eval {
-	    my @items = split(/ /, $func);
-	    my %result;
-	    my $ts1 = $remote_db{timestamp};
-	    my $xml = get_scripts();
-	    my $ts2 = $remote_db{timestamp};
-	    if (not($ts1 eq $ts2) && Irssi::settings_get_bool('scriptassist_cache_sources')) {
-		$result{db} = $remote_db{db};
-		$result{timestamp} = $remote_db{timestamp};
-	    }
-	    if ($items[0] eq 'check') {
-		$result{data}{check} = check_scripts($xml);
-	    } elsif ($items[0] eq 'update') {
-		shift(@items);
-		$result{data}{update} = update_scripts(\@items, $xml);
-	    } elsif ($items[0] eq 'search') {
-		shift(@items);
-		foreach (@items) {
-		    $result{data}{search}{$_} = search_scripts($_, $xml);
-		}
-	    } elsif ($items[0] eq 'install') {
-		shift(@items);
-		$result{data}{install} = install_scripts(\@items, $xml);
-	    } elsif ($items[0] eq 'debug') {
-		shift(@items);
-		$result{data}{debug} = debug_scripts(\@items);
-	    } elsif ($items[0] eq 'ratings') {
-		shift(@items);
-		@items = @{ loaded_scripts() } if $items[0] eq "all";
-		my %ratings = %{ get_ratings(\@items, '') };
-		foreach (keys %ratings) {
-		    $result{data}{rating}{$_}{rating} = $ratings{$_}->[0];
-		    $result{data}{rating}{$_}{votes} = $ratings{$_}->[1];
-		}
-	    } elsif ($items[0] eq 'rate') {
-		$result{data}{rate}{$items[1]} = rate_script($items[1], $items[2]);
-	    } elsif ($items[0] eq 'info') {
-		shift(@items);
-		$result{data}{info} = script_info(\@items);
-	    } elsif ($items[0] eq 'echo') {
-		$result{data}{echo} = 1;
-	    } elsif ($items[0] eq 'top') {
-		my %ratings = %{ get_ratings([], $items[1]) };
-		foreach (keys %ratings) {
-                    $result{data}{rating}{$_}{rating} = $ratings{$_}->[0];
-                    $result{data}{rating}{$_}{votes} = $ratings{$_}->[1];
-                }
-	    } elsif ($items[0] eq 'new') {
-		my $new = get_new($items[1]);
-		$result{data}{new} = $new;
-	    } elsif ($items[0] eq 'unknown') {
-		my $cmd = $items[1];
-		$result{data}{unknown}{$cmd} = get_unknown($cmd, $xml);
-	    }
-	    my $dumper = Data::Dumper->new([\%result]);
-	    $dumper->Purity(1)->Deepcopy(1)->Indent(0);
-	    my $data = $dumper->Dump;
-	    print($wh $data);
-	};
-	if ($@) {
-	    print($wh Data::Dumper->new([+{data=>+{error=>$@}}])
-		      ->Purity(1)->Deepcopy(1)->Indent(0)->Dump);
-	}
-	close($wh);
-	POSIX::_exit(1);
-    }
-}
-
-sub get_unknown {
-    my ($cmd, $db) = @_;
-    foreach (keys %$db) {
-	next unless defined $db->{$_}{commands};
-	foreach my $item (split / /, $db->{$_}{commands}) {
-	    return { $_ => $db->{$_} } if ($item =~ /^$cmd$/i);
-	}
-    }
-    return undef;
-}
-
-sub get_names {
-    my ($sname, $db) = shift;
-    $sname =~ s/\s+$//;
-    $sname =~ s/\.pl$//;
-    my $plname = "$sname.pl";
-    $sname =~ s/^.*\///;
-    my $xname = $sname;
-    $xname =~ s/\W/_/g;
-    my $pname = "${xname}::";
-    if ($xname ne $sname || $sname =~ /_/) {
-	my $dir = Irssi::get_irssi_dir()."/scripts/";
-	if ($db && exists $db->{"$sname.pl"}) {
-	    # $found = 1;
-	} elsif (-e $dir.$plname || -e $dir."$sname.pl" || -e $dir."autorun/$sname.pl") {
-	    # $found = 1;
-	} else {
-	    # not found
-	    my $pat = $xname; $pat =~ y/_/?/;
-	    my $re = "\Q$xname"; $re =~ s/\Q_/./g;
-	    if ($db) {
-		my ($cand) = grep /^$re\.pl$/, sort keys %$db;
-		if ($cand) {
-		    return get_names($cand, $db);
-		}
-	    }
-	    my ($cand) = glob "'$dir$pat.pl' '${dir}autorun/$pat.pl'";
-	    if ($cand) {
-		$cand =~ s/^.*\///;
-		return get_names($cand, $db);
-	    }
-	}
-    }
-    ($sname, $plname, $pname, $xname)
-}
-
-sub script_info {
-    my ($scripts) = @_;
-    my %result;
-    my $xml = get_scripts();
-    foreach (@{$scripts}) {
-	my ($sname, $plname, $pname) = get_names($_, $xml);
-	next unless (defined $xml->{$plname} || ( exists $Irssi::Script::{$pname} && exists $Irssi::Script::{$pname}{IRSSI} ));
-	$result{$sname}{version} = get_remote_version($sname, $xml);
-	my @headers = ('authors', 'contact', 'description', 'license', 'source');
-	foreach my $entry (@headers) {
-	    $result{$sname}{$entry} = $Irssi::Script::{$pname}{IRSSI}{$entry};
-	    if (defined $xml->{$plname}{$entry}) {
-		$result{$sname}{$entry} = $xml->{$plname}{$entry};
-	    }
-	}
-	if ($xml->{$plname}{signature_available}) {
-	    $result{$sname}{signature_available} = 1;
-	}
-	if (defined $xml->{$plname}{modules}) {
-	    my $modules = $xml->{$plname}{modules};
-	    foreach my $mod (split(/ /, $modules)) {
-		my $opt = ($mod =~ /\((.*)\)/)? 1 : 0;
-		$mod = $1 if $1;
-		$result{$sname}{modules}{$mod}{optional} = $opt;
-		$result{$sname}{modules}{$mod}{installed} = module_exist($mod);
-	    }
-	} elsif (defined $Irssi::Script::{$pname}{IRSSI}{modules}) {
-	    my $modules = $Irssi::Script::{$pname}{IRSSI}{modules};
-	    foreach my $mod (split(/ /, $modules)) {
-		my $opt = ($mod =~ /\((.*)\)/)? 1 : 0;
-		$mod = $1 if $1;
-		$result{$sname}{modules}{$mod}{optional} = $opt;
-		$result{$sname}{modules}{$mod}{installed} = module_exist($mod);
-	    }
-	}
-	if (defined $xml->{$plname}{depends}) {
-	    my $depends = $xml->{$plname}{depends};
-	    foreach my $dep (split(/ /, $depends)) {
-		$result{$sname}{depends}{$dep}{installed} = 1;
-	    }
-	}
-    }
-    return \%result;
-}
-
-sub rate_script {
-    my ($script, $stars) = @_;
-    my $ua = LWP::UserAgent->new(env_proxy=>1, keep_alive=>1, timeout=>30);
-    $ua->agent('ScriptAssist/'.2003020803);
-    my $request = HTTP::Request->new('GET', 'http://ratings.irssi.de/irssirate.pl?&stars='.$stars.'&mode=rate&script='.$script);
-    my $response = $ua->request($request);
-    unless ($response->is_success() && $response->content() =~ /You already rated this script/) {
-	return 1;
-    } else {
-	return 0;
-    }
-}
-
-sub get_ratings {
-    my ($scripts, $limit) = @_;
-    my $ua = LWP::UserAgent->new(env_proxy=>1, keep_alive=>1, timeout=>30);
-    $ua->agent('ScriptAssist/'.2003020803);
-    my $script = join(',', @{$scripts});
-    my $request = HTTP::Request->new('GET', 'http://ratings.irssi.de/irssirate.pl?script='.$script.'&sort=rating&limit='.$limit);
-    my $response = $ua->request($request);
-    my %result;
-    if ($response->is_success()) {
-	foreach (split /\n/, $response->content()) {
-	    if (/<tr><td><a href=".*?">(.*?)<\/a>/) {
-		my $entry = $1;
-		if (/"><\/td><td>([0-9.]+)<\/td><td>(.*?)<\/td><td>/) {
-		    $result{$entry} = [$1, $2];
-		}
-	    }
-	}
-    }
-    return \%result;
-}
-
-sub get_new {
-    my ($num) = @_;
-    my $result;
-    my $xml = get_scripts();
-    foreach (sort {$xml->{$b}{last_modified} cmp $xml->{$a}{last_modified}} keys %$xml) {
-	my %entry = %{ $xml->{$_} };
-	next if $entry{HIDDEN};
-	$result->{$_} = \%entry;
-	$num--;
-	last unless $num;
-    }
-    return $result;
-}
-sub module_exist {
-    my ($module) = @_;
-    $module =~ s/::/\//g;
-    foreach (@INC) {
-	return 1 if (-e $_."/".$module.".pm");
-    }
-    return 0;
-}
-
-sub debug_scripts {
-    my ($scripts) = @_;
-    my %result;
-    my $xml = get_scripts();
-    foreach (@{$scripts}) {
-	my ($sname, $plname) = get_names($_, $xml);
-	if (defined $xml->{$plname}{modules}) {
-	    my $modules = $xml->{$plname}{modules};
-	    foreach my $mod (split(/ /, $modules)) {
-                my $opt = ($mod =~ /\((.*)\)/)? 1 : 0;
-                $mod = $1 if $1;
-                $result{$sname}{$mod}{optional} = $opt;
-                $result{$sname}{$mod}{installed} = module_exist($mod);
-	    }
-	}
-    }
-    return(\%result);
-}
-
-sub install_scripts {
-    my ($scripts, $xml) = @_;
-    my %success;
-    my $dir = Irssi::get_irssi_dir()."/scripts/";
-    foreach (@{$scripts}) {
-	my ($sname, $plname, $pname) = get_names($_, $xml);
-	if (get_local_version($sname) && (-e $dir.$plname)) {
-	    $success{$sname}{installed} = -2;
-	} else {
-	    $success{$sname} = download_script($sname, $xml);
-	}
-    }
-    return \%success;
-}
-
-sub update_scripts {
-    my ($list, $database) = @_;
-    $list = loaded_scripts() if ($list->[0] eq "all" || scalar(@$list) == 0);
-    my %status;
-    foreach (@{$list}) {
-	my ($sname) = get_names($_, $database);
-	my $local = get_local_version($sname);
-	my $remote = get_remote_version($sname, $database);
-	next if $local eq '' || $remote eq '';
-	if (compare_versions($local, $remote) eq "older") {
-	    $status{$sname} = download_script($sname, $database);
-	} else {
-	    $status{$sname}{installed} = -2;
-	}
-	$status{$sname}{remote} = $remote;
-	$status{$sname}{local} = $local;
-    }
-    return \%status;
-}
-
-sub search_scripts {
-    my ($query, $database) = @_;
-    $query =~ s/\.pl\Z//;
-    my %result;
-    foreach (sort keys %{$database}) {
-	my %entry = %{$database->{$_}};
-	next if $entry{HIDDEN};
-	my $string = $_." ";
-	$string .= $entry{description} if defined $entry{description};
-	if ($string =~ /$query/i) {
-	    my $name = $_;
-	    $name =~ s/\.pl$//;
-	    if (defined $entry{description}) {
-		$result{$name}{desc} = $entry{description};
-	    } else {
-		$result{$name}{desc} = "";
-	    }
-	    if (defined $entry{authors}) {
-		$result{$name}{authors} = $entry{authors};
-	    } else {
-		$result{$name}{authors} = "";
-	    }
-	    if (get_local_version($name)) {
-		$result{$name}{installed} = 1;
-	    } else {
-		$result{$name}{installed} = 0;
-	    }
-	}
-    }
-    return \%result;
-}
-
-sub pipe_input {
-    my ($rh, $pipetag) = @{$_[0]};
-    my $text = do { local $/; <$rh>; };
-    close($rh);
-    Irssi::input_remove($$pipetag);
-    $forked = 0;
-    unless ($text) {
-	print CLIENTCRAP "%R<<%n Something weird happend (no text)";
-	return();
-    }
-    local our $VAR1;
-    my $incoming = eval($text);
-    if ($incoming->{db} && $incoming->{timestamp}) {
-    	$remote_db{db} = $incoming->{db};
-    	$remote_db{timestamp} = $incoming->{timestamp};
-    }
-    unless (defined $incoming->{data}) {
-	print CLIENTCRAP "%R<<%n Something weird happend (no data)";
-	return;
-    }
-    my %result = %{ $incoming->{data} };
-    @complist = ();
-    if (defined $result{new}) {
-	print_new($result{new});
-	push @complist, $_ foreach keys %{ $result{new} };
-    }
-    if (defined $result{check}) {
-	print_check(%{$result{check}});
-	push @complist, $_ foreach keys %{ $result{check} };
-    }
-    if (defined $result{update}) {
-	print_update(%{ $result{update} });
-	push @complist, $_ foreach keys %{ $result{update} };
-    }
-    if (defined $result{search}) {
-	foreach (keys %{$result{search}}) {
-	    print_search($_, %{$result{search}{$_}});
-	    push @complist, keys(%{$result{search}{$_}});
-	}
-    }
-    if (defined $result{install}) {
-	print_install(%{ $result{install} });
-	push @complist, $_ foreach keys %{ $result{install} };
-    }
-    if (defined $result{debug}) {
-	print_debug(%{ $result{debug} });
-    }
-    if (defined $result{rating}) {
-	print_ratings(%{ $result{rating} });
-	push @complist, $_ foreach keys %{ $result{rating} };
-    }
-    if (defined $result{rate}) {
-	print_rate(%{ $result{rate} });
-    }
-    if (defined $result{info}) {
-	print_info(%{ $result{info} });
-    }
-    if (defined $result{echo}) {
-	Irssi::print "ECHO";
-    }
-    if ($result{unknown}) {
-        print_unknown($result{unknown});
-    }
-    if (defined $result{error}) {
-	print CLIENTCRAP "%R<<%n There was an error in background processing:"; chomp($result{error});
-	print CLIENTERROR $result{error};
-    }
-
-}
-
-sub print_unknown {
-    my ($data) = @_;
-    foreach my $cmd (keys %$data) {
-	print CLIENTCRAP "%R<<%n No script provides '/$cmd'" unless $data->{$cmd};
-	foreach (keys %{ $data->{$cmd} }) {
-	    my $text .= "The command '/".$cmd."' is provided by the script '".$data->{$cmd}{$_}{name}."'.\n";
-	    $text .= "This script is currently not installed on your system.\n";
-	    $text .= "If you want to install the script, enter\n";
-	    my ($name) = get_names($_);
-	    $text .= "  %U/script install ".$name."%U ";
-	    my $output = draw_box("ScriptAssist", $text, "'".$_."' missing", 1);
-	    print CLIENTCRAP $output;
-	}
-    }
-}
-
-sub check_autorun {
-    my ($script) = @_;
-    my (undef, $plname) = get_names($script);
-    my $dir = Irssi::get_irssi_dir()."/scripts/";
-    if (-e $dir."/autorun/".$plname) {
-	if (readlink($dir."/autorun/".$plname) eq "../".$plname) {
-	    return 1;
-	}
-    }
-    return 0;
-}
-
-sub array2table {
-    my (@array) = @_;
-    my @width;
-    foreach my $line (@array) {
-        for (0..scalar(@$line)-1) {
-            my $l = $line->[$_];
-            $l =~ s/%[^%]//g;
-            $l =~ s/%%/%/g;
-            $width[$_] = length($l) if $width[$_]<length($l);
-        }
-    }
-    my $text;
-    foreach my $line (@array) {
-        for (0..scalar(@$line)-1) {
-            my $l = $line->[$_];
-            $text .= $line->[$_];
-            $l =~ s/%[^%]//g;
-            $l =~ s/%%/%/g;
-            $text .= " "x($width[$_]-length($l)+1) unless ($_ == scalar(@$line)-1);
-        }
-        $text .= "\n";
-    }
-    return $text;
-}
-
-
-sub print_info {
-    my (%data) = @_;
-    my $line;
-    foreach my $script (sort keys(%data)) {
-	my ($local, $autorun);
-	if (get_local_version($script)) {
-	    $line .= "%go%n ";
-	    $local = get_local_version($script);
-	} else {
-	    $line .= "%ro%n ";
-	    $local = undef;
-	}
-	if (defined $local || check_autorun($script)) {
-	    $autorun = "no";
-	    $autorun = "yes" if check_autorun($script);
-	} else {
-	    $autorun = undef;
-	}
-	$line .= "%9".$script."%9\n";
-	$line .= "  Version    : ".$data{$script}{version}."\n";
-	$line .= "  Source     : ".$data{$script}{source}."\n";
-	$line .= "  Installed  : ".$local."\n" if defined $local;
-	$line .= "  Autorun    : ".$autorun."\n" if defined $autorun;
-	$line .= "  Authors    : ".$data{$script}{authors};
-	$line .= " %Go-m signed%n" if $data{$script}{signature_available};
-	$line .= "\n";
-	$line .= "  Contact    : ".$data{$script}{contact}."\n";
-	$line .= "  Description: ".$data{$script}{description}."\n";
-	$line .= "\n" if $data{$script}{modules};
-	$line .= "  Needed Perl modules:\n" if $data{$script}{modules};
-
-        foreach (sort keys %{$data{$script}{modules}}) {
-            if ( $data{$script}{modules}{$_}{installed} == 1 ) {
-                $line .= "  %g->%n ".$_." (found)";
-            } else {
-                $line .= "  %r->%n ".$_." (not found)";
-            }
-	    $line .= " <optional>" if $data{$script}{modules}{$_}{optional};
-            $line .= "\n";
-        }
-	$line .= "  Needed Irssi Scripts:\n" if $data{$script}{depends};
-	foreach (sort keys %{$data{$script}{depends}}) {
-	    if ( $data{$script}{depends}{$_}{installed} == 1 ) {
-		$line .= "  %g->%n ".$_." (loaded)";
-	    } else {
-		$line .= "  %r->%n ".$_." (not loaded)";
-	    }
-	    $line .= "\n";
-	}
-    }
-    print CLIENTCRAP draw_box('ScriptAssist', $line, 'info', 1) ;
-}
-
-sub print_rate {
-    my (%data) = @_;
-    my $line;
-    foreach my $script (sort keys(%data)) {
-	if ($data{$script}) {
-            $line .= "%go%n %9".$script."%9 has been rated";
-        } else {
-            $line .= "%ro%n %9".$script."%9 : Already rated this script";
-        }
-    }
-    print CLIENTCRAP draw_box('ScriptAssist', $line, 'rating', 1) ;
-}
-
-sub print_ratings {
-    my (%data) = @_;
-    my @table;
-    foreach my $script (sort {$data{$b}{rating}<=>$data{$a}{rating}} keys(%data)) {
-	my @line;
-	if (get_local_version($script)) {
-	    push @line, "%go%n";
-	} else {
-	    push @line, "%yo%n";
-	}
-        push @line, "%9".$script."%9";
-	push @line, $data{$script}{rating};
-	push @line, "[".$data{$script}{votes}." votes]";
-	push @table, \@line;
-    }
-    print CLIENTCRAP draw_box('ScriptAssist', array2table(@table), 'ratings', 1) ;
-}
-
-sub print_new {
-    my ($list) = @_;
-    my @table;
-    foreach (sort {$list->{$b}{last_modified} cmp $list->{$a}{last_modified}} keys %$list) {
-	my @line;
-	my ($name) = get_names($_);
-        if (get_local_version($name)) {
-            push @line, "%go%n";
-        } else {
-            push @line, "%yo%n";
-        }
-	push @line, "%9".$name."%9";
-	push @line, $list->{$_}{last_modified};
-	push @table, \@line;
-    }
-    print CLIENTCRAP draw_box('ScriptAssist', array2table(@table), 'new scripts', 1) ;
-}
-
-sub print_debug {
-    my (%data) = @_;
-    my $line;
-    foreach my $script (sort keys %data) {
-	$line .= "%ro%n %9".$script."%9 failed to load\n";
-	$line .= "  Make sure you have the following perl modules installed:\n";
-	foreach (sort keys %{$data{$script}}) {
-	    if ( $data{$script}{$_}{installed} == 1 ) {
-		$line .= "  %g->%n ".$_." (found)";
-	    } else {
-		$line .= "  %r->%n ".$_." (not found)\n";
-		$line .= "     [This module is optional]\n" if $data{$script}{$_}{optional};
-		$line .= "     [Try /scriptassist cpan ".$_."]";
-	    }
-	    $line .= "\n";
-	}
-	print CLIENTCRAP draw_box('ScriptAssist', $line, 'debug', 1) ;
-    }
-}
-
-sub load_script {
-    my ($script) = @_;
-    Irssi::command('script load '.$script);
-}
-
-sub print_install {
-    my (%data) = @_;
-    my $text;
-    my ($crashed, @installed);
-    foreach my $script (sort keys %data) {
-	my $line;
-	if ($data{$script}{installed} == 1) {
-	    my $hacked;
-	    if ($have_gpg && Irssi::settings_get_bool('scriptassist_use_gpg')) {
-		if ($data{$script}{signed} >= 0) {
-		    load_script($script) unless (lc($script) eq lc($IRSSI{name}));
-		} else {
-		    $hacked = 1;
-		}
-	    } else {
-		load_script($script) unless (lc($script) eq lc($IRSSI{name}));
-	    }
-    	    if (get_local_version($script) && not lc($script) eq lc($IRSSI{name})) {
-		$line .= "%go%n %9".$script."%9 installed\n";
-		push @installed, $script;
-	    } elsif (lc($script) eq lc($IRSSI{name})) {
-		$line .= "%yo%n %9".$script."%9 installed, please reload manually\n";
-	    } else {
-    		$line .= "%Ro%n %9".$script."%9 fetched, but unable to load\n";
-		$crashed .= $script." " unless $hacked;
-	    }
-	    if ($have_gpg && Irssi::settings_get_bool('scriptassist_use_gpg')) {
-		foreach (split /\n/, check_sig($data{$script})) {
-		    $line .= "  ".$_."\n";
-		}
-	    }
-	} elsif ($data{$script}{installed} == -2) {
-	    $line .= "%ro%n %9".$script."%9 already loaded, please try \"update\"\n";
-	} elsif ($data{$script}{installed} <= 0) {
-	    $line .= "%ro%n %9".$script."%9 not installed\n";
-    	    foreach (split /\n/, check_sig($data{$script})) {
-		$line .= "  ".$_."\n";
-	    }
-	} else {
-	    $line .= "%Ro%n %9".$script."%9 not found on server\n";
-	}
-	$text .= $line;
-    }
-    # Inspect crashed scripts
-    bg_do("debug ".$crashed) if $crashed;
-    print CLIENTCRAP draw_box('ScriptAssist', $text, 'install', 1);
-    list_sbitems(\@installed);
-}
-
-sub list_sbitems {
-    my ($scripts) = @_;
-    my $text;
-    foreach (@$scripts) {
-	next unless exists $Irssi::Script::{"${_}::"};
-	next unless exists $Irssi::Script::{"${_}::"}{IRSSI};
-	my $header = $Irssi::Script::{"${_}::"}{IRSSI};
-	next unless $header->{sbitems};
-	$text .= '%9"'.$_.'"%9 provides the following statusbar item(s):'."\n";
-	$text .= '  ->'.$_."\n" foreach (split / /, $header->{sbitems});
-    }
-    return unless $text;
-    $text .= "\n";
-    $text .= "Enter '/statusbar window add <item>' to add an item.";
-    print CLIENTCRAP draw_box('ScriptAssist', $text, 'sbitems', 1);
-}
-
-sub check_sig {
-    my ($sig) = @_;
-    my $line;
-    my %trust = ( -1 => 'undefined',
-                   0 => 'never',
-		   1 => 'marginal',
-		   2 => 'fully',
-		   3 => 'ultimate'
-		 );
-    if ($sig->{signed} == 1) {
-	$line .= "Signature found from ".$sig->{sig}{user}."\n";
-	$line .= "Timestamp  : ".$sig->{sig}{date}."\n";
-	$line .= "Fingerprint: ".$sig->{sig}{fingerprint}."\n";
-	$line .= "KeyID      : ".$sig->{sig}{keyid}."\n";
-	$line .= "Trust      : ".$trust{$sig->{sig}{trust}}."\n";
-    } elsif ($sig->{signed} == -1) {
-	$line .= "%1Warning, unable to verify signature%n\n";
-    } elsif ($sig->{signed} == 0) {
-	$line .= "%1No signature found%n\n" unless Irssi::settings_get_bool('scriptassist_install_unsigned_scripts');
-    }
-    return $line;
-}
-
-sub print_search {
-    my ($query, %data) = @_;
-    my $text;
-    foreach (sort keys %data) {
-	my $line;
-	$line .= "%go%n" if $data{$_}{installed};
-	$line .= "%yo%n" if not $data{$_}{installed};
-	$line .= " %9".$_."%9 ";
-	$line .= $data{$_}{desc};
-	$line =~ s/($query)/%U$1%U/gi;
-	$line .= ' ('.$data{$_}{authors}.')';
-	$text .= $line." \n";
-    }
-    print CLIENTCRAP draw_box('ScriptAssist', $text, 'search: '.$query, 1) ;
-}
-
-sub print_update {
-    my (%data) = @_;
-    my $text;
-    my @table;
-    my $verbose = Irssi::settings_get_bool('scriptassist_update_verbose');
-    foreach (sort keys %data) {
-	my $signed = 0;
-	if ($data{$_}{installed} == 1) {
-	    my $local = $data{$_}{local};
-	    my $remote = $data{$_}{remote};
-	    push @table, ['%yo%n', '%9'.$_.'%9', 'upgraded ('.$local.'->'.$remote.')'];
-	    foreach (split /\n/, check_sig($data{$_})) {
-		push @table, ['', '', $_];
-	    }
-	    if (lc($_) eq lc($IRSSI{name})) {
-		push @table, ['', '', "%R%9Please reload manually%9%n"];
-	    } else {
-		load_script($_);
-	    }
-	} elsif ($data{$_}{installed} == 0 || $data{$_}{installed} == -1) {
-	    push @table, ['%yo%n', '%9'.$_.'%9', 'not upgraded'];
-            foreach (split /\n/, check_sig($data{$_})) {
-		push @table, ['', '', $_];
-            }
-	} elsif ($data{$_}{installed} == -2 && $verbose) {
-	    my $local = $data{$_}{local};
-	    push @table, ['%go%n', '%9'.$_.'%9', 'already at the latest version ('.$local.')'];
-    	}
-    }
-    $text = array2table(@table);
-    print CLIENTCRAP draw_box('ScriptAssist', $text, 'update', 1) ;
-}
-
-sub contact_author {
-    my ($script) = @_;
-    my ($sname, $plname, $pname) = get_names($script);
-    return unless exists $Irssi::Script::{$pname};
-    my $header = $Irssi::Script::{$pname}{IRSSI};
-    if ($header && defined $header->{contact}) {
-	my @ads = split(/ |,/, $header->{contact});
-	my $address = $ads[0];
-	$address .= '?subject='.$script;
-	$address .= '_'.get_local_version($script) if defined get_local_version($script);
-	call_openurl($address) if $address =~ /[\@:]/;
-    }
-}
-
-sub get_scripts {
-    my $ua = LWP::UserAgent->new(env_proxy=>1, keep_alive=>1, timeout=>30);
-    $ua->agent('ScriptAssist/'.2003020803);
-    $ua->env_proxy();
-    my @mirrors = split(/ /, Irssi::settings_get_str('scriptassist_script_sources'));
-    my %sites_db;
-    my $not_modified = 0;
-    my $fetched = 0;
-    my @sources;
-    my $error;
-    foreach my $site (@mirrors) {
-	my $request = HTTP::Request->new('GET', $site);
-	if ($remote_db{timestamp}) {
-	    $request->if_modified_since($remote_db{timestamp});
-	}
-	my $response = $ua->request($request);
-	if ($response->code == 304) { # HTTP_NOT_MODIFIED
-	    $not_modified = 1;
-	    next;
-	}
-	unless ($response->is_success) {
-	    $error = join "\n", $response->status_line(), (grep / at .* line \d+/, split "\n", $response->content()), '';
-	    next;
-	}
-	$fetched = 1;
-	my $data = $response->content();
-	my ($src, $type);
-	if ($site =~ /(.*\/).+\.(.+)/) {
-	    $src = $1;
-	    $type = $2;
-	}
-	push @sources, $src;
-	#my @header = ('name', 'contact', 'authors', 'description', 'version', 'modules', 'last_modified');
-	if ($type eq 'dmp') {
-	    no strict 'vars';
-	    my $new_db = eval "$data";
-	    foreach (keys %$new_db) {
-		if (defined $sites_db{script}{$_}) {
-		    my $old = $sites_db{$_}{version};
-		    my $new = $new_db->{$_}{version};
-		    next if (compare_versions($old, $new) eq 'newer');
-		}
-		#foreach my $key (@header) {
-		foreach my $key (keys %{ $new_db->{$_} }) {
-		    next unless defined $new_db->{$_}{$key};
-		    $sites_db{$_}{$key} = $new_db->{$_}{$key};
-		}
-		$sites_db{$_}{source} = $src;
-	    }
-	} else {
-	    die("Unknown script database type ($type).\n");
-	}
-    }
-    if ($fetched) {
-	# Clean database
-	foreach (keys %{$remote_db{db}}) {
-	    foreach my $site (@sources) {
-		if ($remote_db{db}{$_}{source} eq $site) {
-		    delete $remote_db{db}{$_};
-		    last;
-		}
-	    }
-	}
-	$remote_db{db}{$_} = $sites_db{$_} foreach (keys %sites_db);
-	$remote_db{timestamp} = time();
-    } elsif ($not_modified) {
-	# nothing to do
-    } else {
-	die("No script database sources defined in /set scriptassist_script_sources\n") unless @mirrors;
-	die("Fetching script database failed: $error") if $error;
-	die("Unknown error while fetching script database\n");
-    }
-    return $remote_db{db};
-}
-
-sub get_remote_version {
-    my ($script, $database) = @_;
-    my $plname = (get_names($script, $database))[1];
-    return $database->{$plname}{version};
-}
-
-sub get_local_version {
-    my ($script) = @_;
-    my $pname = (get_names($script))[2];
-    return unless exists $Irssi::Script::{$pname};
-    my $vref = $Irssi::Script::{$pname}{VERSION};
-    return $vref ? $$vref : undef;
-}
-
-sub compare_versions {
-    my ($ver1, $ver2) = @_;
-    for ($ver1, $ver2) {
-	$_ = "0:$_" unless /:/;
-    }
-    my @ver1 = split /[.:]/, $ver1;
-    my @ver2 = split /[.:]/, $ver2;
-    my $cmp = 0;
-    ### Special thanks to Clemens Heidinger
-    no warnings 'uninitialized';
-    $cmp ||= $ver1[$_] <=> $ver2[$_] || $ver1[$_] cmp $ver2[$_] for 0..scalar(@ver2);
-    return 'newer' if $cmp == 1;
-    return 'older' if $cmp == -1;
-    return 'equal';
-}
-
-sub loaded_scripts {
-    my @modules;
-    foreach (sort grep(s/::$//, keys %Irssi::Script::)) {
-	push @modules, $_;
-    }
-    return \@modules;
-}
-
-sub check_scripts {
-    my ($data) = @_;
-    my %versions;
-    foreach (@{loaded_scripts()}) {
-	my ($sname) = get_names($_, $data);
-	my $remote = get_remote_version($sname, $data);
-	my $local = get_local_version($sname);
-	my $state;
-	if ($local && $remote) {
-	    $state = compare_versions($local, $remote);
-	} elsif ($local) {
-	    $state = 'noversion';
-	    $remote = '/';
-	} else {
-	    $state = 'noheader';
-	    $local = '/';
-	    $remote = '/';
-	}
-	if ($state) {
-	    $versions{$sname}{state} = $state;
-	    $versions{$sname}{remote} = $remote;
-	    $versions{$sname}{local} = $local;
-	}
-    }
-    return \%versions;
-}
-
-sub download_script {
-    my ($script, $xml) = @_;
-    my ($sname, $plname) = get_names($script, $xml);
-    my %result;
-    my $site = $xml->{$plname}{source};
-    $result{installed} = 0;
-    $result{signed} = 0;
-    my $dir = Irssi::get_irssi_dir();
-    my $ua = LWP::UserAgent->new(env_proxy => 1,keep_alive => 1,timeout => 30);
-    $ua->agent('ScriptAssist/'.2003020803);
-    my $request = HTTP::Request->new('GET', $site.'/scripts/'.$script.'.pl');
-    my $response = $ua->request($request);
-    if ($response->is_success()) {
-	my $file = $response->content();
-	mkdir $dir.'/scripts/' unless (-e $dir.'/scripts/');
-	open(my $F, '>', $dir.'/scripts/'.$plname.'.new');
-	print $F $file;
-	close($F);
-	if ($have_gpg && Irssi::settings_get_bool('scriptassist_use_gpg')) {
-	    my $ua2 = LWP::UserAgent->new(env_proxy => 1,keep_alive => 1,timeout => 30);
-	    $ua->agent('ScriptAssist/'.2003020803);
-	    my $request2 = HTTP::Request->new('GET', $site.'/signatures/'.$plname.'.asc');
-	    my $response2 = $ua->request($request2);
-	    if ($response2->is_success()) {
-		my $sig_dir = $dir.'/scripts/signatures/';
-		mkdir $sig_dir unless (-e $sig_dir);
-		open(my $S, '>', $sig_dir.$plname.'.asc');
-		my $file2 = $response2->content();
-		print $S $file2;
-		close($S);
-		my $sig;
-		foreach (1..2) {
-		    # FIXME gpg needs two rounds to load the key
-		    my $gpg = new GnuPG();
-		    eval {
-			$sig = $gpg->verify( file => $dir.'/scripts/'.$plname.'.new', signature => $sig_dir.$plname.'.asc' );
-		    };
-		}
-		if (defined $sig->{user}) {
-		    $result{installed} = 1;
-		    $result{signed} = 1;
-		    $result{sig}{$_} = $sig->{$_} foreach (keys %{$sig});
-		} else {
-		    # Signature broken?
-		    $result{installed} = 0;
-		    $result{signed} = -1;
-		}
-	    } else {
-		$result{signed} = 0;
-		$result{installed} = -1;
-		$result{installed} = 1 if Irssi::settings_get_bool('scriptassist_install_unsigned_scripts');
-	    }
-	} else {
-	    $result{signed} = 0;
-	    $result{installed} = -1;
-	    $result{installed} = 1 if Irssi::settings_get_bool('scriptassist_install_unsigned_scripts');
-	}
-    }
-    if ($result{installed}) {
-	my $old_dir = "$dir/scripts/old/";
-	mkdir $old_dir unless (-e $old_dir);
-	rename "$dir/scripts/$plname", "$old_dir/$plname.old" if -e "$dir/scripts/$plname";
-	rename "$dir/scripts/$plname.new", "$dir/scripts/$plname";
-    }
-    return \%result;
-}
-
-sub print_check {
-    my (%data) = @_;
-    my $text;
-    my @table;
-    foreach (sort keys %data) {
-	my $state = $data{$_}{state};
-	my $remote = $data{$_}{remote};
-	my $local = $data{$_}{local};
-	if (Irssi::settings_get_bool('scriptassist_check_verbose')) {
-	    push @table, ['%go%n', '%9'.$_.'%9', 'Up to date. ('.$local.')'] if $state eq 'equal';
-	}
-	push @table, ['%mo%n', '%9'.$_.'%9', "No version information available on network."] if $state eq "noversion";
-	push @table, ['%mo%n', '%9'.$_.'%9', 'No header in script.'] if $state eq "noheader";
-	push @table, ['%bo%n', '%9'.$_.'%9', "Your version is newer (".$local."->".$remote.")"] if $state eq "newer";
-	push @table, ['%ro%n', '%9'.$_.'%9', "A new version is available (".$local."->".$remote.")"] if $state eq "older";;
-    }
-    $text = array2table(@table);
-    print CLIENTCRAP draw_box('ScriptAssist', $text, 'check', 1) ;
-}
-
-sub toggle_autorun {
-    my ($script) = @_;
-    my ($sname, $plname) = get_names($script);
-    my $dir = Irssi::get_irssi_dir()."/scripts/";
-    mkdir $dir."autorun/" unless (-e $dir."autorun/");
-    return unless (-e $dir.$plname);
-    if (-e $dir."/autorun/".$plname) {
-	if (readlink($dir."/autorun/".$plname) eq "../".$plname) {
-	    if (unlink($dir."/autorun/".$plname)) {
-		print CLIENTCRAP "%R>>%n Autorun of ".$sname." disabled";
-	    } else {
-		print CLIENTCRAP "%R>>%n Unable to delete link";
-	    }
-	} else {
-	    print CLIENTCRAP "%R>>%n ".$dir."/autorun/".$plname." is not a correct link";
-	}
-    } else {
-	if (symlink("../".$plname, $dir."/autorun/".$plname)) {
-    	    print CLIENTCRAP "%R>>%n Autorun of ".$sname." enabled";
-	} else {
-	    print CLIENTCRAP "%R>>%n Unable to create autorun link";
-	}
-    }
-}
-
-sub sig_script_error {
-    my ($script, $msg) = @_;
-    return unless Irssi::settings_get_bool('scriptassist_catch_script_errors');
-    if ($msg =~ /Can't locate (.*?)\.pm in \@INC \(\@INC contains:(.*?) at/) {
-        my $module = $1;
-        $module =~ s/\//::/g;
-	missing_module($module);
-    }
-}
-
-sub missing_module {
-    my ($module) = @_;
-    my $text;
-    $text .= "The perl module %9".$module."%9 is missing on your system.\n";
-    $text .= "Please ask your administrator about it.\n";
-    $text .= "You can also check CPAN via '/scriptassist cpan ".$module."'.\n";
-    print CLIENTCRAP &draw_box('ScriptAssist', $text, $module, 1);
-}
-
-sub cmd_scripassist {
-    my ($arg, $server, $witem) = @_;
-    my @args = split(/ /, $arg);
-    if ($args[0] eq 'help' || $args[0] eq '-h') {
-	show_help();
-    } elsif ($args[0] eq 'check') {
-	bg_do("check");
-    } elsif ($args[0] eq 'update') {
-	shift @args;
-	bg_do("update ".join(' ', @args));
-    } elsif ($args[0] eq 'search' && defined $args[1]) {
-	shift @args;
-	bg_do("search ".join(" ", @args));
-    } elsif ($args[0] eq 'install' && defined $args[1]) {
-	shift @args;
-	bg_do("install ".join(' ', @args));
-    } elsif ($args[0] eq 'contact' && defined $args[1]) {
-	contact_author($args[1]);
-    } elsif ($args[0] eq 'ratings' && defined $args[1]) {
-	shift @args;
-	bg_do("ratings ".join(' ', @args));
-    } elsif ($args[0] eq 'rate' && defined $args[1] && defined $args[2]) {
-	shift @args;
-	bg_do("rate ".join(' ', @args)) if ($args[2] >= 0 && $args[2] < 6);
-    } elsif ($args[0] eq 'info' && defined $args[1]) {
-	shift @args;
-	bg_do("info ".join(' ', @args));
-    } elsif ($args[0] eq 'echo') {
-	bg_do("echo");
-    } elsif ($args[0] eq 'top') {
-	my $number = defined $args[1] ? $args[1] : 10;
-	bg_do("top ".$number);
-    } elsif ($args[0] eq 'cpan' && defined $args[1]) {
-	call_openurl('http://search.cpan.org/search?mode=module&query='.$args[1]);
-    } elsif ($args[0] eq 'autorun' && defined $args[1]) {
-	toggle_autorun($args[1]);
-    } elsif ($args[0] eq 'new') {
-	my $number = defined $args[1] ? $args[1] : 5;
-	bg_do("new ".$number);
-    }
-}
-
-sub cmd_help {
-    my ($arg, $server, $witem) = @_;
-    $arg =~ s/\s+$//;
-    if ($arg =~ /^scriptassist/i) {
-	show_help();
-    }
-}
-
-sub sig_command_script_load {
-    my ($script, $server, $witem) = @_;
-    my ($sname, $plname, $pname, $xname) = get_names($script);
-    if ( exists $Irssi::Script::{$pname} ) {
-	if (my $code = "Irssi::Script::${pname}"->can('pre_unload')) {
-	    print CLIENTCRAP "%R>>%n Triggering pre_unload function of $script...";
-	    $code->();
-	}
-    }
-}
-
-sub sig_default_command {
-    my ($cmd, $server) = @_;
-    return unless Irssi::settings_get_bool("scriptassist_check_unknown_commands");
-    bg_do('unknown '.$cmd);
-}
-
-sub sig_complete {
-    my ($list, $window, $word, $linestart, $want_space) = @_;
-    return unless $linestart =~ /^.script(assist)? (install|rate|ratings|update|check|contact|info|autorun)/i;
-    my @newlist;
-    my $str = $word;
-    foreach (@complist) {
-	if ($_ =~ /^(\Q$str\E.*)?$/) {
-	    push @newlist, $_;
-	}
-    }
-    foreach (@{loaded_scripts()}) {
-	push @newlist, $_ if /^(\Q$str\E.*)?$/;
-    }
-    push @$list, $_ foreach @newlist;
-    Irssi::signal_stop();
-}
-
-
-Irssi::settings_add_str($IRSSI{name}, 'scriptassist_script_sources', 'https://scripts.irssi.org/scripts.dmp');
-Irssi::settings_add_bool($IRSSI{name}, 'scriptassist_cache_sources', 1);
-Irssi::settings_add_bool($IRSSI{name}, 'scriptassist_update_verbose', 1);
-Irssi::settings_add_bool($IRSSI{name}, 'scriptassist_check_verbose', 1);
-Irssi::settings_add_bool($IRSSI{name}, 'scriptassist_catch_script_errors', 1);
-
-Irssi::settings_add_bool($IRSSI{name}, 'scriptassist_install_unsigned_scripts', 1);
-Irssi::settings_add_bool($IRSSI{name}, 'scriptassist_use_gpg', 1);
-Irssi::settings_add_bool($IRSSI{name}, 'scriptassist_integrate', 1);
-Irssi::settings_add_bool($IRSSI{name}, 'scriptassist_check_unknown_commands', 1);
-
-Irssi::signal_add_first("default command", 'sig_default_command');
-Irssi::signal_add_first('complete word', 'sig_complete');
-Irssi::signal_add_first('command script load', 'sig_command_script_load');
-Irssi::signal_add_first('command script unload', 'sig_command_script_load');
-
-Irssi::signal_register({ 'script error' => [ 'Irssi::Script', 'string' ] });
-Irssi::signal_add_last('script error', 'sig_script_error');
-
-Irssi::command_bind('scriptassist', 'cmd_scripassist');
-Irssi::command_bind('help', 'cmd_help');
-
-Irssi::theme_register(['box_header', '%R,--[%n$*%R]%n',
-'box_inside', '%R|%n $*',
-'box_footer', '%R`--<%n$*%R>->%n',
-]);
-
-foreach my $cmd ( ( 'check',
-		    'install',
-		    'update',
-		    'contact',
-		    'search',
-#		    '-h',
-		    'help',
-#		    'ratings',
-#		    'rate',
-		    'info',
-#		    'echo',
-#		    'top',
-		    'cpan',
-		    'autorun',
-		    'new' ) ) {
-    Irssi::command_bind('scriptassist '.$cmd => sub {
-			cmd_scripassist("$cmd ".$_[0], $_[1], $_[2]); });
-    if (Irssi::settings_get_bool('scriptassist_integrate')) {
-	Irssi::command_bind('script '.$cmd => sub {
-    			    cmd_scripassist("$cmd ".$_[0], $_[1], $_[2]); });
-    }
-}
-
-print CLIENTCRAP '%B>>%n '.$IRSSI{name}.' '.$VERSION.' loaded: /scriptassist help for help';
diff --git a/.irssi/scripts/splitlong.pl b/.irssi/scripts/splitlong.pl
deleted file mode 100644
index 3c8a355..0000000
--- a/.irssi/scripts/splitlong.pl
+++ /dev/null
@@ -1,60 +0,0 @@
-# /set splitlong_max_length
-#   specifies the maximum length of a msg, automatically chosen when set to "0"
-#   default: 0
-#
-# /set splitlong_line_start
-# /set splitlong_line_end
-#   self-explanatory
-#   defaults: "... ", " ..."
-###
-use strict;
-use vars qw($VERSION %IRSSI);
-
-use Irssi 20011001;
-
-$VERSION = "0.20";
-%IRSSI = (
-	authors     => "Bjoern \'fuchs\' Krombholz",
-	contact     => "bjkro\@gmx.de",
-	name        => "splitlong",
-	license     => "Public Domain",
-	description => "Split overlong PRIVMSGs to msgs with length allowed by ircd",
-	changed     => "Wed Jun 25 00:17:00 CET 2003",
-	changes     => "Actually the real 0.19 (now 0.20), but upload didn't work some month ago, target problem fixed..."
-);
-
-sub sig_command_msg {
-	my ($cmd, $server, $winitem) = @_;
-	my ( $param, $target,$data) = $cmd =~ /^(-\S*\s)?(\S*)\s(.*)/;
-    
-	my $maxlength = Irssi::settings_get_int('splitlong_max_length');
-	my $lstart    = Irssi::settings_get_str('splitlong_line_start');
-	my $lend      = Irssi::settings_get_str('splitlong_line_end');
-
-	if ($maxlength == 0) {
-		# 497 = 510 - length(":" . "!" . " PRIVMSG " . " :");
-		$maxlength = 497 - length($server->{nick} . $server->{userhost} . $target);
-	}
-	my $maxlength2 = $maxlength - length($lend);
-
-	if (length($data) > ($maxlength)) {
-		my @spltarr;
-
-		while (length($data) > ($maxlength2)) {
-			my $pos = rindex($data, " ", $maxlength2);
-			push @spltarr, substr($data, 0, ($pos < ($maxlength/10 + 4)) ? $maxlength2  : $pos)  . $lend;
-			$data = $lstart . substr($data, ($pos < ($maxlength/10 + 4)) ? $maxlength2 : $pos+1);
-		}
-
-		push @spltarr, $data;
-		foreach (@spltarr) {
-			Irssi::signal_emit("command msg", "$target $_", $server, $winitem);
-		}
-		Irssi::signal_stop();
-	}
-}
-
-Irssi::settings_add_int('misc', 'splitlong_max_length', 0);
-Irssi::settings_add_str('misc', 'splitlong_line_start', "... ");
-Irssi::settings_add_str('misc', 'splitlong_line_end', " ...");
-Irssi::command_bind('msg', 'sig_command_msg');
diff --git a/.irssi/scripts/tmux_away.pl b/.irssi/scripts/tmux_away.pl
deleted file mode 100644
index 36fb160..0000000
--- a/.irssi/scripts/tmux_away.pl
+++ /dev/null
@@ -1,202 +0,0 @@
-use Irssi;
-use strict;
-use FileHandle;
-
-use vars qw($VERSION %IRSSI);
-
-$VERSION = "2.1"; # e8934ed1ce04461
-%IRSSI = (
-    authors     => 'cdidier',
-    name        => 'tmux_away',
-    description => 'set (un)away if tmux session is attached/detached',
-    license     => 'GPL v2',
-    url         => 'http://cybione.org',
-);
-
-# tmux_away irssi module
-#
-# Written by Colin Didier <cdidier@cybione.org> and heavily based on
-# screen_away irssi module version 0.9.7.1 written by Andreas 'ads' Scherbaum
-# <ads@ufp.de>.
-#
-# Updated by John C. Vernaleo <john@netpurgatory.com> to handle tmux with
-# named sessions and other code cleanup and forked as version 2.0.
-#
-# usage:
-#
-# put this script into your autorun directory and/or load it with
-#  /SCRIPT LOAD <name>
-#
-# there are 5 settings available:
-#
-# /set tmux_away_active ON/OFF/TOGGLE
-# /set tmux_away_repeat <integer>
-# /set tmux_away_grace <integer>
-# /set tmux_away_message <string>
-# /set tmux_away_window <string>
-# /set tmux_away_nick <string>
-#
-# active means that you will be only set away/unaway, if this
-#   flag is set, default is ON
-# repeat is the number of seconds, after the script will check the
-#   tmux session status again, default is 5 seconds
-# grace is the number of seconds, to wait additionally, before
-#   setting you away, default is disabled (0)
-# message is the away message sent to the server, default: not here ...
-# window is a window number or name, if set, the script will switch
-#   to this window, if it sets you away, default is '1'
-# nick is the new nick, if the script goes away
-#   will only be used it not empty
-
-
-# variables
-my $timer_name = undef;
-my $away_status = 0;
-my %old_nicks = ();
-my %away = ();
-
-# Register formats
-Irssi::theme_register(
-[
- 'tmux_away_crap',
- '{line_start}{hilight ' . $IRSSI{'name'} . ':} $0'
-]);
-
-# try to find out if we are running in a tmux session
-# (see if $ENV{TMUX} is set)
-if (!defined($ENV{TMUX})) {
-  # just return, we will never be called again
-  Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'tmux_away_crap',
-    "no tmux session!");
-  return;
-}
-
-my @args_env = split(',', $ENV{TMUX});
-my $tmux_socket = $args_env[0];
-
-# register config variables
-Irssi::settings_add_bool('misc', $IRSSI{'name'} . '_active', 1);
-Irssi::settings_add_int('misc', $IRSSI{'name'} . '_repeat', 5);
-Irssi::settings_add_int('misc', $IRSSI{'name'} . '_grace', 0);
-Irssi::settings_add_str('misc', $IRSSI{'name'} . '_message', "not here...");
-Irssi::settings_add_str('misc', $IRSSI{'name'} . '_window', "1");
-Irssi::settings_add_str('misc', $IRSSI{'name'} . '_nick', "");
-
-
-# check, set or reset the away status
-sub tmux_away {
-    my ($immediate) = @_;
-  my ($status, @res);
-
-  # only run, if activated
-  if (Irssi::settings_get_bool($IRSSI{'name'} . '_active') != 1) {
-    $away_status = 0;
-  } else {
-    if ($away_status == 0) {
-      # display init message at first time
-	my $grace = Irssi::settings_get_int($IRSSI{'name'} . '_grace');
-	$grace = ", $grace seconds grace" if $grace;
-      Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'tmux_away_crap',
-        "activating $IRSSI{'name'} (interval: " . Irssi::settings_get_int($IRSSI{'name'} . '_repeat') . " seconds$grace)");
-      $away_status = 2;
-    }
-
-    # get actual tmux session status
-    chomp(@res = `tmux -S '$tmux_socket' lsc 2>&1`);
-    chomp(my $tmux_session = `tmux -S '$tmux_socket' display -p '#S' 2>/dev/null`);
-    if ($res[0] =~ /^server not found/ || $? >> 8) {
-      die "error getting tmux session status.";
-    }
-    $status = 1; # away, assumes the session is detached
-    foreach (@res) {
-      my @args_st = split(' ');
-      if ($args_st[1] eq $tmux_session) {
-        $status = 2; # unaway
-      }
-    }
-
-    # unaway -> away
-    if ($status == 1 and $away_status != 1) {
-	if (my $grace = Irssi::settings_get_int($IRSSI{'name'} . '_grace')) {
-	    if (!$immediate) {
-		Irssi::timeout_add_once($grace * 1000, 'tmux_away', '1');
-		Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'tmux_away_crap',
-				   "(in grace for away: $grace seconds)");
-		return 1;
-	    }
-	}
-      if (length(Irssi::settings_get_str($IRSSI{'name'} . '_window')) > 0) {
-        # if length of window is greater then 0, make this window active
-        Irssi::command('window goto ' . Irssi::settings_get_str($IRSSI{'name'} . '_window'));
-      }
-      Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'tmux_away_crap', "Set away");
-      my $message = Irssi::settings_get_str($IRSSI{'name'} . '_message');
-      if (length($message) == 0) {
-        # we have to set a message or we wouldnt go away
-        $message = "not here ...";
-      }
-      foreach (Irssi::servers()) {
-        if (!$_->{usermode_away}) {
-	  # user isn't yet away
-	  $away{$_->{'tag'}} = 0;
-	  $_->command("^AWAY " . ($_->{chat_type} ne 'SILC' ? "-one " : "") . "$message");
-	  if ($_->{chat_type} ne 'XMPP' and length(Irssi::settings_get_str($IRSSI{'name'} . '_nick')) > 0) {
-            # only change if actual nick isn't already the away nick
-            if (Irssi::settings_get_str($IRSSI{'name'} . '_nick') ne $_->{nick}) {
-              # keep old nick
-              $old_nicks{$_->{'tag'}} = $_->{nick};
-              # set new nick
-              $_->command("NICK " . Irssi::settings_get_str($IRSSI{'name'} . '_nick'));
-            }
-          }
-        } else {
-          # user is already away, remember this
-          $away{$_->{'tag'}} = 1;
-        }
-      }
-      $away_status = $status;
-
-    # away -> unaway
-    } elsif ($status == 2 and $away_status != 2) {
-	if (my $grace = Irssi::settings_get_int($IRSSI{'name'} . '_grace')) {
-	    if (!$immediate) {
-		Irssi::timeout_add_once($grace * 1000, 'tmux_away', '1');
-		Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'tmux_away_crap',
-				   "(in grace for unaway: $grace seconds)");
-		return 1;
-	    }
-	}
-      # unset away
-      Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'tmux_away_crap', "Reset away");
-      foreach (Irssi::servers()) {
-        if ($away{$_->{'tag'}} == 1) {
-          # user was already away, don't reset away
-          $away{$_->{'tag'}} = 0;
-          next;
-        }
-        $_->command("^AWAY" . (($_->{chat_type} ne 'SILC') ? " -one" : "")) if ($_->{usermode_away});
-        if ($_->{chat_type} ne 'XMPP' and defined($old_nicks{$_->{'tag'}}) and length($old_nicks{$_->{'tag'}}) > 0) {
-          # set old nick
-          $_->command("NICK " . $old_nicks{$_->{'tag'}});
-          $old_nicks{$_->{'tag'}} = "";
-        }
-      }
-      $away_status = $status;
-    } elsif ($immediate) {
-	Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'tmux_away_crap',
-				   "in grace aborted");
-    }
-  }
-  # but everytimes install a new timer
-  register_tmux_away_timer();
-  return 0;
-}
-
-# remove old timer and install a new one
-sub register_tmux_away_timer {
-  # add new timer with new timeout (maybe the timeout has been changed)
-  Irssi::timeout_add_once(Irssi::settings_get_int($IRSSI{'name'} . '_repeat') * 1000, 'tmux_away', '');
-}
-
-# init process
-tmux_away();
diff --git a/.irssi/scripts/trackbar.pl b/.irssi/scripts/trackbar.pl
deleted file mode 100644
index 7ac9965..0000000
--- a/.irssi/scripts/trackbar.pl
+++ /dev/null
@@ -1,579 +0,0 @@
-## trackbar.pl
-#
-# This little script will do just one thing: it will draw a line each time you
-# switch away from a window. This way, you always know just upto where you've
-# been reading that window :) It also removes the previous drawn line, so you
-# don't see double lines.
-#
-#  redraw trackbar only works on irssi 0.8.17 or higher.
-#
-##
-
-## Usage:
-#
-#     The script works right out of the box, but if you want you can change
-#     the working by /set'ing the following variables:
-#
-#    Setting:     trackbar_style
-#    Description: This setting will be the color of your trackbar line.
-#                 By default the value will be '%K', only Irssi color
-#                 formats are allowed. If you don't know the color formats
-#                 by heart, you can take a look at the formats documentation.
-#                 You will find the proper docs on http://www.irssi.org/docs.
-#
-#    Setting:     trackbar_string
-#    Description: This is the string that your line will display. This can
-#                 be multiple characters or just one. For example: '~-~-'
-#                 The default setting is '-'.
-#                 Here are some unicode characters you can try:
-#                     "───" => U+2500 => a line
-#                     "═══" => U+2550 => a double line
-#                     "━━━" => U+2501 => a wide line
-#                     "▭  " => U+25ad => a white rectangle
-#
-#    Setting:     trackbar_use_status_window
-#    Description: If this setting is set to OFF, Irssi won't print a trackbar
-#                 in the statuswindow
-#
-#    Setting:     trackbar_ignore_windows
-#    Description: A list of windows where no trackbar should be printed
-#
-#    Setting:     trackbar_print_timestamp
-#    Description: If this setting is set to ON, Irssi will print the formatted
-#                 timestamp in front of the trackbar.
-#
-#    Setting:     trackbar_require_seen
-#    Description: Only clear the trackbar if it has been scrolled to.
-#
-#     /mark is a command that will redraw the line at the bottom.
-#
-#    Command:     /trackbar, /trackbar goto
-#    Description: Jump to where the trackbar is, to pick up reading
-#
-#    Command:     /trackbar keep
-#    Description: Keep this window's trackbar where it is the next time
-#                 you switch windows (then this flag is cleared again)
-#
-#    Command:     /mark, /trackbar mark
-#    Description: Remove the old trackbar and mark the bottom of this
-#                 window with a new trackbar
-#
-#    Command:     /trackbar markvisible
-#    Description: Like mark for all visible windows
-#
-#    Command:     /trackbar markall
-#    Description: Like mark for all windows
-#
-#    Command:     /trackbar remove
-#    Description: Remove this window's trackbar
-#
-#    Command:     /trackbar removeall
-#    Description: Remove all windows' trackbars
-#
-#    Command:     /trackbar redraw
-#    Description: Force redraw of trackbars
-#
-##
-
-##
-#
-# For bugreports and other improvements contact one of the authors.
-#
-#    This program is free software; you can redistribute it and/or modify
-#    it under the terms of the GNU General Public License as published by
-#    the Free Software Foundation; either version 2 of the License, or
-#    (at your option) any later version.
-#
-#    This program is distributed in the hope that it will be useful,
-#    but WITHOUT ANY WARRANTY; without even the implied warranty of
-#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-#    GNU General Public License for more details.
-#
-#    You should have received a copy of the GNU General Public License
-#    along with this script; if not, write to the Free Software
-#    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
-#
-##
-
-use strict;
-use warnings;
-use vars qw($VERSION %IRSSI);
-
-$VERSION = "2.5"; # 56e983314dc1b85
-
-%IRSSI = (
-    authors     => "Peter 'kinlo' Leurs, Uwe Dudenhoeffer, " .
-                   "Michiel Holtkamp, Nico R. Wohlgemuth, " .
-                   "Geert Hauwaerts",
-    contact     => 'peter@pfoe.be',
-    patchers    => 'Johan Kiviniemi (UTF-8), Uwe Dudenhoeffer (on-upgrade-remove-line)',
-    name        => 'trackbar',
-    description => 'Shows a bar where you have last read a window.',
-    license     => 'GNU General Public License',
-    url         => 'http://www.pfoe.be/~peter/trackbar/',
-    commands    => 'trackbar',
-);
-
-## Comments and remarks.
-#
-# This script uses settings.
-# Use /SET  to change the value or /TOGGLE to switch it on or off.
-#
-#
-#    Tip:     The command 'trackbar' is very usefull if you bind that to a key,
-#             so you can easily jump to the trackbar. Please see 'help bind' for
-#             more information about keybindings in Irssi.
-#
-#    Command: /BIND meta2-P key F1
-#             /BIND F1 command trackbar
-#
-##
-
-## Bugfixes and new items in this rewrite.
-#
-# * Remove all the trackbars before upgrading.
-# * New setting trackbar_use_status_window to control the statuswindow trackbar.
-# * New setting trackbar_print_timestamp to print a timestamp or not.
-# * New command 'trackbar' to scroll up to the trackbar.
-# * When resizing your terminal, Irssi will update all the trackbars to the new size.
-# * When changing trackbar settings, change all the trackbars to the new settings.
-# * New command 'trackbar mark' to draw a new trackbar (The old '/mark').
-# * New command 'trackbar markall' to draw a new trackbar in each window.
-# * New command 'trackbar remove' to remove the trackbar from the current window.
-# * New command 'trackbar removeall' to remove all the trackbars.
-# * Don't draw a trackbar in empty windows.
-# * Added a version check to prevent Irssi redraw errors.
-# * Fixed a bookmark NULL versus 0 bug.
-# * Fixed a remove-line bug in Uwe Dudenhoeffer his patch.
-# * New command 'help trackbar' to display the trackbar commands.
-# * Fixed an Irssi startup bug, now processing each auto-created window.
-#
-##
-
-## Known bugs and the todolist.
-#
-#    Todo: * Instead of drawing a line, invert the line.
-#
-##
-
-## Authors:
-#
-#   - Main maintainer & author: Peter 'kinlo' Leurs
-#   - Many thanks to Timo 'cras' Sirainen for placing me on my way
-#   - on-upgrade-remove-line patch by Uwe Dudenhoeffer
-#   - trackbar resizing by Michiel Holtkamp (02 Jul 2012)
-#   - scroll to trackbar, window excludes, and timestamp options by Nico R.
-#     Wohlgemuth (22 Sep 2012)
-#
-##
-
-## Version history:
-#
-#  2.5: - merge back on scripts.irssi.org
-#       - fix /trackbar redraw broken in 2.4
-#       - fix legacy encodings
-#       - add workaround for irssi issue #271
-#  2.4: - add support for horizontal splits
-#  2.3: - add some features for seen tracking using other scripts
-#  2.0: - big rewrite based on 1.4
-#         * removed /tb, you can have it with /alias tb trackbar if you want
-#         * subcommand and settings changes:
-#              /trackbar vmark  => /trackbar markvisible
-#              /trackbar scroll => /trackbar goto (or just /trackbar)
-#              /trackbar help   => /help trackbar
-#              /set trackbar_hide_windows => /set trackbar_ignore_windows
-#              /set trackbar_timestamp    => /set trackbar_print_timestamp
-#         * magic line strings were removed, just paste the unicode you want!
-#         * trackbar_timestamp_styled is not currently supported
-#  1.9: - add version guard
-#  1.8: - sub draw_bar
-#  1.7: - Added /tb scroll, trackbar_hide_windows, trackbar_timestamp_timestamp
-#         and trackbar_timestamp_styled
-#  1.6: - Work around Irssi resize bug, please do /upgrade! (see below)
-#  1.5: - Resize trackbars in all windows when terminal is resized
-#  1.4: - Changed our's by my's so the irssi script header is valid
-#       - Removed utf-8 support.  In theory, the script should work w/o any
-#         problems for utf-8, just set trackbar_string to a valid utf-8 character
-#         and everything *should* work.  However, this script is being plagued by
-#         irssi internal bugs.  The function Irssi::settings_get_str does NOT handle
-#         unicode strings properly, hence you will notice problems when setting the bar
-#         to a unicode char.  For changing your bar to utf-8 symbols, read the line sub.
-#  1.3: - Upgrade now removes the trackbars.
-#       - Some code cleanups, other defaults
-#       - /mark sets the line to the bottom
-#  1.2: - Support for utf-8
-#       - How the bar looks can now be configured with trackbar_string
-#         and trackbar_style
-#  1.1: - Fixed bug when closing window
-#  1.0: - Initial release
-#
-##
-
-use Irssi;
-use Irssi::TextUI;
-use Encode;
-
-use POSIX qw(strftime);
-
-sub cmd_help {
-    my ($args) = @_;
-    if ($args =~ /^trackbar *$/i) {
-        print CLIENTCRAP <<HELP
-%9Syntax:%9
-
-TRACKBAR
-TRACKBAR GOTO
-TRACKBAR KEEP
-TRACKBAR MARK
-TRACKBAR MARKVISIBLE
-TRACKBAR MARKALL
-TRACKBAR REMOVE
-TRACKBAR REMOVEALL
-TRACKBAR REDRAW
-
-%9Parameters:%9
-
-    GOTO:        Jump to where the trackbar is, to pick up reading
-    KEEP:        Keep this window's trackbar where it is the next time
-                 you switch windows (then this flag is cleared again)
-    MARK:        Remove the old trackbar and mark the bottom of this
-                 window with a new trackbar
-    MARKVISIBLE: Like mark for all visible windows
-    MARKALL:     Like mark for all windows
-    REMOVE:      Remove this window's trackbar
-    REMOVEALL:   Remove all windows' trackbars
-    REDRAW:      Force redraw of trackbars
-
-%9Description:%9
-
-    Manage a trackbar. Without arguments, it will scroll up to the trackbar.
-
-%9Examples:%9
-
-    /TRACKBAR MARK
-    /TRACKBAR REMOVE
-HELP
-    }
-}
-
-Irssi::theme_register([
-    'trackbar_loaded', '%R>>%n %_Scriptinfo:%_ Loaded $0 version $1 by $2.',
-    'trackbar_wrong_version', '%R>>%n %_Trackbar:%_ Please upgrade your client to 0.8.17 or above if you would like to use this feature of trackbar.',
-    'trackbar_all_removed', '%R>>%n %_Trackbar:%_ All the trackbars have been removed.',
-    'trackbar_not_found', '%R>>%n %_Trackbar:%_ No trackbar found in this window.',
-]);
-
-my $old_irssi = Irssi::version < 20140701;
-sub check_version {
-    if ($old_irssi) {
-        Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'trackbar_wrong_version');
-        return;
-    } else {
-        return 1;
-    }
-}
-
-sub is_utf8 {
-    lc Irssi::settings_get_str('term_charset') eq 'utf-8'
-}
-
-my (%config, %keep_trackbar, %unseen_trackbar);
-
-sub remove_one_trackbar {
-    my $win = shift;
-    my $view = shift || $win->view;
-    my $line = $view->get_bookmark('trackbar');
-    if (defined $line) {
-        my $bottom = $view->{bottom};
-        $view->remove_line($line);
-        $win->command('^scrollback end') if $bottom && !$win->view->{bottom};
-        $view->redraw;
-    }
-}
-
-sub add_one_trackbar {
-    my $win = shift;
-    my $view = shift || $win->view;
-    $win->print(line($win->{width}), MSGLEVEL_NEVER);
-    $view->set_bookmark_bottom('trackbar');
-    $unseen_trackbar{ $win->{_irssi} } = 1;
-    Irssi::signal_emit("window trackbar added", $win);
-    $view->redraw;
-}
-
-sub update_one_trackbar {
-    my $win = shift;
-    my $view = shift || $win->view;
-    my $force = shift;
-    my $ignored = win_ignored($win, $view);
-    remove_one_trackbar($win, $view)
-	if $force || !defined $force || !$ignored;
-    add_one_trackbar($win, $view)
-	if $force || !$ignored;
-}
-
-sub win_ignored {
-    my $win = shift;
-    my $view = shift || $win->view;
-    return 1 unless $view->{buffer}{lines_count};
-    return 1 if $win->{name} eq '(status)' && !$config{use_status_window};
-    no warnings 'uninitialized';
-    return 1 if grep { $win->{name} eq $_ || $win->{refnum} eq $_
-			   || $win->get_active_name eq $_ } @{ $config{ignore_windows} };
-    return 0;
-}
-
-sub sig_window_changed {
-    my ($newwindow, $oldwindow) = @_;
-    return unless $oldwindow;
-    redraw_one_trackbar($newwindow) unless $old_irssi;
-    trackbar_update_seen($newwindow);
-    return if delete $keep_trackbar{ $oldwindow->{_irssi} };
-    trackbar_update_seen($oldwindow);
-    return if $config{require_seen} && $unseen_trackbar{ $oldwindow->{_irssi } };
-    update_one_trackbar($oldwindow, undef, 0);
-}
-
-sub trackbar_update_seen {
-    my $win = shift;
-    return unless $win;
-    return unless $unseen_trackbar{ $win->{_irssi} };
-
-    my $view = $win->view;
-    my $line = $view->get_bookmark('trackbar');
-    unless ($line) {
-        delete $unseen_trackbar{ $win->{_irssi} };
-        Irssi::signal_emit("window trackbar seen", $win);
-        return;
-    }
-    my $startline = $view->{startline};
-    return unless $startline;
-
-    if ($startline->{info}{time} < $line->{info}{time}
-            || $startline->{_irssi} == $line->{_irssi}) {
-        delete $unseen_trackbar{ $win->{_irssi} };
-        Irssi::signal_emit("window trackbar seen", $win);
-    }
-}
-
-sub screen_length;
-{ local $@;
-  eval { require Text::CharWidth; };
-  unless ($@) {
-      *screen_length = sub { Text::CharWidth::mbswidth($_[0]) };
-  }
-  else {
-      *screen_length = sub {
-          my $temp = shift;
-          Encode::_utf8_on($temp) if is_utf8();
-          length($temp)
-      };
-  }
-}
-
-{ my %strip_table = (
-    (map { $_ => '' } (split //, '04261537' .  'kbgcrmyw' . 'KBGCRMYW' . 'U9_8I:|FnN>#[' . 'pP')),
-    (map { $_ => $_ } (split //, '{}%')),
-   );
-  sub c_length {
-      my $o = Irssi::strip_codes($_[0]);
-      $o =~ s/(%(%|Z.{6}|z.{6}|X..|x..|.))/exists $strip_table{$2} ? $strip_table{$2} :
-          $2 =~ m{x(?:0[a-f]|[1-6][0-9a-z]|7[a-x])|z[0-9a-f]{6}}i ? '' : $1/gex;
-      screen_length($o)
-  }
-}
-
-sub line {
-    my ($width, $time)  = @_;
-    my $string = $config{string};
-    $string = ' ' unless length $string;
-    $time ||= time;
-
-    Encode::_utf8_on($string) if is_utf8();
-    my $length = c_length($string);
-
-    my $format = '';
-    if ($config{print_timestamp}) {
-        $format = $config{timestamp_str};
-        $format =~ y/%/\01/;
-        $format =~ s/\01\01/%/g;
-        $format = strftime($format, localtime $time);
-        $format =~ y/\01/%/;
-    }
-
-    my $times = $width / $length;
-    $times += 1 if $times != int $times;
-    my $style = "$config{style}";
-    Encode::_utf8_on($style) if is_utf8();
-    $format .= $style;
-    $width -= c_length($format);
-    $string x= $times;
-    chop $string while length $string && c_length($string) > $width;
-    return $format . $string;
-}
-
-sub remove_all_trackbars {
-    for my $window (Irssi::windows) {
-        next unless ref $window;
-        remove_one_trackbar($window);
-    }
-}
-
-sub UNLOAD {
-    remove_all_trackbars();
-}
-
-sub redraw_one_trackbar {
-    my $win = shift;
-    my $view = $win->view;
-    my $line = $view->get_bookmark('trackbar');
-    return unless $line;
-    my $bottom = $view->{bottom};
-    $win->print_after($line, MSGLEVEL_NEVER, line($win->{width}, $line->{info}{time}),
-		      $line->{info}{time});
-    $view->set_bookmark('trackbar', $win->last_line_insert);
-    $view->remove_line($line);
-    $win->command('^scrollback end') if $bottom && !$win->view->{bottom};
-    $view->redraw;
-}
-
-sub redraw_trackbars {
-    return unless check_version();
-    for my $win (Irssi::windows) {
-        next unless ref $win;
-        redraw_one_trackbar($win);
-    }
-}
-
-sub goto_trackbar {
-    my $win = Irssi::active_win;
-    my $line = $win->view->get_bookmark('trackbar');
-
-    if ($line) {
-        $win->command("scrollback goto ". strftime("%d %H:%M:%S", localtime($line->{info}{time})));
-    } else {
-        $win->printformat(MSGLEVEL_CLIENTCRAP, 'trackbar_not_found');
-    }
-}
-
-sub cmd_mark {
-    update_one_trackbar(Irssi::active_win, undef, 1);
-}
-
-sub cmd_markall {
-    for my $window (Irssi::windows) {
-        next unless ref $window;
-        update_one_trackbar($window);
-    }
-}
-
-sub signal_stop {
-    Irssi::signal_stop;
-}
-
-sub cmd_markvisible {
-    my @wins = Irssi::windows;
-    my $awin =
-        my $bwin = Irssi::active_win;
-    my $awin_counter = 0;
-    Irssi::signal_add_priority('window changed' => 'signal_stop', -99);
-    do {
-        Irssi::active_win->command('window up');
-        $awin = Irssi::active_win;
-        update_one_trackbar($awin);
-        ++$awin_counter;
-    } until ($awin->{refnum} == $bwin->{refnum} || $awin_counter >= @wins);
-    Irssi::signal_remove('window changed' => 'signal_stop');
-}
-
-sub cmd_trackbar_remove_one {
-    remove_one_trackbar(Irssi::active_win);
-}
-
-sub cmd_remove_all_trackbars {
-    remove_all_trackbars();
-    Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'trackbar_all_removed');
-}
-
-sub cmd_keep_once {
-    $keep_trackbar{ Irssi::active_win->{_irssi} } = 1;
-}
-
-sub trackbar_runsub {
-    my ($data, $server, $item) = @_;
-    $data =~ s/\s+$//g;
-
-    if ($data) {
-        Irssi::command_runsub('trackbar', $data, $server, $item);
-    } else {
-        goto_trackbar();
-    }
-}
-
-sub update_config {
-    my $was_status_window = $config{use_status_window};
-    $config{style} = Irssi::settings_get_str('trackbar_style');
-    $config{string} = Irssi::settings_get_str('trackbar_string');
-    $config{require_seen} = Irssi::settings_get_bool('trackbar_require_seen');
-    $config{ignore_windows} = [ split /[,\s]+/, Irssi::settings_get_str('trackbar_ignore_windows') ];
-    $config{use_status_window} = Irssi::settings_get_bool('trackbar_use_status_window');
-    $config{print_timestamp} = Irssi::settings_get_bool('trackbar_print_timestamp');
-    if (defined $was_status_window && $was_status_window != $config{use_status_window}) {
-        if (my $swin = Irssi::window_find_name('(status)')) {
-            if ($config{use_status_window}) {
-                update_one_trackbar($swin);
-            }
-            else {
-                remove_one_trackbar($swin);
-            }
-        }
-    }
-    if ($config{print_timestamp}) {
-        my $ts_format = Irssi::settings_get_str('timestamp_format');
-        my $ts_theme = Irssi::current_theme->get_format('fe-common/core', 'timestamp');
-        my $render_str = Irssi::current_theme->format_expand($ts_theme);
-        (my $ts_escaped = $ts_format) =~ s/([%\$])/$1$1/g;
-        $render_str =~ s/(?|\$(.)(?!\w)|\$\{(\w+)\})/$1 eq 'Z' ? $ts_escaped : $1/ge;
-        $config{timestamp_str} = $render_str;
-    }
-    redraw_trackbars() unless $old_irssi;
-}
-
-Irssi::settings_add_str('trackbar', 'trackbar_string', is_utf8() ? "\x{2500}" : '-');
-Irssi::settings_add_str('trackbar', 'trackbar_style', '%K');
-Irssi::settings_add_str('trackbar', 'trackbar_ignore_windows', '');
-Irssi::settings_add_bool('trackbar', 'trackbar_use_status_window', 1);
-Irssi::settings_add_bool('trackbar', 'trackbar_print_timestamp', 0);
-Irssi::settings_add_bool('trackbar', 'trackbar_require_seen', 0);
-
-update_config();
-
-Irssi::signal_add_last( 'mainwindow resized' => 'redraw_trackbars')
-    unless $old_irssi;
-
-Irssi::signal_register({'window trackbar added' => [qw/Irssi::UI::Window/]});
-Irssi::signal_register({'window trackbar seen' => [qw/Irssi::UI::Window/]});
-Irssi::signal_register({'gui page scrolled' => [qw/Irssi::UI::Window/]});
-Irssi::signal_add_last('gui page scrolled' => 'trackbar_update_seen');
-
-Irssi::signal_add('setup changed' => 'update_config');
-Irssi::signal_add_priority('session save' => 'remove_all_trackbars', Irssi::SIGNAL_PRIORITY_HIGH-1);
-
-Irssi::signal_add('window changed' => 'sig_window_changed');
-
-Irssi::command_bind('trackbar goto'      => 'goto_trackbar');
-Irssi::command_bind('trackbar keep'      => 'cmd_keep_once');
-Irssi::command_bind('trackbar mark'      => 'cmd_mark');
-Irssi::command_bind('trackbar markvisible' => 'cmd_markvisible');
-Irssi::command_bind('trackbar markall'   => 'cmd_markall');
-Irssi::command_bind('trackbar remove'    => 'cmd_trackbar_remove_one');
-Irssi::command_bind('trackbar removeall' => 'cmd_remove_all_trackbars');
-Irssi::command_bind('trackbar redraw'    => 'redraw_trackbars');
-Irssi::command_bind('trackbar'           => 'trackbar_runsub');
-Irssi::command_bind('mark'               => 'cmd_mark');
-Irssi::command_bind_last('help' => 'cmd_help');
-
-Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'trackbar_loaded', $IRSSI{name}, $VERSION, $IRSSI{authors});
-
-# workaround for issue #271
-{ package Irssi::Nick }
diff --git a/.irssi/scripts/twtopic.pl b/.irssi/scripts/twtopic.pl
deleted file mode 100644
index a32e3f2..0000000
--- a/.irssi/scripts/twtopic.pl
+++ /dev/null
@@ -1,193 +0,0 @@
-# John Engelbrecht's original versions (<= 1.0.2) were released under the public
-# domain. Ryan Kavanagh's changes are distributed under the ISC license:
-#
-# Copyright (C) 2017 Ryan Kavanagh <rak@ryanak.ca>
-#
-# Permission to use, copy, modify, and/or distribute this software for any
-# purpose with or without fee is hereby granted, provided that the above
-# copyright notice and this permission notice appear in all copies.
-#
-# THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES WITH
-# REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY
-# AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY SPECIAL, DIRECT,
-# INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM
-# LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR
-# OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
-# PERFORMANCE OF THIS SOFTWARE.
-
-use strict;
-use vars qw($VERSION %IRSSI);
-use Irssi;
-use Irssi::Irc;
-use Irssi::TextUI;
-
-$VERSION = '2.0';
-%IRSSI   = (
-    authors     => 'John Engelbrecht, Ryan Kavanagh',
-    contact     => 'jengelbr@yahoo.com, rak@ryanak.ca',
-    name        => 'twtopic.pl',
-    description => 'Animated Topic bar.',
-    sbitems     => 'twtopic',
-    license     => 'Public Domain, ISC',
-    changed     => 'Wed Jan 03 16:20:17 EST 2017',
-    url         => 'http://irssi.darktalker.net' . "\n",
-);
-
-my $instrut =
-    ".--------------------------------------------------.\n"
-  . "| 1.) shell> mkdir ~/.irssi/scripts                |\n"
-  . "| 2.) shell> cp twtopic.pl ~/.irssi/scripts/       |\n"
-  . "| 3.) shell> mkdir ~/.irssi/scripts/autorun        |\n"
-  . "| 4.) shell> ln -s ~/.irssi/scripts/twtopic.pl \\   |\n"
-  . "|            ~/.irssi/scripts/autorun/twtopic.pl   |\n"
-  . "| 5.) /sbar topic remove topic                     |\n"
-  . "| 6.) /sbar topic remove topic_empty               |\n"
-  . "| 7.) /sbar topic add -after topicbarstart         |\n"
-  . "|        -priority 100 -alignment left twtopic     |\n"
-  . "| 9.) /toggle twtopic_instruct and last /save      |\n"
-  . "|--------------------------------------------------|\n"
-  . "|  Options:                               Default: |\n"
-  . "|  /set twtopic_refresh <speed>              150   |\n"
-  . "|  /set twtopic_size <size>                  20    |\n"
-  . "|  /set twtopic_padding <size>               20    |\n"
-  . "|  /set twtopic_auto_resize <ON|OFF>         OFF   |\n"
-  . "|  /set twtopic_ar_padding <size>            0     |\n"
-  . "|  /set twtopic_min_scroll <ON|OFF>          OFF   |\n"
-  . "|  /set twtopic_init_pause <length>          10    |\n"
-  . "|  /toggle twtopic_instruct |Startup instructions  |\n"
-  . "\`--------------------------------------------------'";
-
-my $timeout;
-my $start_pos = 0;
-my $size;
-my $min_scroll;
-my $padding;
-my $topic          = "";
-my @mirc_color_arr = (
-    "\0031",  "\0035",  "\0033",  "\0037",  "\0032", "\0036",
-    "\00310", "\0030",  "\00314", "\0034",  "\0039", "\0038",
-    "\00312", "\00313", "\00311", "\00315", "\017"
-);
-
-sub setup {
-    my $window = Irssi::active_win;
-    if ( Irssi::settings_get_bool('twtopic_auto_resize') ) {
-        $size =
-          $window->{'width'} - Irssi::settings_get_int('twtopic_ar_padding');
-    }
-    else {
-        $size = Irssi::settings_get_int('twtopic_size');
-    }
-    # Subtract 4 because we wrap the topic in '[ ' / ' ]'.
-    $size       = $size - 4;
-    $min_scroll = Irssi::settings_get_bool('twtopic_min_scroll');
-    $padding    = Irssi::settings_get_int('twtopic_padding');
-    update_topic();
-}
-
-sub regular_timer {
-    my $time   = Irssi::settings_get_int('twtopic_refresh');
-    Irssi::timeout_remove($timeout);
-    $timeout = Irssi::timeout_add( $time, 'reload', undef );
-}
-
-sub init_timer {
-    my $time   = Irssi::settings_get_int('twtopic_init_pause');
-    Irssi::timeout_remove($timeout);
-    $timeout = Irssi::timeout_add( $time, 'regular_timer', undef );
-}
-
-sub show {
-    my ( $item, $get_size_only ) = @_;
-    my $text = get();
-    $text = "[ " . $text . " ]";
-    $item->default_handler( $get_size_only, $text, undef, 1 );
-}
-
-sub update_topic {
-    $topic = "";
-    my $name = Irssi::active_win()->{active}->{name};
-    my $type = Irssi::active_win()->{active}->{type};
-    if ( $name eq "" ) {
-        # We're in the status window
-        $topic =
-            "Irssi website: http://www.irssi.org, "
-            . "Irssi IRC channel: #irssi @ irc://irc.freenode:6667, "
-            . "twtopic has been written by Tech Wizard and ryanakca";
-    }
-    elsif ( $type eq "QUERY" ) {
-        $topic = "You are now talking to...... " . $name;
-    }
-    else {
-        my $channel = Irssi::Irc::Server->channel_find($name);
-        $topic = $channel->{topic};
-        foreach (@mirc_color_arr) { $topic =~ s/$_//g; }
-    }
-    if ( $topic eq "" ) {
-        $topic = "=-=-=-=-= No Topic =-=-=-=-=-=-=-";
-    }
-    $topic =~ s/(\00313)+//;
-    $topic =~ s/(\002)+//;
-    $topic =~ s/(\001)+//;
-    # Reset the topic and pause
-    init_timer();
-    # The length of the topic may have changed. We should reset our $start_pos
-    # to avoid going off the end in case the topic got shorter.
-    $start_pos = -1;
-    reload ();
-}
-
-sub get {
-    my $topiclen = length($topic);
-    if ( $topiclen <= $size && $min_scroll ) {
-        return $topic . ( ' ' x ( $size - $topiclen ) );
-    }
-    my $padded = $topic . ( ' ' x $padding );
-    my $str    = "";
-    my $needed = $size - length($str);
-    while ( $needed > 0 ) {
-        if ( $needed < length($padded) - $start_pos ) {
-            $str = $str . substr( $padded, $start_pos, $needed );
-        }
-        elsif ( $needed < length($padded) ) {
-            $str =
-                $str
-              . substr( $padded, $start_pos )
-              . substr( $padded, 0, $needed - length($padded) );
-        }
-        else {
-            $str =
-                $str
-              . substr( $padded, $start_pos )
-              . substr( $padded, 0, $start_pos );
-        }
-        $needed = $size - length($str);
-    }
-    $start_pos = $start_pos + 1 < length($padded) ? $start_pos + 1 : 0;
-    return $str;
-}
-
-
-Irssi::signal_add( 'channel topic changed', 'update_topic' );
-Irssi::signal_add( 'setup changed',         'setup' );
-Irssi::signal_add( 'terminal resized',      'setup' );
-Irssi::signal_add( 'window changed',        'update_topic' );
-
-Irssi::settings_add_bool( 'tech_addon', 'twtopic_auto_resize', 0 );
-Irssi::settings_add_bool( 'tech_addon', 'twtopic_instruct',    1 );
-Irssi::settings_add_bool( 'tech_addon', 'twtopic_min_scroll',  0 );
-Irssi::settings_add_int( 'tech_addon', 'twtopic_ar_padding', 10 );
-Irssi::settings_add_int( 'tech_addon', 'twtopic_init_pause', 10 );
-Irssi::settings_add_int( 'tech_addon', 'twtopic_padding',    20 );
-Irssi::settings_add_int( 'tech_addon', 'twtopic_refresh',    150 );
-Irssi::settings_add_int( 'tech_addon', 'twtopic_size',       20 );
-
-sub reload { Irssi::statusbar_items_redraw('twtopic'); }
-
-if ( Irssi::settings_get_bool('twtopic_instruct') ) {
-    print $instrut;
-}
-
-setup();
-
-Irssi::statusbar_item_register( 'twtopic', '$0', 'show' );
diff --git a/.irssi/scripts/usercount.pl b/.irssi/scripts/usercount.pl
deleted file mode 100644
index 650f9f3..0000000
--- a/.irssi/scripts/usercount.pl
+++ /dev/null
@@ -1,184 +0,0 @@
-use strict;
-use Irssi 20040119.2359 ();
-use vars qw($VERSION %IRSSI);
-$VERSION = "1.19";
-%IRSSI = (
-    authors     => 'David Leadbeater, Timo Sirainen, Georg Lukas',
-    contact     => 'dgl@dgl.cx, tss@iki.fi, georg@boerde.de',
-    name        => 'usercount',
-    description => 'Adds a usercount for a channel as a statusbar item',
-    sbitems     => 'usercount',
-    license     => 'GNU GPLv2 or later',
-    url         => 'http://irssi.dgl.cx/',
-    changes     => 'Only show halfops if server supports them',
-);
-
-# Once you have loaded this script run the following command:
-# /statusbar window add usercount
-# You can also add -alignment left|right option
-
-# Settings:
-# /toggle usercount_show_zero to show item even when there are no users
-# /toggle usercount_show_ircops (default off)
-# /toggle usercount_show_halfops (default on)
-
-# you can customize the look of this item from theme file:
-#  sb_usercount = "{sb %_$0%_ nicks ($1-)}";
-#  sb_uc_ircops = "%_*%_$*";
-#  sb_uc_ops = "%_@%_$*";
-#  sb_uc_halfops = "%_%%%_$*";
-#  sb_uc_voices = "%_+%_$*";
-#  sb_uc_normal = "$*";
-#  sb_uc_space = " ";
-
-
-use Irssi::TextUI;
-
-my ($ircops, $ops, $halfops, $voices, $normal, $total);
-my ($timeout_tag, $recalc);
-
-# Called to make the status bar item
-sub usercount {
-  my ($item, $get_size_only) = @_;
-  my $wi = !Irssi::active_win() ? undef : Irssi::active_win()->{active};
-
-  if(!ref $wi || $wi->{type} ne "CHANNEL") { # only works on channels
-    return unless ref $item;
-    $item->{min_size} = $item->{max_size} = 0;
-    return;
-  }
-
-  if ($recalc) {
-    $recalc = 0;
-    calc_users($wi);
-  }
-
-  my $theme = Irssi::current_theme();
-  my $format = $theme->format_expand("{sb_usercount}");
-  if ($format) {
-    # use theme-specific look
-    my $ircopstr = $theme->format_expand("{sb_uc_ircops $ircops}",
-          Irssi::EXPAND_FLAG_IGNORE_EMPTY);
-    my $opstr = $theme->format_expand("{sb_uc_ops $ops}",
-          Irssi::EXPAND_FLAG_IGNORE_EMPTY);
-    my $halfopstr = $theme->format_expand("{sb_uc_halfops $halfops}",
-          Irssi::EXPAND_FLAG_IGNORE_EMPTY);
-    my $voicestr = $theme->format_expand("{sb_uc_voices $voices}", 
-          Irssi::EXPAND_FLAG_IGNORE_EMPTY);
-    my $normalstr = $theme->format_expand("{sb_uc_normal $normal}",
-          Irssi::EXPAND_FLAG_IGNORE_EMPTY);
-	my $space = $theme->format_expand('{sb_uc_space}',
-         Irssi::EXPAND_FLAG_IGNORE_EMPTY);
-	$space = " " unless $space;
-
-    my $str = "";
-    $str .= $ircopstr.$space if defined $ircops;
-    $str .= $opstr.$space  if defined $ops;
-    $str .= $halfopstr.$space if defined $halfops;
-    $str .= $voicestr.$space if defined $voices;
-    $str .= $normalstr.$space if defined $normal;
-    $str =~ s/\Q$space\E$//;
-
-    $format = $theme->format_expand("{sb_usercount $total $str}",
-				    Irssi::EXPAND_FLAG_IGNORE_REPLACES);
-  } else {
-    # use the default look
-    $format = "{sb \%_$total\%_ nicks \%c(\%n";
-    $format .= '*'.$ircops.' ' if (defined $ircops);
-    $format .= '@'.$ops.' ' if (defined $ops);
-    $format .= '%%'.$halfops.' ' if (defined $halfops);
-    $format .= "+$voices " if (defined $voices);
-    $format .= "$normal " if (defined $normal);
-    $format =~ s/ $//;
-    $format .= "\%c)}";
-  }
-
-  $item->default_handler($get_size_only, $format, undef, 1);
-}
-
-sub calc_users() {
-  my $channel = shift;
-  my $server = $channel->{server};
-
-  $ircops = $ops = $halfops = $voices = $normal = 0;
-  for ($channel->nicks()) {
-    if ($_->{serverop}) {
-      $ircops++;
-	}
-
-    if ($_->{op}) {
-      $ops++;
-	} elsif ($_->{halfop}) {
-	   $halfops++;
-    } elsif ($_->{voice}) {
-      $voices++;
-    } else {
-      $normal++;
-    }
-  }
-
-  $total = $ops+$halfops+$voices+$normal;
-  
-  if (!Irssi::settings_get_bool('usercount_show_zero')) {
-    $ircops = undef if ($ircops == 0);
-    $ops = undef if ($ops == 0);
-    $halfops = undef if ($halfops == 0);
-    $voices = undef if ($voices == 0);
-    $normal = undef if ($normal == 0);
-  }
-
-  # Server doesn't support halfops? 
-  if($server->isupport("PREFIX") !~ /\%/) {
-     $halfops = undef;
-  } else {
-     $halfops = undef unless Irssi::settings_get_bool('usercount_show_halfops');
-  }
-
-  $ircops = undef unless Irssi::settings_get_bool('usercount_show_ircops');
-}
-
-sub refresh {
-   if ($timeout_tag > 0) {
-      Irssi::timeout_remove($timeout_tag);
-      $timeout_tag = 0;
-   }
-   Irssi::statusbar_items_redraw('usercount');
-}
-
-sub refresh_check {
-   my $channel = shift;
-   my $wi = ref Irssi::active_win() ? Irssi::active_win()->{active} : 0;
-
-   return unless ref $wi && ref $channel;
-   return if $wi->{name} ne $channel->{name};
-   return if $wi->{server}->{tag} ne $channel->{server}->{tag};
-
-   # don't refresh immediately, or we'll end up refreshing 
-   # a lot around netsplits
-   $recalc = 1;
-   Irssi::timeout_remove($timeout_tag) if ($timeout_tag > 0);
-   $timeout_tag = Irssi::timeout_add(500, 'refresh', undef);
-}
-
-sub refresh_recalc {
-  $recalc = 1;
-  refresh();
-}
-
-$recalc = 1;
-$timeout_tag = 0;
-
-Irssi::settings_add_bool('usercount', 'usercount_show_zero', 1);
-Irssi::settings_add_bool('usercount', 'usercount_show_ircops', 0);
-Irssi::settings_add_bool('usercount', 'usercount_show_halfops', 1);
-
-Irssi::statusbar_item_register('usercount', undef, 'usercount');
-Irssi::statusbars_recreate_items();
-
-Irssi::signal_add_last('nicklist new', 'refresh_check');
-Irssi::signal_add_last('nicklist remove', 'refresh_check');
-Irssi::signal_add_last('nick mode changed', 'refresh_check');
-Irssi::signal_add_last('setup changed', 'refresh_recalc');
-Irssi::signal_add_last('window changed', 'refresh_recalc');
-Irssi::signal_add_last('window item changed', 'refresh_recalc');
-