weechat: update scripts + configs

diff --git a/weechat/iset.conf b/weechat/iset.conf
index d583b8f05589b827da174441be09973cea0ecf87..3056c5442cfe7dd511564dad05d8c5808df1ecb7 100644 (file)
--- a/weechat/iset.conf
+++ b/weechat/iset.conf
@@ -12,6 +12,8 @@ option_selected = white
 type = brown
 type_selected = yellow
 value = cyan
 type = brown
 type_selected = yellow
 value = cyan

+value_diff = magenta
+value_diff_selected = lightmagenta

 value_selected = lightcyan
 value_undef = green
 value_undef_selected = lightgreen
 value_selected = lightcyan
 value_undef = green
 value_undef_selected = lightgreen

diff --git a/weechat/perl/buffers.pl b/weechat/perl/buffers.pl
index d4d17c2fa7c98a18b43eed88edbe04048b7de5c2..c8935c409b745f458d4efe8677fcc71b2f12f8ed 100644 (file)
--- a/weechat/perl/buffers.pl
+++ b/weechat/perl/buffers.pl
@@ -20,6 +20,8 @@
 #
 # History:
 #
 #
 # History:
 #

+# 2014-04-05, Sebastien Helleu <flashcode@flashtux.org>:
+#     v4.6: add support of hidden buffers (WeeChat >= 0.4.4)

 # 2014-01-01, Sebastien Helleu <flashcode@flashtux.org>:
 #     v4.5: add option "mouse_move_buffer"
 # 2013-12-11, Sebastien Helleu <flashcode@flashtux.org>:
 # 2014-01-01, Sebastien Helleu <flashcode@flashtux.org>:
 #     v4.5: add option "mouse_move_buffer"
 # 2013-12-11, Sebastien Helleu <flashcode@flashtux.org>:


@@ -151,29 +153,30 @@
 
 use strict;
 use Encode qw( decode encode );
 
 use strict;
 use Encode qw( decode encode );

-# -------------------------------[ internal ]-------------------------------------
+# -----------------------------[ internal ]-------------------------------------

 my $SCRIPT_NAME = "buffers";
 my $SCRIPT_NAME = "buffers";

-my $SCRIPT_VERSION = "4.5";
+my $SCRIPT_VERSION = "4.6";

 
 my $BUFFERS_CONFIG_FILE_NAME = "buffers";
 my $buffers_config_file;
 my $cmd_buffers_whitelist= "buffers_whitelist";
 my $cmd_buffers_detach   = "buffers_detach";
 
 
 my $BUFFERS_CONFIG_FILE_NAME = "buffers";
 my $buffers_config_file;
 my $cmd_buffers_whitelist= "buffers_whitelist";
 my $cmd_buffers_detach   = "buffers_detach";
 

-my %mouse_keys          = ("\@item(buffers):button1*"    => "hsignal:buffers_mouse",     # catch all left mouse button gestures
-                           "\@item(buffers):button2*"     => "hsignal:buffers_mouse");    # catch all right mouse button gestures
+my %mouse_keys = ("\@item(buffers):button1*" => "hsignal:buffers_mouse",
+                  "\@item(buffers):button2*" => "hsignal:buffers_mouse");

 my %options;
 my %options;

-my %hotlist_level       = (0 => "low", 1 => "message", 2 => "private", 3 => "highlight");
-my @whitelist_buffers   = ();
+my %hotlist_level = (0 => "low", 1 => "message", 2 => "private", 3 => "highlight");
+my @whitelist_buffers = ();

 my @immune_detach_buffers= ();
 my @detach_buffer_immediately= ();
 my @immune_detach_buffers= ();
 my @detach_buffer_immediately= ();

-my @buffers_focus       = ();
-my %buffers_timer       = ();
-my %Hooks               = ();
+my @buffers_focus = ();
+my %buffers_timer = ();
+my %Hooks = ();

 
 # --------------------------------[ init ]--------------------------------------
 
 # --------------------------------[ init ]--------------------------------------

-weechat::register($SCRIPT_NAME, "Sebastien Helleu <flashcode\@flashtux.org>", $SCRIPT_VERSION,
-                  "GPL3", "Sidebar with list of buffers", "shutdown_cb", "");
+weechat::register($SCRIPT_NAME, "Sebastien Helleu <flashcode\@flashtux.org>",
+                  $SCRIPT_VERSION, "GPL3",
+                  "Sidebar with list of buffers", "shutdown_cb", "");

 my $weechat_version = weechat::info_get("version_number", "") || 0;
 
 buffers_config_init();
 my $weechat_version = weechat::info_get("version_number", "") || 0;
 
 buffers_config_init();


@@ -186,7 +189,7 @@ weechat::bar_new($SCRIPT_NAME, "0", "0", "root", "", "left", "columns_vertical",
 
 if ( check_bar_item() == 0 )
 {
 
 if ( check_bar_item() == 0 )
 {

-    weechat::command("","/bar show " . $SCRIPT_NAME) if ( weechat::config_boolean($options{"toggle_bar"}) eq 1 );
+    weechat::command("", "/bar show " . $SCRIPT_NAME) if ( weechat::config_boolean($options{"toggle_bar"}) eq 1 );

 }
 
 weechat::hook_signal("buffer_opened", "buffers_signal_buffer", "");
 }
 
 weechat::hook_signal("buffer_opened", "buffers_signal_buffer", "");


@@ -196,6 +199,8 @@ weechat::hook_signal("buffer_unmerged", "buffers_signal_buffer", "");
 weechat::hook_signal("buffer_moved", "buffers_signal_buffer", "");
 weechat::hook_signal("buffer_renamed", "buffers_signal_buffer", "");
 weechat::hook_signal("buffer_switch", "buffers_signal_buffer", "");
 weechat::hook_signal("buffer_moved", "buffers_signal_buffer", "");
 weechat::hook_signal("buffer_renamed", "buffers_signal_buffer", "");
 weechat::hook_signal("buffer_switch", "buffers_signal_buffer", "");

+weechat::hook_signal("buffer_hidden", "buffers_signal_buffer", "");  # WeeChat >= 0.4.4
+weechat::hook_signal("buffer_unhidden", "buffers_signal_buffer", "");  # WeeChat >= 0.4.4

 
 weechat::hook_signal("window_switch", "buffers_signal_buffer", "");
 weechat::hook_signal("hotlist_changed", "buffers_signal_hotlist", "");
 
 weechat::hook_signal("window_switch", "buffers_signal_buffer", "");
 weechat::hook_signal("hotlist_changed", "buffers_signal_hotlist", "");


@@ -210,42 +215,51 @@ if ($weechat_version >= 0x00030600)
     weechat::key_bind("mouse", \%mouse_keys);
 }
 
     weechat::key_bind("mouse", \%mouse_keys);
 }
 

-weechat::hook_command(  $cmd_buffers_whitelist,
-                        "add/del current buffer to/from buffers whitelist",
-                        "[add] || [del] || [reset]",
-
-                        "  add: add current buffer in configuration file\n".
-                        "  del: delete current buffer from configuration file\n".
-                        "reset: reset all buffers from configuration file (no confirmation!)\n\n".
-                        "Examples:\n".
-                        "/$cmd_buffers_whitelist add\n",
-                        "add %-||".
-                        "del %-||".
-                        "reset %-",
-                        "buffers_cmd_whitelist", "");
-weechat::hook_command(  $cmd_buffers_detach,
-                        "add/del current buffer to/from buffers detach",
-                        "[add] || [del] || [reset]",
-
-                        "  add: add current buffer in configuration file\n".
-                        "  del: delete current buffer from configuration file\n".
-                        "reset: reset all buffers from configuration file (no confirmation!)\n\n".
-                        "Examples:\n".
-                        "/$cmd_buffers_detach add\n",
-                        "add %-||".
-                        "del %-||".
-                        "reset %-",
-                        "buffers_cmd_detach", "");
+weechat::hook_command($cmd_buffers_whitelist,
+                      "add/del current buffer to/from buffers whitelist",
+                      "[add] || [del] || [reset]",
+                      "  add: add current buffer in configuration file\n".
+                      "  del: delete current buffer from configuration file\n".
+                      "reset: reset all buffers from configuration file ".
+                      "(no confirmation!)\n\n".
+                      "Examples:\n".
+                      "/$cmd_buffers_whitelist add\n",
+                      "add %-||".
+                      "del %-||".
+                      "reset %-",
+                      "buffers_cmd_whitelist", "");
+weechat::hook_command($cmd_buffers_detach,
+                      "add/del current buffer to/from buffers detach",
+                      "[add] || [del] || [reset]",
+                      "  add: add current buffer in configuration file\n".
+                      "  del: delete current buffer from configuration file\n".
+                      "reset: reset all buffers from configuration file ".
+                      "(no confirmation!)\n\n".
+                      "Examples:\n".
+                      "/$cmd_buffers_detach add\n",
+                      "add %-||".
+                      "del %-||".
+                      "reset %-",
+                      "buffers_cmd_detach", "");

 
 if ($weechat_version >= 0x00030800)
 {
     weechat::hook_config("buffers.look.detach", "hook_timer_detach", "");
 
 if ($weechat_version >= 0x00030800)
 {
     weechat::hook_config("buffers.look.detach", "hook_timer_detach", "");

-    $Hooks{timer_detach} = weechat::hook_timer( weechat::config_integer( $options{"detach"}) * 1000, 60, 0, "buffers_signal_hotlist", "") if ( weechat::config_integer( $options{"detach"}) > 0 );
+    if (weechat::config_integer($options{"detach"}) > 0)
+    {
+        $Hooks{timer_detach} = weechat::hook_timer(weechat::config_integer($options{"detach"}) * 1000,
+                                                   60, 0, "buffers_signal_hotlist", "");
+    }

 }
 
 }
 

-    weechat::hook_config("buffers.look.show_lag", "hook_timer_lag", "");
+weechat::hook_config("buffers.look.show_lag", "hook_timer_lag", "");

 
 

-    $Hooks{timer_lag} = weechat::hook_timer( weechat::config_integer(weechat::config_get("irc.network.lag_refresh_interval")) * 1000, 0, 0, "buffers_signal_hotlist", "") if ( weechat::config_boolean($options{"show_lag"}) );
+if (weechat::config_boolean($options{"show_lag"}))
+{
+    $Hooks{timer_lag} = weechat::hook_timer(
+        weechat::config_integer(weechat::config_get("irc.network.lag_refresh_interval")) * 1000,
+        0, 0, "buffers_signal_hotlist", "");
+}

 
 # -------------------------------- [ command ] --------------------------------
 sub buffers_cmd_whitelist
 
 # -------------------------------- [ command ] --------------------------------
 sub buffers_cmd_whitelist


