more archiving

1 files changed, 0 insertions, 182 deletions

diff --git a/.irssi/scripts/tmux_away.pl b/.irssi/scripts/tmux_away.pl
deleted file mode 100644
index f0f0cce2..00000000
--- a/.irssi/scripts/tmux_away.pl
+++ /dev/null
@@ -1,182 +0,0 @@
-use Irssi;
-use strict;
-use FileHandle;
-
-use vars qw($VERSION %IRSSI);
-
-$VERSION = "2.0";
-%IRSSI = (
-    authors     => 'John C. Vernaleo',
-    contact     => 'john@netpurgatory.com',
-    name        => 'tmux_away',
-    description => 'set (un)away if tmux session is attached/detached',
-    license     => 'GPL v2',
-    url         => 'http://www.netpurgatory.com/tmux_away.html',
-);
-
-# 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_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
-# 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});
-
-# Get session name.  Must be connected for this to work, but since this either
-# happens at startup or based on user command, should be okay.
-my $tmux_session = `tmux display-message -p '#S'`;
-chomp($tmux_session);
-
-# 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', "");
-
-
-# check, set or reset the away status
-sub tmux_away {
-  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
-      Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'tmux_away_crap',
-        "activating $IRSSI{'name'} (interval: " . Irssi::settings_get_int($IRSSI{'name'} . '_repeat') . " seconds)");
-      $away_status = 2;
-    }
-
-    # get actual tmux session status
-    @res = `tmux list-clients -t $tmux_session`;
-    if (@res[0] =~ /^failed to connect to server/) {
-      Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'tmux_away_crap',
-        "error getting tmux session status.");
-      return;
-    }
-    $status = 1; # away, assumes the session is detached
-    if ($#res != -1) {
-	$status = 2; # unaway
-    }
-
-    # unaway -> away
-    if ($status == 1 and $away_status != 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) {
-      # 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;
-    }
-  }
-  # 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 {
-  if (defined($timer_name)) {
-    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, 'tmux_away', '');
-}
-
-# init process
-tmux_away();