diff options
Diffstat (limited to 'scripts/wisestamp.pl')
| -rw-r--r-- | scripts/wisestamp.pl | 75 |
1 files changed, 75 insertions, 0 deletions
diff --git a/scripts/wisestamp.pl b/scripts/wisestamp.pl new file mode 100644 index 0000000..5e0e373 --- /dev/null +++ b/scripts/wisestamp.pl @@ -0,0 +1,75 @@ +################################# +# WISESTAMP MANUAL # +################################# +# # +# /set wisestamp_indent [num] # +# # +################################# + +use Irssi; +use strict; +use vars qw($VERSION %IRSSI); + +$VERSION = "1.1"; +%IRSSI = ( + authors => 'Antti Ruokomäki', + contact => 'antti.ruokomaki@mbnet.fi', + name => 'wisestamp', + description => 'If timestamp_timeout is used, the text '. + 'will be indented when the stamp is hidden', + license => 'Public Domain', + changed => 'Wed Apr 12 22:46:00 2006' + ); + + +my $timeout; +my $indent_str; + +# $inprogress prevents infinite printint loops +my $inprogress = 0; + +# The main function +sub show_stamp_shadow { + + return if ($inprogress + || $timeout == '0' + || Irssi::settings_get_bool('timestamps') == 0); + + $inprogress = 1; + + my ($destination, $text, $stripped) = @_; + my $last_stamp = $destination->{window}->{last_timestamp}; + my $time_from_last_stamp = time() - $last_stamp; + + # Add indent if timestamp is hidden + if( $time_from_last_stamp < $timeout ) { + $text = $indent_str.$text; + } + + # Output the manipulated text + Irssi::signal_emit('print text', $destination, $text, $stripped); + $inprogress = 0; + Irssi::signal_stop(); +} + + +# Reset settings on startup and when settings change +sub check_settings { + + # Recalculate the indent string + my $indent = Irssi::settings_get_int('wisestamp_indent'); + $indent_str = ''; + for (my $count=0; $count<$indent; $count++) { + $indent_str .= ' '; + } + + # Check out the timeout + $timeout = Irssi::settings_get_str('timestamp_timeout'); +} + + +Irssi::settings_add_int('wisestamp', 'wisestamp_indent', 5); +Irssi::signal_add('setup changed' , \&check_settings); +Irssi::signal_add('print text' , \&show_stamp_shadow); + +check_settings();
\ No newline at end of file |