@@ -265,9 +279,9 @@ my ( $data, $buffer, $args ) = @_;
     if ( $args eq "add" )
     {
         return weechat::WEECHAT_RC_OK if ( grep /^$buffers_name$/, @buffers_list );     # check if buffer already in list
     if ( $args eq "add" )
     {
         return weechat::WEECHAT_RC_OK if ( grep /^$buffers_name$/, @buffers_list );     # check if buffer already in list

-        push @buffers_list,( $buffers_name );
+        push @buffers_list, ( $buffers_name );

         my $buffers_list = &create_whitelist(\@buffers_list);
         my $buffers_list = &create_whitelist(\@buffers_list);

-        weechat::config_option_set( weechat::config_get("buffers.look.whitelist_buffers"), $buffers_list,1 );
+        weechat::config_option_set( weechat::config_get("buffers.look.whitelist_buffers"), $buffers_list, 1);

         weechat::print(weechat::current_buffer(), "buffer \"$buffers_name\" added to buffers whitelist");
     }
     elsif ( $args eq "del" )
         weechat::print(weechat::current_buffer(), "buffer \"$buffers_name\" added to buffers whitelist");
     }
     elsif ( $args eq "del" )


@@ -275,13 +289,13 @@ my ( $data, $buffer, $args ) = @_;
         return weechat::WEECHAT_RC_OK unless ( grep /^$buffers_name$/, @buffers_list );     # check if buffer is in list
         @buffers_list = grep {$_ ne $buffers_name} @buffers_list;                           # delete entry
         my $buffers_list = &create_whitelist(\@buffers_list);
         return weechat::WEECHAT_RC_OK unless ( grep /^$buffers_name$/, @buffers_list );     # check if buffer is in list
         @buffers_list = grep {$_ ne $buffers_name} @buffers_list;                           # delete entry
         my $buffers_list = &create_whitelist(\@buffers_list);

-        weechat::config_option_set( weechat::config_get("buffers.look.whitelist_buffers"), $buffers_list,1 );
+        weechat::config_option_set( weechat::config_get("buffers.look.whitelist_buffers"), $buffers_list, 1);

         weechat::print(weechat::current_buffer(), "buffer \"$buffers_name\" deleted from buffers whitelist");
     }
     elsif ( $args eq "reset" )
     {
         return weechat::WEECHAT_RC_OK if ( $buffers_whitelist eq "" );
         weechat::print(weechat::current_buffer(), "buffer \"$buffers_name\" deleted from buffers whitelist");
     }
     elsif ( $args eq "reset" )
     {
         return weechat::WEECHAT_RC_OK if ( $buffers_whitelist eq "" );

-        weechat::config_option_set( weechat::config_get("buffers.look.whitelist_buffers"), "",1 );
+        weechat::config_option_set( weechat::config_get("buffers.look.whitelist_buffers"), "", 1);

         weechat::print(weechat::current_buffer(), "buffers whitelist is empty, now...");
     }
     return weechat::WEECHAT_RC_OK;
         weechat::print(weechat::current_buffer(), "buffers whitelist is empty, now...");
     }
     return weechat::WEECHAT_RC_OK;


@@ -304,9 +318,9 @@ sub buffers_cmd_detach
     if ( $args eq "add" )
     {
         return weechat::WEECHAT_RC_OK if ( grep /^$buffers_name$/, @buffers_list );     # check if buffer already in list
     if ( $args eq "add" )
     {
         return weechat::WEECHAT_RC_OK if ( grep /^$buffers_name$/, @buffers_list );     # check if buffer already in list

-        push @buffers_list,( $buffers_name );
+        push @buffers_list, ( $buffers_name );

         my $buffers_list = &create_whitelist(\@buffers_list);
         my $buffers_list = &create_whitelist(\@buffers_list);

-        weechat::config_option_set( weechat::config_get("buffers.look.immune_detach_buffers"), $buffers_list,1 );
+        weechat::config_option_set( weechat::config_get("buffers.look.immune_detach_buffers"), $buffers_list, 1);

         weechat::print(weechat::current_buffer(), "buffer \"$buffers_name\" added to immune detach buffers");
     }
     elsif ( $args eq "del" )
         weechat::print(weechat::current_buffer(), "buffer \"$buffers_name\" added to immune detach buffers");
     }
     elsif ( $args eq "del" )


@@ -314,13 +328,13 @@ sub buffers_cmd_detach
         return weechat::WEECHAT_RC_OK unless ( grep /^$buffers_name$/, @buffers_list );     # check if buffer is in list
         @buffers_list = grep {$_ ne $buffers_name} @buffers_list;                           # delete entry
         my $buffers_list = &create_whitelist(\@buffers_list);
         return weechat::WEECHAT_RC_OK unless ( grep /^$buffers_name$/, @buffers_list );     # check if buffer is in list
         @buffers_list = grep {$_ ne $buffers_name} @buffers_list;                           # delete entry
         my $buffers_list = &create_whitelist(\@buffers_list);

-        weechat::config_option_set( weechat::config_get("buffers.look.immune_detach_buffers"), $buffers_list,1 );
+        weechat::config_option_set( weechat::config_get("buffers.look.immune_detach_buffers"), $buffers_list, 1);

         weechat::print(weechat::current_buffer(), "buffer \"$buffers_name\" deleted from immune detach buffers");
     }
     elsif ( $args eq "reset" )
     {
         return weechat::WEECHAT_RC_OK if ( $immune_detach_buffers eq "" );
         weechat::print(weechat::current_buffer(), "buffer \"$buffers_name\" deleted from immune detach buffers");
     }
     elsif ( $args eq "reset" )
     {
         return weechat::WEECHAT_RC_OK if ( $immune_detach_buffers eq "" );

-        weechat::config_option_set( weechat::config_get("buffers.look.immune_detach_buffers"), "",1 );
+        weechat::config_option_set( weechat::config_get("buffers.look.immune_detach_buffers"), "", 1);

         weechat::print(weechat::current_buffer(), "immune detach buffers is empty, now...");
     }
     return weechat::WEECHAT_RC_OK;
         weechat::print(weechat::current_buffer(), "immune detach buffers is empty, now...");
     }
     return weechat::WEECHAT_RC_OK;


@@ -334,7 +348,8 @@ sub create_whitelist
         {
             $buffers_list .= $_ .",";
         }
         {
             $buffers_list .= $_ .",";
         }

-        chop $buffers_list;                                                               # remove last ","
+        # remove last ","
+        chop $buffers_list;

     return $buffers_list;
 }
 
     return $buffers_list;
 }
 


