Update irssi scripts

5 files changed, 512 insertions, 410 deletions

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/irssi-notify.pl b/.irssi/scripts/autorun/irssi-notify.pl
deleted file mode 120000
index accb805..0000000
--- a/.irssi/scripts/autorun/irssi-notify.pl
+++ /dev/null
@@ -1 +0,0 @@
-../irssi-notify.pl
\ No newline at end of file
diff --git a/.irssi/scripts/hilightwin.pl b/.irssi/scripts/hilightwin.pl
index e508809..3bb2863 100644
--- a/.irssi/scripts/hilightwin.pl
+++ b/.irssi/scripts/hilightwin.pl
@@ -5,26 +5,51 @@
 # 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); 
+use vars qw($VERSION %IRSSI);
 
-$VERSION = "0.02";
+$VERSION = "1.00";
 %IRSSI = (
-    authors     => "Timo \'cras\' Sirainen, Mark \'znx\' Sangster",
-    contact     => "tss\@iki.fi, znxster\@gmail.com", 
+    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     => "Sun May 25 18:59:57 BST 2008"
+    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;
@@ -32,25 +57,28 @@ sub sig_printtext {
     
     if(
         ($dest->{level} & ($opt)) &&
-        ($dest->{level} & MSGLEVEL_NOHILIGHT) == 0
+        ($dest->{level} & MSGLEVEL_NOHILIGHT) == 0 &&
+        (!is_ignored($dest))
     ) {
-        $window = Irssi::window_find_name('hilight');
+        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 = strftime(
-            Irssi::settings_get_str('timestamp_format')." ",
-            localtime
-        ).$text;
-        $window->print($text, MSGLEVEL_NEVER) if ($window);
+        $text =~ s/%/%%/g;
+        $window->print($text, MSGLEVEL_CLIENTCRAP) if ($window);
     }
 }
 
-$window = Irssi::window_find_name('(hi)');
+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');
 
diff --git a/.irssi/scripts/screen_away.pl b/.irssi/scripts/screen_away.pl
deleted file mode 100644
index 86e3087..0000000
--- a/.irssi/scripts/screen_away.pl
+++ /dev/null
@@ -1,243 +0,0 @@
-use Irssi;
-use strict;
-use FileHandle;
-
-use vars qw($VERSION %IRSSI);
-
-$VERSION = "0.9.7.1";
-%IRSSI = (
-    authors     => 'Andreas \'ads\' Scherbaum <ads@wars-nicht.de>',
-    name        => 'screen_away',
-    description => 'set (un)away, if screen is attached/detached',
-    license     => 'GPL v2',
-    url         => 'none',
-);
-
-# screen_away irssi module
-#
-# written by Andreas 'ads' Scherbaum <ads@ufp.de>
-#
-# changes:
-#  07.02.2004 fix error with away mode
-#             thanks to Michael Schiansky for reporting and fixing this one
-#  07.08.2004 new function for changing nick on away
-#  24.08.2004 fixing bug where the away nick was not storedcorrectly
-#             thanks for Harald Wurpts for help debugging this one
-#  17.09.2004 rewrote init part to use $ENV{'STY'}
-#  05.12.2004 add patch for remember away state
-#             thanks to Jilles Tjoelker <jilles@stack.nl>
-#             change "chatnet" to "tag"
-#  18.05.2007 fix '-one' for SILC networks
-#
-#
-# usage:
-#
-# put this script into your autorun directory and/or load it with
-#  /SCRIPT LOAD <name>
-#
-# there are 5 settings available:
-#
-# /set screen_away_active ON/OFF/TOGGLE
-# /set screen_away_repeat <integer>
-# /set screen_away_message <string>
-# /set screen_away_window <string>
-# /set screen_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
-#   screen status again, default is 5 seconds
-# 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
-#
-# normal you should be able to rename the script to something other
-# than 'screen_away' (as example, if you dont like the name) by simple
-# changing the 'name' parameter in the %IRSSI hash at the top of this script
-
-
-# variables
-my $timer_name = undef;
-my $away_status = 0;
-my %old_nicks = ();
-my %away = ();
-
-# Register formats
-Irssi::theme_register(
-[
- 'screen_away_crap', 
- '{line_start}{hilight ' . $IRSSI{'name'} . ':} $0'
-]);
-
-# if we are running
-my $screen_away_used = 0;
-
-# try to find out, if we are running in a screen
-# (see, if $ENV{STY} is set
-if (!defined($ENV{STY})) {
-  # just return, we will never be called again
-  Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'screen_away_crap',
-    "could not open status file for parent process (pid: " . getppid() . "): $!");
-  return;
-}
-
-my ($socket_name, $socket_path);
-
-# search for socket
-# normal we could search the socket file, ... if we know the path
-# but so we have to call one time the screen executable
-# disable locale
-# the quotes around C force perl 5.005_03 to use the shell
-# thanks to Jilles Tjoelker <jilles@stack.nl> for pointing this out
-my $socket = `LC_ALL="C" screen -ls`;
-
-
-
-my $running_in_screen = 0;
-# locale doesnt seems to be an problem (yet)
-if ($socket !~ /^No Sockets found/s) {
-  # ok, should have only one socket
-  $socket_name = $ENV{'STY'};
-  $socket_path = $socket;
-  $socket_path =~ s/^.+\d+ Sockets? in ([^\n]+)\.\n.+$/$1/s;
-  if (length($socket_path) != length($socket)) {
-    # only activate, if string length is different
-    # (to make sure, we really got a dir name)
-    $screen_away_used = 1;
-  } else {
-    Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'screen_away_crap',
-      "error reading screen informations from:");
-    Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'screen_away_crap',
-      "$socket");
-    return;
-  }
-}
-
-# last check
-if ($screen_away_used == 0) {
-  # we will never be called again
-  return;
-}
-
-# build complete socket name
-$socket = $socket_path . "/" . $socket_name;
-
-# register config variables
-Irssi::settings_add_bool('misc', $IRSSI{'name'} . '_active', 1);
-Irssi::settings_add_int('misc', $IRSSI{'name'} . '_repeat', 5);
-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', "");
-
-# init process
-screen_away();
-
-# screen_away()
-#
-# check, set or reset the away status
-#
-# parameter:
-#   none
-# return:
-#   0 (OK)
-sub screen_away {
-  my ($away, @screen, $screen);
-
-  # only run, if activated
-  if (Irssi::settings_get_bool($IRSSI{'name'} . '_active') == 1) {
-    if ($away_status == 0) {
-      # display init message at first time
-      Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'screen_away_crap',
-        "activating $IRSSI{'name'} (interval: " . Irssi::settings_get_int($IRSSI{'name'} . '_repeat') . " seconds)");
-    }
-    # get actual screen status
-    my @screen = stat($socket);
-    # 00100 is the mode for "user has execute permissions", see stat.h
-    if (($screen[2] & 00100) == 0) {
-      # no execute permissions, Detached
-      $away = 1;
-    } else {
-      # execute permissions, Attached
-      $away = 2;
-    }
-
-    # check if status has changed
-    if ($away == 1 and $away_status != 1) {
-      # set away
-      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, 'screen_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 ...";
-      }
-      my ($server);
-      foreach $server (Irssi::servers()) {
-        if (!$server->{usermode_away}) {
-          # user isnt yet away
-          $away{$server->{'tag'}} = 0;
-          $server->command("AWAY " . (($server->{chat_type} ne 'SILC') ? "-one " : "") . "$message") if (!$server->{usermode_away});
-          if (length(Irssi::settings_get_str($IRSSI{'name'} . '_nick')) > 0) {
-            # only change, if actual nick isnt already the away nick
-            if (Irssi::settings_get_str($IRSSI{'name'} . '_nick') ne $server->{nick}) {
-              # keep old nick
-              $old_nicks{$server->{'tag'}} = $server->{nick};
-              # set new nick
-              $server->command("NICK " . Irssi::settings_get_str($IRSSI{'name'} . '_nick'));
-            }
-          }
-        } else {
-          # user is already away, remember this
-          $away{$server->{'tag'}} = 1;
-        }
-      }
-      $away_status = $away;
-    } elsif ($away == 2 and $away_status != 2) {
-      # unset away
-      Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'screen_away_crap',
-        "Reset away");
-      my ($server);
-      foreach $server (Irssi::servers()) {
-        if ($away{$server->{'tag'}} == 1) {
-          # user was already away, dont reset away
-          $away{$server->{'tag'}} = 0;
-          next;
-        }
-        $server->command("AWAY" . (($server->{chat_type} ne 'SILC') ? " -one" : "")) if ($server->{usermode_away});
-        if (defined($old_nicks{$server->{'tag'}}) and length($old_nicks{$server->{'tag'}}) > 0) {
-          # set old nick
-          $server->command("NICK " . $old_nicks{$server->{'tag'}});
-          $old_nicks{$server->{'tag'}} = "";
-        }
-      }
-      $away_status = $away;
-    }
-  }
-  # but everytimes install a new timer
-  register_screen_away_timer();
-  return 0;
-}
-
-# register_screen_away_timer()
-#
-# remove old timer and install a new one
-#
-# parameter:
-#   none
-# return:
-#   none
-sub register_screen_away_timer {
-  if (defined($timer_name)) {
-    # remove old timer, if defined
-    Irssi::timeout_remove($timer_name);
-  }
-  # add new timer with new timeout (maybe the timeout has been changed)
-  $timer_name = Irssi::timeout_add(Irssi::settings_get_int($IRSSI{'name'} . '_repeat') * 1000, 'screen_away', '');
-}
-
diff --git a/.irssi/scripts/trackbar.pl b/.irssi/scripts/trackbar.pl
index 7123330..0d10882 100644
--- a/.irssi/scripts/trackbar.pl
+++ b/.irssi/scripts/trackbar.pl
@@ -1,189 +1,508 @@
 # 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.
 #
