weechat/perl/buffers.pl

   1 #
   2 # Copyright (C) 2008-2013 Sebastien Helleu <flashcode@flashtux.org>
   3 # Copyright (C) 2011-2013 Nils G <weechatter@arcor.de>
   4 #
   5 # This program is free software; you can redistribute it and/or modify
   6 # it under the terms of the GNU General Public License as published by
   7 # the Free Software Foundation; either version 3 of the License, or
   8 # (at your option) any later version.
   9 #
  10 # This program is distributed in the hope that it will be useful,
  11 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  12 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13 # GNU General Public License for more details.
  14 #
  15 # You should have received a copy of the GNU General Public License
  16 # along with this program. If not, see <http://www.gnu.org/licenses/>.
  17 #
  18 #
  19 # Display sidebar with list of buffers.
  20 #
  21 # History:
  22 # 2013-11-07, Sebastien Helleu <flashcode@flashtux.org>:
  23 #    v4.2: use default filling "columns_vertical" when bar position is top/bottom
  24 # 2013-10-31, nils_2@freenode.#weechat:
  25 #    v4.1: add option "detach_buffer_immediately" (idea by farn)
  26 # 2013-10-20, nils_2@freenode.#weechat:
  27 #    v4.0: add options "detach_displayed_buffers", "detach_display_window_number"
  28 # 2013-09-27, nils_2@freenode.#weechat:
  29 #    v3.9: add option "toggle_bar" and option "show_prefix_query" (idea by IvarB)
  30 #        : fix problem with linefeed at end of list of buffers (reported by grawity)
  31 # 2012-10-18, nils_2@freenode.#weechat:
  32 #     v3.8: add option "mark_inactive", to mark buffers you are not in (idea by xrdodrx)
  33 #         : add wildcard "*" for immune_detach_buffers (idea by StarWeaver)
  34 #         : add new options "detach_query" and "detach_free_content" (idea by StarWeaver)
  35 # 2012-10-06, Nei <anti.teamidiot.de>:
  36 #     v3.7: call menu on right mouse if menu script is loaded.
  37 # 2012-10-06, nils_2 <weechatter@arcor.de>:
  38 #     v3.6: add new option "hotlist_counter" (idea by torque).
  39 # 2012-06-02, nils_2 <weechatter@arcor.de>:
  40 #     v3.5: add values "server|channel|private|all|keepserver|none" to option "hide_merged_buffers" (suggested by dominikh).
  41 # 2012-05-25, nils_2 <weechatter@arcor.de>:
  42 #     v3.4: add new option "show_lag".
  43 # 2012-04-07, Sebastien Helleu <flashcode@flashtux.org>:
  44 #     v3.3: fix truncation of wide chars in buffer name (option name_size_max) (bug #36034)
  45 # 2012-03-15, nils_2 <weechatter@arcor.de>:
  46 #     v3.2: add new option "detach"(weechat >= 0.3.8)
  47 #           add new option "immune_detach_buffers" (requested by Mkaysi)
  48 #           add new function buffers_whitelist add|del|reset (suggested by FiXato)
  49 #           add new function buffers_detach add|del|reset
  50 # 2012-03-09, Sebastien Helleu <flashcode@flashtux.org>:
  51 #     v3.1: fix reload of config file
  52 # 2012-01-29, nils_2 <weechatter@arcor.de>:
  53 #     v3.0: fix: buffers did not update directly during window_switch (reported by FiXato)
  54 # 2012-01-29, nils_2 <weechatter@arcor.de>:
  55 #     v2.9: add options "name_size_max" and "name_crop_suffix"
  56 # 2012-01-08, nils_2 <weechatter@arcor.de>:
  57 #     v2.8: fix indenting for option "show_number off"
  58 #           fix unset of buffer activity in hotlist when buffer was moved with mouse
  59 #           add buffer with free content and core buffer sorted first (suggested  by nyuszika7h)
  60 #           add options queries_default_fg/bg and queries_message_fg/bg (suggested by FiXato)
  61 #           add clicking with left button on current buffer will do a jump_previously_visited_buffer (suggested by FiXato)
  62 #           add clicking with right button on current buffer will do a jump_next_visited_buffer
  63 #           add additional informations in help texts
  64 #           add default_fg and default_bg for whitelist channels
  65 #           internal changes  (script is now 3Kb smaller)
  66 # 2012-01-04, Sebastien Helleu <flashcode@flashtux.org>:
  67 #     v2.7: fix regex lookup in whitelist buffers list
  68 # 2011-12-04, nils_2 <weechatter@arcor.de>:
  69 #     v2.6: add own config file (buffers.conf)
  70 #           add new behavior for indenting (under_name)
  71 #           add new option to set different color for server buffers and buffers with free content
  72 # 2011-10-30, nils_2 <weechatter@arcor.de>:
  73 #     v2.5: add new options "show_number_char" and "color_number_char",
  74 #           add help-description for options
  75 # 2011-08-24, Sebastien Helleu <flashcode@flashtux.org>:
  76 #     v2.4: add mouse support
  77 # 2011-06-06, nils_2 <weechatter@arcor.de>:
  78 #     v2.3: added: missed option "color_whitelist_default"
  79 # 2011-03-23, Sebastien Helleu <flashcode@flashtux.org>:
  80 #     v2.2: fix color of nick prefix with WeeChat >= 0.3.5
  81 # 2011-02-13, nils_2 <weechatter@arcor.de>:
  82 #     v2.1: add options "color_whitelist_*"
  83 # 2010-10-05, Sebastien Helleu <flashcode@flashtux.org>:
  84 #     v2.0: add options "sort" and "show_number"
  85 # 2010-04-12, Sebastien Helleu <flashcode@flashtux.org>:
  86 #     v1.9: replace call to log() by length() to align buffer numbers
  87 # 2010-04-02, Sebastien Helleu <flashcode@flashtux.org>:
  88 #     v1.8: fix bug with background color and option indenting_number
  89 # 2010-04-02, Helios <helios@efemes.de>:
  90 #     v1.7: add indenting_number option
  91 # 2010-02-25, m4v <lambdae2@gmail.com>:
  92 #     v1.6: add option to hide empty prefixes
  93 # 2010-02-12, Sebastien Helleu <flashcode@flashtux.org>:
  94 #     v1.5: add optional nick prefix for buffers like IRC channels
  95 # 2009-09-30, Sebastien Helleu <flashcode@flashtux.org>:
  96 #     v1.4: remove spaces for indenting when bar position is top/bottom
  97 # 2009-06-14, Sebastien Helleu <flashcode@flashtux.org>:
  98 #     v1.3: add option "hide_merged_buffers"
  99 # 2009-06-14, Sebastien Helleu <flashcode@flashtux.org>:
 100 #     v1.2: improve display with merged buffers
 101 # 2009-05-02, Sebastien Helleu <flashcode@flashtux.org>:
 102 #     v1.1: sync with last API changes
 103 # 2009-02-21, Sebastien Helleu <flashcode@flashtux.org>:
 104 #     v1.0: remove timer used to update bar item first time (not needed any more)
 105 # 2009-02-17, Sebastien Helleu <flashcode@flashtux.org>:
 106 #     v0.9: fix bug with indenting of private buffers
 107 # 2009-01-04, Sebastien Helleu <flashcode@flashtux.org>:
 108 #     v0.8: update syntax for command /set (comments)
 109 # 2008-10-20, Jiri Golembiovsky <golemj@gmail.com>:
 110 #     v0.7: add indenting option
 111 # 2008-10-01, Sebastien Helleu <flashcode@flashtux.org>:
 112 #     v0.6: add default color for buffers, and color for current active buffer
 113 # 2008-09-18, Sebastien Helleu <flashcode@flashtux.org>:
 114 #     v0.5: fix color for "low" level entry in hotlist
 115 # 2008-09-18, Sebastien Helleu <flashcode@flashtux.org>:
 116 #     v0.4: rename option "show_category" to "short_names",
 117 #           remove option "color_slash"
 118 # 2008-09-15, Sebastien Helleu <flashcode@flashtux.org>:
 119 #     v0.3: fix bug with priority in hotlist (var not defined)
 120 # 2008-09-02, Sebastien Helleu <flashcode@flashtux.org>:
 121 #     v0.2: add color for buffers with activity and config options for
 122 #           colors, add config option to display/hide categories
 123 # 2008-03-15, Sebastien Helleu <flashcode@flashtux.org>:
 124 #     v0.1: script creation
 125 #
 126 # Help about settings:
 127 #   display all settings for script (or use iset.pl script to change settings):
 128 #      /set buffers*
 129 #   show help text for option buffers.look.whitelist_buffers:
 130 #      /help buffers.look.whitelist_buffers
 131 #
 132 # Mouse-support (standard key bindings):
 133 #   left mouse-button:
 134 #       - click on a buffer to switch to selected buffer
 135 #       - click on current buffer will do action jump_previously_visited_buffer
 136 #       - drag a buffer and drop it on another position will move the buffer to position
 137 #   right mouse-button:
 138 #       - click on current buffer will do action jump_next_visited_buffer
 139 #       - moving buffer to the left/right will close buffer.
 140 #
 141
 142 use strict;
 143 use Encode qw( decode encode );
 144 # -------------------------------[ internal ]-------------------------------------
 145 my $SCRIPT_NAME = "buffers";
 146 my $version = "4.2";
 147
 148 my $BUFFERS_CONFIG_FILE_NAME = "buffers";
 149 my $buffers_config_file;
 150 my $cmd_buffers_whitelist= "buffers_whitelist";
 151 my $cmd_buffers_detach   = "buffers_detach";
 152
 153 my %mouse_keys          = ("\@item(buffers):button1*"    => "hsignal:buffers_mouse",     # catch all left mouse button gestures
 154                            "\@item(buffers):button2*"     => "hsignal:buffers_mouse");    # catch all right mouse button gestures
 155 my %options;
 156 my %hotlist_level       = (0 => "low", 1 => "message", 2 => "private", 3 => "highlight");
 157 my @whitelist_buffers   = ();
 158 my @immune_detach_buffers= ();
 159 my @detach_buffer_immediately= ();
 160 my @buffers_focus       = ();
 161 my %buffers_timer       = ();
 162 my %Hooks               = ();
 163
 164 # --------------------------------[ init ]--------------------------------------
 165 weechat::register($SCRIPT_NAME, "Sebastien Helleu <flashcode\@flashtux.org>", $version,
 166                   "GPL3", "Sidebar with list of buffers", "shutdown_cb", "");
 167 my $weechat_version = weechat::info_get("version_number", "") || 0;
 168
 169 buffers_config_init();
 170 buffers_config_read();
 171
 172 weechat::bar_item_new($SCRIPT_NAME, "build_buffers", "");
 173 weechat::bar_new($SCRIPT_NAME, "0", "0", "root", "", "left", "columns_vertical",
 174                  "vertical", "0", "0", "default", "default", "default", "1",
 175                  $SCRIPT_NAME);
 176
 177 if ( check_bar_item() == 0 )
 178 {
 179     weechat::command("","/bar show " . $SCRIPT_NAME) if ( weechat::config_boolean($options{"toggle_bar"}) eq 1 );
 180 }
 181
 182 weechat::hook_signal("buffer_*", "buffers_signal_buffer", "");
 183 weechat::hook_signal("window_switch", "buffers_signal_buffer", "");
 184 weechat::hook_signal("hotlist_*", "buffers_signal_hotlist", "");
 185 #weechat::hook_command_run("/input switch_active_*", "buffers_signal_buffer", "");
 186 weechat::bar_item_update($SCRIPT_NAME);
 187
 188
 189 if ($weechat_version >= 0x00030600)
 190 {
 191     weechat::hook_focus($SCRIPT_NAME, "buffers_focus_buffers", "");
 192     weechat::hook_hsignal("buffers_mouse", "buffers_hsignal_mouse", "");
 193     weechat::key_bind("mouse", \%mouse_keys);
 194 }
 195
 196 weechat::hook_command(  $cmd_buffers_whitelist,
 197                         "add/del current buffer to/from buffers whitelist",
 198                         "[add] || [del] || [reset]",
 199
 200                         "  add: add current buffer in configuration file\n".
 201                         "  del: delete current buffer from configuration file\n".
 202                         "reset: reset all buffers from configuration file (no confirmation!)\n\n".
 203                         "Examples:\n".
 204                         "/$cmd_buffers_whitelist add\n",
 205                         "add %-||".
 206                         "del %-||".
 207                         "reset %-",
 208                         "buffers_cmd_whitelist", "");
 209 weechat::hook_command(  $cmd_buffers_detach,
 210                         "add/del current buffer to/from buffers detach",
 211                         "[add] || [del] || [reset]",
 212
 213                         "  add: add current buffer in configuration file\n".
 214                         "  del: delete current buffer from configuration file\n".
 215                         "reset: reset all buffers from configuration file (no confirmation!)\n\n".
 216                         "Examples:\n".
 217                         "/$cmd_buffers_detach add\n",
 218                         "add %-||".
 219                         "del %-||".
 220                         "reset %-",
 221                         "buffers_cmd_detach", "");
 222
 223 if ($weechat_version >= 0x00030800)
 224 {
 225     weechat::hook_config("buffers.look.detach", "hook_timer_detach", "");
 226     $Hooks{timer_detach} = weechat::hook_timer( weechat::config_integer( $options{"detach"}) * 1000, 60, 0, "buffers_signal_buffer", "") if ( weechat::config_integer( $options{"detach"}) > 0 );
 227 }
 228
 229     weechat::hook_config("buffers.look.show_lag", "hook_timer_lag", "");
 230
 231     $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"}) );
 232
 233 # -------------------------------- [ command ] --------------------------------
 234 sub buffers_cmd_whitelist
 235 {
 236 my ( $data, $buffer, $args ) = @_;
 237     $args = lc($args);
 238     my $buffers_whitelist = weechat::config_string( weechat::config_get("buffers.look.whitelist_buffers") );
 239     return weechat::WEECHAT_RC_OK if ( $buffers_whitelist eq "" and $args eq "del" or $buffers_whitelist eq "" and $args eq "reset" );
 240     my @buffers_list = split( /,/, $buffers_whitelist );
 241     # get buffers name
 242     my $infolist = weechat::infolist_get("buffer", weechat::current_buffer(), "");
 243     weechat::infolist_next($infolist);
 244     my $buffers_name = weechat::infolist_string($infolist, "name");
 245     weechat::infolist_free($infolist);
 246     return weechat::WEECHAT_RC_OK if ( $buffers_name eq "" );                   # should never happen
 247
 248     if ( $args eq "add" )
 249     {
 250         return weechat::WEECHAT_RC_OK if ( grep /^$buffers_name$/, @buffers_list );     # check if buffer already in list
 251         push @buffers_list,( $buffers_name );
 252         my $buffers_list = &create_whitelist(\@buffers_list);
 253         weechat::config_option_set( weechat::config_get("buffers.look.whitelist_buffers"), $buffers_list,1 );
 254         weechat::print(weechat::current_buffer(), "buffer \"$buffers_name\" added to buffers whitelist");
 255     }
 256     elsif ( $args eq "del" )
 257     {
 258         return weechat::WEECHAT_RC_OK unless ( grep /^$buffers_name$/, @buffers_list );     # check if buffer is in list
 259         @buffers_list = grep {$_ ne $buffers_name} @buffers_list;                           # delete entry
 260         my $buffers_list = &create_whitelist(\@buffers_list);
 261         weechat::config_option_set( weechat::config_get("buffers.look.whitelist_buffers"), $buffers_list,1 );
 262         weechat::print(weechat::current_buffer(), "buffer \"$buffers_name\" deleted from buffers whitelist");
 263     }
 264     elsif ( $args eq "reset" )
 265     {
 266         return weechat::WEECHAT_RC_OK if ( $buffers_whitelist eq "" );
 267         weechat::config_option_set( weechat::config_get("buffers.look.whitelist_buffers"), "",1 );
 268         weechat::print(weechat::current_buffer(), "buffers whitelist is empty, now...");
 269     }
 270     return weechat::WEECHAT_RC_OK;
 271 }
 272 sub buffers_cmd_detach
 273 {
 274     my ( $data, $buffer, $args ) = @_;
 275     $args = lc($args);
 276     my $immune_detach_buffers = weechat::config_string( weechat::config_get("buffers.look.immune_detach_buffers") );
 277     return weechat::WEECHAT_RC_OK if ( $immune_detach_buffers eq "" and $args eq "del" or $immune_detach_buffers eq "" and $args eq "reset" );
 278
 279     my @buffers_list = split( /,/, $immune_detach_buffers );
 280     # get buffers name
 281     my $infolist = weechat::infolist_get("buffer", weechat::current_buffer(), "");
 282     weechat::infolist_next($infolist);
 283     my $buffers_name = weechat::infolist_string($infolist, "name");
 284     weechat::infolist_free($infolist);
 285     return weechat::WEECHAT_RC_OK if ( $buffers_name eq "" );                   # should never happen
 286
 287     if ( $args eq "add" )
 288     {
 289         return weechat::WEECHAT_RC_OK if ( grep /^$buffers_name$/, @buffers_list );     # check if buffer already in list
 290         push @buffers_list,( $buffers_name );
 291         my $buffers_list = &create_whitelist(\@buffers_list);
 292         weechat::config_option_set( weechat::config_get("buffers.look.immune_detach_buffers"), $buffers_list,1 );
 293         weechat::print(weechat::current_buffer(), "buffer \"$buffers_name\" added to immune detach buffers");
 294     }
 295     elsif ( $args eq "del" )
 296     {
 297         return weechat::WEECHAT_RC_OK unless ( grep /^$buffers_name$/, @buffers_list );     # check if buffer is in list
 298         @buffers_list = grep {$_ ne $buffers_name} @buffers_list;                           # delete entry
 299         my $buffers_list = &create_whitelist(\@buffers_list);
 300         weechat::config_option_set( weechat::config_get("buffers.look.immune_detach_buffers"), $buffers_list,1 );
 301         weechat::print(weechat::current_buffer(), "buffer \"$buffers_name\" deleted from immune detach buffers");
 302     }
 303     elsif ( $args eq "reset" )
 304     {
 305         return weechat::WEECHAT_RC_OK if ( $immune_detach_buffers eq "" );
 306         weechat::config_option_set( weechat::config_get("buffers.look.immune_detach_buffers"), "",1 );
 307         weechat::print(weechat::current_buffer(), "immune detach buffers is empty, now...");
 308     }
 309     return weechat::WEECHAT_RC_OK;
 310 }
 311
 312 sub create_whitelist
 313 {
 314     my @buffers_list = @{$_[0]};
 315     my $buffers_list = "";
 316         foreach (@buffers_list)
 317         {
 318             $buffers_list .= $_ .",";
 319         }
 320         chop $buffers_list;                                                               # remove last ","
 321     return $buffers_list;
 322 }
 323
 324 # -------------------------------- [ config ] --------------------------------
 325 sub hook_timer_detach
 326 {
 327     my $detach = $_[2];
 328     if ( $detach eq 0 )
 329     {
 330         weechat::unhook($Hooks{timer_detach}) if $Hooks{timer_detach};
 331         $Hooks{timer_detach} = "";
 332     }
 333     else
 334     {
 335         weechat::unhook($Hooks{timer_detach}) if $Hooks{timer_detach};
 336         $Hooks{timer_detach} = weechat::hook_timer( weechat::config_integer( $options{"detach"}) * 1000, 60, 0, "buffers_signal_buffer", "");
 337     }
 338     weechat::bar_item_update($SCRIPT_NAME);
 339     return weechat::WEECHAT_RC_OK;
 340 }
 341
 342 sub hook_timer_lag
 343 {
 344     my $lag = $_[2];
 345     if ( $lag eq 0 )
 346     {
 347         weechat::unhook($Hooks{timer_lag}) if $Hooks{timer_lag};
 348         $Hooks{timer_lag} = "";
 349     }
 350     else
 351     {
 352         weechat::unhook($Hooks{timer_lag}) if $Hooks{timer_lag};
 353         $Hooks{timer_lag} = weechat::hook_timer( weechat::config_integer(weechat::config_get("irc.network.lag_refresh_interval")) * 1000, 0, 0, "buffers_signal_hotlist", "");
 354     }
 355     weechat::bar_item_update($SCRIPT_NAME);
 356     return weechat::WEECHAT_RC_OK;
 357 }
 358
 359 sub buffers_config_read
 360 {
 361     return weechat::config_read($buffers_config_file) if ($buffers_config_file ne "");
 362 }
 363 sub buffers_config_write
 364 {
 365     return weechat::config_write($buffers_config_file) if ($buffers_config_file ne "");
 366 }
 367 sub buffers_config_reload_cb
 368 {
 369     my ($data,$config_file) = ($_[0], $_[1]);
 370     return weechat::config_reload($config_file)
 371 }
 372 sub buffers_config_init
 373 {
 374     $buffers_config_file = weechat::config_new($BUFFERS_CONFIG_FILE_NAME,"buffers_config_reload_cb","");
 375     return if ($buffers_config_file eq "");
 376
 377 my %default_options_color =
 378 ("color_current_fg" => ["current_fg", "color", "foreground color for current buffer", "", 0, 0,"lightcyan", "lightcyan", 0, "", "","buffers_signal_config", "", "", ""],
 379  "color_current_bg" => ["current_bg", "color", "background color for current buffer", "", 0, 0,"red", "red", 0, "", "","buffers_signal_config", "", "", ""],
 380  "color_default_fg" => ["default_fg", "color", "default foreground color for buffer name", "", 0, 0,"default", "default", 0, "", "","buffers_signal_config", "", "", ""],
 381  "color_default_bg" => ["default_bg", "color", "default background color for buffer name", "", 0, 0,"default", "default", 0, "", "","buffers_signal_config", "", "", ""],
 382  "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", "", "", ""],
 383  "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", "", "", ""],
 384  "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", "", "", ""],
 385  "color_hotlist_low_bg" => ["hotlist_low_bg", "color", "change background color of buffer name if a low message received", "", 0, 0,
 386         "default", "default", 0, "", "","buffers_signal_config", "", "", ""],
 387  "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", "", "", ""],
 388  "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", "", "", ""],
 389  "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", "", "", ""],
 390  "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", "", "", ""],
 391  "color_number" => ["number", "color", "color for buffer number", "", 0, 0,"lightgreen", "lightgreen", 0, "", "","buffers_signal_config", "", "", ""],
 392  "color_number_char" => ["number_char", "color", "color for buffer number char", "", 0, 0,"lightgreen", "lightgreen", 0, "", "","buffers_signal_config", "", "", ""],
 393  "color_whitelist_default_fg" => ["whitelist_default_fg", "color", "default foreground color for whitelist buffer name", "", 0, 0,"", "", 0, "", "","buffers_signal_config", "", "", ""],
 394  "color_whitelist_default_bg" => ["whitelist_default_bg", "color", "default background color for whitelist buffer name", "", 0, 0,"", "", 0, "", "","buffers_signal_config", "", "", ""],
 395  "color_whitelist_low_fg" => ["whitelist_low_fg", "color", "low color of whitelist buffer name", "", 0, 0,"", "", 0, "", "","buffers_signal_config", "", "", ""],
 396  "color_whitelist_low_bg" => ["whitelist_low_bg", "color", "low color of whitelist buffer name", "", 0, 0,"", "", 0, "", "","buffers_signal_config", "", "", ""],
 397  "color_whitelist_message_fg" => ["whitelist_message_fg", "color", "message color of whitelist buffer name", "", 0, 0,"", "", 0, "", "","buffers_signal_config", "", "", ""],
 398  "color_whitelist_message_bg" => ["whitelist_message_bg", "color", "message color of whitelist buffer name", "", 0, 0,"", "", 0, "", "","buffers_signal_config", "", "", ""],
 399  "color_whitelist_private_fg" => ["whitelist_private_fg", "color", "private color of whitelist buffer name", "", 0, 0,"", "", 0, "", "","buffers_signal_config", "", "", ""],
 400  "color_whitelist_private_bg" => ["whitelist_private_bg", "color", "private color of whitelist buffer name", "", 0, 0,"", "", 0, "", "","buffers_signal_config", "", "", ""],
 401  "color_whitelist_highlight_fg" => ["whitelist_highlight_fg", "color", "highlight color of whitelist buffer name", "", 0, 0,"", "", 0, "", "","buffers_signal_config", "", "", ""],
 402  "color_whitelist_highlight_bg" => ["whitelist_highlight_bg", "color", "highlight color of whitelist buffer name", "", 0, 0,"", "", 0, "", "","buffers_signal_config", "", "", ""],
 403  "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", "", "", ""],
 404  "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", "", "", ""],
 405  "queries_default_fg" => ["queries_default_fg", "color", "foreground color for query buffer without message", "", 0, 0,"default", "default", 0, "", "","buffers_signal_config", "", "", ""],
 406  "queries_default_bg" => ["queries_default_bg", "color", "background color for query buffer without message", "", 0, 0,"default", "default", 0, "", "","buffers_signal_config", "", "", ""],
 407  "queries_message_fg" => ["queries_message_fg", "color", "foreground color for query buffer with unread message", "", 0, 0,"default", "default", 0, "", "","buffers_signal_config", "", "", ""],
 408  "queries_message_bg" => ["queries_message_bg", "color", "background color for query buffer with unread message", "", 0, 0,"default", "default", 0, "", "","buffers_signal_config", "", "", ""],
 409  "queries_highlight_fg" => ["queries_highlight_fg", "color", "foreground color for query buffer with unread highlight", "", 0, 0,"default", "default", 0, "", "","buffers_signal_config", "", "", ""],
 410  "queries_highlight_bg" => ["queries_highlight_bg", "color", "background color for query buffer with unread highlight", "", 0, 0,"default", "default", 0, "", "","buffers_signal_config", "", "", ""],
 411 );
 412
 413 my %default_options_look =
 414 (
 415  "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","","",""],
 416  "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","","",""],
 417  "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", "", "", ""],
 418  "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", "", "", ""],
 419  "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", "", "", ""],
 420  "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", "", "", ""],
 421  "short_names"          =>      ["short_names", "boolean", "display short names (remove text before first \".\" in buffer name)", "", 0, 0,"on", "on", 0, "", "", "buffers_signal_config", "", "", ""],
 422  "show_number"          =>      ["show_number", "boolean", "display channel number in front of buffername", "", 0, 0,"on", "on", 0, "", "", "buffers_signal_config", "", "", ""],
 423  "show_number_char"     =>      ["number_char", "string", "display a char behind channel number", "", 0, 0,".", ".", 0, "", "", "buffers_signal_config", "", "", ""],
 424  "show_prefix"          =>      ["prefix", "boolean", "displays your prefix for channel in front of buffername", "", 0, 0,"off", "off", 0, "", "", "buffers_signal_config", "", "", ""],
 425  "show_prefix_empty"    =>      ["prefix_empty", "boolean", "use a placeholder for channels without prefix", "", 0, 0,"on", "on", 0, "", "",  "buffers_signal_config", "", "", ""],
 426 "show_prefix_query"  =>      ["prefix_for_query", "string", "prefix displayed in front of query buffer", "", 0, 0,"", "", 0, "", "", "buffers_signal_config", "", "", ""],
 427  "sort"                 =>      ["sort", "integer", "sort buffer-list by \"number\" or \"name\"", "number|name", 0, 0,"number", "number", 0, "", "", "buffers_signal_config", "", "", ""],
 428  "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", "", "", ""],
 429  "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", "", "", ""],
 430  "name_size_max"        =>      ["name_size_max","integer","maximum size of buffer name. 0 means no limitation","",0,256,0,0,0, "", "", "buffers_signal_config", "", "", ""],
 431  "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", "", "", ""],
 432  "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", "", "", ""],
 433  "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", "", "", ""],
 434  "detach_query"         =>      ["detach_query", "boolean", "query buffer will be detachted", "", 0, 0,"off", "off", 0, "", "", "buffers_signal_config", "", "", ""],
 435  "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", "", "", ""],
 436  "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", "", "", ""],
 437  "detach_displayed_buffers"  => ["detach_displayed_buffers", "boolean", "buffers displayed in a (split) window will be detached", "", 0, 0,"on", "on", 0, "", "", "buffers_signal_config", "", "", ""],
 438  "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", "", "", ""],
 439  "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", "", "", ""],
 440  "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", "", "", ""],
 441 );
 442     # section "color"
 443     my $section_color = weechat::config_new_section($buffers_config_file,"color", 0, 0, "", "", "", "", "", "", "", "", "", "");
 444     if ($section_color eq "")
 445     {
 446         weechat::config_free($buffers_config_file);
 447         return;
 448     }
 449     foreach my $option (keys %default_options_color)
 450     {
 451         $options{$option} = weechat::config_new_option($buffers_config_file, $section_color,
 452         $default_options_color{$option}[0],$default_options_color{$option}[1],$default_options_color{$option}[2],
 453         $default_options_color{$option}[3],$default_options_color{$option}[4],$default_options_color{$option}[5],
 454         $default_options_color{$option}[6],$default_options_color{$option}[7],$default_options_color{$option}[8],
 455         $default_options_color{$option}[9],$default_options_color{$option}[10],$default_options_color{$option}[11],
 456         $default_options_color{$option}[12],$default_options_color{$option}[13],$default_options_color{$option}[14]);
 457     }
 458
 459     # section "look"
 460     my $section_look = weechat::config_new_section($buffers_config_file,"look", 0, 0, "", "", "", "", "", "", "", "", "", "");
 461     if ($section_look eq "")
 462     {
 463         weechat::config_free($buffers_config_file);
 464         return;
 465     }
 466     foreach my $option (keys %default_options_look)
 467     {
 468         $options{$option} = weechat::config_new_option($buffers_config_file, $section_look,
 469         $default_options_look{$option}[0],$default_options_look{$option}[1],$default_options_look{$option}[2],
 470         $default_options_look{$option}[3],$default_options_look{$option}[4],$default_options_look{$option}[5],
 471         $default_options_look{$option}[6],$default_options_look{$option}[7],$default_options_look{$option}[8],
 472         $default_options_look{$option}[9],$default_options_look{$option}[10],$default_options_look{$option}[11],
 473         $default_options_look{$option}[12],$default_options_look{$option}[13],$default_options_look{$option}[14],
 474         $default_options_look{$option}[15]);
 475     }
 476 }
 477
 478 sub build_buffers
 479 {
 480     my $str = "";
 481
 482     # get bar position (left/right/top/bottom)
 483     my $position = "left";
 484     my $option_position = weechat::config_get("weechat.bar.buffers.position");
 485     if ($option_position ne "")
 486     {
 487         $position = weechat::config_string($option_position);
 488     }
 489
 490     # read hotlist
 491     my %hotlist;
 492     my $infolist = weechat::infolist_get("hotlist", "", "");
 493     while (weechat::infolist_next($infolist))
 494     {
 495         $hotlist{weechat::infolist_pointer($infolist, "buffer_pointer")} =
 496             weechat::infolist_integer($infolist, "priority");
 497         if ( weechat::config_boolean( $options{"hotlist_counter"} ) eq 1 and $weechat_version >= 0x00030500)
 498         {
 499             $hotlist{weechat::infolist_pointer($infolist, "buffer_pointer")."_count_00"} =
 500                 weechat::infolist_integer($infolist, "count_00");   # low message
 501             $hotlist{weechat::infolist_pointer($infolist, "buffer_pointer")."_count_01"} =
 502                 weechat::infolist_integer($infolist, "count_01");   # channel message
 503             $hotlist{weechat::infolist_pointer($infolist, "buffer_pointer")."_count_02"} =
 504                 weechat::infolist_integer($infolist, "count_02");   # private message
 505             $hotlist{weechat::infolist_pointer($infolist, "buffer_pointer")."_count_03"} =
 506                 weechat::infolist_integer($infolist, "count_03");   # highlight message
 507         }
 508     }
 509     weechat::infolist_free($infolist);
 510
 511     # read buffers list
 512     @buffers_focus = ();
 513     my @buffers;
 514     my @current1 = ();
 515     my @current2 = ();
 516     my $old_number = -1;
 517     my $max_number = 0;
 518     my $max_number_digits = 0;
 519     my $active_seen = 0;
 520     $infolist = weechat::infolist_get("buffer", "", "");
 521     while (weechat::infolist_next($infolist))
 522     {
 523         my $buffer;
 524         my $number = weechat::infolist_integer($infolist, "number");
 525         if ($number ne $old_number)
 526         {
 527             @buffers = (@buffers, @current2, @current1);
 528             @current1 = ();
 529             @current2 = ();
 530             $active_seen = 0;
 531         }
 532         if ($number > $max_number)
 533         {
 534             $max_number = $number;
 535         }
 536         $old_number = $number;
 537         my $active = weechat::infolist_integer($infolist, "active");
 538         if ($active)
 539         {
 540             $active_seen = 1;
 541         }
 542         $buffer->{"pointer"} = weechat::infolist_pointer($infolist, "pointer");
 543         $buffer->{"number"} = $number;
 544         $buffer->{"active"} = $active;
 545         $buffer->{"current_buffer"} = weechat::infolist_integer($infolist, "current_buffer");
 546         $buffer->{"num_displayed"} = weechat::infolist_integer($infolist, "num_displayed");
 547         $buffer->{"plugin_name"} = weechat::infolist_string($infolist, "plugin_name");
 548         $buffer->{"name"} = weechat::infolist_string($infolist, "name");
 549         $buffer->{"short_name"} = weechat::infolist_string($infolist, "short_name");
 550         $buffer->{"full_name"} = $buffer->{"plugin_name"}.".".$buffer->{"name"};
 551         $buffer->{"type"} = weechat::buffer_get_string($buffer->{"pointer"},"localvar_type");
 552 #        weechat::print("",$buffer->{"type"});
 553
 554         # check if buffer is active (or maybe a /part, /kick channel)
 555         if ($buffer->{"type"} eq "channel" and weechat::config_boolean( $options{"mark_inactive"} ) eq 1)
 556         {
 557             my $server = weechat::buffer_get_string($buffer->{"pointer"},"localvar_server");
 558             my $channel = weechat::buffer_get_string($buffer->{"pointer"},"localvar_channel");
 559             my $infolist_channel = weechat::infolist_get("irc_channel","",$server.",".$channel);
 560             if ($infolist_channel)
 561             {
 562                 weechat::infolist_next($infolist_channel);
 563                 $buffer->{"nicks_count"} = weechat::infolist_integer($infolist_channel,"nicks_count");
 564             }else
 565             {
 566                 $buffer->{"nicks_count"} = 0;
 567             }
 568             weechat::infolist_free($infolist_channel);
 569         }
 570
 571         my $result = check_immune_detached_buffers($buffer->{"name"});          # checking for wildcard
 572
 573         next if ( check_detach_buffer_immediately($buffer->{"name"}) eq 1
 574                  and $buffer->{"current_buffer"} eq 0
 575                  and ( not exists $hotlist{$buffer->{"pointer"}} or $hotlist{$buffer->{"pointer"}} < 2) );          # checking for buffer to immediately detach
 576
 577         unless ($result)
 578         {
 579             my $detach_time = weechat::config_integer( $options{"detach"});
 580             my $current_time = time();
 581             # set timer for buffers with no hotlist action
 582             $buffers_timer{$buffer->{"pointer"}} = $current_time
 583              if ( not exists $hotlist{$buffer->{"pointer"}}
 584              and $buffer->{"type"} eq "channel"
 585              and not exists $buffers_timer{$buffer->{"pointer"}}
 586              and $detach_time > 0);
 587
 588             $buffers_timer{$buffer->{"pointer"}} = $current_time
 589             if (weechat::config_boolean($options{"detach_query"}) eq 1
 590             and not exists $hotlist{$buffer->{"pointer"}}
 591             and $buffer->{"type"} eq "private"
 592             and not exists $buffers_timer{$buffer->{"pointer"}}
 593             and $detach_time > 0);
 594
 595             $detach_time = 0
 596             if (weechat::config_boolean($options{"detach_query"}) eq 0
 597             and $buffer->{"type"} eq "private");
 598
 599             # free content buffer
 600             $buffers_timer{$buffer->{"pointer"}} = $current_time
 601             if (weechat::config_boolean($options{"detach_free_content"}) eq 1
 602             and not exists $hotlist{$buffer->{"pointer"}}
 603             and $buffer->{"type"} eq ""
 604             and not exists $buffers_timer{$buffer->{"pointer"}}
 605             and $detach_time > 0);
 606             $detach_time = 0
 607             if (weechat::config_boolean($options{"detach_free_content"}) eq 0
 608             and $buffer->{"type"} eq "");
 609
 610             $detach_time = 0 if (weechat::config_boolean($options{"mark_inactive"}) eq 1 and defined $buffer->{"nicks_count"} and $buffer->{"nicks_count"} == 0);
 611
 612             # check for detach
 613             unless ( $buffer->{"current_buffer"} eq 0
 614             and not exists $hotlist{$buffer->{"pointer"}}
 615 #            and $buffer->{"type"} eq "channel"
 616             and exists $buffers_timer{$buffer->{"pointer"}}
 617             and $detach_time > 0
 618             and $weechat_version >= 0x00030800
 619             and $current_time - $buffers_timer{$buffer->{"pointer"}} >= $detach_time)
 620             {
 621                 if ($active_seen)
 622                 {
 623                     push(@current2, $buffer);
 624                 }
 625                 else
 626                 {
 627                     push(@current1, $buffer);
 628                 }
 629             }
 630             elsif ( $buffer->{"current_buffer"} eq 0
 631             and not exists $hotlist{$buffer->{"pointer"}}
 632 #            and $buffer->{"type"} eq "channel"
 633             and exists $buffers_timer{$buffer->{"pointer"}}
 634             and $detach_time > 0
 635             and $weechat_version >= 0x00030800
 636             and $current_time - $buffers_timer{$buffer->{"pointer"}} >= $detach_time)
 637             {   # check for option detach_displayed_buffers and if buffer is displayed in a split window
 638                 if ( $buffer->{"num_displayed"} eq 1
 639                     and weechat::config_boolean($options{"detach_displayed_buffers"}) eq 0 )
 640                 {
 641                     my $infolist_window = weechat::infolist_get("window","","");
 642                     while (weechat::infolist_next($infolist_window))
 643                     {
 644                         my $buffer_ptr = weechat::infolist_pointer($infolist_window, "buffer");
 645                         if ($buffer_ptr eq $buffer->{"pointer"})
 646                         {
 647                             $buffer->{"window"} = weechat::infolist_integer($infolist_window, "number");
 648                         }
 649                     }
 650                     weechat::infolist_free($infolist_window);
 651
 652                     push(@current2, $buffer);
 653                 }
 654             }
 655         }
 656         else    # buffer in "immune_detach_buffers"
 657         {
 658                 if ($active_seen)
 659                 {
 660                     push(@current2, $buffer);
 661                 }
 662                 else
 663                 {
 664                     push(@current1, $buffer);
 665                 }
 666         }
 667     }   # while end
 668
 669
 670     if ($max_number >= 1)
 671     {
 672         $max_number_digits = length(int($max_number));
 673     }
 674     @buffers = (@buffers, @current2, @current1);
 675     weechat::infolist_free($infolist);
 676
 677     # sort buffers by number, name or shortname
 678     my %sorted_buffers;
 679     if (1)
 680     {
 681         my $number = 0;
 682         for my $buffer (@buffers)
 683         {
 684             my $key;
 685             if (weechat::config_integer( $options{"sort"} ) eq 1) # number = 0; name = 1
 686             {
 687                 my $name = $buffer->{"name"};
 688                 $name = $buffer->{"short_name"} if (weechat::config_boolean( $options{"short_names"} ) eq 1);
 689                 if (weechat::config_integer($options{"name_size_max"}) >= 1){
 690                     $name = encode("UTF-8", substr(decode("UTF-8", $name), 0, weechat::config_integer($options{"name_size_max"})));
 691                 }
 692                 if ( weechat::config_boolean($options{"core_to_front"}) eq 1)
 693                 {
 694                     if ( (weechat::buffer_get_string($buffer->{"pointer"}, "localvar_type") ne "channel" ) and ( weechat::buffer_get_string($buffer->{"pointer"}, "localvar_type") ne "private") )
 695                     {
 696                         my $type = weechat::buffer_get_string($buffer->{"pointer"}, "localvar_type");
 697                         if ( $type eq "" and $name ne "weechat")
 698                         {
 699                             $name = " " . $name
 700                         }else
 701                         {
 702                             $name = "  " . $name;
 703                         }
 704                     }
 705                 }
 706                 $key = sprintf("%s%08d", lc($name), $buffer->{"number"});
 707             }
 708             else
 709             {
 710                 $key = sprintf("%08d", $number);
 711             }
 712             $sorted_buffers{$key} = $buffer;
 713             $number++;
 714         }
 715     }
 716
 717     # build string with buffers
 718     $old_number = -1;
 719     foreach my $key (sort keys %sorted_buffers)
 720     {
 721         my $buffer = $sorted_buffers{$key};
 722
 723         if ( weechat::config_string($options{"hide_merged_buffers"}) eq "server" )
 724         {
 725             # buffer type "server" or merged with core?
 726             if ( ($buffer->{"type"} eq "server" or $buffer->{"plugin_name"} eq "core") && (! $buffer->{"active"}) )
 727             {
 728                 next;
 729             }
 730         }
 731         if ( weechat::config_string($options{"hide_merged_buffers"}) eq "channel" )
 732         {
 733             # buffer type "channel" or merged with core?
 734             if ( ($buffer->{"type"} eq "channel" or $buffer->{"plugin_name"} eq "core") && (! $buffer->{"active"}) )
 735             {
 736                 next;
 737             }
 738         }
 739         if ( weechat::config_string($options{"hide_merged_buffers"}) eq "private" )
 740         {
 741             # buffer type "private" or merged with core?
 742             if ( ($buffer->{"type"} eq "private" or $buffer->{"plugin_name"} eq "core") && (! $buffer->{"active"}) )
 743             {
 744                 next;
 745             }
 746         }
 747         if ( weechat::config_string($options{"hide_merged_buffers"}) eq "keepserver" )
 748         {
 749             if ( ($buffer->{"type"} ne "server" or $buffer->{"plugin_name"} eq "core") && (! $buffer->{"active"}) )
 750             {
 751                 next;
 752             }
 753         }
 754         if ( weechat::config_string($options{"hide_merged_buffers"}) eq "all" )
 755         {
 756             if ( ! $buffer->{"active"} )
 757             {
 758                 next;
 759             }
 760         }
 761
 762         push(@buffers_focus, $buffer);                                          # buffer > buffers_focus, for mouse support
 763         my $color = "";
 764         my $bg = "";
 765
 766         $color = weechat::config_color( $options{"color_default_fg"} );
 767         $bg = weechat::config_color( $options{"color_default_bg"} );
 768
 769         if ( weechat::buffer_get_string($buffer->{"pointer"}, "localvar_type") eq "private" )
 770         {
 771             if ( (weechat::config_color($options{"queries_default_bg"})) ne "default" || (weechat::config_color($options{"queries_default_fg"})) ne "default" )
 772             {
 773               $bg = weechat::config_color( $options{"queries_default_bg"} );
 774               $color = weechat::config_color( $options{"queries_default_fg"} );
 775             }
 776         }
 777         # check for core and buffer with free content
 778         if ( (weechat::buffer_get_string($buffer->{"pointer"}, "localvar_type") ne "channel" ) and ( weechat::buffer_get_string($buffer->{"pointer"}, "localvar_type") ne "private") )
 779         {
 780             $color = weechat::config_color( $options{"color_none_channel_fg"} );
 781             $bg = weechat::config_color( $options{"color_none_channel_bg"} );
 782         }
 783         # default whitelist buffer?
 784         if (grep {$_ eq $buffer->{"name"}} @whitelist_buffers)
 785         {
 786                 $color = weechat::config_color( $options{"color_whitelist_default_fg"} );
 787                 $bg = weechat::config_color( $options{"color_whitelist_default_bg"} );
 788         }
 789
 790         $color = "default" if ($color eq "");
 791
 792         # color for channel and query buffer
 793         if (exists $hotlist{$buffer->{"pointer"}})
 794         {
 795         delete $buffers_timer{$buffer->{"pointer"}};
 796             # check if buffer is in whitelist buffer
 797             if (grep {$_ eq $buffer->{"name"}} @whitelist_buffers)
 798             {
 799                 $bg = weechat::config_color( $options{"color_whitelist_".$hotlist_level{$hotlist{$buffer->{"pointer"}}}."_bg"} );
 800                 $color = weechat::config_color( $options{"color_whitelist_".$hotlist_level{$hotlist{$buffer->{"pointer"}}}."_fg"} );
 801             }
 802             elsif ( weechat::buffer_get_string($buffer->{"pointer"}, "localvar_type") eq "private" )
 803             {
 804                 # queries_default_fg/bg and buffers.color.queries_message_fg/bg
 805                 if ( (weechat::config_color($options{"queries_highlight_fg"})) ne "default" ||
 806                       (weechat::config_color($options{"queries_highlight_bg"})) ne "default" ||
 807                        (weechat::config_color($options{"queries_message_fg"})) ne "default" ||
 808                         (weechat::config_color($options{"queries_message_bg"})) ne "default" )
 809                 {
 810                   if ( ($hotlist{$buffer->{"pointer"}}) == 2 )
 811                   {
 812                       $bg = weechat::config_color( $options{"queries_message_bg"} );
 813                       $color = weechat::config_color( $options{"queries_message_fg"} );
 814                   }
 815
 816                   elsif ( ($hotlist{$buffer->{"pointer"}}) == 3 )
 817                   {
 818                       $bg = weechat::config_color( $options{"queries_highlight_bg"} );
 819                       $color = weechat::config_color( $options{"queries_highlight_fg"} );
 820                   }
 821                 }else
 822                 {
 823                       $bg = weechat::config_color( $options{"color_hotlist_".$hotlist_level{$hotlist{$buffer->{"pointer"}}}."_bg"} );
 824                       $color = weechat::config_color( $options{"color_hotlist_".$hotlist_level{$hotlist{$buffer->{"pointer"}}}."_fg"}  );
 825                 }
 826             }else
 827             {
 828                       $bg = weechat::config_color( $options{"color_hotlist_".$hotlist_level{$hotlist{$buffer->{"pointer"}}}."_bg"} );
 829                       $color = weechat::config_color( $options{"color_hotlist_".$hotlist_level{$hotlist{$buffer->{"pointer"}}}."_fg"}  );
 830             }
 831         }
 832
 833         if ($buffer->{"current_buffer"})
 834         {
 835             $color = weechat::config_color( $options{"color_current_fg"} );
 836             $bg = weechat::config_color( $options{"color_current_bg"} );
 837         }
 838         my $color_bg = "";
 839         $color_bg = weechat::color(",".$bg) if ($bg ne "");
 840
 841         # create channel number for output
 842         if ( weechat::config_boolean( $options{"show_number"} ) eq 1 )   # on
 843         {
 844             if (( weechat::config_boolean( $options{"indenting_number"} ) eq 1)
 845                 && (($position eq "left") || ($position eq "right")))
 846             {
 847                 $str .= weechat::color("default").$color_bg
 848                     .(" " x ($max_number_digits - length(int($buffer->{"number"}))));
 849             }
 850             if ($old_number ne $buffer->{"number"})
 851             {
 852                 $str .= weechat::color( weechat::config_color( $options{"color_number"} ) )
 853                     .$color_bg
 854                     .$buffer->{"number"}
 855                     .weechat::color("default")
 856                     .$color_bg
 857                     .weechat::color( weechat::config_color( $options{"color_number_char"} ) )
 858                     .weechat::config_string( $options{"show_number_char"} )
 859                     .$color_bg;
 860             }
 861             else
 862             {
 863                 my $indent = "";
 864                 $indent = ((" " x length($buffer->{"number"}))." ") if (($position eq "left") || ($position eq "right"));
 865                 $str .= weechat::color("default")
 866                     .$color_bg
 867                     .$indent;
 868             }
 869         }
 870
 871         if (( weechat::config_integer( $options{"indenting"} ) ne 0 )            # indenting NOT off
 872             && (($position eq "left") || ($position eq "right")))
 873         {
 874             my $type = weechat::buffer_get_string($buffer->{"pointer"}, "localvar_type");
 875             if (($type eq "channel") || ($type eq "private"))
 876             {
 877                 if ( weechat::config_integer( $options{"indenting"} ) eq 1 )
 878                 {
 879                     $str .= "  ";
 880                 }
 881                 elsif ( (weechat::config_integer($options{"indenting"}) eq 2) and (weechat::config_integer($options{"indenting_number"}) eq 0) )        #under_name
 882                 {
 883                     if ( weechat::config_boolean( $options{"show_number"} ) eq 0 )
 884                     {
 885                       $str .= "  ";
 886                     }else
 887                     {
 888                       $str .= ( (" " x ( $max_number_digits - length($buffer->{"number"}) ))." " );
 889                     }
 890                 }
 891             }
 892         }
 893
 894         $str .= weechat::config_string( $options{"show_prefix_query"}) if (weechat::config_string( $options{"show_prefix_query"} ) ne "" and  $buffer->{"type"} eq "private");
 895
 896         if (weechat::config_boolean( $options{"show_prefix"} ) eq 1)
 897         {
 898             my $nickname = weechat::buffer_get_string($buffer->{"pointer"}, "localvar_nick");
 899             if ($nickname ne "")
 900             {
 901                 # with version >= 0.3.2, this infolist will return only nick
 902                 # with older versions, whole nicklist is returned for buffer, and this can be very slow
 903                 my $infolist_nick = weechat::infolist_get("nicklist", $buffer->{"pointer"}, "nick_".$nickname);
 904                 if ($infolist_nick ne "")
 905                 {
 906                     my $version = weechat::info_get("version_number", "");
 907                     $version = 0 if ($version eq "");
 908                     while (weechat::infolist_next($infolist_nick))
 909                     {
 910                         if ((weechat::infolist_string($infolist_nick, "type") eq "nick")
 911                             && (weechat::infolist_string($infolist_nick, "name") eq $nickname))
 912                         {
 913                             my $prefix = weechat::infolist_string($infolist_nick, "prefix");
 914                             if (($prefix ne " ") or (weechat::config_boolean( $options{"show_prefix_empty"} ) eq 1))
 915                             {
 916                                 # with version >= 0.3.5, it is now a color name (for older versions: option name with color)
 917                                 if (int($version) >= 0x00030500)
 918                                 {
 919                                     $str .= weechat::color(weechat::infolist_string($infolist_nick, "prefix_color"));
 920                                 }
 921                                 else
 922                                 {
 923                                     $str .= weechat::color(weechat::config_color(
 924                                                                weechat::config_get(
 925                                                                    weechat::infolist_string($infolist_nick, "prefix_color"))));
 926                                 }
 927                                 $str .= $prefix;
 928                             }
 929                             last;
 930                         }
 931                     }
 932                     weechat::infolist_free($infolist_nick);
 933                 }
 934             }
 935         }
 936         if ($buffer->{"type"} eq "channel" and weechat::config_boolean( $options{"mark_inactive"} ) eq 1 and $buffer->{"nicks_count"} == 0)
 937         {
 938             $str .= "(";
 939         }
 940
 941         $str .= weechat::color($color) . weechat::color(",".$bg);
 942
 943         if (weechat::config_boolean( $options{"short_names"} ) eq 1)
 944         {
 945             if (weechat::config_integer($options{"name_size_max"}) >= 1)                # check max_size of buffer name
 946             {
 947                 $str .= encode("UTF-8", substr(decode("UTF-8", $buffer->{"short_name"}), 0, weechat::config_integer($options{"name_size_max"})));
 948                 $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"}));
 949                 $str .= add_inactive_parentless($buffer->{"type"},$buffer->{"nicks_count"});
 950                 $str .= add_hotlist_count($buffer->{"pointer"},%hotlist);
 951             }
 952             else
 953             {
 954                 $str .= $buffer->{"short_name"};
 955                 $str .= add_inactive_parentless($buffer->{"type"},$buffer->{"nicks_count"});
 956                 $str .= add_hotlist_count($buffer->{"pointer"},%hotlist);
 957             }
 958         }
 959         else
 960         {
 961             if (weechat::config_integer($options{"name_size_max"}) >= 1)                # check max_size of buffer name
 962             {
 963                 $str .= encode("UTF-8", substr(decode("UTF-8", $buffer->{"name"},), 0, weechat::config_integer($options{"name_size_max"})));
 964                 $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"}));
 965                 $str .= add_inactive_parentless($buffer->{"type"},$buffer->{"nicks_count"});
 966                 $str .= add_hotlist_count($buffer->{"pointer"},%hotlist);
 967             }
 968             else
 969             {
 970                 $str .= $buffer->{"name"};
 971                 $str .= add_inactive_parentless($buffer->{"type"},$buffer->{"nicks_count"});
 972                 $str .= add_hotlist_count($buffer->{"pointer"},%hotlist);
 973             }
 974         }
 975         if ( weechat::buffer_get_string($buffer->{"pointer"}, "localvar_type") eq "server" and weechat::config_boolean($options{"show_lag"}) eq 1)
 976         {
 977             my $color_lag = weechat::config_color(weechat::config_get("irc.color.item_lag_finished"));
 978             my $min_lag = weechat::config_integer(weechat::config_get("irc.network.lag_min_show"));
 979             my $infolist_server = weechat::infolist_get("irc_server","",$buffer->{"short_name"});
 980             weechat::infolist_next($infolist_server);
 981             my $lag = (weechat::infolist_integer($infolist_server, "lag"));
 982             weechat::infolist_free($infolist_server);
 983             if ( int($lag) > int($min_lag) )
 984             {
 985                 $lag = $lag / 1000;
 986                 $str .= weechat::color("default") . " (" . weechat::color($color_lag) . $lag . weechat::color("default") . ")";
 987             }
 988         }
 989         if (weechat::config_boolean($options{"detach_displayed_buffers"}) eq 0
 990             and weechat::config_boolean($options{"detach_display_window_number"}) eq 1)
 991         {
 992             if ($buffer->{"window"})
 993             {
 994                 $str .= weechat::color("default") . " (" . weechat::color(weechat::config_color( $options{"color_number"})) . $buffer->{"window"} . weechat::color("default") . ")";
 995             }
 996         }
 997         $str .= "\n";
 998         $old_number = $buffer->{"number"};
 999     }
1000
1001     # remove spaces and/or linefeed at the end
1002     $str =~ s/\s+$//;
1003     chomp($str);
1004     return $str;
1005 }
1006
1007 sub add_inactive_parentless
1008 {
1009 my ($buf_type, $buf_nicks_count) = @_;
1010 my $str = "";
1011     if ($buf_type eq "channel" and weechat::config_boolean( $options{"mark_inactive"} ) eq 1 and $buf_nicks_count == 0)
1012     {
1013         $str .= weechat::color(weechat::config_color( $options{"color_number_char"}));
1014         $str .= ")";
1015     }
1016 return $str;
1017 }
1018
1019 sub add_hotlist_count
1020 {
1021 my ($bufpointer,%hotlist) = @_;
1022
1023 return "" if ( weechat::config_boolean( $options{"hotlist_counter"} ) eq 0 or ($weechat_version < 0x00030500));   # off
1024 my $col_number_char = weechat::color(weechat::config_color( $options{"color_number_char"}) );
1025 my $str = " ".$col_number_char."(";
1026
1027 # 0 = low level
1028 if (defined $hotlist{$bufpointer."_count_00"})
1029 {
1030     my $bg = weechat::config_color( $options{"color_hotlist_low_bg"} );
1031     my $color = weechat::config_color( $options{"color_hotlist_low_fg"} );
1032     $str .= weechat::color($bg).
1033             weechat::color($color).
1034             $hotlist{$bufpointer."_count_00"} if ($hotlist{$bufpointer."_count_00"} ne "0");
1035 }
1036
1037 # 1 = message
1038 if (defined $hotlist{$bufpointer."_count_01"})
1039 {
1040     my $bg = weechat::config_color( $options{"color_hotlist_message_bg"} );
1041     my $color = weechat::config_color( $options{"color_hotlist_message_fg"} );
1042     if ($str =~ /[0-9]$/)
1043     {
1044         $str .= ",".
1045                 weechat::color($bg).
1046                 weechat::color($color).
1047                 $hotlist{$bufpointer."_count_01"} if ($hotlist{$bufpointer."_count_01"} ne "0");
1048     }else
1049     {
1050         $str .= weechat::color($bg).
1051                 weechat::color($color).
1052                 $hotlist{$bufpointer."_count_01"} if ($hotlist{$bufpointer."_count_01"} ne "0");
1053     }
1054 }
1055 # 2 = private
1056 if (defined $hotlist{$bufpointer."_count_02"})
1057 {
1058     my $bg = weechat::config_color( $options{"color_hotlist_private_bg"} );
1059     my $color = weechat::config_color( $options{"color_hotlist_private_fg"} );
1060     if ($str =~ /[0-9]$/)
1061     {
1062         $str .= ",".
1063                 weechat::color($bg).
1064                 weechat::color($color).
1065                 $hotlist{$bufpointer."_count_02"} if ($hotlist{$bufpointer."_count_02"} ne "0");
1066     }else
1067     {
1068         $str .= weechat::color($bg).
1069                 weechat::color($color).
1070                 $hotlist{$bufpointer."_count_02"} if ($hotlist{$bufpointer."_count_02"} ne "0");
1071     }
1072 }
1073 # 3 = highlight
1074 if (defined $hotlist{$bufpointer."_count_03"})
1075 {
1076     my $bg = weechat::config_color( $options{"color_hotlist_highlight_bg"} );
1077     my $color = weechat::config_color( $options{"color_hotlist_highlight_fg"} );
1078     if ($str =~ /[0-9]$/)
1079     {
1080         $str .= ",".
1081                 weechat::color($bg).
1082                 weechat::color($color).
1083                 $hotlist{$bufpointer."_count_03"} if ($hotlist{$bufpointer."_count_03"} ne "0");
1084     }else
1085     {
1086         $str .= weechat::color($bg).
1087                 weechat::color($color).
1088                 $hotlist{$bufpointer."_count_03"} if ($hotlist{$bufpointer."_count_03"} ne "0");
1089     }
1090 }
1091 $str .= $col_number_char. ")";
1092
1093 $str = "" if (weechat::string_remove_color($str, "") eq " ()");         # remove color and check for buffer with no messages
1094 return $str;
1095 }
1096
1097 sub buffers_signal_buffer
1098 {
1099 my ($data, $signal, $signal_data) = @_;
1100     # check for buffer_switch and set or remove detach time
1101     if ($weechat_version >= 0x00030800)
1102     {
1103         if ($signal eq "buffer_switch")
1104         {
1105             my $pointer = weechat::hdata_get_list (weechat::hdata_get("buffer"), "gui_buffer_last_displayed"); # get switched buffer
1106             my $current_time = time();
1107             if ( weechat::buffer_get_string($pointer, "localvar_type") eq "channel")
1108             {
1109                 $buffers_timer{$pointer} = $current_time;
1110             }
1111             else
1112             {
1113                 delete $buffers_timer{$pointer};
1114             }
1115         }
1116         if ($signal eq "buffer_opened")
1117         {
1118             my $current_time = time();
1119             $buffers_timer{$signal_data} = $current_time;
1120         }
1121         if ($signal eq "buffer_closing")
1122         {
1123             delete $buffers_timer{$signal_data};
1124         }
1125     }
1126     weechat::bar_item_update($SCRIPT_NAME);
1127     return weechat::WEECHAT_RC_OK;
1128 }
1129
1130 sub buffers_signal_hotlist
1131 {
1132     weechat::bar_item_update($SCRIPT_NAME);
1133     return weechat::WEECHAT_RC_OK;
1134 }
1135
1136
1137 sub buffers_signal_config_whitelist
1138 {
1139     @whitelist_buffers = ();
1140     @whitelist_buffers = split( /,/, weechat::config_string( $options{"look_whitelist_buffers"} ) );
1141     weechat::bar_item_update($SCRIPT_NAME);
1142     return weechat::WEECHAT_RC_OK;
1143 }
1144
1145 sub buffers_signal_config_immune_detach_buffers
1146 {
1147     @immune_detach_buffers = ();
1148     @immune_detach_buffers = split( /,/, weechat::config_string( $options{"immune_detach_buffers"} ) );
1149     weechat::bar_item_update($SCRIPT_NAME);
1150     return weechat::WEECHAT_RC_OK;
1151 }
1152
1153 sub buffers_signal_config_detach_buffer_immediately
1154 {
1155     @detach_buffer_immediately = ();
1156     @detach_buffer_immediately = split( /,/, weechat::config_string( $options{"detach_buffer_immediately"} ) );
1157     weechat::bar_item_update($SCRIPT_NAME);
1158     return weechat::WEECHAT_RC_OK;
1159 }
1160
1161 sub buffers_signal_config
1162 {
1163     weechat::bar_item_update($SCRIPT_NAME);
1164     return weechat::WEECHAT_RC_OK;
1165 }
1166
1167 # called when mouse click occured in buffers item: this callback returns buffer
1168 # hash according to line of item where click occured
1169 sub buffers_focus_buffers
1170 {
1171     my %info = %{$_[1]};
1172     my $item_line = int($info{"_bar_item_line"});
1173     undef my $hash;
1174     if (($info{"_bar_item_name"} eq $SCRIPT_NAME) && ($item_line >= 0) && ($item_line <= $#buffers_focus))
1175     {
1176         $hash = $buffers_focus[$item_line];
1177     }
1178     else
1179     {
1180         $hash = {};
1181         my $hash_focus = $buffers_focus[0];
1182         foreach my $key (keys %$hash_focus)
1183         {
1184             $hash->{$key} = "?";
1185         }
1186     }
1187     return $hash;
1188 }
1189
1190 # called when a mouse action is done on buffers item, to execute action
1191 # possible actions: jump to a buffer or move buffer in list (drag & drop of buffer)
1192 sub buffers_hsignal_mouse
1193 {
1194     my ($data, $signal, %hash) = ($_[0], $_[1], %{$_[2]});
1195     my $current_buffer = weechat::buffer_get_integer(weechat::current_buffer(), "number"); # get current buffer number
1196
1197     if ( $hash{"_key"} eq "button1" )           # left mouse button
1198     {
1199       if ($hash{"number"} eq $hash{"number2"})
1200         {
1201             if ( weechat::config_integer($options{"jump_prev_next_visited_buffer"}) eq 1 )
1202             {
1203                 if ( $current_buffer eq $hash{"number"} )
1204                 {
1205                     weechat::command("","/input jump_previously_visited_buffer");
1206                 }
1207                 else
1208                 {
1209                     weechat::command("", "/buffer ".$hash{"full_name"});
1210                 }
1211             }
1212             else
1213             {
1214                 weechat::command("", "/buffer ".$hash{"full_name"});
1215             }
1216         }
1217         else
1218         {
1219             move_buffer(%hash);
1220         }
1221     }
1222     elsif ( ($hash{"_key"} eq "button2") && (weechat::config_integer($options{"jump_prev_next_visited_buffer"}) eq 1) )# right mouse button
1223     {
1224         if ( $current_buffer eq $hash{"number2"} )
1225         {
1226             weechat::command("","/input jump_next_visited_buffer");
1227         }
1228     }
1229     else
1230     {
1231         my $infolist = weechat::infolist_get("hook", "", "command,menu");
1232         my $has_menu_command = weechat::infolist_next($infolist);
1233         weechat::infolist_free($infolist);
1234
1235         if ( $has_menu_command && $hash{"_key"} =~ /button2/ )
1236         {
1237             if ($hash{"number"} eq $hash{"number2"})
1238             {
1239                 weechat::command($hash{"pointer"}, "/menu buffer1 $hash{short_name} $hash{number}");
1240             }
1241             else
1242             {
1243                 weechat::command($hash{"pointer"}, "/menu buffer2 $hash{short_name}/$hash{short_name2} $hash{number} $hash{number2}")
1244             }
1245         }
1246         else
1247         {
1248             move_buffer(%hash);
1249         }
1250     }
1251 }
1252
1253 sub move_buffer
1254 {
1255   my %hash = @_;
1256   my $number2 = $hash{"number2"};
1257   if ($number2 eq "?")
1258   {
1259       # if number 2 is not known (end of gesture outside buffers list), then set it
1260       # according to mouse gesture
1261       $number2 = "999999";
1262       $number2 = "1" if (($hash{"_key"} =~ /gesture-left/) || ($hash{"_key"} =~ /gesture-up/));
1263   }
1264   my $ptrbuf = weechat::current_buffer();
1265   weechat::command($hash{"pointer"}, "/buffer move ".$number2);
1266 }
1267
1268 sub check_immune_detached_buffers
1269 {
1270     my ($buffername) = @_;
1271     foreach ( @immune_detach_buffers ){
1272         my $immune_buffer = weechat::string_mask_to_regex($_);
1273         if ($buffername =~ /^$immune_buffer$/i)
1274         {
1275             return 1;
1276         }
1277     }
1278     return 0;
1279 }
1280
1281 sub check_detach_buffer_immediately
1282 {
1283     my ($buffername) = @_;
1284     foreach ( @detach_buffer_immediately ){
1285         my $detach_buffer = weechat::string_mask_to_regex($_);
1286         if ($buffername =~ /^$detach_buffer$/i)
1287         {
1288             return 1;
1289         }
1290     }
1291     return 0;
1292 }
1293
1294 sub shutdown_cb
1295 {
1296     weechat::command("","/bar hide " . $SCRIPT_NAME) if ( weechat::config_boolean($options{"toggle_bar"}) eq 1 );
1297     return weechat::WEECHAT_RC_OK
1298 }
1299
1300 sub check_bar_item
1301 {
1302     my $item = 0;
1303     my $infolist = weechat::infolist_get("bar", "", "");
1304     while (weechat::infolist_next($infolist))
1305     {
1306         my $bar_items = weechat::infolist_string($infolist, "items");
1307         if (index($bar_items,$SCRIPT_NAME) != -1)
1308         {
1309             my $name = weechat::infolist_string($infolist, "name");
1310             if ($name ne $SCRIPT_NAME)
1311             {
1312                 $item = 1;
1313                 last;
1314             }
1315         }
1316     }
1317     weechat::infolist_free($infolist);
1318     return $item;
1319 }