commit 5c087593a5fb5468af0f3b0ed61ab3e28bd99c2c
parent e2810cdc0c63a925f14e5432872b3189e5396e33
Author: Alex Balgavy <alex@balgavy.eu>
Date: Wed, 11 Sep 2024 00:20:01 +0200
irssi: reconfigure
Diffstat:
11 files changed, 115 insertions(+), 4005 deletions(-)
diff --git a/irssi/config b/irssi/config
@@ -13,11 +13,11 @@ servers = (
},
{ address = "irc.rekt.network"; chatnet = "Rekt"; use_tls = "yes"; },
{
- address = "irc.libera.chat";
- chatnet = "liberachat";
- port = "6667";
- use_tls = "no";
- tls_verify = "no";
+ address = "alex.balgavy.eu";
+ chatnet = "me";
+ port = "4720";
+ use_tls = "yes";
+ autoconnect = "yes";
}
);
@@ -35,7 +35,7 @@ chatnets = {
max_whois = "1";
};
Rekt = { type = "IRC"; max_kicks = "1"; max_msgs = "4"; max_whois = "1"; };
- liberachat = { type = "IRC"; };
+ me = { type = "IRC"; };
};
channels = (
@@ -46,102 +46,33 @@ channels = (
);
aliases = {
- ATAG = "WINDOW SERVER";
- ADDALLCHANS = "SCRIPT EXEC foreach my \\$channel (Irssi::channels()) { Irssi::command(\"CHANNEL ADD -auto \\$channel->{name} \\$channel->{server}->{tag} \\$channel->{key}\")\\;}";
- B = "BAN";
- BACK = "AWAY";
- BANS = "BAN";
- BYE = "QUIT";
- C = "CLEAR";
- CALC = "EXEC - if command -v bc >/dev/null 2>&1\\; then printf '%s=' '$*'\\; echo '$*' | bc -l\\; else echo bc was not found\\; fi";
- CHAT = "DCC CHAT";
- DATE = "TIME";
- DEHIGHLIGHT = "DEHILIGHT";
- DESCRIBE = "ACTION";
- DHL = "DEHILIGHT";
- EXEMPTLIST = "MODE $C +e";
- EXIT = "QUIT";
- GOTO = "SCROLLBACK GOTO";
- HIGHLIGHT = "HILIGHT";
- HL = "HILIGHT";
- HOST = "USERHOST";
- INVITELIST = "MODE $C +I";
- J = "JOIN";
- K = "KICK";
- KB = "KICKBAN";
- KN = "KNOCKOUT";
- LAST = "LASTLOG";
- LEAVE = "PART";
- M = "MSG";
- MUB = "UNBAN *";
- N = "NAMES";
- NMSG = "^MSG";
- P = "PART";
- Q = "QUERY";
- RESET = "SET -default";
- RUN = "SCRIPT LOAD";
- SAY = "MSG *";
- SB = "SCROLLBACK";
- SBAR = "STATUSBAR";
- SIGNOFF = "QUIT";
- SV = "MSG * Irssi $J ($V) - https://irssi.org";
- T = "TOPIC";
- UB = "UNBAN";
- UMODE = "MODE $N";
- UNSET = "SET -clear";
- W = "WHO";
- WC = "WINDOW CLOSE";
- WG = "WINDOW GOTO";
- WJOIN = "JOIN -window";
- WI = "WHOIS";
- WII = "WHOIS $0 $0";
- WL = "WINDOW LIST";
- WN = "WINDOW NEW HIDDEN";
- WQUERY = "QUERY -window";
- WW = "WHOWAS";
sl = "server list";
s = "server";
cl = "channel list";
nl = "network list";
+ znc = "msg *status";
+ detach = "/msg *status detach $C";
+ q = "query";
+ d = "detach";
};
-statusbar = {
-
- items = {
-
- barstart = "{sbstart}";
- barend = "{sbend}";
-
- topicbarstart = "{topicsbstart}";
- topicbarend = "{topicsbend}";
-
- time = "{sb $Z}";
- user = "{sb {sbnickmode $cumode}$N{sbmode $usermode}{sbaway $A}}";
-
- window = "{sb $winref:$tag/$itemname{sbmode $M}}";
- window_empty = "{sb $winref{sbservertag $tag}}";
-
- prompt = "{prompt $[.15]itemname}";
- prompt_empty = "{prompt $winname}";
-
- topic = " $topic";
- topic_empty = " Irssi v$J - https://irssi.org";
-
- lag = "{sb Lag: $0-}";
- act = "{sb Act: $0-}";
- more = "-- more --";
+settings = {
+ core = {
+ real_name = "zeroalpha";
+ user_name = "zeroalpha";
+ nick = "zeroalpha";
+ settings_autosave = "yes";
+ timestamp_format = "%H:%M:%S";
};
-
+ "fe-text" = { show_server_time = "yes"; colors = "no"; };
+ "perl/core/scripts" = { awl_shared_sbar = "OFF"; awl_viewer = "no"; };
+};
+hilights = ( { text = "zeroalpha"; nick = "yes"; word = "yes"; } );
+ignores = ( { level = "JOINS PARTS QUITS"; } );
+logs = { };
+statusbar = {
default = {
-
window = {
-
- disabled = "no";
- type = "window";
- placement = "bottom";
- position = "1";
- visible = "active";
-
items = {
barstart = { priority = "100"; };
time = { };
@@ -149,91 +80,44 @@ statusbar = {
window = { };
window_empty = { };
lag = { priority = "-1"; };
+ act = { priority = "10"; };
more = { priority = "-1"; alignment = "right"; };
barend = { priority = "100"; alignment = "right"; };
- };
- };
-
- window_inact = {
-
- type = "window";
- placement = "bottom";
- position = "1";
- visible = "inactive";
-
- items = {
- barstart = { priority = "100"; };
- window = { };
- window_empty = { };
- more = { priority = "-1"; alignment = "right"; };
- barend = { priority = "100"; alignment = "right"; };
- };
- };
-
- prompt = {
-
- type = "root";
- placement = "bottom";
- position = "100";
- visible = "always";
-
- items = {
- prompt = { priority = "-1"; };
- prompt_empty = { priority = "-1"; };
- input = { priority = "10"; };
- };
- };
-
- topic = {
-
- type = "root";
- placement = "top";
- position = "1";
- visible = "always";
-
- items = {
- topicbarstart = { priority = "100"; };
- topic = { };
- topic_empty = { };
- topicbarend = { priority = "100"; alignment = "right"; };
- };
- };
- awl_0 = {
- items = {
- barstart = { priority = "100"; };
- awl_0 = { };
- barend = { priority = "100"; alignment = "right"; };
+ usercount = { };
};
};
};
};
-settings = {
- core = {
- real_name = "Alex";
- user_name = "zeroalpha";
- nick = "zeroalpha";
- settings_autosave = "yes";
- };
- "fe-text" = {
- actlist_sort = "refnum";
- paste_join_multiline = "no";
- colors = "no";
- colors_ansi_24bit = "no";
+windows = {
+ 1 = { immortal = "yes"; name = "(status)"; level = "ALL"; };
+ 2 = { };
+ 3 = { };
+ 4 = {
+ items = (
+ {
+ type = "CHANNEL";
+ chat_type = "IRC";
+ name = "#lineageos";
+ tag = "me";
+ }
+ );
};
- "perl/core/scripts" = {
- awl_shared_sbar = "OFF";
- awl_viewer = "no";
- awl_block = "-14";
- trackbar_require_seen = "yes";
- awl_all_disable = "yes";
+ 5 = {
+ items = (
+ {
+ type = "QUERY";
+ chat_type = "IRC";
+ name = "*status";
+ tag = "me";
+ }
+ );
};
- "fe-common/core" = {
- print_active_channel = "no";
- theme = "tugg";
- completion_auto = "yes";
+};
+mainwindows = {
+ 1 = {
+ first_line = "1";
+ lines = "55";
+ first_column = "0";
+ columns = "200";
};
- "irc/core" = { alternate_nick = "xza"; };
};
-hilights = ( { text = "zeroalpha"; nick = "yes"; word = "yes"; } );
-ignores = ( { level = "JOINS PARTS QUITS"; } );
-logs = { };
diff --git a/irssi/mine.theme b/irssi/mine.theme
@@ -1,202 +0,0 @@
-# mosdef.theme by deadcow@efnet (very,very based on screwer by ak5).
-# this theme uses ascii lines, working best on ansi fonts like lime,drift of artwiz aleczapka
-# 25/08/2007 - brazil
-
-default_color = "-1";
-info_eol = "false";
-replaces = { "[]():@.<>" = "%c$*%n"; };
-
-abstracts = {
-
- ##
- ## generic
- ##
-
- line_start = "";
- timestamp = "$*>%N";
- hilight = "%_$*%_";
- error = "%r$*%N";
- channel = "$*";
- nick = "%c$*%n";
- nickhost = "$*";
- server = "%_$*%_";
- comment = "($*)";
- reason = "(%N$*)";
- mode = "($*)";
-
- ##
- ## channel specific messages
- ##
-
- channick_hilight = "%W$*%N";
- chanhost_hilight = "[$*]";
- channick = "%N$*";
- chanhost = "{nickhost $*}";
- channelhilight = "%_$*%_";
- ban = "$*";
-
- ##
- ## messages
- ##
-
- msgnick = "%c$0%c$1%c>%N ";
- ownmsgnick = "{msgnick $0 $1}";
- ownnick = "%N$0%N";
-
- pubmsgnick = "{msgnick $0 $1}";
- pubnick = "%N$0%N";
- pubmsgmenick = "{msgnick $0 $1}%c";
- menick = "%c$0%N";
-
- pubmsghinick = "{msgnick $1 $0$2-}";
- msgchannel = "%N:%C$*%N";
-
-
- privmsg = "[$0(%c$1-)] ";
- ownprivmsg = "[%c$0(%N$1-)] ";
- ownprivmsgnick = "{msgnick $*}";
- ownprivnick = "%N$*%N";
- privmsgnick = "{msgnick %N$*}";
-
- ##
- ## Actions (/ME stuff)
- ##
-
- action_core = "%cact:%N $*";
- action = "{action_core $0} ";
- ownaction = "{action_core $0} ";
- ownaction_target = "%cact%N $0:%c$1%N ";
-
- pvtaction = "%cact:%N $* ";
- pvtaction_query = "{action $*}";
- pubaction = "{action $*}";
-
-
- ##
- ## other IRC events
- ##
-
- whois = "%c$[8]0 :%N $1-";
-
- ownnotice = "[%c$0(%N$1-)]: ";
- notice = "%C─%c─%N $*:%N ";
- pubnotice_channel = "%N(%c$*)";
- pvtnotice_host = "(%c$*)";
- servernotice = "%C─%c─%N $*:%N ";
-
- ownctcp = "[%c$0($1-)]:";
- ctcp = "%N$*";
-
- wallop = "%c$*%N: ";
- wallop_nick = "%N$*";
- wallop_action = "%C─%c─%N $*%N ";
-
- netsplit = "%C─%c─%N $* %N";
- netjoin = "%C─%c─%N $* %N";
-
- names_prefix = " %C│%n ";
- names_nick = "%c$0%N$1-%N ";
- names_nick_op = "{names_nick $*}";
- names_nick_halfop = "{names_nick $*}";
- names_nick_voice = "{names_nick $*}";
- names_users = "%C┌────────────%c── ─%n\012%C│%n $* \012%C└────┬──────────────────────────────%c── ─%n";
- names_channel = "$*";
-
- dcc = "$*%N";
- dccfile = "%_$*%_";
- dccownmsg = "[$0($1-)] ";
- dccownnick = "$*";
- dccownquerynick = "%N$*%N";
- dccownaction = "%C─%c─%N $* ";
- dccownaction_target = "%%C─%c─%N $0%c:%c$1%N ";
- dccmsg = "[$1-($0)] ";
- dccquerynick = "$*";
- dccaction = "%C─%c─%N $* ";
-
- ##
- ## statusbar
- ##
-
- sb_background = "%0%m";
- sb_prompt_bg = "%0";
- sb_info_bg = "%0";
- sbstart = "%C┌──%c──%N ";
- sbend = "";
-
- topicsbstart = "%ctp:%N";
- topicsbend = "%C.%c.%N";
-
- prompt = "%C└%c─ (%N$*%c)%C»%n ";
- promptend = "┌";
-
- sb = "%c(%N$*%c)%N ";
- sbtime = "%c$*%N ";
- sbmode = "%c/%N+$*%n";
- sbaway = "%c/%Naway%N";
- sbservertag = "%c:%N$0%c(%N^X%c)";
- sb_act_sep = "%c$*";
- sb_act_text = "%N$*";
- sb_act_msg = "%c$*";
- sb_act_hilight = "%C$*";
- sb_act_hilight_color = "$0$1-%N";
- sb_usercount = "{sb $0%c/$1-}";
- sb_uc_ircops = "%c*%N$*";
- sb_uc_ops = "%c@%N$*";
- sb_uc_halfops = "%c%%%N$*";
- sb_uc_voices = "%c+%N$*";
- sb_uc_normal = "%N$*";
- sb_uc_space = "%c,";
- nact_display = "$1>%N$0>%N$2";
- nact_command = "$1: [DN:$0 UP:$2]";
-};
-
-formats = {
- "fe-common/core" = {
- join = "%C─%c─%N$[-9]0%C!%n{chanhost $1} %cjoined%n $2";
- part = "%C─%c─%N$[-9]0%C!%n{chanhost $1} %cleaves%n $2 {reason $3}";
- quit = "%C─%c─%N$[-9]0%C!%n{chanhost $1} %cquits%n {reason $2}";
- kick = "%C─%c─%N$[-9]0 %cwas %Ckicked%c from%N {channel $1} %cby%N $2 {reason $3}";
- own_msg = "{ownmsgnick $2 {ownnick $[-9]0}}$1";
- own_msg_channel = "{ownmsgnick $3 {ownnick $[-9]0}{msgchannel $1}}$2";
- pubmsg_me = "{pubmsgmenick $2 {menick $[-9]0}}$1";
- pubmsg_me_channel = "{pubmsgmenick $3 {menick $[-9]0}{msgchannel $1}}$2";
- pubmsg_hilight = "{pubmsghinick $0 $3 $[-9]1}$2";
- pubmsg_hilight_channel = "{pubmsghinick $0 $4 $[-9]1{msgchannel $2}}$3";
- pubmsg = "{pubmsgnick $2 {pubnick $[-9]0}}$1";
- pubmsg_channel = "{pubmsgnick $3 {pubnick $[-9]0}{msgchannel $1}}$2";
- set_item = "$0 %c=%N $1";
- line_start_irssi = "{line_start} %C└%c─ ";
- nick_changed = "%C─%c─%C {channick $[-9]0}%N is now known as {nick $1}";
- your_nick_changed = "%C─%c─%N You're now known as {nick $1}";
- daychange = "%C─%c─%N Day changed to %%d %%b %%Y";
- };
- "fe-common/irc" = {
- chanmode_change = "%C─%c─%N modechange {channel $0}:%N {mode $1} %cby%N $2";
- whois = " %C┌──────┐%n\012%C┌──────├──────┴─────────%c─── ─%n\012%C│ %chost%C ├%c─>%n $0 ($1@$2)\012%C│ %cname%C ├%c─>%n $3";
- whois_idle = "%C│ %cidle%C ├%c─>%n %|$1d $2h $3m $4s";
- whois_idle_signon = "%C│ %cidle%C ├%c─>%n %|$1d $2h $3m $4s {comment signon: $5}";
- whois_server = "%C│ %cserv%C ├%c─>%n %|$1 {comment $2}";
- whois_oper = "%C│ %coper%C ├%c─>%n {hilight $1}";
- whois_registered = "%C│ %crgis%C ├%c─>%n yes";
- whois_help = "%C│ %chelp%C ├%c─>%n is available for help";
- whois_modes = "%C│ %cmods%C ├%c─>%n $1";
- whois_realhost = "%C│ %crhos%C ├%c─>%n $1-";
- whois_usermode = "%C│ %cumod%C ├%c─>%n $1";
- whois_channels = "%C│ %cchan%C ├%c─>%n %|$1";
- whois_away = "%C│ %caway%C ├%c─>%n %|$1";
- whois_special = "%C│ %cinfo%C ├%c─>%n {comment %|$1}";
- whois_extra = "%C│ %cextr%C ├%c─>%n %|$1";
- end_of_whois = "%C└──────├──────┬────────────────────────%c── ─ ─%n\012 %C└──────┘%n";
- whois_not_found = "%C─%c─%N There is no such nick $0";
- default_event_server = "%C│ %circd%C ├%c─>%n $1 [$0]";
- server_chanmode_change = "{netsplit IRCDMode}%c/%n$0 %n{mode $1} %cby%N {nick $2}";
- own_action = "{ownaction $[-9]0}$1";
- action_public = "{pubaction $[-9]0}$1";
- action_public_channel = "{pubaction $[-9]0{msgchannel $1}}$2";
- channel_created = " %C┌%c─%n %cChannel%n $0 %cCreated%n $1 %c─%C┐%n";
- topic = " %C┌%c─%n Topic for %c$0:%N $1";
- no_topic = " %C┌%c─%n No topic set for %c$0%n";
- topic_info = " %C└%c─%n Topic set by {nick $0}!{nickhost $2} {comment $1}";
- channel_synced = "%cJoin to%n {channel $0} %cwas Synced in%n {hilight $1} %csecs%n %c───%C──────────┘%n";
- };
-};
diff --git a/irssi/mosdef.theme b/irssi/mosdef.theme
@@ -1,48 +0,0 @@
-formats = {
- "fe-common/core" = {
- line_start_irssi = "{line_start} %C└%c─ ";
- daychange = "%C─%c─%N Day changed to %%d %%b %%Y";
- join = "%C─%c─%N$[-9]0%C!%n{chanhost $1} %cjoined%n $2";
- part = "%C─%c─%N$[-9]0%C!%n{chanhost $1} %cleaves%n $2 {reason $3}";
- kick = "%C─%c─%N$[-9]0 %cwas %Ckicked%c from%N {channel $1} %cby%N $2 {reason $3}";
- quit = "%C─%c─%N$[-9]0%C!%n{chanhost $1} %cquits%n {reason $2}";
- your_nick_changed = "%C─%c─%N You're now known as {nick $1}";
- nick_changed = "%C─%c─%C {channick $[-9]0}%N is now known as {nick $1}";
- own_msg = "{ownmsgnick $2 {ownnick $[-9]0}}$1";
- own_msg_channel = "{ownmsgnick $3 {ownnick $[-9]0}{msgchannel $1}}$2";
- pubmsg_me = "{pubmsgmenick $2 {menick $[-9]0}}$1";
- pubmsg_me_channel = "{pubmsgmenick $3 {menick $[-9]0}{msgchannel $1}}$2";
- pubmsg_hilight = "{pubmsghinick $0 $3 $[-9]1}$2";
- pubmsg_hilight_channel = "{pubmsghinick $0 $4 $[-9]1{msgchannel $2}}$3";
- pubmsg = "{pubmsgnick $2 {pubnick $[-9]0}}$1";
- pubmsg_channel = "{pubmsgnick $3 {pubnick $[-9]0}{msgchannel $1}}$2";
- set_item = "$0 %c=%N $1";
- };
- "fe-common/irc" = {
- channel_created = " %C┌%c─%n %cChannel%n $0 %cCreated%n $1 %c─%C┐%n";
- topic = " %C┌%c─%n Topic for %c$0:%N $1";
- no_topic = " %C┌%c─%n No topic set for %c$0%n";
- topic_info = " %C└%c─%n Topic set by {nick $0}!{nickhost $2} {comment $1}";
- chanmode_change = "%C─%c─%N modechange {channel $0}:%N {mode $1} %cby%N $2";
- server_chanmode_change = "{netsplit IRCDMode}%c/%n$0 %n{mode $1} %cby%N {nick $2}";
- channel_synced = "%cJoin to%n {channel $0} %cwas Synced in%n {hilight $1} %csecs%n %c───%C──────────┘%n";
- whois = " %C┌──────┐%n\012%C┌──────├──────┴─────────%c─── ─%n\012%C│ %chost%C ├%c─>%n $0 ($1@$2)\012%C│ %cname%C ├%c─>%n $3";
- whois_idle = "%C│ %cidle%C ├%c─>%n %|$1d $2h $3m $4s";
- whois_idle_signon = "%C│ %cidle%C ├%c─>%n %|$1d $2h $3m $4s {comment signon: $5}";
- whois_server = "%C│ %cserv%C ├%c─>%n %|$1 {comment $2}";
- whois_oper = "%C│ %coper%C ├%c─>%n {hilight $1}";
- whois_modes = "%C│ %cmods%C ├%c─>%n $1";
- whois_realhost = "%C│ %crhos%C ├%c─>%n $1-";
- whois_usermode = "%C│ %cumod%C ├%c─>%n $1";
- whois_channels = "%C│ %cchan%C ├%c─>%n %|$1";
- whois_away = "%C│ %caway%C ├%c─>%n %|$1";
- whois_special = "%C│ %cinfo%C ├%c─>%n {comment %|$1}";
- whois_extra = "%C│ %cextr%C ├%c─>%n %|$1";
- end_of_whois = "%C└──────├──────┬────────────────────────%c── ─ ─%n\012 %C└──────┘%n";
- whois_not_found = "%C─%c─%N There is no such nick $0";
- own_action = "{ownaction $[-9]0}$1";
- action_public = "{pubaction $[-9]0}$1";
- action_public_channel = "{pubaction $[-9]0{msgchannel $1}}$2";
- default_event_server = "%C│ %circd%C ├%c─>%n $1 [$0]";
- };
-};
diff --git a/irssi/scripts/adv_windowlist.pl b/irssi/scripts/adv_windowlist.pl
@@ -1,2879 +0,0 @@
-use strict;
-use warnings;
-
-our $VERSION = '1.8'; # 63feb35d8b0a8b6
-our %IRSSI = (
- authors => 'Nei',
- contact => 'Nei @ anti@conference.jabber.teamidiot.de',
- url => "http://anti.teamidiot.de/",
- name => 'adv_windowlist',
- description => 'Adds a permanent advanced window list on the right or in a status bar.',
- sbitems => 'awl_shared',
- license => 'GNU GPLv2 or later',
- );
-
-# UPGRADE NOTE
-# ============
-# for users of 0.7 or earlier series, please note that appearance
-# settings have moved to /format, i.e. inside your theme!
-# the fifo (screen) has been replaced by an external viewer script
-
-# Usage
-# =====
-# copy the script to ~/.irssi/scripts/
-#
-# In irssi:
-#
-# /run adv_windowlist
-#
-# In your shell (for example a tmux split):
-#
-# perl ~/.irssi/scripts/adv_windowlist.pl
-#
-# To use sbar mode instead:
-#
-# /toggle awl_viewer
-#
-# Hint: to get rid of the old [Act:] display
-# /statusbar window remove act
-#
-# to get it back:
-# /statusbar window add -after lag -priority 10 act
-
-# Options
-# =======
-# formats can be cleared with /format -delete
-#
-# /format awl_display_(no)key(_active|_visible) <string>
-# * string : Format String for one window. The following $'s are expanded:
-# $C : Name
-# $N : Number of the Window
-# $Q : meta-Keymap
-# $H : Start hilighting
-# $S : Stop hilighting
-# /+++++++++++++++++++++++++++++++++,
-# | **** I M P O R T A N T : **** |
-# | |
-# | don't forget to use $S if you |
-# | used $H before! |
-# | |
-# '+++++++++++++++++++++++++++++++++/
-# key : a key binding that goes to this window could be detected in /bind
-# nokey : no such key binding was detected
-# active : window would receive the input you are currently typing
-# visible : window is also visible on screen but not active (a split window)
-#
-# /format awl_name_display <string>
-# * string : Format String for window names
-# $0 : name as formatted by the settings
-#
-# /format awl_display_header <string>
-# * string : Format String for this header line. The following $'s are expanded:
-# $C : network tag
-#
-# /format awl_separator(2) <string>
-# * string : Character to use between the channel entries
-# variant 2 can be used for alternating separators (only in status bar
-# without block display)
-#
-# /format awl_abbrev_chars <string>
-# * string : Character to use when shortening long names. The second character
-# will be used if two blocks need to be filled.
-#
-# /format awl_title <string>
-# * string : Text to display in the title string or title bar
-#
-# /format awl_viewer_item_bg <string>
-# * string : Format String specifying the viewer's item background colour
-#
-# /set awl_prefer_name <ON|OFF>
-# * this setting decides whether awl will use the active_name (OFF) or the
-# window name as the name/caption in awl_display_*.
-# That way you can rename windows using /window name myownname.
-#
-# /set awl_hide_empty <num>
-# * if visible windows without items should be hidden from the window list
-# set it to 0 to show all windows
-# 1 to hide visible windows without items (negative exempt
-# active window)
-#
-# /set awl_detach <list>
-# * list of windows that should be hidden from the window list. you
-# can also use /awl detach and /awl attach to manage this
-# setting. an optional data_level can be specified with ",num"
-#
-# /set awl_detach_data <num>
-# * num : hide the detached window if its data_level is below num
-#
-# /set awl_detach_aht <ON|OFF>
-# * if enabled, also detach all windows listed in the
-# activity_hide_targets setting
-#
-# /set awl_hide_data <num>
-# * num : hide the window if its data_level is below num
-# set it to 0 to basically disable this feature,
-# 1 if you don't want windows without activity to be shown
-# 2 to show only those windows with channel text or hilight
-# 3 to show only windows with hilight (negative exempt active window)
-#
-# /set awl_hide_name_data <num>
-# * num : hide the name of the window if its data_level is below num
-# (only works in status bar without block display)
-# you will want to change your formats to add $H...$S around $Q or $N
-# if you plan to use this
-#
-# /set awl_maxlines <num>
-# * num : number of lines to use for the window list (0 to disable, negative
-# lock)
-#
-# /set awl_maxcolumns <num>
-# * num : number of columns to use for the window list when using the
-# tmux integration (0 to disable)
-#
-# /set awl_block <num>
-# * num : width of a column in viewer mode (negative values = block
-# display in status bar mode)
-# /+++++++++++++++++++++++++++++++++,
-# | ****** W A R N I N G ! ****** |
-# | |
-# | If your block display looks |
-# | DISTORTED, you need to add the |
-# | following line to your .theme |
-# | file under |
-# | abstracts = { : |
-# | |
-# | sb_act_none = "%K$*"; |
-# | |
-# '+++++++++++++++++++++++++++++++++/
-#
-# /set awl_sbar_maxlength <ON|OFF>
-# * if you enable the maxlength setting, the block width will be used as a
-# maximum length for the non-block status bar mode too.
-#
-# /set awl_height_adjust <num>
-# * num : how many lines to leave empty in viewer mode
-#
-# /set awl_sort <-data_level|-last_line|refnum>
-# * you can change the window sort order with this variable
-# -data_level : sort windows with hilight first
-# -last_line : sort windows in order of activity
-# refnum : sort windows by window number
-# active/server/tag : sort by server name
-# lru : sort windows with the last recently used last
-# "-" reverses the sort order
-# typechecks are supported via ::, e.g. active::Query or active::Irc::Query
-# undefinedness can be checked with ~, e.g. ~active
-# string comparison can be done with =, e.g. name=(status)
-# to make sort case insensitive, use #i, e.g. name#i
-# any key in the window hash can be tested, e.g. active/chat_type=XMPP
-# multiple criteria can be separated with , or +, e.g. -data_level+-last_line
-#
-# /set awl_placement <top|bottom>
-# /set awl_position <num>
-# * these settings correspond to /statusbar because awl will create
-# status bars for you
-# (see /help statusbar to learn more)
-#
-# /set awl_all_disable <ON|OFF>
-# * if you set awl_all_disable to ON, awl will also remove the
-# last status bar it created if it is empty.
-# As you might guess, this only makes sense with awl_hide_data > 0 ;)
-#
-# /set awl_viewer <ON|OFF>
-# * enable the external viewer script
-#
-# /set awl_viewer_launch <ON|OFF>
-# * try to auto-launch the viewer under tmux or with a shell command
-# /awl restart is required all auto-launch related settings to take
-# effect
-#
-# /set awl_viewer_tmux_position <left|top|right|bottom|custom>
-# * try to split in this direction when using tmux for the viewer
-# custom : use custom_command setting
-#
-# /set awl_viewer_xwin_command <shell command>
-# * custom command to run in order to start the viewer when irssi is
-# running under X
-# %A - gets replaced by the command to run the viewer
-# %qA - additionally quote the command
-#
-# /set awl_viewer_custom_command <shell command>
-# * custom command to run in order to start the viewer
-#
-# /set awl_viewer_launch_env <string>
-# * specific environment settings for use on viewer auto-launch,
-# without the AWL_ prefix
-#
-# /set awl_shared_sbar <left<right|OFF>
-# * share a status bar for the first awl item, you will need to manually
-# /statusbar window add -after lag -priority 10 awl_shared
-# left : space in cells occupied on the left of status bar
-# right : space occupied on the right
-# Note: you need to replace "left" AND "right" with the appropriate numbers!
-#
-# /set awl_path <path>
-# * path to the file which the viewer script reads
-#
-# /set fancy_abbrev <no|head|strict|fancy>
-# * how to shorten too long names
-# no : shorten in the middle
-# head : always cut off the ends
-# strict : shorten repeating substrings
-# fancy : combination of no+strict
-#
-# /set awl_custom_xform <perl code>
-# * specify a custom routine to transform window names
-# example: s/^#// remove the #-mark of IRC channels
-# the special flags $CHANNEL / $TAG / $QUERY / $NAME can be
-# tested in conditionals
-#
-# /set awl_last_line_shade <timeout>
-# * set timeout to shade activity base colours, to enable
-# you also need to add +-last_line to awl_sort
-# (requires 256 colour support)
-#
-# /set awl_no_mode_hint <ON|OFF>
-# * whether to show the hint of running the viewer script in the
-# status bar
-#
-# /set awl_mouse <ON|OFF>
-# * enable the terminal mouse in irssi
-# (use the awl-patched mouse.pl for gestures and commands if you need
-# them and disable mouse_escape)
-#
-# /set awl_mouse_offset <num>
-# * specifies where on the screen is the awl status bar
-# (0 = on top/bottom, 1 = one additional line in between,
-# e.g. prompt)
-# you MUST set this correctly otherwise the mouse coordinates will
-# be off
-#
-# /set mouse_scroll <num>
-# * how many lines the mouse wheel scrolls
-#
-# /set mouse_escape <num>
-# * seconds to disable the mouse, when not clicked on the windowlist
-#
-
-# Commands
-# ========
-# /awl detach <num>
-# * hide the current window from the window list. num specifies the
-# data_level (optional)
-#
-# /awl attach
-# * unhide the current window from the window list
-#
-# /awl ack
-# * change to the next window with activity, ignoring detached windows
-#
-# /awl redraw
-# * redraws the windowlist. There may be occasions where the
-# windowlist can get destroyed so you can use this command to
-# force a redraw.
-#
-# /awl restart
-# * restart the connection to the viewer script.
-
-# Viewer script
-# =============
-# When run from the command line, adv_windowlist acts as the viewer
-# script to be used together with the irssi script to display the
-# window list in a sidebar/terminal of its own.
-#
-# One optional parameter is accepted, the awl_path
-#
-# The viewer can be configured by three environment variables:
-#
-# AWL_HI9=1
-# * interpret %9 as high-intensity toggle instead of bold. This had
-# been the default prior to version 0.9b8
-#
-# AWL_AUTOFOCUS=0
-# * disable auto-focus behaviour when activating a window
-#
-# AWL_NOTITLE=1
-# * disable the title bar
-
-# Nei =^.^= ( anti@conference.jabber.teamidiot.de )
-
-no warnings 'redefine';
-use constant IN_IRSSI => __PACKAGE__ ne 'main' || $ENV{IRSSI_MOCK};
-use constant SCRIPT_FILE => __FILE__;
-no if !IN_IRSSI, strict => (qw(subs refs));
-use if IN_IRSSI, Irssi => ();
-use if IN_IRSSI, 'Irssi::TextUI' => ();
-use v5.10;
-use Encode;
-use Storable ();
-use IO::Socket::UNIX;
-use List::Util qw(min max reduce);
-use Hash::Util qw(lock_keys);
-use Text::ParseWords qw(shellwords);
-
-BEGIN {
- if ($] < 5.012) {
- *CORE::GLOBAL::length = *CORE::GLOBAL::length = sub (_) {
- defined $_[0] ? CORE::length($_[0]) : undef
- };
- }
- *Irssi::active_win = {}; # hide incorrect warning
-}
-
-unless (IN_IRSSI) {
- local *_ = \@ARGV;
- &AwlViewer::main;
- exit;
-}
-
-
-use constant GLOB_QUEUE_TIMER => 100;
-
-our $BLOCK_ALL; # localized blocker
-my @actString; # status bar texts
-my @win_items;
-my $currentLines = 0;
-my %awins;
-my $globTime; # timer to limit remake calls
-
-my %CHANGED;
-my $VIEWER_MODE;
-my $MOUSE_ON;
-my %mouse_coords;
-my %statusbars;
-my %S; # settings
-my $settings_str = '1';
-my $window_sort_func;
-my $custom_xform;
-my ($sb_base_width, $sb_base_width_pre, $sb_base_width_post);
-my $print_text_activity;
-my $shade_line_timer;
-my ($screenHeight, $screenWidth);
-my %viewer;
-
-my (%keymap, %nummap, %wnmap, %specialmap, %wnmap_exp, %custom_key_map);
-my %banned_channels;
-my %detach_map;
-my %abbrev_cache;
-
-use constant setc => 'awl';
-
-sub set ($) {
- setc . '_' . $_[0]
-}
-
-sub add_statusbar {
- for (@_) {
- # add subs
- my $l = set $_;
- {
- my $close = $_;
- no strict 'refs';
- *{$l} = sub { awl($close, @_) };
- }
- Irssi::command("^statusbar $l reset");
- Irssi::command("statusbar $l enable");
- if (lc $S{placement} eq 'top') {
- Irssi::command("statusbar $l placement top");
- }
- if (my $x = $S{position}) {
- Irssi::command("statusbar $l position $x");
- }
- Irssi::command("statusbar $l add -priority 100 -alignment left barstart");
- Irssi::command("statusbar $l add $l");
- Irssi::command("statusbar $l add -priority 100 -alignment right barend");
- Irssi::command("statusbar $l disable");
- Irssi::statusbar_item_register($l, '$0', $l);
- $statusbars{$_} = 1;
- Irssi::command("statusbar $l enable");
- }
-}
-
-sub remove_statusbar {
- for (@_) {
- my $l = set $_;
- Irssi::command("statusbar $l disable");
- Irssi::command("statusbar $l reset");
- Irssi::statusbar_item_unregister($l);
- {
- no strict 'refs';
- undef &{$l};
- }
- delete $statusbars{$_};
- }
-}
-
-my $awl_shared_empty = sub {
- return if $BLOCK_ALL;
- my ($item, $get_size_only) = @_;
- $item->default_handler($get_size_only, '', '', 0);
-};
-
-sub syncLines {
- my $maxLines = $S{maxlines};
- my $newLines = ($maxLines > 0 and @actString > $maxLines) ?
- $maxLines :
- ($maxLines < 0) ?
- -$maxLines :
- @actString;
- $currentLines = 1 if !$currentLines && $S{shared_sbar};
- if ($S{shared_sbar} && !$statusbars{shared}) {
- my $l = set 'shared';
- {
- no strict 'refs';
- *{$l} = sub {
- return if $BLOCK_ALL;
- my ($item, $get_size_only) = @_;
-
- my $text = $actString[0];
- my $title = _get_format(set 'title');
- if (length $title) {
- $title =~ s{\\(.)|(.)}{
- defined $2 ? quotemeta $2
- : $1 eq 'V' ? '\u'
- : $1 eq ':' ? quotemeta ':%n'
- : $1 =~ /^[uUFQE]$/ ? "\\$1"
- : quotemeta "\\$1"
- }sge;
- $title = eval qq{"$title"};
- $title .= ' ';
- }
- my $pat = defined $text ? "{sb $title\$*}" : '{sb }';
- $text //= '';
- $item->default_handler($get_size_only, $pat, $text, 0);
- };
- }
- $statusbars{shared} = 1;
- remove_statusbar (0) if $statusbars{0};
- }
- elsif ($statusbars{shared} && !$S{shared_sbar}) {
- add_statusbar (0) if $currentLines && $newLines;
- delete $statusbars{shared};
- my $l = set 'shared';
- {
- no strict 'refs';
- *{$l} = $awl_shared_empty;
- }
- }
- if ($currentLines == $newLines) { return; }
- elsif ($newLines > $currentLines) {
- add_statusbar ($currentLines .. ($newLines - 1));
- }
- else {
- remove_statusbar (reverse ($newLines .. ($currentLines - 1)));
- }
- $currentLines = $newLines;
-}
-
-sub awl {
- return if $BLOCK_ALL;
- my ($line, $item, $get_size_only) = @_;
-
- my $text = $actString[$line];
- my $pat = defined $text ? '{sb $*}' : '{sb }';
- $text //= '';
- $item->default_handler($get_size_only, $pat, $text, 0);
-}
-
-# remove old statusbars
-{ my %killBar;
- sub get_old_status {
- my ($textDest, $cont, $cont_stripped) = @_;
- if ($textDest->{level} == 524288 and $textDest->{target} eq '' and !defined $textDest->{server}) {
- my $name = quotemeta(set '');
- if ($cont_stripped =~ m/^$name(\d+)\s/) { $killBar{$1} = 1; }
- Irssi::signal_stop;
- }
- }
- sub killOldStatus {
- %killBar = ();
- Irssi::signal_add_first('print text' => 'get_old_status');
- Irssi::command('statusbar');
- Irssi::signal_remove('print text' => 'get_old_status');
- remove_statusbar(keys %killBar);
- }
-}
-
-sub _add_map {
- my ($type, $target, $map) = @_;
- ($type->{$target}) = sort { length $a <=> length $b || $a cmp $b }
- $map, exists $type->{$target} ? $type->{$target} : ();
-}
-
-sub get_keymap {
- my ($textDest, undef, $cont_stripped) = @_;
- if ($textDest->{level} == 524288 and $textDest->{target} eq '' and !defined $textDest->{server}) {
- my $one_meta_or_ctrl_key = qr/((?:meta-)*?)(?:(meta-|\^)(\S)|(\w+))/;
- $cont_stripped = as_uni($cont_stripped);
- if ($cont_stripped =~ m/((?:$one_meta_or_ctrl_key-)*$one_meta_or_ctrl_key)\s+(.*)$/) {
- my ($combo, $command) = ($1, $10);
- my $map = '';
- while ($combo =~ s/(?:-|^)$one_meta_or_ctrl_key$//) {
- my ($level, $ctl, $key, $nkey) = ($1, $2, $3, $4);
- my $numlevel = ($level =~ y/-//);
- $ctl = '' if !$ctl || $ctl ne '^';
- $map = ('-' x ($numlevel%2)) . ('+' x ($numlevel/2)) .
- $ctl . (defined $key ? $key : "\01$nkey\01") . $map;
- }
- for ($command) {
- last unless length $map;
- if (/^change_window (\d+)/i) {
- _add_map(\%nummap, $1, $map);
- }
- elsif (/^(?:command window goto|change_window) (\S+)/i) {
- my $window = $1;
- if ($window !~ /\D/) {
- _add_map(\%nummap, $window, $map);
- }
- elsif (lc $window eq 'active') {
- _add_map(\%specialmap, '_active', $map);
- }
- else {
- _add_map(\%wnmap, $window, $map);
- }
- }
- elsif (/^(?:active_window|command ((awl )?ack))/i) {
- _add_map(\%specialmap, '_active', $map);
- $viewer{use_ack} = $1;
- }
- elsif (/^command window last/i) {
- _add_map(\%specialmap, '_last', $map);
- }
- elsif (/^(?:upper_window|command window up)/i) {
- _add_map(\%specialmap, '_up', $map);
- }
- elsif (/^(?:lower_window|command window down)/i) {
- _add_map(\%specialmap, '_down', $map);
- }
- elsif (/^key\s+(\w+)/i) {
- $custom_key_map{$1} = $map;
- }
- }
- }
- Irssi::signal_stop;
- }
-}
-
-sub update_keymap {
- %nummap = %wnmap = %specialmap = %custom_key_map = ();
- Irssi::signal_remove('command bind' => 'watch_keymap');
- Irssi::signal_add_first('print text' => 'get_keymap');
- Irssi::command('bind');
- Irssi::signal_remove('print text' => 'get_keymap');
- for (keys %custom_key_map) {
- if (exists $custom_key_map{$_} &&
- $custom_key_map{$_} =~ s/\01(\w+)\01/exists $custom_key_map{$1} ? $custom_key_map{$1} : "\02"/ge) {
- if ($custom_key_map{$_} =~ /\02/) {
- delete $custom_key_map{$_};
- }
- else {
- redo;
- }
- }
- }
- for my $keymap (\(%specialmap, %wnmap, %nummap)) {
- for (keys %$keymap) {
- if ($keymap->{$_} =~ s/\01(\w+)\01/exists $custom_key_map{$1} ? $custom_key_map{$1} : "\02"/ge) {
- if ($keymap->{$_} =~ /\02/) {
- delete $keymap->{$_};
- }
- }
- }
- }
- Irssi::signal_add('command bind' => 'watch_keymap');
- delete $viewer{client_keymap};
- &wl_changed;
-}
-
-# watch keymap changes
-sub watch_keymap {
- Irssi::timeout_add_once(1000, 'update_keymap', undef);
-}
-
-{ my %strip_table = (
- # fe-common::core::formats.c:format_expand_styles
- # delete format_backs format_fores bold_fores other stuff
- (map { $_ => '' } (split //, '04261537' . 'kbgcrmyw' . 'KBGCRMYW' . 'U9_8I:|FnN>#[' . 'pP')),
- # escape
- (map { $_ => $_ } (split //, '{}%')),
- );
- sub ir_strip_codes { # strip %codes
- my $o = shift;
- $o =~ s/(%(%|Z.{6}|z.{6}|X..|x..|.))/exists $strip_table{$2} ? $strip_table{$2} :
- $2 =~ m{x(?:0[a-f]|[1-6][0-9a-z]|7[a-x])|z[0-9a-f]{6}}i ? '' : $1/gex;
- $o
- }
-}
-## ir_parse_special -- wrapper around parse_special
-## $i - input format
-## $args - array ref of arguments to format
-## $win - different target window (default current window)
-## $flags - different kind of escape flags (default 4|8)
-## returns formatted str
-sub ir_parse_special {
- my $o;
- my $i = shift;
- my $args = shift // [];
- y/ /\177/ for @$args; # hack to escape spaces
- my $win = shift || Irssi::active_win;
- my $flags = shift // 0x4|0x8;
- my @cmd_args = ($i, (join ' ', @$args), $flags);
- my $server = Irssi::active_server();
- if (ref $win and ref $win->{active}) {
- $o = $win->{active}->parse_special(@cmd_args);
- }
- elsif (ref $win and ref $win->{active_server}) {
- $o = $win->{active_server}->parse_special(@cmd_args);
- }
- elsif (ref $server) {
- $o = $server->parse_special(@cmd_args);
- }
- else {
- $o = &Irssi::parse_special(@cmd_args);
- }
- $o =~ y/\177/ /;
- $o
-}
-
-sub sb_format_expand { # Irssi::current_theme->format_expand wrapper
- Irssi::current_theme->format_expand(
- $_[0],
- (
- Irssi::EXPAND_FLAG_IGNORE_REPLACES
- |
- ($_[1] ? 0 : Irssi::EXPAND_FLAG_IGNORE_EMPTY)
- )
- )
-}
-
-{ my $term_type = Irssi::version > 20040819 ? 'term_charset' : 'term_type';
- if (Irssi->can('string_width')) {
- *screen_length = sub { Irssi::string_width($_[0]) };
- }
- else {
- local $@;
- eval { require Text::CharWidth; };
- unless ($@) {
- *screen_length = sub { Text::CharWidth::mbswidth($_[0]) };
- }
- else {
- my $err = $@; chomp $err; $err =~ s/\sat .* line \d+\.$//;
- #Irssi::print("%_$IRSSI{name}: warning:%_ Text::CharWidth module failed to load. Length calculation may be off! Error was:");
- print "%_$IRSSI{name}:%_ $err";
- *screen_length = sub {
- my $temp = shift;
- if (lc Irssi::settings_get_str($term_type) eq 'utf-8') {
- Encode::_utf8_on($temp);
- }
- length($temp)
- };
- }
- }
- sub as_uni {
- no warnings 'utf8';
- Encode::decode(Irssi::settings_get_str($term_type), $_[0], 0)
- }
- sub as_tc {
- Encode::encode(Irssi::settings_get_str($term_type), $_[0], 0)
- }
-}
-
-sub sb_length {
- screen_length(ir_strip_codes($_[0]))
-}
-
-sub run_custom_xform {
- local $@;
- eval {
- $custom_xform->()
- };
- if ($@) {
- $@ =~ /^(.*)/;
- print '%_'.(set 'custom_xform').'%_ died (disabling): '.$1;
- $custom_xform = undef;
- }
-}
-
-sub remove_uniform {
- my $o = shift;
- $o =~ s/^xmpp:(.*?[%@]).+\.[^.]+$/$1/ or
- $o =~ s#^psyc://.+\.[^.]+/([@~].*)$#$1#;
- if ($custom_xform) {
- run_custom_xform() for $o;
- }
- $o
-}
-
-sub remove_uniform_vars {
- my $win = shift;
- my $name = __PACKAGE__ . '::custom_xform::' . $win->{active}{type}
- if ref $win->{active} && $win->{active}{type};
- no strict 'refs';
- local ${$name} = 1 if $name;
- remove_uniform(+shift);
-}
-
-sub lc1459 {
- my $x = shift;
- $x =~ y/][\\^/}{|~/;
- lc $x
-}
-
-sub window_list {
- my $i = 0;
- map { $_->[1] } sort $window_sort_func map { [ $i++, $_ ] } Irssi::windows;
-}
-
-sub _calculate_abbrev {
- my ($wins, $abbrevList) = @_;
- if ($S{fancy_abbrev} !~ /^(no|off|head)/i) {
- my @nameList = map { ref $_ ? remove_uniform_vars($_, as_uni($_->get_active_name) // '') : '' } @$wins;
- for (my $i = 0; $i < @nameList - 1; ++$i) {
- my ($x, $y) = ($nameList[$i], $nameList[$i + 1]);
- s/^[+#!=]// for $x, $y;
- my $res = exists $abbrev_cache{$x}{$y} ? $abbrev_cache{$x}{$y}
- : $abbrev_cache{$x}{$y} = string_LCSS($x, $y);
- if (defined $res) {
- for ($nameList[$i], $nameList[$i + 1]) {
- $abbrevList->{$_} //= int((index $_, $res) + (length $res) / 2);
- }
- }
- }
- }
-}
-
-my %act_last_line_shades = (
- r => [qw[ 50 40 30 20 ]],
- g => [qw[ 1O 1I 1C 16 ]],
- y => [qw[ 5O 4I 3C 26 ]],
- b => [qw[ 15 14 13 12 ]],
- m => [qw[ 54 43 32 21 ]],
- c => [qw[ 1S 1L 1E 17 ]],
- w => [qw[ 7W 7T 7Q 3E ]],
- K => [qw[ 7M 7K 27 7H ]],
- R => [qw[ 60 50 40 30 ]],
- G => [qw[ 1U 1O 1I 1C ]],
- Y => [qw[ 6U 5O 4I 3C ]],
- B => [qw[ 2B 2A 29 28 ]],
- M => [qw[ 65 54 43 32 ]],
- C => [qw[ 1Z 1S 1L 1E ]],
- W => [qw[ 6Z 5S 7R 7O ]],
- );
-
-sub _format_display {
- my (undef, $format, $cformat, $hilight, $name, $number, $key, $win) = @_;
- if ($print_text_activity && $S{line_shade}) {
- my @hilight_code = split /\177/, sb_format_expand("{$hilight \177}"), 2;
- my $max_time = max(1, log($S{line_shade}) - log(1000));
- my $time_delta = min(3, min($max_time, log(max(1, time - $win->{last_line}))) / $max_time * 3);
- if ($hilight_code[0] =~ /%(.)/ && exists $act_last_line_shades{$1}) {
- $hilight = 'sb_act_hilight_color %X'.$act_last_line_shades{$1}[$time_delta];
- }
- }
- $cformat = '$0' unless length $cformat;
- my %map = ('$C' => $cformat, '$N' => '$1', '$Q' => '$2');
- $format =~ s<(\$.)><$map{$1}//$1>ge;
- $format =~ s<\$H((?:\$.|[^\$])*?)\$S><{$hilight $1%n}>g;
- my @ret = ir_parse_special(sb_format_expand($format), [$name, $number, $key], $win);
- @ret
-}
-
-sub _get_format {
- Irssi::current_theme->get_format(__PACKAGE__, @_)
-}
-
-sub _is_detached {
- my ($win, $active_number) = @_;
- my $level = $win->{data_level} // 0;
- my $number = $win->{refnum};
- my $name = lc1459( as_uni($win->{name}) );
- my $active = lc1459( as_uni($win->get_active_name) // '' );
- my $tag = $win->{active} && $win->{active}{server} ? lc1459( as_uni($win->{active}{server}{tag}) // '' ) : '';
- my @cond = ($number);
- push @cond, "$name" if length $name;
- push @cond, "$tag/$active" if length $tag && length $active;
- push @cond, "$active" if length $active;
- push @cond, "$tag/*", "$tag/::all" if length $tag;
- push @cond, "*", "::all";
- for my $cond (@cond) {
- if (exists $detach_map{ $cond }) {
- my $dd = $detach_map{ $cond } // $S{detach_data};
- return $win->{data_level} < abs $dd
- && ($number != $active_number || 0 <= $dd);
- }
- }
- return;
-}
-
-sub _calculate_items {
- my ($wins, $abbrevList) = @_;
-
- my $display_header = _get_format(set 'display_header');
- my $name_format = _get_format(set 'name_display');
- my $abbrev_chars = as_uni(_get_format(set 'abbrev_chars'));
-
- my %displays;
-
- my $active = Irssi::active_win;
- @win_items = ();
- %keymap = (%nummap, %wnmap_exp);
-
- my ($numPad, $keyPad) = (0, 0);
- if ($VIEWER_MODE or $S{block} < 0) {
- $numPad = length((sort { length $b <=> length $a } keys %keymap)[0]) // 0;
- $keyPad = length((sort { length $b <=> length $a } values %keymap)[0]) // 0;
- }
- my $last_net;
- my ($abbrev1, $abbrev2) = $abbrev_chars =~ /(\X)(.*)/;
- my @abbrev_chars = ('~', "\x{301c}");
- unless (defined $abbrev1 && screen_length(as_tc($abbrev1)) == 1) { $abbrev1 = $abbrev_chars[0] }
- unless (length $abbrev2) {
- $abbrev2 = $abbrev1;
- if ($abbrev1 eq $abbrev_chars[0]) {
- $abbrev2 = $abbrev_chars[1];
- }
- else {
- $abbrev2 = $abbrev1;
- }
- }
- if (screen_length(as_tc($abbrev2)) == 1) {
- $abbrev2 x= 2;
- }
- while (screen_length(as_tc($abbrev2)) > 2) {
- chop $abbrev2;
- }
- unless (screen_length(as_tc($abbrev2)) == 2) {
- $abbrev2 = $abbrev_chars[1];
- }
- for my $win (@$wins) {
- my $global_tag_header_mode;
-
- next unless ref $win;
-
- my $backup_win = Storable::dclone($win);
- delete $backup_win->{active} unless ref $backup_win->{active};
-
- $global_tag_header_mode =
- $display_header && ($last_net // '') ne ($backup_win->{active}{server}{tag} // '');
-
- if ($win->{data_level} < abs $S{hide_data}
- && ($win->{refnum} != $active->{refnum} || 0 <= $S{hide_data})) {
- next; }
- elsif (exists $awins{$win->{refnum}} && $S{hide_empty} && !$win->items
- && ($win->{refnum} != $active->{refnum} || 0 <= $S{hide_empty})) {
- next; }
- elsif (_is_detached($win, $active->{refnum})) {
- next; }
-
- my $colour = $win->{hilight_color} // '';
- my $hilight = do {
- if ($win->{data_level} == 0) { 'sb_act_none'; }
- elsif ($win->{data_level} == 1) { 'sb_act_text'; }
- elsif ($win->{data_level} == 2) { 'sb_act_msg'; }
- elsif ($colour ne '') { "sb_act_hilight_color $colour"; }
- elsif ($win->{data_level} == 3) { 'sb_act_hilight'; }
- else { 'sb_act_special'; }
- };
- my $number = $win->{refnum};
-
- my ($name, $display, $cdisplay);
- if ($global_tag_header_mode) {
- $display = $display_header;
- $name = as_uni($backup_win->{active}{server}{tag}) // '';
- if ($custom_xform) {
- no strict 'refs';
- local ${ __PACKAGE__ . '::custom_xform::TAG' } = 1;
- run_custom_xform() for $name;
- }
- }
- else {
- my @display = ('display_nokey');
- if (defined $keymap{$number} and $keymap{$number} ne '') {
- unshift @display, map { (my $cpy = $_) =~ s/_no/_/; $cpy } @display;
- }
- if (exists $awins{$number}) {
- unshift @display, map { my $cpy = $_; $cpy .= '_visible'; $cpy } @display;
- }
- if ($active->{refnum} == $number) {
- unshift @display, map { my $cpy = $_; $cpy .= '_active'; $cpy }
- grep { !/_visible$/ } @display;
- }
- $display = (grep { length $_ }
- map { $displays{$_} //= _get_format(set $_) }
- @display)[0];
- $cdisplay = $name_format;
- $name = as_uni($win->get_active_name) // '';
- $name = '*' if $S{banned_on} and exists $banned_channels{lc1459($name)};
- $name = remove_uniform_vars($win, $name) if $name ne '*';
- if ($name ne '*' and $win->{name} ne '' and $S{prefer_name}) {
- $name = as_uni($win->{name});
- if ($custom_xform) {
- no strict 'refs';
- local ${ __PACKAGE__ . '::custom_xform::NAME' } = 1;
- run_custom_xform() for $name;
- }
- }
-
- if (!$VIEWER_MODE && $S{block} >= 0 && $S{hide_name}
- && $win->{data_level} < abs $S{hide_name}
- && ($win->{refnum} != $active->{refnum} || 0 <= $S{hide_name})) {
- $name = '';
- $cdisplay = '';
- }
- }
-
- $display = "$display%n";
- my $num_ent = (' 'x max(0,$numPad - length $number)) . $number;
- my $key_ent = exists $keymap{$number} ? ((' 'x max(0,$keyPad - length $keymap{$number})) . $keymap{$number}) : ' 'x$keyPad;
- if ($VIEWER_MODE or $S{sbar_maxlen} or $S{block} < 0) {
- my $baseLength = sb_length(_format_display(
- '', $display, $cdisplay, $hilight,
- 'x', # placeholder
- $num_ent,
- $key_ent,
- $win)) - 1;
- my $diff = (abs $S{block}) - (screen_length(as_tc($name)) + $baseLength);
- if ($diff < 0) { # too long
- my $screen_length = screen_length(as_tc($name));
- if ((abs $diff) >= $screen_length) { $name = '' } # forget it
- elsif ((abs $diff) + screen_length(as_tc(substr($name, 0, 1))) >= $screen_length) { $name = substr($name, 0, 1); }
- else {
- my $ulen = length $name;
- my $middle2 = exists $abbrevList->{$name} ?
- ($S{fancy_strict}) ?
- 2* $abbrevList->{$name} :
- (2*($abbrevList->{$name} + $ulen) / 3) :
- ($S{fancy_head}) ?
- 2*$ulen :
- $ulen;
- my $first = 1;
- while (length $name > 1) {
- my $cp = $middle2 >= 0 ? $middle2/2 : -1; # clearing position
- my $rm = 2;
- # if character at end is wider than 1 cell -> replace it with ~
- if (screen_length(as_tc(substr $name, $cp, 1)) > 1) {
- if ($first || $cp < 0) {
- $rm = 1;
- $first = undef;
- }
- }
- elsif ($cp < 0) { # elsif at end -> replace last 2 characters
- --$cp;
- }
- (substr $name, $cp, $rm) = $abbrev1;
- if ($cp > -1 && $rm > 1) {
- --$middle2;
- }
- my $sl = screen_length(as_tc($name));
- if ($sl + $baseLength < abs $S{block}) {
- (substr $name, ($middle2+1)/2, 1) = $abbrev2;
- last;
- }
- elsif ($sl + $baseLength == abs $S{block}) {
- last;
- }
- }
- }
- }
- elsif ($VIEWER_MODE or $S{block} < 0) {
- $name .= (' ' x $diff);
- }
- }
-
- push @win_items, _format_display(
- '', $display, $cdisplay, $hilight,
- as_tc($name),
- $num_ent,
- as_tc($key_ent),
- $win);
-
- if ($global_tag_header_mode) {
- $last_net = $backup_win->{active}{server}{tag};
- redo;
- }
-
- $mouse_coords{refnum}{$#win_items} = $number;
- }
-}
-
-sub _spread_items {
- my $width = $screenWidth - $sb_base_width - 1;
- my @separator = _get_format(set 'separator');
- if ($S{block} >= 0) {
- my $sep2 = _get_format(set 'separator2');
- push @separator, $sep2 if length $sep2 && $sep2 ne $separator[0];
- }
- $separator[0] .= '%n';
- my @sepLen = map { sb_length($_) } @separator;
-
- @actString = ();
- my $curLine;
- my $curLen = 0;
- if ($S{shared_sbar}) {
- $curLen += $S{shared_sbar}[0] + 2;
- $width -= $S{shared_sbar}[2];
- }
- my $mouse_header_check = 0;
- for my $it (@win_items) {
- my $itemLen = sb_length($it);
- if ($curLen) {
- if ($curLen + $itemLen + $sepLen[$mouse_header_check % @sepLen] > $width) {
- $width += $S{shared_sbar}[2]
- if !@actString && $S{shared_sbar};
- push @actString, $curLine;
- $curLine = undef;
- $curLen = 0;
- }
- elsif (defined $curLine) {
- $curLine .= $separator[$mouse_header_check % @separator];
- $curLen += $sepLen[$mouse_header_check % @sepLen];
- }
- }
- $curLine .= $it;
- if (exists $mouse_coords{refnum}{$mouse_header_check}) {
- $mouse_coords{scalar @actString}{ $_ } = $mouse_coords{refnum}{$mouse_header_check}
- for $curLen .. $curLen + $itemLen - 1;
- }
- $curLen += $itemLen;
- }
- continue {
- ++$mouse_header_check;
- }
- $curLen -= $S{shared_sbar}[0]
- if !@actString && $S{shared_sbar};
- push @actString, $curLine if $curLen;
-}
-
-sub remake {
- my %abbrevList;
- my @wins = window_list();
- if ($VIEWER_MODE or $S{sbar_maxlen} or $S{block} < 0) {
- _calculate_abbrev(\@wins, \%abbrevList);
- }
-
- %mouse_coords = ( refnum => +{} );
- _calculate_items(\@wins, \%abbrevList);
-
- unless ($VIEWER_MODE) {
- _spread_items();
-
- push @actString, undef unless @actString || $S{all_disable};
- }
-}
-
-sub update_wl {
- return if $BLOCK_ALL;
- remake();
-
- Irssi::statusbar_items_redraw(set $_) for keys %statusbars;
-
- unless ($VIEWER_MODE) {
- Irssi::timeout_add_once(100, 'syncLines', undef);
- }
- else {
- syncViewer();
- }
-}
-
-sub screenFullRedraw {
- my ($window) = @_;
- if (!ref $window or $window->{refnum} == Irssi::active_win->{refnum}) {
- $viewer{fullRedraw} = 1 if $viewer{client};
- $settings_str = '';
- &setup_changed;
- }
-}
-
-sub restartViewerServer {
- if ($VIEWER_MODE) {
- stop_viewer();
- start_viewer();
- }
-}
-
-sub _simple_quote {
- my @r = map {
- my $x = $_;
- $x =~ s/'/'"'"'/g;
- $x = "'$x'";
- } @_;
- wantarray ? @r : shift @r
-}
-
-sub _viewer_command_replace_format {
- my ($ecmd, @args) = @_;
- my $file = _simple_quote(SCRIPT_FILE());
- my $path = _simple_quote($viewer{path});
- my @env;
- for my $env (shellwords($S{viewer_launch_env})) {
- if ($env =~ /^(\w+)(?:=(.*))$/) {
- push @env, "AWL_$1=$2"
- }
- }
- my $cmd = join ' ',
- (@env ? ('env', _simple_quote(@env)) : ()),
- 'perl', $file, '-1', _simple_quote(@args), $path;
- $ecmd =~ s{%(%|\w+)}{
- my $sub = $1;
- if ($sub eq '%') {
- '%'
- }
- elsif ($sub =~ /^(q*)A(.*)/) {
- my $ret = $cmd;
- for (1..length $1) {
- $ret = _simple_quote($ret);
- }
- "$ret$2"
- }
- else {
- "%$sub"
- }
- }gex;
- $ecmd
-}
-
-sub start_viewer {
- unlink $viewer{path} if -S $viewer{path} || -p _;
-
- $viewer{server} = IO::Socket::UNIX->new(
- Type => SOCK_STREAM,
- Local => $viewer{path},
- Listen => 1
- );
- unless ($viewer{server}) {
- $viewer{msg} = "Viewer: $!";
- $viewer{retry} = Irssi::timeout_add_once(5000, 'retry_viewer', 1);
- return;
- }
- $viewer{server}->blocking(0);
- set_viewer_mode_hint();
- $viewer{server_tag} = Irssi::input_add($viewer{server}->fileno, INPUT_READ, 'vi_connected', undef);
-
- if ($S{viewer_launch}) {
- if (length $ENV{TMUX_PANE} && length $ENV{TMUX} && lc $S{viewer_tmux_position} ne 'custom') {
- my $cmd = _viewer_command_replace_format('%qA', '-p', lc $S{viewer_tmux_position});
- Irssi::command("exec - tmux neww -d $cmd 2>&1 &");
- }
- elsif (length $ENV{WINDOWID} && length $ENV{DISPLAY} && length $S{viewer_xwin_command} && $S{viewer_xwin_command} =~ /\S/) {
- my $cmd = _viewer_command_replace_format($S{viewer_xwin_command});
- Irssi::command("exec - $cmd 2>&1 &");
- }
- elsif (length $S{viewer_custom_command} && $S{viewer_custom_command} =~ /\S/) {
- my $cmd = _viewer_command_replace_format($S{viewer_custom_command});
- Irssi::command("exec - $cmd 2>&1 &");
- }
- }
-}
-
-sub set_viewer_mode_hint {
- return unless $viewer{server};
- if ($S{no_mode_hint}) {
- $viewer{msg} = undef;
- }
- else {
- my ($name) = __PACKAGE__ =~ /::([^:]+)$/;
- $viewer{msg} = "Run $name from the shell or switch to sbar mode";
- }
-}
-
-sub retry_viewer {
- start_viewer();
-}
-
-sub vi_close_client {
- Irssi::input_remove(delete $viewer{client_tag}) if exists $viewer{client_tag};
- $viewer{client}->close if $viewer{client};
- delete $viewer{client};
- delete $viewer{client_keymap};
- delete $viewer{client_settings};
- delete $viewer{client_env};
- delete $viewer{fullRedraw};
-}
-
-sub vi_connected {
- vi_close_client();
- $viewer{client} = $viewer{server}->accept or return;
- $viewer{client}->blocking(0);
- $viewer{client_tag} = Irssi::input_add($viewer{client}->fileno, INPUT_READ, 'vi_clientinput', undef);
- syncViewer();
-}
-
-use constant VIEWER_BLOCK_SIZE => 1024;
-sub vi_clientinput {
- if ($viewer{client}->read(my $buf, VIEWER_BLOCK_SIZE)) {
- $viewer{rcvbuf} .= $buf;
- if ($viewer{rcvbuf} =~ s/^(?:(active|\d+)|(last|up|down))\n//igm) {
- if (defined $2) {
- Irssi::command("window $2");
- }
- elsif (lc $1 eq 'active' && $viewer{use_ack}) {
- Irssi::command($viewer{use_ack});
- }
- else {
- Irssi::command("window goto $1");
- }
- }
- }
- else {
- vi_close_client();
- Irssi::timeout_add_once(100, 'syncViewer', undef);
- }
-}
-
-sub stop_viewer {
- Irssi::timeout_remove(delete $viewer{retry}) if exists $viewer{retry};
- vi_close_client();
- Irssi::input_remove(delete $viewer{server_tag}) if exists $viewer{server_tag};
- return unless $viewer{server};
- $viewer{server}->close;
- delete $viewer{server};
-}
-sub _encode_var {
- my $str;
- while (@_) {
- my ($name, $var) = splice @_, 0, 2;
- my $type = ref $var ? $var =~ /HASH/ ? 'map' : $var =~ /ARRAY/ ? 'list' : '' : '';
- $str .= "\n\U$name$type\_begin\n";
- if ($type eq 'map') {
- no warnings 'numeric';
- $str .= " $_\n ${$var}{$_}\n" for sort { $a <=> $b || $a cmp $b } keys %$var;
- }
- elsif ($type eq 'list') {
- $str .= " $_\n" for @$var;
- }
- else {
- $str .= " $var\n";
- }
- $str .= "\U$name$type\_end\n";
- }
- $str
-}
-sub syncViewer {
- if ($viewer{client}) {
- @actString = ();
- if ($currentLines) {
- killOldStatus();
- $currentLines = 0;
- }
- my $str;
- unless ($viewer{client_keymap}) {
- $str .= _encode_var('key', +{ %nummap, %specialmap });
- $viewer{client_keymap} = 1;
- }
- unless ($viewer{client_settings}) {
- $str .= _encode_var(
- block => $S{block},
- ha => $S{height_adjust},
- mc => $S{maxcolumns},
- ml => $S{maxlines},
- );
- $viewer{client_settings} = 1;
- }
- unless ($viewer{client_env}) {
- $str .= _encode_var(irssienv => +{
- length $ENV{TMUX_PANE} && length $ENV{TMUX} ?
- (tmux_pane => $ENV{TMUX_PANE},
- tmux_srv => $ENV{TMUX}) : (),
- length $ENV{WINDOWID} ?
- (xwinid => $ENV{WINDOWID}) : (),
- });
- $viewer{client_env} = 1;
- }
- my $separator = _get_format(set 'separator');
- my $sepLen = sb_length($separator);
- my $item_bg = _get_format(set 'viewer_item_bg');
- my $title = _get_format(set 'title');
- if (length $title) {
- $title =~ s{\\(.)|(.)}{
- defined $2 ? quotemeta $2
- : $1 eq 'V' ? '\U'
- : $1 eq ':' ? quotemeta '%N'
- : $1 =~ /^[uUFQE]$/ ? "\\$1"
- : quotemeta "\\$1"
- }sge;
- $title = eval qq{"$title"};
- }
- $str .= _encode_var(redraw => 1) if delete $viewer{fullRedraw};
- $str .= _encode_var(separator => $separator,
- seplen => $sepLen,
- itembg => $item_bg,
- title => $title,
- mouse => $mouse_coords{refnum},
- key2 => \%wnmap_exp,
- win => \@win_items);
-
- my $was = $viewer{client}->blocking(1);
- $viewer{client}->print($str);
- $viewer{client}->blocking($was);
- }
- elsif ($viewer{server}) {
- if (defined $viewer{msg}) {
- @actString = ((uc setc()).": $viewer{msg}");
- }
- else {
- @actString = ();
- }
- }
- elsif (defined $viewer{msg}) {
- @actString = ((uc setc()).": $viewer{msg}");
- }
- if (@actString) {
- Irssi::timeout_add_once(100, 'syncLines', undef);
- }
- elsif ($currentLines) {
- killOldStatus();
- $currentLines = 0;
- }
-}
-
-sub reset_awl {
- Irssi::timeout_remove($shade_line_timer) if $shade_line_timer; $shade_line_timer = undef;
- my $was_sort = $S{sort} // '';
- my $was_xform = $S{xform} // '';
- my $was_shared = $S{shared_sbar};
- my $was_no_hint = $S{no_mode_hint};
- %S = (
- sort => Irssi::settings_get_str( set 'sort'),
- fancy_abbrev => Irssi::settings_get_str('fancy_abbrev'),
- xform => Irssi::settings_get_str( set 'custom_xform'),
- block => Irssi::settings_get_int( set 'block'),
- banned_on => Irssi::settings_get_bool('banned_channels_on'),
- prefer_name => Irssi::settings_get_bool(set 'prefer_name'),
- hide_data => Irssi::settings_get_int( set 'hide_data'),
- hide_name => Irssi::settings_get_int( set 'hide_name_data'),
- hide_empty => Irssi::settings_get_int( set 'hide_empty'),
- detach => Irssi::settings_get_str( set 'detach'),
- detach_data => Irssi::settings_get_int( set 'detach_data'),
- detach_aht => Irssi::settings_get_bool(set 'detach_aht'),
- sbar_maxlen => Irssi::settings_get_bool(set 'sbar_maxlength'),
- placement => Irssi::settings_get_str( set 'placement'),
- position => Irssi::settings_get_int( set 'position'),
- maxlines => Irssi::settings_get_int( set 'maxlines'),
- maxcolumns => Irssi::settings_get_int( set 'maxcolumns'),
- all_disable => Irssi::settings_get_bool(set 'all_disable'),
- height_adjust => Irssi::settings_get_int( set 'height_adjust'),
- mouse_offset => Irssi::settings_get_int( set 'mouse_offset'),
- mouse_scroll => Irssi::settings_get_int( 'mouse_scroll'),
- mouse_escape => Irssi::settings_get_int( 'mouse_escape'),
- line_shade => Irssi::settings_get_time(set 'last_line_shade'),
- no_mode_hint => Irssi::settings_get_bool(set 'no_mode_hint'),
- viewer_launch => Irssi::settings_get_bool(set 'viewer_launch'),
- viewer_launch_env => Irssi::settings_get_str(set 'viewer_launch_env'),
- viewer_xwin_command => Irssi::settings_get_str(set 'viewer_xwin_command'),
- viewer_custom_command => Irssi::settings_get_str(set 'viewer_custom_command'),
- viewer_tmux_position => Irssi::settings_get_str(set 'viewer_tmux_position'),
- );
- $S{fancy_strict} = $S{fancy_abbrev} =~ /^strict/i;
- $S{fancy_head} = $S{fancy_abbrev} =~ /^head/i;
- my $shared = Irssi::settings_get_str(set 'shared_sbar');
- if ($shared =~ /^(\d+)([<])(\d+)$/) {
- $S{shared_sbar} = [$1, $2, $3];
- }
- else {
- Irssi::settings_set_str(set 'shared_sbar', 'OFF');
- $S{shared_sbar} = undef;
- }
- lock_keys(%S);
- if ($was_sort ne $S{sort}) {
- $print_text_activity = undef;
- my @sort_order = grep { @$_ > 4 } map {
- s/^\s*//;
- my $reverse = s/^\W*\K[-!]//;
- my $undef_check = s/^\W*\K~// ? 1 : undef;
- my $equal_check = s/=(.*)\s?$// ? $1 : undef;
- s/\s*$//;
- my $ignore_case = s/#i$// ? 1 : undef;
-
- $print_text_activity = 1 if $_ eq 'last_line';
-
- my @path = split '/';
- my $class_check = @path && $path[-1] =~ s/(::.*)$// ? $1 : undef;
- my $lru = "@path" eq 'lru';
-
- [ $reverse ? -1 : 1, $undef_check, $equal_check, $class_check, $ignore_case, $lru, @path ]
- } "$S{sort}," =~ /([^+,]*|[^+,]*=[^,]*?\s(?=\+)|[^+,]*=[^,]*)[+,]/g;
- $window_sort_func = sub {
- no warnings qw(numeric uninitialized);
- for my $so (@sort_order) {
- my @x = map {
- my $ret = 0;
- $_ = lc1459($_) if defined $_ && !ref $_ && $so->[4];
- $ret = $_ eq ($so->[4] ? lc1459($so->[2]) : $so->[2]) ? 1 : -1 if defined $so->[2];
- $ret = defined $_ ? ($ret || -3) : 3 if $so->[1];
- $ret = ref $_ && $_->isa('Irssi'.$so->[3]) ? 2 : ($ret || -2) if $so->[3];
- -$ret || $_
- }
- map {
- $so->[5] ? $_->[0] : reduce { return unless ref $a; $a->{$b} } $_->[1], @{$so}[6..$#$so]
- } $a, $b;
- return ((($x[0] <=> $x[1] || $x[0] cmp $x[1]) * $so->[0]) || next);
- }
- return ($a->[1]{refnum} <=> $b->[1]{refnum});
- };
- }
- if ($was_xform ne $S{xform}) {
- if ($S{xform} !~ /\S/) {
- $custom_xform = undef;
- }
- else {
- my $script_pkg = __PACKAGE__ . '::custom_xform';
- local $@;
- $custom_xform = eval qq{
-package $script_pkg;
-use strict;
-no warnings;
-our (\$QUERY, \$CHANNEL, \$TAG, \$NAME);
-return sub {
-# line 1 @{[ set 'custom_xform' ]}\n$S{xform}\n}};
- if ($@) {
- $@ =~ /^(.*)/;
- print '%_'.(set 'custom_xform').'%_ did not compile: '.$1;
- }
- }
- }
-
- my $new_settings = join "\n", $VIEWER_MODE
- ? ("\\", $S{block}, $S{height_adjust}, $S{maxlines}, $S{maxcolumns})
- : ("!", $S{placement}, $S{position});
-
- my $first_viewer = $settings_str eq '1';
- if ($settings_str ne $new_settings) {
- @actString = ();
- %abbrev_cache = ();
- $currentLines = 0;
- killOldStatus();
- delete $viewer{client_settings};
- $settings_str = $new_settings;
- }
-
- my $was_mouse_mode = $MOUSE_ON;
- if ($MOUSE_ON = Irssi::settings_get_bool(set 'mouse') and !$was_mouse_mode) {
- install_mouse();
- }
- elsif ($was_mouse_mode and !$MOUSE_ON) {
- uninstall_mouse();
- }
-
- unless ($first_viewer) {
- my $path = Irssi::settings_get_str(set 'path');
- my $was_viewer_mode = $VIEWER_MODE;
- if ($was_viewer_mode &&
- defined $viewer{path} && $viewer{path} ne $path) {
- stop_viewer();
- $was_viewer_mode = 0;
- }
- elsif ($was_viewer_mode && $S{no_mode_hint} != $was_no_hint + 0) {
- set_viewer_mode_hint();
- }
- $viewer{path} = $path;
- if ($VIEWER_MODE = Irssi::settings_get_bool(set 'viewer') and !$was_viewer_mode) {
- start_viewer();
- }
- elsif ($was_viewer_mode and !$VIEWER_MODE) {
- stop_viewer();
- }
- }
-
- %banned_channels = map { lc1459(as_uni($_)) => undef }
- split ' ', Irssi::settings_get_str('banned_channels');
-
- %detach_map = ($S{detach_aht}
- ? (map { ( lc1459(as_uni($_)) => undef ) }
- split ' ', Irssi::settings_get_str('activity_hide_targets')) : (),
- (map { my ($k, $v) = (split /(?:,(-?\d+))$/, $_)[0, 1];
- ( lc1459(as_uni($k)) => $v ) }
- split ' ', $S{detach}));
-
- my @sb_base = split /\177/, sb_format_expand("{sbstart}{sb \177}{sbend}"), 2;
- $sb_base_width_pre = sb_length($sb_base[0]);
- $sb_base_width_post = max 0, sb_length($sb_base[1])-1;
- $sb_base_width = $sb_base_width_pre + $sb_base_width_post;
-
- if ($print_text_activity && $S{line_shade}) {
- $shade_line_timer = Irssi::timeout_add(max(10 * GLOB_QUEUE_TIMER, 100*$S{line_shade}**(1/3)), 'wl_changed', undef);
- }
-
- $CHANGED{AWINS} = 1;
-}
-
-sub hide_window {
- my ($data) = @_;
- my $ent;
-
- $data =~ s/\s*$//;
- my $win = Irssi::active_win;
- my $number = $win->{refnum};
- my $name = as_uni($win->{name});
- my $active = as_uni($win->get_active_name) // '';
- my $tag = $win->{active} && $win->{active}{server} ? as_uni($win->{active}{server}{tag}) // '' : '';
- if (length $name) {
- $ent = "$name";
- }
- elsif (length $tag && length $active) {
- $ent = "$tag/$active";
- }
- else {
- $ent = "$number";
- }
-
- my $found = 0;
- my @setting;
- for my $s (split ' ', $S{detach}) {
- my ($k, $v) = (split /(?:,(-?\d+))$/, $s)[0, 1];
- if (lc1459(as_uni($k)) eq lc1459($ent)) {
- unless ($found) {
- if ($data =~ /^(-?\d+)$/) {
- $ent .= ",$1";
- }
- if (defined $v && 0 == abs $v) {
- $win->print("Hiding window $ent");
- }
- push @setting, as_tc($ent);
- $found = 1;
- }
- }
- else {
- push @setting, defined $v ? "$k,$v" : $k;
- }
- }
- unless ($found) {
- $win->print("Hiding window $ent");
- if ($data =~ /^(-?\d+)$/) {
- $ent .= ",$1";
- }
- push @setting, as_tc($ent);
- }
-
- if (@setting) {
- Irssi::command("^set ".(set 'detach')." @setting");
- } else {
- Irssi::command("^set -clear ".(set 'detach'));
- }
-}
-
-sub unhide_window {
- my ($data, $server, $witem) = @_;
- my $win = Irssi::active_win;
- my $number = $win->{refnum};
- my $name = as_uni($win->{name});
- my $active = as_uni($win->get_active_name) // '';
- my $tag = $win->{active} && $win->{active}{server} ? as_uni($win->{active}{server}{tag}) // '' : '';
-
- my %detach_aht;
- if ($S{detach_aht}) {
- %detach_aht = (map { ( lc1459(as_uni($_)) => undef ) }
- split ' ', Irssi::settings_get_str('activity_hide_targets'));
- }
- my @setting;
- my @kills = (length $name ? $name : undef,
- length $tag && length $active ? "$tag/$active" : undef,
- length $active ? $active : undef,
- $number);
- my @was_unhidden = (0) x @kills;
- for my $s (split ' ', $S{detach}) {
- my ($k, $v) = (split /(?:,(-?\d+))$/, $s)[0, 1];
- my $k2 = lc1459(as_uni($k));
- my $kill;
- for my $ki (0..$#kills) {
- if (defined $kills[$ki] && $k2 eq lc1459($kills[$ki])) {
- $kill = $ki;
- }
- }
-
- if (defined $kill) {
- if (defined $v && 0 == abs $v) {
- $was_unhidden[$kill] = 1;
- push @setting, defined $v ? "$k,$v" : $k;
- } else {
- $win->print("Unhiding window $kills[$kill]");
- }
- }
- else {
- push @setting, defined $v ? "$k,$v" : $k;
- }
- }
- my @is_hidden = (defined $kills[0] && (exists $detach_map{"*"} || exists $detach_map{"::all"}),
- defined $kills[1] && (exists $detach_map{lc1459("$tag/*")} || exists $detach_map{lc1459("$tag/::all")}
- || exists $detach_map{"*"} || exists $detach_map{"::all"}),
- defined $kills[2] && (exists $detach_map{"*"} || exists $detach_map{"::all"}),
- (exists $detach_map{"*"} || exists $detach_map{"::all"})
- );
- for my $ki (1, 2, 0, 3) {
- if ($is_hidden[$ki]) {
- unless ($was_unhidden[$ki]) {
- $win->print("Unhiding window $kills[$ki]");
- push @setting, "$kills[$ki],0";
- $was_unhidden[$ki] = 1;
- }
- last;
- }
- }
- my @is_hidden_aht = (defined $kills[0] && (exists $detach_aht{lc1459($name)}
- || exists $detach_aht{"*"} || exists $detach_aht{"::all"}),
- defined $kills[1] && (exists $detach_aht{lc1459("$tag/$active")}
- || exists $detach_aht{lc1459($active)}
- || exists $detach_aht{lc1459("$tag/*")} || exists $detach_aht{lc1459("$tag/::all")}
- || exists $detach_aht{"*"} || exists $detach_aht{"::all"}),
- defined $kills[2] && (exists $detach_aht{lc1459($active)}
- || exists $detach_aht{"*"} || exists $detach_aht{"::all"}),
- (exists $detach_aht{$number} || exists $detach_aht{"*"} || exists $detach_aht{"::all"})
- );
- for my $ki (1, 2, 0, 3) {
- if ($is_hidden_aht[$ki]) {
- unless ($was_unhidden[$ki]) {
- $win->print("Unhiding window $kills[$ki], it is hidden because ".(set 'detach_aht')." is ON");
- push @setting, "$kills[$ki],0";
- $was_unhidden[$ki] = 1;
- }
- last;
- }
- }
-
- if (@setting) {
- Irssi::command("^set ".(set 'detach')." @setting");
- } else {
- Irssi::command("^set -clear ".(set 'detach'));
- }
-}
-
-sub ack_window {
- my ($data, $server, $witem) = @_;
- my $win = Irssi::active_win;
- my $number = $win->{refnum};
- if (grep { $_->{cmd} eq 'ack' } Irssi::commands) {
- my $Orig_Irssi_windows = \&Irssi::windows;
- local *Irssi::windows = sub () { grep { !_is_detached($_, $number) } $Orig_Irssi_windows->() };
- Irssi::command("ack" . (length $data ? " $data" : ""));
- } else {
- my $ignore_refnum = Irssi::settings_get_bool('active_window_ignore_refnum');
- my $max_win;
- my $max_act = 0;
- my $max_ref = 0;
- for my $rec (Irssi::windows) {
- next if _is_detached($rec, $number);
-
- # ignore refnum
- if ($ignore_refnum &&
- $rec->{data_level} > 0 && $max_act < $rec->{data_level}) {
- $max_act = $rec->{data_level};
- $max_win = $rec;
- }
-
- # windows with lower refnums break ties
- elsif (!$ignore_refnum &&
- $rec->{data_level} > 0 &&
- ($rec->{data_level} > $max_act ||
- ($rec->{data_level} == $max_act && $rec->{refnum} < $max_ref))) {
- $max_act = $rec->{data_level};
- $max_win = $rec;
- $max_ref = $rec->{refnum};
- }
- }
- $max_win->set_active if defined $max_win;
- }
-}
-
-sub refnum_changed {
- my ($win, $old_refnum) = @_;
- my @old_setting = split ' ', $S{detach};
- my @setting = map {
- my ($k, $v) = (split /(?:,(-?\d+))$/, $_)[0, 1];
- if ($k eq $old_refnum) {
- $win->{refnum} . (defined $v ? ",$v" : "")
- }
- else {
- $_
- }
- } @old_setting;
- if ("@old_setting" ne "@setting") {
- $S{detach} = "@setting";
- Irssi::settings_set_str(set 'detach', "@setting");
- &setup_changed;
- }
- else {
- &wl_changed;
- }
-}
-
-sub window_destroyed {
- my ($win) = @_;
- my @old_setting = split ' ', $S{detach};
- my @setting = grep {
- my ($k, $v) = (split /(?:,(-?\d+))$/, $_)[0, 1];
- if ($k eq $win->{refnum}) {
- 0;
- }
- else {
- 1;
- }
- } @old_setting;
- if ("@old_setting" ne "@setting") {
- $S{detach} = "@setting";
- Irssi::settings_set_str(set 'detach', "@setting");
- &setup_changed;
- }
- else {
- &awins_changed;
- }
-}
-
-sub stop_mouse_tracking {
- print STDERR "\e[?1005l\e[?1000l";
-}
-sub start_mouse_tracking {
- print STDERR "\e[?1000h\e[?1005h";
-}
-sub install_mouse {
- Irssi::command_bind('mouse_xterm' => 'mouse_xterm');
- Irssi::command('^bind meta-[M command mouse_xterm');
- Irssi::signal_add_first('gui key pressed' => 'mouse_key_hook');
- start_mouse_tracking();
-}
-sub uninstall_mouse {
- stop_mouse_tracking();
- Irssi::signal_remove('gui key pressed' => 'mouse_key_hook');
- Irssi::command('^bind -delete meta-[M');
- Irssi::command_unbind('mouse_xterm' => 'mouse_xterm');
-}
-
-sub awl_mouse_event {
- return if $VIEWER_MODE;
- if ((($_[0] == 3 and $_[3] == 0)
- || $_[0] == 64 || $_[0] == 65) and
- $_[1] == $_[4] and $_[2] == $_[5]) {
- my $top = lc $S{placement} eq 'top';
- my ($pos, $line) = @_[1 .. 2];
- unless ($top) {
- $line -= $screenHeight;
- $line += $currentLines;
- $line += $S{mouse_offset};
- }
- else {
- $line -= $S{mouse_offset};
- }
- $pos -= $sb_base_width_pre;
- return if $line < 0 || $line >= $currentLines;
- if ($_[0] == 64) {
- Irssi::command('window up');
- }
- elsif ($_[0] == 65) {
- Irssi::command('window down');
- }
- elsif (exists $mouse_coords{$line}{$pos}) {
- my $win = $mouse_coords{$line}{$pos};
- Irssi::command('window ' . $win);
- }
- Irssi::signal_stop;
- }
-}
-
-sub mouse_scroll_event {
- return unless $S{mouse_scroll};
- if (($_[3] == 64 or $_[3] == 65) and
- $_[0] == $_[3] and $_[1] == $_[4] and $_[2] == $_[5]) {
- my $cmd = 'scrollback goto ' . ($_[3] == 64 ? '-' : '+') . $S{mouse_scroll};
- Irssi::active_win->command($cmd);
- Irssi::signal_stop;
- }
- elsif ($_[0] == 64 or $_[0] == 65) {
- Irssi::signal_stop;
- }
-}
-
-sub mouse_escape {
- return unless $S{mouse_escape} > 0;
- if ($_[0] == 3) {
- my $tm = $S{mouse_escape};
- $tm *= 1000 if $tm < 1000;
- stop_mouse_tracking();
- Irssi::timeout_add_once($tm, 'start_mouse_tracking', undef);
- Irssi::signal_stop;
- }
-}
-
-sub UNLOAD {
- @actString = ();
- killOldStatus();
- stop_viewer() if $VIEWER_MODE;
- uninstall_mouse() if $MOUSE_ON;
-}
-
-sub addPrintTextHook { # update on print text
- return unless defined $^S;
- return if $BLOCK_ALL;
- return unless $print_text_activity;
- return if $_[0]->{level} == 262144 and $_[0]->{target} eq ''
- and !defined($_[0]->{server});
- &wl_changed;
-}
-
-sub block_event_window_change {
- Irssi::signal_stop;
-}
-
-sub update_awins {
- my @wins = Irssi::windows;
- local $BLOCK_ALL = 1;
- Irssi::signal_add_first('window changed' => 'block_event_window_change');
- my $bwin =
- my $awin = Irssi::active_win;
- my $lwin;
- my $defer_irssi_broken_last;
- unless ($wins[0]{refnum} == $awin->{refnum}) {
- # special case: more than 1 last win, so /win last;
- # /win last doesn't come back to the current window. eg. after
- # connect & autojoin; we can't handle this situation, bail out
- $defer_irssi_broken_last = 1;
- }
- else {
- $awin->command('window last');
- $lwin = Irssi::active_win;
- $lwin->command('window last');
- $defer_irssi_broken_last = $lwin->{refnum} == $bwin->{refnum};
- }
- my $awin_counter = 0;
- Irssi::signal_remove('window changed' => 'block_event_window_change');
- unless ($defer_irssi_broken_last) {
- # we need to keep the fe-windows code running here
- Irssi::signal_add_priority('window changed' => 'block_event_window_change', -99);
- %awins = %wnmap_exp = ();
- do {
- Irssi::active_win->command('window up');
- $awin = Irssi::active_win;
- $awins{$awin->{refnum}} = undef;
- ++$awin_counter;
- } until ($awin->{refnum} == $bwin->{refnum} || $awin_counter >= @wins);
- Irssi::signal_remove('window changed' => 'block_event_window_change');
-
- Irssi::signal_add_first('window changed' => 'block_event_window_change');
- for my $key (keys %wnmap) {
- next unless Irssi::window_find_name($key) || Irssi::window_find_item($key);
- $awin->command("window goto $key");
- my $cwin = Irssi::active_win;
- $wnmap_exp{ $cwin->{refnum} } = $wnmap{$key};
- $cwin->command('window last')
- if $cwin->{refnum} != $awin->{refnum};
- }
- for my $win (reverse @wins) { # restore original window order
- Irssi::active_win->command('window '.$win->{refnum});
- }
- $awin->command('window '.$lwin->{refnum}); # restore last win
- Irssi::active_win->command('window last');
- Irssi::signal_remove('window changed' => 'block_event_window_change');
- }
- $CHANGED{WL} = 1;
-}
-
-sub resizeTerm {
- if (defined (my $r = `stty size 2>/dev/null`)) {
- ($screenHeight, $screenWidth) = split ' ', $r;
- $CHANGED{SETUP} = 1;
- }
- else {
- $CHANGED{SIZE} = 1;
- }
-}
-
-sub awl_refresh {
- $globTime = undef;
- resizeTerm() if delete $CHANGED{SIZE};
- reset_awl() if delete $CHANGED{SETUP};
- update_awins() if delete $CHANGED{AWINS};
- update_wl() if delete $CHANGED{WL};
-}
-
-sub termsize_changed { $CHANGED{SIZE} = 1; &queue_refresh; }
-sub setup_changed { $CHANGED{SETUP} = 1; &queue_refresh; }
-sub awins_changed { $CHANGED{AWINS} = 1; &queue_refresh; }
-sub wl_changed { $CHANGED{WL} = 1; &queue_refresh; }
-
-sub window_changed {
- &awins_changed if $_[1];
-}
-
-sub queue_refresh {
- return if $BLOCK_ALL;
- Irssi::timeout_remove($globTime)
- if defined $globTime; # delay the update further
- $globTime = Irssi::timeout_add_once(GLOB_QUEUE_TIMER, 'awl_refresh', undef);
-}
-
-sub awl_init {
- termsize_changed();
- setup_changed();
- update_keymap();
- Irssi::timeout_remove($globTime)
- if defined $globTime;
- awl_refresh();
- termsize_changed();
-}
-
-sub runsub {
- my $cmd = shift;
- sub {
- my ($data, $server, $item) = @_;
- Irssi::command_runsub($cmd, $data, $server, $item);
- };
-}
-
-Irssi::signal_register({
- 'gui mouse' => [qw/int int int int int int/],
- });
-{ my $broken_expandos = (Irssi::version >= 20081128 && Irssi::version < 20110210)
- ? sub { my $x = shift; $x =~ s/\$\{cumode_space\}/ /; $x } : undef;
- Irssi::theme_register([
- map { $broken_expandos ? $broken_expandos->($_) : $_ }
- set 'display_nokey' => '$N${cumode_space}$H$C$S',
- set 'display_key' => '$Q${cumode_space}$H$C$S',
- set 'display_nokey_visible' => '%2$N${cumode_space}$H$C$S',
- set 'display_key_visible' => '%2$Q${cumode_space}$H$C$S',
- set 'display_nokey_active' => '%1$N${cumode_space}$H$C$S',
- set 'display_key_active' => '%1$Q${cumode_space}$H$C$S',
- set 'display_header' => '%8$C|${N}',
- set 'name_display' => '$0',
- set 'separator' => ' ',
- set 'separator2' => '',
- set 'abbrev_chars' => "~\x{301c}",
- set 'viewer_item_bg' => sb_format_expand('{sb_background}'),
- set 'title' => '\V'.setc().'\:',
- ]);
-}
-Irssi::settings_add_bool(setc, set 'prefer_name', 0); #
-Irssi::settings_add_int( setc, set 'hide_empty', 0); #
-Irssi::settings_add_int( setc, set 'hide_data', 0); #
-Irssi::settings_add_str( setc, set 'detach', ''); #
-Irssi::settings_add_int( setc, set 'detach_data', -3); #
-Irssi::settings_add_bool(setc, set 'detach_aht', 0); #
-Irssi::settings_add_int( setc, set 'hide_name_data', 0); #
-Irssi::settings_add_int( setc, set 'maxlines', 9); #
-Irssi::settings_add_int( setc, set 'maxcolumns', 4); #
-Irssi::settings_add_int( setc, set 'block', 15); #
-Irssi::settings_add_bool(setc, set 'sbar_maxlength', 1); #
-Irssi::settings_add_int( setc, set 'height_adjust', 2); #
-Irssi::settings_add_str( setc, set 'sort', 'refnum'); #
-Irssi::settings_add_str( setc, set 'placement', 'bottom'); #
-Irssi::settings_add_int( setc, set 'position', 0); #
-Irssi::settings_add_bool(setc, set 'all_disable', 1); #
-Irssi::settings_add_bool(setc, set 'viewer', 1); #
-Irssi::settings_add_str( setc, set 'shared_sbar', 'OFF'); #
-Irssi::settings_add_bool(setc, set 'mouse', 0); #
-Irssi::settings_add_str( setc, set 'path', Irssi::get_irssi_dir . '/_windowlist'); #
-Irssi::settings_add_str( setc, set 'custom_xform', ''); #
-Irssi::settings_add_time(setc, set 'last_line_shade', '0'); #
-Irssi::settings_add_int( setc, set 'mouse_offset', 1); #
-Irssi::settings_add_int( setc, 'mouse_scroll', 3); #
-Irssi::settings_add_int( setc, 'mouse_escape', 1); #
-Irssi::settings_add_str( setc, 'banned_channels', '');
-Irssi::settings_add_bool(setc, 'banned_channels_on', 1);
-Irssi::settings_add_str( setc, 'fancy_abbrev', 'fancy'); #
-Irssi::settings_add_bool(setc, set 'no_mode_hint', 0); #
-Irssi::settings_add_bool(setc, set 'viewer_launch', 1); #
-Irssi::settings_add_str( setc, set 'viewer_launch_env', ''); #
-Irssi::settings_add_str( setc, set 'viewer_tmux_position', 'left'); #
-Irssi::settings_add_str( setc, set 'viewer_xwin_command', 'xterm +sb -e %A'); #
-Irssi::settings_add_str( setc, set 'viewer_custom_command', ''); #
-
-Irssi::signal_add_last({
- 'setup changed' => 'setup_changed',
- 'print text' => 'addPrintTextHook',
- 'terminal resized' => 'termsize_changed',
- 'setup reread' => 'screenFullRedraw',
- 'window hilight' => 'wl_changed',
- 'command format' => 'wl_changed',
-});
-Irssi::signal_add({
- 'window changed' => 'window_changed',
- 'window item changed' => 'wl_changed',
- 'window changed automatic' => 'window_changed',
- 'window created' => 'awins_changed',
- 'window destroyed' => 'window_destroyed',
- 'window name changed' => 'wl_changed',
- 'window refnum changed' => 'refnum_changed',
-});
-Irssi::signal_add_last('gui mouse' => 'mouse_escape');
-Irssi::signal_add_last('gui mouse' => 'mouse_scroll_event');
-Irssi::signal_add_last('gui mouse' => 'awl_mouse_event');
-Irssi::command_bind( setc() => runsub(setc()) );
-Irssi::command_bind( setc() . ' redraw' => 'screenFullRedraw' );
-Irssi::command_bind( setc() . ' restart' => 'restartViewerServer' );
-Irssi::command_bind( setc() . ' attach' => 'unhide_window' );
-Irssi::command_bind( setc() . ' detach' => 'hide_window' );
-Irssi::command_bind( setc() . ' ack' => 'ack_window' );
-
-{
- my $l = set 'shared';
- {
- no strict 'refs';
- *{$l} = $awl_shared_empty;
- }
- Irssi::statusbar_item_register($l, '$0', $l);
-}
-
-awl_init();
-
-# Mouse script based on irssi mouse patch by mirage
-{ my $mouse_status = -1; # -1:off 0,1,2:filling mouse_combo
- my @mouse_combo; # 0:button 1:x 2:y
- my @mouse_previous; # previous contents of mouse_combo
-
- sub mouse_xterm_off {
- $mouse_status = -1;
- }
- sub mouse_xterm {
- $mouse_status = 0;
- Irssi::timeout_add_once(10, 'mouse_xterm_off', undef);
- }
-
- sub mouse_key_hook {
- my ($key) = @_;
- if ($mouse_status != -1) {
- if ($mouse_status == 0) {
- @mouse_previous = @mouse_combo;
- #if @mouse_combo && $mouse_combo[0] < 64;
- }
- $mouse_combo[$mouse_status] = $key - 32;
- $mouse_status++;
- if ($mouse_status == 3) {
- $mouse_status = -1;
- # match screen coordinates
- $mouse_combo[1]--;
- $mouse_combo[2]--;
- Irssi::signal_emit('gui mouse', @mouse_combo[0 .. 2], @mouse_previous[0 .. 2]);
- }
- Irssi::signal_stop;
- }
- }
-}
-
-sub string_LCSS {
- my $str = join "\0", @_;
- (sort { length $b <=> length $a } $str =~ /(?=(.+).*\0.*\1)/g)[0]
-}
-
-# workaround for issue #271
-{ package Irssi::Nick }
-
-# workaround for issue #572
-@Irssi::UI::Exec::ISA = 'Irssi::Windowitem'
- if Irssi::version >= 20140822 && Irssi::version <= 20161101 && !@Irssi::UI::Exec::ISA;
-
-UNITCHECK
-{ package AwlViewer;
- use strict;
- use warnings;
- no warnings 'redefine';
- use Encode;
- use IO::Socket::UNIX;
- use IO::Select;
- use List::Util qw(max);
- use constant BLOCK_SIZE => 1024;
- use constant RECONNECT_TIME => 5;
-
- my $sockpath;
-
- our $VERSION = '0.8';
-
- our ($got_int, $resized, $timeout);
-
- my %vars;
- my (%c2w, @seqlist);
- my %mouse_coords;
- my (@mouse, @last_mouse);
- my ($err, $sock, $loop);
- my ($keybuf, $rcvbuf);
- my @screen;
- my ($screenHeight, $screenWidth);
- my ($disp_update, $fs_open, $one_shot_integration, $one_shot_resize);
- my $integration_position;
- my $show_title_bar;
-
- sub connect_it {
- $sock = IO::Socket::UNIX->new(
- Type => SOCK_STREAM,
- Peer => $sockpath,
- );
- unless ($sock) {
- $err = $!;
- return;
- }
- $sock->blocking(0);
- $loop->add($sock);
- }
-
- sub remove_conn {
- my $fh = shift;
- $loop->remove($fh);
- $fh->close;
- $sock = undef;
- %vars = ();
- @screen = ();
- }
-
- { package Terminfo; # xterm
- sub civis { "\e[?25l" }
- sub sc { "\e7" }
- sub cup { "\e[" . ($_[0] + 1) . ';' . ($_[1] + 1) . 'H' }
- sub el { "\e[K" }
- sub rc { "\e8" }
- sub cnorm { "\e[?25h" }
- sub setab { "\e[4" . $_[0] . 'm' }
- sub setaf { "\e[3" . $_[0] . 'm' }
- sub setaf16 { "\e[9" . $_[0] . 'm' }
- sub setab16 { "\e[10" . $_[0] . 'm' }
- sub setaf256 { "\e[38;5;" . $_[0] . 'm' }
- sub setab256 { "\e[48;5;" . $_[0] . 'm' }
- sub sgr0 { "\e[0m" }
- sub bold { "\e[1m" }
- sub it { "\e[3m" }
- sub ul { "\e[4m" }
- sub blink { "\e[5m" }
- sub rev { "\e[7m" }
- sub op { "\e[39;49m" }
- sub exit_bold { "\e[22m" }
- sub exit_it { "\e[23m" }
- sub exit_ul { "\e[24m" }
- sub exit_blink { "\e[25m" }
- sub exit_rev { "\e[27m" }
- sub smcup { "\e[?1049h" }
- sub rmcup { "\e[?1049l" }
- sub smmouse { "\e[?1000h\e[?1005h" }
- sub rmmouse { "\e[?1005l\e[?1000l" }
- }
-
- sub init {
- $sockpath = shift // "$ENV{HOME}/.irssi/_windowlist";
- STDOUT->autoflush(1);
- printf "\r%swaiting for %s...", Terminfo::sc, $::IRSSI{name};
-
- `stty -icanon -echo`;
-
- $loop = IO::Select->new;
- STDIN->blocking(0);
- $loop->add(\*STDIN);
-
- $SIG{INT} = sub {
- $got_int = 1
- };
- $SIG{WINCH} = sub {
- $resized = 1
- };
-
- $resized = 3;
-
- $disp_update = 2;
-
- $show_title_bar = 1;
- }
-
- sub enter_fs {
- return if $fs_open;
- safe_print(Terminfo::rc, Terminfo::smcup, Terminfo::civis, Terminfo::smmouse);
- $fs_open = 1;
- }
-
- sub leave_fs {
- return unless $fs_open;
- safe_print(Terminfo::rmmouse, Terminfo::cnorm, Terminfo::rmcup);
- safe_print(sprintf "\r%swaiting for %s...", Terminfo::sc, $::IRSSI{name}) if $_[0];
-
- $fs_open = 0;
- }
-
- sub end_prog {
- leave_fs();
- STDIN->blocking(1);
- `stty sane`;
- printf "\r%s%sthanks for using %s\n", Terminfo::rc, Terminfo::el, $::IRSSI{name};
- }
-
- sub safe_print {
- my $st = STDIN->blocking(1);
- print @_;
- STDIN->blocking($st);
- }
-
- sub safe_qx {
- my $st = STDIN->blocking(1);
- my $ret = `$_[0]`;
- STDIN->blocking($st);
- $ret
- }
-
- sub safe_print_sock {
- return unless $sock;
- my $was = $sock->blocking(1);
- $sock->print(@_);
- $sock->blocking($was);
- }
-
- sub process_recv {
- my $need = 0;
- while ($rcvbuf =~ s/\n(.+)_BEGIN\n((?: .*\n)*)\1_END\n//) {
- my $var = lc $1;
- my $data = $2;
- my @data = split "\n ", "\n$data ", -1;
- shift @data; pop @data;
- my $itembg = $vars{itembg};
- if ($var =~ s/list$//) {
- $vars{$var} = \@data;
- }
- elsif ($var =~ s/map$//) {
- $vars{$var} = +{ @data };
- }
- else {
- $vars{$var} = join "\n", @data;
- }
- $need = 1 if $var eq 'win';
- $need = 1 if $var eq 'redraw' && $vars{$var};
- if (($itembg//'') ne ($vars{itembg}//'')) {
- $need = $vars{redraw} = 1;
- }
- _build_keymap() if $var eq 'key2';
- }
- $need
- }
-
- { my %ansi_table;
- my ($i, $j, $k) = (0, 0, 0);
- my %term_state;
- sub reset_term_state { my %old_term = %term_state; %term_state = (); %old_term }
- sub set_term_state { my %old_term = %term_state; %term_state = @_; %old_term }
- %ansi_table = (
- # fe-common::core::formats.c:format_expand_styles
- (map { my $t = $i++; ($_ => sub { my $n = $term_state{hicolor} ? \&Terminfo::setab16 : \&Terminfo::setab;
- $n->($t) }) } (split //, '01234567' )),
- (map { my $t = $j++; ($_ => sub { my $n = $term_state{hicolor} ? \&Terminfo::setaf16 : \&Terminfo::setaf;
- $n->($t) }) } (split //, 'krgybmcw' )),
- (map { my $t = $k++; ($_ => sub { my $n = $term_state{hicolor} ? \&Terminfo::setaf : \&Terminfo::setaf16;
- $n->($t) }) } (split //, 'KRGYBMCW')),
- # reset
- n => sub { $term_state{hicolor} = 0; my $r = Terminfo::op;
- for (qw(blink rev bold)) {
- $r .= Terminfo->can("exit_$_")->() if delete $term_state{$_};
- }
- {
- local $ansi_table{n} = $ansi_table{N};
- $r .= formats_to_ansi_basic($vars{itembg});
- }
- $r
- },
- N => sub { reset_term_state(); Terminfo::sgr0 },
- # flash/bright
- F => sub { my $n = 'blink'; my $e = ($term_state{$n} ^= 1) ? $n : "exit_$n"; Terminfo->can($e)->() },
- # reverse
- 8 => sub { my $n = 'rev'; my $e = ($term_state{$n} ^= 1) ? $n : "exit_$n"; Terminfo->can($e)->() },
- # bold
- "_" => sub { my $n = 'bold'; my $e = ($term_state{$n} ^= 1) ? $n : "exit_$n"; Terminfo->can($e)->() },
- # underline
- U => sub { my $n = 'ul'; my $e = ($term_state{$n} ^= 1) ? $n : "exit_$n"; Terminfo->can($e)->() },
- # italic
- I => sub { my $n = 'it'; my $e = ($term_state{$n} ^= 1) ? $n : "exit_$n"; Terminfo->can($e)->() },
- # bold, used as colour modifier if AWL_HI9 is set
- 9 => $ENV{AWL_HI9} ? sub { $term_state{hicolor} ^= 1; '' }
- : sub { my $n = 'bold'; my $e = ($term_state{$n} ^= 1) ? $n : "exit_$n"; Terminfo->can($e)->() },
- # delete other stuff
- (map { $_ => sub { '' } } (split //, ':|>#[')),
- # escape
- (map { my $close = $_; $_ => sub { $close } } (split //, '{}%')),
- );
- for my $base (0 .. 15) {
- my $close = $base;
- my $idx = ($close&8) | ($close&4)>>2 | ($close&2) | ($close&1)<<2;
- $ansi_table{ (sprintf "x0%x", $close) } =
- $ansi_table{ (sprintf "x0%X", $close) } =
- sub { Terminfo::setab256($idx) };
- $ansi_table{ (sprintf "X0%x", $close) } =
- $ansi_table{ (sprintf "X0%X", $close) } =
- sub { Terminfo::setaf256($idx) };
- }
- for my $plane (1 .. 6) {
- for my $coord (0 .. 35) {
- my $close = 16 + ($plane-1) * 36 + $coord;
- my $ch = $coord < 10 ? $coord : chr( $coord - 10 + ord 'a' );
- $ansi_table{ "x$plane$ch" } =
- $ansi_table{ "x$plane\U$ch" } =
- sub { Terminfo::setab256($close) };
- $ansi_table{ "X$plane$ch" } =
- $ansi_table{ "X$plane\U$ch" } =
- sub { Terminfo::setaf256($close) };
- }
- }
- for my $gray (0 .. 23) {
- my $close = 232 + $gray;
- my $ch = chr( $gray + ord 'a' );
- $ansi_table{ "x7$ch" } =
- $ansi_table{ "x7\U$ch" } =
- sub { Terminfo::setab256($close) };
- $ansi_table{ "X7$ch" } =
- $ansi_table{ "X7\U$ch" } =
- sub { Terminfo::setaf256($close) };
- }
- sub formats_to_ansi_basic {
- my $o = shift;
- $o =~ s/(%(X..|x..|.))/exists $ansi_table{$2} ? $ansi_table{$2}->() : $1/gex;
- $o
- }
- }
-
- sub _header {
- my $str = $vars{title} // uc ::setc();
- my $ccs = qr/%(?:X(?:[1-6][0-9A-Z]|7[A-X])|[0-9BCFGIKMNRUWY_])/i;
- (my $stripstr = $str) =~ s/($ccs)//g;
- my $space = int( ((abs $vars{block}) - length $stripstr) / (1 + length $stripstr));
- if ($space > 0) {
- my $ss = ' ' x $space;
- my @x = $str =~ /((?:$ccs)*\X(?:(?:$ccs)*$)?)/g;
- $str = join $ss, '', @x, '';
- }
- ($stripstr = $str) =~ s/($ccs)//g;
- my $pad = max 0, (abs $vars{block}) - length $stripstr;
- $str = ' ' x ($pad/2) . $str . ' ' x ($pad/2 + $pad%2);
- $str
- }
-
- sub _add_item {
- my ($i, $j, $c, $wi, $screen, $mouse) = @_;
- $screen->[$i][$j] = "%N%n$wi";
- if (exists $vars{mouse}{$c - 1}) {
- $mouse->[$i][$j] = $vars{mouse}{$c - 1};
- }
- }
- sub update_screen {
- $disp_update = 0;
- unless ($sock && exists $vars{seplen} && exists $vars{block}) {
- leave_fs(1);
- return;
- }
- enter_fs();
- @screen = () if delete $vars{redraw};
- %mouse_coords = ();
- my $ncols = ($vars{seplen} + abs $vars{block}) ?
- int( ($screenWidth + $vars{seplen}) / ($vars{seplen} + abs $vars{block}) ) : 0;
- my $xenl = ($vars{seplen} + abs $vars{block})
- && $ncols > int( ($screenWidth + $vars{seplen} - 1) / ($vars{seplen} + abs $vars{block}) );
- my $nrows = $screenHeight - $vars{ha};
- my @wi = @{$vars{win}//[]};
- my $max_items = $ncols * $nrows;
- my $c = $show_title_bar ? 1 : 0;
- my $items = @wi + $c;
- my $titems = $items > $max_items ? $max_items : $items;
- my $i = 0;
- my $j = 0;
- my @new_screen;
- my @new_mouse;
- $new_screen[0][0] = _header() #. ' ' x $vars{seplen}
- if $show_title_bar;
- unless ($nrows > $ncols) { # line layout
- ++$j if $show_title_bar;
- for my $wi (@wi) {
- if ($j >= $ncols) {
- $j = 0;
- ++$i;
- }
- last if $i >= $nrows;
- _add_item($i, $j, $show_title_bar ? $c : $c + 1,
- $wi, \@new_screen, \@new_mouse);
- if ($c + 1 < $titems && $j + 1 < $ncols) {
- $new_screen[$i][$j] .= $vars{separator};
- }
- ++$j;
- ++$c;
- }
- }
- else { # column layout
- ++$i if $show_title_bar;
- for my $wi (@wi) {
- if ($i >= $nrows) {
- $i = 0;
- ++$j;
- }
- last if $j >= $ncols;
- _add_item($i, $j, $show_title_bar ? $c : $c + 1,
- $wi, \@new_screen, \@new_mouse);
- if ($c + $nrows < $titems) {
- $new_screen[$i][$j] .= $vars{separator};
- }
- ++$i;
- ++$c;
- }
- }
- my $step = $vars{seplen} + abs $vars{block};
- $i = 0;
- my $str = Terminfo::sc . Terminfo::sgr0;
- for (my $i = 0; $i < @new_screen; ++$i) {
- for (my $j = 0; $j < @{$new_screen[$i]}; ++$j) {
- if (defined $new_mouse[$i] && defined $new_mouse[$i][$j]) {
- my $from = $j * $step;
- $mouse_coords{$i}{$_} = $new_mouse[$i][$j]
- for $from .. $from + abs $vars{block};
- }
- next if defined $screen[$i] && defined $screen[$i][$j]
- && $screen[$i][$j] eq $new_screen[$i][$j];
- $str .= Terminfo::cup($i, $j * $step)
- . formats_to_ansi_basic($new_screen[$i][$j])
- . Terminfo::sgr0;
- $str .= Terminfo::el if $j == $#{$new_screen[$i]} && (!$xenl || $j + 1 != $ncols);
- }
- }
- for (@new_screen .. $screenHeight - 1) {
- if (!@screen || defined $screen[$_]) {
- $str .= Terminfo::cup($_, 0) . Terminfo::sgr0 . Terminfo::el;
- }
- }
- $str .= Terminfo::rc;
- safe_print $str;
- @screen = @new_screen;
- }
-
- sub handle_resize {
- if (defined (my $r = safe_qx('stty size'))) {
- ($screenHeight, $screenWidth) = split ' ', $r;
- $resized = 0;
- @screen = ();
- $disp_update = 1;
- if ($one_shot_integration == 2) {
- $one_shot_resize--;
- }
- }
- else {
- }
- }
-
- sub _build_keymap {
- %c2w = reverse( %{$vars{key}}, %{$vars{key2}} );
- if (!grep { /^[+-]./ } keys %c2w) {
- %c2w = (%c2w, map { ("-$_" => $c2w{$_}) } grep { !/^\^./ } keys %c2w);
- }
- %c2w = map {
- my $key = $_;
- s{^(-)?(\+)?(\^)?(.)}{
- join '', (
- ($1 ? "\e" : ''),
- ($2 ? "\e\e" : ''),
- ($3 ? "$4"^"@" : $4)
- )
- }e;
- $_ => $c2w{$key}
- } keys %c2w;
- @seqlist = sort { length $b <=> length $a } keys %c2w;
- }
-
- sub _match_tmux {
- length $ENV{TMUX} && exists $vars{irssienv}{tmux_srv} && length $vars{irssienv}{tmux_pane}
- && $ENV{TMUX} eq $vars{irssienv}{tmux_srv}
- }
-
- sub process_keys {
- Encode::_utf8_on($keybuf);
- my $win;
- my $use_mouse;
- my $maybe;
- KEY: while (length $keybuf && !$maybe) {
- $maybe = 0;
- if ($keybuf =~ s/^\e\[M(.)(.)(.)//) {
- @last_mouse = @mouse;# if @mouse && $mouse[0] < 64;
- @mouse = map { -32 + ord } ($1, $2, $3);
- $use_mouse = 1;
- next KEY;
- }
- for my $s (@seqlist) {
- if ($keybuf =~ s/^\Q$s//) {
- $win = $c2w{$s};
- $use_mouse = 0;
- next KEY;
- }
- elsif (length $keybuf < length $s && $s =~ /^\Q$keybuf/) {
- $maybe = 1;
- }
- }
- unless ($maybe) {
- substr $keybuf, 0, 1, '';
- }
- }
- if ($use_mouse && @mouse && @last_mouse &&
- $mouse[2] == $last_mouse[2] &&
- $mouse[1] == $last_mouse[1] &&
- ($mouse[0] == 3 || $mouse[0] == 64 || $mouse[0] == 65)) {
- if ($mouse[0] == 64) {
- $win = 'up';
- }
- elsif ($mouse[0] == 65) {
- $win = 'down';
- }
- elsif (exists $mouse_coords{$mouse[2] - 1}{$mouse[1] - 1}) {
- $win = $mouse_coords{$mouse[2] - 1}{$mouse[1] - 1};
- }
- elsif ($mouse[2] == 1 && $mouse[1] <= abs $vars{block}) {
- $win = $last_mouse[0] != 0 ? 'last' : 'active';
- }
- else {
- }
- }
- if (defined $win) {
- $win =~ s/^_//;
- safe_print_sock("$win\n");
- if (!exists $ENV{AWL_AUTOFOCUS} || $ENV{AWL_AUTOFOCUS}) {
- if (_match_tmux()) {
- safe_qx("tmux selectp -t $vars{irssienv}{tmux_pane} 2>&1");
- }
- elsif (exists $vars{irssienv}{xwinid}) {
- safe_qx("wmctrl -ia $vars{irssienv}{xwinid} 2>/dev/null");
- }
- }
- }
- Encode::_utf8_off($keybuf);
- }
-
- sub check_integration {
- return unless $vars{irssienv};
- return unless $sock && exists $vars{seplen} && exists $vars{block};
- if ($one_shot_integration == 1) {
- my $nrows = $screenHeight - $vars{ha};
- my $ncols = ($vars{seplen} + abs $vars{block}) ? int( ($screenWidth + $vars{seplen}) / ($vars{seplen} + abs $vars{block}) ) : 0;
- my $items = ($show_title_bar ? 1 : 0) + @{$vars{win}//[]};
- my $dcols_required = $nrows ? int($items/$nrows) + !!($items%$nrows) : 0;
- my $rows_required = $ncols ? int($items/$ncols) + !!($items%$ncols) : 0;
- $rows_required = abs $vars{ml}
- if ($vars{ml} < 0 || ($vars{ml} > 0 && $rows_required > $vars{ml}));
- $dcols_required = abs $vars{mc}
- if ($vars{mc} < 0 || ($vars{mc} > 0 && $dcols_required > $vars{mc}));
- my $rows = $rows_required + $vars{ha};
- my $cols = ($dcols_required * ($vars{seplen} + abs $vars{block})) - $vars{seplen};
- if (_match_tmux()) {
- # int( ($screenWidth + $vars{seplen}) / ($vars{seplen} + abs $vars{block}) );
- my ($pos_flag, $before);
- if ($integration_position eq 'left') {
- $pos_flag = 'h';
- $before = 1;
- }
- elsif ($integration_position eq 'top') {
- $pos_flag = 'v';
- $before = 1;
- }
- elsif ($integration_position eq 'right') {
- $pos_flag = 'h';
- }
- else {
- $pos_flag = 'v';
- }
- my @cmd = "joinp -d$pos_flag -s $ENV{TMUX_PANE} -t $vars{irssienv}{tmux_pane}";
- push @cmd, "swapp -d -t $ENV{TMUX_PANE} -s $vars{irssienv}{tmux_pane}"
- if $before;
- $cols = max($cols, 2);
- $rows = max($rows, 2);
-
- safe_qx("tmux " . (join " \\\; ", @cmd) . " 2>&1");
- }
- else {
- $resized = 1;
- #safe_qx("resize -s $screenHeight $cols 2>&1")
- # if $cols > 0;
- }
- $one_shot_integration++;
- if ($resized == 1) {
- handle_resize();
- resize_integration();
- }
- }
- elsif ($one_shot_integration == 2) {
- resize_integration(1);
- }
- }
-
- sub resize_integration {
- return unless $one_shot_integration;
- return unless ($one_shot_resize//0) < 0 || shift;
- return if ($one_shot_resize//0) > 0;
-
- my $nrows = $screenHeight - $vars{ha};
- my $ncols = ($vars{seplen} + abs $vars{block}) ? int( ($screenWidth + $vars{seplen}) / ($vars{seplen} + abs $vars{block}) ) : 0;
- my $items = ($show_title_bar ? 1 : 0) + @{$vars{win}//[]};
- my $dcols_required = $nrows ? (int($items/$nrows) + !!($items%$nrows)) : 0;
- my $rows_required = $ncols ? int($items/$ncols) + !!($items%$ncols) : 0;
- $rows_required = abs $vars{ml}
- if ($vars{ml} < 0 || ($vars{ml} > 0 && $rows_required > $vars{ml}));
- $dcols_required = abs $vars{mc}
- if ($vars{mc} < 0 || ($vars{mc} > 0 && $dcols_required > $vars{mc}));
- my $rows = $rows_required + $vars{ha};
- my $cols = ($dcols_required * ($vars{seplen} + abs $vars{block})) - $vars{seplen};
- if (_match_tmux()) {
- my $pos_flag;
- my $before = 0;
- if ($integration_position eq 'left') {
- $pos_flag = 'h';
- $before = 1;
- }
- elsif ($integration_position eq 'top') {
- $pos_flag = 'v';
- $before = 1;
- }
- elsif ($integration_position eq 'right') {
- $pos_flag = 'h';
- }
- else {
- $pos_flag = 'v';
- }
- my @cmd;
- # hard tmux limits
- $cols = max($cols, 2);
- $rows = max($rows, 2);
- if ($pos_flag eq 'h' && $cols != $screenWidth) {
- my $change = $screenWidth - $cols;
- my $dir = ($before ^ ($change<0)) ? 'L' : 'R';
- push @cmd, "resizep -$dir -t $ENV{TMUX_PANE} @{[abs $change]}";
- #push @cmd, "resizep -x $cols -t $ENV{TMUX_PANE}";
- $one_shot_resize = 1;
- }
- if ($pos_flag eq 'v' && $rows != $screenHeight) {
- #push @cmd, "resizep -y $rows -t $ENV{TMUX_PANE}";
- my $change = $screenHeight - $rows;
- my $dir = ($before ^ ($change<0)) ? 'U' : 'D';
- push @cmd, "resizep -$dir -t $ENV{TMUX_PANE} @{[abs $change]}";
- $one_shot_resize = 1;
- }
-
- safe_qx("tmux " . (join " \\\; ", @cmd) . " 2>&1")
- if @cmd;
- }
- else {
- $cols = max($cols, 1);
- $rows = max($rows, 1);
- unless ($nrows > $ncols) { # line layout
- if ($rows != $screenHeight) {
- safe_qx("resize -s $rows $screenWidth 2>&1");
- $one_shot_resize = 1;
- }
- }
- else {
- if ($cols != $screenWidth) {
- safe_qx("resize -s $screenHeight $cols 2>&1");
- $one_shot_resize = 1;
- }
- }
- }
- if ($resized == 1) {
- handle_resize();
- }
- }
-
- sub init_integration {
- return unless $one_shot_integration;
- if (_match_tmux()) {
- }
- else {
- }
- safe_print("\e]2;".(uc ::setc())."\e\\");
- }
-
- sub main {
- require Getopt::Std;
- my %opts;
- Getopt::Std::getopts('1p:', \%opts);
- my $one_shot = $opts{1};
- $integration_position = $opts{p};
- $one_shot_integration = 0+!!$one_shot;
- #shift if @_ && $_[0] eq '--';
- &init;
- $show_title_bar = 0 if $ENV{AWL_NOTITLE};
- init_integration();
- until ($got_int) {
- $timeout = undef;
- if ($resized) {
- if ($resized == 1) {
- $timeout = 1;
- $resized++;
- }
- else {
- handle_resize();
- resize_integration();
- }
- }
- unless ($sock || $timeout) {
- connect_it();
- }
- $timeout ||= RECONNECT_TIME unless $sock;
- update_screen() if $disp_update;
- SELECT: while (my @read = $loop->can_read($timeout)) {
- for my $fh (@read) {
- if ($fh == \*STDIN) {
- if (read STDIN, my $buf, BLOCK_SIZE) {
- do {
- $keybuf .= $buf;
- } while read STDIN, $buf, BLOCK_SIZE;
- }
- else {
- $got_int = 1;
- last SELECT;
- }
- }
- else {
- if ($fh->read(my $buf, BLOCK_SIZE)) {
- do {
- $rcvbuf .= $buf;
- } while $fh->read($buf, BLOCK_SIZE);
- }
- else {
- $disp_update = 1;
- remove_conn($fh);
- if ($one_shot) {
- $got_int = 1;
- last SELECT;
- }
- $timeout ||= RECONNECT_TIME;
- }
- }
- }
- $disp_update |= process_recv() if length $rcvbuf;
- process_keys() if length $keybuf;
- check_integration() if $one_shot;
- update_screen() if $disp_update;
- }
- continue {
- }
- }
- end_prog();
- }
-}
-
-1;
-
-# Changelog
-# =========
-# 1.8
-# - use string_width in Irssi 1.2.0
-#
-# 1.7
-# - fix crash on invalid /set awl_sort, introduced in 1.6, reported by
-# tpetazzoni
-# - delay viewer initialisation
-# - improve race condition on tmux resize integration
-#
-# 1.6
-# - add detach setting to hide windows
-# - fix race condition when loading the script, reported by madduck
-# - improve compatibility with irssi 1.2
-# - add special value lru to awl_sort to sort windows by usage
-#
-# 1.5
-# - improve compat. with sideways splits
-#
-# 1.4
-# - fix line wrapping in some themes, reported by justanotherbody
-# - fix named window key detection, reported by madduck
-# - make title (in viewer and shared_sbar) configurable
-#
-# 1.3
-# - workaround for irssi issue #572
-#
-# 1.2
-# - new format to choose abbreviation character
-#
-# 1.1
-# - infinite loop on shortening certain window names reported by Kalan
-#
-# 1.0
-# - new awl_viewer_launch setting and an array of related settings
-# - fixed regression bug /exec -interactive
-# - fixed some warnings in perl 5.10 reported by kl3
-# - workaround for crash due to infinite recursion in irssi's Perl
-# error handling
-#
-# 0.9
-# - fix endless loop in awin detection code!
-# - correct colour swap in awl_viewer
-# - fix passing of alternate socket path to the viewer
-# - potential undefinedness in mouse refnum hinted at by Canopus
-# - fixed regression bug /exec -interactive
-# - add case-insensitive modifier to awl_sort
-# - run custom_xform on awl_prefer_name also
-# - avoid inconsistent active window state after awin detection
-# reported by ss
-# - revert %9-hack in the viewer prompted by discussion with pierrot
-# - fix new warning in perl 5.22
-#
-# 0.8
-# - replace fifo mode with external viewer script
-# - remove bundled cpan modules
-# - work around bogus irssi warning
-# - improve mouse support
-# - workaround for broken cumode in irssi 0.8.15
-# - fix handling of non-meta windows (uninitialized warning)
-# - add 256 colour support, strip true colour codes
-# - fix totally bogus $N padding reported by Ed S.
-# - make /window goto #name mappings work but ignore non-existant ones
-# - improve incomplete reads reported by bcode
-# - fix single % in awl_viewer reported by bcode
-# - add support for key bindings by nike and ferret
-# - coerce utf8 key binds
-# - add settings: custom_xform, last_line_shade, hide_name_data
-# - abbreviations were broken in some cases
-# - fix some misuse of / as cmdchar in mouse script reported by bcode
-# - add shared status bar mode
-# - ${type} variables for custom_xform setting
-# - crash if custom_xform had runtime error
-# - update sorting documentation
-# - fix odd case in size calculation noted by lasers
-# - add missing font styles to the viewer reported by ishanyx
-# - add italic
-#
-# 0.7g
-# - remove screen support and replace it with fifo support
-# - add double-width support to the shortener
-# - correct documentation regarding $T vs. display_header
-# - add missing refresh for window item changed (thanks vague)
-# - add visible windows
-# - add exemptions for active window
-# - workaround for hiding the window changes from trackbar
-# - hack to force 16colours in screen mode
-# - remember last window (reported by earthnative)
-# - wrong window focus on new queries (reported by emsid)
-# - dataloss bug on trying to remember last window
-#
-# 0.6d+
-# - add support for network headers
-# - fixed regression bug /exec -interactive
-#
-# 0.6ca+
-# - add screen support (from nicklist.pl)
-# - names can now have a max length and window names can be used
-# - fixed a bug with block display in screen mode and status bar mode
-# - added space handling to ir_fe and removed it again
-# - now handling formats on my own
-# - started to work on $tag display
-# - added warning about missing sb_act_none abstract leading to
-# - display*active settings
-# - added warning about the bug in awl_display_(no)key_active settings
-# - mouse hack
-#
-# 0.5d
-# - add setting to also hide the last status bar if empty (awl_all_disable)
-# - reverted to old utf8 code to also calculate broken utf8 length correctly
-# - simplified dealing with status bars in wlreset
-# - added a little tweak for the renamed term_type somewhere after Irssi 0.8.9
-# - fixed bug in handling channel #$$
-# - reset background colour at the beginning of an entry
-#
-# 0.4d
-# - fixed order of disabling status bars
-# - several attempts at special chars, without any real success
-# and much more weird new bugs caused by this
-# - setting to specify sort order
-# - reduced timeout values
-# - added awl_hide_data
-# - make it so the dynamic sub is actually deleted
-# - fix a bug with removing of the last separator
-# - take into consideration parse_special
-#
-# 0.3b
-# - automatically kill old status bars
-# - reset on /reload
-# - position/placement settings
-#
-# 0.2
-# - automated retrieval of key bindings (thanks grep.pl authors)
-# - improved removing of status bars
-# - got rid of status chop
-#
-# 0.1
-# - Based on chanact.pl which was apparently based on lightbar.c and
-# nicklist.pl with various other ideas from random scripts.
diff --git a/irssi/scripts/autorun/adv_windowlist.pl b/irssi/scripts/autorun/adv_windowlist.pl
@@ -1 +0,0 @@
-../adv_windowlist.pl-
\ No newline at end of file
diff --git a/irssi/scripts/autorun/hilightwin.pl b/irssi/scripts/autorun/hilightwin.pl
@@ -1 +0,0 @@
-/Users/alex/.dotfiles/irssi/scripts/hilightwin.pl-
\ No newline at end of file
diff --git a/irssi/scripts/hilightwin.pl b/irssi/scripts/autorun/hilightwin.pl
diff --git a/irssi/scripts/autorun/splitlong.pl b/irssi/scripts/autorun/splitlong.pl
@@ -0,0 +1,60 @@
+# /set splitlong_max_length
+# specifies the maximum length of a msg, automatically chosen when set to "0"
+# default: 0
+#
+# /set splitlong_line_start
+# /set splitlong_line_end
+# self-explanatory
+# defaults: "... ", " ..."
+###
+use strict;
+use vars qw($VERSION %IRSSI);
+
+use Irssi 20011001;
+
+$VERSION = "0.20";
+%IRSSI = (
+ authors => "Bjoern \'fuchs\' Krombholz",
+ contact => "bjkro\@gmx.de",
+ name => "splitlong",
+ license => "Public Domain",
+ description => "Split overlong PRIVMSGs to msgs with length allowed by ircd",
+ changed => "Wed Jun 25 00:17:00 CET 2003",
+ changes => "Actually the real 0.19 (now 0.20), but upload didn't work some month ago, target problem fixed..."
+);
+
+sub sig_command_msg {
+ my ($cmd, $server, $winitem) = @_;
+ my ( $param, $target,$data) = $cmd =~ /^(-\S*\s)?(\S*)\s(.*)/;
+
+ my $maxlength = Irssi::settings_get_int('splitlong_max_length');
+ my $lstart = Irssi::settings_get_str('splitlong_line_start');
+ my $lend = Irssi::settings_get_str('splitlong_line_end');
+
+ if ($maxlength == 0) {
+ # 497 = 510 - length(":" . "!" . " PRIVMSG " . " :");
+ $maxlength = 497 - length($server->{nick} . $server->{userhost} . $target);
+ }
+ my $maxlength2 = $maxlength - length($lend);
+
+ if (length($data) > ($maxlength)) {
+ my @spltarr;
+
+ while (length($data) > ($maxlength2)) {
+ my $pos = rindex($data, " ", $maxlength2);
+ push @spltarr, substr($data, 0, ($pos < ($maxlength/10 + 4)) ? $maxlength2 : $pos) . $lend;
+ $data = $lstart . substr($data, ($pos < ($maxlength/10 + 4)) ? $maxlength2 : $pos+1);
+ }
+
+ push @spltarr, $data;
+ foreach (@spltarr) {
+ Irssi::signal_emit("command msg", "$target $_", $server, $winitem);
+ }
+ Irssi::signal_stop();
+ }
+}
+
+Irssi::settings_add_int('misc', 'splitlong_max_length', 0);
+Irssi::settings_add_str('misc', 'splitlong_line_start', "... ");
+Irssi::settings_add_str('misc', 'splitlong_line_end', " ...");
+Irssi::command_bind('msg', 'sig_command_msg');
diff --git a/irssi/scripts/autorun/trackbar.pl b/irssi/scripts/autorun/trackbar.pl
diff --git a/irssi/scripts/trackbar.pl b/irssi/scripts/trackbar.pl
@@ -1,605 +0,0 @@
-## trackbar.pl
-#
-# This little script will do just one thing: it will draw a line each time you
-# switch away from a window. This way, you always know just upto where you've
-# been reading that window :) It also removes the previous drawn line, so you
-# don't see double lines.
-#
-# redraw trackbar only works on irssi 0.8.17 or higher.
-#
-##
-
-## Usage:
-#
-# The script works right out of the box, but if you want you can change
-# the working by /set'ing the following variables:
-#
-# Setting: trackbar_style
-# Description: This setting will be the color of your trackbar line.
-# By default the value will be '%K', only Irssi color
-# formats are allowed. If you don't know the color formats
-# by heart, you can take a look at the formats documentation.
-# You will find the proper docs on http://www.irssi.org/docs.
-#
-# Setting: trackbar_string
-# Description: This is the string that your line will display. This can
-# be multiple characters or just one. For example: '~-~-'
-# The default setting is '-'.
-# Here are some unicode characters you can try:
-# "───" => U+2500 => a line
-# "═══" => U+2550 => a double line
-# "━━━" => U+2501 => a wide line
-# "▭ " => U+25ad => a white rectangle
-#
-# Setting: trackbar_use_status_window
-# Description: If this setting is set to OFF, Irssi won't print a trackbar
-# in the statuswindow
-#
-# Setting: trackbar_ignore_windows
-# Description: A list of windows where no trackbar should be printed
-#
-# Setting: trackbar_print_timestamp
-# Description: If this setting is set to ON, Irssi will print the formatted
-# timestamp in front of the trackbar.
-#
-# Setting: trackbar_require_seen
-# Description: Only clear the trackbar if it has been scrolled to.
-#
-# Setting: trackbar_all_manual
-# Description: Never clear the trackbar until you do /mark.
-#
-# /mark is a command that will redraw the line at the bottom.
-#
-# Command: /trackbar, /trackbar goto
-# Description: Jump to where the trackbar is, to pick up reading
-#
-# Command: /trackbar keep
-# Description: Keep this window's trackbar where it is the next time
-# you switch windows (then this flag is cleared again)
-#
-# Command: /mark, /trackbar mark
-# Description: Remove the old trackbar and mark the bottom of this
-# window with a new trackbar
-#
-# Command: /trackbar markvisible
-# Description: Like mark for all visible windows
-#
-# Command: /trackbar markall
-# Description: Like mark for all windows
-#
-# Command: /trackbar remove
-# Description: Remove this window's trackbar
-#
-# Command: /trackbar removeall
-# Description: Remove all windows' trackbars
-#
-# Command: /trackbar redraw
-# Description: Force redraw of trackbars
-#
-##
-
-##
-#
-# For bugreports and other improvements contact one of the authors.
-#
-# 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 2 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 script; if not, write to the Free Software
-# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
-#
-##
-
-use strict;
-use warnings;
-use vars qw($VERSION %IRSSI);
-
-$VERSION = "2.8"; # 89f27cc2c12368e
-
-%IRSSI = (
- authors => "Peter 'kinlo' Leurs, Uwe Dudenhoeffer, " .
- "Michiel Holtkamp, Nico R. Wohlgemuth, " .
- "Geert Hauwaerts",
- contact => 'peter@pfoe.be',
- patchers => 'Johan Kiviniemi (UTF-8), Uwe Dudenhoeffer (on-upgrade-remove-line)',
- name => 'trackbar',
- description => 'Shows a bar where you have last read a window.',
- license => 'GNU General Public License',
- url => 'http://www.pfoe.be/~peter/trackbar/',
- commands => 'trackbar',
-);
-
-## Comments and remarks.
-#
-# This script uses settings.
-# Use /SET to change the value or /TOGGLE to switch it on or off.
-#
-#
-# Tip: The command 'trackbar' is very usefull if you bind that to a key,
-# so you can easily jump to the trackbar. Please see 'help bind' for
-# more information about keybindings in Irssi.
-#
-# Command: /BIND meta2-P key F1
-# /BIND F1 command trackbar
-#
-##
-
-## Bugfixes and new items in this rewrite.
-#
-# * Remove all the trackbars before upgrading.
-# * New setting trackbar_use_status_window to control the statuswindow trackbar.
-# * New setting trackbar_print_timestamp to print a timestamp or not.
-# * New command 'trackbar' to scroll up to the trackbar.
-# * When resizing your terminal, Irssi will update all the trackbars to the new size.
-# * When changing trackbar settings, change all the trackbars to the new settings.
-# * New command 'trackbar mark' to draw a new trackbar (The old '/mark').
-# * New command 'trackbar markall' to draw a new trackbar in each window.
-# * New command 'trackbar remove' to remove the trackbar from the current window.
-# * New command 'trackbar removeall' to remove all the trackbars.
-# * Don't draw a trackbar in empty windows.
-# * Added a version check to prevent Irssi redraw errors.
-# * Fixed a bookmark NULL versus 0 bug.
-# * Fixed a remove-line bug in Uwe Dudenhoeffer his patch.
-# * New command 'help trackbar' to display the trackbar commands.
-# * Fixed an Irssi startup bug, now processing each auto-created window.
-#
-##
-
-## Known bugs and the todolist.
-#
-# Todo: * Instead of drawing a line, invert the line.
-#
-##
-
-## Authors:
-#
-# - Main maintainer & author: Peter 'kinlo' Leurs
-# - Many thanks to Timo 'cras' Sirainen for placing me on my way
-# - on-upgrade-remove-line patch by Uwe Dudenhoeffer
-# - trackbar resizing by Michiel Holtkamp (02 Jul 2012)
-# - scroll to trackbar, window excludes, and timestamp options by Nico R.
-# Wohlgemuth (22 Sep 2012)
-#
-##
-
-## Version history:
-#
-# 2.8: - fix /^join bug
-# 2.7: - add /set trackbar_all_manual option
-# 2.5: - merge back on scripts.irssi.org
-# - fix /trackbar redraw broken in 2.4
-# - fix legacy encodings
-# - add workaround for irssi issue #271
-# 2.4: - add support for horizontal splits
-# 2.3: - add some features for seen tracking using other scripts
-# 2.0: - big rewrite based on 1.4
-# * removed /tb, you can have it with /alias tb trackbar if you want
-# * subcommand and settings changes:
-# /trackbar vmark => /trackbar markvisible
-# /trackbar scroll => /trackbar goto (or just /trackbar)
-# /trackbar help => /help trackbar
-# /set trackbar_hide_windows => /set trackbar_ignore_windows
-# /set trackbar_timestamp => /set trackbar_print_timestamp
-# * magic line strings were removed, just paste the unicode you want!
-# * trackbar_timestamp_styled is not currently supported
-# 1.9: - add version guard
-# 1.8: - sub draw_bar
-# 1.7: - Added /tb scroll, trackbar_hide_windows, trackbar_timestamp_timestamp
-# and trackbar_timestamp_styled
-# 1.6: - Work around Irssi resize bug, please do /upgrade! (see below)
-# 1.5: - Resize trackbars in all windows when terminal is resized
-# 1.4: - Changed our's by my's so the irssi script header is valid
-# - Removed utf-8 support. In theory, the script should work w/o any
-# problems for utf-8, just set trackbar_string to a valid utf-8 character
-# and everything *should* work. However, this script is being plagued by
-# irssi internal bugs. The function Irssi::settings_get_str does NOT handle
-# unicode strings properly, hence you will notice problems when setting the bar
-# to a unicode char. For changing your bar to utf-8 symbols, read the line sub.
-# 1.3: - Upgrade now removes the trackbars.
-# - Some code cleanups, other defaults
-# - /mark sets the line to the bottom
-# 1.2: - Support for utf-8
-# - How the bar looks can now be configured with trackbar_string
-# and trackbar_style
-# 1.1: - Fixed bug when closing window
-# 1.0: - Initial release
-#
-##
-
-use Irssi;
-use Irssi::TextUI;
-use Encode;
-
-use POSIX qw(strftime);
-
-sub cmd_help {
- my ($args) = @_;
- if ($args =~ /^trackbar *$/i) {
- print CLIENTCRAP <<HELP
-%9Syntax:%9
-
-TRACKBAR
-TRACKBAR GOTO
-TRACKBAR KEEP
-TRACKBAR MARK
-TRACKBAR MARKVISIBLE
-TRACKBAR MARKALL
-TRACKBAR REMOVE
-TRACKBAR REMOVEALL
-TRACKBAR REDRAW
-
-%9Parameters:%9
-
- GOTO: Jump to where the trackbar is, to pick up reading
- KEEP: Keep this window's trackbar where it is the next time
- you switch windows (then this flag is cleared again)
- MARK: Remove the old trackbar and mark the bottom of this
- window with a new trackbar
- MARKVISIBLE: Like mark for all visible windows
- MARKALL: Like mark for all windows
- REMOVE: Remove this window's trackbar
- REMOVEALL: Remove all windows' trackbars
- REDRAW: Force redraw of trackbars
-
-%9Description:%9
-
- Manage a trackbar. Without arguments, it will scroll up to the trackbar.
-
-%9Examples:%9
-
- /TRACKBAR MARK
- /TRACKBAR REMOVE
-HELP
- }
-}
-
-Irssi::theme_register([
- 'trackbar_loaded', '%R>>%n %_Scriptinfo:%_ Loaded $0 version $1 by $2.',
- 'trackbar_wrong_version', '%R>>%n %_Trackbar:%_ Please upgrade your client to 0.8.17 or above if you would like to use this feature of trackbar.',
- 'trackbar_all_removed', '%R>>%n %_Trackbar:%_ All the trackbars have been removed.',
- 'trackbar_not_found', '%R>>%n %_Trackbar:%_ No trackbar found in this window.',
-]);
-
-my $old_irssi = Irssi::version < 20140701;
-sub check_version {
- if ($old_irssi) {
- Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'trackbar_wrong_version');
- return;
- } else {
- return 1;
- }
-}
-
-sub is_utf8 {
- lc Irssi::settings_get_str('term_charset') eq 'utf-8'
-}
-
-my (%config, %keep_trackbar, %unseen_trackbar);
-
-sub remove_one_trackbar {
- my $win = shift;
- my $view = shift || $win->view;
- my $line = $view->get_bookmark('trackbar');
- if (defined $line) {
- my $bottom = $view->{bottom};
- $view->remove_line($line);
- $win->command('^scrollback end') if $bottom && !$win->view->{bottom};
- $view->redraw;
- }
-}
-
-sub add_one_trackbar_pt1 {
- my $win = shift;
- my $view = shift || $win->view;
-
- my $last_cur_line = $view->{buffer}{cur_line}{_irssi};
- $win->print(line($win->{width}), MSGLEVEL_NEVER);
-
- my $cur_line = $win->view->{buffer}{cur_line}{_irssi}; # get a fresh buffer
-
- $last_cur_line ne $cur_line # printing was successful
-}
-
-sub add_one_trackbar_pt2 {
- my $win = shift;
- my $view = $win->view;
-
- $view->set_bookmark_bottom('trackbar');
- $unseen_trackbar{ $win->{_irssi} } = 1;
- Irssi::signal_emit("window trackbar added", $win);
- $view->redraw;
-}
-
-sub update_one_trackbar {
- my $win = shift;
- my $view = shift || $win->view;
- my $force = shift;
- my $ignored = win_ignored($win, $view);
- my $success;
-
- $success = add_one_trackbar_pt1($win, $view) ? 1 : 0
- if $force || !$ignored;
-
- remove_one_trackbar($win, $view)
- if ( $success || !defined $success ) && ( $force || !defined $force || !$ignored );
-
- add_one_trackbar_pt2($win)
- if $success;
-}
-
-sub win_ignored {
- my $win = shift;
- my $view = shift || $win->view;
- return 1 unless $view->{buffer}{lines_count};
- return 1 if $win->{name} eq '(status)' && !$config{use_status_window};
- no warnings 'uninitialized';
- return 1 if grep { $win->{name} eq $_ || $win->{refnum} eq $_
- || $win->get_active_name eq $_ } @{ $config{ignore_windows} };
- return 0;
-}
-
-sub sig_window_changed {
- my ($newwindow, $oldwindow) = @_;
- return unless $oldwindow;
- redraw_one_trackbar($newwindow) unless $old_irssi;
- trackbar_update_seen($newwindow);
- return if delete $keep_trackbar{ $oldwindow->{_irssi} };
- trackbar_update_seen($oldwindow);
- return if $config{require_seen} && $unseen_trackbar{ $oldwindow->{_irssi } };
- return if $config{all_manual};
- update_one_trackbar($oldwindow, undef, 0);
-}
-
-sub trackbar_update_seen {
- my $win = shift;
- return unless $win;
- return unless $unseen_trackbar{ $win->{_irssi} };
-
- my $view = $win->view;
- my $line = $view->get_bookmark('trackbar');
- unless ($line) {
- delete $unseen_trackbar{ $win->{_irssi} };
- Irssi::signal_emit("window trackbar seen", $win);
- return;
- }
- my $startline = $view->{startline};
- return unless $startline;
-
- if ($startline->{info}{time} < $line->{info}{time}
- || $startline->{_irssi} == $line->{_irssi}) {
- delete $unseen_trackbar{ $win->{_irssi} };
- Irssi::signal_emit("window trackbar seen", $win);
- }
-}
-
-sub screen_length;
-{ local $@;
- eval { require Text::CharWidth; };
- unless ($@) {
- *screen_length = sub { Text::CharWidth::mbswidth($_[0]) };
- }
- else {
- *screen_length = sub {
- my $temp = shift;
- Encode::_utf8_on($temp) if is_utf8();
- length($temp)
- };
- }
-}
-
-{ my %strip_table = (
- (map { $_ => '' } (split //, '04261537' . 'kbgcrmyw' . 'KBGCRMYW' . 'U9_8I:|FnN>#[' . 'pP')),
- (map { $_ => $_ } (split //, '{}%')),
- );
- sub c_length {
- my $o = Irssi::strip_codes($_[0]);
- $o =~ s/(%(%|Z.{6}|z.{6}|X..|x..|.))/exists $strip_table{$2} ? $strip_table{$2} :
- $2 =~ m{x(?:0[a-f]|[1-6][0-9a-z]|7[a-x])|z[0-9a-f]{6}}i ? '' : $1/gex;
- screen_length($o)
- }
-}
-
-sub line {
- my ($width, $time) = @_;
- my $string = $config{string};
- $string = ' ' unless length $string;
- $time ||= time;
-
- Encode::_utf8_on($string) if is_utf8();
- my $length = c_length($string);
-
- my $format = '';
- if ($config{print_timestamp}) {
- $format = $config{timestamp_str};
- $format =~ y/%/\01/;
- $format =~ s/\01\01/%/g;
- $format = strftime($format, localtime $time);
- $format =~ y/\01/%/;
- }
-
- my $times = $width / $length;
- $times += 1 if $times != int $times;
- my $style = "$config{style}";
- Encode::_utf8_on($style) if is_utf8();
- $format .= $style;
- $width -= c_length($format);
- $string x= $times;
- chop $string while length $string && c_length($string) > $width;
- return $format . $string;
-}
-
-sub remove_all_trackbars {
- for my $window (Irssi::windows) {
- next unless ref $window;
- remove_one_trackbar($window);
- }
-}
-
-sub UNLOAD {
- remove_all_trackbars();
-}
-
-sub redraw_one_trackbar {
- my $win = shift;
- my $view = $win->view;
- my $line = $view->get_bookmark('trackbar');
- return unless $line;
- my $bottom = $view->{bottom};
- $win->print_after($line, MSGLEVEL_NEVER, line($win->{width}, $line->{info}{time}),
- $line->{info}{time});
- $view->set_bookmark('trackbar', $win->last_line_insert);
- $view->remove_line($line);
- $win->command('^scrollback end') if $bottom && !$win->view->{bottom};
- $view->redraw;
-}
-
-sub redraw_trackbars {
- return unless check_version();
- for my $win (Irssi::windows) {
- next unless ref $win;
- redraw_one_trackbar($win);
- }
-}
-
-sub goto_trackbar {
- my $win = Irssi::active_win;
- my $line = $win->view->get_bookmark('trackbar');
-
- if ($line) {
- $win->command("scrollback goto ". strftime("%d %H:%M:%S", localtime($line->{info}{time})));
- } else {
- $win->printformat(MSGLEVEL_CLIENTCRAP, 'trackbar_not_found');
- }
-}
-
-sub cmd_mark {
- update_one_trackbar(Irssi::active_win, undef, 1);
-}
-
-sub cmd_markall {
- for my $window (Irssi::windows) {
- next unless ref $window;
- update_one_trackbar($window);
- }
-}
-
-sub signal_stop {
- Irssi::signal_stop;
-}
-
-sub cmd_markvisible {
- my @wins = Irssi::windows;
- my $awin =
- my $bwin = Irssi::active_win;
- my $awin_counter = 0;
- Irssi::signal_add_priority('window changed' => 'signal_stop', -99);
- do {
- Irssi::active_win->command('window up');
- $awin = Irssi::active_win;
- update_one_trackbar($awin);
- ++$awin_counter;
- } until ($awin->{refnum} == $bwin->{refnum} || $awin_counter >= @wins);
- Irssi::signal_remove('window changed' => 'signal_stop');
-}
-
-sub cmd_trackbar_remove_one {
- remove_one_trackbar(Irssi::active_win);
-}
-
-sub cmd_remove_all_trackbars {
- remove_all_trackbars();
- Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'trackbar_all_removed');
-}
-
-sub cmd_keep_once {
- $keep_trackbar{ Irssi::active_win->{_irssi} } = 1;
-}
-
-sub trackbar_runsub {
- my ($data, $server, $item) = @_;
- $data =~ s/\s+$//g;
-
- if ($data) {
- Irssi::command_runsub('trackbar', $data, $server, $item);
- } else {
- goto_trackbar();
- }
-}
-
-sub update_config {
- my $was_status_window = $config{use_status_window};
- $config{style} = Irssi::settings_get_str('trackbar_style');
- $config{string} = Irssi::settings_get_str('trackbar_string');
- $config{require_seen} = Irssi::settings_get_bool('trackbar_require_seen');
- $config{all_manual} = Irssi::settings_get_bool('trackbar_all_manual');
- $config{ignore_windows} = [ split /[,\s]+/, Irssi::settings_get_str('trackbar_ignore_windows') ];
- $config{use_status_window} = Irssi::settings_get_bool('trackbar_use_status_window');
- $config{print_timestamp} = Irssi::settings_get_bool('trackbar_print_timestamp');
- if (defined $was_status_window && $was_status_window != $config{use_status_window}) {
- if (my $swin = Irssi::window_find_name('(status)')) {
- if ($config{use_status_window}) {
- update_one_trackbar($swin);
- }
- else {
- remove_one_trackbar($swin);
- }
- }
- }
- if ($config{print_timestamp}) {
- my $ts_format = Irssi::settings_get_str('timestamp_format');
- my $ts_theme = Irssi::current_theme->get_format('fe-common/core', 'timestamp');
- my $render_str = Irssi::current_theme->format_expand($ts_theme);
- (my $ts_escaped = $ts_format) =~ s/([%\$])/$1$1/g;
- $render_str =~ s/(?|\$(.)(?!\w)|\$\{(\w+)\})/$1 eq 'Z' ? $ts_escaped : $1/ge;
- $config{timestamp_str} = $render_str;
- }
- redraw_trackbars() unless $old_irssi;
-}
-
-Irssi::settings_add_str('trackbar', 'trackbar_string', is_utf8() ? "\x{2500}" : '-');
-Irssi::settings_add_str('trackbar', 'trackbar_style', '%K');
-Irssi::settings_add_str('trackbar', 'trackbar_ignore_windows', '');
-Irssi::settings_add_bool('trackbar', 'trackbar_use_status_window', 1);
-Irssi::settings_add_bool('trackbar', 'trackbar_print_timestamp', 0);
-Irssi::settings_add_bool('trackbar', 'trackbar_require_seen', 0);
-Irssi::settings_add_bool('trackbar', 'trackbar_all_manual', 0);
-
-update_config();
-
-Irssi::signal_add_last( 'mainwindow resized' => 'redraw_trackbars')
- unless $old_irssi;
-
-Irssi::signal_register({'window trackbar added' => [qw/Irssi::UI::Window/]});
-Irssi::signal_register({'window trackbar seen' => [qw/Irssi::UI::Window/]});
-Irssi::signal_register({'gui page scrolled' => [qw/Irssi::UI::Window/]});
-Irssi::signal_add_last('gui page scrolled' => 'trackbar_update_seen');
-
-Irssi::signal_add('setup changed' => 'update_config');
-Irssi::signal_add_priority('session save' => 'remove_all_trackbars', Irssi::SIGNAL_PRIORITY_HIGH-1);
-
-Irssi::signal_add('window changed' => 'sig_window_changed');
-
-Irssi::command_bind('trackbar goto' => 'goto_trackbar');
-Irssi::command_bind('trackbar keep' => 'cmd_keep_once');
-Irssi::command_bind('trackbar mark' => 'cmd_mark');
-Irssi::command_bind('trackbar markvisible' => 'cmd_markvisible');
-Irssi::command_bind('trackbar markall' => 'cmd_markall');
-Irssi::command_bind('trackbar remove' => 'cmd_trackbar_remove_one');
-Irssi::command_bind('trackbar removeall' => 'cmd_remove_all_trackbars');
-Irssi::command_bind('trackbar redraw' => 'redraw_trackbars');
-Irssi::command_bind('trackbar' => 'trackbar_runsub');
-Irssi::command_bind('mark' => 'cmd_mark');
-Irssi::command_bind_last('help' => 'cmd_help');
-
-Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'trackbar_loaded', $IRSSI{name}, $VERSION, $IRSSI{authors});
-
-# workaround for issue #271
-{ package Irssi::Nick }
diff --git a/irssi/tugg.theme b/irssi/tugg.theme
@@ -1,96 +0,0 @@
-# ~/.irssi/tugg.theme
-# tugg
-# An irssi theme by: tugg
-
-default_color = "-1";
-info_eol = "false";
-replaces = { "[]=" = "%K$*%n"; };
-abstracts = {
- line_start = "%K(%w%%%K)%n ";
- timestamp = "%g$*";
- hilight = "%_$*%_";
- error = "%R$*%n";
- channel = "%_$*%_";
- nick = "%y$0-%n";
- nickhost = "[%b$*]";
- server = "%y%_$*%_";
- comment = "%W[$*]";
- reason = "%b{comment $*}";
- mode = "%g{comment $*}";
- channick_hilight = "%N$*%n";
- chanhost_hilight = "{nickhost %n$*%n}";
- channick = "%W$0-%n";
- chanhost = "{%Knickhost $*%n}";
- channelhilight = "%W$*%n";
- ban = "%r$*%n";
- msgnick = " %n$0%W$1-%n %|";
- ownmsgnick = "{msgnick $0 $1-}";
- ownnick = "%G<%n$*%g>%n";
- pubmsgnick = "{msgnick $0 $1-}";
- pubnick = "%y<%N$*%y>%n";
- pubmsgmenick = "{msgnick $0 $1-}";
- # nicket som highlightar
- menick = "%n%C<%W$*%_%C>%n";
- pubmsghinick = "{msgnick $1 $0$2-%n}";
- msgchannel = "%K:%c$*%n";
- privmsg = "[%R$0%K(%r$1-%K)%n] ";
- ownprivmsg = "[%r$0%K(%y$1-%K)%n] ";
- ownprivmsgnick = "{msgnick $*}";
- ownprivnick = "%n$*%r>%n";
- privmsgnick = "{msgnick %N$*%g>%n}";
- action_core = "%W * $*%n";
- action = "{action_core $*} ";
- ownaction = "{action $*}";
- ownaction_target = "{action_core $0}%K:%c$1%n ";
- pvtaction = "%W (*) $*%n ";
- pvtaction_query = "{action $*}";
- pubaction = "{action $*}";
- whois = " %g$[8]0%W : %w$1-";
- ownnotice = "[%r$0%K(%R$1-%K)]%n ";
- notice = "%K-%M$*%K-%n ";
- pubnotice_channel = "%K:%m$*";
- pvtnotice_host = "%K(%m$*%K)";
- servernotice = "%g!$*%n ";
- ownctcp = "[%b$0%K(%Y$1-%K)] ";
- ctcp = "%w$*%n";
- wallop = "%W$*%n: ";
- wallop_nick = "%n$*";
- wallop_action = "%W * $*%n ";
- netsplit = "%R$*%n";
- netjoin = "%WC$*%n";
- names_prefix = "";
- names_nick = "[%_$0%_$1-] ";
- names_nick_op = "%y{names_nick $*}";
- names_nick_halfop = "%W{names_nick $*}";
- names_nick_voice = "%W{names_nick $*}";
- names_users = "[%W$*%n]";
- names_channel = "%W$*%n";
- dcc = "%g$*%n";
- dccfile = "%_$*%_";
- dccownmsg = "[%r$0%K($1-%K)%n] ";
- dccownnick = "%R$*%n";
- dccownquerynick = "%W$*%n";
- dccownaction = "{action $*}";
- dccownaction_target = "{action_core $0}%K:%c$1%n ";
- dccmsg = "[%G$1-%K(%g$0%K)%n] ";
- dccquerynick = "%G$*%n";
- dccaction = "%W (*dcc*) $*%n %|";
- sb_background = "%0";
- sb_prompt_bg = "%0";
- sb_info_bg = "%0";
- sb_topic_bg = "%0";
- sbstart = " ";
- sbend = "%1 %3 %2 %0 ";
- prompt = "%W$*%y>%g>%n ";
- sb = "%y[%n$*%y]%n ";
- sbmode = "%y(%r+%n$*%y) ";
- sbmore = "%y-> MORE ->%n";
- sbaway = "%y(%Gaway%y)%n";
- sbservertag = ":$0 %y(%nchange with ^X%y)";
- sb_act_sep = "%w$*";
- sb_act_text = "%K$*";
- sb_act_msg = "%y$*";
- sb_act_hilight = "%C$*";
- sb_act_hilight_color = "$0$1-%n";
-};
-