@@ -383,86 +398,423 @@ sub buffers_config_write
 }
 sub buffers_config_reload_cb
 {
 }
 sub buffers_config_reload_cb
 {

-    my ($data,$config_file) = ($_[0], $_[1]);
+    my ($data, $config_file) = ($_[0], $_[1]);

     return weechat::config_reload($config_file)
 }
 sub buffers_config_init
 {
     return weechat::config_reload($config_file)
 }
 sub buffers_config_init
 {

-    $buffers_config_file = weechat::config_new($BUFFERS_CONFIG_FILE_NAME,"buffers_config_reload_cb","");
+    $buffers_config_file = weechat::config_new($BUFFERS_CONFIG_FILE_NAME,
+                                               "buffers_config_reload_cb", "");

     return if ($buffers_config_file eq "");
 
 my %default_options_color =
     return if ($buffers_config_file eq "");
 
 my %default_options_color =

-("color_current_fg" => ["current_fg", "color", "foreground color for current buffer", "", 0, 0, "lightcyan", "lightcyan", 0, "", "", "buffers_signal_config", "", "", ""],
- "color_current_bg" => ["current_bg", "color", "background color for current buffer", "", 0, 0, "red", "red", 0, "", "", "buffers_signal_config", "", "", ""],
- "color_default_fg" => ["default_fg", "color", "default foreground color for buffer name", "", 0, 0, "default", "default", 0, "", "", "buffers_signal_config", "", "", ""],
- "color_default_bg" => ["default_bg", "color", "default background color for buffer name", "", 0, 0, "default", "default", 0, "", "", "buffers_signal_config", "", "", ""],
- "color_hotlist_highlight_fg" => ["hotlist_highlight_fg", "color", "change foreground color of buffer name if a highlight messaged received", "", 0, 0, "magenta", "magenta", 0, "", "", "buffers_signal_config", "", "", ""],
- "color_hotlist_highlight_bg" => ["hotlist_highlight_bg", "color", "change background color of buffer name if a highlight messaged received", "", 0, 0, "default", "default", 0, "", "", "buffers_signal_config", "", "", ""],
- "color_hotlist_low_fg" => ["hotlist_low_fg", "color", "change foreground color of buffer name if a low message received", "", 0, 0, "white", "white", 0, "", "", "buffers_signal_config", "", "", ""],
- "color_hotlist_low_bg" => ["hotlist_low_bg", "color", "change background color of buffer name if a low message received", "", 0, 0,
-        "default", "default", 0, "", "", "buffers_signal_config", "", "", ""],
- "color_hotlist_message_fg" => ["hotlist_message_fg", "color", "change foreground color of buffer name if a normal message received", "", 0, 0, "yellow", "yellow", 0, "", "", "buffers_signal_config", "", "", ""],
- "color_hotlist_message_bg" => ["hotlist_message_bg", "color", "change background color of buffer name if a normal message received", "", 0, 0, "default", "default", 0, "", "", "buffers_signal_config", "", "", ""],
- "color_hotlist_private_fg" => ["hotlist_private_fg", "color", "change foreground color of buffer name if a private message received", "", 0, 0, "lightgreen", "lightgreen", 0, "", "", "buffers_signal_config", "", "", ""],
- "color_hotlist_private_bg" => ["hotlist_private_bg", "color", "change background color of buffer name if a private message received", "", 0, 0, "default", "default", 0, "", "", "buffers_signal_config", "", "", ""],
- "color_number" => ["number", "color", "color for buffer number", "", 0, 0, "lightgreen", "lightgreen", 0, "", "", "buffers_signal_config", "", "", ""],
- "color_number_char" => ["number_char", "color", "color for buffer number char", "", 0, 0, "lightgreen", "lightgreen", 0, "", "", "buffers_signal_config", "", "", ""],
- "color_whitelist_default_fg" => ["whitelist_default_fg", "color", "default foreground color for whitelist buffer name", "", 0, 0, "", "", 0, "", "", "buffers_signal_config", "", "", ""],
- "color_whitelist_default_bg" => ["whitelist_default_bg", "color", "default background color for whitelist buffer name", "", 0, 0, "", "", 0, "", "", "buffers_signal_config", "", "", ""],
- "color_whitelist_low_fg" => ["whitelist_low_fg", "color", "low color of whitelist buffer name", "", 0, 0, "", "", 0, "", "", "buffers_signal_config", "", "", ""],
- "color_whitelist_low_bg" => ["whitelist_low_bg", "color", "low color of whitelist buffer name", "", 0, 0, "", "", 0, "", "", "buffers_signal_config", "", "", ""],
- "color_whitelist_message_fg" => ["whitelist_message_fg", "color", "message color of whitelist buffer name", "", 0, 0, "", "", 0, "", "", "buffers_signal_config", "", "", ""],
- "color_whitelist_message_bg" => ["whitelist_message_bg", "color", "message color of whitelist buffer name", "", 0, 0, "", "", 0, "", "", "buffers_signal_config", "", "", ""],
- "color_whitelist_private_fg" => ["whitelist_private_fg", "color", "private color of whitelist buffer name", "", 0, 0, "", "", 0, "", "", "buffers_signal_config", "", "", ""],
- "color_whitelist_private_bg" => ["whitelist_private_bg", "color", "private color of whitelist buffer name", "", 0, 0, "", "", 0, "", "", "buffers_signal_config", "", "", ""],
- "color_whitelist_highlight_fg" => ["whitelist_highlight_fg", "color", "highlight color of whitelist buffer name", "", 0, 0, "", "", 0, "", "", "buffers_signal_config", "", "", ""],
- "color_whitelist_highlight_bg" => ["whitelist_highlight_bg", "color", "highlight color of whitelist buffer name", "", 0, 0, "", "", 0, "", "", "buffers_signal_config", "", "", ""],
- "color_none_channel_fg" => ["none_channel_fg", "color", "foreground color for none channel buffer (e.g.: core/server/plugin buffer)", "", 0, 0, "default", "default", 0, "", "", "buffers_signal_config", "", "", ""],
- "color_none_channel_bg" => ["none_channel_bg", "color", "background color for none channel buffer (e.g.: core/server/plugin buffer)", "", 0, 0, "default", "default", 0, "", "", "buffers_signal_config", "", "", ""],
- "queries_default_fg" => ["queries_default_fg", "color", "foreground color for query buffer without message", "", 0, 0, "default", "default", 0, "", "", "buffers_signal_config", "", "", ""],
- "queries_default_bg" => ["queries_default_bg", "color", "background color for query buffer without message", "", 0, 0, "default", "default", 0, "", "", "buffers_signal_config", "", "", ""],
- "queries_message_fg" => ["queries_message_fg", "color", "foreground color for query buffer with unread message", "", 0, 0, "default", "default", 0, "", "", "buffers_signal_config", "", "", ""],
- "queries_message_bg" => ["queries_message_bg", "color", "background color for query buffer with unread message", "", 0, 0, "default", "default", 0, "", "", "buffers_signal_config", "", "", ""],
- "queries_highlight_fg" => ["queries_highlight_fg", "color", "foreground color for query buffer with unread highlight", "", 0, 0, "default", "default", 0, "", "", "buffers_signal_config", "", "", ""],
- "queries_highlight_bg" => ["queries_highlight_bg", "color", "background color for query buffer with unread highlight", "", 0, 0, "default", "default", 0, "", "", "buffers_signal_config", "", "", ""],
- "color_prefix_bufname" => ["prefix_bufname", "color", "color for prefix of buffer name", "", 0, 0, "default", "default", 0, "", "", "buffers_signal_config", "", "", ""],
- "color_suffix_bufname" => ["suffix_bufname", "color", "color for suffix of buffer name", "", 0, 0, "default", "default", 0, "", "", "buffers_signal_config", "", "", ""],
+("color_current_fg" => [
+     "current_fg", "color",
+     "foreground color for current buffer",
+     "", 0, 0, "lightcyan", "lightcyan", 0,
+     "", "", "buffers_signal_config", "", "", ""
+ ],
+ "color_current_bg" => [
+     "current_bg", "color",
+     "background color for current buffer",
+     "", 0, 0, "red", "red", 0,
+     "", "", "buffers_signal_config", "", "", ""
+ ],
+ "color_default_fg" => [
+     "default_fg", "color",
+     "default foreground color for buffer name",
+     "", 0, 0, "default", "default", 0,
+     "", "", "buffers_signal_config", "", "", ""
+ ],
+ "color_default_bg" => [
+     "default_bg", "color",
+     "default background color for buffer name",
+     "", 0, 0, "default", "default", 0,
+     "", "", "buffers_signal_config", "", "", ""
+ ],
+ "color_hotlist_highlight_fg" => [
+     "hotlist_highlight_fg", "color",
+     "change foreground color of buffer name if a highlight messaged received",
+     "", 0, 0, "magenta", "magenta", 0,
+     "", "", "buffers_signal_config", "", "", ""
+ ],
+ "color_hotlist_highlight_bg" => [
+     "hotlist_highlight_bg", "color",
+     "change background color of buffer name if a highlight messaged received",
+     "", 0, 0, "default", "default", 0,
+     "", "", "buffers_signal_config", "", "", ""
+ ],
+ "color_hotlist_low_fg" => [
+     "hotlist_low_fg", "color",
+     "change foreground color of buffer name if a low message received",
+     "", 0, 0, "white", "white", 0,
+     "", "", "buffers_signal_config", "", "", ""
+ ],
+ "color_hotlist_low_bg" => [
+     "hotlist_low_bg", "color",
+     "change background color of buffer name if a low message received",
+     "", 0, 0, "default", "default", 0,
+     "", "", "buffers_signal_config", "", "", ""
+ ],
+ "color_hotlist_message_fg" => [
+     "hotlist_message_fg", "color",
+     "change foreground color of buffer name if a normal message received",
+     "", 0, 0, "yellow", "yellow", 0,
+     "", "", "buffers_signal_config", "", "", ""
+ ],
+ "color_hotlist_message_bg" => [
+     "hotlist_message_bg", "color",
+     "change background color of buffer name if a normal message received",
+     "", 0, 0, "default", "default", 0,
+     "", "", "buffers_signal_config", "", "", ""
+ ],
+ "color_hotlist_private_fg" => [
+     "hotlist_private_fg", "color",
+     "change foreground color of buffer name if a private message received",
+     "", 0, 0, "lightgreen", "lightgreen", 0,
+     "", "", "buffers_signal_config", "", "", ""
+ ],
+ "color_hotlist_private_bg" => [
+     "hotlist_private_bg", "color",
+     "change background color of buffer name if a private message received",
+     "", 0, 0, "default", "default", 0,
+     "", "", "buffers_signal_config", "", "", ""
+ ],
+ "color_number" => [
+     "number", "color",
+     "color for buffer number",
+     "", 0, 0, "lightgreen", "lightgreen", 0,
+     "", "", "buffers_signal_config", "", "", ""
+ ],
+ "color_number_char" => [
+     "number_char", "color",
+     "color for buffer number char",
+     "", 0, 0, "lightgreen", "lightgreen", 0,
+     "", "", "buffers_signal_config", "", "", ""
+ ],
+ "color_whitelist_default_fg" => [
+     "whitelist_default_fg", "color",
+     "default foreground color for whitelist buffer name",
+     "", 0, 0, "", "", 0,
+     "", "", "buffers_signal_config", "", "", ""
+ ],
+ "color_whitelist_default_bg" => [
+     "whitelist_default_bg", "color",
+     "default background color for whitelist buffer name",
+     "", 0, 0, "", "", 0,
+     "", "", "buffers_signal_config", "", "", ""
+ ],
+ "color_whitelist_low_fg" => [
+     "whitelist_low_fg", "color",
+     "low color of whitelist buffer name",
+     "", 0, 0, "", "", 0,
+     "", "", "buffers_signal_config", "", "", ""
+ ],
+ "color_whitelist_low_bg" => [
+     "whitelist_low_bg", "color",
+     "low color of whitelist buffer name",
+     "", 0, 0, "", "", 0,
+     "", "", "buffers_signal_config", "", "", ""
+ ],
+ "color_whitelist_message_fg" => [
+     "whitelist_message_fg", "color",
+     "message color of whitelist buffer name",
+     "", 0, 0, "", "", 0,
+     "", "", "buffers_signal_config", "", "", ""
+ ],
+ "color_whitelist_message_bg" => [
+     "whitelist_message_bg", "color",
+     "message color of whitelist buffer name",
+     "", 0, 0, "", "", 0,
+     "", "", "buffers_signal_config", "", "", ""
+ ],
+ "color_whitelist_private_fg" => [
+     "whitelist_private_fg", "color",
+     "private color of whitelist buffer name",
+     "", 0, 0, "", "", 0,
+     "", "", "buffers_signal_config", "", "", ""
+ ],
+ "color_whitelist_private_bg" => [
+     "whitelist_private_bg", "color",
+     "private color of whitelist buffer name",
+     "", 0, 0, "", "", 0,
+     "", "", "buffers_signal_config", "", "", ""
+ ],
+ "color_whitelist_highlight_fg" => [
+     "whitelist_highlight_fg", "color",
+     "highlight color of whitelist buffer name",
+     "", 0, 0, "", "", 0,
+     "", "", "buffers_signal_config", "", "", ""
+ ],
+ "color_whitelist_highlight_bg" => [
+     "whitelist_highlight_bg", "color",
+     "highlight color of whitelist buffer name",
+     "", 0, 0, "", "", 0,
+     "", "", "buffers_signal_config", "", "", ""
+ ],
+ "color_none_channel_fg" => [
+     "none_channel_fg", "color",
+     "foreground color for none channel buffer (e.g.: core/server/plugin ".
+     "buffer)",
+     "", 0, 0, "default", "default", 0,
+     "", "", "buffers_signal_config", "", "", ""
+ ],
+ "color_none_channel_bg" => [
+     "none_channel_bg", "color",
+     "background color for none channel buffer (e.g.: core/server/plugin ".
+     "buffer)",
+     "", 0, 0, "default", "default", 0,
+     "", "", "buffers_signal_config", "", "", ""
+ ],
+ "queries_default_fg" => [
+     "queries_default_fg", "color",
+     "foreground color for query buffer without message",
+     "", 0, 0, "default", "default", 0,
+     "", "", "buffers_signal_config", "", "", ""
+ ],
+ "queries_default_bg" => [
+     "queries_default_bg", "color",
+     "background color for query buffer without message",
+     "", 0, 0, "default", "default", 0,
+     "", "", "buffers_signal_config", "", "", ""
+ ],
+ "queries_message_fg" => [
+     "queries_message_fg", "color",
+     "foreground color for query buffer with unread message",
+     "", 0, 0, "default", "default", 0,
+     "", "", "buffers_signal_config", "", "", ""
+ ],
+ "queries_message_bg" => [
+     "queries_message_bg", "color",
+     "background color for query buffer with unread message",
+     "", 0, 0, "default", "default", 0,
+     "", "", "buffers_signal_config", "", "", ""
+ ],
+ "queries_highlight_fg" => [
+     "queries_highlight_fg", "color",
+     "foreground color for query buffer with unread highlight",
+     "", 0, 0, "default", "default", 0,
+     "", "", "buffers_signal_config", "", "", ""
+ ],
+ "queries_highlight_bg" => [
+     "queries_highlight_bg", "color",
+     "background color for query buffer with unread highlight",
+     "", 0, 0, "default", "default", 0,
+     "", "", "buffers_signal_config", "", "", ""
+ ],
+ "color_prefix_bufname" => [
+     "prefix_bufname", "color",
+     "color for prefix of buffer name",
+     "", 0, 0, "default", "default", 0,
+     "", "", "buffers_signal_config", "", "", ""
+ ],
+ "color_suffix_bufname" => [
+     "suffix_bufname", "color",
+     "color for suffix of buffer name",
+     "", 0, 0, "default", "default", 0,
+     "", "", "buffers_signal_config", "", "", ""
+ ],

 );
 
 my %default_options_look =
 (
 );
 
 my %default_options_look =
 (

- "hotlist_counter" => ["hotlist_counter", "boolean", "show number of message for the buffer (this option needs WeeChat >= 0.3.5). The relevant option for notification is \"weechat.look.buffer_notify_default\"", "", 0, 0, "off", "off", 0, "", "", "buffers_signal_config", "", "", ""],
- "show_lag" => ["show_lag", "boolean", "show lag behind servername. This option is using \"irc.color.item_lag_finished\", \"irc.network.lag_min_show\" and \"irc.network.lag_refresh_interval\"", "", 0, 0, "off", "off", 0, "", "", "buffers_signal_config", "", "", ""],
- "look_whitelist_buffers" => ["whitelist_buffers", "string", "comma separated list of buffers for using a differnt color scheme (for example: freenode.#weechat,freenode.#weechat-fr)", "", 0, 0, "", "", 0, "", "", "buffers_signal_config_whitelist", "", "", ""],
- "hide_merged_buffers" => ["hide_merged_buffers", "integer", "hide merged buffers. The value determines which merged buffers should be hidden, keepserver meaning 'all except server buffers'. Other values correspondent to the buffer type.", "server|channel|private|keepserver|all|none", 0, 0, "none", "none", 0, "", "", "buffers_signal_config", "", "", ""],
- "indenting" => ["indenting", "integer", "use indenting for channel and query buffers. This option only takes effect if bar is left/right positioned", "off|on|under_name", 0, 0, "off", "off", 0, "", "", "buffers_signal_config", "", "", ""],
- "indenting_number" => ["indenting_number", "boolean", "use indenting for numbers. This option only takes effect if bar is left/right positioned", "", 0, 0, "on", "on", 0, "", "", "buffers_signal_config", "", "", ""],
- "short_names" => ["short_names", "boolean", "display short names (remove text before first \".\" in buffer name)", "", 0, 0, "on", "on", 0, "", "", "buffers_signal_config", "", "", ""],
- "show_number" => ["show_number", "boolean", "display channel number in front of buffername", "", 0, 0, "on", "on", 0, "", "", "buffers_signal_config", "", "", ""],
- "show_number_char" => ["number_char", "string", "display a char behind channel number", "", 0, 0, ".", ".", 0, "", "", "buffers_signal_config", "", "", ""],
- "show_prefix_bufname" => ["prefix_bufname", "string", "prefix displayed in front of buffername", "", 0, 0, "", "", 0, "", "", "buffers_signal_config", "", "", ""],
- "show_suffix_bufname" => ["suffix_bufname", "string", "suffix displayed at end of buffername", "", 0, 0, "", "", 0, "", "", "buffers_signal_config", "", "", ""],
- "show_prefix" => ["prefix", "boolean", "displays your prefix for channel in front of buffername", "", 0, 0, "off", "off", 0, "", "", "buffers_signal_config", "", "", ""],
- "show_prefix_empty" => ["prefix_empty", "boolean", "use a placeholder for channels without prefix", "", 0, 0, "on", "on", 0, "", "",  "buffers_signal_config", "", "", ""],
- "show_prefix_query" => ["prefix_for_query", "string", "prefix displayed in front of query buffer", "", 0, 0, "", "", 0, "", "", "buffers_signal_config", "", "", ""],
- "sort" => ["sort", "integer", "sort buffer-list by \"number\" or \"name\"", "number|name", 0, 0, "number", "number", 0, "", "", "buffers_signal_config", "", "", ""],
- "core_to_front" => ["core_to_front", "boolean", "core buffer and buffers with free content will be listed first. Take only effect if buffer sort is by name", "", 0, 0, "off", "off", 0, "", "", "buffers_signal_config", "", "", ""],
- "jump_prev_next_visited_buffer" => ["jump_prev_next_visited_buffer", "boolean", "jump to previously or next visited buffer if you click with left/right mouse button on currently visiting buffer", "", 0, 0, "off", "off", 0, "", "", "buffers_signal_config", "", "", ""],
- "name_size_max" => ["name_size_max", "integer", "maximum size of buffer name. 0 means no limitation", "", 0, 256, 0, 0, 0, "", "", "buffers_signal_config", "", "", ""],
- "name_crop_suffix" => ["name_crop_suffix", "string", "contains an optional char(s) that is appended when buffer name is shortened", "", 0, 0, "+", "+", 0, "", "", "buffers_signal_config", "", "", ""],
- "detach" => ["detach", "integer", "detach channel from buffers list after a specific period of time (in seconds) without action (weechat ≥ 0.3.8 required) (0 means \"off\")", "", 0, 31536000, 0, "number", 0, "", "", "buffers_signal_config", "", "", ""],
- "immune_detach_buffers" => ["immune_detach_buffers", "string", "comma separated list of buffers to NOT automatically detatch. Allows \"*\" wildcard. Ex: \"BitlBee,freenode.*\"", "", 0, 0, "", "", 0, "", "", "buffers_signal_config_immune_detach_buffers", "", "", ""],
- "detach_query" => ["detach_query", "boolean", "query buffer will be detachted", "", 0, 0, "off", "off", 0, "", "", "buffers_signal_config", "", "", ""],
- "detach_buffer_immediately" => ["detach_buffer_immediately", "string", "comma separated list of buffers to detach immediately. A query and highlight message will attach buffer again. Allows \"*\" wildcard. Ex: \"BitlBee,freenode.*\"", "", 0, 0, "", "", 0, "", "", "buffers_signal_config_detach_buffer_immediately", "", "", ""],
- "detach_free_content" => ["detach_free_content", "boolean", "buffers with free content will be detached (Ex: iset, chanmon)", "", 0, 0, "off", "off", 0, "", "", "buffers_signal_config", "", "", ""],
- "detach_displayed_buffers" => ["detach_displayed_buffers", "boolean", "buffers displayed in a (split) window will be detached", "", 0, 0, "on", "on", 0, "", "", "buffers_signal_config", "", "", ""],
- "detach_display_window_number" => ["detach_display_window_number", "boolean", "window number will be add, behind buffer name (this option takes only effect with \"detach_displayed_buffers\" option)", "", 0, 0, "off", "off", 0, "", "", "buffers_signal_config", "", "", ""],
- "mark_inactive" => ["mark_inactive", "boolean", "if option is \"on\", inactive buffers (those you are not in) will have parentesis around them. An inactive buffer will not be detached.", "", 0, 0, "off", "off", 0, "", "", "buffers_signal_config", "", "", ""],
- "toggle_bar" => ["toogle_bar", "boolean", "if option is \"on\", buffers bar will hide/show when script is (un)loaded.", "", 0, 0, "on", "on", 0, "", "", "buffers_signal_config", "", "", ""],
- "mouse_move_buffer" => ["mouse_move_buffer", "boolean", "if option is \"on\", mouse gestures (drag & drop) can move buffers in list.", "", 0, 0, "on", "on", 0, "", "", "buffers_signal_config", "", "", ""],
+ "hotlist_counter" => [
+     "hotlist_counter", "boolean",
+     "show number of message for the buffer (this option needs WeeChat >= ".
+     "0.3.5). The relevant option for notification is \"weechat.look.".
+     "buffer_notify_default\"",
+     "", 0, 0, "off", "off", 0,
+     "", "", "buffers_signal_config", "", "", ""
+ ],
+ "show_lag" => [
+     "show_lag", "boolean",
+     "show lag behind servername. This option is using \"irc.color.".
+     "item_lag_finished\", ".
+     "\"irc.network.lag_min_show\" and \"irc.network.lag_refresh_interval\"",
+     "", 0, 0, "off", "off", 0,
+     "", "", "buffers_signal_config", "", "", ""
+ ],
+ "look_whitelist_buffers" => [
+     "whitelist_buffers", "string",
+     "comma separated list of buffers for using a different color scheme ".
+     "(for example: freenode.#weechat,freenode.#weechat-fr)",
+     "", 0, 0, "", "", 0,
+     "", "", "buffers_signal_config_whitelist", "", "", ""
+ ],
+ "hide_merged_buffers" => [
+     "hide_merged_buffers", "integer",
+     "hide merged buffers. The value determines which merged buffers should ".
+     "be hidden, keepserver meaning 'all except server buffers'. Other values ".
+     "correspondent to the buffer type.",
+     "server|channel|private|keepserver|all|none", 0, 0, "none", "none", 0,
+     "", "", "buffers_signal_config", "", "", ""
+ ],
+ "indenting" => [
+     "indenting", "integer", "use indenting for channel and query buffers. ".
+     "This option only takes effect if bar is left/right positioned",
+     "off|on|under_name", 0, 0, "off", "off", 0,
+     "", "", "buffers_signal_config", "", "", ""
+ ],
+ "indenting_number" => [
+     "indenting_number", "boolean",
+     "use indenting for numbers. This option only takes effect if bar is ".
+     "left/right positioned",
+     "", 0, 0, "on", "on", 0,
+     "", "", "buffers_signal_config", "", "", ""
+ ],
+ "short_names" => [
+     "short_names", "boolean",
+     "display short names (remove text before first \".\" in buffer name)",
+     "", 0, 0, "on", "on", 0,
+     "", "", "buffers_signal_config", "", "", ""
+ ],
+ "show_number" => [
+     "show_number", "boolean",
+     "display channel number in front of buffername",
+     "", 0, 0, "on", "on", 0,
+     "", "", "buffers_signal_config", "", "", ""
+ ],
+ "show_number_char" => [
+     "number_char", "string",
+     "display a char behind channel number",
+     "", 0, 0, ".", ".", 0,
+     "", "", "buffers_signal_config", "", "", ""
+ ],
+ "show_prefix_bufname" => [
+     "prefix_bufname", "string",
+     "prefix displayed in front of buffername",
+     "", 0, 0, "", "", 0,
+     "", "", "buffers_signal_config", "", "", ""
+ ],
+ "show_suffix_bufname" => [
+     "suffix_bufname", "string",
+     "suffix displayed at end of buffername",
+     "", 0, 0, "", "", 0,
+     "", "", "buffers_signal_config", "", "", ""
+ ],
+ "show_prefix" => [
+     "prefix", "boolean",
+     "displays your prefix for channel in front of buffername",
+     "", 0, 0, "off", "off", 0,
+     "", "", "buffers_signal_config", "", "", ""
+ ],
+ "show_prefix_empty" => [
+     "prefix_empty", "boolean",
+     "use a placeholder for channels without prefix",
+     "", 0, 0, "on", "on", 0,
+     "", "",  "buffers_signal_config", "", "", ""
+ ],
+ "show_prefix_query" => [
+     "prefix_for_query", "string",
+     "prefix displayed in front of query buffer",
+     "", 0, 0, "", "", 0,
+     "", "", "buffers_signal_config", "", "", ""
+ ],
+ "sort" => [
+     "sort", "integer",
+     "sort buffer-list by \"number\" or \"name\"",
+     "number|name", 0, 0, "number", "number", 0,
+     "", "", "buffers_signal_config", "", "", ""
+ ],
+ "core_to_front" => [
+     "core_to_front", "boolean",
+     "core buffer and buffers with free content will be listed first. ".
+     "Take only effect if buffer sort is by name",
+     "", 0, 0, "off", "off", 0,
+     "", "", "buffers_signal_config", "", "", ""
+ ],
+ "jump_prev_next_visited_buffer" => [
+     "jump_prev_next_visited_buffer", "boolean",
+     "jump to previously or next visited buffer if you click with ".
+     "left/right mouse button on currently visiting buffer",
+     "", 0, 0, "off", "off", 0,
+     "", "", "buffers_signal_config", "", "", ""
+ ],
+ "name_size_max" => [
+     "name_size_max", "integer",
+     "maximum size of buffer name. 0 means no limitation",
+     "", 0, 256, 0, 0, 0,
+     "", "", "buffers_signal_config", "", "", ""
+ ],
+ "name_crop_suffix" => [
+     "name_crop_suffix", "string",
+     "contains an optional char(s) that is appended when buffer name is ".
+     "shortened",
+     "", 0, 0, "+", "+", 0,
+     "", "", "buffers_signal_config", "", "", ""
+ ],
+ "detach" => [
+     "detach", "integer",
+     "detach channel from buffers list after a specific period of time ".
+     "(in seconds) without action (weechat ≥ 0.3.8 required) (0 means \"off\")",
+     "", 0, 31536000, 0, "number", 0,
+     "", "", "buffers_signal_config", "", "", ""
+ ],
+ "immune_detach_buffers" => [
+     "immune_detach_buffers", "string",
+     "comma separated list of buffers to NOT automatically detatch. ".
+     "Allows \"*\" wildcard. Ex: \"BitlBee,freenode.*\"",
+     "", 0, 0, "", "", 0,
+     "", "", "buffers_signal_config_immune_detach_buffers", "", "", ""
+ ],
+ "detach_query" => [
+     "detach_query", "boolean",
+     "query buffer will be detachted",
+     "", 0, 0, "off", "off", 0,
+     "", "", "buffers_signal_config", "", "", ""
+ ],
+ "detach_buffer_immediately" => [
+     "detach_buffer_immediately", "string",
+     "comma separated list of buffers to detach immediately. A query and ".
+     "highlight message will attach buffer again. Allows \"*\" wildcard. ".
+     "Ex: \"BitlBee,freenode.*\"",
+     "", 0, 0, "", "", 0,
+     "", "", "buffers_signal_config_detach_buffer_immediately", "", "", ""
+ ],
+ "detach_free_content" => [
+     "detach_free_content", "boolean",
+     "buffers with free content will be detached (Ex: iset, chanmon)",
+     "", 0, 0, "off", "off", 0,
+     "", "", "buffers_signal_config", "", "", ""
+ ],
+ "detach_displayed_buffers" => [
+     "detach_displayed_buffers", "boolean",
+     "buffers displayed in a (split) window will be detached",
+     "", 0, 0, "on", "on", 0,
+     "", "", "buffers_signal_config", "", "", ""
+ ],
+ "detach_display_window_number" => [
+     "detach_display_window_number", "boolean",
+     "window number will be add, behind buffer name (this option takes only ".
+     "effect with \"detach_displayed_buffers\" option)",
+     "", 0, 0, "off", "off", 0,
+     "", "", "buffers_signal_config", "", "", ""
+ ],
+ "mark_inactive" => [
+     "mark_inactive", "boolean",
+     "if option is \"on\", inactive buffers (those you are not in) will have ".
+     "parentheses around them. An inactive buffer will not be detached.",
+     "", 0, 0, "off", "off", 0,
+     "", "", "buffers_signal_config", "", "", ""
+ ],
+ "toggle_bar" => [
+     "toogle_bar", "boolean",
+     "if option is \"on\", buffers bar will hide/show when script is ".
+     "(un)loaded.",
+     "", 0, 0, "on", "on", 0,
+     "", "", "buffers_signal_config", "", "", ""
+ ],
+ "mouse_move_buffer" => [
+     "mouse_move_buffer", "boolean",
+     "if option is \"on\", mouse gestures (drag & drop) can move buffers in list.",
+     "", 0, 0, "on", "on", 0,
+     "", "", "buffers_signal_config", "", "", ""
+ ],

 );
     # section "color"
 );
     # section "color"

-    my $section_color = weechat::config_new_section($buffers_config_file,"color", 0, 0, "", "", "", "", "", "", "", "", "", "");
+    my $section_color = weechat::config_new_section(
+        $buffers_config_file,
+        "color", 0, 0, "", "", "", "", "", "", "", "", "", "");

     if ($section_color eq "")
     {
         weechat::config_free($buffers_config_file);
     if ($section_color eq "")
     {
         weechat::config_free($buffers_config_file);


@@ -470,16 +822,30 @@ my %default_options_look =
     }
     foreach my $option (keys %default_options_color)
     {
     }
     foreach my $option (keys %default_options_color)
     {

-        $options{$option} = weechat::config_new_option($buffers_config_file, $section_color,
-        $default_options_color{$option}[0],$default_options_color{$option}[1],$default_options_color{$option}[2],
-        $default_options_color{$option}[3],$default_options_color{$option}[4],$default_options_color{$option}[5],
-        $default_options_color{$option}[6],$default_options_color{$option}[7],$default_options_color{$option}[8],
-        $default_options_color{$option}[9],$default_options_color{$option}[10],$default_options_color{$option}[11],
-        $default_options_color{$option}[12],$default_options_color{$option}[13],$default_options_color{$option}[14]);
+        $options{$option} = weechat::config_new_option(
+            $buffers_config_file,
+            $section_color,
+            $default_options_color{$option}[0],
+            $default_options_color{$option}[1],
+            $default_options_color{$option}[2],
+            $default_options_color{$option}[3],
+            $default_options_color{$option}[4],
+            $default_options_color{$option}[5],
+            $default_options_color{$option}[6],
+            $default_options_color{$option}[7],
+            $default_options_color{$option}[8],
+            $default_options_color{$option}[9],
+            $default_options_color{$option}[10],
+            $default_options_color{$option}[11],
+            $default_options_color{$option}[12],
+            $default_options_color{$option}[13],
+            $default_options_color{$option}[14]);

     }
 
     # section "look"
     }
 
     # section "look"

-    my $section_look = weechat::config_new_section($buffers_config_file,"look", 0, 0, "", "", "", "", "", "", "", "", "", "");
+    my $section_look = weechat::config_new_section(
+        $buffers_config_file,
+        "look", 0, 0, "", "", "", "", "", "", "", "", "", "");

     if ($section_look eq "")
     {
         weechat::config_free($buffers_config_file);
     if ($section_look eq "")
     {
         weechat::config_free($buffers_config_file);


@@ -487,13 +853,25 @@ my %default_options_look =
     }
     foreach my $option (keys %default_options_look)
     {
     }
     foreach my $option (keys %default_options_look)
     {

-        $options{$option} = weechat::config_new_option($buffers_config_file, $section_look,
-        $default_options_look{$option}[0],$default_options_look{$option}[1],$default_options_look{$option}[2],
-        $default_options_look{$option}[3],$default_options_look{$option}[4],$default_options_look{$option}[5],
-        $default_options_look{$option}[6],$default_options_look{$option}[7],$default_options_look{$option}[8],
-        $default_options_look{$option}[9],$default_options_look{$option}[10],$default_options_look{$option}[11],
-        $default_options_look{$option}[12],$default_options_look{$option}[13],$default_options_look{$option}[14],
-        $default_options_look{$option}[15]);
+        $options{$option} = weechat::config_new_option(
+            $buffers_config_file,
+            $section_look,
+            $default_options_look{$option}[0],
+            $default_options_look{$option}[1],
+            $default_options_look{$option}[2],
+            $default_options_look{$option}[3],
+            $default_options_look{$option}[4],
+            $default_options_look{$option}[5],
+            $default_options_look{$option}[6],
+            $default_options_look{$option}[7],
+            $default_options_look{$option}[8],
+            $default_options_look{$option}[9],
+            $default_options_look{$option}[10],
+            $default_options_look{$option}[11],
+            $default_options_look{$option}[12],
+            $default_options_look{$option}[13],
+            $default_options_look{$option}[14],
+            $default_options_look{$option}[15]);

     }
 }
 
     }
 }
 