-# Usage: 
+#  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:
 #
-#     trackbar_string       The characters to repeat to draw the bar
-#     trackbar_style        The style for the bar, %r is red for example
-#                           See formats.txt that came with irssi
-#
-#     /mark is a command that will redraw the line at the bottom.  However!  This
-#     requires irssi version after 20021228.  otherwise you'll get the error
-#     redraw: unknown command, and your screen is all goofed up :)
-#
-#     /upgrade & buf.pl notice: This version tries to remove the trackbars before 
-#     the upgrade is done, so buf.pl does not restore them, as they are not removeable
-#     afterwards by trackbar.  Unfortiounatly, to make this work, trackbar and buf.pl
-#     need to be loaded in a specific order.  Please experiment to see which order works
-#     for you (strangely, it differs from configuration to configuration, something I will
-#     try to fix in a next version) 
-#
-# 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
-#
-# Version history:
-#  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
-#
-#
-#  Call for help!
-#
-#  There is a trackbar version 2.0 that properly handles resizes and immediate config change
-#  activation.  However, there is/are some bug(s) in irssi's main buffer/window code that causes
-#  irssi to 'forget' lines, which is ofcourse completly unaccepteable.  I haven't found the time
-#  nor do I know the irssi's internals enough to find and fix this bug, if you want to help, please
-#  contact me, I'll give you a copy of the 2.0 version that will immediatly show you the problems.
-#
-# Known bugs:
-#  - if you /clear a window, it will be uncleared when returning to the window
-#  - UTF-8 characters in the trackbar_string doesnt work.  This is an irssi bug.
-#  - if you resize your irssi (in xterm or so) the bar is not resized 
-#  - changing the trackbar style is only visible after returning to a window
-#  however, changing style/resize takes in effect after you left the window.
-#
-# Whishlist/todo:
-#  - instead of drawing a line, just invert timestamp or something, 
-#    to save a line (but I don't think this is possible with current irssi)
-#  - some pageup keybinding possibility, to scroll up upto the trackbar
-#  - <@coekie> kinlo: if i switch to another window, in another split window, i 
-#              want the trackbar to go down in the previouswindow in  that splitwindow :)
-#  - < bob_2> anyway to clear the line once the window is read?
-#  - < elho> kinlo: wishlist item: a string that gets prepended to the repeating pattern
-#  - < elho> an option to still have the timestamp in front of the bar
-#  - < elho> oh and an option to not draw it in the status window :P
-#
-# BTW: when you have feature requests, mailing a patch that works is the fastest way
-# to get it added :p
+#    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 5.6.1;
+use warnings;
 use Irssi;
 use Irssi::TextUI;
