diff options
| author | Tom Feist <shabble@metavore.org> | 2011-11-25 02:48:28 +0000 |
|---|---|---|
| committer | Tom Feist <shabble@metavore.org> | 2011-11-25 02:48:28 +0000 |
| commit | 1554c2aec40f6265d87622fc858bf710b909cc10 (patch) | |
| tree | 6b582968e8344abfadcb71f8ac32e072749d4ab0 | |
| parent | added growl_notify, as a stub for the growl notification interface (diff) | |
| download | irssi-scripts-1554c2aec40f6265d87622fc858bf710b909cc10.tar.gz irssi-scripts-1554c2aec40f6265d87622fc858bf710b909cc10.zip | |
update template with some generic debugging features.
| -rw-r--r-- | feature-tests/template.pl | 32 |
1 files changed, 32 insertions, 0 deletions
diff --git a/feature-tests/template.pl b/feature-tests/template.pl index a49d742..a5f59fa 100644 --- a/feature-tests/template.pl +++ b/feature-tests/template.pl @@ -67,3 +67,35 @@ our %IRSSI = ( license => 'MIT', updated => '$DATE' ); + +my $NAME = $IRSSI{name}; +my $DEBUG = 0; + +sub DEBUG () { $DEBUG } + +sub _debug_print { + my ($msg) = @_; + Irssi::active_window()->print($msg); +} + +sub sig_setup_changed { + $DEBUG = Irssi::settings_get_bool($NAME . '_debug'); + _debug_print($NAME . ': debug enabled') if $DEBUG; +} + +sub init { + Irssi::theme_register + ([ + verbatim => '[$*]', + script_loaded => 'Loaded script {hilight $0} v$1', + ]); + Irssi::settings_add_bool($NAME, $NAME . '_debug', 0); + Irssi::signal_add('setup changed', \&sig_setup_changed); + + sig_setup_changed(); + + Irssi::printformat(Irssi::MSGLEVEL_CLIENTCRAP, + 'script_loaded', $NAME, $VERSION); +} + +init(); |