From 0b1270abd4b8009c26a2a3b5811598520ab5987c Mon Sep 17 00:00:00 2001 From: David Runge Date: Sun, 1 Feb 2015 21:49:19 +0100 Subject: .irssi: Removing irssi settings from dotfiles repository. --- .irssi/scripts/tmux_away.pl | 179 -------------------------------------------- 1 file changed, 179 deletions(-) delete mode 100644 .irssi/scripts/tmux_away.pl (limited to '.irssi/scripts/tmux_away.pl') diff --git a/.irssi/scripts/tmux_away.pl b/.irssi/scripts/tmux_away.pl deleted file mode 100644 index 11e6fe8..0000000 --- a/.irssi/scripts/tmux_away.pl +++ /dev/null @@ -1,179 +0,0 @@ -use Irssi; -use strict; -use FileHandle; - -use vars qw($VERSION %IRSSI); - -$VERSION = "1.1"; -%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 and heavily based on -# screen_away irssi module version 0.9.7.1 written by Andreas 'ads' Scherbaum -# . -# -# usage: -# -# put this script into your autorun directory and/or load it with -# /SCRIPT LOAD -# -# there are 5 settings available: -# -# /set tmux_away_active ON/OFF/TOGGLE -# /set tmux_away_repeat -# /set tmux_away_message -# /set tmux_away_window -# /set tmux_away_nick -# -# 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}); -my $tmux_socket = @args_env[0]; -my $tmux_session = @args_env[2]; - -# 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 -S '$tmux_socket' lsc 2>&1`; - if (@res[0] =~ /^server not found/) { - Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'tmux_away_crap', - "error getting tmux session status."); - return; - } - $status = 1; # away, assumes the session is detached - foreach (@res) { - my @args_st = split(' '); - if (@args_st[1] == $tmux_session) { - $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 isnt 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 isnt 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, dont 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(); - -- cgit v1.2.3-54-g00ecf