X-Git-Url: https://git.rmz.io/dotfiles.git/blobdiff_plain/4bdc61c5a84bf3525cdc4a43c24cf6c871a28680..0f78e946801410f7b301f9c2fb9741ec1f15187c:/weechat/perl/buffers.pl diff --git a/weechat/perl/buffers.pl b/weechat/perl/buffers.pl index c8935c4..8147341 100644 --- a/weechat/perl/buffers.pl +++ b/weechat/perl/buffers.pl @@ -20,6 +20,11 @@ # # History: # +# 2014-07-19, Sebastien Helleu : +# v4.8: add support of ctrl + mouse wheel to jump to previous/next buffer, +# new option "mouse_wheel" +# 2014-06-22, Sebastien Helleu : +# v4.7: fix typos in options # 2014-04-05, Sebastien Helleu : # v4.6: add support of hidden buffers (WeeChat >= 0.4.4) # 2014-01-01, Sebastien Helleu : @@ -155,7 +160,7 @@ use strict; use Encode qw( decode encode ); # -----------------------------[ internal ]------------------------------------- my $SCRIPT_NAME = "buffers"; -my $SCRIPT_VERSION = "4.6"; +my $SCRIPT_VERSION = "4.8"; my $BUFFERS_CONFIG_FILE_NAME = "buffers"; my $buffers_config_file; @@ -163,7 +168,9 @@ my $cmd_buffers_whitelist= "buffers_whitelist"; my $cmd_buffers_detach = "buffers_detach"; my %mouse_keys = ("\@item(buffers):button1*" => "hsignal:buffers_mouse", - "\@item(buffers):button2*" => "hsignal:buffers_mouse"); + "\@item(buffers):button2*" => "hsignal:buffers_mouse", + "\@bar(buffers):ctrl-wheelup" => "hsignal:buffers_mouse", + "\@bar(buffers):ctrl-wheeldown" => "hsignal:buffers_mouse"); my %options; my %hotlist_level = (0 => "low", 1 => "message", 2 => "private", 3 => "highlight"); my @whitelist_buffers = (); @@ -628,7 +635,7 @@ my %default_options_look = ], "show_lag" => [ "show_lag", "boolean", - "show lag behind servername. This option is using \"irc.color.". + "show lag behind server name. 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, @@ -670,31 +677,31 @@ my %default_options_look = ], "show_number" => [ "show_number", "boolean", - "display channel number in front of buffername", + "display buffer number in front of buffer name", "", 0, 0, "on", "on", 0, "", "", "buffers_signal_config", "", "", "" ], "show_number_char" => [ "number_char", "string", - "display a char behind channel number", + "display a char behind buffer number", "", 0, 0, ".", ".", 0, "", "", "buffers_signal_config", "", "", "" ], "show_prefix_bufname" => [ "prefix_bufname", "string", - "prefix displayed in front of buffername", + "prefix displayed in front of buffer name", "", 0, 0, "", "", 0, "", "", "buffers_signal_config", "", "", "" ], "show_suffix_bufname" => [ "suffix_bufname", "string", - "suffix displayed at end of buffername", + "suffix displayed at end of buffer name", "", 0, 0, "", "", 0, "", "", "buffers_signal_config", "", "", "" ], "show_prefix" => [ "prefix", "boolean", - "displays your prefix for channel in front of buffername", + "displays your prefix for channel in front of buffer name", "", 0, 0, "off", "off", 0, "", "", "buffers_signal_config", "", "", "" ], @@ -745,21 +752,21 @@ my %default_options_look = ], "detach" => [ "detach", "integer", - "detach channel from buffers list after a specific period of time ". + "detach buffer 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. ". + "comma separated list of buffers to NOT automatically detach. ". "Allows \"*\" wildcard. Ex: \"BitlBee,freenode.*\"", "", 0, 0, "", "", 0, "", "", "buffers_signal_config_immune_detach_buffers", "", "", "" ], "detach_query" => [ "detach_query", "boolean", - "query buffer will be detachted", + "query buffer will be detached", "", 0, 0, "off", "off", 0, "", "", "buffers_signal_config", "", "", "" ], @@ -798,7 +805,7 @@ my %default_options_look = "", "", "buffers_signal_config", "", "", "" ], "toggle_bar" => [ - "toogle_bar", "boolean", + "toggle_bar", "boolean", "if option is \"on\", buffers bar will hide/show when script is ". "(un)loaded.", "", 0, 0, "on", "on", 0, @@ -810,6 +817,12 @@ my %default_options_look = "", 0, 0, "on", "on", 0, "", "", "buffers_signal_config", "", "", "" ], + "mouse_wheel" => [ + "mouse_wheel", "boolean", + "if option is \"on\", mouse wheel jumps to previous/next buffer in list.", + "", 0, 0, "on", "on", 0, + "", "", "buffers_signal_config", "", "", "" + ], ); # section "color" my $section_color = weechat::config_new_section( @@ -1615,11 +1628,12 @@ sub buffers_hsignal_mouse my ($data, $signal, %hash) = ($_[0], $_[1], %{$_[2]}); my $current_buffer = weechat::buffer_get_integer(weechat::current_buffer(), "number"); # get current buffer number - if ( $hash{"_key"} eq "button1" ) # left mouse button + if ( $hash{"_key"} eq "button1" ) { + # left mouse button if ($hash{"number"} eq $hash{"number2"}) { - if ( weechat::config_integer($options{"jump_prev_next_visited_buffer"}) eq 1 ) + if ( weechat::config_boolean($options{"jump_prev_next_visited_buffer"}) ) { if ( $current_buffer eq $hash{"number"} ) { @@ -1640,13 +1654,30 @@ sub buffers_hsignal_mouse move_buffer(%hash) if (weechat::config_boolean($options{"mouse_move_buffer"})); } } - elsif ( ($hash{"_key"} eq "button2") && (weechat::config_integer($options{"jump_prev_next_visited_buffer"}) eq 1) )# right mouse button + elsif ( ($hash{"_key"} eq "button2") && (weechat::config_boolean($options{"jump_prev_next_visited_buffer"})) ) { + # right mouse button if ( $current_buffer eq $hash{"number2"} ) { weechat::command("", "/input jump_next_visited_buffer"); } } + elsif ( $hash{"_key"} =~ /wheelup$/ ) + { + # wheel up + if (weechat::config_boolean($options{"mouse_wheel"})) + { + weechat::command("", "/buffer -1"); + } + } + elsif ( $hash{"_key"} =~ /wheeldown$/ ) + { + # wheel down + if (weechat::config_boolean($options{"mouse_wheel"})) + { + weechat::command("", "/buffer +1"); + } + } else { my $infolist = weechat::infolist_get("hook", "", "command,menu");