mirror of
git://git.psyced.org/git/psyced
synced 2024-08-15 03:25:10 +00:00
let the past begone in cvs land. welcome to igit igit!
This commit is contained in:
PSYC
commit
4e601cf1c7
509 changed files with 77963 additions and 0 deletions
36
config/irssi/command_mode.pl
Normal file
36
config/irssi/command_mode.pl
Normal file
|
|
@ -0,0 +1,36 @@
|
|||
# oh how nice.. just like ircII 2.1.5's /set command_mode
|
||||
# which unfortunately no longer works in modern ircIIs.
|
||||
# i think it is mentioned in the historic documents
|
||||
# on http://about.psyc.eu/IRC -lynX
|
||||
|
||||
use strict;
|
||||
use vars qw($VERSION %IRSSI);
|
||||
|
||||
use Irssi;
|
||||
$VERSION = '200412171';
|
||||
%IRSSI = (
|
||||
authors => 'MB',
|
||||
contact => 'mb',
|
||||
name => 'command_mode',
|
||||
description => 'interpretes everything sent to a channel as a command',
|
||||
license => 'GPL',
|
||||
);
|
||||
|
||||
sub send_text {
|
||||
|
||||
#"send text", char *line, SERVER_REC, WI_ITEM_REC
|
||||
my ( $data, $server, $witem ) = @_;
|
||||
if ( $witem
|
||||
&& ( $witem->{type} eq "CHANNEL"
|
||||
|| $witem->{type} eq "QUERY" ) )
|
||||
{
|
||||
$witem->command('/^say ' . $data);
|
||||
Irssi::signal_stop();
|
||||
} elsif ($witem && $witem->{type} eq 'STATUS') {
|
||||
$witem->command('/quote ' . $data);
|
||||
} elsif (!$witem) {
|
||||
$server->command('/quote ' . $data);
|
||||
}
|
||||
}
|
||||
|
||||
Irssi::signal_add 'send text' => 'send_text';
|
||||
361
config/irssi/typing_notice_psyc.pl
Normal file
361
config/irssi/typing_notice_psyc.pl
Normal file
|
|
@ -0,0 +1,361 @@
|
|||
# INSTALLATION
|
||||
#
|
||||
# - Add the statusbar item:
|
||||
# /statusbar window add typing_notice
|
||||
# You won't see anything until someone is typing.
|
||||
#
|
||||
# SETTINGS
|
||||
#
|
||||
# [typing_notice]
|
||||
# send_typing = ON
|
||||
# -> send typing notifications to supported users
|
||||
#
|
||||
# CHANGES
|
||||
# 2008-01-11
|
||||
# * threw out most bitlbee stuff
|
||||
# * all XEP 0085 typing levels
|
||||
# * working interop with 0085
|
||||
# 2008-01-05
|
||||
# * ctcp capab protocol - irssis clientinfo is buggy
|
||||
# * renamed typing levels - inspired by XEP 0085
|
||||
# * started to remove bitlbee stuff
|
||||
# -----------------------------------------------
|
||||
# fippoism starts
|
||||
# this script is based on version 1.9.1 of
|
||||
# http://the-timing.nl/Projects/Irssi-BitlBee/typing_notice.pl
|
||||
# the plan is to get compat to xmpp xep 0085 at least
|
||||
# and of course psyc legacy ctcp support :-)
|
||||
# -----------------------------------------------
|
||||
#
|
||||
use strict;
|
||||
use Irssi::TextUI;
|
||||
use Data::Dumper;
|
||||
|
||||
use vars qw($VERSION %IRSSI);
|
||||
|
||||
$VERSION = '0.2';
|
||||
%IRSSI = (
|
||||
authors => 'Philipp "fippo" Hancke',
|
||||
contact => 'fippo@goodadvice.pages.de',
|
||||
name => 'typing_notice_psyc',
|
||||
description => 'based on Tijmen\' typing notification script for bitlbee
|
||||
1. Receiving typing notices: Adds an item to the status bar which says [typing] when someone is typing a message.
|
||||
2. Sending typing notices: Sends CTCP TYPING messages to PSYC, XMPP and IRC users (If they support it)',
|
||||
license => 'GPLv2',
|
||||
url => 'http://www.psyced.org/',
|
||||
changed => '2008-01-11',
|
||||
);
|
||||
|
||||
my $debug = 0;
|
||||
|
||||
my %TIMEOUTS = (
|
||||
"PAUSED" => 5 * 1000,
|
||||
"INACTIVE" => 30 * 1000,
|
||||
"GONE" => 180 * 1000,
|
||||
);
|
||||
|
||||
|
||||
my %typers; # for storage
|
||||
|
||||
my $line;
|
||||
my $lastkey;
|
||||
my $keylog_active = 1;
|
||||
my $command_char = Irssi::settings_get_str('cmdchars');
|
||||
my $to_char = Irssi::settings_get_str("completion_char");
|
||||
|
||||
## IRC only ##############
|
||||
# this is used to append a non-printable control sequence to all messages
|
||||
# quite a smart hack indeed - but i would prefer ctcp for it
|
||||
my $o = "\cO";
|
||||
my $oo = $o.$o;
|
||||
##########################
|
||||
|
||||
sub get_current {
|
||||
my $server = Irssi::active_server();
|
||||
my $window = Irssi::active_win();
|
||||
if ($server && $window) {
|
||||
return ($server->{tag}, $window->get_active_name());
|
||||
}
|
||||
return undef;
|
||||
}
|
||||
|
||||
sub event_ctcp_msg { # called for ctcp msg, not ctcp replies
|
||||
my ($server, $msg, $from, $address) = @_;
|
||||
$server = $server->{tag};
|
||||
|
||||
if ($msg =~ /TYPING (INACTIVE|PAUSED|COMPOSING|ACTIVE|GONE)/ ) {
|
||||
if ( not $debug ) {
|
||||
Irssi::signal_stop();
|
||||
}
|
||||
# if someone sends this, they usually support that stuff
|
||||
$typers{$server}{$from}{capability} = 1;
|
||||
|
||||
$typers{$server}{$from}{typing_in} = $1;
|
||||
Irssi::statusbar_items_redraw('typing_notice');
|
||||
Irssi::signal_stop();
|
||||
} elsif ( my($type) = $msg =~ /CAPAB TYPING/ ) {
|
||||
if ($debug) {
|
||||
print "capab typing query from $from.";
|
||||
}
|
||||
my $serverobj = Irssi::server_find_tag($server);
|
||||
$serverobj->ctcp_send_reply("NOTICE $from :\001CAPAB TYPING\001");
|
||||
Irssi::signal_stop();
|
||||
}
|
||||
}
|
||||
|
||||
sub event_ctcp_reply { # called for ctcp replies
|
||||
my ($server, $msg, $from, $address) = @_;
|
||||
if ( $msg =~ /CAPAB TYPING/ && exists( $typers{$server->{tag}}{$from} )) {
|
||||
if ($debug) {
|
||||
print "capab typing reply from $from.";
|
||||
}
|
||||
$typers{$server->{tag}}{$from}{capability} = 1;
|
||||
Irssi::signal_stop();
|
||||
}
|
||||
}
|
||||
|
||||
sub unset_typing_in {
|
||||
my ($a) = @_;
|
||||
my ($server, $nick) = @{$a};
|
||||
if ($debug) {
|
||||
print "unset: $server, $nick";
|
||||
}
|
||||
$typers{$server}{$nick}{typing_in} = undef;
|
||||
Irssi::timeout_remove($typers{$server}{$nick}{timer_tag_in});
|
||||
Irssi::statusbar_items_redraw('typing_notice');
|
||||
}
|
||||
|
||||
sub event_msg {
|
||||
my ($server, $data, $nick, $address, $target) = @_;
|
||||
$server = $server->{tag};
|
||||
|
||||
# haeh??? ist das eine art <active/> angehaengt als leeres ctcp
|
||||
if ( $data =~ /$oo\z/ ) {
|
||||
if ( not exists( $typers{$server}{$nick} ) ) {
|
||||
$typers{$server}{$nick}{capability} = 1;
|
||||
if ($debug) {
|
||||
print "This user supports typing! $server, $nick";
|
||||
}
|
||||
}
|
||||
} elsif (0) { # ah... this ensures that it stays valid
|
||||
if ( exists( $typers{$server}{$nick} ) ) {
|
||||
if ($debug) {
|
||||
print "This user does not support typing anymore! $nick. splice: ";
|
||||
}
|
||||
delete $typers{$server}{$nick};
|
||||
}
|
||||
}
|
||||
|
||||
if ( 0 and exists( $typers{$server}{$nick} ) ) {
|
||||
unset_typing_in( [$server, $nick] );
|
||||
}
|
||||
}
|
||||
|
||||
sub typing_notice { ## redraw statusbar item
|
||||
my ($item, $get_size_only) = @_;
|
||||
my ($server, $channel) = get_current();
|
||||
|
||||
return unless exists $typers{$server}{$channel};
|
||||
|
||||
if ( $typers{$server}{$channel}{typing_in} ne undef ) {
|
||||
my $append = $typers{$server}{$channel}{typing_in};
|
||||
$item->default_handler($get_size_only, "{sb typing $append}", 0, 1);
|
||||
if ($debug >= 2) {
|
||||
print "typing: $server, $channel.";
|
||||
}
|
||||
} else {
|
||||
if ($debug) {
|
||||
print "clear: $server, $channel ";
|
||||
}
|
||||
$item->default_handler($get_size_only, "", 0, 1);
|
||||
if ($typers{$server}{$channel}{timer_tag_in} ne undef) {
|
||||
Irssi::timeout_remove($typers{$server}{$channel}{timer_tag_in});
|
||||
$typers{$server}{$channel}{timer_tag_in} = undef;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
sub window_change {
|
||||
Irssi::statusbar_items_redraw('typing_notice');
|
||||
my ($server, $channel) = get_current();
|
||||
|
||||
if ( exists( $typers{$server}{$channel} ) ) {
|
||||
if ( not $keylog_active ) {
|
||||
$keylog_active = 1;
|
||||
Irssi::signal_add_last('gui key pressed', 'key_pressed');
|
||||
}
|
||||
} else {
|
||||
if ($keylog_active) {
|
||||
$keylog_active = 0;
|
||||
Irssi::signal_remove('gui key pressed', 'key_pressed');
|
||||
}
|
||||
}
|
||||
return if not Irssi::settings_get_bool("send_typing");
|
||||
# send INACTIVE?
|
||||
}
|
||||
|
||||
sub window_close {
|
||||
return if not Irssi::settings_get_bool("send_typing");
|
||||
my ($server, $channel) = get_current();
|
||||
if ( exists( $typers{$server}{$channel} ) and $typers{$server}{$channel}{state_out} ne "GONE" ) {
|
||||
my $serverobj = Irssi::server_find_tag($server);
|
||||
$serverobj->command("^CTCP $channel TYPING GONE");
|
||||
$typers{$server}{$channel}{state_out} = "GONE";
|
||||
}
|
||||
}
|
||||
|
||||
sub window_open {
|
||||
return if not Irssi::settings_get_bool("send_typing");
|
||||
my ($item) = @_;
|
||||
# look if we should disco
|
||||
}
|
||||
|
||||
sub key_pressed {
|
||||
return if not Irssi::settings_get_bool("send_typing");
|
||||
my $key = shift;
|
||||
if ($key == 9 && $key == 10 && $lastkey == 27 && $key == 27 && $lastkey == 91 && $key == 126 && $key == 127) { # ignore these keys
|
||||
$lastkey = $key;
|
||||
return 0;
|
||||
}
|
||||
|
||||
my ($server, $channel) = get_current();
|
||||
|
||||
if ( exists( $typers{$server}{$channel} ) ) {
|
||||
|
||||
my $input = Irssi::parse_special("\$L");
|
||||
if ($input !~ /^$command_char.*/ && length($input) > 0){
|
||||
send_typing( $server, $channel );
|
||||
}
|
||||
}
|
||||
$lastkey = $key; # some keys, like arrow-up, contain two events.
|
||||
}
|
||||
|
||||
|
||||
sub send_typing_pause {
|
||||
return if not Irssi::settings_get_bool("send_typing");
|
||||
my ($a) = @_;
|
||||
my( $server, $nick ) = @{$a};
|
||||
send_typing_update_state($server, $nick, "PAUSED");
|
||||
|
||||
Irssi::timeout_remove($typers{$server}{$nick}{timer_tag_out});
|
||||
$typers{$server}{$nick}{timer_tag_out} = Irssi::timeout_add_once($TIMEOUTS{INACTIVE}, 'send_typing_inactive', [$server, $nick]);
|
||||
|
||||
}
|
||||
|
||||
sub send_typing_inactive {
|
||||
return if not Irssi::settings_get_bool("send_typing");
|
||||
my ($a) = @_;
|
||||
my( $server, $nick ) = @{$a};
|
||||
send_typing_update_state($server, $nick, "INACTIVE");
|
||||
|
||||
Irssi::timeout_remove($typers{$server}{$nick}{timer_tag_out});
|
||||
$typers{$server}{$nick}{timer_tag_out} = Irssi::timeout_add_once($TIMEOUTS{GONE}, 'send_typing_gone', [$server, $nick]);
|
||||
|
||||
}
|
||||
|
||||
sub send_typing_gone {
|
||||
return if not Irssi::settings_get_bool("send_typing");
|
||||
my ($a) = @_;
|
||||
my( $server, $nick ) = @{$a};
|
||||
send_typing_update_state($server, $nick, "GONE");
|
||||
Irssi::timeout_remove($typers{$server}{$nick}{timer_tag_out});
|
||||
}
|
||||
|
||||
sub send_typing {
|
||||
my ( $server, $nick ) = @_;
|
||||
|
||||
send_typing_update_state($server, $nick, "COMPOSING");
|
||||
|
||||
Irssi::timeout_remove($typers{$server}{$nick}{timer_tag_out});
|
||||
$typers{$server}{$nick}{timer_tag_out} = Irssi::timeout_add_once($TIMEOUTS{PAUSED}, 'send_typing_pause', [$server, $nick]);
|
||||
}
|
||||
|
||||
sub send_typing_update_state {
|
||||
return if not Irssi::settings_get_bool("send_typing");
|
||||
my ( $server, $nick, $state ) = @_;
|
||||
if (not exists($typers{$server}{$nick}) or $typers{$server}{$nick}{capability} != 1) {
|
||||
print Dumper(%typers);
|
||||
print "(dont) send_typing_update_state to non-typer $server->$nick"; #if ($debug);
|
||||
return 0;
|
||||
}
|
||||
|
||||
if ($state eq $typers{$server}{$nick}{state_out}) {
|
||||
print "(dont) send_typing_update_state: $state already known" if $debug;
|
||||
return;
|
||||
}
|
||||
# FIXME: allowed state transitions could be checked here
|
||||
if ($debug) {
|
||||
print "$server: ctcp $nick typing $state";
|
||||
}
|
||||
|
||||
my $serverobj = Irssi::server_find_tag($server);
|
||||
if (!$serverobj) {
|
||||
print "send typing update state: server not found";
|
||||
return;
|
||||
}
|
||||
$serverobj->command("^CTCP $nick TYPING $state");
|
||||
|
||||
$typers{$server}{$nick}{state_out} = $state;
|
||||
}
|
||||
|
||||
sub db_typing {
|
||||
print "------ Typers -----\n".Dumper(%typers);
|
||||
}
|
||||
|
||||
sub event_send_msg { # outgoing messages
|
||||
my ($msg, $server, $window) = @_;
|
||||
return unless $window and $window->{type} eq "QUERY";
|
||||
my $nick = $window->{name};
|
||||
|
||||
if ($debug) {
|
||||
print "send msg: $server->{tag}, $nick";
|
||||
}
|
||||
if ( exists($typers{$server->{tag}}{$nick}) and
|
||||
$typers{$server->{tag}}{$nick}{capability} == 1) {
|
||||
$typers{$server->{tag}}{$nick}{state_out} = "ACTIVE";
|
||||
Irssi::timeout_remove($typers{$server->{tag}}{$nick}{timer_tag_out});
|
||||
}
|
||||
|
||||
if (!exists( $typers{$server->{tag}}{$nick} ) ) {
|
||||
if ($debug) {
|
||||
print "send capa query to $nick.";
|
||||
}
|
||||
$typers{$server->{tag}}{$nick}{capability} = -1;
|
||||
if (my $serverobj = Irssi::server_find_tag($server->{tag})) {
|
||||
$serverobj->command("^CTCP $nick CAPAB TYPING");
|
||||
}
|
||||
}
|
||||
|
||||
if ( 0 and length($msg) > 0) {
|
||||
# ist das eine art <active/>
|
||||
$msg .= $oo;
|
||||
}
|
||||
|
||||
Irssi::signal_stop();
|
||||
Irssi::signal_remove('send text', 'event_send_msg');
|
||||
Irssi::signal_emit('send text', $msg, $server, $window);
|
||||
Irssi::signal_add_first('send text', 'event_send_msg');
|
||||
}
|
||||
|
||||
# Command
|
||||
Irssi::command_bind('db_typing','db_typing');
|
||||
|
||||
# Settings
|
||||
Irssi::settings_add_bool("typing_notice","send_typing",1);
|
||||
|
||||
# IRC events
|
||||
Irssi::signal_add_first("send text", "event_send_msg"); # Outgoing messages
|
||||
Irssi::signal_add("ctcp msg", "event_ctcp_msg");
|
||||
Irssi::signal_add("ctcp reply", "event_ctcp_reply");
|
||||
Irssi::signal_add("message private", "event_msg");
|
||||
Irssi::signal_add("message public", "event_msg");
|
||||
|
||||
# GUI events
|
||||
Irssi::signal_add_last('window changed', 'window_change');
|
||||
Irssi::signal_add_last('window destroyed', 'window_close');
|
||||
Irssi::signal_add_last('window created', 'window_open');
|
||||
Irssi::signal_add_last('gui key pressed', 'key_pressed');
|
||||
|
||||
# Statusbar
|
||||
Irssi::statusbar_item_register('typing_notice', undef, 'typing_notice');
|
||||
Irssi::statusbars_recreate_items();
|
||||
Loading…
Add table
Add a link
Reference in a new issue