Mercurial > dotfiles

annotate weechat/perl/iset.pl @ 259:726728f13152

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
More Weechat plugins and config.
author Ludovic Chabant <ludovic@chabant.com>
date Wed, 21 Jan 2015 16:45:26 -0800
parents
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
259
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1 #
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
2 # Copyright (C) 2008-2014 Sebastien Helleu <flashcode@flashtux.org>
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
3 # Copyright (C) 2010-2014 Nils Görs <weechatter@arcor.de>
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
4 #
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
5 # This program is free software; you can redistribute it and/or modify
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
6 # it under the terms of the GNU General Public License as published by
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
7 # the Free Software Foundation; either version 3 of the License, or
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
8 # (at your option) any later version.
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
9 #
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
10 # This program is distributed in the hope that it will be useful,
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
11 # but WITHOUT ANY WARRANTY; without even the implied warranty of
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
12 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
13 # GNU General Public License for more details.
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
14 #
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
15 # You should have received a copy of the GNU General Public License
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
16 # along with this program. If not, see <http://www.gnu.org/licenses/>.
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
17 #
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
18 # Set WeeChat and plugins options interactively.
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
19 #
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
20 # History:
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
21 #
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
22 # 2014-09-30, arza <arza@arza.us>:
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
23 # version 3.6: fix current line counter when options aren't found
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
24 # 2014-06-03, nils_2 <weechatter@arcor.de>:
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
25 # version 3.5: add new option "use_mute"
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
26 # 2014-01-30, stfn <stfnmd@gmail.com>:
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
27 # version 3.4: add new options "color_value_diff" and "color_value_diff_selected"
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
28 # 2014-01-16, luz <ne.tetewi@gmail.com>:
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
29 # version 3.3: fix bug with column alignment in iset buffer when option
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
30 # name contains unicode characters
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
31 # 2013-08-03, Sebastien Helleu <flashcode@flashtux.org>:
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
32 # version 3.2: allow "q" as input in iset buffer to close it
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
33 # 2013-07-14, Sebastien Helleu <flashcode@flashtux.org>:
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
34 # version 3.1: remove unneeded calls to iset_refresh() in mouse callback
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
35 # (faster mouse actions when lot of options are displayed),
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
36 # fix bug when clicking on a line after the last option displayed
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
37 # 2013-04-30, arza <arza@arza.us>:
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
38 # version 3.0: simpler title, fix refresh on unset
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
39 # 2012-12-16, nils_2 <weechatter@arcor.de>:
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
40 # version 2.9: fix focus window with iset buffer on mouse click
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
41 # 2012-08-25, nils_2 <weechatter@arcor.de>:
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
42 # version 2.8: most important key and mouse bindings for iset buffer added to title-bar (idea The-Compiler)
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
43 # 2012-07-31, nils_2 <weechatter@arcor.de>:
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
44 # version 2.7: add combined option and value search (see /help iset)
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
45 # : add exact value search (see /help iset)
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
46 # : fix problem with metacharacter in value search
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
47 # : fix use of uninitialized value for unset option and reset value of option
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
48 # 2012-07-25, nils_2 <weechatter@arcor.de>:
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
49 # version 2.6: switch to iset buffer (if existing) when command /iset is called with arguments
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
50 # 2012-03-17, Sebastien Helleu <flashcode@flashtux.org>:
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
51 # version 2.5: fix check of sections when creating config file
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
52 # 2012-03-09, Sebastien Helleu <flashcode@flashtux.org>:
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
53 # version 2.4: fix reload of config file
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
54 # 2012-02-02, nils_2 <weechatter@arcor.de>:
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
55 # version 2.3: fixed: refresh problem with new search results and cursor was outside window.
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
56 # : add: new option "current_line" in title bar
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
57 # version 2.2: fixed: refresh error when toggling plugins description
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
58 # 2011-11-05, nils_2 <weechatter@arcor.de>:
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
59 # version 2.1: use own config file (iset.conf), fix own help color (used immediately)
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
60 # 2011-10-16, nils_2 <weechatter@arcor.de>:
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
61 # version 2.0: add support for left-mouse-button and more sensitive mouse gesture (for integer/color options)
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
62 # add help text for mouse support
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
63 # 2011-09-20, Sebastien Helleu <flashcode@flashtux.org>:
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
64 # version 1.9: add mouse support, fix iset buffer, fix errors on first load under FreeBSD
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
65 # 2011-07-21, nils_2 <weechatter@arcor.de>:
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
66 # version 1.8: added: option "show_plugin_description" (alt+p)
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
67 # fixed: typos in /help iset (lower case for alt+'x' keys)
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
68 # 2011-05-29, nils_2 <weechatter@arcor.de>:
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
69 # version 1.7: added: version check for future needs
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
70 # added: new option (scroll_horiz) and usage of scroll_horiz function (weechat >= 0.3.6 required)
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
71 # fixed: help_bar did not pop up immediately using key-shortcut
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
72 # 2011-02-19, nils_2 <weechatter@arcor.de>:
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
73 # version 1.6: added: display of all possible values in help bar (show_help_extra_info)
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
74 # fixed: external user options never loaded when starting iset first time
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
75 # 2011-02-13, Sebastien Helleu <flashcode@flashtux.org>:
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
76 # version 1.5: use new help format for command arguments
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
77 # 2011-02-03, nils_2 <weechatter@arcor.de>:
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
78 # version 1.4: fixed: restore value filter after /upgrade using buffer local variable.
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
79 # 2011-01-14, nils_2 <weechatter@arcor.de>:
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
80 # version 1.3: added function to search for values (option value_search_char).
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
81 # code optimization.
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
82 # 2010-12-26, Sebastien Helleu <flashcode@flashtux.org>:
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
83 # version 1.2: improve speed of /upgrade when iset buffer is open,
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
84 # restore filter used after /upgrade using buffer local variable,
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
85 # use /iset filter argument if buffer is open.
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
86 # 2010-11-21, drubin <drubin+weechat@smartcube.co.za>:
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
87 # version 1.1.1: fix bugs with cursor position
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
88 # 2010-11-20, nils_2 <weechatter@arcor.de>:
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
89 # version 1.1: cursor position set to value
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
90 # 2010-08-03, Sebastien Helleu <flashcode@flashtux.org>:
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
91 # version 1.0: move misplaced call to infolist_free()
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
92 # 2010-02-02, rettub <rettub@gmx.net>:
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
93 # version 0.9: turn all the help stuff off if option 'show_help_bar' is 'off',
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
94 # new key binding <alt>-<v> to toggle help_bar and help stuff on/off
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
95 # 2010-01-30, nils_2 <weechatter@arcor.de>:
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
96 # version 0.8: fix error when option does not exist
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
97 # 2010-01-24, Sebastien Helleu <flashcode@flashtux.org>:
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
98 # version 0.7: display iset bar only on iset buffer
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
99 # 2010-01-22, nils_2 <weechatter@arcor.de> and drubin:
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
100 # version 0.6: add description in a bar, fix singular/plural bug in title bar,
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
101 # fix selected line when switching buffer
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
102 # 2009-06-21, Sebastien Helleu <flashcode@flashtux.org>:
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
103 # version 0.5: fix bug with iset buffer after /upgrade
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
104 # 2009-05-02, Sebastien Helleu <flashcode@flashtux.org>:
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
105 # version 0.4: sync with last API changes
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
106 # 2009-01-04, Sebastien Helleu <flashcode@flashtux.org>:
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
107 # version 0.3: open iset buffer when /iset command is executed
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
108 # 2009-01-04, Sebastien Helleu <flashcode@flashtux.org>:
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
109 # version 0.2: use null values for options, add colors, fix refresh bugs,
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
110 # use new keys to reset/unset options, sort options by name,
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
111 # display number of options in buffer's title
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
112 # 2008-11-05, Sebastien Helleu <flashcode@flashtux.org>:
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
113 # version 0.1: first official version
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
114 # 2008-04-19, Sebastien Helleu <flashcode@flashtux.org>:
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
115 # script creation
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
116
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
117 use strict;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
118
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
119 my $PRGNAME = "iset";
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
120 my $VERSION = "3.6";
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
121 my $DESCR = "Interactive Set for configuration options";
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
122 my $AUTHOR = "Sebastien Helleu <flashcode\@flashtux.org>";
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
123 my $LICENSE = "GPL3";
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
124 my $LANG = "perl";
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
125 my $ISET_CONFIG_FILE_NAME = "iset";
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
126
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
127 my $iset_config_file;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
128 my $iset_buffer = "";
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
129 my $wee_version_number = 0;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
130 my @iset_focus = ();
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
131 my @options_names = ();
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
132 my @options_types = ();
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
133 my @options_values = ();
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
134 my @options_default_values = ();
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
135 my @options_is_null = ();
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
136 my $option_max_length = 0;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
137 my $current_line = 0;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
138 my $filter = "*";
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
139 my $description = "";
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
140 my $options_name_copy = "";
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
141 my $iset_filter_title = "";
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
142 # search modes: 0 = index() on value, 1 = grep() on value, 2 = grep() on option, 3 = grep on option & value
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
143 my $search_mode = 2;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
144 my $search_value = "";
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
145 my $help_text_keys = "alt + space: toggle, +/-: increase/decrease, enter: change, ir: reset, iu: unset, v: toggle help bar";
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
146 my $help_text_mouse = "Mouse: left: select, right: toggle/set, right + drag left/right: increase/decrease";
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
147 my %options_iset;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
148
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
149 my %mouse_keys = ("\@chat(perl.$PRGNAME):button1" => "hsignal:iset_mouse",
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
150 "\@chat(perl.$PRGNAME):button2*" => "hsignal:iset_mouse",
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
151 "\@chat(perl.$PRGNAME):wheelup" => "/repeat 5 /iset **up",
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
152 "\@chat(perl.$PRGNAME):wheeldown" => "/repeat 5 /iset **down");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
153
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
154
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
155 sub iset_title
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
156 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
157 if ($iset_buffer ne "")
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
158 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
159 my $current_line_counter = "";
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
160 if (weechat::config_boolean($options_iset{"show_current_line"}) == 1)
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
161 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
162 if (@options_names eq 0)
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
163 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
164 $current_line_counter = "0/";
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
165 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
166 else
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
167 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
168 $current_line_counter = ($current_line + 1) . "/";
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
169 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
170 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
171 my $show_filter = "";
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
172 if ($search_mode eq 0)
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
173 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
174 $iset_filter_title = "(value) ";
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
175 $show_filter = $search_value;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
176 if ( substr($show_filter,0,1) eq weechat::config_string($options_iset{"value_search_char"}) )
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
177 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
178 $show_filter = substr($show_filter,1,length($show_filter));
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
179 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
180 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
181 elsif ($search_mode eq 1)
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
182 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
183 $iset_filter_title = "(value) ";
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
184 $show_filter = "*".$search_value."*";
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
185 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
186 elsif ($search_mode eq 2)
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
187 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
188 $iset_filter_title = "";
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
189 $filter = "*" if ($filter eq "");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
190 $show_filter = $filter;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
191 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
192 elsif ($search_mode eq 3)
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
193 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
194 $iset_filter_title = "(option) ";
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
195 $show_filter = $filter
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
196 .weechat::color("default")
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
197 ." / (value) "
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
198 .weechat::color("yellow")
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
199 ."*".$search_value."*";
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
200 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
201 weechat::buffer_set($iset_buffer, "title",
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
202 $iset_filter_title
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
203 .weechat::color("yellow")
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
204 .$show_filter
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
205 .weechat::color("default")." | "
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
206 .$current_line_counter
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
207 .@options_names
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
208 ." | "
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
209 .$help_text_keys
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
210 ." | "
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
211 .$help_text_mouse);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
212 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
213 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
214
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
215 sub iset_create_filter
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
216 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
217 $filter = $_[0];
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
218 if ( $search_mode == 3 )
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
219 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
220 my @cmd_array = split(/ /,$filter);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
221 my $array_count = @cmd_array;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
222 $filter = $cmd_array[0];
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
223 $filter = $cmd_array[0] . " " . $cmd_array[1] if ( $array_count >2 );
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
224 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
225 $filter = "$1.*" if ($filter =~ /f (.*)/); # search file
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
226 $filter = "*.$1.*" if ($filter =~ /s (.*)/); # search section
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
227 if ((substr($filter, 0, 1) ne "*") && (substr($filter, -1, 1) ne "*"))
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
228 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
229 $filter = "*".$filter."*";
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
230 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
231 if ($iset_buffer ne "")
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
232 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
233 weechat::buffer_set($iset_buffer, "localvar_set_iset_filter", $filter);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
234 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
235 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
236
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
237 sub iset_buffer_input
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
238 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
239 my ($data, $buffer, $string) = ($_[0], $_[1], $_[2]);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
240 if ($string eq "q")
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
241 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
242 weechat::buffer_close($buffer);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
243 return weechat::WEECHAT_RC_OK;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
244 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
245 $search_value = "";
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
246 my @cmd_array = split(/ /,$string);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
247 my $array_count = @cmd_array;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
248 my $string2 = substr($string, 0, 1);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
249 if ($string2 eq weechat::config_string($options_iset{"value_search_char"})
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
250 or (defined $cmd_array[0] and $cmd_array[0] eq weechat::config_string($options_iset{"value_search_char"}).weechat::config_string($options_iset{"value_search_char"})) )
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
251 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
252 $search_mode = 1;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
253 $search_value = substr($string, 1);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
254 iset_get_values($search_value);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
255 if ($iset_buffer ne "")
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
256 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
257 weechat::buffer_set($iset_buffer, "localvar_set_iset_search_value", $search_value);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
258 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
259 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
260 else
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
261 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
262 $search_mode = 2;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
263 if ( $array_count >= 2 and $cmd_array[0] ne "f" or $cmd_array[0] ne "s")
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
264 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
265 if ( defined $cmd_array[1] and substr($cmd_array[1], 0, 1) eq weechat::config_string($options_iset{"value_search_char"})
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
266 or defined $cmd_array[2] and substr($cmd_array[2], 0, 1) eq weechat::config_string($options_iset{"value_search_char"}) )
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
267 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
268 $search_mode = 3;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
269 $search_value = substr($cmd_array[1], 1); # cut value_search_char
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
270 $search_value = substr($cmd_array[2], 1) if ( $array_count > 2); # cut value_search_char
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
271 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
272 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
273 if ( $search_mode == 3)
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
274 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
275 iset_create_filter($string);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
276 iset_get_options($search_value);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
277 }else
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
278 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
279 iset_create_filter($string);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
280 iset_get_options("");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
281 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
282 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
283 weechat::buffer_set($iset_buffer, "localvar_set_iset_search_mode", $search_mode);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
284 weechat::buffer_clear($buffer);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
285 $current_line = 0;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
286 iset_refresh();
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
287 return weechat::WEECHAT_RC_OK;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
288 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
289
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
290 sub iset_buffer_close
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
291 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
292 $iset_buffer = "";
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
293
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
294 return weechat::WEECHAT_RC_OK;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
295 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
296
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
297 sub iset_init
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
298 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
299 $current_line = 0;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
300 $iset_buffer = weechat::buffer_search($LANG, $PRGNAME);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
301 if ($iset_buffer eq "")
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
302 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
303 $iset_buffer = weechat::buffer_new($PRGNAME, "iset_buffer_input", "", "iset_buffer_close", "");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
304 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
305 else
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
306 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
307 my $new_filter = weechat::buffer_get_string($iset_buffer, "localvar_iset_filter");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
308 $search_mode = weechat::buffer_get_string($iset_buffer, "localvar_iset_search_mode");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
309 $search_value = weechat::buffer_get_string($iset_buffer, "localvar_iset_search_value");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
310 $filter = $new_filter if ($new_filter ne "");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
311 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
312 if ($iset_buffer ne "")
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
313 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
314 weechat::buffer_set($iset_buffer, "type", "free");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
315 iset_title();
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
316 weechat::buffer_set($iset_buffer, "key_bind_ctrl-L", "/iset **refresh");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
317 weechat::buffer_set($iset_buffer, "key_bind_meta2-A", "/iset **up");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
318 weechat::buffer_set($iset_buffer, "key_bind_meta2-B", "/iset **down");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
319 weechat::buffer_set($iset_buffer, "key_bind_meta2-23~", "/iset **left");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
320 weechat::buffer_set($iset_buffer, "key_bind_meta2-24~" , "/iset **right");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
321 weechat::buffer_set($iset_buffer, "key_bind_meta- ", "/iset **toggle");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
322 weechat::buffer_set($iset_buffer, "key_bind_meta-+", "/iset **incr");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
323 weechat::buffer_set($iset_buffer, "key_bind_meta--", "/iset **decr");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
324 weechat::buffer_set($iset_buffer, "key_bind_meta-imeta-r", "/iset **reset");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
325 weechat::buffer_set($iset_buffer, "key_bind_meta-imeta-u", "/iset **unset");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
326 weechat::buffer_set($iset_buffer, "key_bind_meta-ctrl-J", "/iset **set");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
327 weechat::buffer_set($iset_buffer, "key_bind_meta-ctrl-M", "/iset **set");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
328 weechat::buffer_set($iset_buffer, "key_bind_meta-meta2-1~", "/iset **scroll_top");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
329 weechat::buffer_set($iset_buffer, "key_bind_meta-meta2-4~", "/iset **scroll_bottom");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
330 weechat::buffer_set($iset_buffer, "key_bind_meta-v", "/iset **toggle_help");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
331 weechat::buffer_set($iset_buffer, "key_bind_meta-p", "/iset **toggle_show_plugin_desc");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
332 weechat::buffer_set($iset_buffer, "localvar_set_iset_filter", $filter);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
333 weechat::buffer_set($iset_buffer, "localvar_set_iset_search_mode", $search_mode);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
334 weechat::buffer_set($iset_buffer, "localvar_set_iset_search_value", $search_value);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
335 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
336 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
337
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
338 sub iset_get_options
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
339 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
340 my $var_value = $_[0];
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
341 $var_value = "" if (not defined $var_value);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
342 $var_value = lc($var_value);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
343 $search_value = $var_value;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
344 @iset_focus = ();
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
345 @options_names = ();
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
346 @options_types = ();
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
347 @options_values = ();
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
348 @options_default_values = ();
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
349 @options_is_null = ();
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
350 $option_max_length = 0;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
351 my %options_internal = ();
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
352 my $i = 0;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
353 my $key;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
354 my $iset_struct;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
355 my %iset_struct;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
356
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
357 weechat::buffer_set($iset_buffer, "localvar_set_iset_search_value", $var_value) if ($search_mode == 3);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
358
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
359 my $infolist = weechat::infolist_get("option", "", $filter);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
360 while (weechat::infolist_next($infolist))
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
361 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
362 $key = sprintf("%08d", $i);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
363 my $name = weechat::infolist_string($infolist, "full_name");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
364 next if (weechat::config_boolean($options_iset{"show_plugin_description"}) == 0 and index ($name, "plugins.desc.") != -1);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
365 my $type = weechat::infolist_string($infolist, "type");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
366 my $value = weechat::infolist_string($infolist, "value");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
367 my $default_value = weechat::infolist_string($infolist, "default_value");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
368 my $is_null = weechat::infolist_integer($infolist, "value_is_null");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
369 if ($search_mode == 3)
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
370 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
371 my $value = weechat::infolist_string($infolist, "value");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
372 if ( grep /\Q$var_value/,lc($value) )
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
373 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
374 $options_internal{$name}{"type"} = $type;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
375 $options_internal{$name}{"value"} = $value;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
376 $options_internal{$name}{"default_value"} = $default_value;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
377 $options_internal{$name}{"is_null"} = $is_null;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
378 $option_max_length = length($name) if (length($name) > $option_max_length);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
379 $iset_struct{$key} = $options_internal{$name};
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
380 push(@iset_focus, $iset_struct{$key});
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
381 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
382 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
383 else
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
384 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
385 $options_internal{$name}{"type"} = $type;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
386 $options_internal{$name}{"value"} = $value;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
387 $options_internal{$name}{"default_value"} = $default_value;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
388 $options_internal{$name}{"is_null"} = $is_null;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
389 $option_max_length = length($name) if (length($name) > $option_max_length);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
390 $iset_struct{$key} = $options_internal{$name};
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
391 push(@iset_focus, $iset_struct{$key});
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
392 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
393 $i++;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
394 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
395 weechat::infolist_free($infolist);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
396
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
397 foreach my $name (sort keys %options_internal)
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
398 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
399 push(@options_names, $name);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
400 push(@options_types, $options_internal{$name}{"type"});
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
401 push(@options_values, $options_internal{$name}{"value"});
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
402 push(@options_default_values, $options_internal{$name}{"default_value"});
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
403 push(@options_is_null, $options_internal{$name}{"is_null"});
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
404 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
405 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
406
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
407 sub iset_get_values
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
408 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
409 my $var_value = $_[0];
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
410 $var_value = lc($var_value);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
411 if (substr($var_value,0,1) eq weechat::config_string($options_iset{"value_search_char"}) and $var_value ne weechat::config_string($options_iset{"value_search_char"}))
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
412 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
413 $var_value = substr($var_value,1,length($var_value));
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
414 $search_mode = 0;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
415 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
416 iset_search_values($var_value,$search_mode);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
417 weechat::buffer_set($iset_buffer, "localvar_set_iset_search_mode", $search_mode);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
418 weechat::buffer_set($iset_buffer, "localvar_set_iset_search_value", $var_value);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
419 $search_value = $var_value;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
420 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
421 sub iset_search_values
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
422 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
423 my ($var_value,$search_mode) = ($_[0],$_[1]);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
424 @options_names = ();
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
425 @options_types = ();
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
426 @options_values = ();
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
427 @options_default_values = ();
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
428 @options_is_null = ();
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
429 $option_max_length = 0;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
430 my %options_internal = ();
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
431 my $i = 0;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
432 my $infolist = weechat::infolist_get("option", "", "*");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
433 while (weechat::infolist_next($infolist))
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
434 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
435 my $name = weechat::infolist_string($infolist, "full_name");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
436 next if (weechat::config_boolean($options_iset{"show_plugin_description"}) == 0 and index ($name, "plugins.desc.") != -1);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
437 my $type = weechat::infolist_string($infolist, "type");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
438 my $is_null = weechat::infolist_integer($infolist, "value_is_null");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
439 my $value = weechat::infolist_string($infolist, "value");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
440 my $default_value = weechat::infolist_string($infolist, "default_value");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
441 if ($search_mode)
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
442 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
443 if ( grep /\Q$var_value/,lc($value) )
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
444 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
445 $options_internal{$name}{"type"} = $type;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
446 $options_internal{$name}{"value"} = $value;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
447 $options_internal{$name}{"default_value"} = $default_value;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
448 $options_internal{$name}{"is_null"} = $is_null;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
449 $option_max_length = length($name) if (length($name) > $option_max_length);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
450 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
451 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
452 else
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
453 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
454 # if ($value =~ /\Q$var_value/si)
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
455 if (lc($value) eq $var_value)
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
456 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
457 $options_internal{$name}{"type"} = $type;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
458 $options_internal{$name}{"value"} = $value;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
459 $options_internal{$name}{"default_value"} = $default_value;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
460 $options_internal{$name}{"is_null"} = $is_null;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
461 $option_max_length = length($name) if (length($name) > $option_max_length);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
462 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
463 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
464 $i++;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
465 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
466 weechat::infolist_free($infolist);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
467 foreach my $name (sort keys %options_internal)
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
468 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
469 push(@options_names, $name);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
470 push(@options_types, $options_internal{$name}{"type"});
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
471 push(@options_values, $options_internal{$name}{"value"});
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
472 push(@options_default_values, $options_internal{$name}{"default_value"});
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
473 push(@options_is_null, $options_internal{$name}{"is_null"});
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
474 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
475 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
476
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
477 sub iset_refresh_line
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
478 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
479 if ($iset_buffer ne "")
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
480 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
481 my $y = $_[0];
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
482 if ($y <= $#options_names)
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
483 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
484 return if (! defined($options_types[$y]));
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
485 my $format = sprintf("%%s%%s%%s %%s %%-7s %%s %%s%%s%%s");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
486 my $padding;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
487 if ($wee_version_number >= 0x00040200)
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
488 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
489 $padding = " " x ($option_max_length - weechat::strlen_screen($options_names[$y]));
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
490 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
491 else
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
492 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
493 $padding = " " x ($option_max_length - length($options_names[$y]));
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
494 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
495 my $around = "";
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
496 $around = "\"" if ((!$options_is_null[$y]) && ($options_types[$y] eq "string"));
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
497
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
498 my $color1 = weechat::color(weechat::config_color($options_iset{"color_option"}));
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
499 my $color2 = weechat::color(weechat::config_color($options_iset{"color_type"}));
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
500 my $color3 = "";
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
501 if ($options_is_null[$y])
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
502 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
503 $color3 = weechat::color(weechat::config_color($options_iset{"color_value_undef"}));
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
504 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
505 elsif ($options_values[$y] ne $options_default_values[$y])
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
506 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
507 $color3 = weechat::color(weechat::config_color($options_iset{"color_value_diff"}));
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
508 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
509 else
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
510 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
511 $color3 = weechat::color(weechat::config_color($options_iset{"color_value"}));
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
512 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
513 if ($y == $current_line)
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
514 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
515 $color1 = weechat::color(weechat::config_color($options_iset{"color_option_selected"}).",".weechat::config_color($options_iset{"color_bg_selected"}));
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
516 $color2 = weechat::color(weechat::config_color($options_iset{"color_type_selected"}).",".weechat::config_color($options_iset{"color_bg_selected"}));
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
517 if ($options_is_null[$y])
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
518 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
519 $color3 = weechat::color(weechat::config_color($options_iset{"color_value_undef_selected"}).",".weechat::config_color($options_iset{"color_bg_selected"}));
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
520 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
521 elsif ($options_values[$y] ne $options_default_values[$y])
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
522 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
523 $color3 = weechat::color(weechat::config_color($options_iset{"color_value_diff_selected"}).",".weechat::config_color($options_iset{"color_bg_selected"}));
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
524 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
525 else
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
526 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
527 $color3 = weechat::color(weechat::config_color($options_iset{"color_value_selected"}).",".weechat::config_color($options_iset{"color_bg_selected"}));
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
528 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
529 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
530 my $value = $options_values[$y];
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
531 $value = "(undef)" if ($options_is_null[$y]);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
532 my $strline = sprintf($format,
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
533 $color1, $options_names[$y], $padding,
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
534 $color2, $options_types[$y],
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
535 $color3, $around, $value, $around);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
536 weechat::print_y($iset_buffer, $y, $strline);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
537 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
538 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
539 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
540
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
541 sub iset_refresh
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
542 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
543 iset_title();
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
544 if (($iset_buffer ne "") && ($#options_names >= 0))
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
545 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
546 foreach my $y (0 .. $#options_names)
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
547 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
548 iset_refresh_line($y);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
549 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
550 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
551
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
552 weechat::bar_item_update("isetbar_help") if (weechat::config_boolean($options_iset{"show_help_bar"}) == 1);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
553 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
554
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
555 sub iset_full_refresh
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
556 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
557 $iset_buffer = weechat::buffer_search($LANG, $PRGNAME);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
558 if ($iset_buffer ne "")
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
559 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
560 weechat::buffer_clear($iset_buffer) unless defined $_[0]; # iset_full_refresh(1) does a full refresh without clearing buffer
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
561 # search for "*" in $filter.
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
562 if ($filter =~ m/\*/ and $search_mode == 2)
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
563 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
564 iset_get_options("");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
565 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
566 else
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
567 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
568 if ($search_mode == 0)
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
569 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
570 $search_value = "=" . $search_value;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
571 iset_get_values($search_value);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
572 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
573 elsif ($search_mode == 1)
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
574 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
575 iset_get_values($search_value);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
576 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
577 elsif ($search_mode == 3)
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
578 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
579 iset_create_filter($filter);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
580 iset_get_options($search_value);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
581 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
582 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
583 if (weechat::config_boolean($options_iset{"show_plugin_description"}) == 1)
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
584 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
585 iset_set_current_line($current_line);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
586 }else
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
587 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
588 $current_line = $#options_names if ($current_line > $#options_names);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
589 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
590 iset_refresh();
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
591 weechat::command($iset_buffer, "/window refresh");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
592 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
593 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
594
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
595 sub iset_set_current_line
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
596 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
597 my $new_current_line = $_[0];
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
598 if ($new_current_line >= 0)
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
599 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
600 my $old_current_line = $current_line;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
601 $current_line = $new_current_line;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
602 $current_line = $#options_names if ($current_line > $#options_names);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
603 if ($old_current_line != $current_line)
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
604 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
605 iset_refresh_line($old_current_line);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
606 iset_refresh_line($current_line);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
607 weechat::bar_item_update("isetbar_help") if (weechat::config_boolean($options_iset{"show_help_bar"}) == 1);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
608 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
609 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
610 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
611
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
612 sub iset_signal_window_scrolled_cb
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
613 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
614 my ($data, $signal, $signal_data) = ($_[0], $_[1], $_[2]);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
615 if ($iset_buffer ne "")
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
616 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
617 my $infolist = weechat::infolist_get("window", $signal_data, "");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
618 if (weechat::infolist_next($infolist))
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
619 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
620 if (weechat::infolist_pointer($infolist, "buffer") eq $iset_buffer)
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
621 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
622 my $old_current_line = $current_line;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
623 my $new_current_line = $current_line;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
624 my $start_line_y = weechat::infolist_integer($infolist, "start_line_y");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
625 my $chat_height = weechat::infolist_integer($infolist, "chat_height");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
626 $new_current_line += $chat_height if ($new_current_line < $start_line_y);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
627 $new_current_line -= $chat_height if ($new_current_line >= $start_line_y + $chat_height);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
628 $new_current_line = $start_line_y if ($new_current_line < $start_line_y);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
629 $new_current_line = $start_line_y + $chat_height - 1 if ($new_current_line >= $start_line_y + $chat_height);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
630 iset_set_current_line($new_current_line);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
631 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
632 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
633 weechat::infolist_free($infolist);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
634 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
635
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
636 return weechat::WEECHAT_RC_OK;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
637 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
638
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
639 sub iset_get_window_number
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
640 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
641 if ($iset_buffer ne "")
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
642 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
643 my $window = weechat::window_search_with_buffer($iset_buffer);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
644 return "-window ".weechat::window_get_integer ($window, "number")." " if ($window ne "");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
645 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
646 return "";
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
647 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
648
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
649 sub iset_check_line_outside_window
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
650 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
651 if ($iset_buffer ne "")
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
652 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
653 undef my $infolist;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
654 if ($wee_version_number >= 0x00030500)
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
655 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
656 my $window = weechat::window_search_with_buffer($iset_buffer);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
657 $infolist = weechat::infolist_get("window", $window, "") if $window;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
658 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
659 else
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
660 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
661 $infolist = weechat::infolist_get("window", "", "current");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
662 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
663 if ($infolist)
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
664 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
665 if (weechat::infolist_next($infolist))
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
666 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
667 my $start_line_y = weechat::infolist_integer($infolist, "start_line_y");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
668 my $chat_height = weechat::infolist_integer($infolist, "chat_height");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
669 my $window_number = "";
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
670 if ($wee_version_number >= 0x00030500)
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
671 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
672 $window_number = "-window ".weechat::infolist_integer($infolist, "number")." ";
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
673 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
674 if ($start_line_y > $current_line)
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
675 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
676 weechat::command($iset_buffer, "/window scroll ".$window_number."-".($start_line_y - $current_line));
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
677 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
678 else
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
679 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
680 if ($start_line_y <= $current_line - $chat_height)
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
681 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
682 weechat::command($iset_buffer, "/window scroll ".$window_number."+".($current_line - $start_line_y - $chat_height + 1));
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
683
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
684 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
685 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
686 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
687 weechat::infolist_free($infolist);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
688 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
689 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
690 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
691
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
692 sub iset_get_option_name_index
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
693 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
694 my $option_name = $_[0];
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
695 my $index = 0;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
696 while ($index <= $#options_names)
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
697 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
698 return -1 if ($options_names[$index] gt $option_name);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
699 return $index if ($options_names[$index] eq $option_name);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
700 $index++;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
701 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
702 return -1;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
703 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
704
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
705 sub iset_config_cb
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
706 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
707 my ($data, $option_name, $value) = ($_[0], $_[1], $_[2]);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
708
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
709 if ($iset_buffer ne "")
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
710 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
711 return weechat::WEECHAT_RC_OK if (weechat::info_get("weechat_upgrading", "") eq "1");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
712
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
713 my $index = iset_get_option_name_index($option_name);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
714 if ($index >= 0)
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
715 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
716 # refresh info about changed option
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
717 my $infolist = weechat::infolist_get("option", "", $option_name);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
718 if ($infolist)
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
719 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
720 weechat::infolist_next($infolist);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
721 if (weechat::infolist_fields($infolist))
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
722 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
723 $options_types[$index] = weechat::infolist_string($infolist, "type");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
724 $options_values[$index] = weechat::infolist_string($infolist, "value");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
725 $options_default_values[$index] = weechat::infolist_string($infolist, "default_value");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
726 $options_is_null[$index] = weechat::infolist_integer($infolist, "value_is_null");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
727 iset_refresh_line($index);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
728 iset_title() if ($option_name eq "iset.look.show_current_line");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
729 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
730 else
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
731 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
732 iset_full_refresh(1); # if not found, refresh fully without clearing buffer
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
733 weechat::print_y($iset_buffer, $#options_names + 1, "");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
734 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
735 weechat::infolist_free($infolist);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
736 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
737 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
738 else
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
739 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
740 iset_full_refresh() if ($option_name ne "weechat.bar.isetbar.hidden");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
741 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
742 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
743
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
744 return weechat::WEECHAT_RC_OK;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
745 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
746
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
747 sub iset_set_option
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
748 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
749 my ($option, $value) = ($_[0],$_[1]);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
750 if (defined $option and defined $value)
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
751 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
752 $option = weechat::config_get($option);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
753 weechat::config_option_set($option, $value, 1) if ($option ne "");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
754 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
755 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
756
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
757 sub iset_reset_option
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
758 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
759 my $option = $_[0];
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
760 if (defined $option)
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
761 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
762 $option = weechat::config_get($option);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
763 weechat::config_option_reset($option, 1) if ($option ne "");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
764 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
765 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
766
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
767 sub iset_unset_option
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
768 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
769 my $option = $_[0];
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
770 if (defined $option)
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
771 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
772 $option = weechat::config_get($option);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
773 weechat::config_option_unset($option) if ($option ne "");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
774 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
775 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
776
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
777
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
778 sub iset_cmd_cb
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
779 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
780 my ($data, $buffer, $args) = ($_[0], $_[1], $_[2]);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
781 my $filter_set = 0;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
782 # $search_value = "";
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
783 if (($args ne "") && (substr($args, 0, 2) ne "**"))
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
784 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
785 my @cmd_array = split(/ /,$args);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
786 my $array_count = @cmd_array;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
787 if (substr($args, 0, 1) eq weechat::config_string($options_iset{"value_search_char"})
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
788 or (defined $cmd_array[0] and $cmd_array[0] eq weechat::config_string($options_iset{"value_search_char"}).weechat::config_string($options_iset{"value_search_char"})) )
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
789 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
790 $search_mode = 1;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
791 my $search_value = substr($args, 1); # cut value_search_char
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
792 if ($iset_buffer ne "")
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
793 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
794 weechat::buffer_clear($iset_buffer);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
795 weechat::command($iset_buffer, "/window refresh");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
796 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
797 weechat::buffer_set($iset_buffer, "localvar_set_iset_search_mode", $search_mode);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
798 weechat::buffer_set($iset_buffer, "localvar_set_iset_search_value", $search_value);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
799 iset_init();
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
800 iset_get_values($search_value);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
801 iset_refresh();
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
802 weechat::buffer_set($iset_buffer, "display", "1");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
803 # $filter = $var_value;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
804 return weechat::WEECHAT_RC_OK;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
805 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
806 else
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
807 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
808 # f/s option =value
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
809 # option =value
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
810 $search_mode = 2;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
811 if ( $array_count >= 2 and $cmd_array[0] ne "f" or $cmd_array[0] ne "s")
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
812 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
813 if ( defined $cmd_array[1] and substr($cmd_array[1], 0, 1) eq weechat::config_string($options_iset{"value_search_char"})
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
814 or defined $cmd_array[2] and substr($cmd_array[2], 0, 1) eq weechat::config_string($options_iset{"value_search_char"}) )
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
815 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
816 $search_mode = 3;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
817 $search_value = substr($cmd_array[1], 1); # cut value_search_char
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
818 $search_value = substr($cmd_array[2], 1) if ( $array_count > 2); # cut value_search_char
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
819 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
820 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
821 iset_create_filter($args);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
822 $filter_set = 1;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
823 my $ptrbuf = weechat::buffer_search($LANG, $PRGNAME);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
824 if ($ptrbuf eq "")
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
825 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
826 iset_init();
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
827 iset_get_options($search_value);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
828 iset_full_refresh();
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
829 weechat::buffer_set(weechat::buffer_search($LANG, $PRGNAME), "display", "1");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
830 weechat::buffer_set($iset_buffer, "localvar_set_iset_search_value", $search_value);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
831 weechat::buffer_set($iset_buffer, "localvar_set_iset_search_mode", $search_mode);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
832 return weechat::WEECHAT_RC_OK;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
833 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
834 else
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
835 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
836 iset_get_options($search_value);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
837 iset_full_refresh();
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
838 weechat::buffer_set($ptrbuf, "display", "1");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
839 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
840 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
841 weechat::buffer_set($iset_buffer, "localvar_set_iset_search_mode", $search_mode);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
842 weechat::buffer_set($iset_buffer, "localvar_set_iset_search_value", $search_value);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
843 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
844 if ($iset_buffer eq "")
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
845 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
846 iset_init();
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
847 iset_get_options("");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
848 iset_refresh();
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
849 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
850 else
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
851 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
852 # iset_get_options($search_value);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
853 iset_full_refresh() if ($filter_set);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
854 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
855
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
856 if ($args eq "")
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
857 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
858 weechat::buffer_set($iset_buffer, "display", "1");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
859 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
860 else
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
861 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
862 if ($args eq "**refresh")
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
863 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
864 iset_full_refresh();
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
865 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
866 if ($args eq "**up")
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
867 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
868 if ($current_line > 0)
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
869 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
870 $current_line--;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
871 iset_refresh_line($current_line + 1);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
872 iset_refresh_line($current_line);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
873 iset_check_line_outside_window();
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
874 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
875 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
876 if ($args eq "**down")
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
877 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
878 if ($current_line < $#options_names)
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
879 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
880 $current_line++;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
881 iset_refresh_line($current_line - 1);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
882 iset_refresh_line($current_line);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
883 iset_check_line_outside_window();
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
884 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
885 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
886 if ($args eq "**left" && $wee_version_number >= 0x00030600)
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
887 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
888 weechat::command($iset_buffer, "/window scroll_horiz ".iset_get_window_number()."-".weechat::config_integer($options_iset{"scroll_horiz"})."%");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
889 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
890 if ($args eq "**right" && $wee_version_number >= 0x00030600)
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
891 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
892 weechat::command($iset_buffer, "/window scroll_horiz ".iset_get_window_number().weechat::config_integer($options_iset{"scroll_horiz"})."%");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
893 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
894 if ($args eq "**scroll_top")
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
895 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
896 my $old_current_line = $current_line;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
897 $current_line = 0;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
898 iset_refresh_line ($old_current_line);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
899 iset_refresh_line ($current_line);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
900 iset_title();
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
901 weechat::command($iset_buffer, "/window scroll_top ".iset_get_window_number());
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
902 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
903 if ($args eq "**scroll_bottom")
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
904 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
905 my $old_current_line = $current_line;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
906 $current_line = $#options_names;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
907 iset_refresh_line ($old_current_line);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
908 iset_refresh_line ($current_line);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
909 iset_title();
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
910 weechat::command($iset_buffer, "/window scroll_bottom ".iset_get_window_number());
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
911 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
912 if ($args eq "**toggle")
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
913 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
914 if ($options_types[$current_line] eq "boolean")
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
915 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
916 iset_set_option($options_names[$current_line], "toggle");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
917 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
918 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
919 if ($args eq "**incr")
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
920 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
921 if (($options_types[$current_line] eq "integer")
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
922 || ($options_types[$current_line] eq "color"))
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
923 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
924 iset_set_option($options_names[$current_line], "++1");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
925 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
926 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
927 if ($args eq "**decr")
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
928 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
929 if (($options_types[$current_line] eq "integer")
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
930 || ($options_types[$current_line] eq "color"))
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
931 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
932 iset_set_option($options_names[$current_line], "--1");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
933 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
934 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
935 if ($args eq "**reset")
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
936 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
937 iset_reset_option($options_names[$current_line]);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
938 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
939 if ($args eq "**unset")
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
940 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
941 iset_unset_option($options_names[$current_line]);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
942 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
943 if ($args eq "**toggle_help")
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
944 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
945 if (weechat::config_boolean($options_iset{"show_help_bar"}) == 1)
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
946 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
947 weechat::config_option_set($options_iset{"show_help_bar"},0,1);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
948 iset_show_bar(0);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
949 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
950 else
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
951 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
952 weechat::config_option_set($options_iset{"show_help_bar"},1,1);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
953 iset_show_bar(1);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
954 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
955 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
956 if ($args eq "**toggle_show_plugin_desc")
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
957 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
958 if (weechat::config_boolean($options_iset{"show_plugin_description"}) == 1)
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
959 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
960 weechat::config_option_set($options_iset{"show_plugin_description"},0,1);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
961 iset_full_refresh();
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
962 iset_check_line_outside_window();
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
963 iset_title();
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
964 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
965 else
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
966 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
967 weechat::config_option_set($options_iset{"show_plugin_description"},1,1);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
968 iset_full_refresh();
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
969 iset_check_line_outside_window();
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
970 iset_title();
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
971 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
972 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
973 if ($args eq "**set")
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
974 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
975 my $quote = "";
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
976 my $value = $options_values[$current_line];
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
977 if ($options_is_null[$current_line])
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
978 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
979 $value = "null";
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
980 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
981 else
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
982 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
983 $quote = "\"" if ($options_types[$current_line] eq "string");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
984 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
985 my $set_command = "/set";
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
986 $set_command = "/mute " . $set_command if (weechat::config_boolean($options_iset{"use_mute"}) == 1);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
987
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
988 weechat::buffer_set($iset_buffer, "input", $set_command." ".$options_names[$current_line]." ".$quote.$value.$quote);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
989 weechat::command($iset_buffer, "/input move_beginning_of_line");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
990 weechat::command($iset_buffer, "/input move_next_word");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
991 weechat::command($iset_buffer, "/input move_next_word");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
992 weechat::command($iset_buffer, "/input move_next_word") if (weechat::config_boolean($options_iset{"use_mute"}) == 1);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
993 weechat::command($iset_buffer, "/input move_next_char");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
994 weechat::command($iset_buffer, "/input move_next_char") if ($quote ne "");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
995 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
996 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
997 weechat::bar_item_update("isetbar_help") if (weechat::config_boolean($options_iset{"show_help_bar"}) == 1);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
998 return weechat::WEECHAT_RC_OK;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
999 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1000
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1001 sub iset_get_help
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1002 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1003 my ($redraw) = ($_[0]);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1004
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1005 return '' if (weechat::config_boolean($options_iset{"show_help_bar"}) == 0);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1006
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1007 if (not defined $options_names[$current_line])
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1008 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1009 return "No option selected. Set a new filter using command line (use '*' to see all options)";
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1010 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1011 if ($options_name_copy eq $options_names[$current_line] and not defined $redraw)
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1012 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1013 return $description;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1014 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1015 $options_name_copy = $options_names[$current_line];
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1016 my $optionlist ="";
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1017 $optionlist = weechat::infolist_get("option", "", $options_names[$current_line]);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1018 weechat::infolist_next($optionlist);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1019 my $full_name = weechat::infolist_string($optionlist,"full_name");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1020 my $option_desc = "";
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1021 my $option_default_value = "";
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1022 my $option_range = "";
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1023 my $possible_values = "";
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1024 my $re = qq(\Q$full_name);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1025 if (grep (/^$re$/,$options_names[$current_line]))
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1026 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1027 $option_desc = weechat::infolist_string($optionlist, "description_nls");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1028 $option_desc = weechat::infolist_string($optionlist, "description") if ($option_desc eq "");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1029 $option_desc = "No help found" if ($option_desc eq "");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1030 $option_default_value = weechat::infolist_string($optionlist, "default_value");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1031 $possible_values = weechat::infolist_string($optionlist, "string_values") if (weechat::infolist_string($optionlist, "string_values") ne "");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1032 if ((weechat::infolist_string($optionlist, "type") eq "integer") && ($possible_values eq ""))
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1033 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1034 $option_range = weechat::infolist_integer($optionlist, "min")
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1035 ." .. ".weechat::infolist_integer($optionlist, "max");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1036 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1037 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1038 weechat::infolist_free($optionlist);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1039 iset_title();
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1040
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1041 $description = weechat::color(weechat::config_color($options_iset{"color_help_option_name"})).$options_names[$current_line]
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1042 .weechat::color("bar_fg").": "
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1043 .weechat::color(weechat::config_color($options_iset{"color_help_text"})).$option_desc;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1044
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1045 # show additional infos like default value and possible values
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1046
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1047 if (weechat::config_boolean($options_iset{"show_help_extra_info"}) == 1)
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1048 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1049 $description .=
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1050 weechat::color("bar_delim")." ["
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1051 .weechat::color("bar_fg")."default: "
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1052 .weechat::color("bar_delim")."\""
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1053 .weechat::color(weechat::config_color($options_iset{"color_help_default_value"})).$option_default_value
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1054 .weechat::color("bar_delim")."\"";
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1055 if ($option_range ne "")
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1056 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1057 $description .= weechat::color("bar_fg").", values: ".$option_range;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1058 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1059 if ($possible_values ne "")
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1060 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1061 $possible_values =~ s/\|/", "/g; # replace '|' to '", "'
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1062 $description .= weechat::color("bar_fg").", values: ". "\"" . $possible_values . "\"";
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1063
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1064 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1065 $description .= weechat::color("bar_delim")."]";
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1066 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1067 return $description;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1068 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1069
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1070 sub iset_check_condition_isetbar_cb
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1071 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1072 my ($data, $modifier, $modifier_data, $string) = ($_[0], $_[1], $_[2], $_[3]);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1073 my $buffer = weechat::window_get_pointer($modifier_data, "buffer");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1074 if ($buffer ne "")
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1075 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1076 if ((weechat::buffer_get_string($buffer, "plugin") eq $LANG)
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1077 && (weechat::buffer_get_string($buffer, "name") eq $PRGNAME))
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1078 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1079 return "1";
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1080 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1081 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1082 return "0";
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1083 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1084
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1085 sub iset_show_bar
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1086 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1087 my $show = $_[0];
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1088 my $barhidden = weechat::config_get("weechat.bar.isetbar.hidden");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1089 if ($barhidden)
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1090 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1091 if ($show)
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1092 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1093 if (weechat::config_boolean($options_iset{"show_help_bar"}) == 1)
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1094 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1095 if (weechat::config_boolean($barhidden))
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1096 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1097 weechat::config_option_set($barhidden, 0, 1);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1098 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1099 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1100 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1101 else
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1102 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1103 if (!weechat::config_boolean($barhidden))
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1104 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1105 weechat::config_option_set($barhidden, 1, 1);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1106 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1107 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1108 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1109 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1110
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1111 sub iset_signal_buffer_switch_cb
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1112 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1113 my $buffer_pointer = $_[2];
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1114 my $show_bar = 0;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1115 $show_bar = 1 if (weechat::buffer_get_integer($iset_buffer, "num_displayed") > 0);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1116 iset_show_bar($show_bar);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1117 iset_check_line_outside_window() if ($buffer_pointer eq $iset_buffer);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1118 return weechat::WEECHAT_RC_OK;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1119 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1120
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1121 sub iset_item_cb
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1122 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1123 return iset_get_help();
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1124 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1125
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1126 sub iset_upgrade_ended
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1127 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1128 iset_full_refresh();
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1129 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1130
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1131 sub iset_end
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1132 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1133 # when script is unloaded, we hide bar
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1134 iset_show_bar(0);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1135 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1136
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1137 # -------------------------------[ mouse support ]-------------------------------------
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1138
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1139 sub hook_focus_iset_cb
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1140 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1141 my %info = %{$_[1]};
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1142 my $bar_item_line = int($info{"_bar_item_line"});
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1143 undef my $hash;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1144 if (($info{"_buffer_name"} eq $PRGNAME) && $info{"_buffer_plugin"} eq $LANG && ($bar_item_line >= 0) && ($bar_item_line <= $#iset_focus))
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1145 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1146 $hash = $iset_focus[$bar_item_line];
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1147 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1148 else
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1149 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1150 $hash = {};
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1151 my $hash_focus = $iset_focus[0];
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1152 foreach my $key (keys %$hash_focus)
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1153 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1154 $hash->{$key} = "?";
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1155 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1156 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1157 return $hash;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1158 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1159
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1160 # _chat_line_y contains selected line
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1161 sub iset_hsignal_mouse_cb
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1162 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1163 my ($data, $signal, %hash) = ($_[0], $_[1], %{$_[2]});
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1164
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1165 if ($hash{"_buffer_name"} eq $PRGNAME && ($hash{"_buffer_plugin"} eq $LANG))
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1166 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1167 if ($hash{"_key"} eq "button1")
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1168 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1169 iset_set_current_line($hash{"_chat_line_y"});
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1170 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1171 elsif ($hash{"_key"} eq "button2")
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1172 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1173 if ($options_types[$hash{"_chat_line_y"}] eq "boolean")
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1174 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1175 iset_set_option($options_names[$hash{"_chat_line_y"}], "toggle");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1176 iset_set_current_line($hash{"_chat_line_y"});
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1177 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1178 elsif ($options_types[$hash{"_chat_line_y"}] eq "string")
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1179 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1180 iset_set_current_line($hash{"_chat_line_y"});
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1181 weechat::command("", "/$PRGNAME **set");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1182 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1183 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1184 elsif ($hash{"_key"} eq "button2-gesture-left" or $hash{"_key"} eq "button2-gesture-left-long")
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1185 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1186 if ($options_types[$hash{"_chat_line_y"}] eq "integer" or ($options_types[$hash{"_chat_line_y"}] eq "color"))
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1187 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1188 iset_set_current_line($hash{"_chat_line_y"});
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1189 my $distance = distance($hash{"_chat_line_x"},$hash{"_chat_line_x2"});
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1190 weechat::command("", "/repeat $distance /$PRGNAME **decr");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1191 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1192 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1193 elsif ($hash{"_key"} eq "button2-gesture-right" or $hash{"_key"} eq "button2-gesture-right-long")
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1194 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1195 if ($options_types[$hash{"_chat_line_y"}] eq "integer" or ($options_types[$hash{"_chat_line_y"}] eq "color"))
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1196 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1197 iset_set_current_line($hash{"_chat_line_y"});
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1198 my $distance = distance($hash{"_chat_line_x"},$hash{"_chat_line_x2"});
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1199 weechat::command("", "/repeat $distance /$PRGNAME **incr");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1200 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1201 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1202 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1203 window_switch();
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1204 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1205
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1206 sub window_switch
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1207 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1208 my $current_window = weechat::current_window();
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1209 my $dest_window = weechat::window_search_with_buffer(weechat::buffer_search("perl","iset"));
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1210 return 0 if ($dest_window eq "" or $current_window eq $dest_window);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1211
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1212 my $infolist = weechat::infolist_get("window", $dest_window, "");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1213 weechat::infolist_next($infolist);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1214 my $number = weechat::infolist_integer($infolist, "number");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1215 weechat::infolist_free($infolist);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1216 weechat::command("","/window " . $number);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1217 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1218
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1219 sub distance
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1220 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1221 my ($x1,$x2) = ($_[0], $_[1]);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1222 my $distance;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1223 $distance = $x1 - $x2;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1224 $distance = abs($distance);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1225 if ($distance > 0)
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1226 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1227 use integer;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1228 $distance = $distance / 3;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1229 $distance = 1 if ($distance == 0);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1230 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1231 elsif ($distance == 0)
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1232 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1233 $distance = 1;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1234 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1235 return $distance;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1236 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1237
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1238 # -----------------------------------[ config ]---------------------------------------
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1239
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1240 sub iset_config_init
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1241 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1242 $iset_config_file = weechat::config_new($ISET_CONFIG_FILE_NAME,"iset_config_reload_cb","");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1243 return if ($iset_config_file eq "");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1244
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1245 # section "color"
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1246 my $section_color = weechat::config_new_section($iset_config_file,"color", 0, 0, "", "", "", "", "", "", "", "", "", "");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1247 if ($section_color eq "")
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1248 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1249 weechat::config_free($iset_config_file);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1250 return;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1251 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1252 $options_iset{"color_option"} = weechat::config_new_option(
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1253 $iset_config_file, $section_color,
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1254 "option", "color", "Color for option name in iset buffer", "", 0, 0,
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1255 "default", "default", 0, "", "", "full_refresh_cb", "", "", "");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1256 $options_iset{"color_option_selected"} = weechat::config_new_option(
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1257 $iset_config_file, $section_color,
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1258 "option_selected", "color", "Color for selected option name in iset buffer", "", 0, 0,
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1259 "white", "white", 0, "", "", "full_refresh_cb", "", "", "");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1260 $options_iset{"color_type"} = weechat::config_new_option(
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1261 $iset_config_file, $section_color,
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1262 "type", "color", "Color for option type (integer, boolean, string)", "", 0, 0,
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1263 "brown", "brown", 0, "", "", "full_refresh_cb", "", "", "");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1264 $options_iset{"color_type_selected"} = weechat::config_new_option(
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1265 $iset_config_file, $section_color,
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1266 "type_selected", "color", "Color for selected option type (integer, boolean, string)", "", 0, 0,
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1267 "yellow", "yellow", 0, "", "", "full_refresh_cb", "", "", "");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1268 $options_iset{"color_value"} = weechat::config_new_option(
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1269 $iset_config_file, $section_color,
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1270 "value", "color", "Color for option value", "", 0, 0,
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1271 "cyan", "cyan", 0, "", "", "full_refresh_cb", "", "", "");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1272 $options_iset{"color_value_selected"} = weechat::config_new_option(
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1273 $iset_config_file, $section_color,
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1274 "value_selected", "color", "Color for selected option value", "", 0, 0,
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1275 "lightcyan", "lightcyan", 0, "", "", "full_refresh_cb", "", "", "");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1276 $options_iset{"color_value_diff"} = weechat::config_new_option(
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1277 $iset_config_file, $section_color,
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1278 "value_diff", "color", "Color for option value different from default", "", 0, 0,
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1279 "magenta", "magenta", 0, "", "", "full_refresh_cb", "", "", "");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1280 $options_iset{"color_value_diff_selected"} = weechat::config_new_option(
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1281 $iset_config_file, $section_color,
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1282 "value_diff_selected", "color", "Color for selected option value different from default", "", 0, 0,
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1283 "lightmagenta", "lightmagenta", 0, "", "", "full_refresh_cb", "", "", "");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1284 $options_iset{"color_value_undef"} = weechat::config_new_option(
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1285 $iset_config_file, $section_color,
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1286 "value_undef", "color", "Color for option value undef", "", 0, 0,
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1287 "green", "green", 0, "", "", "full_refresh_cb", "", "", "");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1288 $options_iset{"color_value_undef_selected"} = weechat::config_new_option(
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1289 $iset_config_file, $section_color,
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1290 "value_undef_selected", "color", "Color for selected option value undef", "", 0, 0,
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1291 "lightgreen", "lightgreen", 0, "", "", "full_refresh_cb", "", "", "");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1292 $options_iset{"color_bg_selected"} = weechat::config_new_option(
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1293 $iset_config_file, $section_color,
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1294 "bg_selected", "color", "Background color for current selected option", "", 0, 0,
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1295 "red", "red", 0, "", "", "full_refresh_cb", "", "", "");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1296 $options_iset{"color_help_option_name"} = weechat::config_new_option(
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1297 $iset_config_file, $section_color,
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1298 "help_option_name", "color", "Color for option name in help-bar", "", 0, 0,
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1299 "white", "white", 0, "", "", "bar_refresh", "", "", "");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1300 $options_iset{"color_help_text"} = weechat::config_new_option(
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1301 $iset_config_file, $section_color,
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1302 "help_text", "color", "Color for option description in help-bar", "", 0, 0,
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1303 "default", "default", 0, "", "", "bar_refresh", "", "", "");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1304 $options_iset{"color_help_default_value"} = weechat::config_new_option(
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1305 $iset_config_file, $section_color,
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1306 "help_default_value", "color", "Color for default option value in help-bar", "", 0, 0,
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1307 "green", "green", 0, "", "", "bar_refresh", "", "", "");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1308
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1309 # section "help"
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1310 my $section_help = weechat::config_new_section($iset_config_file,"help", 0, 0, "", "", "", "", "", "", "", "", "", "");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1311 if ($section_help eq "")
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1312 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1313 weechat::config_free($iset_config_file);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1314 return;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1315 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1316 $options_iset{"show_help_bar"} = weechat::config_new_option(
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1317 $iset_config_file, $section_help,
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1318 "show_help_bar", "boolean", "Show help bar", "", 0, 0,
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1319 "on", "on", 0, "", "", "toggle_help_cb", "", "", "");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1320 $options_iset{"show_help_extra_info"} = weechat::config_new_option(
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1321 $iset_config_file, $section_help,
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1322 "show_help_extra_info", "boolean", "Show additional information in help bar (default value, max./min. value) ", "", 0, 0,
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1323 "on", "on", 0, "", "", "", "", "", "");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1324 $options_iset{"show_plugin_description"} = weechat::config_new_option(
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1325 $iset_config_file, $section_help,
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1326 "show_plugin_description", "boolean", "Show plugin description in iset buffer", "", 0, 0,
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1327 "off", "off", 0, "", "", "full_refresh_cb", "", "", "");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1328
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1329 # section "look"
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1330 my $section_look = weechat::config_new_section($iset_config_file, "look", 0, 0, "", "", "", "", "", "", "", "", "", "");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1331 if ($section_look eq "")
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1332 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1333 weechat::config_free($iset_config_file);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1334 return;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1335 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1336 $options_iset{"value_search_char"} = weechat::config_new_option(
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1337 $iset_config_file, $section_look,
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1338 "value_search_char", "string", "Trigger char to tell iset to search for value instead of option (for example: =red)", "", 0, 0,
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1339 "=", "=", 0, "", "", "", "", "", "");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1340 $options_iset{"scroll_horiz"} = weechat::config_new_option(
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1341 $iset_config_file, $section_look,
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1342 "scroll_horiz", "integer", "scroll content of iset buffer n%", "", 1, 100,
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1343 "10", "10", 0, "", "", "", "", "", "");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1344 $options_iset{"show_current_line"} = weechat::config_new_option(
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1345 $iset_config_file, $section_look,
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1346 "show_current_line", "boolean", "show current line in title bar.", "", 0, 0,
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1347 "on", "on", 0, "", "", "", "", "", "");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1348 $options_iset{"use_mute"} = weechat::config_new_option(
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1349 $iset_config_file, $section_look,
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1350 "use_mute", "boolean", "/mute command will be used in input bar", "", 0, 0,
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1351 "off", "off", 0, "", "", "", "", "", "");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1352 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1353
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1354 sub iset_config_reload_cb
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1355 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1356 my ($data,$config_file) = ($_[0], $_[1]);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1357 return weechat::config_reload($config_file)
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1358 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1359
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1360 sub iset_config_read
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1361 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1362 return weechat::config_read($iset_config_file) if ($iset_config_file ne "");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1363 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1364
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1365 sub iset_config_write
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1366 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1367 return weechat::config_write($iset_config_file) if ($iset_config_file ne "");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1368 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1369
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1370 sub full_refresh_cb
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1371 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1372 iset_full_refresh();
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1373 return weechat::WEECHAT_RC_OK;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1374 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1375
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1376 sub bar_refresh
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1377 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1378 iset_get_help(1);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1379 weechat::bar_item_update("isetbar_help") if (weechat::config_boolean($options_iset{"show_help_bar"}) == 1);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1380 return weechat::WEECHAT_RC_OK;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1381 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1382
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1383 sub toggle_help_cb
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1384 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1385 my $value = weechat::config_boolean($options_iset{"show_help_bar"});
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1386 iset_show_bar($value);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1387 return weechat::WEECHAT_RC_OK;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1388 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1389
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1390 # -----------------------------------[ main ]-----------------------------------------
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1391
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1392 weechat::register($PRGNAME, $AUTHOR, $VERSION, $LICENSE,
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1393 $DESCR, "iset_end", "");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1394
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1395 $wee_version_number = weechat::info_get("version_number", "") || 0;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1396
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1397 iset_config_init();
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1398 iset_config_read();
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1399
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1400 weechat::hook_command($PRGNAME, "Interactive set", "f <file> || s <section> || [=][=]<text>",
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1401 "f file : show options for a file\n".
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1402 "s section: show options for a section\n".
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1403 "text : show options with 'text' in name\n".
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1404 weechat::config_string($options_iset{"value_search_char"})."text : show options with 'text' in value\n".
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1405 weechat::config_string($options_iset{"value_search_char"}).weechat::config_string($options_iset{"value_search_char"})."text : show options with exact 'text' in value\n\n".
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1406 "Keys for iset buffer:\n".
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1407 "f11,f12 : move iset content left/right\n".
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1408 "up,down : move one option up/down\n".
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1409 "pgup,pdwn : move one page up/down\n".
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1410 "home,end : move to first/last option\n".
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1411 "ctrl+'L' : refresh options and screen\n".
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1412 "alt+space : toggle boolean on/off\n".
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1413 "alt+'+' : increase value (for integer or color)\n".
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1414 "alt+'-' : decrease value (for integer or color)\n".
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1415 "alt+'i',alt+'r': reset value of option\n".
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1416 "alt+'i',alt+'u': unset option\n".
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1417 "alt+enter : set new value for option (edit it with command line)\n".
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1418 "text,enter : set a new filter using command line (use '*' to see all options)\n".
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1419 "alt+'v' : toggle help bar on/off\n".
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1420 "alt+'p' : toggle option \"show_plugin_description\" on/off\n".
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1421 "\n".
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1422 "Mouse actions:\n".
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1423 "wheel up/down : move cursor up/down\n".
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1424 "left button : select an option from list\n".
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1425 "right button : toggle boolean (on/off) or set a new value for option (edit it with command line)\n".
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1426 "right button + drag left/right: increase/decrease value (for integer or color)\n".
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1427 "\n".
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1428 "Examples:\n".
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1429 " show options for file 'weechat'\n".
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1430 " /iset f weechat\n".
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1431 " show options for file 'irc'\n".
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1432 " /iset f irc\n".
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1433 " show options for section 'look'\n".
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1434 " /iset s look\n".
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1435 " show all options with text 'nicklist' in name\n".
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1436 " /iset nicklist\n".
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1437 " show all values which contain 'red'. ('" . weechat::config_string($options_iset{"value_search_char"}) . "' is a trigger char).\n".
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1438 " /iset ". weechat::config_string($options_iset{"value_search_char"}) ."red\n".
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1439 " show all values which hit 'off'. ('" . weechat::config_string($options_iset{"value_search_char"}) . weechat::config_string($options_iset{"value_search_char"}) . "' is a trigger char).\n".
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1440 " /iset ". weechat::config_string($options_iset{"value_search_char"}) . weechat::config_string($options_iset{"value_search_char"}) ."off\n".
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1441 " show options for file 'weechat' which contains value 'off'\n".
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1442 " /iset f weechat ".weechat::config_string($options_iset{"value_search_char"})."off\n".
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1443 "",
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1444 "", "iset_cmd_cb", "");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1445 weechat::hook_signal("upgrade_ended", "iset_upgrade_ended", "");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1446 weechat::hook_signal("window_scrolled", "iset_signal_window_scrolled_cb", "");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1447 weechat::hook_signal("buffer_switch", "iset_signal_buffer_switch_cb","");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1448 weechat::bar_item_new("isetbar_help", "iset_item_cb", "");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1449 weechat::bar_new("isetbar", "on", "0", "window", "", "top", "horizontal",
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1450 "vertical", "3", "3", "default", "cyan", "default", "1",
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1451 "isetbar_help");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1452 weechat::hook_modifier("bar_condition_isetbar", "iset_check_condition_isetbar_cb", "");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1453 weechat::hook_config("*", "iset_config_cb", "");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1454 $iset_buffer = weechat::buffer_search($LANG, $PRGNAME);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1455 iset_init() if ($iset_buffer ne "");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1456
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1457 if ($wee_version_number >= 0x00030600)
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1458 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1459 weechat::hook_focus("chat", "hook_focus_iset_cb", "");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1460 weechat::hook_hsignal($PRGNAME."_mouse", "iset_hsignal_mouse_cb", "");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1461 weechat::key_bind("mouse", \%mouse_keys);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1462 }