@@ -542,6 +920,11 @@ sub build_buffers
     $infolist = weechat::infolist_get("buffer", "", "");
     while (weechat::infolist_next($infolist))
     {
     $infolist = weechat::infolist_get("buffer", "", "");
     while (weechat::infolist_next($infolist))
     {

+        # ignore hidden buffers (WeeChat >= 0.4.4)
+        if ($weechat_version >= 0x00040400)
+        {
+            next if (weechat::infolist_integer($infolist, "hidden"));
+        }

         my $buffer;
         my $number = weechat::infolist_integer($infolist, "number");
         if ($number ne $old_number)
         my $buffer;
         my $number = weechat::infolist_integer($infolist, "number");
         if ($number ne $old_number)


@@ -570,19 +953,19 @@ sub build_buffers
         $buffer->{"name"} = weechat::infolist_string($infolist, "name");
         $buffer->{"short_name"} = weechat::infolist_string($infolist, "short_name");
         $buffer->{"full_name"} = $buffer->{"plugin_name"}.".".$buffer->{"name"};
         $buffer->{"name"} = weechat::infolist_string($infolist, "name");
         $buffer->{"short_name"} = weechat::infolist_string($infolist, "short_name");
         $buffer->{"full_name"} = $buffer->{"plugin_name"}.".".$buffer->{"name"};

-        $buffer->{"type"} = weechat::buffer_get_string($buffer->{"pointer"},"localvar_type");
-#        weechat::print("",$buffer->{"type"});
+        $buffer->{"type"} = weechat::buffer_get_string($buffer->{"pointer"}, "localvar_type");
+        #weechat::print("", $buffer->{"type"});

 
         # check if buffer is active (or maybe a /part, /kick channel)
         if ($buffer->{"type"} eq "channel" and weechat::config_boolean( $options{"mark_inactive"} ) eq 1)
         {
 
         # check if buffer is active (or maybe a /part, /kick channel)
         if ($buffer->{"type"} eq "channel" and weechat::config_boolean( $options{"mark_inactive"} ) eq 1)
         {

-            my $server = weechat::buffer_get_string($buffer->{"pointer"},"localvar_server");
-            my $channel = weechat::buffer_get_string($buffer->{"pointer"},"localvar_channel");
-            my $infolist_channel = weechat::infolist_get("irc_channel","",$server.",".$channel);
+            my $server = weechat::buffer_get_string($buffer->{"pointer"}, "localvar_server");
+            my $channel = weechat::buffer_get_string($buffer->{"pointer"}, "localvar_channel");
+            my $infolist_channel = weechat::infolist_get("irc_channel", "", $server.",".$channel);

             if ($infolist_channel)
             {
                 weechat::infolist_next($infolist_channel);
             if ($infolist_channel)
             {
                 weechat::infolist_next($infolist_channel);

-                $buffer->{"nicks_count"} = weechat::infolist_integer($infolist_channel,"nicks_count");
+                $buffer->{"nicks_count"} = weechat::infolist_integer($infolist_channel, "nicks_count");

             }else
             {
                 $buffer->{"nicks_count"} = 0;
             }else
             {
                 $buffer->{"nicks_count"} = 0;


@@ -660,7 +1043,7 @@ sub build_buffers
                 if ( $buffer->{"num_displayed"} eq 1
                     and weechat::config_boolean($options{"detach_displayed_buffers"}) eq 0 )
                 {
                 if ( $buffer->{"num_displayed"} eq 1
                     and weechat::config_boolean($options{"detach_displayed_buffers"}) eq 0 )
                 {

-                    my $infolist_window = weechat::infolist_get("window","","");
+                    my $infolist_window = weechat::infolist_get("window", "", "");

                     while (weechat::infolist_next($infolist_window))
                     {
                         my $buffer_ptr = weechat::infolist_pointer($infolist_window, "buffer");
                     while (weechat::infolist_next($infolist_window))
                     {
                         my $buffer_ptr = weechat::infolist_pointer($infolist_window, "buffer");


@@ -974,14 +1357,14 @@ sub build_buffers
             {
                 $str .= encode("UTF-8", substr(decode("UTF-8", $buffer->{"short_name"}), 0, weechat::config_integer($options{"name_size_max"})));
                 $str .= weechat::color(weechat::config_color( $options{"color_number_char"})).weechat::config_string($options{"name_crop_suffix"}) if (length($buffer->{"short_name"}) > weechat::config_integer($options{"name_size_max"}));
             {
                 $str .= encode("UTF-8", substr(decode("UTF-8", $buffer->{"short_name"}), 0, weechat::config_integer($options{"name_size_max"})));
                 $str .= weechat::color(weechat::config_color( $options{"color_number_char"})).weechat::config_string($options{"name_crop_suffix"}) if (length($buffer->{"short_name"}) > weechat::config_integer($options{"name_size_max"}));

-                $str .= add_inactive_parentless($buffer->{"type"},$buffer->{"nicks_count"});
-                $str .= add_hotlist_count($buffer->{"pointer"},%hotlist);
+                $str .= add_inactive_parentless($buffer->{"type"}, $buffer->{"nicks_count"});
+                $str .= add_hotlist_count($buffer->{"pointer"}, %hotlist);

             }
             else
             {
                 $str .= $buffer->{"short_name"};
             }
             else
             {
                 $str .= $buffer->{"short_name"};

-                $str .= add_inactive_parentless($buffer->{"type"},$buffer->{"nicks_count"});
-                $str .= add_hotlist_count($buffer->{"pointer"},%hotlist);
+                $str .= add_inactive_parentless($buffer->{"type"}, $buffer->{"nicks_count"});
+                $str .= add_hotlist_count($buffer->{"pointer"}, %hotlist);

             }
         }
         else
             }
         }
         else


@@ -990,21 +1373,21 @@ sub build_buffers
             {
                 $str .= encode("UTF-8", substr(decode("UTF-8", $buffer->{"name"},), 0, weechat::config_integer($options{"name_size_max"})));
                 $str .= weechat::color(weechat::config_color( $options{"color_number_char"})).weechat::config_string($options{"name_crop_suffix"}) if (length($buffer->{"name"}) > weechat::config_integer($options{"name_size_max"}));
             {
                 $str .= encode("UTF-8", substr(decode("UTF-8", $buffer->{"name"},), 0, weechat::config_integer($options{"name_size_max"})));
                 $str .= weechat::color(weechat::config_color( $options{"color_number_char"})).weechat::config_string($options{"name_crop_suffix"}) if (length($buffer->{"name"}) > weechat::config_integer($options{"name_size_max"}));

-                $str .= add_inactive_parentless($buffer->{"type"},$buffer->{"nicks_count"});
-                $str .= add_hotlist_count($buffer->{"pointer"},%hotlist);
+                $str .= add_inactive_parentless($buffer->{"type"}, $buffer->{"nicks_count"});
+                $str .= add_hotlist_count($buffer->{"pointer"}, %hotlist);

             }
             else
             {
                 $str .= $buffer->{"name"};
             }
             else
             {
                 $str .= $buffer->{"name"};

-                $str .= add_inactive_parentless($buffer->{"type"},$buffer->{"nicks_count"});
-                $str .= add_hotlist_count($buffer->{"pointer"},%hotlist);
+                $str .= add_inactive_parentless($buffer->{"type"}, $buffer->{"nicks_count"});
+                $str .= add_hotlist_count($buffer->{"pointer"}, %hotlist);

             }
         }
         if ( weechat::buffer_get_string($buffer->{"pointer"}, "localvar_type") eq "server" and weechat::config_boolean($options{"show_lag"}) eq 1)
         {
             my $color_lag = weechat::config_color(weechat::config_get("irc.color.item_lag_finished"));
             my $min_lag = weechat::config_integer(weechat::config_get("irc.network.lag_min_show"));
             }
         }
         if ( weechat::buffer_get_string($buffer->{"pointer"}, "localvar_type") eq "server" and weechat::config_boolean($options{"show_lag"}) eq 1)
         {
             my $color_lag = weechat::config_color(weechat::config_get("irc.color.item_lag_finished"));
             my $min_lag = weechat::config_integer(weechat::config_get("irc.network.lag_min_show"));

-            my $infolist_server = weechat::infolist_get("irc_server","",$buffer->{"short_name"});
+            my $infolist_server = weechat::infolist_get("irc_server", "", $buffer->{"short_name"});

             weechat::infolist_next($infolist_server);
             my $lag = (weechat::infolist_integer($infolist_server, "lag"));
             weechat::infolist_free($infolist_server);
             weechat::infolist_next($infolist_server);
             my $lag = (weechat::infolist_integer($infolist_server, "lag"));
             weechat::infolist_free($infolist_server);


@@ -1055,7 +1438,7 @@ return $str;
 
 sub add_hotlist_count
 {
 
 sub add_hotlist_count
 {

-my ($bufpointer,%hotlist) = @_;
+my ($bufpointer, %hotlist) = @_;

 
 return "" if ( weechat::config_boolean( $options{"hotlist_counter"} ) eq 0 or ($weechat_version < 0x00030500));   # off
 my $col_number_char = weechat::color(weechat::config_color( $options{"color_number_char"}) );
 
 return "" if ( weechat::config_boolean( $options{"hotlist_counter"} ) eq 0 or ($weechat_version < 0x00030500));   # off
 my $col_number_char = weechat::color(weechat::config_color( $options{"color_number_char"}) );


@@ -1240,7 +1623,7 @@ sub buffers_hsignal_mouse
             {
                 if ( $current_buffer eq $hash{"number"} )
                 {
             {
                 if ( $current_buffer eq $hash{"number"} )
                 {

-                    weechat::command("","/input jump_previously_visited_buffer");
+                    weechat::command("", "/input jump_previously_visited_buffer");

                 }
                 else
                 {
                 }
                 else
                 {


@@ -1261,7 +1644,7 @@ sub buffers_hsignal_mouse
     {
         if ( $current_buffer eq $hash{"number2"} )
         {
     {
         if ( $current_buffer eq $hash{"number2"} )
         {

-            weechat::command("","/input jump_next_visited_buffer");
+            weechat::command("", "/input jump_next_visited_buffer");

         }
     }
     else
         }
     }
     else


@@ -1343,7 +1726,7 @@ sub check_detach_buffer_immediately
 
 sub shutdown_cb
 {
 
 sub shutdown_cb
 {

-    weechat::command("","/bar hide " . $SCRIPT_NAME) if ( weechat::config_boolean($options{"toggle_bar"}) eq 1 );
+    weechat::command("", "/bar hide " . $SCRIPT_NAME) if ( weechat::config_boolean($options{"toggle_bar"}) eq 1 );

     return weechat::WEECHAT_RC_OK
 }
 
     return weechat::WEECHAT_RC_OK
 }
 


@@ -1354,7 +1737,7 @@ sub check_bar_item
     while (weechat::infolist_next($infolist))
     {
         my $bar_items = weechat::infolist_string($infolist, "items");
     while (weechat::infolist_next($infolist))
     {
         my $bar_items = weechat::infolist_string($infolist, "items");

-        if (index($bar_items,$SCRIPT_NAME) != -1)
+        if (index($bar_items, $SCRIPT_NAME) != -1)

         {
             my $name = weechat::infolist_string($infolist, "name");
             if ($name ne $SCRIPT_NAME)
         {
             my $name = weechat::infolist_string($infolist, "name");
             if ($name ne $SCRIPT_NAME)

diff --git a/weechat/perl/iset.pl b/weechat/perl/iset.pl
index 377b7c3608b4324eb7f06e49f0872d75acd45107..4b922eefbaacd346bd31b0108630bf07dda07542 100644 (file)
--- a/weechat/perl/iset.pl
+++ b/weechat/perl/iset.pl
@@ -19,6 +19,8 @@
 #
 # History:
 #
 #
 # History:
 #

+# 2014-01-30, stfn <stfnmd@gmail.com>:
+#     version 3.4: add new options "color_value_diff" and "color_value_diff_selected"

 # 2014-01-16, luz <ne.tetewi@gmail.com>:
 #     version 3.3: fix bug with column alignment in iset buffer when option
 #                  name contains unicode characters
 # 2014-01-16, luz <ne.tetewi@gmail.com>:
 #     version 3.3: fix bug with column alignment in iset buffer when option
 #                  name contains unicode characters


@@ -111,7 +113,7 @@
 use strict;
 
 my $PRGNAME = "iset";
 use strict;
 
 my $PRGNAME = "iset";

-my $VERSION = "3.3";
+my $VERSION = "3.4";

 my $DESCR   = "Interactive Set for configuration options";
 my $AUTHOR  = "Sebastien Helleu <flashcode\@flashtux.org>";
 my $LICENSE = "GPL3";
 my $DESCR   = "Interactive Set for configuration options";
 my $AUTHOR  = "Sebastien Helleu <flashcode\@flashtux.org>";
 my $LICENSE = "GPL3";


@@ -125,6 +127,7 @@ my @iset_focus = ();
 my @options_names = ();
 my @options_types = ();
 my @options_values = ();
 my @options_names = ();
 my @options_types = ();
 my @options_values = ();

+my @options_default_values = ();

 my @options_is_null = ();
 my $option_max_length = 0;
 my $current_line = 0;
 my @options_is_null = ();
 my $option_max_length = 0;
 my $current_line = 0;


@@ -328,6 +331,7 @@ sub iset_get_options
     @options_names = ();
     @options_types = ();
     @options_values = ();
     @options_names = ();
     @options_types = ();
     @options_values = ();

+    @options_default_values = ();

     @options_is_null = ();
     $option_max_length = 0;
     my %options_internal = ();
     @options_is_null = ();
     $option_max_length = 0;
     my %options_internal = ();


@@ -346,6 +350,7 @@ sub iset_get_options
         next if (weechat::config_boolean($options_iset{"show_plugin_description"}) == 0 and index ($name, "plugins.desc.") != -1);
         my $type = weechat::infolist_string($infolist, "type");
         my $value = weechat::infolist_string($infolist, "value");
         next if (weechat::config_boolean($options_iset{"show_plugin_description"}) == 0 and index ($name, "plugins.desc.") != -1);
         my $type = weechat::infolist_string($infolist, "type");
         my $value = weechat::infolist_string($infolist, "value");

+        my $default_value = weechat::infolist_string($infolist, "default_value");

         my $is_null = weechat::infolist_integer($infolist, "value_is_null");
         if ($search_mode == 3)
         {
         my $is_null = weechat::infolist_integer($infolist, "value_is_null");
         if ($search_mode == 3)
         {


@@ -354,6 +359,7 @@ sub iset_get_options
             {
                 $options_internal{$name}{"type"} = $type;
                 $options_internal{$name}{"value"} = $value;
             {
                 $options_internal{$name}{"type"} = $type;
                 $options_internal{$name}{"value"} = $value;

+                $options_internal{$name}{"default_value"} = $default_value;

                 $options_internal{$name}{"is_null"} = $is_null;
                 $option_max_length = length($name) if (length($name) > $option_max_length);
         $iset_struct{$key} = $options_internal{$name};
                 $options_internal{$name}{"is_null"} = $is_null;
                 $option_max_length = length($name) if (length($name) > $option_max_length);
         $iset_struct{$key} = $options_internal{$name};


@@ -364,6 +370,7 @@ sub iset_get_options
         {
             $options_internal{$name}{"type"} = $type;
             $options_internal{$name}{"value"} = $value;
         {
             $options_internal{$name}{"type"} = $type;
             $options_internal{$name}{"value"} = $value;

+            $options_internal{$name}{"default_value"} = $default_value;

             $options_internal{$name}{"is_null"} = $is_null;
             $option_max_length = length($name) if (length($name) > $option_max_length);
         $iset_struct{$key} = $options_internal{$name};
             $options_internal{$name}{"is_null"} = $is_null;
             $option_max_length = length($name) if (length($name) > $option_max_length);
         $iset_struct{$key} = $options_internal{$name};


@@ -378,6 +385,7 @@ sub iset_get_options
         push(@options_names, $name);
         push(@options_types, $options_internal{$name}{"type"});
         push(@options_values, $options_internal{$name}{"value"});
         push(@options_names, $name);
         push(@options_types, $options_internal{$name}{"type"});
         push(@options_values, $options_internal{$name}{"value"});

+        push(@options_default_values, $options_internal{$name}{"default_value"});

         push(@options_is_null, $options_internal{$name}{"is_null"});
     }
 }
         push(@options_is_null, $options_internal{$name}{"is_null"});
     }
 }


@@ -402,6 +410,7 @@ sub iset_search_values
     @options_names = ();
     @options_types = ();
     @options_values = ();
     @options_names = ();
     @options_types = ();
     @options_values = ();

+    @options_default_values = ();

     @options_is_null = ();
     $option_max_length = 0;
     my %options_internal = ();
     @options_is_null = ();
     $option_max_length = 0;
     my %options_internal = ();


@@ -414,12 +423,14 @@ sub iset_search_values
         my $type = weechat::infolist_string($infolist, "type");
         my $is_null = weechat::infolist_integer($infolist, "value_is_null");
         my $value = weechat::infolist_string($infolist, "value");
         my $type = weechat::infolist_string($infolist, "type");
         my $is_null = weechat::infolist_integer($infolist, "value_is_null");
         my $value = weechat::infolist_string($infolist, "value");

+        my $default_value = weechat::infolist_string($infolist, "default_value");

         if ($search_mode)
         {
             if ( grep /\Q$var_value/,lc($value) )
             {
                 $options_internal{$name}{"type"} = $type;
                 $options_internal{$name}{"value"} = $value;
         if ($search_mode)
         {
             if ( grep /\Q$var_value/,lc($value) )
             {
                 $options_internal{$name}{"type"} = $type;
                 $options_internal{$name}{"value"} = $value;

+                $options_internal{$name}{"default_value"} = $default_value;

                 $options_internal{$name}{"is_null"} = $is_null;
                 $option_max_length = length($name) if (length($name) > $option_max_length);
             }
                 $options_internal{$name}{"is_null"} = $is_null;
                 $option_max_length = length($name) if (length($name) > $option_max_length);
             }


@@ -431,6 +442,7 @@ sub iset_search_values
             {
                 $options_internal{$name}{"type"} = $type;
                 $options_internal{$name}{"value"} = $value;
             {
                 $options_internal{$name}{"type"} = $type;
                 $options_internal{$name}{"value"} = $value;

+                $options_internal{$name}{"default_value"} = $default_value;

                 $options_internal{$name}{"is_null"} = $is_null;
                 $option_max_length = length($name) if (length($name) > $option_max_length);
             }
                 $options_internal{$name}{"is_null"} = $is_null;
                 $option_max_length = length($name) if (length($name) > $option_max_length);
             }


@@ -443,6 +455,7 @@ sub iset_search_values
         push(@options_names, $name);
         push(@options_types, $options_internal{$name}{"type"});
         push(@options_values, $options_internal{$name}{"value"});
         push(@options_names, $name);
         push(@options_types, $options_internal{$name}{"type"});
         push(@options_values, $options_internal{$name}{"value"});

+        push(@options_default_values, $options_internal{$name}{"default_value"});

         push(@options_is_null, $options_internal{$name}{"is_null"});
     }
 }
         push(@options_is_null, $options_internal{$name}{"is_null"});
     }
 }


@@ -475,6 +488,10 @@ sub iset_refresh_line
             {
                 $color3 = weechat::color(weechat::config_color($options_iset{"color_value_undef"}));
             }
             {
                 $color3 = weechat::color(weechat::config_color($options_iset{"color_value_undef"}));
             }

+            elsif ($options_values[$y] ne $options_default_values[$y])
+            {
+                $color3 = weechat::color(weechat::config_color($options_iset{"color_value_diff"}));
+            }

             else
             {
                 $color3 = weechat::color(weechat::config_color($options_iset{"color_value"}));
             else
             {
                 $color3 = weechat::color(weechat::config_color($options_iset{"color_value"}));


@@ -487,6 +504,10 @@ sub iset_refresh_line
                 {
                     $color3 = weechat::color(weechat::config_color($options_iset{"color_value_undef_selected"}).",".weechat::config_color($options_iset{"color_bg_selected"}));
                 }
                 {
                     $color3 = weechat::color(weechat::config_color($options_iset{"color_value_undef_selected"}).",".weechat::config_color($options_iset{"color_bg_selected"}));
                 }

+                elsif ($options_values[$y] ne $options_default_values[$y])
+                {
+                    $color3 = weechat::color(weechat::config_color($options_iset{"color_value_diff_selected"}).",".weechat::config_color($options_iset{"color_bg_selected"}));
+                }

                 else
                 {
                     $color3 = weechat::color(weechat::config_color($options_iset{"color_value_selected"}).",".weechat::config_color($options_iset{"color_bg_selected"}));
                 else
                 {
                     $color3 = weechat::color(weechat::config_color($options_iset{"color_value_selected"}).",".weechat::config_color($options_iset{"color_bg_selected"}));


@@ -687,6 +708,7 @@ sub iset_config_cb
                 {
                     $options_types[$index] = weechat::infolist_string($infolist, "type");
                     $options_values[$index] = weechat::infolist_string($infolist, "value");
                 {
                     $options_types[$index] = weechat::infolist_string($infolist, "type");
                     $options_values[$index] = weechat::infolist_string($infolist, "value");

+                    $options_default_values[$index] = weechat::infolist_string($infolist, "default_value");

                     $options_is_null[$index] = weechat::infolist_integer($infolist, "value_is_null");
                     iset_refresh_line($index);
                     iset_title() if ($option_name eq "iset.look.show_current_line");
                     $options_is_null[$index] = weechat::infolist_integer($infolist, "value_is_null");
                     iset_refresh_line($index);
                     iset_title() if ($option_name eq "iset.look.show_current_line");


@@ -1233,6 +1255,14 @@ sub iset_config_init
         $iset_config_file, $section_color,
         "value_selected", "color", "Color for selected option value", "", 0, 0,
         "lightcyan", "lightcyan", 0, "", "", "full_refresh_cb", "", "", "");
         $iset_config_file, $section_color,
         "value_selected", "color", "Color for selected option value", "", 0, 0,
         "lightcyan", "lightcyan", 0, "", "", "full_refresh_cb", "", "", "");

+    $options_iset{"color_value_diff"} = weechat::config_new_option(
+        $iset_config_file, $section_color,
+        "value_diff", "color", "Color for option value different from default", "", 0, 0,
+        "magenta", "magenta", 0, "", "", "full_refresh_cb", "", "", "");
+    $options_iset{"color_value_diff_selected"} = weechat::config_new_option(
+        $iset_config_file, $section_color,
+        "value_diff_selected", "color", "Color for selected option value different from default", "", 0, 0,
+        "lightmagenta", "lightmagenta", 0, "", "", "full_refresh_cb", "", "", "");

     $options_iset{"color_value_undef"} = weechat::config_new_option(
         $iset_config_file, $section_color,
         "value_undef", "color", "Color for option value undef", "", 0, 0,
     $options_iset{"color_value_undef"} = weechat::config_new_option(
         $iset_config_file, $section_color,
         "value_undef", "color", "Color for option value undef", "", 0, 0,

diff --git a/weechat/ruby/autoload/samechannel.rb b/weechat/ruby/autoload/samechannel.rb
new file mode 120000 (symlink)
index 0000000..a6e3a57
--- /dev/null
+++ b/weechat/ruby/autoload/samechannel.rb
@@ -0,0 +1 @@
+../samechannel.rb
\ No newline at end of file

diff --git a/weechat/ruby/samechannel.rb b/weechat/ruby/samechannel.rb
new file mode 100644 (file)
index 0000000..ced194d
--- /dev/null
+++ b/weechat/ruby/samechannel.rb
@@ -0,0 +1,190 @@
+#
+# (c) 2013 Hendrik 'henk' Jaeger <weechat@henk.geekmail.org>
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 3 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program.  If not, see <http://www.gnu.org/licenses/>.
+#
+
+def weechat_init
+  Weechat.register(
+    "samechannel",
+    "henk",
+    "0.0.1",
+    "GPL3",
+    "Lists multiple occurences of the same nick(s) in a set of channels.",
+    "",
+    ""
+  )
+
+  Weechat.hook_command(
+    "samechannel",
+    "Lists multiple occurences of the same nick(s) in a set of channels.",
+    "[[-s|--servers] servername[,...]] [[-c|--channels] channelname[,...]] [[-n|--nicks] nickname[,...]]",
+    "--servers servername[,servername],...]
+--channels channelname[@servername][,channelname[@servername],...]
+--nicks nickname[,nickname,...]
+Options used to set filters. All given names are treated as regular expressions. If no names are given, no filters are set.
+
+WARNING: If you are joined to MANY or even just a few very crowded channels, this script may have to do a lot of comparisons!
+
+NOTE: Only nicknames from channels the client is joined to are available for comparison!
+
+EXAMPLES:
+    /samechannel --channels foo
+    Lists nicks found in more than two channels on all servers.
+
+    /samechannel --nicks barbaz,hons --servers example,foobarbaz
+    Lists channels from the servers example and foobarbaz for each given nick.
+
+    /samechannel --nicks foo --channels ^#example.*@.*free.*$
+    Lists channels you share with nick foo that begin with 'example' from every server with 'free' in their names.",
+    "-servers %(irc_servers)
+    || -servers %(irc_servers) -channels %(irc_channels)
+    || -servers %(irc_servers) -nicks %(irc_server_nicks)
+    || -channels %(irc_channels)
+    || -channels %(irc_channels) -servers %(irc_servers)
+    || -channels %(irc_channels) -nicks %(irc_server_nicks)
+    || -nicks %(irc_server_nicks)
+    || -nicks %(irc_server_nicks) -servers %(irc_servers)
+    || -nicks %(irc_server_nicks) -channels %(irc_channels)",
+    "samechannel_cb",
+    ""
+  )
+
+  require 'shellwords'
+  require 'optparse'
+
+  $hdata_ircserver = Weechat.hdata_get('irc_server')
+  $hdata_ircchannel = Weechat.hdata_get('irc_channel')
+  $hdata_ircnick = Weechat.hdata_get('irc_nick')
+
+  return Weechat::WEECHAT_RC_OK
+end
+
+def samechannel_cb( data, buffer, args )
+  options = get_options( args.shellsplit )
+
+  serverchannelptrs = Hash.new
+  nickcount = Hash.new
+
+  serverptrs = find_servers(options[:serverfilter])
+
+  serverptrs.each do |serverptr|
+    serverchannelptrs[serverptr] = find_channels(options[:channelfilter], serverptr)
+  end
+
+  serverchannelptrs.each_pair do |serverptr, channelptrs|
+    servername = Weechat.hdata_string($hdata_ircserver, serverptr, 'name')
+    own_nick = Weechat.hdata_string($hdata_ircserver, serverptr, 'nick')
+
+    channelptrs.each do |channelptr|
+      channelname = Weechat.hdata_string($hdata_ircchannel, channelptr, 'name')
+
+      find_nicks(options[:nickfilter], channelptr).each do |nickptr|
+        nickname = Weechat.hdata_string($hdata_ircnick, nickptr, 'name')
+        next if nickname == own_nick
+        (nickcount[nickname] ||= Array.new) << [channelname, servername].join('@')
+      end
+    end
+  end
+
+  duplicate_nicks = nickcount.delete_if do |nickname, nickpaths|
+    nickpaths.length <= 1
+  end
+  duplicate_nicks_sorted = duplicate_nicks.sort do |a, b|
+    a[1].length <=> b[1].length
+  end
+  duplicate_nicks_sorted.each do |nickname, nickpaths|
+    Weechat.print("", "#{Weechat.color('yellow')}#{nickname}#{Weechat.color('chat')} appeared #{nickpaths.length} times: #{nickpaths.join(', ')}")
+  end
+
+  return Weechat::WEECHAT_RC_OK
+end
+
+def find_nicks( names, channelptr )
+  all_nicks = hhh_get_ptrarray($hdata_ircnick, Weechat.hdata_pointer($hdata_ircchannel, channelptr, 'nicks'))
+  if names
+    all_nicks.find_all do |nickptr|
+      nickname = Weechat.hdata_string($hdata_ircnick, nickptr, 'name')
+      foundnames = names.any? do |name|
+        Regexp.new(name).match(nickname)
+      end
+    end
+  else
+    return all_nicks
+  end
+end
+
+def find_channels( names, serverptr )
+  servername = Weechat.hdata_string($hdata_ircserver, serverptr, 'name')
+  all_channels = hhh_get_ptrarray($hdata_ircchannel, Weechat.hdata_pointer($hdata_ircserver, serverptr, 'channels'))
+  if names
+    all_channels.find_all do |channelptr|
+      channelname = Weechat.hdata_string($hdata_ircchannel, channelptr, 'name')
+      foundnames = names.any? do |name|
+        name_re = Regexp.new(name)
+        if /.*@.*/.match(name)
+          name_re.match(channelname + '@' + servername)
+        else
+          name_re.match(channelname)
+        end
+      end
+    end
+  else
+    return all_channels
+  end
+end
+
+def find_servers( names )
+  serverptrlist = Weechat.hdata_get_list($hdata_ircserver, 'irc_servers')
+  if names
+    matching_servers = names.map do |name|
+      foundserverptr = Weechat.hdata_search($hdata_ircserver, serverptrlist, '${irc_server.name} =~ ' + name, 1)
+    end
+  else
+    return hhh_get_ptrarray($hdata_ircserver, serverptrlist)
+  end
+end
+
+def hhh_get_ptrarray( hdata, pointer )
+  pointers = Array.new
+  begin
+    pointers << pointer unless pointer.empty?
+  end until (pointer = Weechat.hdata_move(hdata, pointer, 1)).empty?
+  return pointers
+end
+
+def get_options( args )
+  options = Hash.new
+
+  opt_parser = OptionParser.new do |opts|
+    opts.on("-c", "--channels channelname[,channelname,...]",
+            "Only channels matching the given (partial) channelname(s) will be considered.)") do |channels|
+      options[:channelfilter] = channels.split(',')
+    end
+
+    opts.on("-n", "--nicks nickname[,nickname,...]",
+            "Only nicks matching the given (partial) nickname(s) will be considered.)") do |nicks|
+      options[:nickfilter] = nicks.split(',')
+    end
+
+    opts.on("-s", "--servers servername[,servername,...]",
+            "Only servers matching the given (partial) servername(s) will be considered.)") do |servers|
+      options[:serverfilter] = servers.split(',')
+    end
+  end
+
+  opt_parser.parse(args)
+
+  return options
+end