aboutsummaryrefslogtreecommitdiff
path: root/.irssi/scripts/twtopic.pl
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--.irssi/scripts/twtopic.pl193
1 files changed, 0 insertions, 193 deletions
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' );
generated by cgit v1.2.3 (git 2.25.1) at 2024-11-15 13:24:01 +0000