From 9d7f9f3fb444522e49979d024b90d1701882e031 Mon Sep 17 00:00:00 2001 From: Ruben Beltran del Rio Date: Tue, 8 Apr 2025 13:09:47 +0200 Subject: Remove old weechat config --- weechat/alias.conf | 44 -- weechat/aspell.conf | 33 - weechat/buffers.conf | 63 -- weechat/buflist.conf | 39 -- weechat/charset.conf | 18 - weechat/exec.conf | 19 - weechat/fifo.conf | 14 - weechat/fset.conf | 95 --- weechat/irc.conf | 236 ------- weechat/iset.conf | 34 - weechat/logger.conf | 35 - weechat/lua.conf | 14 - weechat/perl.conf | 14 - weechat/perl/autoload/beep.pl | 1 - weechat/perl/autoload/chanmon.pl | 1 - weechat/perl/autoload/iset.pl | 1 - weechat/perl/beep.pl | 257 ------- weechat/perl/chanmon.pl | 1116 ----------------------------- weechat/perl/iset.pl | 1196 -------------------------------- weechat/plugins.conf | 70 -- weechat/python.conf | 14 - weechat/python/autoload/screen_away.py | 1 - weechat/python/autoload/upside_down.py | 1 - weechat/python/autoload/weeget.py | 980 -------------------------- weechat/python/screen_away.py | 151 ---- weechat/python/upside_down.py | 130 ---- weechat/relay.conf | 50 -- weechat/rmodifier.conf | 11 - weechat/ruby.conf | 14 - weechat/script.conf | 56 -- weechat/script/plugins.xml.gz | Bin 126207 -> 0 bytes weechat/sec.conf | 18 - weechat/tcl.conf | 14 - weechat/trigger.conf | 67 -- weechat/weechat.conf | 689 ------------------ weechat/weeget/plugins.xml.gz | Bin 32683 -> 0 bytes weechat/wg.conf | 23 - weechat/xfer.conf | 47 -- 38 files changed, 5566 deletions(-) delete mode 100644 weechat/alias.conf delete mode 100644 weechat/aspell.conf delete mode 100644 weechat/buffers.conf delete mode 100644 weechat/buflist.conf delete mode 100644 weechat/charset.conf delete mode 100644 weechat/exec.conf delete mode 100644 weechat/fifo.conf delete mode 100644 weechat/fset.conf delete mode 100644 weechat/irc.conf delete mode 100644 weechat/iset.conf delete mode 100644 weechat/logger.conf delete mode 100644 weechat/lua.conf delete mode 100644 weechat/perl.conf delete mode 120000 weechat/perl/autoload/beep.pl delete mode 120000 weechat/perl/autoload/chanmon.pl delete mode 120000 weechat/perl/autoload/iset.pl delete mode 100644 weechat/perl/beep.pl delete mode 100644 weechat/perl/chanmon.pl delete mode 100644 weechat/perl/iset.pl delete mode 100644 weechat/plugins.conf delete mode 100644 weechat/python.conf delete mode 120000 weechat/python/autoload/screen_away.py delete mode 120000 weechat/python/autoload/upside_down.py delete mode 100644 weechat/python/autoload/weeget.py delete mode 100644 weechat/python/screen_away.py delete mode 100644 weechat/python/upside_down.py delete mode 100644 weechat/relay.conf delete mode 100644 weechat/rmodifier.conf delete mode 100644 weechat/ruby.conf delete mode 100644 weechat/script.conf delete mode 100644 weechat/script/plugins.xml.gz delete mode 100644 weechat/sec.conf delete mode 100644 weechat/tcl.conf delete mode 100644 weechat/trigger.conf delete mode 100644 weechat/weechat.conf delete mode 100644 weechat/weeget/plugins.xml.gz delete mode 100644 weechat/wg.conf delete mode 100644 weechat/xfer.conf (limited to 'weechat') diff --git a/weechat/alias.conf b/weechat/alias.conf deleted file mode 100644 index 1e56811..0000000 --- a/weechat/alias.conf +++ /dev/null @@ -1,44 +0,0 @@ -# -# weechat -- alias.conf -# -# WARNING: It is NOT recommended to edit this file by hand, -# especially if WeeChat is running. -# -# Use /set or similar command to change settings in WeeChat. -# -# For more info, see: https://weechat.org/doc/quickstart -# - -[cmd] -AAWAY = "allserv /away" -AME = "allchan /me" -AMSG = "allchan /msg *" -ANICK = "allserv /nick" -BYE = "quit" -C = "buffer clear" -CHAT = "dcc chat" -CL = "buffer clear" -CLOSE = "buffer close" -EXIT = "quit" -IG = "ignore" -J = "join" -K = "kick" -KB = "kickban" -LEAVE = "part" -M = "msg" -MUB = "unban *" -N = "names" -Q = "query" -REDRAW = "window refresh" -SAY = "msg *" -SIGNOFF = "quit" -T = "topic" -UB = "unban" -V = "command core version" -W = "who" -WC = "window merge" -WI = "whois" -WII = "whois $1 $1" -WW = "whowas" - -[completion] diff --git a/weechat/aspell.conf b/weechat/aspell.conf deleted file mode 100644 index 27b16b8..0000000 --- a/weechat/aspell.conf +++ /dev/null @@ -1,33 +0,0 @@ -# -# weechat -- aspell.conf -# -# WARNING: It is NOT recommended to edit this file by hand, -# especially if WeeChat is running. -# -# Use /set or similar command to change settings in WeeChat. -# -# For more info, see: https://weechat.org/doc/quickstart -# - -[color] -misspelled = lightred -suggestion = default -suggestion_delimiter_dict = cyan -suggestion_delimiter_word = cyan - -[check] -commands = "ame,amsg,away,command,cycle,kick,kickban,me,msg,notice,part,query,quit,topic" -default_dict = "" -during_search = off -enabled = off -real_time = off -suggestions = -1 -word_min_length = 2 - -[dict] - -[look] -suggestion_delimiter_dict = " / " -suggestion_delimiter_word = "," - -[option] diff --git a/weechat/buffers.conf b/weechat/buffers.conf deleted file mode 100644 index 5893919..0000000 --- a/weechat/buffers.conf +++ /dev/null @@ -1,63 +0,0 @@ -# -# weechat -- buffers.conf -# -# WARNING: It is NOT recommended to edit this file by hand, -# especially if WeeChat is running. -# -# Use /set or similar command to change settings in WeeChat. -# -# For more info, see: https://weechat.org/doc/quickstart -# - -[color] -current_bg = red -current_fg = lightcyan -default_bg = default -default_fg = default -hotlist_highlight_bg = default -hotlist_highlight_fg = magenta -hotlist_low_bg = default -hotlist_low_fg = white -hotlist_message_bg = default -hotlist_message_fg = yellow -hotlist_private_bg = default -hotlist_private_fg = lightgreen -none_channel_bg = default -none_channel_fg = default -number = lightgreen -number_char = lightgreen -queries_default_bg = default -queries_default_fg = default -queries_highlight_bg = default -queries_highlight_fg = default -queries_message_bg = default -queries_message_fg = default -whitelist_default_bg = default -whitelist_default_fg = default -whitelist_highlight_bg = default -whitelist_highlight_fg = default -whitelist_low_bg = default -whitelist_low_fg = default -whitelist_message_bg = default -whitelist_message_fg = default -whitelist_private_bg = default -whitelist_private_fg = default - -[look] -core_to_front = off -detach = 0 -hide_merged_buffers = none -immune_detach_buffers = "" -indenting = off -indenting_number = on -jump_prev_next_visited_buffer = off -name_crop_suffix = "+" -name_size_max = 0 -number_char = "." -prefix = off -prefix_empty = on -short_names = on -show_lag = off -show_number = on -sort = number -whitelist_buffers = "" diff --git a/weechat/buflist.conf b/weechat/buflist.conf deleted file mode 100644 index d285f89..0000000 --- a/weechat/buflist.conf +++ /dev/null @@ -1,39 +0,0 @@ -# -# weechat -- buflist.conf -# -# WARNING: It is NOT recommended to edit this file by hand, -# especially if WeeChat is running. -# -# Use /set or similar command to change settings in WeeChat. -# -# For more info, see: https://weechat.org/doc/quickstart -# - -[look] -add_newline = on -auto_scroll = 50 -display_conditions = "${buffer.hidden}==0" -enabled = on -mouse_jump_visited_buffer = off -mouse_move_buffer = on -mouse_wheel = on -nick_prefix = off -nick_prefix_empty = on -signals_refresh = "" -sort = "number,-active" - -[format] -buffer = "${format_number}${indent}${format_nick_prefix}${color_hotlist}${format_name}" -buffer_current = "${color:,blue}${format_buffer}" -hotlist = " ${color:green}(${hotlist}${color:green})" -hotlist_highlight = "${color:magenta}" -hotlist_low = "${color:white}" -hotlist_message = "${color:brown}" -hotlist_none = "${color:default}" -hotlist_private = "${color:green}" -hotlist_separator = "${color:default}," -indent = " " -lag = " ${color:green}[${color:brown}${lag}${color:green}]" -name = "${name}" -nick_prefix = "${color_nick_prefix}${nick_prefix}" -number = "${color:green}${number}${if:${number_displayed}?.: }" diff --git a/weechat/charset.conf b/weechat/charset.conf deleted file mode 100644 index 00d304c..0000000 --- a/weechat/charset.conf +++ /dev/null @@ -1,18 +0,0 @@ -# -# weechat -- charset.conf -# -# WARNING: It is NOT recommended to edit this file by hand, -# especially if WeeChat is running. -# -# Use /set or similar command to change settings in WeeChat. -# -# For more info, see: https://weechat.org/doc/quickstart -# - -[default] -decode = "iso-8859-1" -encode = "" - -[decode] - -[encode] diff --git a/weechat/exec.conf b/weechat/exec.conf deleted file mode 100644 index db02a5b..0000000 --- a/weechat/exec.conf +++ /dev/null @@ -1,19 +0,0 @@ -# -# weechat -- exec.conf -# -# WARNING: It is NOT recommended to edit this file by hand, -# especially if WeeChat is running. -# -# Use /set or similar command to change settings in WeeChat. -# -# For more info, see: https://weechat.org/doc/quickstart -# - -[command] -default_options = "" -purge_delay = 0 -shell = "sh" - -[color] -flag_finished = lightred -flag_running = lightgreen diff --git a/weechat/fifo.conf b/weechat/fifo.conf deleted file mode 100644 index 904985d..0000000 --- a/weechat/fifo.conf +++ /dev/null @@ -1,14 +0,0 @@ -# -# weechat -- fifo.conf -# -# WARNING: It is NOT recommended to edit this file by hand, -# especially if WeeChat is running. -# -# Use /set or similar command to change settings in WeeChat. -# -# For more info, see: https://weechat.org/doc/quickstart -# - -[file] -enabled = on -path = "%h/weechat_fifo" diff --git a/weechat/fset.conf b/weechat/fset.conf deleted file mode 100644 index 668266c..0000000 --- a/weechat/fset.conf +++ /dev/null @@ -1,95 +0,0 @@ -# -# weechat -- fset.conf -# -# WARNING: It is NOT recommended to edit this file by hand, -# especially if WeeChat is running. -# -# Use /set or similar command to change settings in WeeChat. -# -# For more info, see: https://weechat.org/doc/quickstart -# - -[look] -auto_unmark = off -condition_catch_set = "${count} >= 1" -export_help_default = on -format_number = 1 -marked_string = "*" -scroll_horizontal = 10 -show_plugins_desc = off -sort = "~name" -unmarked_string = " " -use_color_value = off -use_keys = on -use_mute = off - -[format] -export_help = "# ${description2}" -export_option = "/set ${name} ${quoted_value}" -export_option_null = "/unset ${name}" -option1 = "" -option2 = "${marked} ${name} ${type} ${value2}${newline} ${empty_name} ${_default_value}${color:darkgray} -- ${min}..${max}${newline} ${empty_name} ${description}" - -[color] -default_value = default -default_value_selected = white -description = default -description_selected = white -file = default -file_changed = brown -file_changed_selected = yellow -file_selected = white -help_default_value = white -help_description = default -help_name = white -help_quotes = darkgray -help_values = default -index = cyan -index_selected = lightcyan -line_marked_bg1 = default -line_marked_bg2 = default -line_selected_bg1 = blue -line_selected_bg2 = red -marked = brown -marked_selected = yellow -max = default -max_selected = white -min = default -min_selected = white -name = default -name_changed = brown -name_changed_selected = yellow -name_selected = white -option = default -option_changed = brown -option_changed_selected = yellow -option_selected = white -parent_name = default -parent_name_selected = white -parent_value = cyan -parent_value_selected = lightcyan -quotes = darkgray -quotes_changed = default -quotes_changed_selected = white -quotes_selected = default -section = default -section_changed = brown -section_changed_selected = yellow -section_selected = white -string_values = default -string_values_selected = white -title_count_options = cyan -title_current_option = lightcyan -title_filter = yellow -title_marked_options = lightgreen -title_sort = white -type = green -type_selected = lightgreen -unmarked = default -unmarked_selected = white -value = cyan -value_changed = brown -value_changed_selected = yellow -value_selected = lightcyan -value_undef = magenta -value_undef_selected = lightmagenta diff --git a/weechat/irc.conf b/weechat/irc.conf deleted file mode 100644 index 6562ddb..0000000 --- a/weechat/irc.conf +++ /dev/null @@ -1,236 +0,0 @@ -# -# weechat -- irc.conf -# -# WARNING: It is NOT recommended to edit this file by hand, -# especially if WeeChat is running. -# -# Use /set or similar command to change settings in WeeChat. -# -# For more info, see: https://weechat.org/doc/quickstart -# - -[look] -buffer_open_before_autojoin = on -buffer_open_before_join = off -buffer_switch_autojoin = on -buffer_switch_join = on -color_nicks_in_names = off -color_nicks_in_nicklist = off -color_nicks_in_server_messages = on -color_pv_nick_like_channel = on -ctcp_time_format = "%a, %d %b %Y %T %z" -display_away = local -display_ctcp_blocked = on -display_ctcp_reply = on -display_ctcp_unknown = on -display_host_join = on -display_host_join_local = on -display_host_quit = on -display_join_message = "329,332,333,366" -display_old_topic = on -display_pv_away_once = on -display_pv_back = on -highlight_channel = "$nick" -highlight_pv = "$nick" -highlight_server = "$nick" -highlight_tags_restrict = "irc_privmsg,irc_notice" -item_channel_modes_hide_args = "k" -item_display_server = buffer_plugin -item_nick_modes = on -item_nick_prefix = on -join_auto_add_chantype = off -msgbuffer_fallback = current -new_channel_position = none -new_pv_position = none -nick_completion_smart = speakers -nick_mode = prefix -nick_mode_empty = off -nicks_hide_password = "nickserv" -notice_as_pv = auto -notice_welcome_redirect = on -notice_welcome_tags = "" -notify_tags_ison = "notify_message" -notify_tags_whois = "notify_message" -part_closes_buffer = off -pv_buffer = independent -pv_tags = "notify_private" -raw_messages = 256 -server_buffer = merge_with_core -smart_filter = on -smart_filter_chghost = on -smart_filter_delay = 5 -smart_filter_join = on -smart_filter_join_unmask = 30 -smart_filter_mode = "+" -smart_filter_nick = on -smart_filter_quit = on -temporary_servers = off -topic_strip_colors = off - -[color] -input_nick = lightcyan -item_channel_modes = default -item_lag_counting = default -item_lag_finished = yellow -item_nick_modes = default -message_chghost = brown -message_join = green -message_quit = red -mirc_remap = "1,-1:darkgray" -nick_prefixes = "q:lightred;a:lightcyan;o:lightgreen;h:lightmagenta;v:yellow;*:lightblue" -notice = green -reason_quit = default -topic_current = default -topic_new = white -topic_old = darkgray - -[network] -autoreconnect_delay_growing = 2 -autoreconnect_delay_max = 1800 -ban_mask_default = "*!$ident@$host" -channel_encode = off -colors_receive = on -colors_send = on -lag_check = 60 -lag_max = 1800 -lag_min_show = 500 -lag_reconnect = 300 -lag_refresh_interval = 1 -notify_check_ison = 1 -notify_check_whois = 5 -sasl_fail_unavailable = on -send_unknown_commands = off -whois_double_nick = off - -[msgbuffer] - -[ctcp] - -[ignore] - -[server_default] -addresses = "" -anti_flood_prio_high = 2 -anti_flood_prio_low = 2 -autoconnect = off -autojoin = "" -autoreconnect = on -autoreconnect_delay = 10 -autorejoin = off -autorejoin_delay = 30 -away_check = 0 -away_check_max_nicks = 25 -capabilities = "" -command = "" -command_delay = 0 -connection_timeout = 60 -ipv6 = off -local_hostname = "" -msg_kick = "" -msg_part = "WeeChat ${info:version}" -msg_quit = "WeeChat ${info:version}" -nicks = "rbdr,rbdr182,rbdr666,rbdr9000,rdbr" -nicks_alternate = on -notify = "" -password = "" -proxy = "" -realname = "" -sasl_fail = continue -sasl_key = "" -sasl_mechanism = plain -sasl_password = "" -sasl_timeout = 15 -sasl_username = "" -split_msg_max_length = 512 -ssl = off -ssl_cert = "" -ssl_dhkey_size = 2048 -ssl_fingerprint = "" -ssl_priorities = "NORMAL" -ssl_verify = on -usermode = "" -username = "rbdr" - -[server] -freenode.addresses = "chat.freenode.net/6667" -freenode.proxy -freenode.ipv6 -freenode.ssl -freenode.ssl_cert -freenode.ssl_priorities -freenode.ssl_dhkey_size -freenode.ssl_fingerprint -freenode.ssl_verify -freenode.password -freenode.capabilities -freenode.sasl_mechanism -freenode.sasl_username -freenode.sasl_password -freenode.sasl_key -freenode.sasl_timeout -freenode.sasl_fail -freenode.autoconnect -freenode.autoreconnect -freenode.autoreconnect_delay -freenode.nicks -freenode.nicks_alternate -freenode.username -freenode.realname -freenode.local_hostname -freenode.usermode -freenode.command = "" -freenode.command_delay -freenode.autojoin = "" -freenode.autorejoin -freenode.autorejoin_delay -freenode.connection_timeout -freenode.anti_flood_prio_high -freenode.anti_flood_prio_low -freenode.away_check -freenode.away_check_max_nicks -freenode.msg_kick -freenode.msg_part -freenode.msg_quit -freenode.notify -freenode.split_msg_max_length -QuakeNet.addresses = "gameservers.nj.us.quakenet.org/6667" -QuakeNet.proxy -QuakeNet.ipv6 -QuakeNet.ssl -QuakeNet.ssl_cert -QuakeNet.ssl_priorities -QuakeNet.ssl_dhkey_size -QuakeNet.ssl_fingerprint -QuakeNet.ssl_verify -QuakeNet.password -QuakeNet.capabilities -QuakeNet.sasl_mechanism -QuakeNet.sasl_username -QuakeNet.sasl_password -QuakeNet.sasl_key -QuakeNet.sasl_timeout -QuakeNet.sasl_fail -QuakeNet.autoconnect -QuakeNet.autoreconnect -QuakeNet.autoreconnect_delay -QuakeNet.nicks -QuakeNet.nicks_alternate -QuakeNet.username -QuakeNet.realname -QuakeNet.local_hostname -QuakeNet.usermode -QuakeNet.command -QuakeNet.command_delay -QuakeNet.autojoin = "" -QuakeNet.autorejoin -QuakeNet.autorejoin_delay -QuakeNet.connection_timeout -QuakeNet.anti_flood_prio_high -QuakeNet.anti_flood_prio_low -QuakeNet.away_check -QuakeNet.away_check_max_nicks -QuakeNet.msg_kick -QuakeNet.msg_part -QuakeNet.msg_quit -QuakeNet.notify -QuakeNet.split_msg_max_length diff --git a/weechat/iset.conf b/weechat/iset.conf deleted file mode 100644 index ab8b7a2..0000000 --- a/weechat/iset.conf +++ /dev/null @@ -1,34 +0,0 @@ -# -# weechat -- iset.conf -# -# WARNING: It is NOT recommended to edit this file by hand, -# especially if WeeChat is running. -# -# Use /set or similar command to change settings in WeeChat. -# -# For more info, see: https://weechat.org/doc/quickstart -# - -[color] -bg_selected = red -help_default_value = green -help_option_name = white -help_text = default -option = default -option_selected = white -type = brown -type_selected = yellow -value = cyan -value_selected = lightcyan -value_undef = green -value_undef_selected = lightgreen - -[help] -show_help_bar = on -show_help_extra_info = on -show_plugin_description = on - -[look] -scroll_horiz = 10 -show_current_line = on -value_search_char = "=" diff --git a/weechat/logger.conf b/weechat/logger.conf deleted file mode 100644 index 36d9243..0000000 --- a/weechat/logger.conf +++ /dev/null @@ -1,35 +0,0 @@ -# -# weechat -- logger.conf -# -# WARNING: It is NOT recommended to edit this file by hand, -# especially if WeeChat is running. -# -# Use /set or similar command to change settings in WeeChat. -# -# For more info, see: https://weechat.org/doc/quickstart -# - -[look] -backlog = 20 -backlog_conditions = "" - -[color] -backlog_end = darkgray -backlog_line = darkgray - -[file] -auto_log = on -flush_delay = 120 -fsync = off -info_lines = off -mask = "$plugin.$name.weechatlog" -name_lower_case = on -nick_prefix = "" -nick_suffix = "" -path = "%h/logs/" -replacement_char = "_" -time_format = "%Y-%m-%d %H:%M:%S" - -[level] - -[mask] diff --git a/weechat/lua.conf b/weechat/lua.conf deleted file mode 100644 index fa4966b..0000000 --- a/weechat/lua.conf +++ /dev/null @@ -1,14 +0,0 @@ -# -# weechat -- lua.conf -# -# WARNING: It is NOT recommended to edit this file by hand, -# especially if WeeChat is running. -# -# Use /set or similar command to change settings in WeeChat. -# -# For more info, see: https://weechat.org/doc/quickstart -# - -[look] -check_license = off -eval_keep_context = on diff --git a/weechat/perl.conf b/weechat/perl.conf deleted file mode 100644 index 31924b9..0000000 --- a/weechat/perl.conf +++ /dev/null @@ -1,14 +0,0 @@ -# -# weechat -- perl.conf -# -# WARNING: It is NOT recommended to edit this file by hand, -# especially if WeeChat is running. -# -# Use /set or similar command to change settings in WeeChat. -# -# For more info, see: https://weechat.org/doc/quickstart -# - -[look] -check_license = off -eval_keep_context = on diff --git a/weechat/perl/autoload/beep.pl b/weechat/perl/autoload/beep.pl deleted file mode 120000 index 0cc452e..0000000 --- a/weechat/perl/autoload/beep.pl +++ /dev/null @@ -1 +0,0 @@ -../beep.pl \ No newline at end of file diff --git a/weechat/perl/autoload/chanmon.pl b/weechat/perl/autoload/chanmon.pl deleted file mode 120000 index 0a72383..0000000 --- a/weechat/perl/autoload/chanmon.pl +++ /dev/null @@ -1 +0,0 @@ -../chanmon.pl \ No newline at end of file diff --git a/weechat/perl/autoload/iset.pl b/weechat/perl/autoload/iset.pl deleted file mode 120000 index 2746e0d..0000000 --- a/weechat/perl/autoload/iset.pl +++ /dev/null @@ -1 +0,0 @@ -../iset.pl \ No newline at end of file diff --git a/weechat/perl/beep.pl b/weechat/perl/beep.pl deleted file mode 100644 index 69096c2..0000000 --- a/weechat/perl/beep.pl +++ /dev/null @@ -1,257 +0,0 @@ -# -# Copyright (C) 2006-2012 Sebastien Helleu -# Copyright (C) 2011 Nils Görs -# Copyright (C) 2011 ArZa -# -# This program is free software; you can redistribute it and/or modify -# it under the terms of the GNU General Public License as published by -# the Free Software Foundation; either version 3 of the License, or -# (at your option) any later version. -# -# This program is distributed in the hope that it will be useful, -# but WITHOUT ANY WARRANTY; without even the implied warranty of -# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -# GNU General Public License for more details. -# -# You should have received a copy of the GNU General Public License -# along with this program. If not, see . -# -# -# Beep (terminal bell) and/or run command on highlight/private message or new DCC. -# -# History: -# 2012-06-05, ldvx: -# version 1.1: Added wildcard support for whitelist_nicks. -# 2012-05-09, ldvx : -# version 1.0: Added beep_pv_blacklist, beep_highlight_blacklist, blacklist_nicks, -# and wildcard support for blacklist_nicks. -# 2012-05-02, ldvx : -# version 0.9: fix regex for nick in tags, add options "whitelist_channels" -# and "bell_always" -# 2012-04-19, ldvx : -# version 0.8: add whitelist, trigger, use hook_process for commands, -# rename option "beep_command" to "beep_command_pv", add help for options -# 2011-04-16, ArZa : -# version 0.7: fix default beep command -# 2011-03-11, nils_2 : -# version 0.6: add additional command options for dcc and highlight -# 2011-03-09, nils_2 : -# version 0.5: add option for beep command and dcc -# 2009-05-02, Sebastien Helleu : -# version 0.4: sync with last API changes -# 2008-11-05, Sebastien Helleu : -# version 0.3: conversion to WeeChat 0.3.0+ -# 2007-08-10, Sebastien Helleu : -# version 0.2: upgraded licence to GPL 3 -# 2006-09-02, Sebastien Helleu : -# version 0.1: initial release - -use strict; -my $SCRIPT_NAME = "beep"; -my $VERSION = "1.1"; - -# default values in setup file (~/.weechat/plugins.conf) -my %options_default = ('beep_pv' => ['on', 'beep on private message'], - 'beep_pv_whitelist' => ['off', 'turn whitelist for private messages on or off'], - 'beep_pv_blacklist' => ['off', 'turn blacklist for private messages on or off'], - 'beep_highlight' => ['on', 'beep on highlight'], - 'beep_highlight_whitelist' => ['off', 'turn whitelist for highlights on or off'], - 'beep_highlight_blacklist' => ['off', 'turn blacklist for highlights on or off'], - 'beep_dcc' => ['on', 'beep on dcc'], - 'beep_trigger_pv' => ['', 'word that will trigger execution of beep_command_pv (it empty, anything will trigger)'], - 'beep_trigger_highlight' => ['', 'word that will trigger execution of beep_command_highlight (if empty, anything will trigger)'], - 'beep_command_pv' => ['$bell', 'command for beep on private message, special value "$bell" is allowed, as well as "$bell;command"'], - 'beep_command_highlight' => ['$bell', 'command for beep on highlight, special value "$bell" is allowed, as well as "$bell;command"'], - 'beep_command_dcc' => ['$bell', 'command for beep on dcc, special value "$bell" is allowed, as well as "$bell;command"'], - 'beep_command_timeout' => ['30000', 'timeout for command run (in milliseconds, 0 = never kill (not recommended))'], - 'whitelist_nicks' => ['', 'comma-separated list of "server.nick": if not empty, only these nicks will trigger execution of commands (example: "freenode.nick1,freenode.nick2")'], - 'blacklist_nicks' => ['', 'comma-separated list of "server.nick": if not empty, these nicks will not be able to trigger execution of commands. Cannot be used in conjuction with whitelist (example: "freenode.nick1,freenode.nick2")'], - 'whitelist_channels' => ['', 'comma-separated list of "server.#channel": if not empty, only these channels will trigger execution of commands (example: "freenode.#weechat,freenode.#channel2")'], - 'bell_always' => ['', 'use $bell on private messages and/or highlights regardless of trigger and whitelist settings (example: "pv,highlight")'], -); -my %options = (); - -weechat::register($SCRIPT_NAME, "FlashCode ", $VERSION, - "GPL3", "Beep (terminal bell) and/or run command on highlight/private message or new DCC", "", ""); -init_config(); - -weechat::hook_config("plugins.var.perl.$SCRIPT_NAME.*", "toggle_config_by_set", ""); -weechat::hook_print("", "", "", 1, "pv_and_highlight", ""); -weechat::hook_signal("irc_dcc", "dcc", ""); - -sub pv_and_highlight -{ - my ($data, $buffer, $date, $tags, $displayed, $highlight, $prefix, $message) = @_; - - # return if message is filtered - return weechat::WEECHAT_RC_OK if ($displayed != 1); - - # return if nick in message is own nick - my $nick = ""; - $nick = $2 if ($tags =~ m/(^|,)nick_([^,]*)(,|$)/); - return weechat::WEECHAT_RC_OK if (weechat::buffer_get_string($buffer, "localvar_nick") eq $nick); - - # highlight - if ($highlight) - { - # Always print visual bel, regardless of whitelist and trigger settings - # beep_command_highlight does not need to contain $bell - if ($options{bell_always} =~ m/(^|,)highlight(,|$)/) - { - print STDERR "\a"; - } - # Channels whitelist for highlights - if ($options{beep_highlight} eq "on") - { - if ($options{whitelist_channels} ne "") - { - my $serverandchannel = weechat::buffer_get_string($buffer, "localvar_server"). "." . - weechat::buffer_get_string($buffer, "localvar_channel"); - if ($options{beep_trigger_highlight} eq "" or $message =~ m/\b$options{beep_trigger_highlight}\b/) - { - if ($options{whitelist_channels} =~ /(^|,)$serverandchannel(,|$)/) - { - beep_exec_command($options{beep_command_highlight}); - } - # What if we are highlighted and we're in a PM? For now, do nothing. - } - } - else - { - # Execute $bell and/or command with trigger and whitelist/blacklist settings - beep_trigger_whitelist_blacklist($buffer, $message, $nick, $options{beep_trigger_highlight}, - $options{beep_highlight_whitelist}, $options{beep_highlight_blacklist}, - $options{beep_command_highlight}); - } - } - } - # private message - elsif (weechat::buffer_get_string($buffer, "localvar_type") eq "private" and $tags =~ m/(^|,)notify_private(,|$)/) - { - # Always print visual bel, regardless of whitelist and trigger settings - # beep_command_pv does not need to contain $bell - if ($options{bell_always} =~ m/(^|,)pv(,|$)/) - { - print STDERR "\a"; - } - # Execute $bell and/or command with trigger and whitelist/blacklist settings - if ($options{beep_pv} eq "on") - { - beep_trigger_whitelist_blacklist($buffer, $message, $nick, $options{beep_trigger_pv}, - $options{beep_pv_whitelist}, $options{beep_pv_blacklist}, - $options{beep_command_pv}); - } - } - return weechat::WEECHAT_RC_OK; -} - -sub dcc -{ - beep_exec_command($options{beep_command_dcc}) if ($options{beep_dcc} eq "on"); - return weechat::WEECHAT_RC_OK; -} - -sub beep_trigger_whitelist_blacklist -{ - my ($buffer, $message, $nick, $trigger, $whitelist, $blacklist, $command) = @_; - - if ($trigger eq "" or $message =~ m/\b$trigger\b/) - { - my $serverandnick = weechat::buffer_get_string($buffer, "localvar_server").".".$nick; - if ($whitelist eq "on" and $options{whitelist_nicks} ne "") - { - # What to do if there's a wildcard in the whitelit - if ($options{whitelist_nicks} =~ m/\*/ and - match_in_wild_card($serverandnick, $options{whitelist_nicks})) - { - beep_exec_command($command); - } - # What to do if there's no wildcard in the whitelist - elsif ($options{whitelist_nicks} =~ /(^|,)$serverandnick(,|$)/) - { - beep_exec_command($command); - } - } - elsif ($blacklist eq "on" and $options{blacklist_nicks} ne "") - { - # What to do if there's a wildcard in the blacklist - if ($options{blacklist_nicks} =~ m/\*/ and - !match_in_wild_card($serverandnick, $options{blacklist_nicks})) - { - beep_exec_command($command); - } - # What to do if there's no wildcard in the blacklist - elsif ($options{blacklist_nicks} !~ /(^|,)$serverandnick(,|$)/) - { - beep_exec_command($command); - } - } - # What to do if we are not using whitelist of blacklist feature - elsif ($whitelist eq "off" and $blacklist eq "off") - { - beep_exec_command($command); - } - } -} - -sub beep_exec_command -{ - my $command = $_[0]; - if ($command =~ /^\$bell/) - { - print STDERR "\a"; - ($command) = $command =~ /^\$bell;(.+)$/; - } - weechat::hook_process($command, $options{beep_command_timeout}, "my_process", "") if ($command); -} - -sub match_in_wild_card -{ - my ($serverandnick, $white_or_black) = @_; - my $nick_iter; - my @array_of_nicks = split(",", $white_or_black); - - foreach $nick_iter (@array_of_nicks) - { - $nick_iter =~ s/\*/[^,]*/g; - if ($serverandnick =~ /$nick_iter/) - { - return 1; - } - } - return 0; -} - -sub my_process -{ - return weechat::WEECHAT_RC_OK; -} - -sub toggle_config_by_set -{ - my ($pointer, $name, $value) = @_; - $name = substr($name, length("plugins.var.perl.".$SCRIPT_NAME."."), length($name)); - $options{$name} = $value; - return weechat::WEECHAT_RC_OK; -} - -sub init_config -{ - my $version = weechat::info_get("version_number", "") || 0; - foreach my $option (keys %options_default) - { - if (!weechat::config_is_set_plugin($option)) - { - weechat::config_set_plugin($option, $options_default{$option}[0]); - $options{$option} = $options_default{$option}[0]; - } - else - { - $options{$option} = weechat::config_get_plugin($option); - } - if ($version >= 0x00030500) - { - weechat::config_set_desc_plugin($option, $options_default{$option}[1]." (default: \"".$options_default{$option}[0]."\")"); - } - } -} diff --git a/weechat/perl/chanmon.pl b/weechat/perl/chanmon.pl deleted file mode 100644 index 18544de..0000000 --- a/weechat/perl/chanmon.pl +++ /dev/null @@ -1,1116 +0,0 @@ -# -# chanmon.pl - Channel Monitoring for weechat 0.3.0 -# Version 2.3.1 -# -# Add 'Channel Monitor' buffer/bar that you can position to show IRC channel -# messages in a single location without constantly switching buffers -# i.e. In a seperate window beneath the main channel buffer -# -# Usage: -# /chanmon [help] | [monitor [channel [server]]] | [dynmon] | [clean default|orphan|all] -# Command wrapper for chanmon commands -# -# /chmonitor [channel] [server] is used to toggle a channel monitoring on and off, this -# can be used in the channel buffer for the channel you wish to toggle, or be given -# with arguments e.g. /monitor #weechat freenode -# -# /dynmon is used to toggle 'Dynamic Channel Monitoring' on and off, this -# will automagically stop monitoring the current active buffer, without -# affecting regular settings (Default is off) -# -# /chanclean default|orphan|all will clean the config section of default 'on' entries, -# channels you are no longer joined, or both -# -# /set plugins.var.perl.chanmon.alignment -# The config setting "alignment" can be changed to; -# "channel", "schannel", "nchannel", "channel,nick", "schannel,nick", "nchannel,nick" -# to change how the monitor appears -# The 'channel' value will show: "#weechat" -# The 'schannel' value will show: "6" -# The 'nchannel' value will show: "6:#weechat" -# -# /set plugins.var.perl.chanmon.short_names -# Setting this to 'on' will trim the network name from chanmon, ala buffers.pl -# -# /set plugins.var.perl.chanmon.merge_private -# Setting this to 'on' will merge private messages to chanmon's display -# -# /set plugins.var.perl.chanmon.color_buf -# This turns colored buffer names on or off, you can also set a single fixed color by using a weechat color name. -# This *must* be a valid color name, or weechat will likely do unexpected things :) -# -# /set plugins.var.perl.chanmon.show_aways -# Toggles showing the Weechat away messages -# -# /set plugins.var.perl.chanmon.logging -# Toggles logging status for chanmon buffer (default: off) -# -# /set plugins.var.perl.chanmon.output -# Changes where output method of chanmon; takes either "bar" or "buffer" (default; buffer) -# /set plugins.var.perl.chanmon.bar_lines -# Changes the amount of lines the output bar will hold. -# (Only appears once output has been set to bar, defaults to 10) -# -# /set plugins.var.perl.chanmon.nick_prefix -# /set plugins.var.perl.chanmon.nick_suffix -# Sets the prefix and suffix chars in the chanmon buffer -# (Defaults to <> if nothing set, and blank if there is) -# -# servername.#channel -# servername is the internal name for the server (set when you use /server add) -# #channel is the channel name, (where # is whatever channel type that channel happens to be) -# -# Ideal set up: -# Split the layout 70/30 (or there abouts) horizontally and load -# Optionally, make the status and input lines only show on active windows -# -# /window splith 70 --> open the chanmon buffer -# /set weechat.bar.status.conditions "active" -# /set weechat.bar.input.conditions "active" - -# History: -# 2012-04-15, KenjiE20 : -# v2.3.1: -fix: Colour tags in bar timestamp string, bar error fixes from highmon -# 2012-02-28, KenjiE20 : -# v2.3: -feature: Added merge_private option to display private messages (default: off) -# 2010-12-22, KenjiE20 : -# v2.2: -change: Use API instead of config to find channel colours, ready for 0.3.4 and 256 colours -# 2010-12-05, KenjiE20 : -# v2.1.3: -change: /monitor is now /chmonitor to avoid command conflicts (thanks m4v) -# (/chanmon monitor remains the same) -# -fix: Add command list to inbuilt help -# 2010-09-30, KenjiE20 : -# v2.1.2: -fix: logging config was not correctly toggling back on (thanks to sleo for noticing) -# 2010-09-20, m4v : -# v2.1.1: -fix: chanmon wasn't detecting buffers displayed on more than one window -# 2010-08-27, KenjiE20 : -# v2.1: -feature: Add 'nchannel' option to alignment to display buffer and name -# 2010-04-25, KenjiE20 : -# v2.0: Release as version 2.0 -# 2010-04-24, KenjiE20 : -# -fix: No longer using hard-coded detection for ACTION and -# TOPIC messages. Use config settings for ACTION printing -# 2010-04-15, KenjiE20 : -# v1.9: Rewrite for v2.0 -# -feature: /monitor takes arguments -# -feature: Added /chanclean for config cleanup -# -feature: Buffer logging option (default: off) -# -feature: Selectable output (Bar/Buffer (default)) -# -feature: /chanmon is now a command wrapper for all commands -# /help chanmon gives command help -# /chanmon help gives config help -# -code change: Made more subs to shrink the code down in places -# -fix: Stop chanmon attempting to double load/hook -# 2010-02-10, m4v : -# v1.7.1: -fix: chanmon was leaking infolists, changed how chanmon -# detects if the buffer is displayed or not. -# 2010-01-25, KenjiE20 : -# v1.7: -fixture: Let chanmon be aware of nick_prefix/suffix -# and allow custom prefix/suffix for chanmon buffer -# (Defaults to <> if nothing set, and blank if there is) -# -fix: Make dynamic monitoring aware of multiple windows -# rather than just the active buffer -# (Thanks to m4v for these) -# 2009-09-07, KenjiE20 : -# v1.6: -feature: colored buffer names -# -change: chanmon version sync -# 2009-09-05, KenjiE20 : -# v1.5: -fix: disable buffer highlight -# 2009-09-02, KenjiE20 : -# v.1.4.1 -change: Stop unsightly text block on '/help' -# 2009-08-10, KenjiE20 : -# v1.4: -feature: In-client help added -# -fix: Added missing help entries -# Fix remaining ugly vars -# 2009-07-09, KenjiE20 : -# v.1.3.3 -fix: highlight on the channel monitor when someone /me highlights -# 2009-07-04, KenjiE20 : -# v.1.3.2 -fix: use new away_info tag instead of ugly regexp for away detection -# -code: cleanup old raw callback arguement variables to nice neat named ones -# 2009-07-04, KenjiE20 : -# v.1.3.1 -feature(tte): Hide /away messages by default, change 'show_aways' to get them back -# 2009-07-01, KenjiE20 : -# v.1.3 -feature(tte): Mimic buffers.pl 'short_names' -# 2009-06-29, KenjiE20 : -# v.1.2.1 -fix: let the /monitor message respect the alignment setting -# 2009-06-19, KenjiE20 : -# v.1.2 -feature(tte): Customisable alignment -# Thanks to 'FreakGaurd' for the idea -# 2009-06-14, KenjiE20 : -# v.1.1.2 -fix: don't assume chanmon buffer needs creating -# fixes crashing with /upgrade -# 2009-06-13, KenjiE20 : -# v.1.1.1 -code: change from True/False to on/off for weechat consistency -# Settings WILL NEED to be changed manually from previous versions -# 2009-06-13, KenjiE20 : -# v1.1: -feature: Dynamic Channel Monitoring, -# don't display messages from active channel buffer -# defaults to Disabled -# Thanks to 'sjohnson' for the idea -# -fix: don't set config entries for non-channels -# -fix: don't assume all channels are # -# 2009-06-12, KenjiE20 : -# v1.0.1: -fix: glitch with tabs in IRC messages -# 2009-06-10, KenjiE20 : -# v1.0: Initial Public Release - -# Copyright (c) 2009 by KenjiE20 -# -# This program is free software; you can redistribute it and/or modify -# it under the terms of the GNU General Public License as published by -# the Free Software Foundation; either version 3 of the License, or -# (at your option) any later version. -# -# This program is distributed in the hope that it will be useful, -# but WITHOUT ANY WARRANTY; without even the implied warranty of -# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -# GNU General Public License for more details. -# -# You should have received a copy of the GNU General Public License -# along with this program. If not, see . -# - -@bar_lines = (); -@bar_lines_time = (); -# Replicate info earlier for in-client help -$chanmonhelp = weechat::color("bold")."/chanmon [help] | [monitor [channel [server]]] | [dynmon] | [clean default|orphan|all]".weechat::color("-bold")." -Command wrapper for chanmon commands - -".weechat::color("bold")."/chmonitor [channel] [server]".weechat::color("-bold")." is used to toggle a channel monitoring on and off, this - can be used in the channel buffer for the channel you wish to toggle, or be given with arguments e.g. /monitor #weechat freenode - -".weechat::color("bold")."/dynmon".weechat::color("-bold")." is used to toggle 'Dynamic Channel Monitoring' on and off, this will automagically stop monitoring the current active buffer, without affecting regular settings (Default is off) - -".weechat::color("bold")."/chanclean".weechat::color("-bold")." default|orphan|all will clean the config section of default 'on' entries, channels you are no longer joined, or both - -".weechat::color("bold")."/set plugins.var.perl.chanmon.alignment".weechat::color("-bold")." - The config setting \"alignment\" can be changed to; - \"channel\", \"schannel\", \"nchannel\", \"channel,nick\", \"schannel,nick\", \"nchannel,nick\" - to change how the monitor appears - The 'channel' value will show: \"#weechat\" - The 'schannel' value will show: \"6\" - The 'nchannel' value will show: \"6:#weechat\" - -".weechat::color("bold")."/set plugins.var.perl.chanmon.short_names".weechat::color("-bold")." - Setting this to 'on' will trim the network name from chanmon, ala buffers.pl - -".weechat::color("bold")."/set plugins.var.perl.chanmon.merge_private".weechat::color("-bold")." - Setting this to 'on' will merge private messages to chanmon's display - -".weechat::color("bold")."/set plugins.var.perl.chanmon.color_buf".weechat::color("-bold")." - This turns colored buffer names on or off, you can also set a single fixed color by using a weechat color name. - This ".weechat::color("bold")."must".weechat::color("-bold")." be a valid color name, or weechat will likely do unexpected things :) - -".weechat::color("bold")."/set plugins.var.perl.chanmon.show_aways".weechat::color("-bold")." - Toggles showing the Weechat away messages - -".weechat::color("bold")."/set plugins.var.perl.chanmon.logging".weechat::color("-bold")." - Toggles logging status for chanmon buffer (default: off) - -".weechat::color("bold")."/set plugins.var.perl.chanmon.output".weechat::color("-bold")." - Changes where output method of chanmon; takes either \"bar\" or \"buffer\" (default; buffer) -".weechat::color("bold")."/set plugins.var.perl.chanmon.bar_lines".weechat::color("-bold")." - Changes the amount of lines the output bar will hold. - (Only appears once output has been set to bar, defaults to 10) - -".weechat::color("bold")."/set plugins.var.perl.chanmon.nick_prefix".weechat::color("-bold")." -".weechat::color("bold")."/set plugins.var.perl.chanmon.nick_suffix".weechat::color("-bold")." - Sets the prefix and suffix chars in the chanmon buffer - (Defaults to <> if nothing set, and blank if there is) - -".weechat::color("bold")."servername.#channel".weechat::color("-bold")." - servername is the internal name for the server (set when you use /server add) - #channel is the channel name, (where # is whatever channel type that channel happens to be) - -".weechat::color("bold")."Ideal set up:".weechat::color("-bold")." -Split the layout 70/30 (or there abouts) horizontally and load -Optionally, make the status and input lines only show on active windows - -".weechat::color("bold")."/window splith 70 --> open the chanmon buffer".weechat::color("-bold")." -".weechat::color("bold")."/set weechat.bar.status.conditions \"active\"".weechat::color("-bold")." -".weechat::color("bold")."/set weechat.bar.input.conditions \"active\"".weechat::color("-bold"); -# Print verbose help -sub print_help -{ - weechat::print("", "\t".weechat::color("bold")."Chanmon Help".weechat::color("-bold")."\n\n"); - weechat::print("", "\t".$chanmonhelp); - return weechat::WEECHAT_RC_OK; -} - -# Bar item build -sub chanmon_bar_build -{ - # Get max lines - $max_lines = weechat::config_get_plugin("bar_lines"); - $max_lines = $max_lines ? $max_lines : 10; - $str = ''; - $align_num = 0; - $count = 0; - # Keep lines within max - while ($#bar_lines > $max_lines) - { - shift(@bar_lines); - shift(@bar_lines_time); - } - # So long as we have some lines, build a string - if (@bar_lines) - { - # Build loop - foreach(@bar_lines) - { - # Find max align needed - $prefix_num = (index(weechat::string_remove_color($_, ""), " | ")); - $align_num = $prefix_num if ($prefix_num > $align_num); - } - foreach(@bar_lines) - { - # Get align for this line - $prefix_num = (index(weechat::string_remove_color($_, ""), " | ")); - - # Make string - $str = $str.$bar_lines_time[$count]." ".(" " x ($align_num - $prefix_num)).$_."\n"; - # Increment count for sync with time list - $count++; - } - } - return $str; -} - -# Make a new bar -sub chanmon_bar_open -{ - # Make the bar item - weechat::bar_item_new("chanmon", "chanmon_bar_build", ""); - - $chanmon_bar = weechat::bar_new ("chanmon", "off", 100, "root", "", "bottom", "vertical", "vertical", 0, 0, "default", "cyan", "default", "on", "chanmon"); - - return weechat::WEECHAT_RC_OK; -} -# Close bar -sub chanmon_bar_close -{ - # Find if bar exists - $chanmon_bar = weechat::bar_search("chanmon"); - # If is does, close it - if ($chanmon_bar ne "") - { - weechat::bar_remove($chanmon_bar); - } - - # Find if bar item exists - $chanmon_bar_item = weechat::bar_item_search("chanmon_bar"); - # If is does, close it - if ($chanmon_bar_item ne "") - { - weechat::bar_remove($chanmon_bar_item); - } - - @bar_lines = (); - return weechat::WEECHAT_RC_OK; -} - -# Make a new buffer -sub chanmon_buffer_open -{ - # Search for pre-existing buffer - $chanmon_buffer = weechat::buffer_search("perl", "chanmon"); - - # Make a new buffer - if ($chanmon_buffer eq "") - { - $chanmon_buffer = weechat::buffer_new("chanmon", "chanmon_buffer_input", "", "chanmon_buffer_close", ""); - } - - # Turn off notify, highlights - if ($chanmon_buffer ne "") - { - weechat::buffer_set($chanmon_buffer, "notify", "0"); - weechat::buffer_set($chanmon_buffer, "highlight_words", "-"); - weechat::buffer_set($chanmon_buffer, "title", "Channel Monitor"); - # Set no_log - if (weechat::config_get_plugin("logging") eq "off") - { - weechat::buffer_set($chanmon_buffer, "localvar_set_no_log", "1"); - } - } - return weechat::WEECHAT_RC_OK; -} -# Buffer input has no action -sub chanmon_buffer_input -{ - return weechat::WEECHAT_RC_OK; -} -# Close up -sub chanmon_buffer_close -{ - $chanmon_buffer = ""; - return weechat::WEECHAT_RC_OK; -} - -# Chanmon command wrapper -sub chanmon_command_cb -{ - $data = $_[0]; - $buffer = $_[1]; - $args = $_[2]; - my $cmd = ''; - my $arg = ''; - - if ($args ne "") - { - # Split argument up - @arg_array = split(/ /,$args); - # Take first as command - $cmd = shift(@arg_array); - # Rebuild string to pass to subs - if (@arg_array) - { - $arg = join(" ", @arg_array); - } - } - - # Help command - if ($cmd eq "" || $cmd eq "help") - { - print_help(); - } - # /monitor command - elsif ($cmd eq "monitor") - { - chanmon_toggle($data, $buffer, $arg); - } - # /dynmon command - elsif ($cmd eq "dynmon") - { - chanmon_dyn_toggle(); - } - # /chanclean command - elsif ($cmd eq "clean") - { - chanmon_config_clean($data, $buffer, $arg); - } - return weechat::WEECHAT_RC_OK; -} - -# Clean up config entries -sub chanmon_config_clean -{ - $data = $_[0]; - $buffer = $_[1]; - $args = $_[2]; - - # Don't do anything if bad option given - if ($args ne "default" && $args ne "orphan" && $args ne "all") - { - weechat::print("", "\tchanmon.pl: Unknown option"); - return weechat::WEECHAT_RC_OK; - } - - @chans = (); - # Load an infolist of chanmon options - $infolist = weechat::infolist_get("option", "", "*chanmon*"); - while (weechat::infolist_next($infolist)) - { - $name = weechat::infolist_string($infolist, "option_name"); - $name =~ s/perl\.chanmon\.(\w*)\.([#&\+!])(.*)/$1.$2$3/; - if ($name =~ /^(.*)\.([#&\+!])(.*)$/) - { - $action = 0; - # Clean up all 'on's - if ($args eq "default" || $args eq "all") - { - # If value in config is "on" - if (weechat::config_get_plugin($name) eq "on") - { - # Unset and if successful flag as changed - $rc = weechat::config_unset_plugin($name); - if ($rc eq weechat::WEECHAT_CONFIG_OPTION_UNSET_OK_REMOVED) - { - $action = 1; - } - } - } - # Clean non joined - if ($args eq "orphan" || $args eq "all") - { - # If we can't find the buffer for this entry - if (weechat::buffer_search("irc", $name) eq "") - { - # Unset and if successful flag as changed - $rc = weechat::config_unset_plugin($name); - if ($rc eq weechat::WEECHAT_CONFIG_OPTION_UNSET_OK_REMOVED) - { - $action = 1; - } - } - } - # Add changed entry names to list - push (@chans, $name) if ($action); - } - } - weechat::infolist_free($infolist); - # If channels were cleaned from config - if (@chans) - { - # If only one entry - if (@chans == 1) - { - $str = "\tchanmon.pl: Cleaned ".@chans." entry from the config:"; - } - else - { - $str = "\tchanmon.pl: Cleaned ".@chans." entries from the config:"; - } - # Build a list of channels - foreach(@chans) - { - $str = $str." ".$_; - } - # Print what happened - weechat::print("",$str); - } - # Config seemed to be clean - else - { - weechat::print("", "\tchanmon.pl: No entries removed"); - } - return weechat::WEECHAT_RC_OK; -} - -# Check config elements -sub chanmon_config_init -{ - # Alignment default - if (!(weechat::config_is_set_plugin ("alignment"))) - { - weechat::config_set_plugin("alignment", "channel"); - } - if (weechat::config_get_plugin("alignment") eq "") - { - weechat::config_set_plugin("alignment", "none"); - } - - # Dynmon default - if (!(weechat::config_is_set_plugin ("dynamic"))) - { - weechat::config_set_plugin("dynamic", "off"); - } - - # Short name default - if (!(weechat::config_is_set_plugin ("short_names"))) - { - weechat::config_set_plugin("short_names", "off"); - } - - # Coloured names default - if (!(weechat::config_is_set_plugin ("color_buf"))) - { - weechat::config_set_plugin("color_buf", "on"); - } - - # Away message default - if (!(weechat::config_is_set_plugin ("show_aways"))) - { - weechat::config_set_plugin("show_aways", "off"); - } - - # chanmon log default - if (!(weechat::config_is_set_plugin ("logging"))) - { - weechat::config_set_plugin("logging", "off"); - } - - # Output default - if (!(weechat::config_is_set_plugin ("output"))) - { - weechat::config_set_plugin("output", "buffer"); - } - - # Private message merging - if (!(weechat::config_is_set_plugin ("merge_private"))) - { - weechat::config_set_plugin("merge_private", "off"); - } - - # Check for exisiting prefix/suffix chars, and setup accordingly - $prefix = weechat::config_get("irc.look.nick_prefix"); - $prefix = weechat::config_string($prefix); - $suffix = weechat::config_get("irc.look.nick_suffix"); - $suffix = weechat::config_string($suffix); - - if (!(weechat::config_is_set_plugin("nick_prefix"))) - { - if ($prefix eq "" && $suffix eq "") - { - weechat::config_set_plugin("nick_prefix", "<"); - } - else - { - weechat::config_set_plugin("nick_prefix", ""); - } - } - - if (!(weechat::config_is_set_plugin("nick_suffix"))) - { - if ($prefix eq "" && $suffix eq "") - { - weechat::config_set_plugin("nick_suffix", ">"); - } - else - { - weechat::config_set_plugin("nick_suffix", ""); - } - } -} - -# Get config updates -sub chanmon_config_cb -{ - $point = $_[0]; - $name = $_[1]; - $value = $_[2]; - - $name =~ s/^plugins\.var\.perl\.chanmon\.//; - - # Set logging on buffer - if ($name eq "logging") - { - # Search for pre-existing buffer - $chanmon_buffer = weechat::buffer_search("perl", "chanmon"); - if ($value eq "off") - { - weechat::buffer_set($chanmon_buffer, "localvar_set_no_log", "1"); - } - else - { - weechat::buffer_set($chanmon_buffer, "localvar_del_no_log", ""); - } - } - # Output changer - elsif ($name eq "output") - { - if ($value eq "bar") - { - # Search for pre-existing buffer - $chanmon_buffer = weechat::buffer_search("perl", "chanmon"); - # Close if it exists - if ($chanmon_buffer ne "") - { - weechat::buffer_close($chanmon_buffer) - } - - # Output bar lines default - if (!(weechat::config_is_set_plugin ("bar_lines"))) - { - weechat::config_set_plugin("bar_lines", "10"); - } - # Make a bar if doesn't exist - chanmon_bar_open(); - } - elsif ($value eq "buffer") - { - # If a bar exists, close it - chanmon_bar_close(); - # Open buffer - chanmon_buffer_open(); - } - - } - return weechat::WEECHAT_RC_OK; -} - -# Toggle dynamic monitoring on/off -sub chanmon_dyn_toggle -{ - if (weechat::config_get_plugin("dynamic") eq "off") - { - weechat::config_set_plugin("dynamic", "on"); - chanmon_print("Dynamic Channel Monitoring Enabled"); - return weechat::WEECHAT_RC_OK; - } - elsif (weechat::config_get_plugin("dynamic") eq "on") - { - weechat::config_set_plugin("dynamic", "off"); - chanmon_print("Dynamic Channel Monitoring Disabled"); - return weechat::WEECHAT_RC_OK; - } -} - -# Set up weechat hooks / commands -sub chanmon_hook -{ - weechat::hook_print("", "", "", 0, "chanmon_new_message", ""); - weechat::hook_command("chmonitor", "Toggles monitoring for a channel", "[channel [server]]", " channel: What channel to toggle monitoring for\n server: Internal server name, if channel is on more than one server", "%(irc_channels) %(irc_servers)", "chanmon_toggle", ""); - weechat::hook_command("dynmon", "Toggles 'dynamic' monitoring (auto-disable monitoring for current channel)", "", "", "", "chanmon_dyn_toggle", ""); - weechat::hook_command("chanclean", "Chanmon config clean up", "default|orphan|all", " default: Cleans all config entries with the default \"on\" value\n orphan: Cleans all config entries for channels you aren't currently joined\n all: Does both defaults and orphan", "default|orphan|all", "chanmon_config_clean", ""); - - weechat::hook_command("chanmon", "Chanmon help", "[help] | [monitor [channel [server]]] | [dynmon] | [clean default|orphan|all]", " help: Print help for chanmon\n monitor: Toggles monitoring for a channel (/chmonitor)\n dynmon: Toggles 'dynamic' monitoring (auto-disable monitoring for current channel) (/dynmon)\n clean: Chanmon config clean up (/chanclean)", "help || monitor %(irc_channels) %(irc_servers) || dynmon || clean default|orphan|all", "chanmon_command_cb", ""); - - weechat::hook_config("plugins.var.perl.chanmon.*", "chanmon_config_cb", ""); -} - -# Main body, Callback for hook_print -sub chanmon_new_message -{ - my $net = ""; - my $chan = ""; - my $nick = ""; - my $outstr = ""; - my $window_displayed = ""; - my $dyncheck = "0"; - -# DEBUG point -# $string = "\t"."0: ".$_[0]." 1: ".$_[1]." 2: ".$_[2]." 3: ".$_[3]." 4: ".$_[4]." 5: ".$_[5]." 6: ".$_[6]." 7: ".$_[7]; -# weechat::print("", "\t".$string); - - $cb_datap = $_[0]; - $cb_bufferp = $_[1]; - $cb_date = $_[2]; - $cb_tags = $_[3]; - $cb_disp = $_[4]; - $cb_high = $_[5]; - $cb_prefix = $_[6]; - $cb_msg = $_[7]; - - # Only work on messages and topic notices - if ($cb_tags =~ /irc_privmsg/ || $cb_tags =~ /irc_topic/) - { - # Check buffer name is an IRC channel or private message when enabled - $bufname = weechat::buffer_get_string($cb_bufferp, 'name'); - if ($bufname =~ /(.*)\.([#&\+!])(.*)/ || (weechat::config_get_plugin("merge_private") eq "on" && $cb_tags =~ /notify_private/)) - { - # Are we running on this channel - if (weechat::config_get_plugin($bufname) ne "off" && $cb_disp eq "1") - { - # Are we running dynamically - if (weechat::config_get_plugin("dynamic") eq "on") - { - # Check if this buffer is shown in a window somewhere - $window_displayed = weechat::buffer_get_integer($cb_bufferp, "num_displayed"); - if ($window_displayed ne 0) - { - # Stop running - return weechat::WEECHAT_RC_OK; - } - } - - # Format nick - # Line isn't action or topic notify - if (!($cb_tags =~ /irc_action/) && !($cb_tags =~ /irc_topic/)) - { - # Highlight - if ($cb_high eq "1") - { - # Strip nick colour - $uncolnick = weechat::string_remove_color($cb_prefix, ""); - # Format nick - $nick = " ".weechat::config_get_plugin("nick_prefix").weechat::color("chat_highlight").$uncolnick.weechat::color("reset").weechat::config_get_plugin("nick_suffix"); - } - # Normal line - else - { - # Format nick - $nick = " ".weechat::config_get_plugin("nick_prefix").$cb_prefix.weechat::color("reset").weechat::config_get_plugin("nick_suffix"); - } - } - # Topic line - elsif ($cb_tags =~ /irc_topic/) - { - - $nick = " ".$cb_prefix.weechat::color("reset"); - } - # Action line - else - { - # Highlight - if ($cb_high eq "1") - { - $uncolnick = weechat::string_remove_color($cb_prefix, ""); - $nick = weechat::color("chat_highlight").$uncolnick.weechat::color("reset"); - } - # Normal line - else - { - $nick = $cb_prefix.weechat::color("reset"); - } - } - # Send to output - chanmon_print ($cb_msg, $cb_bufferp, $nick); - } - } - } - # Special outgoing ACTION & away_info catcher - elsif ($cb_tags eq "" || $cb_tags =~ /away_info/ && weechat::config_get_plugin("show_aways") eq "on" ) - { - # Check buffer name is an IRC channel or private message when enabled - $bufname = weechat::buffer_get_string($cb_bufferp, 'name'); - if ($bufname =~ /(.*)\.([#&\+!])(.*)/ || (weechat::config_get_plugin("merge_private") eq "on" && $cb_tags =~ /notify_private/)) - { - # Are we running dynamically - if (weechat::config_get_plugin("dynamic") eq "on") - { - # Check if this buffer is shown in a window somewhere - $window_displayed = weechat::buffer_get_integer($cb_bufferp, "num_displayed"); - if ($window_displayed eq 1) - { - # Stop running - return weechat::WEECHAT_RC_OK; - } - } - - $net = $1; - $mynick = weechat::info_get("irc_nick", $net); - if ($cb_msg =~ $mynick) - { - $action_colour = weechat::color(weechat::config_string(weechat::config_get("weechat.color.chat_prefix_action"))); - $action_prefix = weechat::config_string(weechat::config_get("weechat.look.prefix_action")); - $nick_self_colour = weechat::color(weechat::config_string(weechat::config_get("weechat.color.chat_nick_self"))); - $nick = $action_colour.$action_prefix.$nick_self_colour.$nick.weechat::color("reset"); - # Send to output - chanmon_print ($cb_msg, $cb_bufferp, $nick); - } - } - } - return weechat::WEECHAT_RC_OK; -} - -# Output formatter and printer takes (msg bufpointer nick) -sub chanmon_print -{ - $cb_msg = $_[0]; - my $cb_bufferp = $_[1] if ($_[1]); - my $nick = $_[2] if ($_[2]); - - #Normal channel message - if ($cb_bufferp && $nick) - { - # Format buffer name - $bufname = format_buffer_name($cb_bufferp); - - # If alignment is #channel | nick msg - if (weechat::config_get_plugin("alignment") eq "channel") - { - $nick =~ s/\s(.*)/$1/; - # Build string - $outstr = $bufname."\t".$nick." ".$cb_msg; - } - # or if it is channel number | nick msg - elsif (weechat::config_get_plugin("alignment") eq "schannel") - { - $nick =~ s/\s(.*)/$1/; - # Use channel number instead - $bufname = weechat::color("chat_prefix_buffer").weechat::buffer_get_integer($cb_bufferp, 'number').weechat::color("reset"); - # Build string - $outstr = $bufname."\t".$nick." ".$cb_msg; - } - # or if it is number:#channel | nick msg - elsif (weechat::config_get_plugin("alignment") eq "nchannel") - { - $nick =~ s/\s(.*)/$1/; - # Place channel number in front of formatted name - $bufname = weechat::color("chat_prefix_buffer").weechat::buffer_get_integer($cb_bufferp, 'number').":".weechat::color("reset").$bufname; - # Build string - $outstr = $bufname."\t".$nick." ".$cb_msg; - } - # or if it is #channel nick | msg - elsif (weechat::config_get_plugin("alignment") eq "channel,nick") - { - # Build string - $outstr = $bufname.":".$nick."\t".$cb_msg; - } - # or if it is channel number nick | msg - elsif (weechat::config_get_plugin("alignment") eq "schannel,nick") - { - # Use channel number instead - $bufname = weechat::color("chat_prefix_buffer").weechat::buffer_get_integer($cb_bufferp, 'number').weechat::color("reset"); - # Build string - $outstr = $bufname.":".$nick."\t".$cb_msg; - } - # or if it is number:#channel nick | msg - elsif (weechat::config_get_plugin("alignment") eq "nchannel,nick") - { - # Place channel number in front of formatted name - $bufname = weechat::color("chat_prefix_buffer").weechat::buffer_get_integer($cb_bufferp, 'number').":".weechat::color("reset").$bufname; - # Build string - $outstr = $bufname.":".$nick."\t".$cb_msg; - } - # or finally | #channel nick msg - else - { - # Build string - $outstr = "\t".$bufname.":".$nick." ".$cb_msg; - } - } - # chanmon channel toggle message - elsif ($cb_bufferp && !$nick) - { - # Format buffer name - $bufname = format_buffer_name($cb_bufferp); - - # If alignment is #channel * | * - if (weechat::config_get_plugin("alignment") =~ /channel/) - { - # If it's actually channel number * | * - if (weechat::config_get_plugin("alignment") =~ /schannel/) - { - # Use channel number instead - $bufname = weechat::color("chat_prefix_buffer").weechat::buffer_get_integer($cb_bufferp, 'number').weechat::color("reset"); - } - # Or if it's actually number:#channel * | * - if (weechat::config_get_plugin("alignment") =~ /nchannel/) - { - # Place channel number in front of formatted name - $bufname = weechat::color("chat_prefix_buffer").weechat::buffer_get_integer($cb_bufferp, 'number').":".weechat::color("reset").$bufname; - } - $outstr = $bufname."\t".$cb_msg; - } - # or if alignment is | * - else - { - $outstr = $bufname.": ".$cb_msg; - } - } - # chanmon dynmon - elsif (!$cb_bufferp && !$nick) - { - $outstr = "\t".$cb_msg; - } - - # Send string to buffer - if (weechat::config_get_plugin("output") eq "buffer") - { - # Search for and confirm buffer - $chanmon_buffer = weechat::buffer_search("perl", "chanmon"); - # Print - weechat::print($chanmon_buffer, $outstr); - } - elsif (weechat::config_get_plugin("output") eq "bar") - { - # Add time string - use POSIX qw(strftime); - $time = strftime(weechat::config_string(weechat::config_get("weechat.look.buffer_time_format")), localtime); - # Colourise - if ($time =~ /\$\{\w+\}/) # Coloured string - { - while ($time =~ /\$\{(\w+)\}/) - { - $color = weechat::color($1); - $time =~ s/\$\{\w+\}/$color/; - } - } - else # Default string - { - $colour = weechat::color(weechat::config_string(weechat::config_get("weechat.color.chat_time_delimiters"))); - $reset = weechat::color("reset"); - $time =~ s/(\d*)(.)(\d*)/$1$colour$2$reset$3/g; - } - # Push updates to bar lists - push (@bar_lines_time, $time); - - # Change tab char - $delim = weechat::color(weechat::config_string(weechat::config_get("weechat.color.chat_delimiters")))." | ".weechat::color("reset"); - $outstr =~ s/\t/$delim/; - - push (@bar_lines, $outstr); - # Trigger update - weechat::bar_item_update("chanmon"); - } -} - -# Start the output display -sub chanmon_start -{ - if (weechat::config_get_plugin("output") eq "buffer") - { - chanmon_buffer_open(); - } - elsif (weechat::config_get_plugin("output") eq "bar") - { - chanmon_bar_open(); - } -} - -# Takes two optional args (channel server), toggles monitoring on/off -sub chanmon_toggle -{ - $data = $_[0]; - $buffer = $_[1]; - $args = $_[2]; - - # Check if we've been told what channel to act on - if ($args ne "") - { - # Split argument up - @arg_array = split(/ /,$args); - # Check if a server was given - if ($arg_array[1]) - { - # Find matching - $bufp = weechat::buffer_search("irc", $arg_array[1].".".$arg_array[0]); - } - else - { - $found_chans = 0; - # Loop through defined servers - $infolist = weechat::infolist_get("buffer", "", ""); - while (weechat::infolist_next($infolist)) - { - # Only interesting in IRC buffers - if (weechat::infolist_string($infolist, "plugin_name") eq "irc") - { - # Find buffers that maych - $sname = weechat::infolist_string($infolist, "short_name"); - if ($sname eq $arg_array[0]) - { - $found_chans++; - $bufp = weechat::infolist_pointer($infolist, "pointer"); - } - } - } - weechat::infolist_free($infolist); - # If the infolist found more than one channel, halt as we need to know which one - if ($found_chans > 1) - { - weechat::print("", "Channel name is not unique, please define server"); - return weechat::WEECHAT_RC_OK; - } - } - # Something didn't return right - if ($bufp eq "") - { - weechat::print("", "Could not find buffer"); - return weechat::WEECHAT_RC_OK; - } - } - else - { - # Get pointer from where we are - $bufp = weechat::current_buffer(); - } - # Get buffer name - $bufname = weechat::buffer_get_string($bufp, 'name'); - # Test if buffer is an IRC channel - if ($bufname =~ /(.*)\.([#&\+!])(.*)/) - { - if (weechat::config_get_plugin($bufname) eq "off") - { - # If currently off, set on - weechat::config_set_plugin($bufname, "on"); - - # Send to output formatter - chanmon_print("Channel Monitoring Enabled", $bufp); - return weechat::WEECHAT_RC_OK; - } - elsif (weechat::config_get_plugin($bufname) eq "on" || weechat::config_get_plugin($bufname) eq "") - { - # If currently on, set off - weechat::config_set_plugin($bufname, "off"); - - # Send to output formatter - chanmon_print("Channel Monitoring Disabled", $bufp); - return weechat::WEECHAT_RC_OK; - } - } -} - -# Takes a buffer pointer and returns a formatted name -sub format_buffer_name -{ - $cb_bufferp = $_[0]; - $bufname = weechat::buffer_get_string($cb_bufferp, 'name'); - - # Set colour from buffer name - if (weechat::config_get_plugin("color_buf") eq "on") - { - # Determine what colour to use - $color = weechat::info_get("irc_nick_color", $bufname); - if (!$color) - { - $color = 0; - @char_array = split(//,$bufname); - foreach $char (@char_array) - { - $color += ord($char); - } - $color %= 10; - $color = sprintf "weechat.color.chat_nick_color%02d", $color+1; - $color = weechat::config_get($color); - $color = weechat::config_string($color); - $color = weechat::color($color); - } - - # Private message just show network - if (weechat::config_get_plugin("merge_private") eq "on" && weechat::buffer_get_string($cb_bufferp, "localvar_type") eq "private") - { - $bufname = weechat::buffer_get_string($cb_bufferp, "localvar_server"); - } - # Format name to short or 'nicename' - elsif (weechat::config_get_plugin("short_names") eq "on") - { - $bufname = weechat::buffer_get_string($cb_bufferp, 'short_name'); - } - else - { - $bufname =~ s/(.*)\.([#&\+!])(.*)/$1$2$3/; - } - - # Build a coloured string - $bufname = $color.$bufname.weechat::color("reset"); - } - # User set colour name - elsif (weechat::config_get_plugin("color_buf") ne "off") - { - # Private message just show network - if (weechat::config_get_plugin("merge_private") eq "on" && weechat::buffer_get_string($cb_bufferp, "localvar_type") eq "private") - { - $bufname = weechat::buffer_get_string($cb_bufferp, "localvar_server"); - } - # Format name to short or 'nicename' - elsif (weechat::config_get_plugin("short_names") eq "on") - { - $bufname = weechat::buffer_get_string($cb_bufferp, 'short_name'); - } - else - { - $bufname =~ s/(.*)\.([#&\+!])(.*)/$1$2$3/; - } - - $color = weechat::config_get_plugin("color_buf"); - $bufname = weechat::color($color).$bufname.weechat::color("reset"); - } - # Stick with default colour - else - { - # Private message just show network - if (weechat::config_get_plugin("merge_private") eq "on" && weechat::buffer_get_string($cb_bufferp, "localvar_type") eq "private") - { - $bufname = weechat::buffer_get_string($cb_bufferp, "localvar_server"); - } - # Format name to short or 'nicename' - elsif (weechat::config_get_plugin("short_names") eq "on") - { - $bufname = weechat::buffer_get_string($cb_bufferp, 'short_name'); - } - else - { - $bufname =~ s/(.*)\.([#&\+!])(.*)/$1$2$3/; - } - } - - return $bufname; -} - -# Check result of register, and attempt to behave in a sane manner -if (!weechat::register("chanmon", "KenjiE20", "2.3.1", "GPL3", "Channel Monitor", "", "")) -{ - # Double load - weechat::print ("", "\tChanmon is already loaded"); - return weechat::WEECHAT_RC_OK; -} -else -{ - # Start everything - chanmon_hook(); - chanmon_config_init(); - chanmon_start(); -} \ No newline at end of file diff --git a/weechat/perl/iset.pl b/weechat/perl/iset.pl deleted file mode 100644 index 4fb8124..0000000 --- a/weechat/perl/iset.pl +++ /dev/null @@ -1,1196 +0,0 @@ -# -# Copyright (C) 2008-2012 Sebastien Helleu -# Copyright (C) 2010-2012 Nils Görs -# -# This program is free software; you can redistribute it and/or modify -# it under the terms of the GNU General Public License as published by -# the Free Software Foundation; either version 3 of the License, or -# (at your option) any later version. -# -# This program is distributed in the hope that it will be useful, -# but WITHOUT ANY WARRANTY; without even the implied warranty of -# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -# GNU General Public License for more details. -# -# You should have received a copy of the GNU General Public License -# along with this program. If not, see . -# -# Set WeeChat and plugins options interactively. -# -# History: -# -# 2012-03-17, Sebastien Helleu : -# version 2.5: fix check of sections when creating config file -# 2012-03-09, Sebastien Helleu : -# version 2.4: fix reload of config file -# 2012-02-02, nils_2 : -# version 2.3: fixed: refresh problem with new search results and cursor was outside window. -# : add: new option "current_line" in title bar -# version 2.2: fixed: refresh error when toggling plugins description -# 2011-11-05, nils_2 : -# version 2.1: use own config file (iset.conf), fix own help color (used immediately) -# 2011-10-16, nils_2 : -# version 2.0: add support for left-mouse-button and more sensitive mouse gesture (for integer/color options) -# add help text for mouse support -# 2011-09-20, Sebastien Helleu : -# version 1.9: add mouse support, fix iset buffer, fix errors on first load under FreeBSD -# 2011-07-21, nils_2 : -# version 1.8: added: option "show_plugin_description" (alt+p) -# fixed: typos in /help iset (lower case for alt+'x' keys) -# 2011-05-29, nils_2 : -# version 1.7: added: version check for future needs -# added: new option (scroll_horiz) and usage of scroll_horiz function (weechat >= 0.3.6 required) -# fixed: help_bar did not pop up immediately using key-shortcut -# 2011-02-19, nils_2 : -# version 1.6: added: display of all possible values in help bar (show_help_extra_info) -# fixed: external user options never loaded when starting iset first time -# 2011-02-13, Sebastien Helleu : -# version 1.5: use new help format for command arguments -# 2011-02-03, nils_2 : -# version 1.4: fixed: restore value filter after /upgrade using buffer local variable. -# 2011-01-14, nils_2 : -# version 1.3: added function to search for values (option value_search_char). -# code optimization. -# 2010-12-26, Sebastien Helleu : -# version 1.2: improve speed of /upgrade when iset buffer is open, -# restore filter used after /upgrade using buffer local variable, -# use /iset filter argument if buffer is open. -# 2010-11-21, drubin : -# version 1.1.1: fix bugs with cursor position -# 2010-11-20, nils_2 : -# version 1.1: cursor position set to value -# 2010-08-03, Sebastien Helleu : -# version 1.0: move misplaced call to infolist_free() -# 2010-02-02, rettub : -# version 0.9: turn all the help stuff off if option 'show_help_bar' is 'off', -# new key binding - to toggle help_bar and help stuff on/off -# 2010-01-30, nils_2 : -# version 0.8: fix error when option does not exist -# 2010-01-24, Sebastien Helleu : -# version 0.7: display iset bar only on iset buffer -# 2010-01-22, nils_2 and drubin: -# version 0.6: add description in a bar, fix singular/plural bug in title bar, -# fix selected line when switching buffer -# 2009-06-21, Sebastien Helleu : -# version 0.5: fix bug with iset buffer after /upgrade -# 2009-05-02, Sebastien Helleu : -# version 0.4: sync with last API changes -# 2009-01-04, Sebastien Helleu : -# version 0.3: open iset buffer when /iset command is executed -# 2009-01-04, Sebastien Helleu : -# version 0.2: use null values for options, add colors, fix refresh bugs, -# use new keys to reset/unset options, sort options by name, -# display number of options in buffer's title -# 2008-11-05, Sebastien Helleu : -# version 0.1: first official version -# 2008-04-19, Sebastien Helleu : -# script creation - -use strict; - -my $PRGNAME = "iset"; -my $VERSION = "2.5"; -my $DESCR = "Interactive Set for configuration options"; -my $AUTHOR = "Sebastien Helleu "; -my $LICENSE = "GPL3"; -my $LANG = "perl"; -my $ISET_CONFIG_FILE_NAME = "iset"; - -my $iset_config_file; -my $iset_buffer = ""; -my $wee_version_number = 0; -my @iset_focus = (); -my @options_names = (); -my @options_types = (); -my @options_values = (); -my @options_is_null = (); -my $option_max_length = 0; -my $current_line = 0; -my $filter = "*"; -my $description = ""; -my $options_name_copy = ""; -my $iset_filter_title = ""; - -my %options_iset; - -my %mouse_keys = ("\@chat(perl.$PRGNAME):button1" => "hsignal:iset_mouse", - "\@chat(perl.$PRGNAME):button2*" => "hsignal:iset_mouse", - "\@chat(perl.$PRGNAME):wheelup" => "/repeat 5 /iset **up", - "\@chat(perl.$PRGNAME):wheeldown" => "/repeat 5 /iset **down"); - - -sub iset_title -{ - if ($iset_buffer ne "") - { - my $current_line_text = ""; - $current_line_text = ($current_line + 1) . "/" if (weechat::config_boolean($options_iset{"show_current_line"}) == 1); - $iset_filter_title = "Filter: " if ($iset_filter_title eq ""); - $filter = "*" if ($filter eq ""); - my $postfix = "s"; - my $option_txt = " option"; - my $opt_txt = $option_txt; - $opt_txt = $option_txt.$postfix if (@options_names > 1); - my $show_plugin_descr_txt = ""; - $show_plugin_descr_txt = " (plugins description hidden)" if (weechat::config_boolean($options_iset{"show_plugin_description"}) == 0); - weechat::buffer_set($iset_buffer, "title", - "Interactive set (iset.pl v$VERSION) | " - .$iset_filter_title.weechat::color("yellow").$filter.weechat::color("default")." | " - .$current_line_text.@options_names.$opt_txt . $show_plugin_descr_txt); - } -} - -sub iset_filter -{ - $filter = $_[0]; - $filter = "$1.*" if ($filter =~ /f (.*)/); - $filter = "*.$1.*" if ($filter =~ /s (.*)/); - if ((substr($filter, 0, 1) ne "*") && (substr($filter, -1, 1) ne "*")) - { - $filter = "*".$filter."*"; - } - if ($iset_buffer ne "") - { - weechat::buffer_set($iset_buffer, "localvar_set_iset_filter", $filter); - } -} - -sub iset_buffer_input -{ - my ($data, $buffer, $string) = ($_[0], $_[1], $_[2]); - - my $string2 = substr($string, 0, 1); - if ($string2 eq weechat::config_string($options_iset{"value_search_char"})) - { - $filter = substr($string, 1); - iset_get_values($filter); - $iset_filter_title = "Filter (by value): "; - if ($iset_buffer ne "") - { - weechat::buffer_set($iset_buffer, "localvar_set_iset_filter", $filter); - } - } - else - { - $iset_filter_title = ""; - iset_filter($string); - iset_get_options(); - } - weechat::buffer_clear($buffer); - iset_title($iset_filter_title); - $current_line = 0; - iset_refresh(); - return weechat::WEECHAT_RC_OK; -} - -sub iset_buffer_close -{ - $iset_buffer = ""; - - return weechat::WEECHAT_RC_OK; -} - -sub iset_init -{ - $current_line = 0; - $iset_buffer = weechat::buffer_search($LANG, $PRGNAME); - if ($iset_buffer eq "") - { - $iset_buffer = weechat::buffer_new($PRGNAME, "iset_buffer_input", "", "iset_buffer_close", ""); - } - else - { - my $new_filter = weechat::buffer_get_string($iset_buffer, "localvar_iset_filter"); - $filter = $new_filter if ($new_filter ne ""); - } - if ($iset_buffer ne "") - { - weechat::buffer_set($iset_buffer, "type", "free"); - iset_title(); - weechat::buffer_set($iset_buffer, "key_bind_ctrl-L", "/iset **refresh"); - weechat::buffer_set($iset_buffer, "key_bind_meta2-A", "/iset **up"); - weechat::buffer_set($iset_buffer, "key_bind_meta2-B", "/iset **down"); - weechat::buffer_set($iset_buffer, "key_bind_meta2-23~", "/iset **left"); - weechat::buffer_set($iset_buffer, "key_bind_meta2-24~" , "/iset **right"); - weechat::buffer_set($iset_buffer, "key_bind_meta- ", "/iset **toggle"); - weechat::buffer_set($iset_buffer, "key_bind_meta-+", "/iset **incr"); - weechat::buffer_set($iset_buffer, "key_bind_meta--", "/iset **decr"); - weechat::buffer_set($iset_buffer, "key_bind_meta-imeta-r", "/iset **reset"); - weechat::buffer_set($iset_buffer, "key_bind_meta-imeta-u", "/iset **unset"); - weechat::buffer_set($iset_buffer, "key_bind_meta-ctrl-J", "/iset **set"); - weechat::buffer_set($iset_buffer, "key_bind_meta-ctrl-M", "/iset **set"); - weechat::buffer_set($iset_buffer, "key_bind_meta-meta2-1~", "/iset **scroll_top"); - weechat::buffer_set($iset_buffer, "key_bind_meta-meta2-4~", "/iset **scroll_bottom"); - weechat::buffer_set($iset_buffer, "key_bind_meta-v", "/iset **toggle_help"); - weechat::buffer_set($iset_buffer, "key_bind_meta-p", "/iset **toggle_show_plugin_desc"); - weechat::buffer_set($iset_buffer, "localvar_set_iset_filter", $filter); - } -} - -sub iset_get_options -{ - @iset_focus = (); - - @options_names = (); - @options_types = (); - @options_values = (); - @options_is_null = (); - $option_max_length = 0; - my %options_internal = (); - my $i = 0; - my $key; - my $iset_struct; - my %iset_struct; - - my $infolist = weechat::infolist_get("option", "", $filter); - while (weechat::infolist_next($infolist)) - { - $key = sprintf("%08d", $i); - my $name = weechat::infolist_string($infolist, "full_name"); - next if (weechat::config_boolean($options_iset{"show_plugin_description"}) == 0 and index ($name, "plugins.desc.") != -1); - my $type = weechat::infolist_string($infolist, "type"); - my $value = weechat::infolist_string($infolist, "value"); - my $is_null = weechat::infolist_integer($infolist, "value_is_null"); - - $options_internal{$name}{"type"} = $type; - $options_internal{$name}{"value"} = $value; - $options_internal{$name}{"is_null"} = $is_null; - $option_max_length = length($name) if (length($name) > $option_max_length); - - $iset_struct{$key} = $options_internal{$name}; - push(@iset_focus, $iset_struct{$key}); - $i++; - } - weechat::infolist_free($infolist); - - foreach my $name (sort keys %options_internal) - { - push(@options_names, $name); - push(@options_types, $options_internal{$name}{"type"}); - push(@options_values, $options_internal{$name}{"value"}); - push(@options_is_null, $options_internal{$name}{"is_null"}); - } -} - -sub iset_get_values -{ - my $var_value = $_[0]; - @options_names = (); - @options_types = (); - @options_values = (); - @options_is_null = (); - $option_max_length = 0; - my %options_internal = (); - my $i = 0; - my $infolist = weechat::infolist_get("option", "", "*"); - $var_value =~ tr/[a-z][0-9].=-_!//cd; # kill meta chars - $var_value = lc($var_value); - while (weechat::infolist_next($infolist)) - { - my $name = weechat::infolist_string($infolist, "full_name"); - next if (weechat::config_boolean($options_iset{"show_plugin_description"}) == 0 and index ($name, "plugins.desc.") != -1); - my $type = weechat::infolist_string($infolist, "type"); - my $value = weechat::infolist_string($infolist, "value"); - my $is_null = weechat::infolist_integer($infolist, "value_is_null"); - if (lc($value) =~ m/$var_value/) - { - $options_internal{$name}{"type"} = $type; - $options_internal{$name}{"value"} = $value; - $options_internal{$name}{"is_null"} = $is_null; - $option_max_length = length($name) if (length($name) > $option_max_length); - } - $i++; - } - weechat::infolist_free($infolist); - foreach my $name (sort keys %options_internal) - { - push(@options_names, $name); - push(@options_types, $options_internal{$name}{"type"}); - push(@options_values, $options_internal{$name}{"value"}); - push(@options_is_null, $options_internal{$name}{"is_null"}); - } - weechat::buffer_set($iset_buffer, "localvar_set_iset_filter", $var_value); -} - -sub iset_refresh_line -{ - if ($iset_buffer ne "") - { - my $y = $_[0]; - if ($y <= $#options_names) - { - return if (! defined($options_types[$y])); - my $format = sprintf("%%s%%-%ds %%s %%-7s %%s %%s%%s%%s", $option_max_length); - my $around = ""; - $around = "\"" if ((!$options_is_null[$y]) && ($options_types[$y] eq "string")); - - my $color1 = weechat::color(weechat::config_color($options_iset{"color_option"})); - my $color2 = weechat::color(weechat::config_color($options_iset{"color_type"})); - my $color3 = ""; - if ($options_is_null[$y]) - { - $color3 = weechat::color(weechat::config_color($options_iset{"color_value_undef"})); - } - else - { - $color3 = weechat::color(weechat::config_color($options_iset{"color_value"})); - } - if ($y == $current_line) - { - $color1 = weechat::color(weechat::config_color($options_iset{"color_option_selected"}).",".weechat::config_color($options_iset{"color_bg_selected"})); - $color2 = weechat::color(weechat::config_color($options_iset{"color_type_selected"}).",".weechat::config_color($options_iset{"color_bg_selected"})); - if ($options_is_null[$y]) - { - $color3 = weechat::color(weechat::config_color($options_iset{"color_value_undef_selected"}).",".weechat::config_color($options_iset{"color_bg_selected"})); - } - else - { - $color3 = weechat::color(weechat::config_color($options_iset{"color_value_selected"}).",".weechat::config_color($options_iset{"color_bg_selected"})); - } - } - my $value = $options_values[$y]; - $value = "(undef)" if ($options_is_null[$y]); - my $strline = sprintf($format, - $color1, $options_names[$y], - $color2, $options_types[$y], - $color3, $around, $value, $around); - weechat::print_y($iset_buffer, $y, $strline); - } - } -} - -sub iset_refresh -{ - iset_title(); - if (($iset_buffer ne "") && ($#options_names >= 0)) - { - foreach my $y (0 .. $#options_names) - { - iset_refresh_line($y); - } - } - - weechat::bar_item_update("isetbar_help") if (weechat::config_boolean($options_iset{"show_help_bar"}) == 1); -} - -sub iset_full_refresh -{ - $iset_buffer = weechat::buffer_search($LANG, $PRGNAME); - if ($iset_buffer ne "") - { - weechat::buffer_clear($iset_buffer); - # search for "*" in $filter. - if ($filter =~ m/\*/) - { - iset_get_options(); - } - else - { - iset_get_values($filter); - $iset_filter_title = "Filter (by value): "; - } - if (weechat::config_boolean($options_iset{"show_plugin_description"}) == 1) - { - iset_set_current_line($current_line); - }else - { - $current_line = $#options_names if ($current_line > $#options_names); - } - iset_refresh(); - weechat::command($iset_buffer, "/window refresh"); - } -} - -sub iset_set_current_line -{ - my $new_current_line = $_[0]; - my $old_current_line = $current_line; - $current_line = $new_current_line; - $current_line = $#options_names if ($current_line > $#options_names); - if ($old_current_line != $current_line) - { - iset_refresh_line($old_current_line); - iset_refresh_line($current_line); - weechat::bar_item_update("isetbar_help") if (weechat::config_boolean($options_iset{"show_help_bar"}) == 1); - } -} - -sub iset_signal_window_scrolled_cb -{ - my ($data, $signal, $signal_data) = ($_[0], $_[1], $_[2]); - if ($iset_buffer ne "") - { - my $infolist = weechat::infolist_get("window", $signal_data, ""); - if (weechat::infolist_next($infolist)) - { - if (weechat::infolist_pointer($infolist, "buffer") eq $iset_buffer) - { - my $old_current_line = $current_line; - my $new_current_line = $current_line; - my $start_line_y = weechat::infolist_integer($infolist, "start_line_y"); - my $chat_height = weechat::infolist_integer($infolist, "chat_height"); - $new_current_line += $chat_height if ($new_current_line < $start_line_y); - $new_current_line -= $chat_height if ($new_current_line >= $start_line_y + $chat_height); - $new_current_line = $start_line_y if ($new_current_line < $start_line_y); - $new_current_line = $start_line_y + $chat_height - 1 if ($new_current_line >= $start_line_y + $chat_height); - iset_set_current_line($new_current_line); - } - } - weechat::infolist_free($infolist); - } - - return weechat::WEECHAT_RC_OK; -} - -sub iset_get_window_number -{ - if ($iset_buffer ne "") - { - my $window = weechat::window_search_with_buffer($iset_buffer); - return "-window ".weechat::window_get_integer ($window, "number")." " if ($window ne ""); - } - return ""; -} - -sub iset_check_line_outside_window -{ - if ($iset_buffer ne "") - { - undef my $infolist; - if ($wee_version_number >= 0x00030500) - { - my $window = weechat::window_search_with_buffer($iset_buffer); - $infolist = weechat::infolist_get("window", $window, "") if $window; - } - else - { - $infolist = weechat::infolist_get("window", "", "current"); - } - if ($infolist) - { - if (weechat::infolist_next($infolist)) - { - my $start_line_y = weechat::infolist_integer($infolist, "start_line_y"); - my $chat_height = weechat::infolist_integer($infolist, "chat_height"); - my $window_number = ""; - if ($wee_version_number >= 0x00030500) - { - $window_number = "-window ".weechat::infolist_integer($infolist, "number")." "; - } - if ($start_line_y > $current_line) - { - weechat::command($iset_buffer, "/window scroll ".$window_number."-".($start_line_y - $current_line)); - } - else - { - if ($start_line_y <= $current_line - $chat_height) - { - weechat::command($iset_buffer, "/window scroll ".$window_number."+".($current_line - $start_line_y - $chat_height + 1)); - } - } - } - weechat::infolist_free($infolist); - } - } -} - -sub iset_get_option_name_index -{ - my $option_name = $_[0]; - my $index = 0; - while ($index <= $#options_names) - { - return -1 if ($options_names[$index] gt $option_name); - return $index if ($options_names[$index] eq $option_name); - $index++; - } - return -1; -} - -sub iset_config_cb -{ - my ($data, $option_name, $value) = ($_[0], $_[1], $_[2]); - - if ($iset_buffer ne "") - { - return weechat::WEECHAT_RC_OK if (weechat::info_get("weechat_upgrading", "") eq "1"); - - my $index = iset_get_option_name_index($option_name); - if ($index >= 0) - { - # refresh info about changed option - my $infolist = weechat::infolist_get("option", "", $option_name); - if ($infolist) - { - weechat::infolist_next($infolist); - if (weechat::infolist_fields($infolist)) - { - $options_types[$index] = weechat::infolist_string($infolist, "type"); - $options_values[$index] = weechat::infolist_string($infolist, "value"); - $options_is_null[$index] = weechat::infolist_integer($infolist, "value_is_null"); - iset_refresh_line($index); - iset_title($iset_filter_title) if ($option_name eq "iset.look.show_current_line"); - } - else - { - iset_full_refresh(); - } - weechat::infolist_free($infolist); - } - } - else - { - iset_full_refresh() if ($option_name ne "weechat.bar.isetbar.hidden"); - } - } - - return weechat::WEECHAT_RC_OK; -} - -sub iset_set_option -{ - my $option = weechat::config_get($_[0]); - weechat::config_option_set($option, $_[1], 1) if ($option ne ""); -} - -sub iset_reset_option -{ - my $option = weechat::config_get($_[0]); - weechat::config_option_reset($option, 1) if ($option ne ""); -} - -sub iset_unset_option -{ - my $option = weechat::config_get($_[0]); - weechat::config_option_unset($option) if ($option ne ""); - weechat::buffer_clear($iset_buffer); - iset_refresh(); -} - - -sub iset_cmd_cb -{ - my ($data, $buffer, $args) = ($_[0], $_[1], $_[2]); - my $filter_set = 0; - if (($args ne "") && (substr($args, 0, 2) ne "**")) - { - if (substr($args, 0, 1) eq weechat::config_string($options_iset{"value_search_char"})) - { - my $var_value = substr($args, 1); # cut value_search_char - if ($iset_buffer ne "") - { - weechat::buffer_clear($iset_buffer); - weechat::command($iset_buffer, "/window refresh"); - } - iset_init(); - iset_get_values($var_value); - iset_refresh(); - weechat::buffer_set($iset_buffer, "display", "1"); - $iset_filter_title = "Filter (by value): "; - $filter = $var_value; - iset_title($iset_filter_title); - return weechat::WEECHAT_RC_OK; - } - else - { - iset_filter($args); - $filter_set = 1; - my $ptrbuf = weechat::buffer_search($LANG, $PRGNAME); - if ($ptrbuf eq "") - { - iset_init(); - iset_get_options(); - iset_full_refresh(); - weechat::buffer_set(weechat::buffer_search($LANG, $PRGNAME), "display", "1"); - return weechat::WEECHAT_RC_OK; - } - } - } - - if ($iset_buffer eq "") - { - iset_init(); - iset_get_options(); - iset_refresh(); - } - else - { - iset_full_refresh() if ($filter_set); - } - - if ($args eq "") - { - weechat::buffer_set($iset_buffer, "display", "1"); - } - else - { - if ($args eq "**refresh") - { - iset_full_refresh(); - } - if ($args eq "**up") - { - if ($current_line > 0) - { - $current_line--; - iset_refresh_line($current_line + 1); - iset_refresh_line($current_line); - iset_check_line_outside_window(); - } - } - if ($args eq "**down") - { - if ($current_line < $#options_names) - { - $current_line++; - iset_refresh_line($current_line - 1); - iset_refresh_line($current_line); - iset_check_line_outside_window(); - } - } - if ($args eq "**left" && $wee_version_number >= 0x00030600) - { - weechat::command($iset_buffer, "/window scroll_horiz ".iset_get_window_number()."-".weechat::config_integer($options_iset{"scroll_horiz"})."%"); - } - if ($args eq "**right" && $wee_version_number >= 0x00030600) - { - weechat::command($iset_buffer, "/window scroll_horiz ".iset_get_window_number().weechat::config_integer($options_iset{"scroll_horiz"})."%"); - } - if ($args eq "**scroll_top") - { - my $old_current_line = $current_line; - $current_line = 0; - iset_refresh_line ($old_current_line); - iset_refresh_line ($current_line); - weechat::command($iset_buffer, "/window scroll_top ".iset_get_window_number()); - } - if ($args eq "**scroll_bottom") - { - my $old_current_line = $current_line; - $current_line = $#options_names; - iset_refresh_line ($old_current_line); - iset_refresh_line ($current_line); - weechat::command($iset_buffer, "/window scroll_bottom ".iset_get_window_number()); - } - if ($args eq "**toggle") - { - if ($options_types[$current_line] eq "boolean") - { - iset_set_option($options_names[$current_line], "toggle"); - } - } - if ($args eq "**incr") - { - if (($options_types[$current_line] eq "integer") - || ($options_types[$current_line] eq "color")) - { - iset_set_option($options_names[$current_line], "++1"); - } - } - if ($args eq "**decr") - { - if (($options_types[$current_line] eq "integer") - || ($options_types[$current_line] eq "color")) - { - iset_set_option($options_names[$current_line], "--1"); - } - } - if ($args eq "**reset") - { - iset_reset_option($options_names[$current_line]); - } - if ($args eq "**unset") - { - iset_unset_option($options_names[$current_line]); - } - if ($args eq "**toggle_help") - { - if (weechat::config_boolean($options_iset{"show_help_bar"}) == 1) - { - weechat::config_option_set($options_iset{"show_help_bar"},0,1); - iset_show_bar(0); - } - else - { - weechat::config_option_set($options_iset{"show_help_bar"},1,1); - iset_show_bar(1); - } - } - if ($args eq "**toggle_show_plugin_desc") - { - if (weechat::config_boolean($options_iset{"show_plugin_description"}) == 1) - { - weechat::config_option_set($options_iset{"show_plugin_description"},0,1); - iset_full_refresh(); - iset_check_line_outside_window(); - } - else - { - weechat::config_option_set($options_iset{"show_plugin_description"},1,1); - iset_full_refresh(); - iset_check_line_outside_window(); - } - } - if ($args eq "**set") - { - my $quote = ""; - my $value = $options_values[$current_line]; - if ($options_is_null[$current_line]) - { - $value = "null"; - } - else - { - $quote = "\"" if ($options_types[$current_line] eq "string"); - } - weechat::buffer_set($iset_buffer, "input", "/set ".$options_names[$current_line]." ".$quote.$value.$quote); - weechat::command($iset_buffer, "/input move_beginning_of_line"); - weechat::command($iset_buffer, "/input move_next_word"); - weechat::command($iset_buffer, "/input move_next_word"); - weechat::command($iset_buffer, "/input move_next_char"); - weechat::command($iset_buffer, "/input move_next_char") if ($quote ne ""); - } - } - weechat::bar_item_update("isetbar_help") if (weechat::config_boolean($options_iset{"show_help_bar"}) == 1); - return weechat::WEECHAT_RC_OK; -} - -sub iset_get_help -{ - my ($redraw) = ($_[0]); - - return '' if (weechat::config_boolean($options_iset{"show_help_bar"}) == 0); - - if (not defined $options_names[$current_line]) - { - return "No option selected. Set a new filter using command line (use '*' to see all options)"; - } - if ($options_name_copy eq $options_names[$current_line] and not defined $redraw) - { - return $description; - } - $options_name_copy = $options_names[$current_line]; - my $optionlist =""; - $optionlist = weechat::infolist_get("option", "", $options_names[$current_line]); - weechat::infolist_next($optionlist); - my $full_name = weechat::infolist_string($optionlist,"full_name"); - my $option_desc = ""; - my $option_default_value = ""; - my $option_range = ""; - my $possible_values = ""; - my $re = qq(\Q$full_name); - if (grep (/^$re$/,$options_names[$current_line])) - { - $option_desc = weechat::infolist_string($optionlist, "description_nls"); - $option_desc = weechat::infolist_string($optionlist, "description") if ($option_desc eq ""); - $option_desc = "No help found" if ($option_desc eq ""); - $option_default_value = weechat::infolist_string($optionlist, "default_value"); - $possible_values = weechat::infolist_string($optionlist, "string_values") if (weechat::infolist_string($optionlist, "string_values") ne ""); - if ((weechat::infolist_string($optionlist, "type") eq "integer") && ($possible_values eq "")) - { - $option_range = weechat::infolist_integer($optionlist, "min") - ." .. ".weechat::infolist_integer($optionlist, "max"); - } - } - weechat::infolist_free($optionlist); - iset_title(); - - $description = weechat::color(weechat::config_color($options_iset{"color_help_option_name"})).$options_names[$current_line] - .weechat::color("bar_fg").": " - .weechat::color(weechat::config_color($options_iset{"color_help_text"})).$option_desc; - - # show additional infos like default value and possible values - - if (weechat::config_boolean($options_iset{"show_help_extra_info"}) == 1) - { - $description .= - weechat::color("bar_delim")." [" - .weechat::color("bar_fg")."default: " - .weechat::color("bar_delim")."\"" - .weechat::color(weechat::config_color($options_iset{"color_help_default_value"})).$option_default_value - .weechat::color("bar_delim")."\""; - if ($option_range ne "") - { - $description .= weechat::color("bar_fg").", values: ".$option_range; - } - if ($possible_values ne "") - { - $possible_values =~ s/\|/", "/g; # replace '|' to '", "' - $description .= weechat::color("bar_fg").", values: ". "\"" . $possible_values . "\""; - - } - $description .= weechat::color("bar_delim")."]"; - } - return $description; -} - -sub iset_check_condition_isetbar_cb -{ - my ($data, $modifier, $modifier_data, $string) = ($_[0], $_[1], $_[2], $_[3]); - my $buffer = weechat::window_get_pointer($modifier_data, "buffer"); - if ($buffer ne "") - { - if ((weechat::buffer_get_string($buffer, "plugin") eq $LANG) - && (weechat::buffer_get_string($buffer, "name") eq $PRGNAME)) - { - return "1"; - } - } - return "0"; -} - -sub iset_show_bar -{ - my $show = $_[0]; - my $barhidden = weechat::config_get("weechat.bar.isetbar.hidden"); - if ($barhidden) - { - if ($show) - { - if (weechat::config_boolean($options_iset{"show_help_bar"}) == 1) - { - if (weechat::config_boolean($barhidden)) - { - weechat::config_option_set($barhidden, 0, 1); - } - } - } - else - { - if (!weechat::config_boolean($barhidden)) - { - weechat::config_option_set($barhidden, 1, 1); - } - } - } -} - -sub iset_signal_buffer_switch_cb -{ - my $buffer_pointer = $_[2]; - my $show_bar = 0; - $show_bar = 1 if (weechat::buffer_get_integer($iset_buffer, "num_displayed") > 0); - iset_show_bar($show_bar); - iset_check_line_outside_window() if ($buffer_pointer eq $iset_buffer); - return weechat::WEECHAT_RC_OK; -} - -sub iset_item_cb -{ - return iset_get_help(); -} - -sub iset_upgrade_ended -{ - iset_full_refresh(); -} - -sub iset_end -{ - # when script is unloaded, we hide bar - iset_show_bar(0); -} - -# -------------------------------[ mouse support ]------------------------------------- - -sub hook_focus_iset_cb -{ - my %info = %{$_[1]}; - my $bar_item_line = int($info{"_bar_item_line"}); - undef my $hash; - if (($info{"_buffer_name"} eq $PRGNAME) && $info{"_buffer_plugin"} eq $LANG && ($bar_item_line >= 0) && ($bar_item_line <= $#iset_focus)) - { - $hash = $iset_focus[$bar_item_line]; - } - else - { - $hash = {}; - my $hash_focus = $iset_focus[0]; - foreach my $key (keys %$hash_focus) - { - $hash->{$key} = "?"; - } - } - return $hash; -} - -# _chat_line_y contains selected line -sub iset_hsignal_mouse_cb -{ - my ($data, $signal, %hash) = ($_[0], $_[1], %{$_[2]}); - - if ($hash{"_buffer_name"} eq $PRGNAME && ($hash{"_buffer_plugin"} eq $LANG)) - { - if ($hash{"_key"} eq "button1") - { - $current_line = $hash{"_chat_line_y"}; - iset_refresh_line($current_line); - iset_refresh(); - } - elsif ($hash{"_key"} eq "button2") - { - if ($options_types[$hash{"_chat_line_y"}] eq "boolean") - { - iset_set_option($options_names[$hash{"_chat_line_y"}], "toggle"); - $current_line = $hash{"_chat_line_y"}; - iset_refresh_line($current_line); - iset_refresh(); - } - elsif ($options_types[$hash{"_chat_line_y"}] eq "string") - { - $current_line = $hash{"_chat_line_y"}; - iset_refresh_line($current_line); - iset_refresh(); - weechat::command("", "/$PRGNAME **set"); - } - } - elsif ($hash{"_key"} eq "button2-gesture-left" or $hash{"_key"} eq "button2-gesture-left-long") - { - if ($options_types[$hash{"_chat_line_y"}] eq "integer" or ($options_types[$hash{"_chat_line_y"}] eq "color")) - { - $current_line = $hash{"_chat_line_y"}; - iset_refresh_line($current_line); - iset_refresh(); - my $distance = distance($hash{"_chat_line_x"},$hash{"_chat_line_x2"}); - weechat::command("", "/repeat $distance /$PRGNAME **decr"); - } - } - elsif ($hash{"_key"} eq "button2-gesture-right" or $hash{"_key"} eq "button2-gesture-right-long") - { - if ($options_types[$hash{"_chat_line_y"}] eq "integer" or ($options_types[$hash{"_chat_line_y"}] eq "color")) - { - $current_line = $hash{"_chat_line_y"}; - iset_refresh_line($current_line); - iset_refresh(); - my $distance = distance($hash{"_chat_line_x"},$hash{"_chat_line_x2"}); - weechat::command("", "/repeat $distance /$PRGNAME **incr"); - } - } - } -} -sub distance -{ - my ($x1,$x2) = ($_[0], $_[1]); - my $distance; - $distance = $x1 - $x2; - $distance = abs($distance); - if ($distance > 0) - { - use integer; - $distance = $distance / 3; - $distance = 1 if ($distance == 0); - } - elsif ($distance == 0) - { - $distance = 1; - } - return $distance; -} - -# -----------------------------------[ config ]--------------------------------------- - -sub iset_config_init -{ - $iset_config_file = weechat::config_new($ISET_CONFIG_FILE_NAME,"iset_config_reload_cb",""); - return if ($iset_config_file eq ""); - - # section "color" - my $section_color = weechat::config_new_section($iset_config_file,"color", 0, 0, "", "", "", "", "", "", "", "", "", ""); - if ($section_color eq "") - { - weechat::config_free($iset_config_file); - return; - } - $options_iset{"color_option"} = weechat::config_new_option( - $iset_config_file, $section_color, - "option", "color", "Color for option name in iset buffer", "", 0, 0, - "default", "default", 0, "", "", "full_refresh_cb", "", "", ""); - $options_iset{"color_option_selected"} = weechat::config_new_option( - $iset_config_file, $section_color, - "option_selected", "color", "Color for selected option name in iset buffer", "", 0, 0, - "white", "white", 0, "", "", "full_refresh_cb", "", "", ""); - $options_iset{"color_type"} = weechat::config_new_option( - $iset_config_file, $section_color, - "type", "color", "Color for option type (integer, boolean, string)", "", 0, 0, - "brown", "brown", 0, "", "", "full_refresh_cb", "", "", ""); - $options_iset{"color_type_selected"} = weechat::config_new_option( - $iset_config_file, $section_color, - "type_selected", "color", "Color for selected option type (integer, boolean, string)", "", 0, 0, - "yellow", "yellow", 0, "", "", "full_refresh_cb", "", "", ""); - $options_iset{"color_value"} = weechat::config_new_option( - $iset_config_file, $section_color, - "value", "color", "Color for option value", "", 0, 0, - "cyan", "cyan", 0, "", "", "full_refresh_cb", "", "", ""); - $options_iset{"color_value_selected"} = weechat::config_new_option( - $iset_config_file, $section_color, - "value_selected", "color", "Color for selected option value", "", 0, 0, - "lightcyan", "lightcyan", 0, "", "", "full_refresh_cb", "", "", ""); - $options_iset{"color_value_undef"} = weechat::config_new_option( - $iset_config_file, $section_color, - "value_undef", "color", "Color for option value undef", "", 0, 0, - "green", "green", 0, "", "", "full_refresh_cb", "", "", ""); - $options_iset{"color_value_undef_selected"} = weechat::config_new_option( - $iset_config_file, $section_color, - "value_undef_selected", "color", "Color for selected option value undef", "", 0, 0, - "lightgreen", "lightgreen", 0, "", "", "full_refresh_cb", "", "", ""); - $options_iset{"color_bg_selected"} = weechat::config_new_option( - $iset_config_file, $section_color, - "bg_selected", "color", "Background color for current selected option", "", 0, 0, - "red", "red", 0, "", "", "full_refresh_cb", "", "", ""); - $options_iset{"color_help_option_name"} = weechat::config_new_option( - $iset_config_file, $section_color, - "help_option_name", "color", "Color for option name in help-bar", "", 0, 0, - "white", "white", 0, "", "", "bar_refresh", "", "", ""); - $options_iset{"color_help_text"} = weechat::config_new_option( - $iset_config_file, $section_color, - "help_text", "color", "Color for option description in help-bar", "", 0, 0, - "default", "default", 0, "", "", "bar_refresh", "", "", ""); - $options_iset{"color_help_default_value"} = weechat::config_new_option( - $iset_config_file, $section_color, - "help_default_value", "color", "Color for default option value in help-bar", "", 0, 0, - "green", "green", 0, "", "", "bar_refresh", "", "", ""); - - # section "help" - my $section_help = weechat::config_new_section($iset_config_file,"help", 0, 0, "", "", "", "", "", "", "", "", "", ""); - if ($section_help eq "") - { - weechat::config_free($iset_config_file); - return; - } - $options_iset{"show_help_bar"} = weechat::config_new_option( - $iset_config_file, $section_help, - "show_help_bar", "boolean", "Show help bar", "", 0, 0, - "on", "on", 0, "", "", "toggle_help_cb", "", "", ""); - $options_iset{"show_help_extra_info"} = weechat::config_new_option( - $iset_config_file, $section_help, - "show_help_extra_info", "boolean", "Show additional information in help bar (default value, max./min. value) ", "", 0, 0, - "on", "on", 0, "", "", "", "", "", ""); - $options_iset{"show_plugin_description"} = weechat::config_new_option( - $iset_config_file, $section_help, - "show_plugin_description", "boolean", "Show plugin description in iset buffer", "", 0, 0, - "on", "on", 0, "", "", "full_refresh_cb", "", "", ""); - - # section "look" - my $section_look = weechat::config_new_section($iset_config_file, "look", 0, 0, "", "", "", "", "", "", "", "", "", ""); - if ($section_look eq "") - { - weechat::config_free($iset_config_file); - return; - } - $options_iset{"value_search_char"} = weechat::config_new_option( - $iset_config_file, $section_look, - "value_search_char", "string", "Trigger char to tell iset to search for value instead of option (for example: =red)", "", 0, 0, - "=", "=", 0, "", "", "", "", "", ""); - $options_iset{"scroll_horiz"} = weechat::config_new_option( - $iset_config_file, $section_look, - "scroll_horiz", "integer", "scroll content of iset buffer n%", "", 1, 100, - "10", "10", 0, "", "", "", "", "", ""); - $options_iset{"show_current_line"} = weechat::config_new_option( - $iset_config_file, $section_look, - "show_current_line", "boolean", "show current line in title bar.", "", 0, 0, - "on", "on", 0, "", "", "", "", "", ""); -} - -sub iset_config_reload_cb -{ - my ($data,$config_file) = ($_[0], $_[1]); - return weechat::config_reload($config_file) -} - -sub iset_config_read -{ - return weechat::config_read($iset_config_file) if ($iset_config_file ne ""); -} - -sub iset_config_write -{ - return weechat::config_write($iset_config_file) if ($iset_config_file ne ""); -} - -sub full_refresh_cb -{ - iset_full_refresh(); - return weechat::WEECHAT_RC_OK; -} - -sub bar_refresh -{ - iset_get_help(1); - weechat::bar_item_update("isetbar_help") if (weechat::config_boolean($options_iset{"show_help_bar"}) == 1); - return weechat::WEECHAT_RC_OK; -} - -sub toggle_help_cb -{ - my $value = weechat::config_boolean($options_iset{"show_help_bar"}); - iset_show_bar($value); - return weechat::WEECHAT_RC_OK; -} - -# -----------------------------------[ main ]----------------------------------------- - -weechat::register($PRGNAME, $AUTHOR, $VERSION, $LICENSE, - $DESCR, "iset_end", ""); - -$wee_version_number = weechat::info_get("version_number", "") || 0; - -iset_config_init(); -iset_config_read(); - -weechat::hook_command($PRGNAME, "Interactive set", "f || s
|| [=]", - "f file : show options for a file\n". - "s section : show options for a section\n". - "text : show options with 'text' in name\n". - weechat::config_string($options_iset{"value_search_char"})."text : show options with 'text' in value\n\n". - "Keys for iset buffer:\n". - "f11,f12 : move iset content left/right\n". - "up,down : move one option up/down\n". - "pgup,pdwn : move one page up/down\n". - "home,end : move to first/last option\n". - "ctrl+'L' : refresh options and screen\n". - "alt+space : toggle boolean on/off\n". - "alt+'+' : increase value (for integer or color)\n". - "alt+'-' : decrease value (for integer or color)\n". - "alt+'i',alt+'r': reset value of option\n". - "alt+'i',alt+'u': unset option\n". - "alt+enter : set new value for option (edit it with command line)\n". - "text,enter : set a new filter using command line (use '*' to see all options)\n". - "alt+'v' : toggle help bar on/off\n". - "alt+'p' : toggle option \"show_plugin_description\" on/off\n". - "\n". - "standard mouse actions:\n". - "wheel up / wheel down : move option up/down\n". - "left-mouse-button : select an option from list\n". - "right-mouse-button : toggle boolean (on/off) or set a new value for option (edit it with command line)\n". - "right-mouse-button + gesture left/right: increase/decrease value (for integer or color)\n". - "\n". - "Examples:\n". - " show options for file 'weechat'\n". - " /iset f weechat\n". - " show options for file 'irc'\n". - " /iset f irc\n". - " show options for section 'look'\n". - " /iset s look\n". - " show all options with text 'nicklist' in name\n". - " /iset nicklist\n". - " show all values which contain 'red'. '" . weechat::config_string($options_iset{"value_search_char"}) . "' is a trigger char.\n". - " /iset ". weechat::config_string($options_iset{"value_search_char"}) ."red\n", - "", "iset_cmd_cb", ""); -weechat::hook_signal("upgrade_ended", "iset_upgrade_ended", ""); -weechat::hook_signal("window_scrolled", "iset_signal_window_scrolled_cb", ""); -weechat::hook_signal("buffer_switch", "iset_signal_buffer_switch_cb",""); -weechat::bar_item_new("isetbar_help", "iset_item_cb", ""); -weechat::bar_new("isetbar", "on", "0", "window", "", "top", "horizontal", - "vertical", "3", "3", "default", "cyan", "default", "1", - "isetbar_help"); -weechat::hook_modifier("bar_condition_isetbar", "iset_check_condition_isetbar_cb", ""); -weechat::hook_config("*", "iset_config_cb", ""); -$iset_buffer = weechat::buffer_search($LANG, $PRGNAME); -iset_init() if ($iset_buffer ne ""); - -if ($wee_version_number >= 0x00030600) -{ - weechat::hook_focus("chat", "hook_focus_iset_cb", ""); - weechat::hook_hsignal($PRGNAME."_mouse", "iset_hsignal_mouse_cb", ""); - weechat::key_bind("mouse", \%mouse_keys); -} diff --git a/weechat/plugins.conf b/weechat/plugins.conf deleted file mode 100644 index 94aa5ea..0000000 --- a/weechat/plugins.conf +++ /dev/null @@ -1,70 +0,0 @@ -# -# weechat -- plugins.conf -# -# WARNING: It is NOT recommended to edit this file by hand, -# especially if WeeChat is running. -# -# Use /set or similar command to change settings in WeeChat. -# -# For more info, see: https://weechat.org/doc/quickstart -# - -[var] -fifo.fifo = "on" -guile.check_license = "on" -lua.check_license = "on" -perl.beep.beep_command_dcc = "growlnotify -m 'Someone sent you DCC' IRC DCC" -perl.beep.beep_command_highlight = "growlnotify -m 'Someone mentioned your name on weechat' IRC Highlight" -perl.beep.beep_command_pv = "growlnotify -m 'Someone sent you a private message' IRC Private Message" -perl.beep.beep_command_timeout = "30000" -perl.beep.beep_dcc = "on" -perl.beep.beep_highlight = "on" -perl.beep.beep_highlight_blacklist = "off" -perl.beep.beep_highlight_whitelist = "off" -perl.beep.beep_pv = "on" -perl.beep.beep_pv_blacklist = "off" -perl.beep.beep_pv_whitelist = "off" -perl.beep.beep_trigger_highlight = "" -perl.beep.beep_trigger_pv = "" -perl.beep.bell_always = "" -perl.beep.blacklist_nicks = "" -perl.beep.whitelist_channels = "" -perl.beep.whitelist_nicks = "" -perl.chanmon.alignment = "nchannel" -perl.chanmon.bar_lines = "10" -perl.chanmon.color_buf = "on" -perl.chanmon.dynamic = "off" -perl.chanmon.logging = "off" -perl.chanmon.merge_private = "on" -perl.chanmon.nick_prefix = "<" -perl.chanmon.nick_suffix = ">" -perl.chanmon.output = "bar" -perl.chanmon.short_names = "on" -perl.chanmon.show_aways = "off" -perl.check_license = "on" -python.check_license = "on" -python.screen_away.away_suffix = "[away]" -python.screen_away.command_on_attach = "" -python.screen_away.command_on_detach = "" -python.screen_away.interval = "5" -python.screen_away.message = "Detached from tmux" -tcl.check_license = "on" - -[desc] -perl.beep.beep_command_dcc = "command for beep on dcc, special value "$bell" is allowed, as well as "$bell;command" (default: "$bell")" -perl.beep.beep_command_highlight = "command for beep on highlight, special value "$bell" is allowed, as well as "$bell;command" (default: "$bell")" -perl.beep.beep_command_pv = "command for beep on private message, special value "$bell" is allowed, as well as "$bell;command" (default: "$bell")" -perl.beep.beep_command_timeout = "timeout for command run (in milliseconds, 0 = never kill (not recommended)) (default: "30000")" -perl.beep.beep_dcc = "beep on dcc (default: "on")" -perl.beep.beep_highlight = "beep on highlight (default: "on")" -perl.beep.beep_highlight_blacklist = "turn blacklist for highlights on or off (default: "off")" -perl.beep.beep_highlight_whitelist = "turn whitelist for highlights on or off (default: "off")" -perl.beep.beep_pv = "beep on private message (default: "on")" -perl.beep.beep_pv_blacklist = "turn blacklist for private messages on or off (default: "off")" -perl.beep.beep_pv_whitelist = "turn whitelist for private messages on or off (default: "off")" -perl.beep.beep_trigger_highlight = "word that will trigger execution of beep_command_highlight (if empty, anything will trigger) (default: "")" -perl.beep.beep_trigger_pv = "word that will trigger execution of beep_command_pv (it empty, anything will trigger) (default: "")" -perl.beep.bell_always = "use $bell on private messages and/or highlights regardless of trigger and whitelist settings (example: "pv,highlight") (default: "")" -perl.beep.blacklist_nicks = "comma-separated list of "server.nick": if not empty, these nicks will not be able to trigger execution of commands. Cannot be used in conjuction with whitelist (example: "freenode.nick1,freenode.nick2") (default: "")" -perl.beep.whitelist_channels = "comma-separated list of "server.#channel": if not empty, only these channels will trigger execution of commands (example: "freenode.#weechat,freenode.#channel2") (default: "")" -perl.beep.whitelist_nicks = "comma-separated list of "server.nick": if not empty, only these nicks will trigger execution of commands (example: "freenode.nick1,freenode.nick2") (default: "")" diff --git a/weechat/python.conf b/weechat/python.conf deleted file mode 100644 index 187b778..0000000 --- a/weechat/python.conf +++ /dev/null @@ -1,14 +0,0 @@ -# -# weechat -- python.conf -# -# WARNING: It is NOT recommended to edit this file by hand, -# especially if WeeChat is running. -# -# Use /set or similar command to change settings in WeeChat. -# -# For more info, see: https://weechat.org/doc/quickstart -# - -[look] -check_license = off -eval_keep_context = on diff --git a/weechat/python/autoload/screen_away.py b/weechat/python/autoload/screen_away.py deleted file mode 120000 index e485b70..0000000 --- a/weechat/python/autoload/screen_away.py +++ /dev/null @@ -1 +0,0 @@ -../screen_away.py \ No newline at end of file diff --git a/weechat/python/autoload/upside_down.py b/weechat/python/autoload/upside_down.py deleted file mode 120000 index fb007ad..0000000 --- a/weechat/python/autoload/upside_down.py +++ /dev/null @@ -1 +0,0 @@ -../upside_down.py \ No newline at end of file diff --git a/weechat/python/autoload/weeget.py b/weechat/python/autoload/weeget.py deleted file mode 100644 index 8622ef6..0000000 --- a/weechat/python/autoload/weeget.py +++ /dev/null @@ -1,980 +0,0 @@ -# -*- coding: utf-8 -*- -# -# Copyright (C) 2009-2012 Sebastien Helleu -# -# This program is free software; you can redistribute it and/or modify -# it under the terms of the GNU General Public License as published by -# the Free Software Foundation; either version 3 of the License, or -# (at your option) any later version. -# -# This program is distributed in the hope that it will be useful, -# but WITHOUT ANY WARRANTY; without even the implied warranty of -# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -# GNU General Public License for more details. -# -# You should have received a copy of the GNU General Public License -# along with this program. If not, see . -# - -# -# WeeChat scripts manager. -# (this script requires WeeChat >= 0.3.0 and python >= 2.6) -# -# History: -# -# 2012-03-09, Sebastien Helleu : -# version 1.8: fix reload of config file -# 2012-02-27, Sebastien Helleu : -# version 1.7: add support of scheme scripts -# 2012-02-05, Sebastien Helleu : -# version 1.6: use URL transfer from API (for WeeChat >= 0.3.7) -# 2012-01-03, Sebastien Helleu : -# version 1.5: make script compatible with Python 3.x -# 2011-03-25, Sebastien Helleu : -# version 1.4: add completion with installed scripts for action "remove" -# 2011-03-10, Sebastien Helleu : -# version 1.3: add script extension in script name completion and a new -# completion with tags for actions "list" and "listinstalled" -# 2011-02-13, Sebastien Helleu : -# version 1.2: use new help format for command arguments -# 2010-11-08, Sebastien Helleu : -# version 1.1: get python 2.x binary for hook_process (fix problem -# when python 3.x is default python version, requires -# WeeChat >= 0.3.4) -# 2010-02-22, Blake Winton : -# version 1.0: add action "listinstalled" for command /weeget -# 2010-01-25, Sebastien Helleu : -# version 0.9: fix "running" status of scripts with /weeget check -# 2009-09-30, Sebastien Helleu : -# version 0.8: fix bugs and add missing info in "/weeget show", -# display warning if url for plugins.xml.gz is old site -# 2009-09-07, Sebastien Helleu : -# version 0.7: update weechat site with new URL -# 2009-05-02, Sebastien Helleu : -# version 0.6: sync with last API changes -# 2009-04-15, Sebastien Helleu : -# version 0.5: display missing module(s) when import failed -# 2009-04-11, Sebastien Helleu : -# version 0.4: use new completion for command arguments -# 2009-04-07, Sebastien Helleu : -# version 0.3: fix bug with install/upgrade when weeget is updated with -# other scripts: ensure that weeget is always the last -# installed script -# 2009-04-07, Sebastien Helleu : -# version 0.2: add author's mail in script description -# 2009-04-05, Sebastien Helleu : -# version 0.1: initial release -# - -SCRIPT_NAME = "weeget" -SCRIPT_AUTHOR = "Sebastien Helleu " -SCRIPT_VERSION = "1.8" -SCRIPT_LICENSE = "GPL3" -SCRIPT_DESC = "WeeChat scripts manager" - -SCRIPT_COMMAND = "weeget" - -import_ok = True - -try: - import weechat -except ImportError: - print("This script must be run under WeeChat.") - print("Get WeeChat now at: http://www.weechat.org/") - import_ok = False - -try: - import sys, os, stat, time, gzip, hashlib, xml.dom.minidom -except ImportError as message: - print("Missing package(s) for %s: %s" % (SCRIPT_NAME, message)) - import_ok = False - -CONFIG_FILE_NAME = "wg" - -SCRIPT_EXTENSION = { - "perl" : "pl", - "python": "py", - "ruby" : "rb", - "lua" : "lua", - "tcl" : "tcl", - "guile" : "scm", -} - -# timeout for download of plugins.xml.gz -TIMEOUT_UPDATE = 60 * 1000 - -# timeout for download of a script -TIMEOUT_SCRIPT = 60 * 1000 - -# config file and options -wg_config_file = "" -wg_config_option = {} - -# action (install, remove, ..) and arguments -wg_action = "" -wg_action_args = "" - -# loaded scripts -wg_loaded_scripts = {} - -# hook process and stdout -wg_hook_process = { "update": "", "script": "" } -wg_stdout = { "update": "", "script": "" } - -# scripts read from plugins.xml.gz -wg_scripts = {} - -# list of script to install, and script currently installing -wg_scripts_to_install = [] -wg_current_script_install = {} - -# =================================[ config ]================================= - -def wg_config_init(): - """ - Initialization of configuration file. - Sections: color, scripts. - """ - global wg_config_file, wg_config_option - wg_config_file = weechat.config_new(CONFIG_FILE_NAME, - "wg_config_reload_cb", "") - if wg_config_file == "": - return - - # section "color" - section_color = weechat.config_new_section( - wg_config_file, "color", 0, 0, "", "", "", "", "", "", "", "", "", "") - if section_color == "": - weechat.config_free(wg_config_file) - return - wg_config_option["color_script"] = weechat.config_new_option( - wg_config_file, section_color, - "script", "color", "Color for script names", "", 0, 0, - "cyan", "cyan", 0, "", "", "", "", "", "") - wg_config_option["color_installed"] = weechat.config_new_option( - wg_config_file, section_color, - "installed", "color", "Color for \"installed\" indicator", "", 0, 0, - "yellow", "yellow", 0, "", "", "", "", "", "") - wg_config_option["color_running"] = weechat.config_new_option( - wg_config_file, section_color, - "running", "color", "Color for \"running\" indicator", "", 0, 0, - "lightgreen", "lightgreen", 0, "", "", "", "", "", "") - wg_config_option["color_obsolete"] = weechat.config_new_option( - wg_config_file, section_color, - "obsolete", "color", "Color for \"obsolete\" indicator", "", 0, 0, - "lightmagenta", "lightmagenta", 0, "", "", "", "", "", "") - wg_config_option["color_unknown"] = weechat.config_new_option( - wg_config_file, section_color, - "unknown", "color", "Color for \"unknown status\" indicator", "", 0, 0, - "lightred", "lightred", 0, "", "", "", "", "", "") - wg_config_option["color_language"] = weechat.config_new_option( - wg_config_file, section_color, - "language", "color", "Color for language names", "", 0, 0, - "lightblue", "lightblue", 0, "", "", "", "", "", "") - - # section "scripts" - section_scripts = weechat.config_new_section( - wg_config_file, "scripts", 0, 0, "", "", "", "", "", "", "", "", "", "") - if section_scripts == "": - weechat.config_free(wg_config_file) - return - wg_config_option["scripts_url"] = weechat.config_new_option( - wg_config_file, section_scripts, - "url", "string", "URL for file with list of plugins", "", 0, 0, - "http://www.weechat.org/files/plugins.xml.gz", - "http://www.weechat.org/files/plugins.xml.gz", 0, "", "", "", "", "", "") - wg_config_option["scripts_dir"] = weechat.config_new_option( - wg_config_file, section_scripts, - "dir", "string", "Local cache directory for" + SCRIPT_NAME, "", 0, 0, - "%h/" + SCRIPT_NAME, "%h/" + SCRIPT_NAME, 0, "", "", "", "", "", "") - wg_config_option["scripts_cache_expire"] = weechat.config_new_option( - wg_config_file, section_scripts, - "cache_expire", "integer", "Local cache expiration time, in minutes " - "(-1 = never expires, 0 = always expires)", "", - -1, 60*24*365, "60", "60", 0, "", "", "", "", "", "") - -def wg_config_reload_cb(data, config_file): - """ Reload configuration file. """ - return weechat.config_reload(config_file) - -def wg_config_read(): - """ Read configuration file. """ - global wg_config_file - return weechat.config_read(wg_config_file) - -def wg_config_write(): - """ Write configuration file. """ - global wg_config_file - return weechat.config_write(wg_config_file) - -def wg_config_color(color): - """ Get a color from configuration. """ - global wg_config_option - option = wg_config_option.get("color_" + color, "") - if option == "": - return "" - return weechat.color(weechat.config_string(option)) - -def wg_config_get_dir(): - """ Return weeget directory, with expanded WeeChat home dir. """ - global wg_config_option - return weechat.config_string( - wg_config_option["scripts_dir"]).replace("%h", - weechat.info_get("weechat_dir", "")) - -def wg_config_create_dir(): - """ Create weeget directory. """ - dir = wg_config_get_dir() - if not os.path.isdir(dir): - os.makedirs(dir, mode=0o700) - -def wg_config_get_cache_filename(): - """ Get local cache filename, based on URL. """ - global wg_config_option - return wg_config_get_dir() + os.sep + \ - os.path.basename(weechat.config_string(wg_config_option["scripts_url"])) - -# =============================[ download file ]============================== - -def wg_download_file(url, filename, timeout, callback, callback_data): - """Download a file with an URL. Return hook_process created.""" - version = weechat.info_get("version_number", "") or 0 - if int(version) >= 0x00030700: - return weechat.hook_process_hashtable("url:%s" % url, - { "file_out": filename }, - timeout, - callback, callback_data) - else: - script = [ "import sys", - "try:", - " if sys.version_info >= (3,):", - " import urllib.request", - " response = urllib.request.urlopen('%s')" % url, - " else:", - " import urllib2", - " response = urllib2.urlopen(urllib2.Request('%s'))" % url, - " f = open('%s', 'wb')" % filename, - " f.write(response.read())", - " response.close()", - " f.close()", - "except Exception as e:", - " print('error:' + str(e))" ] - return weechat.hook_process("python -c \"%s\"" % "\n".join(script), - timeout, - callback, callback_data) - -# ================================[ scripts ]================================= - -def wg_search_script_by_name(name): - """ - Search a script in list by name. - Name can be short name ('weeget') or full name ('weeget.py'). - """ - global wg_scripts - for id, script in wg_scripts.items(): - if script["name"] == name or script["full_name"] == name: - return script - return None - -def wg_get_loaded_scripts(): - """ - Get python dictionary with loaded scripts. - Keys are filenames and values are path to script, for example: - 'weeget.py': '/home/xxx/.weechat/python/weeget.py' - """ - global wg_loaded_scripts - wg_loaded_scripts = {} - for language in SCRIPT_EXTENSION.keys(): - infolist = weechat.infolist_get(language + "_script", "", "") - while weechat.infolist_next(infolist): - filename = weechat.infolist_string(infolist, "filename") - if filename != "": - wg_loaded_scripts[os.path.basename(filename)] = filename - weechat.infolist_free(infolist) - -def wg_is_local_script_loaded(filename): - """ Check if a script filename (like 'python/weeget.py') is loaded. """ - global wg_loaded_scripts - filename2 = filename - if filename2.startswith("autoload/"): - filename2 = filename2[9:] - for name, path in wg_loaded_scripts.items(): - if path.endswith(filename) or path.endswith(filename2): - return True - return False - -def wg_get_local_script_status(script): - """ - Check if a script is installed. - 'script' is a dictionary retrieved from scripts xml list. - """ - global wg_loaded_scripts - status = { "installed": "", "obsolete": "", "running": "" } - local_dir = weechat.info_get("weechat_dir", "") + os.sep + script["language"] - local_name = local_dir + os.sep + "autoload" + os.sep + script["full_name"] - if not os.path.isfile(local_name): - local_name = local_dir + os.sep + script["full_name"] - if os.path.isfile(local_name): - status["installed"] = "1" - f = open(local_name, "rb") - md5 = hashlib.md5() - md5.update(f.read()) - f.close() - local_md5 = md5.hexdigest() - if local_md5 != script["md5sum"]: - status["obsolete"] = "1" - if script["full_name"] in wg_loaded_scripts.keys(): - status["running"] = "1" - return status - -def wg_get_local_scripts(): - """ - Get list of all local scripts (in languages and autoload dirs). - Return a dictionary with language as key and list of paths as value, - with autoloaded scripts at beginning of list, for example: - { 'perl': [ 'autoload/buffers.pl', - 'autoload/weetris.pl', - 'beep.pl', - 'launcher.pl' ], - 'python': [ 'autoload/weeget.py', - 'go.py', - 'vdm.py' ] - } - """ - files = {} - for language in SCRIPT_EXTENSION.keys(): - files[language] = [] - autoloaded_files = [] - rootdir = weechat.info_get("weechat_dir", "") + os.sep + language - for root, dirs, listfiles in os.walk(rootdir): - if root == rootdir: - files[language] = listfiles - elif root == rootdir + os.sep + "autoload": - autoloaded_files = listfiles - for file in autoloaded_files: - if file in files[language]: - files[language].remove(file) - files[language].insert(0, "autoload" + os.sep + file) - return files - -def wg_get_local_scripts_status(): - """ - Return list of all local scripts with status (unknown/obsolete/running). - For example: - [ 'perl/weetris.pl': { 'unknown': '', 'obsolete': '1', 'running': '' }, - 'python/weeget.py': { 'unknown': '', 'obsolete': '', 'running': '1' } - ] - """ - local_scripts_status = [] - local_scripts = wg_get_local_scripts() - if len(local_scripts) > 0: - for language, files in local_scripts.items(): - for file in files: - script_status = { "unknown": "", "obsolete": "", "running": "" } - name_with_ext = os.path.basename(file) - script = wg_search_script_by_name(os.path.basename(file)) - if script == None: - script_status["unknown"] = "1" - else: - status = wg_get_local_script_status(script) - if status["obsolete"]: - script_status["obsolete"] = "1" - if wg_is_local_script_loaded(file): - script_status["running"] = "1" - local_scripts_status.append((language + os.sep + file, - script_status)) - return local_scripts_status - -def wg_search_scripts(search): - """ Search word in scripts, return list of matching scripts. """ - global wg_scripts - if search == "": - return wg_scripts - scripts_matching = {} - for id, script in wg_scripts.items(): - if script["name"].lower().find(search) >= 0 \ - or script["language"].lower().find(search) >= 0 \ - or script["desc_en"].lower().find(search) >= 0 \ - or script["desc_fr"].lower().find(search) >= 0 \ - or script["tags"].lower().find(search) >= 0: - scripts_matching[id] = script - return scripts_matching - -def wg_list_scripts(search, installed=False): - """ - List all scripts (with optional search string). - If installed == True, then list only installed scripts. - For each script, display status (installed/running/new version available), - name of script, language and description. - For example: - ir buffers pl Sidebar with list of buffers. - i N go py Quick jump to buffers. - i weetris pl Tetris-like game. - """ - global wg_scripts - search = search.strip().lower() - scripts_matching = wg_search_scripts(search) - if len(scripts_matching) == 0: - weechat.prnt("", "%s: no script found" % SCRIPT_NAME) - else: - weechat.prnt("", "") - if search != "": - if installed: - weechat.prnt("", "Scripts installed matching \"%s\":" % search) - else: - weechat.prnt("", "Scripts for WeeChat %s matching \"%s\":" - % (weechat.info_get("version", ""), - search)) - else: - if installed: - weechat.prnt("", "Scripts installed:") - else: - weechat.prnt("", "Scripts for WeeChat %s:" - % weechat.info_get("version", "")) - sorted_scripts = sorted(scripts_matching.items(), - key=lambda s: s[1]["name"]) - length_max_name = 0 - for item in sorted_scripts: - length = len(item[1]["name"]) - if length > length_max_name: - length_max_name = length - str_format = "%%s%%s%%s%%s%%s%%s%%s %%s%%-%ds %%s%%-3s %%s%%s" \ - % length_max_name - for item in sorted_scripts: - script = item[1] - str_installed = " " - str_running = " " - str_obsolete = " " - status = wg_get_local_script_status(script) - if installed and not status["installed"]: - continue - if status["installed"]: - str_installed = "i" - if status["running"]: - str_running = "r" - if status["obsolete"]: - str_obsolete = "N" - weechat.prnt("", str_format - % (wg_config_color("installed"), - str_installed, - wg_config_color("running"), - str_running, - wg_config_color("obsolete"), - str_obsolete, - weechat.color("chat"), - wg_config_color("script"), - script["name"], - wg_config_color("language"), - SCRIPT_EXTENSION[script["language"]], - weechat.color("chat"), - script["desc_en"])) - -def wg_show_script(name): - """ - Show detailed info about a script (in repository). - For example: - Script: weeget.py, version 0.7, license: GPL3 - Author: Sebastien Helleu - Status: installed, running - Date: added: 2009-04-05, updated: 2009-09-07 - URL: http://www.weechat.org/files/scripts/weeget.py - MD5: 4b0458dd5cc5c9a09ba8078f89830869 - Desc: Scripts manager. - Tags: scripts - Requires: python 2.5 - Min: 0.3.0 - """ - if len(wg_scripts) == 0: - return - script = wg_search_script_by_name(name) - if script == None: - weechat.prnt("", "%s: script \"%s%s%s\" not found" - % (SCRIPT_NAME, - wg_config_color("script"), - name, - weechat.color("chat"))) - else: - weechat.prnt("", "") - weechat.prnt("", " Script: %s%s%s, version %s, license: %s" - % (wg_config_color("script"), - script["full_name"], - weechat.color("chat"), - script["version"], - script["license"])) - weechat.prnt("", " Author: %s <%s>" % (script["author"], script["mail"])) - status = wg_get_local_script_status(script) - str_status = "not installed" - if status["installed"]: - str_status = "installed" - if status["running"]: - str_status += ", running" - else: - str_status += ", not running" - if status["obsolete"]: - str_status += " (new version available)" - weechat.prnt("", " Status: %s" % str_status) - date_added = script.get("added", "")[:10] - str_updated = script.get("updated", "") - if str_updated != "": - date_updated = script["updated"][:10] - if date_updated == "0000-00-00" or date_updated == date_added: - str_updated = "" - if str_updated != "": - weechat.prnt("", " Date: added: %s, updated: %s" - % (date_added, date_updated)) - else: - weechat.prnt("", " Date: added: %s" % date_added) - weechat.prnt("", " URL: %s" % script.get("url", "")) - weechat.prnt("", " MD5: %s" % script.get("md5sum", "")) - weechat.prnt("", " Desc: %s" % script.get("desc_en", "")) - weechat.prnt("", " Tags: %s" % script.get("tags", "")) - str_requires = script.get("requirements", "") - if str_requires == "": - str_requires = "(nothing)" - weechat.prnt("", "Requires: %s" % str_requires) - vmin = script.get("min_weechat", "") - vmax = script.get("max_weechat", "") - if vmin != "": - weechat.prnt("", " Min: %s" % vmin) - if vmax != "": - weechat.prnt("", " Max: %s" % vmax) - -def wg_install_next_script(): - """ - Install first script in list wg_scripts_to_install and remove it from - list. - """ - global wg_scripts, wg_scripts_to_install, wg_current_script_install - global wg_hook_process - if len(wg_scripts) == 0: - return - # be sure weeget is ALWAYS last script to install/update - # otherwise we'll lose end of list when weeget is unloaded by WeeChat - if SCRIPT_NAME in wg_scripts_to_install: - wg_scripts_to_install.remove(SCRIPT_NAME) - wg_scripts_to_install.append(SCRIPT_NAME) - # loop until a script is installed, or end if list is empty - while len(wg_scripts_to_install) > 0: - name = wg_scripts_to_install.pop(0) - script = wg_search_script_by_name(name) - if script == None: - weechat.prnt("", "%s: script \"%s%s%s\" not found" - % (SCRIPT_NAME, - wg_config_color("script"), - name, - weechat.color("chat"))) - else: - status = wg_get_local_script_status(script) - if status["installed"] and not status["obsolete"]: - weechat.prnt("", - "%s: script \"%s%s%s\" is already " - "installed and up to date" - % (SCRIPT_NAME, - wg_config_color("script"), - script["full_name"], - weechat.color("chat"))) - else: - weechat.prnt("", "%s: downloading \"%s%s%s\"..." - % (SCRIPT_NAME, - wg_config_color("script"), - script["full_name"], - weechat.color("chat"))) - if wg_hook_process["script"] != "": - weechat.unhook(wg_hook_process["script"]) - wg_hook_process["script"] = "" - wg_current_script_install = script - filename = wg_config_get_dir() + os.sep + script["full_name"] - wg_hook_process["script"] = wg_download_file(script["url"], filename, TIMEOUT_SCRIPT, - "wg_process_script_cb", "") - # this function will be called again when script will be - # downloaded - return - -def wg_install_scripts(names): - """ Install scripts. """ - global wg_scripts_to_install - for name in names.split(" "): - wg_scripts_to_install.append(name) - wg_install_next_script() - -def wg_process_script_cb(data, command, rc, stdout, stderr): - """ Callback when reading a script from website. """ - global wg_hook_process, wg_stdout, wg_current_script_install, wg_loaded_scripts - if stdout != "": - wg_stdout["script"] += stdout - if stderr != "": - wg_stdout["script"] += stderr - if int(rc) >= 0: - if wg_stdout["script"].startswith("error:"): - weechat.prnt("", "%s%s: error downloading script (%s)" - % (weechat.prefix("error"), SCRIPT_NAME, - wg_stdout["update"][6:].strip())) - else: - # ask C plugin to install/load script - weechat.hook_signal_send(wg_current_script_install["language"] + "_script_install", - weechat.WEECHAT_HOOK_SIGNAL_STRING, - wg_config_get_dir() + os.sep + wg_current_script_install["full_name"]) - wg_hook_process["script"] = "" - wg_install_next_script() - return weechat.WEECHAT_RC_OK - -def wg_check_scripts(): - """ - Check status of local script(s). - For each script found, display status (unknown/running/new version available). - For example: - r python/autoload/vdm.py - ?r python/autoload/dummy.py - rN python/shell.py - perl/buffers.pl - """ - local_scripts_status = wg_get_local_scripts_status() - if len(local_scripts_status) == 0: - return - weechat.prnt("", "") - weechat.prnt("", "Local scripts:") - for file, status in local_scripts_status: - str_unknown = " " - str_running = " " - str_obsolete = " " - if status["unknown"]: - str_unknown = "?" - if status["running"]: - str_running = "r" - if status["obsolete"]: - str_obsolete = "N" - weechat.prnt("", "%s%s%s%s%s%s%s %s%s%s%s" - % (wg_config_color("unknown"), str_unknown, - wg_config_color("running"), str_running, - wg_config_color("obsolete"), str_obsolete, - weechat.color("chat"), - os.path.dirname(file), - os.sep, - wg_config_color("script"), - os.path.basename(file))) - -def wg_upgrade_scripts(): - """ Upgrade scripts. """ - global wg_scripts, wg_scripts_to_install - if len(wg_scripts) == 0: - return - scripts_to_upgrade = [] - for id, script in wg_scripts.items(): - status = wg_get_local_script_status(script) - if status["installed"] and status["obsolete"]: - scripts_to_upgrade.append(script["name"]) - if len(scripts_to_upgrade) == 0: - weechat.prnt("", "%s: all scripts are up to date" % SCRIPT_NAME) - else: - wg_scripts_to_install.extend(scripts_to_upgrade) - wg_install_next_script() - -def wg_remove_scripts(names): - """ Remove scripts. """ - if len(wg_scripts) == 0: - return - list_names = names.split(" ") - scripts_to_remove = {} - for language in SCRIPT_EXTENSION.keys(): - scripts_to_remove[language] = [] - for name in list_names: - script = wg_search_script_by_name(name) - if script == None: - weechat.prnt("", "%s: script \"%s%s%s\" not found" - % (SCRIPT_NAME, - wg_config_color("script"), - name, - weechat.color("chat"))) - else: - if script["full_name"] not in scripts_to_remove[script["language"]]: - scripts_to_remove[script["language"]].append(script["full_name"]) - for language in SCRIPT_EXTENSION.keys(): - if len(scripts_to_remove[language]) > 0: - # ask C plugin to remove script file(s) - weechat.hook_signal_send(language + "_script_remove", - weechat.WEECHAT_HOOK_SIGNAL_STRING, - ",".join(scripts_to_remove[language])) - -# ==================================[ xml ]=================================== - -def wg_execute_action(): - """ Execute action. """ - global wg_action, wg_action_args, wg_loaded_scripts - if wg_action != "": - wg_get_loaded_scripts() - if wg_action == "list": - wg_list_scripts(wg_action_args) - elif wg_action == "listinstalled": - wg_list_scripts(wg_action_args, installed=True) - elif wg_action == "show": - wg_show_script(wg_action_args) - elif wg_action == "install": - wg_install_scripts(wg_action_args) - elif wg_action == "check": - wg_check_scripts() - elif wg_action == "upgrade": - wg_upgrade_scripts() - elif wg_action == "remove": - wg_remove_scripts(wg_action_args) - else: - weechat.prnt("", "%s%s: unknown action \"%s\"" - % (weechat.prefix("error"), SCRIPT_NAME, wg_action)) - - # reset action - wg_action = "" - wg_action_args = "" - wg_loaded_scripts = {} - -def wg_check_version(script): - """ Check if a script is designed for current running WeeChat version.""" - version = weechat.info_get("version", "") - version = version.split("-", 1)[0] - vmin = script.get("min_weechat", "") - vmax = script.get("max_weechat", "") - if vmin != "" and version < vmin: - return False - if vmax != "" and version > vmax: - return False - return True - -def wg_parse_xml(): - """ - Parse XML scripts list and return dictionary with list, with key 'id'. - Example of item return in dictionary : - '119': { 'name' : 'weeget', - 'version' : '0.1', - 'url' : 'http://www.weechat.org/files/scripts/weeget.py', - 'language' : 'python', - 'license' : 'GPL3', - 'md5sum' : 'd500714fc19b0e10cc4e339e70739e4ad500714fc19b0e10cc4e339e70739e4a', - 'tags' : 'scripts', - 'desc_en' : 'Scripts manager.', - 'desc_fr' : 'Gestionnaire de scripts.', - 'requirements': 'python 2.5', - 'min_weechat' : '0.3.0', - 'max_weechat' : '', - 'author' : 'FlashCode', - 'mail' : 'flashcode [at] flashtux [dot] org', - 'added' : '2009-04-05 22:39:18', - 'updated' : '0000-00-00 00:00:00' } - """ - global wg_scripts, wg_action, wg_action_args - wg_scripts = {} - try: - f = gzip.open(wg_config_get_cache_filename(), "rb") - string = f.read() - f.close() - except: - weechat.prnt("", "%s%s: unable to read xml file" - % (weechat.prefix("error"), SCRIPT_NAME)) - else: - try: - dom = xml.dom.minidom.parseString(string) - except: - weechat.prnt("", - "%s%s: unable to parse xml list of scripts" - % (weechat.prefix("error"), SCRIPT_NAME)) - # discard action - wg_action = "" - wg_action_args = "" - else: - for scriptNode in dom.getElementsByTagName("plugin"): - id = scriptNode.getAttribute("id") - script = {} - for node in scriptNode.childNodes: - if node.nodeType == node.ELEMENT_NODE: - if node.firstChild != None: - nodename = node.nodeName - value = node.firstChild.data - if sys.version_info < (3,): - # python 2.x: convert unicode to str (in python 3.x, id and text are already strings) - nodename = nodename.encode("utf-8") - value = value.encode("utf-8") - script[nodename] = value - if script["language"] in SCRIPT_EXTENSION: - script["full_name"] = script["name"] + "." + SCRIPT_EXTENSION[script["language"]] - if wg_check_version(script): - wg_scripts[id] = script - wg_execute_action() - -def wg_process_update_cb(data, command, rc, stdout, stderr): - """ Callback when reading XML cache file from website. """ - global wg_hook_process, wg_stdout, wg_scripts - if stdout != "": - wg_stdout["update"] += stdout - if stderr != "": - wg_stdout["update"] += stderr - if int(rc) >= 0: - if wg_stdout["update"].startswith("error:"): - weechat.prnt("", "%s%s: error downloading scripts (%s)" - % (weechat.prefix("error"), SCRIPT_NAME, - wg_stdout["update"][6:].strip())) - else: - weechat.prnt("", "%s: scripts downloaded" % SCRIPT_NAME) - wg_parse_xml() - wg_hook_process["update"] = "" - return weechat.WEECHAT_RC_OK - -def wg_update_cache(): - """ Download list of scripts and update local cache. """ - global wg_config_option, wg_hook_process, wg_stdout - # get data from website, via hook_process - if wg_hook_process["update"] != "": - weechat.unhook(wg_hook_process["update"]) - wg_hook_process["update"] = "" - weechat.prnt("", "%s: downloading list of scripts..." % SCRIPT_NAME) - wg_stdout["update"] = "" - wg_config_create_dir() - url = weechat.config_string(wg_config_option["scripts_url"]) - filename = wg_config_get_cache_filename() - wg_hook_process["update"] = wg_download_file(url, filename, TIMEOUT_UPDATE, - "wg_process_update_cb", "") - -def wg_read_scripts(download_list=True): - """ Read scripts list (download list if needed and asked). """ - global wg_scripts - cache_file = wg_config_get_cache_filename() - if os.path.isfile(cache_file): - # check if local cache file is too old - cache_expire = weechat.config_integer(wg_config_option["scripts_cache_expire"]) * 60 - if cache_expire >= 0: - diff_time = time.time() - os.stat(cache_file)[stat.ST_MTIME] - if download_list and diff_time >= cache_expire: - os.unlink(cache_file) - wg_scripts.clear() - if len(wg_scripts) > 0: - wg_execute_action() - else: - if os.path.isfile(cache_file): - wg_parse_xml() - elif download_list: - wg_update_cache() - -# ================================[ command ]================================= - -def wg_cmd(data, buffer, args): - """ Callback for /weeget command. """ - global wg_action, wg_action_args - if args == "": - weechat.command("", "/help %s" % SCRIPT_COMMAND) - return weechat.WEECHAT_RC_OK - argv = args.strip().split(" ", 1) - if len(argv) == 0: - return weechat.WEECHAT_RC_OK - - wg_action = "" - wg_action_args = "" - - # check arguments - if len(argv) < 2: - if argv[0] == "show" or \ - argv[0] == "install" or \ - argv[0] == "remove": - weechat.prnt("", "%s: too few arguments for action \"%s\"" - % (SCRIPT_NAME, argv[0])) - return weechat.WEECHAT_RC_OK - - # execute asked action - if argv[0] == "update": - wg_update_cache() - else: - wg_action = argv[0] - wg_action_args = "" - if len(argv) > 1: - wg_action_args = argv[1] - wg_read_scripts() - - return weechat.WEECHAT_RC_OK - -def wg_completion_scripts_cb(data, completion_item, buffer, completion): - """ Complete with known script names, for command '/weeget'. """ - global wg_scripts - wg_read_scripts(download_list=False) - if len(wg_scripts) > 0: - for id, script in wg_scripts.items(): - weechat.hook_completion_list_add(completion, script["full_name"], - 0, weechat.WEECHAT_LIST_POS_SORT) - return weechat.WEECHAT_RC_OK - -def wg_completion_scripts_installed_cb(data, completion_item, buffer, completion): - """ Complete with names of scripts installed, for command '/weeget'. """ - global wg_scripts - wg_read_scripts(download_list=False) - if len(wg_scripts) > 0: - for id, script in wg_scripts.items(): - status = wg_get_local_script_status(script) - if status["installed"]: - weechat.hook_completion_list_add(completion, script["full_name"], - 0, weechat.WEECHAT_LIST_POS_SORT) - return weechat.WEECHAT_RC_OK - -def wg_completion_scripts_tags_cb(data, completion_item, buffer, completion): - """ Complete with known tags, for command '/weeget'. """ - global wg_scripts - wg_read_scripts(download_list=False) - if len(wg_scripts) > 0: - for id, script in wg_scripts.items(): - if script["tags"]: - for tag in script["tags"].split(","): - weechat.hook_completion_list_add(completion, tag, - 0, weechat.WEECHAT_LIST_POS_SORT) - return weechat.WEECHAT_RC_OK - -# ==================================[ main ]================================== - -if __name__ == "__main__" and import_ok: - if weechat.register(SCRIPT_NAME, SCRIPT_AUTHOR, SCRIPT_VERSION, SCRIPT_LICENSE, - SCRIPT_DESC, "wg_unload_script", ""): - wg_config_init() - wg_config_read() - if weechat.config_string(wg_config_option["scripts_url"]).find("weechat.flashtux.org") >= 0: - weechat.prnt("", "%sWarning: old site still used in URL for plugins.xml.gz, you should do: /unset wg.scripts.url" - % weechat.prefix("error")) - str_installed = wg_config_color("installed") + "i" + weechat.color("chat") - str_unknown = wg_config_color("unknown") + "?" + weechat.color("chat") - str_running = wg_config_color("running") + "r" + weechat.color("chat") - str_obsolete = wg_config_color("obsolete") + "N" + weechat.color("chat") - weechat.hook_command(SCRIPT_COMMAND, - "WeeChat scripts manager", - "list|listinstalled [|] || show