diff options
Diffstat (limited to '')
32 files changed, 0 insertions, 8251 deletions
diff --git a/.irssi/config b/.irssi/config deleted file mode 100644 index 6667bf6..0000000 --- a/.irssi/config +++ /dev/null @@ -1,750 +0,0 @@ -servers = ( - { - address = "chat.freenode.net"; - chatnet = "Freenode"; - port = "6697"; - use_tls = "yes"; - tls_cert = "~/.irssi/certs/freenode.pem"; - tls_verify = "no"; - autoconnect = "yes"; - }, - { - address = "irc.undernet.org"; - chatnet = "Undernet"; - port = "6667"; - }, - { - address = "irc.oftc.net"; - chatnet = "OFTC"; - port = "6697"; - use_tls = "yes"; - tls_cert = "~/.irssi/certs/oftc.pem"; - tls_verify = "yes"; - autoconnect = "yes"; - }, - { - address = "irc.schmorp.de"; - chatnet = "schmorp"; - port = "6667"; - use_tls = "no"; - tls_verify = "no"; - }, - { - address = "irc.snoonet.org"; - chatnet = "snoonet"; - port = "6697"; - use_tls = "yes"; - tls_cert = "~/.irssi/certs/snoonet.pem"; - tls_verify = "no"; - autoconnect = "yes"; - }, - { - address = "irc.choopa.net"; - chatnet = "EFNet"; - port = "6667"; - use_tls = "no"; - tls_verify = "no"; - autoconnect = "yes"; - }, - { - address = "irc.tilde.chat"; - chatnet = "tilde"; - port = "6697"; - use_tls = "yes"; - tls_cert = "~/.irssi/certs/tilde.pem"; - tls_verify = "yes"; - autoconnect = "yes"; - } -); - -chatnets = { - Freenode = { - type = "IRC"; - max_kicks = "1"; - max_msgs = "4"; - max_whois = "1"; - }; - OFTC = { - type = "IRC"; - nick = "rak"; - autosendcmd = "wait -oftc 2000"; - alternate_nick = "ryanakca"; - max_kicks = "1"; - max_msgs = "1"; - max_whois = "1"; - }; - Undernet = { - type = "IRC"; - max_kicks = "1"; - max_msgs = "1"; - max_whois = "1"; - }; - schmorp = { type = "IRC"; }; - snoonet = { type = "IRC"; nick = "ryanakca"; }; - EFNet = { - type = "IRC"; - nick = "ryanakca"; - alternate_nick = "ryanakca_"; - }; - tilde = { type = "IRC"; nick = "rak_"; alternate_nick = "rak__"; }; -}; - -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"; - CUBES = "SCRIPT EXEC Irssi::active_win->print(\"%_bases\", MSGLEVEL_CLIENTCRAP) \\; Irssi::active_win->print( do { join '', map { \"%x0\\${_}0\\$_\" } '0'..'9','A'..'F' }, MSGLEVEL_NEVER | MSGLEVEL_CLIENTCRAP) \\; Irssi::active_win->print(\"%_cubes\", MSGLEVEL_CLIENTCRAP) \\; Irssi::active_win->print( do { my \\$y = \\$_*6 \\; join '', map { my \\$x = \\$_ \\; map { \"%x\\$x\\$_\\$x\\$_\" } @{['0'..'9','A'..'Z']}[\\$y .. \\$y+5] } 1..6 }, MSGLEVEL_NEVER | MSGLEVEL_CLIENTCRAP) for 0..5 \\; Irssi::active_win->print(\"%_grays\", MSGLEVEL_CLIENTCRAP) \\; Irssi::active_win->print( do { join '', map { \"%x7\\${_}7\\$_\" } 'A'..'X' }, MSGLEVEL_NEVER | MSGLEVEL_CLIENTCRAP) \\; Irssi::active_win->print(\"%_mIRC extended colours\", MSGLEVEL_CLIENTCRAP) \\; my \\$x \\; \\$x .= sprintf \"\00399,%02d%02d\",\\$_,\\$_ for 0..15 \\; Irssi::active_win->print(\\$x, MSGLEVEL_NEVER | MSGLEVEL_CLIENTCRAP) \\; for my \\$z (0..6) { my \\$x \\; \\$x .= sprintf \"\00399,%02d%02d\",\\$_,\\$_ for 16+(\\$z*12)..16+(\\$z*12)+11 \\; Irssi::active_win->print(\\$x, MSGLEVEL_NEVER | MSGLEVEL_CLIENTCRAP) }"; - 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) - http://www.irssi.org"; - T = "TOPIC"; - UB = "UNBAN"; - UMODE = "MODE $N"; - UNSET = "SET -clear"; - W = "/window goto"; - WC = "WINDOW CLOSE"; - WG = "WINDOW GOTO"; - WJOIN = "JOIN -window"; - WI = "WHOIS"; - WII = "WHOIS $0 $0"; - WL = "WINDOW LIST"; - WQUERY = "QUERY -window"; - WW = "WHOWAS"; - 1 = "WINDOW GOTO 1"; - 2 = "WINDOW GOTO 2"; - 3 = "WINDOW GOTO 3"; - 4 = "WINDOW GOTO 4"; - 5 = "WINDOW GOTO 5"; - 6 = "WINDOW GOTO 6"; - 7 = "WINDOW GOTO 7"; - 8 = "WINDOW GOTO 8"; - 9 = "WINDOW GOTO 9"; - 10 = "WINDOW GOTO 10"; - 11 = "WINDOW GOTO 11"; - 12 = "WINDOW GOTO 12"; - 13 = "WINDOW GOTO 13"; - 14 = "WINDOW GOTO 14"; - 15 = "WINDOW GOTO 15"; - 16 = "WINDOW GOTO 16"; - 17 = "WINDOW GOTO 17"; - 18 = "WINDOW GOTO 18"; - 19 = "WINDOW GOTO 19"; - 20 = "WINDOW GOTO 20"; - 21 = "WINDOW GOTO 21"; - 22 = "WINDOW GOTO 22"; - 23 = "WINDOW GOTO 23"; - 24 = "WINDOW GOTO 24"; - 25 = "WINDOW GOTO 25"; - 26 = "WINDOW GOTO 26"; - 27 = "WINDOW GOTO 27"; - 28 = "WINDOW GOTO 28"; - 29 = "WINDOW GOTO 29"; - 30 = "WINDOW GOTO 30"; - 31 = "WINDOW GOTO 31"; - 32 = "WINDOW GOTO 32"; - 33 = "WINDOW GOTO 33"; - 34 = "WINDOW GOTO 34"; - 35 = "WINDOW GOTO 35"; - 36 = "WINDOW GOTO 36"; - 37 = "WINDOW GOTO 37"; - 38 = "WINDOW GOTO 38"; - 39 = "WINDOW GOTO 39"; - 40 = "WINDOW GOTO 40"; - 41 = "WINDOW GOTO 41"; - 42 = "WINDOW GOTO 42"; - 43 = "WINDOW GOTO 43"; - 44 = "WINDOW GOTO 44"; - 45 = "WINDOW GOTO 45"; - 46 = "WINDOW GOTO 46"; - 47 = "WINDOW GOTO 47"; - 48 = "WINDOW GOTO 48"; - 49 = "WINDOW GOTO 49"; - 50 = "WINDOW GOTO 50"; - 51 = "WINDOW GOTO 51"; - 52 = "WINDOW GOTO 52"; - 53 = "WINDOW GOTO 53"; - 54 = "WINDOW GOTO 54"; - 55 = "WINDOW GOTO 55"; - 56 = "WINDOW GOTO 56"; - 57 = "WINDOW GOTO 57"; - 58 = "WINDOW GOTO 58"; - 59 = "WINDOW GOTO 59"; - 60 = "WINDOW GOTO 60"; - 61 = "WINDOW GOTO 61"; - 62 = "WINDOW GOTO 62"; - 63 = "WINDOW GOTO 63"; - 64 = "WINDOW GOTO 64"; - 65 = "WINDOW GOTO 65"; - 66 = "WINDOW GOTO 66"; - 67 = "WINDOW GOTO 67"; - 68 = "WINDOW GOTO 68"; - 69 = "WINDOW GOTO 69"; - 70 = "WINDOW GOTO 70"; - 71 = "WINDOW GOTO 71"; - 72 = "WINDOW GOTO 72"; - 73 = "WINDOW GOTO 73"; - 74 = "WINDOW GOTO 74"; - 75 = "WINDOW GOTO 75"; - 76 = "WINDOW GOTO 76"; - 77 = "WINDOW GOTO 77"; - 78 = "WINDOW GOTO 78"; - 79 = "WINDOW GOTO 79"; - 80 = "WINDOW GOTO 80"; - 81 = "WINDOW GOTO 81"; - 82 = "WINDOW GOTO 82"; - 83 = "WINDOW GOTO 83"; - 84 = "WINDOW GOTO 84"; - 85 = "WINDOW GOTO 85"; - 86 = "WINDOW GOTO 86"; - 87 = "WINDOW GOTO 87"; - 88 = "WINDOW GOTO 88"; - 89 = "WINDOW GOTO 89"; - 90 = "WINDOW GOTO 90"; - 91 = "WINDOW GOTO 91"; - 92 = "WINDOW GOTO 92"; - 93 = "WINDOW GOTO 93"; - 94 = "WINDOW GOTO 94"; - 95 = "WINDOW GOTO 95"; - 96 = "WINDOW GOTO 96"; - 97 = "WINDOW GOTO 97"; - 98 = "WINDOW GOTO 98"; - 99 = "WINDOW GOTO 99"; - wn = "/window goto"; -}; - -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 - http://www.irssi.org"; - - lag = "{sb Lag: $0-}"; - act = "{sb Act: $0-}"; - more = "-- more --"; - }; - - default = { - - window = { - - disabled = "no"; - type = "window"; - placement = "bottom"; - position = "1"; - visible = "active"; - - items = { - barstart = { priority = "100"; }; - time = { }; - user = { }; - window = { }; - window_empty = { }; - lag = { priority = "-1"; }; - more = { priority = "-1"; alignment = "right"; }; - barend = { priority = "100"; alignment = "right"; }; - usercount = { }; - }; - }; - - 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"; }; - twtopic = { priority = "100"; }; - topicbarend = { priority = "100"; alignment = "right"; }; - }; - }; - awl_0 = { - items = { - barstart = { priority = "100"; }; - awl_0 = { }; - barend = { priority = "100"; alignment = "right"; }; - }; - }; - }; -}; -settings = { - core = { - real_name = "Ryan Kavanagh"; - user_name = "rak"; - nick = "rak"; - timestamp_format = "%H:%M"; - quit_message = ""; - }; - "fe-text" = { actlist_sort = "refnum"; }; - "fe-common/core" = { - autolog = "yes"; - autolog_path = "~/irclogs/$tag/$0.log"; - theme = "envy"; - }; - "perl/core/scripts" = { - awl_shared_sbar = "OFF"; - chansort_autosort = "yes"; - twtopic_size = "173"; - twtopic_instruct = "no"; - twtopic_auto_resize = "yes"; - twtopic_refresh = "500"; - twtopic_min_scroll = "no"; - twtopic_ar_padding = "0"; - twtopic_init_pause = "200"; - recdep_channels = "Freenode/ OFTC/ snoonet/"; - recdep_period = "3600"; - autoaway_timeout = "300"; - }; - "irc/core" = { alternate_nick = "ryanakca"; }; -}; -logs = { }; -hilights = ( - { text = "*ryanakca*"; nick = "no"; word = "yes"; }, - { text = "Ryan Kavanagh"; nick = "no"; word = "yes"; }, - { text = "ryanakca -word"; nick = "yes"; word = "yes"; }, - { - text = "[ ]rak[ :,.;@']"; - nick = "no"; - word = "yes"; - regexp = "yes"; - } -); -channels = ( - { name = "#rxvt-unicode"; chatnet = "Freenode"; autojoin = "yes"; }, - { name = "#opensmtpd"; chatnet = "Freenode"; autojoin = "yes"; }, - { name = "#kubuntu-devel"; chatnet = "Freenode"; autojoin = "yes"; }, - { name = "#debian-devel"; chatnet = "OFTC"; autojoin = "yes"; }, - { - name = "#debian-private"; - chatnet = "OFTC"; - autojoin = "yes"; - }, - { name = "#schmorpforge"; chatnet = "schmorp"; autojoin = "yes"; }, - { name = "#debian-multimedia"; chatnet = "OFTC"; autojoin = "yes"; }, - { - name = "#debian-devel-changes"; - chatnet = "OFTC"; - autojoin = "yes"; - }, - { - name = "##computerscience"; - chatnet = "Freenode"; - autojoin = "yes"; - }, - { name = "##math"; chatnet = "Freenode"; autojoin = "yes"; }, - { name = "#debian-quebec"; chatnet = "OFTC"; autojoin = "yes"; }, - { name = "##cclub"; chatnet = "Freenode"; autojoin = "yes"; }, - { name = "#openbsd"; chatnet = "Freenode"; autojoin = "yes"; }, - { name = "##russian"; chatnet = "Freenode"; autojoin = "yes"; }, - { name = "##dependent"; chatnet = "Freenode"; autojoin = "yes"; }, - { name = "##typetheory"; chatnet = "Freenode"; autojoin = "yes"; }, - { name = "##logic"; chatnet = "Freenode"; autojoin = "yes"; }, - { - name = "##categorytheory"; - chatnet = "Freenode"; - autojoin = "yes"; - }, - { name = "#sml"; chatnet = "Freenode"; autojoin = "yes"; }, - { name = "#personalfinance"; chatnet = "snoonet"; }, - { name = "#debian-haskell"; chatnet = "OFTC"; autojoin = "yes"; }, - { name = "#beer"; chatnet = "snoonet"; }, - { name = "#canada"; chatnet = "snoonet"; }, - { name = "#news"; chatnet = "snoonet"; autojoin = "yes"; }, - { name = "#reddit"; chatnet = "snoonet"; autojoin = "yes"; }, - { name = "#russian"; chatnet = "snoonet"; }, - { name = "#debian-offtopic"; chatnet = "OFTC"; autojoin = "yes"; }, - { name = "#debian-games"; chatnet = "OFTC"; autojoin = "yes"; }, - { name = "#neomutt"; chatnet = "Freenode"; autojoin = "yes"; }, - { name = "#rspamd"; chatnet = "freenode"; autojoin = "yes"; }, - { name = "#dovecot"; chatnet = "freenode"; autojoin = "yes"; }, - { name = "#debian-til"; chatnet = "OFTC"; autojoin = "yes"; }, - { - name = "#casualconversation"; - chatnet = "snoonet"; - autojoin = "yes"; - }, - { name = "#math"; chatnet = "snoonet"; autojoin = "yes"; }, - { name = "#talk"; chatnet = "snoonet"; autojoin = "yes"; }, - { name = "#org-mode"; chatnet = "freenode"; autojoin = "yes"; }, - { name = "#team"; chatnet = "tilde"; autojoin = "yes"; }, - { name = "#meta"; chatnet = "tilde"; autojoin = "yes"; }, - { name = "#gophernicus"; chatnet = "Freenode"; autojoin = "yes"; } -); -keyboard = ( - { key = "meta-1"; id = "change_window"; data = "1"; }, - { key = "meta-2"; id = "change_window"; data = "2"; }, - { key = "meta-3"; id = "change_window"; data = "3"; }, - { key = "meta-4"; id = "change_window"; data = "4"; }, - { key = "meta-5"; id = "change_window"; data = "5"; }, - { key = "meta-6"; id = "change_window"; data = "6"; }, - { key = "meta-7"; id = "change_window"; data = "7"; }, - { key = "meta-8"; id = "change_window"; data = "8"; }, - { key = "meta-9"; id = "change_window"; data = "9"; }, - { key = "meta-0"; id = "change_window"; data = "10"; }, - { key = "meta-&"; id = "change_window"; data = "1"; }, - { key = "meta-["; id = "change_window"; data = "2"; }, - { key = "meta-{"; id = "change_window"; data = "3"; }, - { key = "meta-}"; id = "change_window"; data = "4"; }, - { key = "meta-("; id = "change_window"; data = "5"; }, - { key = "meta-="; id = "change_window"; data = "6"; }, - { key = "meta-*"; id = "change_window"; data = "7"; }, - { key = "meta-)"; id = "change_window"; data = "8"; }, - { key = "meta-+"; id = "change_window"; data = "9"; }, - { key = "meta-]"; id = "change_window"; data = "10"; }, - { key = "meta-;"; id = "change_window"; data = "11"; }, - { key = "meta-,"; id = "change_window"; data = "12"; }, - { key = "meta-."; id = "change_window"; data = "13"; }, - { key = "meta-y"; id = "change_window"; data = "14"; }, - { key = "meta-g"; id = "change_window"; data = "15"; }, - { key = "meta-c"; id = "change_window"; data = "16"; }, - { key = "meta-r"; id = "change_window"; data = "17"; }, - { key = "meta-l"; id = "change_window"; data = "18"; } -); -windows = { - 1 = { immortal = "yes"; name = "(status)"; level = "ALL"; }; - 2 = { name = "hilight"; sticky = "yes"; }; - 3 = { - items = ( - { - type = "CHANNEL"; - chat_type = "IRC"; - name = "##categorytheory"; - tag = "Freenode"; - } - ); - }; - 4 = { - items = ( - { - type = "CHANNEL"; - chat_type = "IRC"; - name = "##cclub"; - tag = "Freenode"; - } - ); - }; - 5 = { - items = ( - { - type = "CHANNEL"; - chat_type = "IRC"; - name = "##computerscience"; - tag = "Freenode"; - } - ); - }; - 6 = { - items = ( - { - type = "CHANNEL"; - chat_type = "IRC"; - name = "##dependent"; - tag = "Freenode"; - } - ); - }; - 7 = { - items = ( - { - type = "CHANNEL"; - chat_type = "IRC"; - name = "##logic"; - tag = "Freenode"; - } - ); - }; - 8 = { - items = ( - { - type = "CHANNEL"; - chat_type = "IRC"; - name = "##math"; - tag = "Freenode"; - } - ); - }; - 9 = { - items = ( - { - type = "CHANNEL"; - chat_type = "IRC"; - name = "##russian"; - tag = "Freenode"; - } - ); - }; - 10 = { - items = ( - { - type = "CHANNEL"; - chat_type = "IRC"; - name = "##typetheory"; - tag = "Freenode"; - } - ); - }; - 11 = { - items = ( - { - type = "CHANNEL"; - chat_type = "IRC"; - name = "#dovecot"; - tag = "Freenode"; - } - ); - }; - 12 = { - items = ( - { - type = "CHANNEL"; - chat_type = "IRC"; - name = "#kubuntu-devel"; - tag = "Freenode"; - } - ); - }; - 13 = { - items = ( - { - type = "CHANNEL"; - chat_type = "IRC"; - name = "#neomutt"; - tag = "Freenode"; - } - ); - }; - 14 = { - items = ( - { - type = "CHANNEL"; - chat_type = "IRC"; - name = "#openbsd"; - tag = "Freenode"; - } - ); - }; - 15 = { - items = ( - { - type = "CHANNEL"; - chat_type = "IRC"; - name = "#opensmtpd"; - tag = "Freenode"; - } - ); - }; - 16 = { - items = ( - { - type = "CHANNEL"; - chat_type = "IRC"; - name = "#rspamd"; - tag = "Freenode"; - } - ); - }; - 17 = { - items = ( - { - type = "CHANNEL"; - chat_type = "IRC"; - name = "#rxvt-unicode"; - tag = "Freenode"; - } - ); - }; - 18 = { - items = ( - { - type = "CHANNEL"; - chat_type = "IRC"; - name = "#sml"; - tag = "Freenode"; - } - ); - }; - 19 = { - items = ( - { - type = "CHANNEL"; - chat_type = "IRC"; - name = "#debian-devel"; - tag = "OFTC"; - } - ); - }; - 20 = { - items = ( - { - type = "CHANNEL"; - chat_type = "IRC"; - name = "#debian-devel-changes"; - tag = "OFTC"; - } - ); - }; - 21 = { - items = ( - { - type = "CHANNEL"; - chat_type = "IRC"; - name = "#debian-games"; - tag = "OFTC"; - } - ); - }; - 22 = { - items = ( - { - type = "CHANNEL"; - chat_type = "IRC"; - name = "#debian-haskell"; - tag = "OFTC"; - } - ); - }; - 23 = { - items = ( - { - type = "CHANNEL"; - chat_type = "IRC"; - name = "#debian-multimedia"; - tag = "OFTC"; - } - ); - }; - 24 = { - items = ( - { - type = "CHANNEL"; - chat_type = "IRC"; - name = "#debian-offtopic"; - tag = "OFTC"; - } - ); - }; - 25 = { - items = ( - { - type = "CHANNEL"; - chat_type = "IRC"; - name = "#debian-private"; - tag = "OFTC"; - } - ); - }; - 26 = { - items = ( - { - type = "CHANNEL"; - chat_type = "IRC"; - name = "#debian-quebec"; - tag = "OFTC"; - } - ); - }; - 27 = { - items = ( - { - type = "CHANNEL"; - chat_type = "IRC"; - name = "#news"; - tag = "snoonet"; - } - ); - }; - 28 = { - items = ( - { - type = "CHANNEL"; - chat_type = "IRC"; - name = "#reddit"; - tag = "snoonet"; - } - ); - }; -}; -mainwindows = { - 21 = { first_line = "12"; lines = "74"; }; - 2 = { first_line = "1"; lines = "11"; }; -}; diff --git a/.irssi/default.theme b/.irssi/default.theme deleted file mode 100644 index 6b6aeab..0000000 --- a/.irssi/default.theme +++ /dev/null @@ -1,294 +0,0 @@ -# When testing changes, the easiest way to reload the theme is with /RELOAD. -# This reloads the configuration file too, so if you did any changes remember -# to /SAVE it first. Remember also that /SAVE overwrites the theme file with -# old data so keep backups :) - -# TEMPLATES: - -# The real text formats that irssi uses are the ones you can find with -# /FORMAT command. Back in the old days all the colors and texts were mixed -# up in those formats, and it was really hard to change the colors since you -# might have had to change them in tens of different places. So, then came -# this templating system. - -# Now the /FORMATs don't have any colors in them, and they also have very -# little other styling. Most of the stuff you need to change is in this -# theme file. If you can't change something here, you can always go back -# to change the /FORMATs directly, they're also saved in these .theme files. - -# So .. the templates. They're those {blahblah} parts you see all over the -# /FORMATs and here. Their usage is simply {name parameter1 parameter2}. -# When irssi sees this kind of text, it goes to find "name" from abstracts -# block below and sets "parameter1" into $0 and "parameter2" into $1 (you -# can have more parameters of course). Templates can have subtemplates. -# Here's a small example: -# /FORMAT format hello {colorify {underline world}} -# abstracts = { colorify = "%G$0-%n"; underline = "%U$0-%U"; } -# When irssi expands the templates in "format", the final string would be: -# hello %G%Uworld%U%n -# ie. underlined bright green "world" text. -# and why "$0-", why not "$0"? $0 would only mean the first parameter, -# $0- means all the parameters. With {underline hello world} you'd really -# want to underline both of the words, not just the hello (and world would -# actually be removed entirely). - -# COLORS: - -# You can find definitions for the color format codes in docs/formats.txt. - -# There's one difference here though. %n format. Normally it means the -# default color of the terminal (white mostly), but here it means the -# "reset color back to the one it was in higher template". For example -# if there was /FORMAT test %g{foo}bar, and foo = "%Y$0%n", irssi would -# print yellow "foo" (as set with %Y) but "bar" would be green, which was -# set at the beginning before the {foo} template. If there wasn't the %g -# at start, the normal behaviour of %n would occur. If you _really_ want -# to use the terminal's default color, use %N. - -############################################################################# - -# default foreground color (%N) - -1 is the "default terminal color" -default_color = "-1"; - -# print timestamp/servertag at the end of line, not at beginning -info_eol = "false"; - -# these characters are automatically replaced with specified color -# (dark grey by default) -replaces = { "[]=" = "%K$*%n"; }; - -abstracts = { - ## - ## generic - ## - - # text to insert at the beginning of each non-message line - line_start = "%B-%n!%B-%n "; - - # timestamp styling, nothing by default - timestamp = "$*"; - - # any kind of text that needs hilighting, default is to bold - hilight = "%_$*%_"; - - # any kind of error message, default is bright red - error = "%R$*%n"; - - # channel name is printed - channel = "%_$*%_"; - - # nick is printed - nick = "%_$*%_"; - - # nick host is printed - nickhost = "[$*]"; - - # server name is printed - server = "%_$*%_"; - - # some kind of comment is printed - comment = "[$*]"; - - # reason for something is printed (part, quit, kick, ..) - reason = "{comment $*}"; - - # mode change is printed ([+o nick]) - mode = "{comment $*}"; - - ## - ## channel specific messages - ## - - # highlighted nick/host is printed (joins) - channick_hilight = "%C$*%n"; - chanhost_hilight = "{nickhost %c$*%n}"; - - # nick/host is printed (parts, quits, etc.) - channick = "%c$*%n"; - chanhost = "{nickhost $*}"; - - # highlighted channel name is printed - channelhilight = "%c$*%n"; - - # ban/ban exception/invite list mask is printed - ban = "%c$*%n"; - - ## - ## messages - ## - - # the basic styling of how to print message, $0 = nick mode, $1 = nick - msgnick = "%K<%n$0$1-%K>%n %|"; - - # message from you is printed. "ownnick" specifies the styling of the - # nick ($0 part in msgnick) and "ownmsgnick" specifies the styling of the - # whole line. - - # Example1: You want the message text to be green: - # ownmsgnick = "{msgnick $0 $1-}%g"; - # Example2.1: You want < and > chars to be yellow: - # ownmsgnick = "%Y{msgnick $0 $1-%Y}%n"; - # (you'll also have to remove <> from replaces list above) - # Example2.2: But you still want to keep <> grey for other messages: - # pubmsgnick = "%K{msgnick $0 $1-%K}%n"; - # pubmsgmenick = "%K{msgnick $0 $1-%K}%n"; - # pubmsghinick = "%K{msgnick $1 $0$2-%n%K}%n"; - # ownprivmsgnick = "%K{msgnick $*%K}%n"; - # privmsgnick = "%K{msgnick %R$*%K}%n"; - - # $0 = nick mode, $1 = nick - ownmsgnick = "{msgnick $0 $1-}"; - ownnick = "%_$*%n"; - - # public message in channel, $0 = nick mode, $1 = nick - pubmsgnick = "{msgnick $0 $1-}"; - pubnick = "%N$*%n"; - - # public message in channel meant for me, $0 = nick mode, $1 = nick - pubmsgmenick = "{msgnick $0 $1-}"; - menick = "%Y$*%n"; - - # public highlighted message in channel - # $0 = highlight color, $1 = nick mode, $2 = nick - pubmsghinick = "{msgnick $1 $0$2-%n}"; - - # channel name is printed with message - msgchannel = "%K:%c$*%n"; - - # private message, $0 = nick, $1 = host - privmsg = "[%R$0%K(%r$1-%K)%n] "; - - # private message from you, $0 = "msg", $1 = target nick - ownprivmsg = "[%r$0%K(%R$1-%K)%n] "; - - # own private message in query - ownprivmsgnick = "{msgnick $*}"; - ownprivnick = "%_$*%n"; - - # private message in query - privmsgnick = "{msgnick %R$*%n}"; - - ## - ## Actions (/ME stuff) - ## - - # used internally by this theme - action_core = "%_ * $*%n"; - - # generic one that's used by most actions - action = "{action_core $*} "; - - # own action, both private/public - ownaction = "{action $*}"; - - # own action with target, both private/public - ownaction_target = "{action_core $0}%K:%c$1%n "; - - # private action sent by others - pvtaction = "%_ (*) $*%n "; - pvtaction_query = "{action $*}"; - - # public action sent by others - pubaction = "{action $*}"; - - - ## - ## other IRC events - ## - - # whois - whois = "%# $[8]0 : $1-"; - - # notices - 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 "; - - # CTCPs - ownctcp = "[%r$0%K(%R$1-%K)] "; - ctcp = "%g$*%n"; - - # wallops - wallop = "%_$*%n: "; - wallop_nick = "%n$*"; - wallop_action = "%_ * $*%n "; - - # netsplits - netsplit = "%R$*%n"; - netjoin = "%C$*%n"; - - # /names list - names_prefix = ""; - names_nick = "[%_$0%_$1-] "; - names_nick_op = "{names_nick $*}"; - names_nick_halfop = "{names_nick $*}"; - names_nick_voice = "{names_nick $*}"; - names_users = "[%g$*%n]"; - names_channel = "%G$*%n"; - - # DCC - dcc = "%g$*%n"; - dccfile = "%_$*%_"; - - # DCC chat, own msg/action - dccownmsg = "[%r$0%K($1-%K)%n] "; - dccownnick = "%R$*%n"; - dccownquerynick = "%_$*%n"; - dccownaction = "{action $*}"; - dccownaction_target = "{action_core $0}%K:%c$1%n "; - - # DCC chat, others - dccmsg = "[%G$1-%K(%g$0%K)%n] "; - dccquerynick = "%G$*%n"; - dccaction = "%_ (*dcc*) $*%n %|"; - - ## - ## statusbar - ## - - # default background for all statusbars. You can also give - # the default foreground color for statusbar items. - sb_background = "%4%w"; - - # default backround for "default" statusbar group - #sb_default_bg = "%4"; - # background for prompt / input line - sb_prompt_bg = "%n"; - # background for info statusbar - sb_info_bg = "%8"; - # background for topicbar (same default) - #sb_topic_bg = "%4"; - - # text at the beginning of statusbars. sb-item already puts - # space there,so we don't use anything by default. - sbstart = ""; - # text at the end of statusbars. Use space so that it's never - # used for anything. - sbend = " "; - - topicsbstart = "{sbstart $*}"; - topicsbend = "{sbend $*}"; - - prompt = "[$*] "; - - sb = " %c[%n$*%c]%n"; - sbmode = "(%c+%n$*)"; - sbaway = " (%GzZzZ%n)"; - sbservertag = ":$0 (change with ^X)"; - sbnickmode = "$0"; - - # activity in statusbar - - # ',' separator - sb_act_sep = "%c$*"; - # normal text - sb_act_text = "%c$*"; - # public message - sb_act_msg = "%W$*"; - # hilight - sb_act_hilight = "%M$*"; - # hilight with specified color, $0 = color, $1 = text - sb_act_hilight_color = "$0$1-%n"; -}; diff --git a/.irssi/envy.theme b/.irssi/envy.theme deleted file mode 100644 index b415d77..0000000 --- a/.irssi/envy.theme +++ /dev/null @@ -1,502 +0,0 @@ -# ___ ___ ___ ___ -# /\ \ /\__\ /\__\ |\__\ -# /::\ \ /::| | /:/ / |:| | -# /:/\:\ \ /:|:| | /:/ / |:| | -# /::\~\:\ \ /:/|:| |__ /:/__/ ___ |:|__|__ -# /:/\:\ \:\__\ /:/ |:| /\__\ |:| | /\__\ /::::\__\ -# \:\~\:\ \/__/ \/__|:|/:/ / |:| |/:/ / /:/~~/~ -# \:\ \:\__\ |:/:/ / |:|__/:/ / /:/ / -# \:\ \/__/ |::/ / \::::/__/ \/__/ -# \:\__\ /:/ / ~~~~ -# \/__/ \/__/ v. 3.6 -# -# theme by rolle (rolle @ QuakeNet, rolle_ @ Ircnet) -# http://rollemaa.org/ -# -# you can find the most recent version here: -# http://rolle.tux.fi - -default_color = "-1"; -# Timestamp/servertag loppuun, ei alkuun -info_eol = "false"; -replaces = { "[]=" = "$*"; }; - -abstracts = { - line_start = "%K"; - timestamp = "%K$*%n"; - hilight = "$*"; - error = "$*"; - channel = "$*"; - nick = "$*"; - nickhost = "$*"; - server = "$*"; - comment = "$*"; - reason = "{comment $*}"; - mode = "{comment $*}"; - channick_hilight = "$*"; - chanhost_hilight = "{nickhost $*}"; - channick = "$*"; - chanhost = "{nickhost $*}"; - channelhilight = "$*"; - ban = "$*"; - # Kaikissa alemmissa: $0 = mode, $1 = nick - msgnick = "$0$1- %|"; - ownmsgnick = "{msgnick %K<$0 %G$1-%K>}%n"; - ownnick = "$*"; - pubmsgnick = "{msgnick %K<$0 %W$1-%K>}%n"; - pubnick = "$*"; - pubmsgmenick = "{msgnick %K<$0 %P$1-%K>}%P"; - menick = "%P$*%n"; - # $0 = hilightin väri, $1 = mode, $2 = nick - pubmsghinick = "{msgnick %K<$1 %P$2-%K>%P}"; - msgchannel = ":$*"; - # $0 = nick, $1 = hosti - privmsg = "[$0($1-)] "; - # $0 = "msg", $1 = target nick - ownprivmsg = "[$0($1-)] "; - ownprivmsgnick = "{msgnick $*}"; - ownprivnick = "%K<%G$*%K>%n"; - privmsgnick = "%K<%B$*%K>%n "; - action_core = " %r>%y>%g> %c$0-"; - action = "{action_core $*} "; - ownaction = "{action $*}"; - ownaction_target = "{action_core $*}:$1 "; - pvtaction = " (>>>) $* "; - pvtaction_query = "{action $*}"; - pubaction = "{action $*}"; - ownnotice = "[$0($1-)] "; - notice = "%g$*%K -> %G"; - whois = "%# $[8]0 : $1-"; - pubnotice_channel = ":$*"; - pvtnotice_host = "($*)"; - servernotice = "%r!$* %n"; - ownctcp = "[$0($1-)] "; - ctcp = "$*"; - wallop = "$*: "; - wallop_nick = "$*"; - wallop_action = " * $* "; - netsplit = "$*"; - netjoin = "%K::%g:%K $*"; - names_prefix = "%K"; - names_nick = "%K[$0$1-] "; - names_nick_op = "%K{names_nick $*}"; - names_nick_halfop = "%K{names_nick $*}"; - names_nick_voice = "%K{names_nick $*}"; - names_users = "%K[$*]"; - names_channel = "%K$*"; - dcc = "$*"; - dccfile = "$*"; - dccownmsg = "[$0($1-)] "; - dccownnick = "$*"; - dccownquerynick = "$*"; - dccownaction = "{action $*}"; - dccownaction_target = "{action_core $0}:$1 "; - dccmsg = "[$1-($0)] "; - dccquerynick = "$*"; - dccaction = " (*dcc*) $* %|"; - sb_background = ""; - sb_window_bg = "%n%2"; - sb_default_bg = ""; - sb_prompt_bg = "%0"; - sb_info_bg = ""; - sb_topic_bg = "%G"; - sbstart = ""; - sbend = " "; - topicsbstart = "{sbstart $*}"; - topicsbend = "{sbend $*}"; - prompt = "%R!%G$*%K: "; - sb = " %w/%W$*%w/%n"; - sbmode = ""; - sbaway = "%r>%n"; - sbservertag = "%W$0%n"; - sbnickmode = ""; - sb_act_sep = "%w$*%n"; - sb_act_text = "%G$*%n"; - sb_act_msg = "%G$*%n"; - sb_act_hilight = "%r($*)%n"; - sb_act_hilight_color = "%r$0$1-%n"; -}; -formats = { - "fe-common/core" = { - query_start = "%K:%K:%g:%K %gStarting query%K in {server $1} with {nick $0}"; - join = "%K::%g:%K {channick_hilight $0} [{chanhost_hilight $1}] has %gjoined%K {channel $2}"; - part = "%r:%K:: {channick $0} [{chanhost $1}] has %rleft%K {channel $2}"; - quit = "%r:%K:: {channick $0} [{chanhost $1}] has %rquit%k ({reason $2})"; - quit_once = "%r:%K:: {channick $0} [{chanhost $1}] has %rquit%K ({reason $2})"; - nick_changed = "%K:%y:%K: {channick_hilight $0} is %ynow known as%K {channick_hilight $1}"; - # own_msg = "{ownmsgnick $2 {ownnick $[-10]0}}$1"; - # own_msg_channel = "{ownmsgnick $3 {ownnick $[-10]0}{msgchannel $1}}$2"; - # pubmsg_me = "{pubmsgmenick $2 {menick $[-10]0}}$1"; - # pubmsg_me_channel = "{pubmsgmenick $3 {menick $[-10]0}{msgchannel $1}}$2"; - # pubmsg_hilight = "{pubmsghinick $0 $3 $[-10]1}$2"; - # pubmsg_hilight_channel = "{pubmsghinick $0 $4 $[-10]1{msgchannel $2}}$3"; - # pubmsg = "{pubmsgnick $2 {pubnick \0030$0}}$1"; - # pubmsg_channel = "{pubmsgnick $3 {pubnick $[-10]0}{msgchannel $1}}$2"; - # line_start = "{line_start}"; - # line_start_irssi = "{line_start}{hilight Irssi} %W|%n "; - line_start_irssi = "{line_start}"; - timestamp = "%K{timestamp $Z} "; - # servertag = "$[-11]0 %W|%n "; - servertag = ""; - daychange = "Day changed to %%d %%b %%Y %n"; - talking_with = "%r:%y:%g:%K You are now talking with {nick $0}"; - refnum_too_low = "%r:%K:: Window number must be greater than 1"; - error_server_sticky = "%r:%K:: Window's server is %rsticky%K and it cannot be changed without -unsticky option"; - set_server_sticky = "%K::%g:%K Window's server %gset sticky%K"; - unset_server_sticky = "%K::%g:%K Window's server isn't sticky anymore"; - window_name_not_unique = "%r:%K:: Window names must be unique"; - window_level = "%K::%g:%K Window level is now $0"; - windowlist_header = "Ref Name Active item Server Level"; - windowlist_line = "$[3]0 %|$[20]1 $[15]2 $[15]3 $4"; - windowlist_footer = ""; - windows_layout_saved = "%K::%g:%K Layout of windows is now %gremembered%K next time you start irssi"; - windows_layout_reset = "%K::%g:%K Layout of windows %greset%K to defaults"; - window_info_header = ""; - window_info_footer = ""; - window_info_refnum = "Window : {hilight #$0}"; - window_info_refnum_sticky = "Window : {hilight #$0 (sticky)}"; - window_info_name = "Name : $0"; - window_info_history = "History : $0"; - window_info_size = "Size : $0x$1"; - window_info_level = "Level : $0"; - window_info_server = "Server : $0"; - window_info_server_sticky = "Server : $0 (sticky)"; - window_info_theme = "Theme : $0$1"; - window_info_bound_items_header = "Bounds : {hilight Name Server tag}"; - window_info_bound_item = " : $[!30]0 $[!15]1 $2"; - window_info_bound_items_footer = ""; - window_info_items_header = "Items : {hilight Name Server tag}"; - window_info_item = " $[7]0: $[!30]1 $2"; - window_info_items_footer = ""; - looking_up = "%K::%g:%K %gLooking up%K {server $0}"; - connecting = "%K::%g:%K %gConnecting%K to {server $0} [$1] port {hilight $2}"; - connection_established = "%K::%g:%K Connection to {server $0} %gestablished%K"; - cant_connect = "%r:%K:: %rUnable to connect%K server {server $0} port {hilight $1} {reason $2}"; - connection_lost = "%r:%K:: %rConnection lost%K to {server $0}"; - lag_disconnected = "%r:%K:: %rNo PONG reply%K from server {server $0} in $1 seconds, disconnecting"; - disconnected = "%r:%K:: %rDisconnected%K from {server $0} {reason $1}"; - server_quit = "%r:%K:: %rDisconnecting%K from server {server $0}: {reason $1}"; - server_changed = "%K:%y:%K: %yChanged%K to {hilight $2} server {server $1}"; - unknown_server_tag = "%r:%K:: %rUnknown%K server tag {server $0}"; - no_connected_servers = "%r:%K:: %rNot connected%K to any servers"; - server_list = "{server $0}: $1:$2 ($3)"; - server_lookup_list = "{server $0}: $1:$2 ($3) (connecting...)"; - server_reconnect_list = "{server $0}: $1:$2 ($3) ($5 left before reconnecting)"; - server_reconnect_removed = "%K::%g:%K %gRemoved reconnection%K to server {server $0} port {hilight $1}"; - server_reconnect_not_found = "%r:%K:: Reconnection tag {server $0} %rnot found%K"; - setupserver_added = "%K::%g:%K Server {server $0} %gsaved%K"; - setupserver_removed = "%K::%g:%K Server {server $0} %gremoved%K"; - setupserver_not_found = "%r:%K:: Server {server $0} %rnot found%K"; - your_nick = "%r:%y:%g:%K Your nickname is {nick $0}"; - kick = "%r:%K:: {channick $0} was %rkicked%K from {channel $1} by {nick $2} ({reason $3})"; - invite = "%K:%y:%K: {channick_hilight $0} %yinvites%K you to {channel $1}"; - not_invited = "You have not been invited to a channel!"; - new_topic = "%K:%y:%K: {channick_hilight $0} %ychanged the topic%K of {channel $1} to: {hilight $2}"; - topic_unset = "%K:%y:%K: {channick_hilight $0} %yunset the topic%K on {channel $1}"; - your_nick_changed = "%K:%y:%K: You're %ynow known as%K {channick_hilight $1}"; - talking_in = "%r:%y:%g:%K You are now talking in {channel $0}"; - not_in_channels = "%r:%y:%g:%K You are not on any channels"; - current_channel = "%r:%y:%g:%K Current channel {channel $0}"; - names = "{names_users Users {names_channel $0}} {comment $1 total}"; - names_prefix = "{names_prefix $0}"; - names_nick_op = "{names_nick_op $0 $1}"; - names_nick_halfop = "{names_nick_halfop $0 $1}"; - names_nick_voice = "{names_nick_voice $0 $1}"; - names_nick = "{names_nick $0 $1}"; - endofnames = "%r:%y:%g:%K {channel $0}: Total of {hilight $1} nicks {comment {hilight $2} ops, {hilight $3} halfops, {hilight $4} voices, {hilight $5} normal}"; - chanlist_header = "%r:%y:%g:%K You are on the following channels:"; - chanlist_line = "{channel $[-9]0} %|+$1 ($2): $3"; - chansetup_not_found = "Channel {channel $0} not found"; - chansetup_added = "Channel {channel $0} saved"; - chansetup_removed = "Channel {channel $0} removed"; - chansetup_header = "Channel Network Password Settings"; - chansetup_line = "{channel $[15]0} %|$[10]1 $[10]2 $3"; - chansetup_footer = ""; - channel_move_notify = "{channel $0} is already joined in window $1, use \"/WINDOW ITEM MOVE $0\" to move it to this window"; - # own_msg_private = "{ownprivmsg msg $0}$1"; - # own_msg_private_query = "{ownprivmsgnick {ownprivnick $[-9]2}}$1"; - # msg_private = "{privmsg $0 $1}$2"; - # msg_private_query = "{privmsgnick $[-9]0}$2"; - no_msgs_got = "%r:%y:%g:%K You have not received a message from anyone yet"; - no_msgs_sent = "%r:%y:%g:%K You have not sent a message to anyone yet"; - query_stop = "%r:%y:%g:%K Closing query with {nick $0}"; - no_query = "%r:%y:%g:%K No query with {nick $0}"; - query_server_changed = "%K:%y:%K: Query with {nick $0} %ychanged%K to server {server $1}"; - query_move_notify = "%r:%y:%g:%K Query with {nick $0} is already created to window $1, use \"/WINDOW ITEM MOVE $0\" to move it to this window"; - hilight_header = "%r:%y:%g:%K Highlights:"; - hilight_line = "$[-4]0 $1 $2 $3$4$5"; - hilight_footer = ""; - hilight_not_found = "%r:%K:: Highlight %rnot found%K: $0"; - hilight_removed = "%K::%g:%K Highlight %gremoved%K: $0"; - alias_added = "%K::%g:%K Alias $0 %gadded%K"; - alias_removed = "%K::%g:%K Alias $0 %gremoved%K"; - alias_not_found = "%r:%K:: %rNo such%K alias: $0"; - aliaslist_header = "%r:%y:%g:%K Aliases:"; - aliaslist_line = "$[10]0 $1"; - aliaslist_footer = ""; - log_opened = "%K::%g:%K Log file {hilight $0} %gopened%K"; - log_closed = "%K::%g:%K Log file {hilight $0} %gclosed%K"; - log_create_failed = "%r:%K:: %rCouldn't create%K log file {hilight $0}: $1"; - log_locked = "%r:%K:: Log file {hilight $0} is %rlocked%K, probably by another running Irssi"; - log_not_open = "%r:%K:: Log file {hilight $0} %rnot open%K"; - log_started = "%K::%g:%K %gStarted%K logging to file {hilight $0}"; - log_stopped = "%r:%K:: %rStopped%K logging to file {hilight $0}"; - log_list_header = "%r:%y:%g:%K Logs:"; - log_list = "$0 $1: $2 $3$4"; - log_list_footer = ""; - windowlog_file = "%K::%g:%K Window LOGFILE set to $0"; - windowlog_file_logging = "%r:%K:: %rCan't change%K window's logfile while log is on"; - no_away_msgs = "%r:%K:: %rNo new%K messages in awaylog"; - away_msgs = "%K::%g:%K {hilight $1} %gnew messages%K in awaylog:"; - module_header = "Module Type Submodules"; - module_line = "$[!20]0 $[7]1 $2"; - module_footer = ""; - module_already_loaded = "%r:%K:: Module {hilight $0/$1} already loaded"; - module_not_loaded = "%r:%K:: Module {hilight $0/$1} %ris not loaded%K"; - module_load_error = "%r:%K:: %rError%K loading module {hilight $0/$1}: $2"; - module_invalid = "%r:%K:: {hilight $0/$1} isn't Irssi module"; - module_loaded = "%K::%g:%K %gLoaded%K module {hilight $0/$1}"; - module_unloaded = "%r:%K:: %rUnloaded%K module {hilight $0/$1}"; - command_unknown = "%r:%K:: %rUnknown%K command: $0"; - command_ambiguous = "%r:%K:: %rAmbiguous%K command: $0"; - option_unknown = "%r:%K:: %rUnknown%K option: $0"; - option_ambiguous = "%r:%K:: %rAmbiguous%K option: $0"; - option_missing_arg = "%r:%K:: %rMissing%K required argument for: $0"; - not_enough_params = "%r:%K:: %rNot enough%K parameters given"; - not_connected = "%r:%K:: %rNot connected%K to server"; - not_joined = "%r:%K:: %rNot joined%K to any channel"; - chan_not_found = "%r:%K:: %rNot joined%K to such channel"; - chan_not_synced = "%r:%K:: Channel %rnot fully synchronized%K yet, try again after a while"; - illegal_proto = "%r:%K:: Command isn't designed for the chat protocol of the active server"; - not_good_idea = "%r:%K:: Doing this is %rnot a good idea%K. Add -YES if you really mean it"; - theme_saved = "%K::%g:%K Theme %gsaved%K to $0"; - theme_save_failed = "%r:%K:: %rError%K saving theme to $0: $1"; - theme_not_found = "%r:%K:: Theme {hilight $0} %rnot found%K"; - theme_changed = "%K:%y:%K: %yUsing%K now theme {hilight $0} ($1)"; - window_theme = "%K::%g:%K %gUsing%K theme {hilight $0} in this window"; - window_theme_default = "%r:%K:: %rNo theme is set%K for this window"; - window_theme_changed = "%K:%y:%K: %yUsing%K now theme {hilight $0} ($1) in this window"; - window_theme_removed = "%K::%g:%K %gRemoved%K theme from this window"; - format_title = "%:[{hilight $0}] - [{hilight $1}]%:"; - format_subtitle = "[{hilight $0}]"; - format_item = "$0 = $1"; - ignored = "%K::%g:%K %gIgnoring%K {hilight $1} from {nick $0}"; - unignored = "%K::%g:%K %gUnignored%K {nick $0}"; - ignore_not_found = "%K::%g:%K {nick $0} %gis not%K being ignored"; - ignore_no_ignores = "%r:%y:%g:%K There are no ignores"; - ignore_header = "%r:%y:%g:%K Ignorance List:"; - ignore_line = "$[-4]0 $1: $2 $3 $4"; - ignore_footer = ""; - unknown_chat_protocol = "%r:%K:: %rUnknown%K chat protocol: $0"; - unknown_chatnet = "%r:%K:: %rUnknown%K chat network: $0 (create it with /IRCNET ADD)"; - not_toggle = "%r:%K:: Value must be either ON, OFF or TOGGLE"; - perl_error = "%r:%K:: Perl %rerror%K: $0"; - bind_key = "$[!20]0 $1 $2"; - bind_unknown_id = "%r:%K:: %rUnknown%K bind action: $0"; - config_saved = "%K::%g:%K %gSaved%K configuration to file $0"; - config_reloaded = "%K::%g:%K %gReloaded%K configuration"; - config_modified = "%r:%y:%g:%K Configuration file was modified since irssi was last started - do you want to overwrite the possible changes?"; - glib_error = "{error GLib $0} $1"; - overwrite_config = "%r:%y:%g:%K Overwrite config (%gy%K/%rN%K)?"; - set_title = "[{hilight $0}]"; - set_item = "$0 = $1"; - set_unknown = "%r:%K:: %rUnknown%K setting $0"; - set_not_boolean = "%r:%K:: Setting {hilight $0} isn't boolean, use /SET"; - translation_not_found = "%r:%K:: %rError%K opening translation table file $0: $1"; - translation_file_error = "%r:%K:: %rError%K parsing translation table file $0"; - pubmsg = "{pubmsgnick $2 {pubnick \00306$[0]0}}$1"; - own_msg = "{ownmsgnick $2 {ownnick $[0]0}}$1"; - }; - "fe-common/irc/dcc" = { - dcc_list_header = "{line_start_irssi}{dcc DCC connections:}"; - dcc_list_footer = "{line_start_irssi}{dcc ];}"; - # own_dcc = "{dccownmsg dcc {dccownnick $1}}$2"; - # own_dcc_action = "{dccownaction_target $0 $1}$2"; - # own_dcc_action_query = "{dccownaction $0}$2"; - # own_dcc_ctcp = "{ownctcp ctcp $0}$1 $2"; - # dcc_msg = "{dccmsg dcc $0}$1"; - # action_dcc = "{dccaction $0}$1"; - # action_dcc_query = "{dccaction $0}$1"; - # own_dcc_query = "{ownmsgnick {dccownquerynick $0}}$2"; - # dcc_msg_query = "{privmsgnick $0}$1"; - dcc_ctcp = "%K::%g:%K {dcc >>> DCC CTCP {hilight $1} %greceived%K from {hilight $0}: $2}"; - dcc_chat = "%K::%g:%K {dcc DCC CHAT from {nick $0} [$1 port $2]}"; - dcc_chat_channel = "%K::%g:%K {dcc DCC CHAT from {nick $0} [$1 port $2] %grequested%K in channel {channel $3}}"; - dcc_chat_not_found = "%K::%g:%K {dcc No DCC CHAT %gconnection open%K to {nick $0}}"; - dcc_chat_connected = "%K::%g:%K {dcc DCC CHAT connection with {nick $0} [$1 port $2] %gestablished%K}"; - dcc_chat_disconnected = "%r:%K:: {dcc DCC %rlost chat%K to {nick $0}}"; - dcc_send = "%K::%g:%K {dcc DCC SEND from {nick $0} [$1 port $2]: $3 [$4 bytes]}"; - dcc_send_channel = "%K::%g:%K {dcc DCC SEND from {nick $0} [$1 port $2]: $3 [$4 bytes] %grequested%K in channel {channel $5}}"; - dcc_send_exists = "%r:%K:: {dcc DCC %ralready sending%K file {dccfile $0} for {nick $1}}"; - dcc_send_not_found = "%r:%K:: {dcc DCC %rnot sending%K file {dccfile $1} to {nick $0}}"; - dcc_send_file_open_error = "%r:%K:: {dcc DCC %rcan't open%K file {dccfile $0}: $1}"; - dcc_send_connected = "%K::%g:%K {dcc DCC %gsending%K file {dccfile $0} for {nick $1} [$2 port $3]}"; - dcc_send_complete = "%K::%g:%K {dcc DCC %gsent%K file {dccfile $0} [{hilight $1}kB] for {nick $2} in {hilight $3} secs [{hilight $4kB/s}]}"; - dcc_send_aborted = "%r:%K:: {dcc DCC %raborted%K sending file {dccfile $0} for {nick $1}}"; - dcc_get_not_found = "%r:%K:: {dcc DCC no file offered by {nick $0}}"; - dcc_get_connected = "%K::%g:%K {dcc DCC %greceiving%K file {dccfile $0} from {nick $1} [$2 port $3]}"; - dcc_get_complete = "%K::%g:%K {dcc DCC %greceived%K file {dccfile $0} [$1kB] from {nick $2} in {hilight $3} secs [$4kB/s]}"; - dcc_get_aborted = "%r:%K:: {dcc DCC %raborted%K receiving file {dccfile $0} from {nick $1}}"; - dcc_unknown_ctcp = "%r:%K:: {dcc DCC unknown ctcp {hilight $0} from {nick $1} [$2]}"; - dcc_unknown_reply = "%r:%K:: {dcc DCC unknown reply {hilight $0} from {nick $1} [$2]}"; - dcc_unknown_type = "%r:%K:: {dcc DCC unknown type {hilight $0}}"; - dcc_invalid_ctcp = "%r:%K:: {dcc DCC received CTCP {hilight $0} with %rinvalid%K parameters from {nick $1}}"; - dcc_connect_error = "%r:%K:: {dcc DCC %rcan't connect%K to {hilight $0} port {hilight $1}}"; - dcc_cant_create = "%r:%K:: {dcc DCC %rcan't create%K file {dccfile $0}}"; - dcc_rejected = "%r:%K:: {dcc DCC $0 was %rrejected%K by {nick $1} [{hilight $2}]}"; - dcc_request_send = "%K::%g:%K {dcc DCC $0 %grequest sent%K to {nick $1}: $2"; - dcc_close = "{dcc DCC $0 close for {nick $1} [{hilight $2}]}"; - dcc_lowport = "{dcc Warning: Port sent with DCC request is a lowport ({hilight $0, $1}) - this isn't normal. It is possible the address/port is faked (or maybe someone is just trying to bypass firewall)}"; - dcc_list_line_chat = "%WChat ->%n {dcc $0 $1}"; - dcc_list_line_file = "%WFile ->%n {dcc $0 $1 : $2k of $3k ($4%%) - $5kB/s - $6}"; - }; - "fe-text" = { - lastlog_too_long = "%r:%y:%g:%K /LASTLOG would print $0 lines. If you really want to print all these lines use -force option."; - lastlog_count = "{hilight Lastlog}: $0 lines"; - lastlog_start = "{hilight Lastlog}:"; - lastlog_end = "{hilight End of Lastlog}"; - refnum_not_found = "%r:%K::%K Window number $0 %rnot found%K"; - window_too_small = "%r:%K::%K %rNot enough room%K to resize this window"; - cant_hide_last = "%r:%K::%K You %rcan't hide%K the last window"; - cant_hide_sticky_windows = "%r:%K::%K You %rcan't hide%K sticky windows (use /WINDOW STICK OFF)"; - cant_show_sticky_windows = "%r:%K::%K You %rcan't show%K sticky windows (use /WINDOW STICK OFF)"; - window_not_sticky = "%r:%K::%K Window %ris not%K sticky"; - window_set_sticky = "%K::%g:%K Window %gset%K sticky"; - window_unset_sticky = "%K::%g:%K Window %gis not%K sticky anymore"; - window_info_sticky = "Sticky : $0"; - window_scroll = "%K::%g:%K Window scroll mode is now $0"; - window_scroll_unknown = "%r:%K:: %rUnknown%K scroll mode $0, must be ON, OFF or DEFAULT"; - }; - "fe-common/irc" = { - netsplit = "%r:%K:: %r{netsplit netsplit}%K %|{server $0} <-> {server $1} %rquits%K: $2"; - netsplit_more = "%r:%K:: %r{netsplit netsplit}%K %|{server $0} <-> {server $1} %rquits:%K $2 (+$3 more, use /NETSPLIT to show all of them)"; - netsplit_join = "%K::%g:%K %g{netjoin netsplit}%K - %|%gjoins:%K $0"; - netsplit_join_more = "%%K::%g:%K %g{netjoin netsplit}%K - %|over, %gjoins:%K $0 (+$1 more)"; - no_netsplits = "%r:%y:%g:%K There are no netsplits"; - netsplits_header = "Nick Channel Server Splitted server"; - netsplits_line = "$[9]0 $[10]1 $[20]2 $3"; - netsplits_footer = ""; - ircnet_added = "%K::%g:%K Ircnet $0 %gsaved%K"; - ircnet_removed = "%K::%g:%K Ircnet $0 %gremoved%K"; - ircnet_not_found = "%r:%K:: Ircnet $0 %rnot found%K"; - ircnet_header = "%r:%y:%g:%K Ircnets:"; - ircnet_line = "$0: $1"; - ircnet_footer = ""; - setupserver_header = "Server Port Network Settings"; - setupserver_line = "%|$[!20]0 $[5]1 $[10]2 $3"; - setupserver_footer = ""; - joinerror_toomany = "%r:%K:: Join %rfails%K: {channel $0} (You have joined to too many channels)"; - joinerror_full = "%r:%K:: Join %rfails%K: {channel $0} (Channel is full)"; - joinerror_invite = "%r:%K:: Join %rfails%K: {channel $0} (You must be invited)"; - joinerror_banned = "%r:%K:: Join %rfails%K: {channel $0} (You are banned)"; - joinerror_bad_key = "%r:%K:: Join %rfails%K: {channel $0} (Wrong channel key)"; - joinerror_bad_mask = "%r:%K:: Join %rfails%K: {channel $0} (Bad channel mask)"; - joinerror_unavail = "%r:%K:: Join %rfails%K: {channel $0} (Channel is temporarily unavailable)"; - joinerror_duplicate = "%r:%K:: Channel {channel $0} already exists - %rcannot create%K it"; - channel_rejoin = "%r:%K:: Channel {channel $0} is temporarily %runavailable%K. Setting up a rejoin, to not rejoin, use /rmrejoins."; - inviting = "%K::%g:%K %gInviting%K {nick $0} to {channel $1}"; - channel_created = "%r:%y:%g:%K Channel {channel $0} created %_$1%_"; - url = "%r:%y:%g:%K Home page for {channelhilight $0}: $1"; - topic = "%r:%y:%g:%K Topic for {channel $0}: %_$1%_"; - no_topic = "%r:%y:%g:%K No topic set for %_$0%_"; - topic_info = "%r:%y:%g:%K Topic set by {channick_hilight $0} {mode $1}"; - chanmode_change = "%K:%y:%K: %ymode%K/{channel $0} [{mode $1}] by {nick $2}"; - server_chanmode_change = "%K::%g: {netsplit ServerMode}%K/{channelhilight $0}: {mode $1} by {nick $2}"; - channel_mode = "%K:%y:%K: %ymode%K/{channelhilight $0} [{mode $1}]"; - bantype = "%K:%y:%K: Ban type %ychanged%K to {channel $0}"; - no_bans = "%r:%y:%g:%K No bans in channel {channel $0}"; - banlist = "$0 - {channel $1}: ban {ban $2}"; - banlist_long = "$0 - {channel $1}: ban {ban $2} {comment by {nick $3}, $4 secs ago}"; - ebanlist = "{channel $0}: ban exception {ban $1}"; - ebanlist_long = "{channel $0}: ban exception {ban $1} {comment by {nick $2}, $3 secs ago}"; - no_invitelist = "%r:%y:%g:%K Invite list is empty in channel {channel $0}"; - invitelist = "{channel $0}: invite {ban $1}"; - no_such_channel = "%r:%K::%K {channel $0}: %rNo such%K channel"; - channel_change = "%K:%y:%K: %ymode%K/{channel $0} [{mode $1}]"; - channel_synced = "%r:%y:%g:%K Join to {channel $0} was synced in {hilight $1} secs"; - usermode_change = "%K:%y:%K: %ymode%K/{channel $0} [{mode $0}] by {channick_hilight $1}"; - user_mode = "%r:%y:%g:%K Your user mode is {mode $0}"; - away = "%K::%g:%K You have been %gmarked%K as being away"; - unaway = "%K::%g:%K You are %gno longer marked%K as being away"; - nick_away = "%r:%K::%K {nick $0} is %raway%K: $1"; - no_such_nick = "%r:%K::%K {nick $0}: %rNo such%K nick/channel"; - nick_in_use = "%r:%K::%K Nick {nick $0} is %ralready in use%K"; - nick_unavailable = "%r:%K::%K Nick {nick $0} is temporarily %runavailable%K"; - your_nick_owned = "%r:%K::%K Your nick is %rowned%K by {nick $3} {comment $1@$2}"; - whois = "%K:%K:%g:%K %g%U{nick $0}%U%K ({nickhost $1@$2})%:%r:%y:%g:%K ircname: $3"; - whowas = "%r:%y:%g:%K {nick $0} {nickhost $1@$2}%:%r:%y:%g:%K {whois ircname $3}"; - whois_idle = "%r:%y:%g:%K Idle: %|since $1 days $2 hours $3 mins $4 secs"; - whois_idle_signon = "%r:%y:%g:%K Idle: %|since $1 days $2 hours $3 mins $4 secs {comment Signed on: $5}"; - whois_server = "%r:%y:%g:%K Server: %|$1 {comment $2}"; - whois_oper = "%r:%y:%g:%K Info: %|{hilight $1}"; - whois_registered = "%r:%y:%g:%K Info: %|has registered this nick"; - whois_help = "%r:%y:%g:%K Info: %|available for help"; - whois_modes = "%r:%y:%g:%K Modes: %|{mode $1}"; - whois_realhost = "%r:%y:%g:%K Hostname: %|{hilight $1-}"; - whois_usermode = "%r:%y:%g:%K Usermode: %|{mode $1}"; - whois_channels = "%r:%y:%g:%K Channels: %|{channel $1}"; - whois_away = "%r:%y:%g:%K Away: %|$1"; - whois_special = "%r:%y:%g:%K Info: %|$1"; - whois_extra = "%r:%y:%g:%K Info: %|$1"; - end_of_whois = "%r:%K::%K %rEnd%K of WHOIS%K"; - end_of_whowas = "%r:%y:%g:%K End of WHOWAS"; - whois_not_found = "%r:%K::%K There is %rno such%K nick {channick_hilight $0}"; - who = "{channelhilight $[-10]0} %|{nick $[!9]1} $[!3]2 $[!2]3 $4@$5 {comment {hilight $6}}"; - end_of_who = "%r:%y:%g:%K End of /WHO list"; - own_notice = "{ownnotice notice $0}$1"; - # own_action = "{nick $[-11]0}%n $1"; - # own_action_target = "{ownaction_target $0 $2}$1"; - own_ctcp = "{ownctcp ctcp $0}$1 $2"; - notice_server = "{servernotice $0}$1"; - notice_public = "{notice $0{pubnotice_channel $1}}$2"; - notice_private = "{notice $0{pvtnotice_host $1}}$2"; - # action_private = "{pvtaction $0}$2"; - # action_private_query = "{pvtaction_query $0}$2"; - # action_public = " {nick $[-11]0}%n $1"; - # action_public_channel = "{pubaction $0{msgchannel $1}}$2"; - ctcp_reply = "%K::%g:%K %gCTCP%K {hilight $0} reply from {channick_hilight $1}: $2"; - ctcp_reply_channel = "%K::%g:%K %gCTCP {hilight $0} reply%K from {channick_hilight $1} in channel {channel $3}: $2"; - ctcp_ping_reply = "%K::%g:%K %gCTCP {hilight PING} reply%K from {channick_hilight $0}: $1.$[-3.0]2 seconds"; - ctcp_requested = "%K::%g:%K %K{ctcp {hilight $0} {comment $1} %grequested%K {hilight $2} from {nick $3}}"; - ctcp_requested_unknown = ""; - online = "%r:%y:%g:%K Users online: {hilight $0}"; - pong = "%K::%g:%K PONG %greceived%K from $0: $1"; - wallops = "{wallop WALLOP {wallop_nick $0}} $1"; - action_wallops = "{wallop WALLOP {wallop_action $0}} $1"; - kill = "%r:%K:: You were %r{error killed}%K by {nick $0} {nickhost $1} {reason $2} {comment Path: $3}"; - kill_server = "%r:%K:: You were %r{error killed}%K by {server $0} {reason $1} {comment Path: $2}"; - error = "%r:%K:: %r{error ERROR}%K $0"; - unknown_mode = "%r:%K:: %rUnknown%K mode character $0"; - not_chanop = "%r:%K:: You're %rnot channel operator%K in {channel $0}"; - silenced = "%K::%g:%K %gSilenced%K {nick $0}"; - unsilenced = "%K::%g:%K %gUnsilenced%K {nick $0}"; - silence_line = "{nick $0}: silence {ban $1}"; - ask_oper_pass = "%r:%y:%g:%K Operator password:"; - }; - "fe-common/perl" = { - script_not_found = "%r:%K:: Script {hilight $0} %rnot found%K"; - script_not_loaded = "%r:%K:: Script {hilight $0} %ris not%K loaded"; - script_loaded = "%K::%g:%K %gLoaded%K script {hilight $0}"; - script_unloaded = "%r:%K:: %rUnloaded%K script {hilight $0}"; - no_scripts_loaded = "%r:%y:%g:%K No scripts are loaded"; - script_list_header = "%r:%y:%g:%K Loaded scripts:"; - script_list_line = "$[!15]0 $1"; - script_list_footer = ""; - script_error = "{error %r:%K:: %rError%K in script {hilight $0}:}"; - }; - # "fe-common/irc/notifylist" = { - # notify_join = "{nick $0} [$1@$2] [{hilight $3}] has joined to $4"; - # notify_part = "{nick $0} has left $4"; - # notify_away = "{nick $0} [$5] [$1@$2] [{hilight $3}] is now away: $4"; - # notify_unaway = "{nick $0} [$4] [$1@$2] [{hilight $3}] is now unaway"; - # notify_unidle = "{nick $0} [$5] [$1@$2] [{hilight $3}] just stopped idling"; - # notify_online = "On $0: {hilight $1}"; - # notify_offline = "Offline: $0"; - # notify_list = "$0: $1 $2 $3"; - # notify_list_empty = "The notify list is empty"; - # }; - "Irssi::Script::adv_windowlist" = { - awl_display_key = "$N${cumode_space}$H$C$S"; - }; -}; - diff --git a/.irssi/scripts/adv_windowlist.pl b/.irssi/scripts/adv_windowlist.pl deleted file mode 100644 index 91afa1c..0000000 --- a/.irssi/scripts/adv_windowlist.pl +++ /dev/null @@ -1,2555 +0,0 @@ -use strict; -use warnings; - -our $VERSION = '1.5'; # 5df597ac461465e -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_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 -# "-" 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 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 = ''; -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 %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 (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'; - 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 { - sort $window_sort_func 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 _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; } - - 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("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'), - 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; - - [ $reverse ? -1 : 1, $undef_check, $equal_check, $class_check, $ignore_case, @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 { - reduce { return unless ref $a; $a->{$b} } $_, @{$so}[5..$#$so] - } $a, $b; - return ((($x[0] <=> $x[1] || $x[0] cmp $x[1]) * $so->[0]) || next); - } - return ($a->{refnum} <=> $b->{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}); - - 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(); - } - - 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(to_uni($_)) => undef } - split ' ', Irssi::settings_get_str('banned_channels'); - - 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 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(); - update_keymap(); -} - -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_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' => 'awins_changed', - 'window name changed' => 'wl_changed', - 'window refnum changed' => 'wl_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' ); - -{ - 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; - 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.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/autoaway.pl b/.irssi/scripts/autoaway.pl deleted file mode 100644 index ef3c485..0000000 --- a/.irssi/scripts/autoaway.pl +++ /dev/null @@ -1,133 +0,0 @@ -# /AUTOAWAY <n> - Mark user away after <n> seconds of inactivity -# /AWAY - play nice with autoaway -# New, brighter, whiter version of my autoaway script. Actually works :) -# (c) 2000 Larry Daffner (vizzie@airmail.net) -# You may freely use, modify and distribute this script, as long as -# 1) you leave this notice intact -# 2) you don't pretend my code is yours -# 3) you don't pretend your code is mine -# -# share and enjoy! - -# A simple script. /autoaway <n> will mark you as away automatically if -# you have not typed any commands in <n> seconds. (<n>=0 disables the feature) -# It will also automatically unmark you away the next time you type a command. -# Note that using the /away command will disable the autoaway mechanism, as -# well as the autoreturn. (when you unmark yourself, the autoaway wil -# restart again) - -# Thanks to Adam Monsen for multiserver and config file fix - -use strict; -use Irssi; -use Irssi::Irc; - -use vars qw($VERSION %IRSSI); -$VERSION = "0.4"; -%IRSSI = ( - authors => 'Larry "Vizzie" Daffner', - contact => 'vizzie@airmail.net', - name => 'Automagic away setting', - description => 'Automatically goes away after defined inactivity', - license => 'BSD', - url => 'http://www.flamingpackets.net/~vizzie/irssi/', - changed => 'Tue Apr 26 19:30:00 CDT 2016', - changes => 'Applied multiserver/store config patch from Adam Monsen' -); - -my ($autoaway_sec, $autoaway_to_tag, $autoaway_state); -$autoaway_state = 0; - -# -# /AUTOAWAY - set the autoaway timeout -# -sub cmd_autoaway { - my ($data, $server, $channel) = @_; - - if (!($data =~ /^[0-9]+$/)) { - Irssi::print("autoaway: usage: /autoaway <seconds>"); - return 1; - } - - $autoaway_sec = $data; - - if ($autoaway_sec) { - Irssi::settings_set_int("autoaway_timeout", $autoaway_sec); - Irssi::print("autoaway timeout set to $autoaway_sec seconds"); - } else { - Irssi::print("autoway disabled"); - } - - if (defined($autoaway_to_tag)) { - Irssi::timeout_remove($autoaway_to_tag); - $autoaway_to_tag = undef; - } - - if ($autoaway_sec) { - $autoaway_to_tag = - Irssi::timeout_add($autoaway_sec*1000, "auto_timeout", ""); - } -} - -# -# away = Set us away or back, within the autoaway system -sub cmd_away { - my ($data, $server, $channel) = @_; - - if ($data eq "") { - $autoaway_state = 0; - } else { - if ($autoaway_state eq 0) { - Irssi::timeout_remove($autoaway_to_tag); - $autoaway_to_tag = undef; - $autoaway_state = 2; - } - } -} - -sub auto_timeout { - my ($data, $server) = @_; - - # we're in the process.. don't touch anything. - $autoaway_state = 3; - foreach my $server (Irssi::servers()) { - $server->command("/AWAY autoaway after $autoaway_sec seconds"); - } - - Irssi::timeout_remove($autoaway_to_tag); - $autoaway_state = 1; -} - -sub reset_timer { - if ($autoaway_state eq 1) { - $autoaway_state = 3; - foreach my $server (Irssi::servers()) { - $server->command("/AWAY"); - } - - $autoaway_state = 0; - } - if ($autoaway_state eq 0) { - if (defined($autoaway_to_tag)) { - Irssi::timeout_remove($autoaway_to_tag); - $autoaway_to_tag = undef(); - } - if ($autoaway_sec) { - $autoaway_to_tag = Irssi::timeout_add($autoaway_sec*1000 - , "auto_timeout", ""); - } - } -} - -Irssi::settings_add_int("misc", "autoaway_timeout", 0); - -my $autoaway_default = Irssi::settings_get_int("autoaway_timeout"); -if ($autoaway_default) { - $autoaway_to_tag = - Irssi::timeout_add($autoaway_default*1000, "auto_timeout", ""); - -} - -Irssi::command_bind('autoaway', 'cmd_autoaway'); -Irssi::command_bind('away', 'cmd_away'); -Irssi::signal_add('send command', 'reset_timer'); diff --git a/.irssi/scripts/autorun/adv_windowlist.pl b/.irssi/scripts/autorun/adv_windowlist.pl deleted file mode 120000 index d210a5c..0000000 --- a/.irssi/scripts/autorun/adv_windowlist.pl +++ /dev/null @@ -1 +0,0 @@ -../adv_windowlist.pl
\ No newline at end of file diff --git a/.irssi/scripts/autorun/autoaway.pl b/.irssi/scripts/autorun/autoaway.pl deleted file mode 120000 index a6c9910..0000000 --- a/.irssi/scripts/autorun/autoaway.pl +++ /dev/null @@ -1 +0,0 @@ -../autoaway.pl
\ No newline at end of file diff --git a/.irssi/scripts/autorun/chansort.pl b/.irssi/scripts/autorun/chansort.pl deleted file mode 120000 index 8b25183..0000000 --- a/.irssi/scripts/autorun/chansort.pl +++ /dev/null @@ -1 +0,0 @@ -../chansort.pl
\ No newline at end of file diff --git a/.irssi/scripts/autorun/dispatch.pl b/.irssi/scripts/autorun/dispatch.pl deleted file mode 120000 index fbc8677..0000000 --- a/.irssi/scripts/autorun/dispatch.pl +++ /dev/null @@ -1 +0,0 @@ -../dispatch.pl
\ No newline at end of file diff --git a/.irssi/scripts/autorun/go.pl b/.irssi/scripts/autorun/go.pl deleted file mode 120000 index c516cee..0000000 --- a/.irssi/scripts/autorun/go.pl +++ /dev/null @@ -1 +0,0 @@ -../go.pl
\ No newline at end of file diff --git a/.irssi/scripts/autorun/hilightwin.pl b/.irssi/scripts/autorun/hilightwin.pl deleted file mode 120000 index fb9568b..0000000 --- a/.irssi/scripts/autorun/hilightwin.pl +++ /dev/null @@ -1 +0,0 @@ -../hilightwin.pl
\ No newline at end of file diff --git a/.irssi/scripts/autorun/nickcolor.pl b/.irssi/scripts/autorun/nickcolor.pl deleted file mode 120000 index f4f7c6f..0000000 --- a/.irssi/scripts/autorun/nickcolor.pl +++ /dev/null @@ -1 +0,0 @@ -../nickcolor.pl
\ No newline at end of file diff --git a/.irssi/scripts/autorun/recentdepart.pl b/.irssi/scripts/autorun/recentdepart.pl deleted file mode 120000 index cafd41b..0000000 --- a/.irssi/scripts/autorun/recentdepart.pl +++ /dev/null @@ -1 +0,0 @@ -../recentdepart.pl
\ No newline at end of file diff --git a/.irssi/scripts/autorun/splitlong.pl b/.irssi/scripts/autorun/splitlong.pl deleted file mode 120000 index f2fa101..0000000 --- a/.irssi/scripts/autorun/splitlong.pl +++ /dev/null @@ -1 +0,0 @@ -../splitlong.pl
\ No newline at end of file diff --git a/.irssi/scripts/autorun/tmux_away.pl b/.irssi/scripts/autorun/tmux_away.pl deleted file mode 120000 index 70df40e..0000000 --- a/.irssi/scripts/autorun/tmux_away.pl +++ /dev/null @@ -1 +0,0 @@ -../tmux_away.pl
\ No newline at end of file diff --git a/.irssi/scripts/autorun/trackbar.pl b/.irssi/scripts/autorun/trackbar.pl deleted file mode 120000 index 8c5a483..0000000 --- a/.irssi/scripts/autorun/trackbar.pl +++ /dev/null @@ -1 +0,0 @@ -../trackbar.pl
\ No newline at end of file diff --git a/.irssi/scripts/autorun/twtopic.pl b/.irssi/scripts/autorun/twtopic.pl deleted file mode 120000 index a283269..0000000 --- a/.irssi/scripts/autorun/twtopic.pl +++ /dev/null @@ -1 +0,0 @@ -../twtopic.pl
\ No newline at end of file diff --git a/.irssi/scripts/autorun/usercount.pl b/.irssi/scripts/autorun/usercount.pl deleted file mode 120000 index 1afd2ea..0000000 --- a/.irssi/scripts/autorun/usercount.pl +++ /dev/null @@ -1 +0,0 @@ -../usercount.pl
\ No newline at end of file diff --git a/.irssi/scripts/chansort.pl b/.irssi/scripts/chansort.pl deleted file mode 100644 index 814d041..0000000 --- a/.irssi/scripts/chansort.pl +++ /dev/null @@ -1,103 +0,0 @@ -#! /usr/bin/perl -# -# $Id: chansort.pl,v 1.4 2004/11/02 22:52:33 peder Exp $ -# -# Copyright (C) 2004 by Peder Stray <peder@gzip.ninja.no> -# - -use strict; -use Irssi; -use Irssi::Irc; - -# ======[ Script Header ]=============================================== - -use vars qw{$VERSION %IRSSI}; -($VERSION) = '$Revision: 1.4 $' =~ / (\d+\.\d+) /; -%IRSSI = ( - name => 'chansort', - authors => 'Peder Stray', - contact => 'peder@ninja.no', - url => 'http://ninja.no/irssi/chansort.pl', - license => 'GPL', - description => 'Sort all channel and query windows', - ); - -# ======[ Hooks ]======================================================= - -# --------[ sig_sort_trigger ]------------------------------------------ - -sub sig_sort_trigger { - return unless Irssi::settings_get_bool('chansort_autosort'); - cmd_chansort(); -} - -# ======[ Commands ]==================================================== - -# --------[ CHANSORT ]-------------------------------------------------- - -# Usage: /CHANSORT -sub cmd_chansort { - my(@windows); - my($minwin); - - for my $win (Irssi::windows()) { - my $act = $win->{active}; - my $key; - - if ($act->{type} eq 'CHANNEL') { - $key = "C".$act->{server}{tag}.' '.substr($act->{visible_name}, 1); - } - elsif ($act->{type} eq 'QUERY') { - $key = "Q".$act->{server}{tag}.' '.$act->{visible_name}; - } - else { - next; - } - if (!defined($minwin) || $minwin > $win->{refnum}) { - $minwin = $win->{refnum}; - } - push @windows, [ lc $key, $win ]; - - } - - for (sort {$a->[0] cmp $b->[0]} @windows) { - my($key,$win) = @$_; - my($act) = $win->{active}; - -# printf("win[%d->%d]: t[%s] [%s] [%s] {%s}\n", -# $win->{refnum}, -# $minwin, -# $act->{type}, -# $act->{visible_name}, -# $act->{server}{tag}, -# $key, -# ); - - $win->command("window move $minwin"); - $minwin++; - } -} - -# ======[ Setup ]======================================================= - -# --------[ Register commands ]----------------------------------------- - -Irssi::command_bind('chansort', 'cmd_chansort'); - -# --------[ Register settings ]----------------------------------------- - -Irssi::settings_add_bool('chansort', 'chansort_autosort', 0); - -# --------[ Register signals ]------------------------------------------ - -Irssi::signal_add_last('window item name changed', 'sig_sort_trigger'); -Irssi::signal_add_last('channel created', 'sig_sort_trigger'); -Irssi::signal_add_last('query created', 'sig_sort_trigger'); - -# ======[ END ]========================================================= - -# Local Variables: -# header-initial-hide: t -# mode: header-minor -# end: - diff --git a/.irssi/scripts/dispatch.pl b/.irssi/scripts/dispatch.pl deleted file mode 100644 index 6050520..0000000 --- a/.irssi/scripts/dispatch.pl +++ /dev/null @@ -1,26 +0,0 @@ -use strict; -use warnings; -use Irssi; -use Irssi::Irc; -use vars qw($VERSION %IRSSI); - -$VERSION = "0.0.2"; -%IRSSI = ( - authors => "Sebastian 'yath' Schmidt", - contact => "yathen\@web.de", - name => "Command dispatcher", - description => "This scripts sends unknown commands to the server", - license => "GNU GPLv2", - changed => "Tue Mar 5 14:55:29 CET 2002", -); - -sub event_default_command { - my ($command, $server) = @_; - return if (Irssi::settings_get_bool("dispatch_unknown_commands") == 0 - || !$server); - $server->send_raw($command); - Irssi::signal_stop(); -} - -Irssi::settings_add_bool("misc", "dispatch_unknown_commands", 1); -Irssi::signal_add_first("default command", "event_default_command"); diff --git a/.irssi/scripts/go.pl b/.irssi/scripts/go.pl deleted file mode 100644 index 0b0a2a2..0000000 --- a/.irssi/scripts/go.pl +++ /dev/null @@ -1,105 +0,0 @@ -use strict; -use vars qw($VERSION %IRSSI); -use Irssi; -use Irssi::Irc; - -# Usage: -# /script load go.pl -# If you are in #irssi you can type /go #irssi or /go irssi or even /go ir ... -# also try /go ir<tab> and /go <tab> (that's two spaces) -# -# The following settings exist: -# -# /SET go_match_case_sensitive [ON|OFF] -# Match window/item names sensitively (the default). Turning this off -# means e.g. "/go foo" would jump to a window named "Foobar", too. -# -# /SET go_match_anchored [ON|OFF] -# Match window/names only at the start of the word (the default). Turning -# this off will mean that strings can match anywhere in the window/names. -# The leading '#' of channel names is optional either way. -# -# /SET go_complete_case_sensitive [ON|OFF] -# When using tab-completion, match case-insensitively (the default). -# Turning this on means that "/go foo<tab>" will *not* suggest "Foobar". -# -# /SET go_complete_anchored [ON|OFF] -# Match window/names only at the start of the word. The default is 'off', -# which causes completion to match anywhere in the window/names during -# completion. The leading '#' of channel names is optional either way. -# - -$VERSION = '1.1'; - -%IRSSI = ( - authors => 'nohar', - contact => 'nohar@freenode', - name => 'go to window', - description => 'Implements /go command that activates a window given a name/partial name. It features a nice completion.', - license => 'GPLv2 or later', - changed => '2017-02-02' -); - -sub _make_regexp { - my ($name, $ci, $aw) = @_; - my $re = "\Q${name}\E"; - $re = "(?i:$re)" unless $ci; - $re = "^#?$re" if $aw; - return $re; -} - -sub signal_complete_go { - my ($complist, $window, $word, $linestart, $want_space) = @_; - my $channel = $window->get_active_name(); - my $k = Irssi::parse_special('$k'); - - return unless ($linestart =~ /^\Q${k}\Ego\b/i); - - my $re = _make_regexp($word, - Irssi::settings_get_bool('go_complete_case_sensitive'), - Irssi::settings_get_bool('go_complete_anchored')); - @$complist = (); - foreach my $w (Irssi::windows) { - my $name = $w->get_active_name(); - if ($word ne "") { - if ($name =~ $re) { - push(@$complist, $name) - } - } else { - push(@$complist, $name); - } - } - Irssi::signal_stop(); -}; - -sub cmd_go -{ - my($chan,$server,$witem) = @_; - - $chan =~ s/ *//g; - my $re = _make_regexp($chan, - Irssi::settings_get_bool('go_match_case_sensitive'), - Irssi::settings_get_bool('go_match_anchored')); - - foreach my $w (Irssi::windows) { - my $name = $w->get_active_name(); - if ($name =~ $re) { - $w->set_active(); - return; - } - } -} - -Irssi::command_bind("go", "cmd_go"); -Irssi::signal_add_first('complete word', 'signal_complete_go'); -Irssi::settings_add_bool('go', 'go_match_case_sensitive', 1); -Irssi::settings_add_bool('go', 'go_complete_case_sensitive', 0); -Irssi::settings_add_bool('go', 'go_match_anchored', 1); -Irssi::settings_add_bool('go', 'go_complete_anchored', 0); - -# Changelog -# -# 2017-02-02 1.1 martin f. krafft <madduck@madduck.net> -# - made case-sensitivity of match configurable -# - made anchoring of search strings configurable -# diff --git a/.irssi/scripts/hilightwin.pl b/.irssi/scripts/hilightwin.pl deleted file mode 100644 index 3bb2863..0000000 --- a/.irssi/scripts/hilightwin.pl +++ /dev/null @@ -1,85 +0,0 @@ -# -# Print hilighted messages & private messages to window named "hilight" for -# irssi 0.7.99 by Timo Sirainen -# -# Modded a tiny bit by znx to stop private messages entering the hilighted -# window (can be toggled) and to put up a timestamp. -# -# Changed a little by rummik to optionally show network name. Enable with -# `/set hilightwin_shownetwork on` -# - -use strict; -use Irssi; -use POSIX; -use vars qw($VERSION %IRSSI); - -$VERSION = "1.00"; -%IRSSI = ( - authors => "Timo \'cras\' Sirainen, Mark \'znx\' Sangster, Kimberly \'rummik\' Zick", - contact => "tss\@iki.fi, znxster\@gmail.com, git\@zick.kim", - name => "hilightwin", - description => "Print hilighted messages to window named \"hilight\"", - license => "Public Domain", - url => "http://irssi.org/", - changed => "Thu Apr 6 15:30:25 EDT 2017" -); - -sub is_ignored { - my ($dest) = @_; - - my @ignore = split(' ', Irssi::settings_get_str('hilightwin_ignore_targets')); - return 0 if (!@ignore); - - my %targets = map { $_ => 1 } @ignore; - - return 1 if exists($targets{"*"}); - return 1 if exists($targets{$dest->{target}}); - - if ($dest->{server}) { - my $tag = $dest->{server}->{tag}; - return 1 if exists($targets{$tag . "/*"}); - return 1 if exists($targets{$tag . "/" . $dest->{target}}); - } - - return 0; -} - -sub sig_printtext { - my ($dest, $text, $stripped) = @_; - - my $opt = MSGLEVEL_HILIGHT; - my $shownetwork = Irssi::settings_get_bool('hilightwin_show_network'); - - if(Irssi::settings_get_bool('hilightwin_showprivmsg')) { - $opt = MSGLEVEL_HILIGHT|MSGLEVEL_MSGS; - } - - if( - ($dest->{level} & ($opt)) && - ($dest->{level} & MSGLEVEL_NOHILIGHT) == 0 && - (!is_ignored($dest)) - ) { - my $window = Irssi::window_find_name('hilight'); - - if ($dest->{level} & MSGLEVEL_PUBLIC) { - $text = $dest->{target}.": ".$text; - $text = $dest->{server}->{tag} . "/" . $text if ($shownetwork); - } elsif ($shownetwork) { - $text = $dest->{server}->{tag} . ": " . $text; - } - $text =~ s/%/%%/g; - $window->print($text, MSGLEVEL_CLIENTCRAP) if ($window); - } -} - -my $window = Irssi::window_find_name('hilight'); -Irssi::print("Create a window named 'hilight'") if (!$window); - -Irssi::settings_add_bool('hilightwin','hilightwin_showprivmsg',1); -Irssi::settings_add_str('hilightwin', 'hilightwin_ignore_targets', ''); -Irssi::settings_add_bool('hilightwin','hilightwin_show_network', 0); - -Irssi::signal_add('print text', 'sig_printtext'); - -# vim:set ts=4 sw=4 et: diff --git a/.irssi/scripts/nickcolor.pl b/.irssi/scripts/nickcolor.pl deleted file mode 100644 index 95b7b63..0000000 --- a/.irssi/scripts/nickcolor.pl +++ /dev/null @@ -1,253 +0,0 @@ -use strict; -use Irssi 20020101.0250 (); -use vars qw($VERSION %IRSSI); -$VERSION = "2.1"; -%IRSSI = ( - authors => "Timo Sirainen, Ian Peters, David Leadbeater, Bruno Cattáneo", - contact => "tss\@iki.fi", - name => "Nick Color", - description => "assign a different color for each nick", - license => "Public Domain", - url => "http://irssi.org/", - changed => "Mon 08 Jan 21:28:53 BST 2018", -); - -# Settings: -# nickcolor_colors: List of color codes to use. -# e.g. /set nickcolor_colors 2 3 4 5 6 7 9 10 11 12 13 -# (avoid 8, as used for hilights in the default theme). -# -# nickcolor_enable_prefix: Enables prefix for same nick. -# -# nickcolor_enable_truncate: Enables nick truncation. -# -# nickcolor_prefix_text: Prefix text for succesive messages. -# e.g. /set nickcolor_prefix_text - -# -# nickcolor_truncate_value: Truncate nick value. -# e.g. /set nickcolor_truncate_value -7 -# This will truncate nicknames at 7 characters and make them right aligned - -my %saved_colors; -my %session_colors = {}; -my %saved_nicks; # To store each channel's last nickname - -sub load_colors { - open my $color_fh, "<", "$ENV{HOME}/.irssi/saved_colors"; - while (<$color_fh>) { - chomp; - my($nick, $color) = split ":"; - $saved_colors{$nick} = $color; - } -} - -sub save_colors { - open COLORS, ">", "$ENV{HOME}/.irssi/saved_colors"; - - foreach my $nick (keys %saved_colors) { - print COLORS "$nick:$saved_colors{$nick}\n"; - } - - close COLORS; -} - -# If someone we've colored (either through the saved colors, or the hash -# function) changes their nick, we'd like to keep the same color associated -# with them (but only in the session_colors, ie a temporary mapping). - -sub sig_nick { - my ($server, $newnick, $nick, $address) = @_; - my $color; - - $newnick = substr ($newnick, 1) if ($newnick =~ /^:/); - - if ($color = $saved_colors{$nick}) { - $session_colors{$newnick} = $color; - } elsif ($color = $session_colors{$nick}) { - $session_colors{$newnick} = $color; - } -} - -# This gave reasonable distribution values when run across -# /usr/share/dict/words - -sub simple_hash { - my ($string) = @_; - chomp $string; - my @chars = split //, $string; - my $counter; - - foreach my $char (@chars) { - $counter += ord $char; - } - - my @colors = split / /, Irssi::settings_get_str('nickcolor_colors'); - $counter = $colors[$counter % @colors]; - - return $counter; -} - -# process public (others) messages -sub sig_public { - my ($server, $msg, $nick, $address, $target) = @_; - - my $enable_prefix = Irssi::settings_get_bool('nickcolor_enable_prefix'); - my $enable_truncate = Irssi::settings_get_bool('nickcolor_enable_truncate'); - my $prefix_text = Irssi::settings_get_str('nickcolor_prefix_text'); - my $truncate_value = Irssi::settings_get_int('nickcolor_truncate_value'); - - # Reference for server/channel - my $tagtarget = "$server->{tag}/$target"; - - # Set default nick truncate value to 0 if option is disabled - $truncate_value = 0 if (!$enable_truncate); - - # Has the user assigned this nick a color? - my $color = $saved_colors{$nick}; - - # Have -we- already assigned this nick a color? - if (!$color) { - $color = $session_colors{$nick}; - } - - # Let's assign this nick a color - if (!$color) { - $color = simple_hash $nick; - $session_colors{$nick} = $color; - } - - $color = sprintf "\003%02d", $color; - - # Optional: We check if it's the same nickname for current target - if ($saved_nicks{$tagtarget} eq $nick && $enable_prefix) - { - # Grouped message - Irssi::command('/^format pubmsg ' . $prefix_text . '$1'); - } - else - { - # Normal message - Irssi::command('/^format pubmsg {pubmsgnick $2 {pubnick ' . $color . '$[' . $truncate_value . ']0}}$1'); - - # Save nickname for next message - $saved_nicks{$tagtarget} = $nick; - } - -} - -# process public (me) messages -sub sig_me { - my ($server, $msg, $target) = @_; - my $nick = $server->{nick}; - - my $enable_prefix = Irssi::settings_get_bool('nickcolor_enable_prefix'); - my $enable_truncate = Irssi::settings_get_bool('nickcolor_enable_truncate'); - my $prefix_text = Irssi::settings_get_str('nickcolor_prefix_text'); - my $truncate_value = Irssi::settings_get_int('nickcolor_truncate_value'); - - # Reference for server/channel - my $tagtarget = "$server->{tag}/$target"; - - # Set default nick truncate value to 0 if option is disabled - $truncate_value = 0 if (!$enable_truncate); - - # Optional: We check if it's the same nickname for current target - if ($saved_nicks{$tagtarget} eq $nick && $enable_prefix) - { - # Grouped message - Irssi::command('/^format own_msg ' . $prefix_text . '$1'); - } - else - { - # Normal message - Irssi::command('/^format own_msg {ownmsgnick $2 {ownnick $[' . $truncate_value . ']0}}$1'); - - # Save nickname for next message - $saved_nicks{$tagtarget} = $nick; - } - -} - -# process public (others) actions -sub sig_action_public { - my ($server, $msg, $nick, $address, $target) = @_; - - my $enable_prefix = Irssi::settings_get_bool('nickcolor_enable_prefix'); - - # Reference for server/channel - my $tagtarget = "$server->{tag}/$target"; - - # Empty current target nick if prefix option is enabled - $saved_nicks{$tagtarget} = '' if ($enable_prefix); - -} - -# process public (me) actions -sub sig_action_me { - my ($server, $msg, $target) = @_; - my $nick = $server->{nick}; - - my $enable_prefix = Irssi::settings_get_bool('nickcolor_enable_prefix'); - - # Reference for server/channel - my $tagtarget = "$server->{tag}/$target"; - - # Empty current target nick if prefix option is enabled - $saved_nicks{$tagtarget} = '' if ($enable_prefix); - -} - -sub cmd_color { - my ($data, $server, $witem) = @_; - my ($op, $nick, $color) = split " ", $data; - - $op = lc $op; - - if (!$op) { - Irssi::print ("No operation given (save/set/clear/list/preview)"); - } elsif ($op eq "save") { - save_colors; - } elsif ($op eq "set") { - if (!$nick) { - Irssi::print ("Nick not given"); - } elsif (!$color) { - Irssi::print ("Color not given"); - } elsif ($color < 2 || $color > 14) { - Irssi::print ("Color must be between 2 and 14 inclusive"); - } else { - $saved_colors{$nick} = $color; - } - } elsif ($op eq "clear") { - if (!$nick) { - Irssi::print ("Nick not given"); - } else { - delete ($saved_colors{$nick}); - } - } elsif ($op eq "list") { - Irssi::print ("\nSaved Colors:"); - foreach my $nick (keys %saved_colors) { - Irssi::print (chr (3) . sprintf("%02d", $saved_colors{$nick}) . "$nick" . - chr (3) . "1 ($saved_colors{$nick})"); - } - } elsif ($op eq "preview") { - Irssi::print ("\nAvailable colors:"); - foreach my $i (2..14) { - Irssi::print (chr (3) . "$i" . "Color #$i"); - } - } -} - -load_colors; - -Irssi::settings_add_str('misc', 'nickcolor_colors', '2 3 4 5 6 7 9 10 11 12 13'); -Irssi::settings_add_bool('misc', 'nickcolor_enable_prefix', 0); -Irssi::settings_add_bool('misc', 'nickcolor_enable_truncate', 0); -Irssi::settings_add_str('misc', 'nickcolor_prefix_text' => '- '); -Irssi::settings_add_int('misc', 'nickcolor_truncate_value' => 0); -Irssi::command_bind('color', 'cmd_color'); - -Irssi::signal_add('message public', 'sig_public'); -Irssi::signal_add('message own_public', 'sig_me'); -Irssi::signal_add('message irc action', 'sig_action_public'); -Irssi::signal_add('message irc own_action', 'sig_action_me'); -Irssi::signal_add('event nick', 'sig_nick'); diff --git a/.irssi/scripts/old/nickcolor.pl.old b/.irssi/scripts/old/nickcolor.pl.old deleted file mode 100644 index ff9915d..0000000 --- a/.irssi/scripts/old/nickcolor.pl.old +++ /dev/null @@ -1,145 +0,0 @@ -use strict; -use Irssi 20020101.0250 (); -use vars qw($VERSION %IRSSI); -$VERSION = "2"; -%IRSSI = ( - authors => "Timo Sirainen, Ian Peters, David Leadbeater", - contact => "tss\@iki.fi", - name => "Nick Color", - description => "assign a different color for each nick", - license => "Public Domain", - url => "http://irssi.org/", - changed => "Sun 15 Jun 19:10:44 BST 2014", -); - -# Settings: -# nickcolor_colors: List of color codes to use. -# e.g. /set nickcolor_colors 2 3 4 5 6 7 9 10 11 12 13 -# (avoid 8, as used for hilights in the default theme). - -my %saved_colors; -my %session_colors = {}; - -sub load_colors { - open my $color_fh, "<", "$ENV{HOME}/.irssi/saved_colors"; - while (<$color_fh>) { - chomp; - my($nick, $color) = split ":"; - $saved_colors{$nick} = $color; - } -} - -sub save_colors { - open COLORS, ">", "$ENV{HOME}/.irssi/saved_colors"; - - foreach my $nick (keys %saved_colors) { - print COLORS "$nick:$saved_colors{$nick}\n"; - } - - close COLORS; -} - -# If someone we've colored (either through the saved colors, or the hash -# function) changes their nick, we'd like to keep the same color associated -# with them (but only in the session_colors, ie a temporary mapping). - -sub sig_nick { - my ($server, $newnick, $nick, $address) = @_; - my $color; - - $newnick = substr ($newnick, 1) if ($newnick =~ /^:/); - - if ($color = $saved_colors{$nick}) { - $session_colors{$newnick} = $color; - } elsif ($color = $session_colors{$nick}) { - $session_colors{$newnick} = $color; - } -} - -# This gave reasonable distribution values when run across -# /usr/share/dict/words - -sub simple_hash { - my ($string) = @_; - chomp $string; - my @chars = split //, $string; - my $counter; - - foreach my $char (@chars) { - $counter += ord $char; - } - - my @colors = split / /, Irssi::settings_get_str('nickcolor_colors'); - $counter = $colors[$counter % @colors]; - - return $counter; -} - -sub sig_public { - my ($server, $msg, $nick, $address, $target) = @_; - - # Has the user assigned this nick a color? - my $color = $saved_colors{$nick}; - - # Have -we- already assigned this nick a color? - if (!$color) { - $color = $session_colors{$nick}; - } - - # Let's assign this nick a color - if (!$color) { - $color = simple_hash $nick; - $session_colors{$nick} = $color; - } - - $color = sprintf "\003%02d", $color; - $server->command('/^format pubmsg {pubmsgnick $2 {pubnick ' . $color . '$0}}$1'); -} - -sub cmd_color { - my ($data, $server, $witem) = @_; - my ($op, $nick, $color) = split " ", $data; - - $op = lc $op; - - if (!$op) { - Irssi::print ("No operation given (save/set/clear/list/preview)"); - } elsif ($op eq "save") { - save_colors; - } elsif ($op eq "set") { - if (!$nick) { - Irssi::print ("Nick not given"); - } elsif (!$color) { - Irssi::print ("Color not given"); - } elsif ($color < 2 || $color > 14) { - Irssi::print ("Color must be between 2 and 14 inclusive"); - } else { - $saved_colors{$nick} = $color; - } - } elsif ($op eq "clear") { - if (!$nick) { - Irssi::print ("Nick not given"); - } else { - delete ($saved_colors{$nick}); - } - } elsif ($op eq "list") { - Irssi::print ("\nSaved Colors:"); - foreach my $nick (keys %saved_colors) { - Irssi::print (chr (3) . "$saved_colors{$nick}$nick" . - chr (3) . "1 ($saved_colors{$nick})"); - } - } elsif ($op eq "preview") { - Irssi::print ("\nAvailable colors:"); - foreach my $i (2..14) { - Irssi::print (chr (3) . "$i" . "Color #$i"); - } - } -} - -load_colors; - -Irssi::settings_add_str('misc', 'nickcolor_colors', '2 3 4 5 6 7 9 10 11 12 13'); -Irssi::command_bind('color', 'cmd_color'); - -Irssi::signal_add('message public', 'sig_public'); -Irssi::signal_add('event nick', 'sig_nick'); diff --git a/.irssi/scripts/old/trackbar22.pl.old b/.irssi/scripts/old/trackbar22.pl.old deleted file mode 100644 index 0d10882..0000000 --- a/.irssi/scripts/old/trackbar22.pl.old +++ /dev/null @@ -1,508 +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 '-'. -# -# 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. -# -# /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 Irssi; -use Irssi::TextUI; -use Encode; - -use POSIX qw(strftime); -use vars qw($VERSION %IRSSI); - -$VERSION = "2.4"; # 1ca8fa9f28b9586 - -%IRSSI = ( - authors => 'Peter Leurs and 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. -# -## - -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 { - my $win = shift; - my $view = shift || $win->view; - $win->print(line($win->{width}), MSGLEVEL_NEVER); - $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); - remove_one_trackbar($win, $view) - if $force || !defined $force || !$ignored; - add_one_trackbar($win, $view) - if $force || !$ignored; -} - -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_trackbars($newwindow); - trackbar_update_seen($newwindow); - return if delete $keep_trackbar{ $oldwindow->{_irssi} }; - trackbar_update_seen($oldwindow); - return if $config{require_seen} && $unseen_trackbar{ $oldwindow->{_irssi } }; - 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; - if (is_utf8()) { - Encode::_utf8_on($temp); - } - 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); - 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; - $format .= $config{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_trackbars { - return unless check_version(); - for my $win (@_ ? @_ : Irssi::windows) { - next unless ref $win; - my $view = $win->view; - my $line = $view->get_bookmark('trackbar'); - next 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->redraw; - $view->remove_line($line); - $win->command('^scrollback end') if $bottom && !$win->view->{bottom}; - $view->redraw; - } -} - -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{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); - -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}); diff --git a/.irssi/scripts/recentdepart.pl b/.irssi/scripts/recentdepart.pl deleted file mode 100644 index efb8b95..0000000 --- a/.irssi/scripts/recentdepart.pl +++ /dev/null @@ -1,332 +0,0 @@ -#!/usr/bin/perl -w -# -# recentdepart.pl -# -# irssi script -# -# This script, when loaded into irssi, will filter quit and parted messages -# for channels listed in recdep_channels for any nick whos last message was -# more then a specified time ago. -# -# It also filters join messages showing only join messages for nicks who recently -# parted. -# -# [settings] -# recdep_channels -# - Should contain a list of chatnet and channel names that recentdepart -# should monitor. Its format is a spcae delimited list of chatnet/#channel -# pairs. Either chatnet or channel are optional but adding a / makes it -# explicitly recognized as a chatnet or a channel name. A special case is just a -# "*" which turns it on globally. -# -# "#irrsi #perl" - enables filtering on the #irssi and #perl -# channels on all chatnets. -# -# "freenode IRCNet/#irssi" - enables filtering for all channels on frenode -# and only the #irssi channel on IRCNet. -# -# "freenode/" - force "freenode" to be interpreted as the chatnet -# name by adding a / to the end. -# -# "/freenode" - forces "freenode" to be interpreted as the channel -# by prefixing it with the / delimiter. -# -# "*" - globally enables filtering. -# -# recdep_period -# - specifies the window of time, after a nick last spoke, for which quit/part -# notices will be let through the filter. -# -# recdep_rejoin -# - specifies a time period durring which a join notice for someone rejoining will -# be shown. Join messages are filtered if the nicks part/quit message was filtered -# or if the nick is gone longer then the rejoin period. -# Set to 0 to turn off filtering of join notices. -# -# recdep_nickperiod -# - specifies a window of time like recdep_period that is used to filter nick change -# notices. Set to 0 to turn off filtering of nick changes. -# -# recdep_use_hideshow -# - whether to use hideshow script instead of ignoring -# - -use strict; -use warnings; -use Irssi; -use Irssi::Irc; - -our $VERSION = "0.7"; -our %IRSSI = ( - authors => 'Matthew Sytsma', - contact => 'spiderpigy@yahoo.com', - name => 'Recently Departed', - description => 'Filters quit/part/join/nick notices based on time since last message. (Similar to weechat\'s smartfilter).', - license => 'GNU GPLv2 or later', - url => '', -); - -# store a hash of configure selected servers/channels -my %chanlist; -# Track recent times by server/nick/channel -# (it is more optimal to go nick/channel then channel/nick because some quit signals are by server not by channel. -# We will only have to loop through open channels that a nick has spoken in which should be less then looping -# through all the monitored channels looking for the nick. -my %nickhash=(); -# Track recent times for parted nicks by server/channel/nick -my %joinwatch=(); -my $use_hide; - -sub on_setup_changed { - my %old_chanlist = %chanlist; - %chanlist = (); - my @pairs = split(/ /, Irssi::settings_get_str("recdep_channels")); - - $use_hide = Irssi::settings_get_bool("recdep_use_hideshow"); - foreach (@pairs) - { - my ($net, $chan, $more) = split(/\//); - if ($more) - { - /\/(.+)/; - $chan = $1; - } -# Irssi::active_win()->print("Initial Net: $net Chan: $chan"); - if (!$net) - { - $net = '*'; - } - - if ($net =~ /^[#!@&]/ && !$chan) - { - $chan = $net; - $net = "*"; - } - - if (!$chan) - { - $chan = "*"; - } - - $chanlist{$net}{$chan} = 1; - } - - # empty the storage in case theres a channel or server we are no longer filtering - %nickhash=(); - %joinwatch=(); -} - -sub check_channel -{ - my ($server, $channel) = @_; - - # quits dont have a channel so we need to see if this server possibly contains this channel - if (!$channel || $channel eq '*') - { - # see if any non chatnet channel listings are open on this server - if (keys %{ $chanlist{'*'} }) - { - foreach my $chan (keys %{ $chanlist{'*'} }) - { - if ($chan eq '*' || $server->channel_find($chan)) - { - return 1; - } - } - } - - # see if there were any channels listed for this chatnet - if (keys %{ $chanlist{$server->{'chatnet'}} }) - { return 1; } - else - { return 0; } - } - - # check for global channel matches and pair matches - return (($chanlist{'*'}{'*'}) || - ($chanlist{'*'}{$channel}) || - ($chanlist{$server->{'chatnet'}}{'*'}) || - ($chanlist{$server->{'chatnet'}}{$channel})); -} - -# Hook for quitting -sub on_quit -{ - my ($server, $nick, $address, $reason) = @_; - - if ($server->{'nick'} eq $nick) - { return; } - - if (check_channel($server, '*')) - { - my $recent = 0; - foreach my $chan (keys %{ $nickhash{$server->{'tag'}}{lc($nick)} }) - { - if (time() - $nickhash{$server->{'tag'}}{lc($nick)}{$chan} < Irssi::settings_get_int("recdep_period")) - { - $recent = 1; - - if (Irssi::settings_get_int("recdep_rejoin") > 0) - { - $joinwatch{$server->{'tag'}}{$chan}{lc($nick)} = time(); - } - } - } - - delete $nickhash{$server->{'tag'}}{lc($nick)}; - - if (!$recent) - { - $use_hide ? $Irssi::scripts::hideshow::hide_next = 1 - : Irssi::signal_stop(); - } - } -} - -# Hook for parting -sub on_part -{ - my ($server, $channel, $nick, $address, $reason) = @_; - - # cleanup if its you who left a channel - if ($server->{'nick'} eq $nick) - { - # slightly painfull cleanup but we shouldn't hit this as often - foreach my $nickd (keys %{ $nickhash{$server->{'tag'}} }) - { - delete $nickhash{$server->{'tag'}}{$nickd}{$channel}; - if (!keys(%{ $nickhash{$server->{'tag'}}{$nickd} })) - { - delete $nickhash{$server->{'tag'}}{$nickd}; - } - } - delete $joinwatch{$server->{'tag'}}{$channel}; - } - elsif (check_channel($server, $channel)) - { - if (!defined $nickhash{$server->{'tag'}}{lc($nick)}{$channel} || time() - $nickhash{$server->{'tag'}}{lc($nick)}{$channel} > Irssi::settings_get_int("recdep_period")) - { - $use_hide ? $Irssi::scripts::hideshow::hide_next = 1 - : Irssi::signal_stop(); - } - elsif (Irssi::settings_get_int("recdep_rejoin") > 0) - { - $joinwatch{$server->{'tag'}}{$channel}{lc($nick)} = time(); - } - - delete $nickhash{$server->{'tag'}}{lc($nick)}{$channel}; - if (!keys(%{ $nickhash{$server->{'tag'}}{lc($nick)} })) - { - delete $nickhash{$server->{'tag'}}{lc($nick)}; - } - } -} - -# Hook for public messages. -sub on_public -{ - my ($server, $msg, $nick, $addr, $target) = @_; - - if (!$target) { return; } - if ($nick =~ /^#/) { return; } - - if ($server->{'nick'} eq $nick) { return; } - - if (check_channel($server, $target)) - { - $nickhash{$server->{'tag'}}{lc($nick)}{$target} = time(); - } -} - -# Hook for people joining -sub on_join -{ - my ($server, $channel, $nick, $address) = @_; - - if ($server->{'nick'} eq $nick) - { return; } - - if (Irssi::settings_get_int("recdep_rejoin") == 0) - { return; } - - if (check_channel($server, $channel)) - { - if (!defined $joinwatch{$server->{'tag'}}{$channel}{lc($nick)} || time() - $joinwatch{$server->{'tag'}}{$channel}{lc($nick)} > Irssi::settings_get_int("recdep_rejoin")) - { - $use_hide ? $Irssi::scripts::hideshow::hide_next = 1 - : Irssi::signal_stop(); - } - } - - # loop through and delete all old nicks from the rejoin hash - # this should be a small loop because it will only inlude nicks who recently left channel and who - # passed the part message filter - foreach my $nickd (keys %{ $joinwatch{$server->{'tag'}}{$channel} }) - { - if (time() - $joinwatch{$server->{'tag'}}{$channel}{lc($nickd)} < Irssi::settings_get_int("recdep_rejoin")) - { next; } - - delete $joinwatch{$server->{'tag'}}{$channel}{lc($nickd)}; - } - if (!keys(%{ $joinwatch{$server->{'tag'}}{$channel} })) - { - delete $joinwatch{$server->{'tag'}}{$channel}; - } -} - -# Hook for nick changes -sub on_nick -{ - my ($server, $new, $old, $address) = @_; - - if ($server->{'nick'} eq $old || $server->{'nick'} eq $new) - { return; } - - if (check_channel($server, '*')) - { - my $recent = 0; - foreach my $chan (keys %{ $nickhash{$server->{'tag'}}{lc($old)} }) - { - if (time() - $nickhash{$server->{'tag'}}{lc($old)}{$chan} < Irssi::settings_get_int("recdep_nickperiod")) - { - $recent = 1; - } - } - - if (!$recent && Irssi::settings_get_int("recdep_nickperiod") > 0) - { - $use_hide ? $Irssi::scripts::hideshow::hide_next = 1 - : Irssi::signal_stop(); - } - - delete $nickhash{$server->{'tag'}}{lc($old)}; - } -} - - -# Hook for cleanup on server quit -sub on_serverquit -{ - my ($server, $msg) = @_; - - delete $nickhash{$server->{'tag'}}; - delete $joinwatch{$server->{'tag'}}; -} - -# Setup hooks on events -Irssi::signal_add_last("message public", "on_public"); -Irssi::signal_add_last("message part", "on_part"); -Irssi::signal_add_last("message quit", "on_quit"); -Irssi::signal_add_last("message nick", "on_nick"); -Irssi::signal_add_last("message join", "on_join"); -Irssi::signal_add_last("server disconnected", "on_serverquit"); -Irssi::signal_add_last("server quit", "on_serverquit"); -Irssi::signal_add('setup changed', "on_setup_changed"); - -# Add settings -Irssi::settings_add_str("recdentpepart", "recdep_channels", '*'); -Irssi::settings_add_int("recdentpepart", "recdep_period", 600); -Irssi::settings_add_int("recdentpepart", "recdep_rejoin", 120); -Irssi::settings_add_int("recdentpepart", "recdep_nickperiod", 600); -Irssi::settings_add_bool("recdentpepart", "recdep_use_hideshow", 0); -on_setup_changed(); diff --git a/.irssi/scripts/scriptassist.pl b/.irssi/scripts/scriptassist.pl deleted file mode 100644 index 6870894..0000000 --- a/.irssi/scripts/scriptassist.pl +++ /dev/null @@ -1,1229 +0,0 @@ -# by Stefan "tommie" Tomanek -# -# scriptassist.pl - - -use strict; - -our $VERSION = '2003020806'; -our %IRSSI = ( - authors => 'Stefan \'tommie\' Tomanek', - contact => 'stefan@pico.ruhr.de', - name => 'scriptassist', - description => 'keeps your scripts on the cutting edge', - license => 'GPLv2', - url => 'http://irssi.org/scripts/', - modules => 'Data::Dumper LWP::UserAgent (GnuPG)', - commands => "scriptassist" -); - -our ($forked, %remote_db, $have_gpg, @complist); - -use Irssi 20020324; -use Data::Dumper; -use LWP::UserAgent; -use POSIX; - -# GnuPG is not always needed -$have_gpg = 0; -eval "use GnuPG qw(:algo :trust);"; -$have_gpg = 1 if not ($@); - -sub show_help { - my $help = "scriptassist $VERSION -/scriptassist check - Check all loaded scripts for new available versions -/scriptassist update <script|all> - Update the selected or all script to the newest version -/scriptassist search <query> - Search the script database -/scriptassist info <scripts> - Display information about <scripts> -".#/scriptassist ratings <scripts> -# Retrieve the average ratings of the the scripts -#/scriptassist top <num> -# Retrieve the first <num> top rated scripts -"/scriptassist new <num> - Display the newest <num> scripts -".#/scriptassist rate <script> <stars> -# Rate the script with a number of stars ranging from 0-5 -"/scriptassist contact <script> - Write an email to the author of the script - (Requires OpenURL) -/scriptassist cpan <module> - Visit CPAN to look for missing Perl modules - (Requires OpenURL) -/scriptassist install <script> - Retrieve and load the script -/scriptassist autorun <script> - Toggles automatic loading of <script> -"; - my $text=''; - foreach (split(/\n/, $help)) { - $_ =~ s/^\/(.*)$/%9\/$1%9/; - $text .= $_."\n"; - } - print CLIENTCRAP &draw_box("ScriptAssist", $text, "scriptassist help", 1); - #theme_box("ScriptAssist", $text, "scriptassist help", 1); -} - -sub theme_box { - my ($title, $text, $footer, $colour) = @_; - Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'box_header', $title); - foreach (split(/\n/, $text)) { - Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'box_inside', $_); - } - Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'box_footer', $footer); -} - -sub draw_box { - my ($title, $text, $footer, $colour) = @_; - my $box = ''; - $box .= '%R,--[%n%9%U'.$title.'%U%9%R]%n'."\n"; - foreach (split(/\n/, $text)) { - $box .= '%R|%n '.$_."\n"; - } - $box .= '%R`--<%n'.$footer.'%R>->%n'; - $box =~ s/%.//g unless $colour; - return $box; -} - -sub call_openurl { - my ($url) = @_; - # check for a loaded openurl - if (my $code = Irssi::Script::openurl::->can('launch_url')) { - $code->($url); - } else { - print CLIENTCRAP "%R>>%n Please install openurl.pl"; - } -} - -sub bg_do { - my ($func) = @_; - my ($rh, $wh); - pipe($rh, $wh); - if ($forked) { - print CLIENTCRAP "%R>>%n Please wait until your earlier request has been finished."; - return; - } - my $pid = fork(); - $forked = 1; - if ($pid > 0) { - print CLIENTCRAP "%R>>%n Please wait..."; - close $wh; - Irssi::pidwait_add($pid); - my $pipetag; - my @args = ($rh, \$pipetag, $func); - $pipetag = Irssi::input_add(fileno($rh), INPUT_READ, \&pipe_input, \@args); - } else { - eval { - my @items = split(/ /, $func); - my %result; - my $ts1 = $remote_db{timestamp}; - my $xml = get_scripts(); - my $ts2 = $remote_db{timestamp}; - if (not($ts1 eq $ts2) && Irssi::settings_get_bool('scriptassist_cache_sources')) { - $result{db} = $remote_db{db}; - $result{timestamp} = $remote_db{timestamp}; - } - if ($items[0] eq 'check') { - $result{data}{check} = check_scripts($xml); - } elsif ($items[0] eq 'update') { - shift(@items); - $result{data}{update} = update_scripts(\@items, $xml); - } elsif ($items[0] eq 'search') { - shift(@items); - foreach (@items) { - $result{data}{search}{$_} = search_scripts($_, $xml); - } - } elsif ($items[0] eq 'install') { - shift(@items); - $result{data}{install} = install_scripts(\@items, $xml); - } elsif ($items[0] eq 'debug') { - shift(@items); - $result{data}{debug} = debug_scripts(\@items); - } elsif ($items[0] eq 'ratings') { - shift(@items); - @items = @{ loaded_scripts() } if $items[0] eq "all"; - my %ratings = %{ get_ratings(\@items, '') }; - foreach (keys %ratings) { - $result{data}{rating}{$_}{rating} = $ratings{$_}->[0]; - $result{data}{rating}{$_}{votes} = $ratings{$_}->[1]; - } - } elsif ($items[0] eq 'rate') { - $result{data}{rate}{$items[1]} = rate_script($items[1], $items[2]); - } elsif ($items[0] eq 'info') { - shift(@items); - $result{data}{info} = script_info(\@items); - } elsif ($items[0] eq 'echo') { - $result{data}{echo} = 1; - } elsif ($items[0] eq 'top') { - my %ratings = %{ get_ratings([], $items[1]) }; - foreach (keys %ratings) { - $result{data}{rating}{$_}{rating} = $ratings{$_}->[0]; - $result{data}{rating}{$_}{votes} = $ratings{$_}->[1]; - } - } elsif ($items[0] eq 'new') { - my $new = get_new($items[1]); - $result{data}{new} = $new; - } elsif ($items[0] eq 'unknown') { - my $cmd = $items[1]; - $result{data}{unknown}{$cmd} = get_unknown($cmd, $xml); - } - my $dumper = Data::Dumper->new([\%result]); - $dumper->Purity(1)->Deepcopy(1)->Indent(0); - my $data = $dumper->Dump; - print($wh $data); - }; - if ($@) { - print($wh Data::Dumper->new([+{data=>+{error=>$@}}]) - ->Purity(1)->Deepcopy(1)->Indent(0)->Dump); - } - close($wh); - POSIX::_exit(1); - } -} - -sub get_unknown { - my ($cmd, $db) = @_; - foreach (keys %$db) { - next unless defined $db->{$_}{commands}; - foreach my $item (split / /, $db->{$_}{commands}) { - return { $_ => $db->{$_} } if ($item =~ /^$cmd$/i); - } - } - return undef; -} - -sub get_names { - my ($sname, $db) = shift; - $sname =~ s/\s+$//; - $sname =~ s/\.pl$//; - my $plname = "$sname.pl"; - $sname =~ s/^.*\///; - my $xname = $sname; - $xname =~ s/\W/_/g; - my $pname = "${xname}::"; - if ($xname ne $sname || $sname =~ /_/) { - my $dir = Irssi::get_irssi_dir()."/scripts/"; - if ($db && exists $db->{"$sname.pl"}) { - # $found = 1; - } elsif (-e $dir.$plname || -e $dir."$sname.pl" || -e $dir."autorun/$sname.pl") { - # $found = 1; - } else { - # not found - my $pat = $xname; $pat =~ y/_/?/; - my $re = "\Q$xname"; $re =~ s/\Q_/./g; - if ($db) { - my ($cand) = grep /^$re\.pl$/, sort keys %$db; - if ($cand) { - return get_names($cand, $db); - } - } - my ($cand) = glob "'$dir$pat.pl' '${dir}autorun/$pat.pl'"; - if ($cand) { - $cand =~ s/^.*\///; - return get_names($cand, $db); - } - } - } - ($sname, $plname, $pname, $xname) -} - -sub script_info { - my ($scripts) = @_; - my %result; - my $xml = get_scripts(); - foreach (@{$scripts}) { - my ($sname, $plname, $pname) = get_names($_, $xml); - next unless (defined $xml->{$plname} || ( exists $Irssi::Script::{$pname} && exists $Irssi::Script::{$pname}{IRSSI} )); - $result{$sname}{version} = get_remote_version($sname, $xml); - my @headers = ('authors', 'contact', 'description', 'license', 'source'); - foreach my $entry (@headers) { - $result{$sname}{$entry} = $Irssi::Script::{$pname}{IRSSI}{$entry}; - if (defined $xml->{$plname}{$entry}) { - $result{$sname}{$entry} = $xml->{$plname}{$entry}; - } - } - if ($xml->{$plname}{signature_available}) { - $result{$sname}{signature_available} = 1; - } - if (defined $xml->{$plname}{modules}) { - my $modules = $xml->{$plname}{modules}; - foreach my $mod (split(/ /, $modules)) { - my $opt = ($mod =~ /\((.*)\)/)? 1 : 0; - $mod = $1 if $1; - $result{$sname}{modules}{$mod}{optional} = $opt; - $result{$sname}{modules}{$mod}{installed} = module_exist($mod); - } - } elsif (defined $Irssi::Script::{$pname}{IRSSI}{modules}) { - my $modules = $Irssi::Script::{$pname}{IRSSI}{modules}; - foreach my $mod (split(/ /, $modules)) { - my $opt = ($mod =~ /\((.*)\)/)? 1 : 0; - $mod = $1 if $1; - $result{$sname}{modules}{$mod}{optional} = $opt; - $result{$sname}{modules}{$mod}{installed} = module_exist($mod); - } - } - if (defined $xml->{$plname}{depends}) { - my $depends = $xml->{$plname}{depends}; - foreach my $dep (split(/ /, $depends)) { - $result{$sname}{depends}{$dep}{installed} = 1; - } - } - } - return \%result; -} - -sub rate_script { - my ($script, $stars) = @_; - my $ua = LWP::UserAgent->new(env_proxy=>1, keep_alive=>1, timeout=>30); - $ua->agent('ScriptAssist/'.2003020803); - my $request = HTTP::Request->new('GET', 'http://ratings.irssi.de/irssirate.pl?&stars='.$stars.'&mode=rate&script='.$script); - my $response = $ua->request($request); - unless ($response->is_success() && $response->content() =~ /You already rated this script/) { - return 1; - } else { - return 0; - } -} - -sub get_ratings { - my ($scripts, $limit) = @_; - my $ua = LWP::UserAgent->new(env_proxy=>1, keep_alive=>1, timeout=>30); - $ua->agent('ScriptAssist/'.2003020803); - my $script = join(',', @{$scripts}); - my $request = HTTP::Request->new('GET', 'http://ratings.irssi.de/irssirate.pl?script='.$script.'&sort=rating&limit='.$limit); - my $response = $ua->request($request); - my %result; - if ($response->is_success()) { - foreach (split /\n/, $response->content()) { - if (/<tr><td><a href=".*?">(.*?)<\/a>/) { - my $entry = $1; - if (/"><\/td><td>([0-9.]+)<\/td><td>(.*?)<\/td><td>/) { - $result{$entry} = [$1, $2]; - } - } - } - } - return \%result; -} - -sub get_new { - my ($num) = @_; - my $result; - my $xml = get_scripts(); - foreach (sort {$xml->{$b}{last_modified} cmp $xml->{$a}{last_modified}} keys %$xml) { - my %entry = %{ $xml->{$_} }; - next if $entry{HIDDEN}; - $result->{$_} = \%entry; - $num--; - last unless $num; - } - return $result; -} -sub module_exist { - my ($module) = @_; - $module =~ s/::/\//g; - foreach (@INC) { - return 1 if (-e $_."/".$module.".pm"); - } - return 0; -} - -sub debug_scripts { - my ($scripts) = @_; - my %result; - my $xml = get_scripts(); - foreach (@{$scripts}) { - my ($sname, $plname) = get_names($_, $xml); - if (defined $xml->{$plname}{modules}) { - my $modules = $xml->{$plname}{modules}; - foreach my $mod (split(/ /, $modules)) { - my $opt = ($mod =~ /\((.*)\)/)? 1 : 0; - $mod = $1 if $1; - $result{$sname}{$mod}{optional} = $opt; - $result{$sname}{$mod}{installed} = module_exist($mod); - } - } - } - return(\%result); -} - -sub install_scripts { - my ($scripts, $xml) = @_; - my %success; - my $dir = Irssi::get_irssi_dir()."/scripts/"; - foreach (@{$scripts}) { - my ($sname, $plname, $pname) = get_names($_, $xml); - if (get_local_version($sname) && (-e $dir.$plname)) { - $success{$sname}{installed} = -2; - } else { - $success{$sname} = download_script($sname, $xml); - } - } - return \%success; -} - -sub update_scripts { - my ($list, $database) = @_; - $list = loaded_scripts() if ($list->[0] eq "all" || scalar(@$list) == 0); - my %status; - foreach (@{$list}) { - my ($sname) = get_names($_, $database); - my $local = get_local_version($sname); - my $remote = get_remote_version($sname, $database); - next if $local eq '' || $remote eq ''; - if (compare_versions($local, $remote) eq "older") { - $status{$sname} = download_script($sname, $database); - } else { - $status{$sname}{installed} = -2; - } - $status{$sname}{remote} = $remote; - $status{$sname}{local} = $local; - } - return \%status; -} - -sub search_scripts { - my ($query, $database) = @_; - $query =~ s/\.pl\Z//; - my %result; - foreach (sort keys %{$database}) { - my %entry = %{$database->{$_}}; - next if $entry{HIDDEN}; - my $string = $_." "; - $string .= $entry{description} if defined $entry{description}; - if ($string =~ /$query/i) { - my $name = $_; - $name =~ s/\.pl$//; - if (defined $entry{description}) { - $result{$name}{desc} = $entry{description}; - } else { - $result{$name}{desc} = ""; - } - if (defined $entry{authors}) { - $result{$name}{authors} = $entry{authors}; - } else { - $result{$name}{authors} = ""; - } - if (get_local_version($name)) { - $result{$name}{installed} = 1; - } else { - $result{$name}{installed} = 0; - } - } - } - return \%result; -} - -sub pipe_input { - my ($rh, $pipetag) = @{$_[0]}; - my $text = do { local $/; <$rh>; }; - close($rh); - Irssi::input_remove($$pipetag); - $forked = 0; - unless ($text) { - print CLIENTCRAP "%R<<%n Something weird happend (no text)"; - return(); - } - local our $VAR1; - my $incoming = eval($text); - if ($incoming->{db} && $incoming->{timestamp}) { - $remote_db{db} = $incoming->{db}; - $remote_db{timestamp} = $incoming->{timestamp}; - } - unless (defined $incoming->{data}) { - print CLIENTCRAP "%R<<%n Something weird happend (no data)"; - return; - } - my %result = %{ $incoming->{data} }; - @complist = (); - if (defined $result{new}) { - print_new($result{new}); - push @complist, $_ foreach keys %{ $result{new} }; - } - if (defined $result{check}) { - print_check(%{$result{check}}); - push @complist, $_ foreach keys %{ $result{check} }; - } - if (defined $result{update}) { - print_update(%{ $result{update} }); - push @complist, $_ foreach keys %{ $result{update} }; - } - if (defined $result{search}) { - foreach (keys %{$result{search}}) { - print_search($_, %{$result{search}{$_}}); - push @complist, keys(%{$result{search}{$_}}); - } - } - if (defined $result{install}) { - print_install(%{ $result{install} }); - push @complist, $_ foreach keys %{ $result{install} }; - } - if (defined $result{debug}) { - print_debug(%{ $result{debug} }); - } - if (defined $result{rating}) { - print_ratings(%{ $result{rating} }); - push @complist, $_ foreach keys %{ $result{rating} }; - } - if (defined $result{rate}) { - print_rate(%{ $result{rate} }); - } - if (defined $result{info}) { - print_info(%{ $result{info} }); - } - if (defined $result{echo}) { - Irssi::print "ECHO"; - } - if ($result{unknown}) { - print_unknown($result{unknown}); - } - if (defined $result{error}) { - print CLIENTCRAP "%R<<%n There was an error in background processing:"; chomp($result{error}); - print CLIENTERROR $result{error}; - } - -} - -sub print_unknown { - my ($data) = @_; - foreach my $cmd (keys %$data) { - print CLIENTCRAP "%R<<%n No script provides '/$cmd'" unless $data->{$cmd}; - foreach (keys %{ $data->{$cmd} }) { - my $text .= "The command '/".$cmd."' is provided by the script '".$data->{$cmd}{$_}{name}."'.\n"; - $text .= "This script is currently not installed on your system.\n"; - $text .= "If you want to install the script, enter\n"; - my ($name) = get_names($_); - $text .= " %U/script install ".$name."%U "; - my $output = draw_box("ScriptAssist", $text, "'".$_."' missing", 1); - print CLIENTCRAP $output; - } - } -} - -sub check_autorun { - my ($script) = @_; - my (undef, $plname) = get_names($script); - my $dir = Irssi::get_irssi_dir()."/scripts/"; - if (-e $dir."/autorun/".$plname) { - if (readlink($dir."/autorun/".$plname) eq "../".$plname) { - return 1; - } - } - return 0; -} - -sub array2table { - my (@array) = @_; - my @width; - foreach my $line (@array) { - for (0..scalar(@$line)-1) { - my $l = $line->[$_]; - $l =~ s/%[^%]//g; - $l =~ s/%%/%/g; - $width[$_] = length($l) if $width[$_]<length($l); - } - } - my $text; - foreach my $line (@array) { - for (0..scalar(@$line)-1) { - my $l = $line->[$_]; - $text .= $line->[$_]; - $l =~ s/%[^%]//g; - $l =~ s/%%/%/g; - $text .= " "x($width[$_]-length($l)+1) unless ($_ == scalar(@$line)-1); - } - $text .= "\n"; - } - return $text; -} - - -sub print_info { - my (%data) = @_; - my $line; - foreach my $script (sort keys(%data)) { - my ($local, $autorun); - if (get_local_version($script)) { - $line .= "%go%n "; - $local = get_local_version($script); - } else { - $line .= "%ro%n "; - $local = undef; - } - if (defined $local || check_autorun($script)) { - $autorun = "no"; - $autorun = "yes" if check_autorun($script); - } else { - $autorun = undef; - } - $line .= "%9".$script."%9\n"; - $line .= " Version : ".$data{$script}{version}."\n"; - $line .= " Source : ".$data{$script}{source}."\n"; - $line .= " Installed : ".$local."\n" if defined $local; - $line .= " Autorun : ".$autorun."\n" if defined $autorun; - $line .= " Authors : ".$data{$script}{authors}; - $line .= " %Go-m signed%n" if $data{$script}{signature_available}; - $line .= "\n"; - $line .= " Contact : ".$data{$script}{contact}."\n"; - $line .= " Description: ".$data{$script}{description}."\n"; - $line .= "\n" if $data{$script}{modules}; - $line .= " Needed Perl modules:\n" if $data{$script}{modules}; - - foreach (sort keys %{$data{$script}{modules}}) { - if ( $data{$script}{modules}{$_}{installed} == 1 ) { - $line .= " %g->%n ".$_." (found)"; - } else { - $line .= " %r->%n ".$_." (not found)"; - } - $line .= " <optional>" if $data{$script}{modules}{$_}{optional}; - $line .= "\n"; - } - $line .= " Needed Irssi Scripts:\n" if $data{$script}{depends}; - foreach (sort keys %{$data{$script}{depends}}) { - if ( $data{$script}{depends}{$_}{installed} == 1 ) { - $line .= " %g->%n ".$_." (loaded)"; - } else { - $line .= " %r->%n ".$_." (not loaded)"; - } - $line .= "\n"; - } - } - print CLIENTCRAP draw_box('ScriptAssist', $line, 'info', 1) ; -} - -sub print_rate { - my (%data) = @_; - my $line; - foreach my $script (sort keys(%data)) { - if ($data{$script}) { - $line .= "%go%n %9".$script."%9 has been rated"; - } else { - $line .= "%ro%n %9".$script."%9 : Already rated this script"; - } - } - print CLIENTCRAP draw_box('ScriptAssist', $line, 'rating', 1) ; -} - -sub print_ratings { - my (%data) = @_; - my @table; - foreach my $script (sort {$data{$b}{rating}<=>$data{$a}{rating}} keys(%data)) { - my @line; - if (get_local_version($script)) { - push @line, "%go%n"; - } else { - push @line, "%yo%n"; - } - push @line, "%9".$script."%9"; - push @line, $data{$script}{rating}; - push @line, "[".$data{$script}{votes}." votes]"; - push @table, \@line; - } - print CLIENTCRAP draw_box('ScriptAssist', array2table(@table), 'ratings', 1) ; -} - -sub print_new { - my ($list) = @_; - my @table; - foreach (sort {$list->{$b}{last_modified} cmp $list->{$a}{last_modified}} keys %$list) { - my @line; - my ($name) = get_names($_); - if (get_local_version($name)) { - push @line, "%go%n"; - } else { - push @line, "%yo%n"; - } - push @line, "%9".$name."%9"; - push @line, $list->{$_}{last_modified}; - push @table, \@line; - } - print CLIENTCRAP draw_box('ScriptAssist', array2table(@table), 'new scripts', 1) ; -} - -sub print_debug { - my (%data) = @_; - my $line; - foreach my $script (sort keys %data) { - $line .= "%ro%n %9".$script."%9 failed to load\n"; - $line .= " Make sure you have the following perl modules installed:\n"; - foreach (sort keys %{$data{$script}}) { - if ( $data{$script}{$_}{installed} == 1 ) { - $line .= " %g->%n ".$_." (found)"; - } else { - $line .= " %r->%n ".$_." (not found)\n"; - $line .= " [This module is optional]\n" if $data{$script}{$_}{optional}; - $line .= " [Try /scriptassist cpan ".$_."]"; - } - $line .= "\n"; - } - print CLIENTCRAP draw_box('ScriptAssist', $line, 'debug', 1) ; - } -} - -sub load_script { - my ($script) = @_; - Irssi::command('script load '.$script); -} - -sub print_install { - my (%data) = @_; - my $text; - my ($crashed, @installed); - foreach my $script (sort keys %data) { - my $line; - if ($data{$script}{installed} == 1) { - my $hacked; - if ($have_gpg && Irssi::settings_get_bool('scriptassist_use_gpg')) { - if ($data{$script}{signed} >= 0) { - load_script($script) unless (lc($script) eq lc($IRSSI{name})); - } else { - $hacked = 1; - } - } else { - load_script($script) unless (lc($script) eq lc($IRSSI{name})); - } - if (get_local_version($script) && not lc($script) eq lc($IRSSI{name})) { - $line .= "%go%n %9".$script."%9 installed\n"; - push @installed, $script; - } elsif (lc($script) eq lc($IRSSI{name})) { - $line .= "%yo%n %9".$script."%9 installed, please reload manually\n"; - } else { - $line .= "%Ro%n %9".$script."%9 fetched, but unable to load\n"; - $crashed .= $script." " unless $hacked; - } - if ($have_gpg && Irssi::settings_get_bool('scriptassist_use_gpg')) { - foreach (split /\n/, check_sig($data{$script})) { - $line .= " ".$_."\n"; - } - } - } elsif ($data{$script}{installed} == -2) { - $line .= "%ro%n %9".$script."%9 already loaded, please try \"update\"\n"; - } elsif ($data{$script}{installed} <= 0) { - $line .= "%ro%n %9".$script."%9 not installed\n"; - foreach (split /\n/, check_sig($data{$script})) { - $line .= " ".$_."\n"; - } - } else { - $line .= "%Ro%n %9".$script."%9 not found on server\n"; - } - $text .= $line; - } - # Inspect crashed scripts - bg_do("debug ".$crashed) if $crashed; - print CLIENTCRAP draw_box('ScriptAssist', $text, 'install', 1); - list_sbitems(\@installed); -} - -sub list_sbitems { - my ($scripts) = @_; - my $text; - foreach (@$scripts) { - next unless exists $Irssi::Script::{"${_}::"}; - next unless exists $Irssi::Script::{"${_}::"}{IRSSI}; - my $header = $Irssi::Script::{"${_}::"}{IRSSI}; - next unless $header->{sbitems}; - $text .= '%9"'.$_.'"%9 provides the following statusbar item(s):'."\n"; - $text .= ' ->'.$_."\n" foreach (split / /, $header->{sbitems}); - } - return unless $text; - $text .= "\n"; - $text .= "Enter '/statusbar window add <item>' to add an item."; - print CLIENTCRAP draw_box('ScriptAssist', $text, 'sbitems', 1); -} - -sub check_sig { - my ($sig) = @_; - my $line; - my %trust = ( -1 => 'undefined', - 0 => 'never', - 1 => 'marginal', - 2 => 'fully', - 3 => 'ultimate' - ); - if ($sig->{signed} == 1) { - $line .= "Signature found from ".$sig->{sig}{user}."\n"; - $line .= "Timestamp : ".$sig->{sig}{date}."\n"; - $line .= "Fingerprint: ".$sig->{sig}{fingerprint}."\n"; - $line .= "KeyID : ".$sig->{sig}{keyid}."\n"; - $line .= "Trust : ".$trust{$sig->{sig}{trust}}."\n"; - } elsif ($sig->{signed} == -1) { - $line .= "%1Warning, unable to verify signature%n\n"; - } elsif ($sig->{signed} == 0) { - $line .= "%1No signature found%n\n" unless Irssi::settings_get_bool('scriptassist_install_unsigned_scripts'); - } - return $line; -} - -sub print_search { - my ($query, %data) = @_; - my $text; - foreach (sort keys %data) { - my $line; - $line .= "%go%n" if $data{$_}{installed}; - $line .= "%yo%n" if not $data{$_}{installed}; - $line .= " %9".$_."%9 "; - $line .= $data{$_}{desc}; - $line =~ s/($query)/%U$1%U/gi; - $line .= ' ('.$data{$_}{authors}.')'; - $text .= $line." \n"; - } - print CLIENTCRAP draw_box('ScriptAssist', $text, 'search: '.$query, 1) ; -} - -sub print_update { - my (%data) = @_; - my $text; - my @table; - my $verbose = Irssi::settings_get_bool('scriptassist_update_verbose'); - foreach (sort keys %data) { - my $signed = 0; - if ($data{$_}{installed} == 1) { - my $local = $data{$_}{local}; - my $remote = $data{$_}{remote}; - push @table, ['%yo%n', '%9'.$_.'%9', 'upgraded ('.$local.'->'.$remote.')']; - foreach (split /\n/, check_sig($data{$_})) { - push @table, ['', '', $_]; - } - if (lc($_) eq lc($IRSSI{name})) { - push @table, ['', '', "%R%9Please reload manually%9%n"]; - } else { - load_script($_); - } - } elsif ($data{$_}{installed} == 0 || $data{$_}{installed} == -1) { - push @table, ['%yo%n', '%9'.$_.'%9', 'not upgraded']; - foreach (split /\n/, check_sig($data{$_})) { - push @table, ['', '', $_]; - } - } elsif ($data{$_}{installed} == -2 && $verbose) { - my $local = $data{$_}{local}; - push @table, ['%go%n', '%9'.$_.'%9', 'already at the latest version ('.$local.')']; - } - } - $text = array2table(@table); - print CLIENTCRAP draw_box('ScriptAssist', $text, 'update', 1) ; -} - -sub contact_author { - my ($script) = @_; - my ($sname, $plname, $pname) = get_names($script); - return unless exists $Irssi::Script::{$pname}; - my $header = $Irssi::Script::{$pname}{IRSSI}; - if ($header && defined $header->{contact}) { - my @ads = split(/ |,/, $header->{contact}); - my $address = $ads[0]; - $address .= '?subject='.$script; - $address .= '_'.get_local_version($script) if defined get_local_version($script); - call_openurl($address) if $address =~ /[\@:]/; - } -} - -sub get_scripts { - my $ua = LWP::UserAgent->new(env_proxy=>1, keep_alive=>1, timeout=>30); - $ua->agent('ScriptAssist/'.2003020803); - $ua->env_proxy(); - my @mirrors = split(/ /, Irssi::settings_get_str('scriptassist_script_sources')); - my %sites_db; - my $not_modified = 0; - my $fetched = 0; - my @sources; - my $error; - foreach my $site (@mirrors) { - my $request = HTTP::Request->new('GET', $site); - if ($remote_db{timestamp}) { - $request->if_modified_since($remote_db{timestamp}); - } - my $response = $ua->request($request); - if ($response->code == 304) { # HTTP_NOT_MODIFIED - $not_modified = 1; - next; - } - unless ($response->is_success) { - $error = join "\n", $response->status_line(), (grep / at .* line \d+/, split "\n", $response->content()), ''; - next; - } - $fetched = 1; - my $data = $response->content(); - my ($src, $type); - if ($site =~ /(.*\/).+\.(.+)/) { - $src = $1; - $type = $2; - } - push @sources, $src; - #my @header = ('name', 'contact', 'authors', 'description', 'version', 'modules', 'last_modified'); - if ($type eq 'dmp') { - no strict 'vars'; - my $new_db = eval "$data"; - foreach (keys %$new_db) { - if (defined $sites_db{script}{$_}) { - my $old = $sites_db{$_}{version}; - my $new = $new_db->{$_}{version}; - next if (compare_versions($old, $new) eq 'newer'); - } - #foreach my $key (@header) { - foreach my $key (keys %{ $new_db->{$_} }) { - next unless defined $new_db->{$_}{$key}; - $sites_db{$_}{$key} = $new_db->{$_}{$key}; - } - $sites_db{$_}{source} = $src; - } - } else { - die("Unknown script database type ($type).\n"); - } - } - if ($fetched) { - # Clean database - foreach (keys %{$remote_db{db}}) { - foreach my $site (@sources) { - if ($remote_db{db}{$_}{source} eq $site) { - delete $remote_db{db}{$_}; - last; - } - } - } - $remote_db{db}{$_} = $sites_db{$_} foreach (keys %sites_db); - $remote_db{timestamp} = time(); - } elsif ($not_modified) { - # nothing to do - } else { - die("No script database sources defined in /set scriptassist_script_sources\n") unless @mirrors; - die("Fetching script database failed: $error") if $error; - die("Unknown error while fetching script database\n"); - } - return $remote_db{db}; -} - -sub get_remote_version { - my ($script, $database) = @_; - my $plname = (get_names($script, $database))[1]; - return $database->{$plname}{version}; -} - -sub get_local_version { - my ($script) = @_; - my $pname = (get_names($script))[2]; - return unless exists $Irssi::Script::{$pname}; - my $vref = $Irssi::Script::{$pname}{VERSION}; - return $vref ? $$vref : undef; -} - -sub compare_versions { - my ($ver1, $ver2) = @_; - for ($ver1, $ver2) { - $_ = "0:$_" unless /:/; - } - my @ver1 = split /[.:]/, $ver1; - my @ver2 = split /[.:]/, $ver2; - my $cmp = 0; - ### Special thanks to Clemens Heidinger - no warnings 'uninitialized'; - $cmp ||= $ver1[$_] <=> $ver2[$_] || $ver1[$_] cmp $ver2[$_] for 0..scalar(@ver2); - return 'newer' if $cmp == 1; - return 'older' if $cmp == -1; - return 'equal'; -} - -sub loaded_scripts { - my @modules; - foreach (sort grep(s/::$//, keys %Irssi::Script::)) { - push @modules, $_; - } - return \@modules; -} - -sub check_scripts { - my ($data) = @_; - my %versions; - foreach (@{loaded_scripts()}) { - my ($sname) = get_names($_, $data); - my $remote = get_remote_version($sname, $data); - my $local = get_local_version($sname); - my $state; - if ($local && $remote) { - $state = compare_versions($local, $remote); - } elsif ($local) { - $state = 'noversion'; - $remote = '/'; - } else { - $state = 'noheader'; - $local = '/'; - $remote = '/'; - } - if ($state) { - $versions{$sname}{state} = $state; - $versions{$sname}{remote} = $remote; - $versions{$sname}{local} = $local; - } - } - return \%versions; -} - -sub download_script { - my ($script, $xml) = @_; - my ($sname, $plname) = get_names($script, $xml); - my %result; - my $site = $xml->{$plname}{source}; - $result{installed} = 0; - $result{signed} = 0; - my $dir = Irssi::get_irssi_dir(); - my $ua = LWP::UserAgent->new(env_proxy => 1,keep_alive => 1,timeout => 30); - $ua->agent('ScriptAssist/'.2003020803); - my $request = HTTP::Request->new('GET', $site.'/scripts/'.$script.'.pl'); - my $response = $ua->request($request); - if ($response->is_success()) { - my $file = $response->content(); - mkdir $dir.'/scripts/' unless (-e $dir.'/scripts/'); - open(my $F, '>', $dir.'/scripts/'.$plname.'.new'); - print $F $file; - close($F); - if ($have_gpg && Irssi::settings_get_bool('scriptassist_use_gpg')) { - my $ua2 = LWP::UserAgent->new(env_proxy => 1,keep_alive => 1,timeout => 30); - $ua->agent('ScriptAssist/'.2003020803); - my $request2 = HTTP::Request->new('GET', $site.'/signatures/'.$plname.'.asc'); - my $response2 = $ua->request($request2); - if ($response2->is_success()) { - my $sig_dir = $dir.'/scripts/signatures/'; - mkdir $sig_dir unless (-e $sig_dir); - open(my $S, '>', $sig_dir.$plname.'.asc'); - my $file2 = $response2->content(); - print $S $file2; - close($S); - my $sig; - foreach (1..2) { - # FIXME gpg needs two rounds to load the key - my $gpg = new GnuPG(); - eval { - $sig = $gpg->verify( file => $dir.'/scripts/'.$plname.'.new', signature => $sig_dir.$plname.'.asc' ); - }; - } - if (defined $sig->{user}) { - $result{installed} = 1; - $result{signed} = 1; - $result{sig}{$_} = $sig->{$_} foreach (keys %{$sig}); - } else { - # Signature broken? - $result{installed} = 0; - $result{signed} = -1; - } - } else { - $result{signed} = 0; - $result{installed} = -1; - $result{installed} = 1 if Irssi::settings_get_bool('scriptassist_install_unsigned_scripts'); - } - } else { - $result{signed} = 0; - $result{installed} = -1; - $result{installed} = 1 if Irssi::settings_get_bool('scriptassist_install_unsigned_scripts'); - } - } - if ($result{installed}) { - my $old_dir = "$dir/scripts/old/"; - mkdir $old_dir unless (-e $old_dir); - rename "$dir/scripts/$plname", "$old_dir/$plname.old" if -e "$dir/scripts/$plname"; - rename "$dir/scripts/$plname.new", "$dir/scripts/$plname"; - } - return \%result; -} - -sub print_check { - my (%data) = @_; - my $text; - my @table; - foreach (sort keys %data) { - my $state = $data{$_}{state}; - my $remote = $data{$_}{remote}; - my $local = $data{$_}{local}; - if (Irssi::settings_get_bool('scriptassist_check_verbose')) { - push @table, ['%go%n', '%9'.$_.'%9', 'Up to date. ('.$local.')'] if $state eq 'equal'; - } - push @table, ['%mo%n', '%9'.$_.'%9', "No version information available on network."] if $state eq "noversion"; - push @table, ['%mo%n', '%9'.$_.'%9', 'No header in script.'] if $state eq "noheader"; - push @table, ['%bo%n', '%9'.$_.'%9', "Your version is newer (".$local."->".$remote.")"] if $state eq "newer"; - push @table, ['%ro%n', '%9'.$_.'%9', "A new version is available (".$local."->".$remote.")"] if $state eq "older";; - } - $text = array2table(@table); - print CLIENTCRAP draw_box('ScriptAssist', $text, 'check', 1) ; -} - -sub toggle_autorun { - my ($script) = @_; - my ($sname, $plname) = get_names($script); - my $dir = Irssi::get_irssi_dir()."/scripts/"; - mkdir $dir."autorun/" unless (-e $dir."autorun/"); - return unless (-e $dir.$plname); - if (-e $dir."/autorun/".$plname) { - if (readlink($dir."/autorun/".$plname) eq "../".$plname) { - if (unlink($dir."/autorun/".$plname)) { - print CLIENTCRAP "%R>>%n Autorun of ".$sname." disabled"; - } else { - print CLIENTCRAP "%R>>%n Unable to delete link"; - } - } else { - print CLIENTCRAP "%R>>%n ".$dir."/autorun/".$plname." is not a correct link"; - } - } else { - if (symlink("../".$plname, $dir."/autorun/".$plname)) { - print CLIENTCRAP "%R>>%n Autorun of ".$sname." enabled"; - } else { - print CLIENTCRAP "%R>>%n Unable to create autorun link"; - } - } -} - -sub sig_script_error { - my ($script, $msg) = @_; - return unless Irssi::settings_get_bool('scriptassist_catch_script_errors'); - if ($msg =~ /Can't locate (.*?)\.pm in \@INC \(\@INC contains:(.*?) at/) { - my $module = $1; - $module =~ s/\//::/g; - missing_module($module); - } -} - -sub missing_module { - my ($module) = @_; - my $text; - $text .= "The perl module %9".$module."%9 is missing on your system.\n"; - $text .= "Please ask your administrator about it.\n"; - $text .= "You can also check CPAN via '/scriptassist cpan ".$module."'.\n"; - print CLIENTCRAP &draw_box('ScriptAssist', $text, $module, 1); -} - -sub cmd_scripassist { - my ($arg, $server, $witem) = @_; - my @args = split(/ /, $arg); - if ($args[0] eq 'help' || $args[0] eq '-h') { - show_help(); - } elsif ($args[0] eq 'check') { - bg_do("check"); - } elsif ($args[0] eq 'update') { - shift @args; - bg_do("update ".join(' ', @args)); - } elsif ($args[0] eq 'search' && defined $args[1]) { - shift @args; - bg_do("search ".join(" ", @args)); - } elsif ($args[0] eq 'install' && defined $args[1]) { - shift @args; - bg_do("install ".join(' ', @args)); - } elsif ($args[0] eq 'contact' && defined $args[1]) { - contact_author($args[1]); - } elsif ($args[0] eq 'ratings' && defined $args[1]) { - shift @args; - bg_do("ratings ".join(' ', @args)); - } elsif ($args[0] eq 'rate' && defined $args[1] && defined $args[2]) { - shift @args; - bg_do("rate ".join(' ', @args)) if ($args[2] >= 0 && $args[2] < 6); - } elsif ($args[0] eq 'info' && defined $args[1]) { - shift @args; - bg_do("info ".join(' ', @args)); - } elsif ($args[0] eq 'echo') { - bg_do("echo"); - } elsif ($args[0] eq 'top') { - my $number = defined $args[1] ? $args[1] : 10; - bg_do("top ".$number); - } elsif ($args[0] eq 'cpan' && defined $args[1]) { - call_openurl('http://search.cpan.org/search?mode=module&query='.$args[1]); - } elsif ($args[0] eq 'autorun' && defined $args[1]) { - toggle_autorun($args[1]); - } elsif ($args[0] eq 'new') { - my $number = defined $args[1] ? $args[1] : 5; - bg_do("new ".$number); - } -} - -sub cmd_help { - my ($arg, $server, $witem) = @_; - $arg =~ s/\s+$//; - if ($arg =~ /^scriptassist/i) { - show_help(); - } -} - -sub sig_command_script_load { - my ($script, $server, $witem) = @_; - my ($sname, $plname, $pname, $xname) = get_names($script); - if ( exists $Irssi::Script::{$pname} ) { - if (my $code = "Irssi::Script::${pname}"->can('pre_unload')) { - print CLIENTCRAP "%R>>%n Triggering pre_unload function of $script..."; - $code->(); - } - } -} - -sub sig_default_command { - my ($cmd, $server) = @_; - return unless Irssi::settings_get_bool("scriptassist_check_unknown_commands"); - bg_do('unknown '.$cmd); -} - -sub sig_complete { - my ($list, $window, $word, $linestart, $want_space) = @_; - return unless $linestart =~ /^.script(assist)? (install|rate|ratings|update|check|contact|info|autorun)/i; - my @newlist; - my $str = $word; - foreach (@complist) { - if ($_ =~ /^(\Q$str\E.*)?$/) { - push @newlist, $_; - } - } - foreach (@{loaded_scripts()}) { - push @newlist, $_ if /^(\Q$str\E.*)?$/; - } - push @$list, $_ foreach @newlist; - Irssi::signal_stop(); -} - - -Irssi::settings_add_str($IRSSI{name}, 'scriptassist_script_sources', 'https://scripts.irssi.org/scripts.dmp'); -Irssi::settings_add_bool($IRSSI{name}, 'scriptassist_cache_sources', 1); -Irssi::settings_add_bool($IRSSI{name}, 'scriptassist_update_verbose', 1); -Irssi::settings_add_bool($IRSSI{name}, 'scriptassist_check_verbose', 1); -Irssi::settings_add_bool($IRSSI{name}, 'scriptassist_catch_script_errors', 1); - -Irssi::settings_add_bool($IRSSI{name}, 'scriptassist_install_unsigned_scripts', 1); -Irssi::settings_add_bool($IRSSI{name}, 'scriptassist_use_gpg', 1); -Irssi::settings_add_bool($IRSSI{name}, 'scriptassist_integrate', 1); -Irssi::settings_add_bool($IRSSI{name}, 'scriptassist_check_unknown_commands', 1); - -Irssi::signal_add_first("default command", 'sig_default_command'); -Irssi::signal_add_first('complete word', 'sig_complete'); -Irssi::signal_add_first('command script load', 'sig_command_script_load'); -Irssi::signal_add_first('command script unload', 'sig_command_script_load'); - -Irssi::signal_register({ 'script error' => [ 'Irssi::Script', 'string' ] }); -Irssi::signal_add_last('script error', 'sig_script_error'); - -Irssi::command_bind('scriptassist', 'cmd_scripassist'); -Irssi::command_bind('help', 'cmd_help'); - -Irssi::theme_register(['box_header', '%R,--[%n$*%R]%n', -'box_inside', '%R|%n $*', -'box_footer', '%R`--<%n$*%R>->%n', -]); - -foreach my $cmd ( ( 'check', - 'install', - 'update', - 'contact', - 'search', -# '-h', - 'help', -# 'ratings', -# 'rate', - 'info', -# 'echo', -# 'top', - 'cpan', - 'autorun', - 'new' ) ) { - Irssi::command_bind('scriptassist '.$cmd => sub { - cmd_scripassist("$cmd ".$_[0], $_[1], $_[2]); }); - if (Irssi::settings_get_bool('scriptassist_integrate')) { - Irssi::command_bind('script '.$cmd => sub { - cmd_scripassist("$cmd ".$_[0], $_[1], $_[2]); }); - } -} - -print CLIENTCRAP '%B>>%n '.$IRSSI{name}.' '.$VERSION.' loaded: /scriptassist help for help'; diff --git a/.irssi/scripts/splitlong.pl b/.irssi/scripts/splitlong.pl deleted file mode 100644 index 3c8a355..0000000 --- a/.irssi/scripts/splitlong.pl +++ /dev/null @@ -1,60 +0,0 @@ -# /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/tmux_away.pl b/.irssi/scripts/tmux_away.pl deleted file mode 100644 index 36fb160..0000000 --- a/.irssi/scripts/tmux_away.pl +++ /dev/null @@ -1,202 +0,0 @@ -use Irssi; -use strict; -use FileHandle; - -use vars qw($VERSION %IRSSI); - -$VERSION = "2.1"; # e8934ed1ce04461 -%IRSSI = ( - authors => 'cdidier', - name => 'tmux_away', - description => 'set (un)away if tmux session is attached/detached', - license => 'GPL v2', - url => 'http://cybione.org', -); - -# tmux_away irssi module -# -# Written by Colin Didier <cdidier@cybione.org> and heavily based on -# screen_away irssi module version 0.9.7.1 written by Andreas 'ads' Scherbaum -# <ads@ufp.de>. -# -# Updated by John C. Vernaleo <john@netpurgatory.com> to handle tmux with -# named sessions and other code cleanup and forked as version 2.0. -# -# usage: -# -# put this script into your autorun directory and/or load it with -# /SCRIPT LOAD <name> -# -# there are 5 settings available: -# -# /set tmux_away_active ON/OFF/TOGGLE -# /set tmux_away_repeat <integer> -# /set tmux_away_grace <integer> -# /set tmux_away_message <string> -# /set tmux_away_window <string> -# /set tmux_away_nick <string> -# -# active means that you will be only set away/unaway, if this -# flag is set, default is ON -# repeat is the number of seconds, after the script will check the -# tmux session status again, default is 5 seconds -# grace is the number of seconds, to wait additionally, before -# setting you away, default is disabled (0) -# message is the away message sent to the server, default: not here ... -# window is a window number or name, if set, the script will switch -# to this window, if it sets you away, default is '1' -# nick is the new nick, if the script goes away -# will only be used it not empty - - -# variables -my $timer_name = undef; -my $away_status = 0; -my %old_nicks = (); -my %away = (); - -# Register formats -Irssi::theme_register( -[ - 'tmux_away_crap', - '{line_start}{hilight ' . $IRSSI{'name'} . ':} $0' -]); - -# try to find out if we are running in a tmux session -# (see if $ENV{TMUX} is set) -if (!defined($ENV{TMUX})) { - # just return, we will never be called again - Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'tmux_away_crap', - "no tmux session!"); - return; -} - -my @args_env = split(',', $ENV{TMUX}); -my $tmux_socket = $args_env[0]; - -# register config variables -Irssi::settings_add_bool('misc', $IRSSI{'name'} . '_active', 1); -Irssi::settings_add_int('misc', $IRSSI{'name'} . '_repeat', 5); -Irssi::settings_add_int('misc', $IRSSI{'name'} . '_grace', 0); -Irssi::settings_add_str('misc', $IRSSI{'name'} . '_message', "not here..."); -Irssi::settings_add_str('misc', $IRSSI{'name'} . '_window', "1"); -Irssi::settings_add_str('misc', $IRSSI{'name'} . '_nick', ""); - - -# check, set or reset the away status -sub tmux_away { - my ($immediate) = @_; - my ($status, @res); - - # only run, if activated - if (Irssi::settings_get_bool($IRSSI{'name'} . '_active') != 1) { - $away_status = 0; - } else { - if ($away_status == 0) { - # display init message at first time - my $grace = Irssi::settings_get_int($IRSSI{'name'} . '_grace'); - $grace = ", $grace seconds grace" if $grace; - Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'tmux_away_crap', - "activating $IRSSI{'name'} (interval: " . Irssi::settings_get_int($IRSSI{'name'} . '_repeat') . " seconds$grace)"); - $away_status = 2; - } - - # get actual tmux session status - chomp(@res = `tmux -S '$tmux_socket' lsc 2>&1`); - chomp(my $tmux_session = `tmux -S '$tmux_socket' display -p '#S' 2>/dev/null`); - if ($res[0] =~ /^server not found/ || $? >> 8) { - die "error getting tmux session status."; - } - $status = 1; # away, assumes the session is detached - foreach (@res) { - my @args_st = split(' '); - if ($args_st[1] eq $tmux_session) { - $status = 2; # unaway - } - } - - # unaway -> away - if ($status == 1 and $away_status != 1) { - if (my $grace = Irssi::settings_get_int($IRSSI{'name'} . '_grace')) { - if (!$immediate) { - Irssi::timeout_add_once($grace * 1000, 'tmux_away', '1'); - Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'tmux_away_crap', - "(in grace for away: $grace seconds)"); - return 1; - } - } - if (length(Irssi::settings_get_str($IRSSI{'name'} . '_window')) > 0) { - # if length of window is greater then 0, make this window active - Irssi::command('window goto ' . Irssi::settings_get_str($IRSSI{'name'} . '_window')); - } - Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'tmux_away_crap', "Set away"); - my $message = Irssi::settings_get_str($IRSSI{'name'} . '_message'); - if (length($message) == 0) { - # we have to set a message or we wouldnt go away - $message = "not here ..."; - } - foreach (Irssi::servers()) { - if (!$_->{usermode_away}) { - # user isn't yet away - $away{$_->{'tag'}} = 0; - $_->command("^AWAY " . ($_->{chat_type} ne 'SILC' ? "-one " : "") . "$message"); - if ($_->{chat_type} ne 'XMPP' and length(Irssi::settings_get_str($IRSSI{'name'} . '_nick')) > 0) { - # only change if actual nick isn't already the away nick - if (Irssi::settings_get_str($IRSSI{'name'} . '_nick') ne $_->{nick}) { - # keep old nick - $old_nicks{$_->{'tag'}} = $_->{nick}; - # set new nick - $_->command("NICK " . Irssi::settings_get_str($IRSSI{'name'} . '_nick')); - } - } - } else { - # user is already away, remember this - $away{$_->{'tag'}} = 1; - } - } - $away_status = $status; - - # away -> unaway - } elsif ($status == 2 and $away_status != 2) { - if (my $grace = Irssi::settings_get_int($IRSSI{'name'} . '_grace')) { - if (!$immediate) { - Irssi::timeout_add_once($grace * 1000, 'tmux_away', '1'); - Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'tmux_away_crap', - "(in grace for unaway: $grace seconds)"); - return 1; - } - } - # unset away - Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'tmux_away_crap', "Reset away"); - foreach (Irssi::servers()) { - if ($away{$_->{'tag'}} == 1) { - # user was already away, don't reset away - $away{$_->{'tag'}} = 0; - next; - } - $_->command("^AWAY" . (($_->{chat_type} ne 'SILC') ? " -one" : "")) if ($_->{usermode_away}); - if ($_->{chat_type} ne 'XMPP' and defined($old_nicks{$_->{'tag'}}) and length($old_nicks{$_->{'tag'}}) > 0) { - # set old nick - $_->command("NICK " . $old_nicks{$_->{'tag'}}); - $old_nicks{$_->{'tag'}} = ""; - } - } - $away_status = $status; - } elsif ($immediate) { - Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'tmux_away_crap', - "in grace aborted"); - } - } - # but everytimes install a new timer - register_tmux_away_timer(); - return 0; -} - -# remove old timer and install a new one -sub register_tmux_away_timer { - # add new timer with new timeout (maybe the timeout has been changed) - Irssi::timeout_add_once(Irssi::settings_get_int($IRSSI{'name'} . '_repeat') * 1000, 'tmux_away', ''); -} - -# init process -tmux_away(); diff --git a/.irssi/scripts/trackbar.pl b/.irssi/scripts/trackbar.pl deleted file mode 100644 index 7ac9965..0000000 --- a/.irssi/scripts/trackbar.pl +++ /dev/null @@ -1,579 +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. -# -# /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.5"; # 56e983314dc1b85 - -%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.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 { - my $win = shift; - my $view = shift || $win->view; - $win->print(line($win->{width}), MSGLEVEL_NEVER); - $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); - remove_one_trackbar($win, $view) - if $force || !defined $force || !$ignored; - add_one_trackbar($win, $view) - if $force || !$ignored; -} - -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 } }; - 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{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); - -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/scripts/twtopic.pl b/.irssi/scripts/twtopic.pl deleted file mode 100644 index a32e3f2..0000000 --- a/.irssi/scripts/twtopic.pl +++ /dev/null @@ -1,193 +0,0 @@ -# John Engelbrecht's original versions (<= 1.0.2) were released under the public -# domain. Ryan Kavanagh's changes are distributed under the ISC license: -# -# Copyright (C) 2017 Ryan Kavanagh <rak@ryanak.ca> -# -# Permission to use, copy, modify, and/or distribute this software for any -# purpose with or without fee is hereby granted, provided that the above -# copyright notice and this permission notice appear in all copies. -# -# THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES WITH -# REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY -# AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY SPECIAL, DIRECT, -# INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM -# LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR -# OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR -# PERFORMANCE OF THIS SOFTWARE. - -use strict; -use vars qw($VERSION %IRSSI); -use Irssi; -use Irssi::Irc; -use Irssi::TextUI; - -$VERSION = '2.0'; -%IRSSI = ( - authors => 'John Engelbrecht, Ryan Kavanagh', - contact => 'jengelbr@yahoo.com, rak@ryanak.ca', - name => 'twtopic.pl', - description => 'Animated Topic bar.', - sbitems => 'twtopic', - license => 'Public Domain, ISC', - changed => 'Wed Jan 03 16:20:17 EST 2017', - url => 'http://irssi.darktalker.net' . "\n", -); - -my $instrut = - ".--------------------------------------------------.\n" - . "| 1.) shell> mkdir ~/.irssi/scripts |\n" - . "| 2.) shell> cp twtopic.pl ~/.irssi/scripts/ |\n" - . "| 3.) shell> mkdir ~/.irssi/scripts/autorun |\n" - . "| 4.) shell> ln -s ~/.irssi/scripts/twtopic.pl \\ |\n" - . "| ~/.irssi/scripts/autorun/twtopic.pl |\n" - . "| 5.) /sbar topic remove topic |\n" - . "| 6.) /sbar topic remove topic_empty |\n" - . "| 7.) /sbar topic add -after topicbarstart |\n" - . "| -priority 100 -alignment left twtopic |\n" - . "| 9.) /toggle twtopic_instruct and last /save |\n" - . "|--------------------------------------------------|\n" - . "| Options: Default: |\n" - . "| /set twtopic_refresh <speed> 150 |\n" - . "| /set twtopic_size <size> 20 |\n" - . "| /set twtopic_padding <size> 20 |\n" - . "| /set twtopic_auto_resize <ON|OFF> OFF |\n" - . "| /set twtopic_ar_padding <size> 0 |\n" - . "| /set twtopic_min_scroll <ON|OFF> OFF |\n" - . "| /set twtopic_init_pause <length> 10 |\n" - . "| /toggle twtopic_instruct |Startup instructions |\n" - . "\`--------------------------------------------------'"; - -my $timeout; -my $start_pos = 0; -my $size; -my $min_scroll; -my $padding; -my $topic = ""; -my @mirc_color_arr = ( - "\0031", "\0035", "\0033", "\0037", "\0032", "\0036", - "\00310", "\0030", "\00314", "\0034", "\0039", "\0038", - "\00312", "\00313", "\00311", "\00315", "\017" -); - -sub setup { - my $window = Irssi::active_win; - if ( Irssi::settings_get_bool('twtopic_auto_resize') ) { - $size = - $window->{'width'} - Irssi::settings_get_int('twtopic_ar_padding'); - } - else { - $size = Irssi::settings_get_int('twtopic_size'); - } - # Subtract 4 because we wrap the topic in '[ ' / ' ]'. - $size = $size - 4; - $min_scroll = Irssi::settings_get_bool('twtopic_min_scroll'); - $padding = Irssi::settings_get_int('twtopic_padding'); - update_topic(); -} - -sub regular_timer { - my $time = Irssi::settings_get_int('twtopic_refresh'); - Irssi::timeout_remove($timeout); - $timeout = Irssi::timeout_add( $time, 'reload', undef ); -} - -sub init_timer { - my $time = Irssi::settings_get_int('twtopic_init_pause'); - Irssi::timeout_remove($timeout); - $timeout = Irssi::timeout_add( $time, 'regular_timer', undef ); -} - -sub show { - my ( $item, $get_size_only ) = @_; - my $text = get(); - $text = "[ " . $text . " ]"; - $item->default_handler( $get_size_only, $text, undef, 1 ); -} - -sub update_topic { - $topic = ""; - my $name = Irssi::active_win()->{active}->{name}; - my $type = Irssi::active_win()->{active}->{type}; - if ( $name eq "" ) { - # We're in the status window - $topic = - "Irssi website: http://www.irssi.org, " - . "Irssi IRC channel: #irssi @ irc://irc.freenode:6667, " - . "twtopic has been written by Tech Wizard and ryanakca"; - } - elsif ( $type eq "QUERY" ) { - $topic = "You are now talking to...... " . $name; - } - else { - my $channel = Irssi::Irc::Server->channel_find($name); - $topic = $channel->{topic}; - foreach (@mirc_color_arr) { $topic =~ s/$_//g; } - } - if ( $topic eq "" ) { - $topic = "=-=-=-=-= No Topic =-=-=-=-=-=-=-"; - } - $topic =~ s/(\00313)+//; - $topic =~ s/(\002)+//; - $topic =~ s/(\001)+//; - # Reset the topic and pause - init_timer(); - # The length of the topic may have changed. We should reset our $start_pos - # to avoid going off the end in case the topic got shorter. - $start_pos = -1; - reload (); -} - -sub get { - my $topiclen = length($topic); - if ( $topiclen <= $size && $min_scroll ) { - return $topic . ( ' ' x ( $size - $topiclen ) ); - } - my $padded = $topic . ( ' ' x $padding ); - my $str = ""; - my $needed = $size - length($str); - while ( $needed > 0 ) { - if ( $needed < length($padded) - $start_pos ) { - $str = $str . substr( $padded, $start_pos, $needed ); - } - elsif ( $needed < length($padded) ) { - $str = - $str - . substr( $padded, $start_pos ) - . substr( $padded, 0, $needed - length($padded) ); - } - else { - $str = - $str - . substr( $padded, $start_pos ) - . substr( $padded, 0, $start_pos ); - } - $needed = $size - length($str); - } - $start_pos = $start_pos + 1 < length($padded) ? $start_pos + 1 : 0; - return $str; -} - - -Irssi::signal_add( 'channel topic changed', 'update_topic' ); -Irssi::signal_add( 'setup changed', 'setup' ); -Irssi::signal_add( 'terminal resized', 'setup' ); -Irssi::signal_add( 'window changed', 'update_topic' ); - -Irssi::settings_add_bool( 'tech_addon', 'twtopic_auto_resize', 0 ); -Irssi::settings_add_bool( 'tech_addon', 'twtopic_instruct', 1 ); -Irssi::settings_add_bool( 'tech_addon', 'twtopic_min_scroll', 0 ); -Irssi::settings_add_int( 'tech_addon', 'twtopic_ar_padding', 10 ); -Irssi::settings_add_int( 'tech_addon', 'twtopic_init_pause', 10 ); -Irssi::settings_add_int( 'tech_addon', 'twtopic_padding', 20 ); -Irssi::settings_add_int( 'tech_addon', 'twtopic_refresh', 150 ); -Irssi::settings_add_int( 'tech_addon', 'twtopic_size', 20 ); - -sub reload { Irssi::statusbar_items_redraw('twtopic'); } - -if ( Irssi::settings_get_bool('twtopic_instruct') ) { - print $instrut; -} - -setup(); - -Irssi::statusbar_item_register( 'twtopic', '$0', 'show' ); diff --git a/.irssi/scripts/usercount.pl b/.irssi/scripts/usercount.pl deleted file mode 100644 index 650f9f3..0000000 --- a/.irssi/scripts/usercount.pl +++ /dev/null @@ -1,184 +0,0 @@ -use strict; -use Irssi 20040119.2359 (); -use vars qw($VERSION %IRSSI); -$VERSION = "1.19"; -%IRSSI = ( - authors => 'David Leadbeater, Timo Sirainen, Georg Lukas', - contact => 'dgl@dgl.cx, tss@iki.fi, georg@boerde.de', - name => 'usercount', - description => 'Adds a usercount for a channel as a statusbar item', - sbitems => 'usercount', - license => 'GNU GPLv2 or later', - url => 'http://irssi.dgl.cx/', - changes => 'Only show halfops if server supports them', -); - -# Once you have loaded this script run the following command: -# /statusbar window add usercount -# You can also add -alignment left|right option - -# Settings: -# /toggle usercount_show_zero to show item even when there are no users -# /toggle usercount_show_ircops (default off) -# /toggle usercount_show_halfops (default on) - -# you can customize the look of this item from theme file: -# sb_usercount = "{sb %_$0%_ nicks ($1-)}"; -# sb_uc_ircops = "%_*%_$*"; -# sb_uc_ops = "%_@%_$*"; -# sb_uc_halfops = "%_%%%_$*"; -# sb_uc_voices = "%_+%_$*"; -# sb_uc_normal = "$*"; -# sb_uc_space = " "; - - -use Irssi::TextUI; - -my ($ircops, $ops, $halfops, $voices, $normal, $total); -my ($timeout_tag, $recalc); - -# Called to make the status bar item -sub usercount { - my ($item, $get_size_only) = @_; - my $wi = !Irssi::active_win() ? undef : Irssi::active_win()->{active}; - - if(!ref $wi || $wi->{type} ne "CHANNEL") { # only works on channels - return unless ref $item; - $item->{min_size} = $item->{max_size} = 0; - return; - } - - if ($recalc) { - $recalc = 0; - calc_users($wi); - } - - my $theme = Irssi::current_theme(); - my $format = $theme->format_expand("{sb_usercount}"); - if ($format) { - # use theme-specific look - my $ircopstr = $theme->format_expand("{sb_uc_ircops $ircops}", - Irssi::EXPAND_FLAG_IGNORE_EMPTY); - my $opstr = $theme->format_expand("{sb_uc_ops $ops}", - Irssi::EXPAND_FLAG_IGNORE_EMPTY); - my $halfopstr = $theme->format_expand("{sb_uc_halfops $halfops}", - Irssi::EXPAND_FLAG_IGNORE_EMPTY); - my $voicestr = $theme->format_expand("{sb_uc_voices $voices}", - Irssi::EXPAND_FLAG_IGNORE_EMPTY); - my $normalstr = $theme->format_expand("{sb_uc_normal $normal}", - Irssi::EXPAND_FLAG_IGNORE_EMPTY); - my $space = $theme->format_expand('{sb_uc_space}', - Irssi::EXPAND_FLAG_IGNORE_EMPTY); - $space = " " unless $space; - - my $str = ""; - $str .= $ircopstr.$space if defined $ircops; - $str .= $opstr.$space if defined $ops; - $str .= $halfopstr.$space if defined $halfops; - $str .= $voicestr.$space if defined $voices; - $str .= $normalstr.$space if defined $normal; - $str =~ s/\Q$space\E$//; - - $format = $theme->format_expand("{sb_usercount $total $str}", - Irssi::EXPAND_FLAG_IGNORE_REPLACES); - } else { - # use the default look - $format = "{sb \%_$total\%_ nicks \%c(\%n"; - $format .= '*'.$ircops.' ' if (defined $ircops); - $format .= '@'.$ops.' ' if (defined $ops); - $format .= '%%'.$halfops.' ' if (defined $halfops); - $format .= "+$voices " if (defined $voices); - $format .= "$normal " if (defined $normal); - $format =~ s/ $//; - $format .= "\%c)}"; - } - - $item->default_handler($get_size_only, $format, undef, 1); -} - -sub calc_users() { - my $channel = shift; - my $server = $channel->{server}; - - $ircops = $ops = $halfops = $voices = $normal = 0; - for ($channel->nicks()) { - if ($_->{serverop}) { - $ircops++; - } - - if ($_->{op}) { - $ops++; - } elsif ($_->{halfop}) { - $halfops++; - } elsif ($_->{voice}) { - $voices++; - } else { - $normal++; - } - } - - $total = $ops+$halfops+$voices+$normal; - - if (!Irssi::settings_get_bool('usercount_show_zero')) { - $ircops = undef if ($ircops == 0); - $ops = undef if ($ops == 0); - $halfops = undef if ($halfops == 0); - $voices = undef if ($voices == 0); - $normal = undef if ($normal == 0); - } - - # Server doesn't support halfops? - if($server->isupport("PREFIX") !~ /\%/) { - $halfops = undef; - } else { - $halfops = undef unless Irssi::settings_get_bool('usercount_show_halfops'); - } - - $ircops = undef unless Irssi::settings_get_bool('usercount_show_ircops'); -} - -sub refresh { - if ($timeout_tag > 0) { - Irssi::timeout_remove($timeout_tag); - $timeout_tag = 0; - } - Irssi::statusbar_items_redraw('usercount'); -} - -sub refresh_check { - my $channel = shift; - my $wi = ref Irssi::active_win() ? Irssi::active_win()->{active} : 0; - - return unless ref $wi && ref $channel; - return if $wi->{name} ne $channel->{name}; - return if $wi->{server}->{tag} ne $channel->{server}->{tag}; - - # don't refresh immediately, or we'll end up refreshing - # a lot around netsplits - $recalc = 1; - Irssi::timeout_remove($timeout_tag) if ($timeout_tag > 0); - $timeout_tag = Irssi::timeout_add(500, 'refresh', undef); -} - -sub refresh_recalc { - $recalc = 1; - refresh(); -} - -$recalc = 1; -$timeout_tag = 0; - -Irssi::settings_add_bool('usercount', 'usercount_show_zero', 1); -Irssi::settings_add_bool('usercount', 'usercount_show_ircops', 0); -Irssi::settings_add_bool('usercount', 'usercount_show_halfops', 1); - -Irssi::statusbar_item_register('usercount', undef, 'usercount'); -Irssi::statusbars_recreate_items(); - -Irssi::signal_add_last('nicklist new', 'refresh_check'); -Irssi::signal_add_last('nicklist remove', 'refresh_check'); -Irssi::signal_add_last('nick mode changed', 'refresh_check'); -Irssi::signal_add_last('setup changed', 'refresh_recalc'); -Irssi::signal_add_last('window changed', 'refresh_recalc'); -Irssi::signal_add_last('window item changed', 'refresh_recalc'); - |