+use Encode;
 
-my $VERSION = "1.4";
+use POSIX qw(strftime);
+use vars qw($VERSION %IRSSI);
 
-my %IRSSI = (
-    authors     => "Peter 'kinlo' Leurs",
-    contact     => "peter\@pfoe.be",
-    name        => "trackbar",
-    description => "Shows a bar where you've last read a window",
-    license     => "GPLv2",
-    url         => "http://www.pfoe.be/~peter/trackbar/",
-    changed     => "Thu Feb 20 16:18:08 2003",
+$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',
 );
 
-my %config;
+## 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
+#
+##
 
-Irssi::settings_add_str('trackbar', 'trackbar_string' => '-');
-$config{'trackbar_string'} = Irssi::settings_get_str('trackbar_string');
+## 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.
+#
+##
 
-Irssi::settings_add_str('trackbar', 'trackbar_style' => '%K');
-$config{'trackbar_style'} = Irssi::settings_get_str('trackbar_style');
+## Known bugs and the todolist.
+#
+#    Todo: * Instead of drawing a line, invert the line.
+#
+##
 
-Irssi::signal_add(
-    'setup changed' => sub {
-        $config{'trackbar_string'} = Irssi::settings_get_str('trackbar_string');
-        $config{'trackbar_style'}  = Irssi::settings_get_str('trackbar_style');
-        if ($config{'trackbar_style'} =~ /(?<!%)[^%]|%%|%$/) {
-            Irssi::print(
-                "trackbar: %RWarning!%n 'trackbar_style' seems to contain "
-                . "printable characters. Only use format codes (read "
-                . "formats.txt).", MSGLEVEL_CLIENTERROR);
-        }
+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::signal_add(
-    'window changed' => sub {
-        my (undef, $oldwindow) = @_;
+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.',
+]);
 
-        if ($oldwindow) {
-            my $line = $oldwindow->view()->get_bookmark('trackbar');
-            $oldwindow->view()->remove_line($line) if defined $line;
-            $oldwindow->print(line($oldwindow->{'width'}), MSGLEVEL_NEVER);
-            $oldwindow->view()->set_bookmark_bottom('trackbar');
-        }
+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  = shift;
-    my $string = $config{'trackbar_string'};
-    $string = '-' unless defined $string;
-
-    # There is a bug in irssi's utf-8 handling on config file settings, as you 
-    # can reproduce/see yourself by the following code sniplet:
-    #
-    #   my $quake = pack 'U*', 8364;    # EUR symbol
-    #   Irssi::settings_add_str 'temp', 'temp_foo' => $quake;
-    #   Irssi::print length $quake;
-    #       # prints 1
-    #   Irssi::print length Irssi::settings_get_str 'temp_foo';
-    #       # prints 3
-    #
-    #
-    # Trackbar used to have a workaround, but on recent versions of perl/irssi
-    # it does no longer work.  Therefore, if you want your trackbar to contain
-    # unicode characters, uncomment the line below for a nice full line, or set
-    # the string to whatever char you want.
-
-    # $string = pack('U*', 0x2500);
-
-
-    my $length = length $string;
-
-    if ($length == 0) {
-        $string = '-';
-        $length = 1;
+    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 = int(1 + $times) if $times != int($times);
-    $string =~ s/%/%%/g;
-    return $config{'trackbar_style'} . substr($string x $times, 0, $width);
+    $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;
 }
 
-# Remove trackbars on upgrade - but this doesn't really work if the scripts are not loaded in the correct order... watch out!
+sub remove_all_trackbars {
+    for my $window (Irssi::windows) {
+        next unless ref $window;
+        remove_one_trackbar($window);
+    }
+}
 
-Irssi::signal_add_first( 'session save' => sub {
-            for my $window (Irssi::windows) {   
-                next unless defined $window;
-                my $line = $window->view()->get_bookmark('trackbar');
-                $window->view()->remove_line($line) if defined $line;
-            }
-        }
-);
+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 {
-    my $window = Irssi::active_win();
-#    return unless defined $window;
-    my $line = $window->view()->get_bookmark('trackbar');
-    $window->view()->remove_line($line) if defined $line;
-    $window->print(line($window->{'width'}), MSGLEVEL_NEVER);
-    $window->view()->set_bookmark_bottom('trackbar');
-    Irssi::command("redraw");    
+    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::command_bind('mark',   'cmd_mark');
+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});