diff options
author | Tom Feist <shabble@cowu.be> | 2010-08-04 17:52:35 +0000 |
---|---|---|
committer | Tom Feist <shabble@cowu.be> | 2010-08-04 17:52:35 +0000 |
commit | 011c65a31356c33a8f3b406f6cf57da41e21756e (patch) | |
tree | 355fac9ab64a118eada3372c9a33a74950140936 | |
parent | initial add of mirc_colour_popup.pl (diff) | |
download | irssi-scripts-011c65a31356c33a8f3b406f6cf57da41e21756e.tar.gz irssi-scripts-011c65a31356c33a8f3b406f6cf57da41e21756e.zip |
some stuff with colour popups
-rwxr-xr-x[-rw-r--r--] | colour-popup/colour_popup.pl | 6 | ||||
-rw-r--r-- | docs/Irssi.pod | 65 | ||||
-rw-r--r-- | docs/Signals.pod | 3 | ||||
-rw-r--r-- | history-search/rl_history_search.pl | 1 | ||||
-rw-r--r-- | prompt_info/prompt_info.pl | 2 | ||||
-rw-r--r-- | test/irssi/config | 7 | ||||
-rw-r--r-- | test/irssi/default.theme | 2 |
7 files changed, 45 insertions, 41 deletions
diff --git a/colour-popup/colour_popup.pl b/colour-popup/colour_popup.pl index b12c4f6..037d106 100644..100755 --- a/colour-popup/colour_popup.pl +++ b/colour-popup/colour_popup.pl @@ -5,7 +5,7 @@ # # usage: # -# after loading the script, add the statusbar item somewhere convenient: +# after loading the script, add the statusbar item somewhere convenient: # /statusbar window add -after barstart colours # @@ -21,7 +21,7 @@ $VERSION = "1.0"; name => "mirc_colour_popup", description => "Shows a mIRC-style colour popup when you hit ^C.", license => "Public Domain", - changed => "9.26.2008", + changed => "31/7/2010", ); @@ -36,7 +36,7 @@ sub colours_sb { if( $vis ) { $txt = join " ", map { "\%$colours[$_]$_" } 0 .. 15; } - $item->default_handler($get_size_only, "{sb $txt}", undef, 1); + $item->default_handler($get_size_only, "\%0{sb $txt}", undef, 1); } diff --git a/docs/Irssi.pod b/docs/Irssi.pod index 5fa8413..eba846e 100644 --- a/docs/Irssi.pod +++ b/docs/Irssi.pod @@ -2,7 +2,7 @@ __END__ =head1 NAME -Irssi.pm +Irssi =head1 DESCRIPTION @@ -83,7 +83,6 @@ For example: =head1 METHODS - =head2 Accessors =head3 C<active_win> @@ -100,8 +99,12 @@ returns the currently active L<Irssi::Server> in active window. =head3 C<windows> +C<my @windows = Irssi::windows();> returns a list of all L<windows|Irssi::UI::Window>. +When called in scalar context C<my $win = Irssi::windows();>, only the first +window is returned. + =head3 C<servers> returns a list of all L<servers|Irssi::Server>. @@ -383,33 +386,6 @@ Settings are a way to permanently store values that your script may wish to use. They are also easily manipulable by the user through the C</SET> command, making them a good way to allow configuration of your script. -=head3 Creating New Settings - -If a setting does not currently exist, it must first be registered with Irssi -using one of the C<settings_add> functions. - -=head4 C<settings_add_str $section, $key, $def> - -=head4 C<settings_add_int $section, $key, $def> - -=head4 C<settings_add_bool $section, $key, $def> - -=head4 C<settings_add_time $section, $key, $def> - -=head4 C<settings_add_level $section, $key, $def> - -=head4 C<settings_add_size $section, $key, $def> - -Each of the above functions operates in the same way, but creates a different -data type. For each function, C<$section> is a string describing the -group the entry falls into, C<$key> is the name of the setting. The key must -be a single string, and typically multiple words are separated by underscores. - -The final parameter, C<$def>, is the default value of this setting. It should -correspond to the type of the setting being created. - -B<TODO: move this list to another section?> - The following list summarises the data types available: =over @@ -444,9 +420,10 @@ B<TODO: can different specifiers be combined?> The value is stored internally as a number of milliseconds. Since it is stored as an C<signed int>, it will overflow at 2^31 ms, or approximately 24 days. - Times longer than this are considered invalid. +The default specifier if none are specified is I<seconds>. + =item C<level> An irssi Messagelevel. See C</HELP LEVELS> for a full list and description, or @@ -461,6 +438,34 @@ scheme, rather than the decimal C<$x * 1000> system. =back +=head3 Creating New Settings + +If a setting does not currently exist, it must first be registered with Irssi +using one of the C<settings_add> functions. + +=head4 C<settings_add_str $section, $key, $def> + +=head4 C<settings_add_int $section, $key, $def> + +=head4 C<settings_add_bool $section, $key, $def> + +=head4 C<settings_add_time $section, $key, $def> + +=head4 C<settings_add_level $section, $key, $def> + +=head4 C<settings_add_size $section, $key, $def> + +Each of the above functions operates in the same way, but creates a different +data type. For each function, C<$section> is a string describing the +group the entry falls into, C<$key> is the name of the setting. The key must +be a single string, and typically multiple words are separated by underscores. + +The final parameter, C<$def>, is the default value of this setting. It should +correspond to the type of the setting being created. + +B<TODO: move this list to another section?> + + =head3 Retrieving Settings =head4 C<settings_get_str $key> diff --git a/docs/Signals.pod b/docs/Signals.pod index f3d18b9..f12dd7f 100644 --- a/docs/Signals.pod +++ b/docs/Signals.pod @@ -2089,6 +2089,9 @@ B<TODO: Check ordering of arguments from/to here> =back +B<TODO: does this fire if you dont' change windows? (eg: send a switch commandf +for the window you're already on) + =item C<"window changed automatic"> =over diff --git a/history-search/rl_history_search.pl b/history-search/rl_history_search.pl index 09493f9..83ff934 100644 --- a/history-search/rl_history_search.pl +++ b/history-search/rl_history_search.pl @@ -212,6 +212,7 @@ sub handle_keypress { } update_history_matches(); update_history_prompt(); + update_input(); Irssi::signal_stop(); return; diff --git a/prompt_info/prompt_info.pl b/prompt_info/prompt_info.pl index aa52a81..342b62c 100644 --- a/prompt_info/prompt_info.pl +++ b/prompt_info/prompt_info.pl @@ -44,6 +44,8 @@ Irssi::expando_create('prompt_additional', \&expando_prompt, {}); sub expando_prompt { my ($server, $witem, $arg) = @_; return $prompt_additional_content; + #return Irssi::current_theme->format_expand("{sb + #$prompt_additional_content}", 0x0f); } sub redraw_prompts { diff --git a/test/irssi/config b/test/irssi/config index 6b46771..1e0d97c 100644 --- a/test/irssi/config +++ b/test/irssi/config @@ -278,13 +278,6 @@ keyboard = ( data = "se print defined(Irssi::gui_input_set(\"hello\"))?1:0"; }, { key = "meta-x"; id = "command"; data = "history_search "; }, - { - key = "M-g"; - id = "command"; - data = "se print defined(Irssi::gui_input_set(\"hello\"))?1:0"; - }, { key = "^Z"; id = "command"; data = "echo moo"; }, - { key = "^O"; id = "command"; data = "echo moo"; }, - { key = "^o"; id = "command"; data = "echo moo"; }, { key = "^R"; id = "command"; data = "history_search_start "; } ); diff --git a/test/irssi/default.theme b/test/irssi/default.theme index 357a98e..a5471c8 100644 --- a/test/irssi/default.theme +++ b/test/irssi/default.theme @@ -250,7 +250,7 @@ abstracts = { # default background for all statusbars. You can also give # the default foreground color for statusbar items. - sb_background = "%5%w"; + sb_background = "%0%w"; # default backround for "default" statusbar group #sb_default_bg = "%4"; |