From 0b1270abd4b8009c26a2a3b5811598520ab5987c Mon Sep 17 00:00:00 2001 From: David Runge Date: Sun, 1 Feb 2015 21:49:19 +0100 Subject: .irssi: Removing irssi settings from dotfiles repository. --- .irssi/config | 437 ------------ .irssi/default.theme | 294 --------- .irssi/scripts/autorun/bitlbee_blist.pl | 1 - .irssi/scripts/autorun/bitlbee_join_notice.pl | 1 - .irssi/scripts/autorun/bitlbee_nick_change.pl | 1 - .irssi/scripts/autorun/bitlbee_tab_completion.pl | 1 - .irssi/scripts/autorun/bitlbee_timestamp.pl | 1 - .irssi/scripts/autorun/bitlbee_typing_notice.pl | 1 - .irssi/scripts/autorun/extaway.pl | 1 - .irssi/scripts/autorun/irccomplete.pl | 1 - .irssi/scripts/autorun/lastfm.pl | 1 - .irssi/scripts/autorun/ls.pl | 1 - .irssi/scripts/autorun/nickserv.pl | 1 - .irssi/scripts/autorun/notify_irssi.pl | 1 - .irssi/scripts/autorun/scriptassist.pl | 1 - .irssi/scripts/autorun/tmux_away.pl | 1 - .irssi/scripts/bitlbee_blist.pl | 61 -- .irssi/scripts/bitlbee_join_notice.pl | 108 --- .irssi/scripts/bitlbee_nick_change.pl | 72 -- .irssi/scripts/bitlbee_tab_completion.pl | 88 --- .irssi/scripts/bitlbee_timestamp.pl | 105 --- .irssi/scripts/bitlbee_typing_notice.pl | 319 --------- .irssi/scripts/extaway.pl | 194 ------ .irssi/scripts/irccomplete.pl | 210 ------ .irssi/scripts/lastfm.pl | 447 ------------- .irssi/scripts/ls.pl | 40 -- .irssi/scripts/nicklist.pl | 805 ----------------------- .irssi/scripts/nickserv.pl | 563 ---------------- .irssi/scripts/notify_irssi.pl | 69 -- .irssi/scripts/tmux_away.pl | 179 ----- .irssi/solarized-universal.theme | 372 ----------- .irssi/startup | 1 - 32 files changed, 4378 deletions(-) delete mode 100644 .irssi/config delete mode 100644 .irssi/default.theme delete mode 120000 .irssi/scripts/autorun/bitlbee_blist.pl delete mode 120000 .irssi/scripts/autorun/bitlbee_join_notice.pl delete mode 120000 .irssi/scripts/autorun/bitlbee_nick_change.pl delete mode 120000 .irssi/scripts/autorun/bitlbee_tab_completion.pl delete mode 120000 .irssi/scripts/autorun/bitlbee_timestamp.pl delete mode 120000 .irssi/scripts/autorun/bitlbee_typing_notice.pl delete mode 120000 .irssi/scripts/autorun/extaway.pl delete mode 120000 .irssi/scripts/autorun/irccomplete.pl delete mode 120000 .irssi/scripts/autorun/lastfm.pl delete mode 120000 .irssi/scripts/autorun/ls.pl delete mode 120000 .irssi/scripts/autorun/nickserv.pl delete mode 120000 .irssi/scripts/autorun/notify_irssi.pl delete mode 120000 .irssi/scripts/autorun/scriptassist.pl delete mode 120000 .irssi/scripts/autorun/tmux_away.pl delete mode 100644 .irssi/scripts/bitlbee_blist.pl delete mode 100644 .irssi/scripts/bitlbee_join_notice.pl delete mode 100644 .irssi/scripts/bitlbee_nick_change.pl delete mode 100644 .irssi/scripts/bitlbee_tab_completion.pl delete mode 100644 .irssi/scripts/bitlbee_timestamp.pl delete mode 100644 .irssi/scripts/bitlbee_typing_notice.pl delete mode 100644 .irssi/scripts/extaway.pl delete mode 100644 .irssi/scripts/irccomplete.pl delete mode 100644 .irssi/scripts/lastfm.pl delete mode 100644 .irssi/scripts/ls.pl delete mode 100644 .irssi/scripts/nicklist.pl delete mode 100644 .irssi/scripts/nickserv.pl delete mode 100644 .irssi/scripts/notify_irssi.pl delete mode 100644 .irssi/scripts/tmux_away.pl delete mode 100644 .irssi/solarized-universal.theme delete mode 100644 .irssi/startup diff --git a/.irssi/config b/.irssi/config deleted file mode 100644 index 603a9c9..0000000 --- a/.irssi/config +++ /dev/null @@ -1,437 +0,0 @@ -servers = ( - { - address = "localhost"; - chatnet = "bitlbee"; - port = "6667"; - autoconnect = "yes"; - password = "st3ll4r.3nv3l0p3"; - }, - { - address = "chat.freenode.org"; - chatnet = "freenode"; - port = "6697"; - use_ssl = "yes"; - autoconnect = "yes"; - password = "dvzrv:s0m3th1ng.n3w.4tw"; - }, - { - address = "irc.swepipe.se"; - chatnet = "efnet"; - port = "6697"; - use_ssl = "yes"; - autoconnect = "yes"; - }, - { - address = "irc.oftc.net"; - chatnet = "oftc"; - port = "6697"; - use_ssl = "yes"; - autoconnect = "yes"; - }, - { - address = "irc.what-network.net"; - chatnet = "whatnet"; - port = "6697"; - use_ssl = "yes"; - autoconnect = "yes"; - password = "mAdmAchInE:bl4hbl4hbl4h"; - } -); - -chatnets = { - bitlbee = { type = "IRC"; nick = "DavidRunge"; }; - freenode = { type = "IRC"; nick = "dvzrv"; realname = "David Runge"; }; - efnet = { - type = "IRC"; - max_kicks = "4"; - max_msgs = "3"; - max_whois = "1"; - nick = "dvzrv"; - real_name = "David Runge"; - }; - oftc = { type = "IRC"; nick = "dvzrv"; realname = "David Runge"; }; - whatcd = { - type = "IRC"; - nick = "mAdmAchInE"; - realname = "yourMom"; - autosendcmd = "/msg Drone identify mAdmAchInE bl4hbl4hbl4h; wait Drone 2000"; - }; - whatnet = { type = "IRC"; }; -}; - -channels = ( - { name = "#unixpool"; chatnet = "freenode"; autojoin = "Yes"; }, - { name = "#freaks"; chatnet = "efnet"; autojoin = "Yes"; }, - { name = "#awesome"; chatnet = "oftc"; autojoin = "Yes"; }, - { name = "#archlinux"; chatnet = "freenode"; autojoin = "Yes"; }, - { name = "#archlinux-arm"; chatnet = "freenode"; autojoin = "Yes"; }, - { name = "#archaudio"; chatnet = "freenode"; autojoin = "Yes"; }, - { name = "#supercollider"; chatnet = "freenode"; autojoin = "Yes"; }, - { name = "#ffado"; chatnet = "freenode"; autojoin = "Yes"; }, - { name = "#what.cd-help"; chatnet = "whatnet"; autojoin = "Yes"; } -); - -hilights = ( - { - text = "[x]*dvzrv -color %G"; - nick = "yes"; - word = "yes"; - regexp = "yes"; - } -); - -aliases = { - J = "join"; - WJOIN = "join -window"; - WQUERY = "query -window"; - LEAVE = "part"; - BYE = "quit"; - EXIT = "quit"; - SIGNOFF = "quit"; - DESCRIBE = "action"; - DATE = "time"; - HOST = "userhost"; - LAST = "lastlog"; - SAY = "msg *"; - WI = "whois"; - WII = "whois $0 $0"; - WW = "whowas"; - W = "who"; - N = "names"; - M = "msg"; - T = "topic"; - C = "clear"; - CL = "clear"; - K = "kick"; - KB = "kickban"; - KN = "knockout"; - BANS = "ban"; - B = "ban"; - MUB = "unban *"; - UB = "unban"; - IG = "ignore"; - UNIG = "unignore"; - SB = "scrollback"; - UMODE = "mode $N"; - WC = "window close"; - WN = "window new hide"; - SV = "say Irssi $J ($V) - http://irssi.org/"; - GOTO = "sb goto"; - CHAT = "dcc chat"; - RUN = "SCRIPT LOAD"; - CALC = "exec - if command -v bc >/dev/null 2>&1\\; then printf '%s=' '$*'\\; echo '$*' | bc -l\\; else echo bc was not found\\; fi"; - SBAR = "STATUSBAR"; - INVITELIST = "mode $C +I"; - Q = "QUERY"; - "MANUAL-WINDOWS" = "set use_status_window off;set autocreate_windows off;set autocreate_query_level none;set autoclose_windows off;set reuse_unused_windows on;save"; - EXEMPTLIST = "mode $C +e"; - ATAG = "WINDOW SERVER"; - UNSET = "set -clear"; - RESET = "set -default"; -}; - -statusbar = { - # formats: - # when using {templates}, the template is shown only if it's argument isn't - # empty unless no argument is given. for example {sb} is printed always, - # but {sb $T} is printed only if $T isn't empty. - - items = { - # start/end text in statusbars - barstart = "{sbstart}"; - barend = "{sbend}"; - - topicbarstart = "{topicsbstart}"; - topicbarend = "{topicsbend}"; - - # treated "normally", you could change the time/user name to whatever - time = "{sb $Z}"; - user = "{sb {sbnickmode $cumode}$N{sbmode $usermode}{sbaway $A}}"; - - # treated specially .. window is printed with non-empty windows, - # window_empty is printed with empty windows - 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"; - - # all of these treated specially, they're only displayed when needed - lag = "{sb Lag: $0-}"; - act = "{sb Act: $0-}"; - more = "-- more --"; - }; - - # there's two type of statusbars. root statusbars are either at the top - # of the screen or at the bottom of the screen. window statusbars are at - # the top/bottom of each split window in screen. - default = { - # the "default statusbar" to be displayed at the bottom of the window. - # contains all the normal items. - window = { - disabled = "no"; - - # window, root - type = "window"; - # top, bottom - placement = "bottom"; - # number - position = "1"; - # active, inactive, always - visible = "active"; - - # list of items in statusbar in the display order - items = { - barstart = { priority = "100"; }; - time = { }; - user = { }; - window = { }; - window_empty = { }; - lag = { priority = "-1"; }; - act = { priority = "10"; }; - more = { priority = "-1"; alignment = "right"; }; - barend = { priority = "100"; alignment = "right"; }; - }; - }; - - # statusbar to use in inactive split windows - 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"; }; - }; - }; - - # we treat input line as yet another statusbar :) It's possible to - # add other items before or after the input line item. - prompt = { - type = "root"; - placement = "bottom"; - # we want to be at the bottom always - position = "100"; - visible = "always"; - items = { - prompt = { priority = "-1"; }; - prompt_empty = { priority = "-1"; }; - # treated specially, this is the real input line. - input = { priority = "10"; }; - }; - }; - - # topicbar - topic = { - type = "root"; - placement = "top"; - position = "1"; - visible = "always"; - items = { - topicbarstart = { priority = "100"; }; - topic = { }; - topic_empty = { }; - topicbarend = { priority = "100"; alignment = "right"; }; - }; - }; - }; -}; - -settings = { - core = { - real_name = "David Runge"; - user_name = "dave"; - nick = "dvzrv"; - awaylog_level = "MSGS HILIGHT"; - recode_out_default_charset = "UTF-8"; - recode_transliterate = "yes"; - recode_autodetect_utf8 = "yes"; - recode_fallback = "CP1252"; - timestamp_format = "%H:%M:%S"; - }; - "fe-text" = { actlist_sort = "refnum"; term_force_colors = "yes"; }; - "fe-common/core" = { - theme = "solarized-universal"; - autolog = "yes"; - hilight_level = "PUBLIC DCCMSGS MSGS"; - term_charset = "UTF-8"; - autolog_path = "~/.irssi/logs/%Y/$tag/$0.%m-%d.log"; - activity_hide_level = "JOINS PARTS QUITS MODES"; - autolog_ignore_targets = "bitlbee/#twitter_dvzrv bitlbee/#twitter_frqrec bitlbee/&bitlbee bitlbee/auth MichaelThomas PeterOhm"; - }; - "perl/core/scripts" = { tmux_away_active = "yes"; }; -}; - -ignores = ( - { - level = "JOINS PARTS QUITS MODES NICKS"; - channels = ( "&bitlbee" ); - }, - { - level = "JOINS PARTS QUITS MODES NICKS"; - channels = ( "#archlinux" ); - }, - { - level = "JOINS PARTS QUITS MODES NICKS"; - channels = ( "#archlinux-arm" ); - }, - { level = ""; channels = ( "#ffado" ); }, - { level = ""; channels = ( "#archaudio" ); }, - { - level = "JOINS PARTS QUITS MODES NICKS"; - channels = ( "#awesome" ); - }, - { - level = "JOINS PARTS QUITS MODES NICKS"; - channels = ( "#what.cd-help" ); - }, - { level = ""; channels = ( "#unixpool" ); }, - { level = ""; channels = ( "#supercollider" ); }, - { - level = "JOINS PARTS QUITS MODES NICKS"; - channels = ( "#twitter_dvzrv" ); - }, - { - level = "JOINS PARTS QUITS MODES NICKS"; - channels = ( "#twitter_frqrec" ); - }, - { level = ""; channels = ( "#freaks" ); } -); - -logs = { }; - -keyboard = ( - { key = "meta-u"; id = "command"; data = "nicklist update"; }, - { key = "meta-right"; id = "command"; data = "window next"; } -); - -windows = { - 1 = { immortal = "yes"; name = "(status)"; level = "ALL"; }; - 2 = { - items = ( - { - type = "CHANNEL"; - chat_type = "IRC"; - name = "&bitlbee"; - tag = "bitlbee"; - } - ); - }; - 3 = { - items = ( - { - type = "CHANNEL"; - chat_type = "IRC"; - name = "#twitter_dvzrv"; - tag = "bitlbee"; - } - ); - }; - 4 = { - items = ( - { - type = "CHANNEL"; - chat_type = "IRC"; - name = "#twitter_frqrec"; - tag = "bitlbee"; - } - ); - }; - 5 = { - items = ( - { - type = "CHANNEL"; - chat_type = "IRC"; - name = "#unixpool"; - tag = "freenode"; - } - ); - }; - 6 = { - items = ( - { - type = "CHANNEL"; - chat_type = "IRC"; - name = "#freaks"; - tag = "efnet"; - } - ); - }; - 7 = { - items = ( - { - type = "CHANNEL"; - chat_type = "IRC"; - name = "#awesome"; - tag = "oftc"; - } - ); - }; - 8 = { - items = ( - { - type = "CHANNEL"; - chat_type = "IRC"; - name = "#archlinux"; - tag = "freenode"; - } - ); - }; - 9 = { - items = ( - { - type = "CHANNEL"; - chat_type = "IRC"; - name = "#archaudio"; - tag = "freenode"; - } - ); - }; - 10 = { - items = ( - { - type = "CHANNEL"; - chat_type = "IRC"; - name = "#supercollider"; - tag = "freenode"; - } - ); - }; - 11 = { - items = ( - { - type = "CHANNEL"; - chat_type = "IRC"; - name = "#ffado"; - tag = "freenode"; - } - ); - }; - 12 = { - items = ( - { - type = "CHANNEL"; - chat_type = "IRC"; - name = "#archlinux-arm"; - tag = "freenode"; - } - ); - }; - 13 = { - items = ( - { - type = "CHANNEL"; - chat_type = "IRC"; - name = "#what.cd-help"; - tag = "whatnet"; - } - ); - }; -}; - -mainwindows = { 6 = { first_line = "1"; lines = "70"; }; }; diff --git a/.irssi/default.theme b/.irssi/default.theme deleted file mode 100644 index ac99356..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. "msgownnick" 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/scripts/autorun/bitlbee_blist.pl b/.irssi/scripts/autorun/bitlbee_blist.pl deleted file mode 120000 index a0fff54..0000000 --- a/.irssi/scripts/autorun/bitlbee_blist.pl +++ /dev/null @@ -1 +0,0 @@ -../bitlbee_blist.pl \ No newline at end of file diff --git a/.irssi/scripts/autorun/bitlbee_join_notice.pl b/.irssi/scripts/autorun/bitlbee_join_notice.pl deleted file mode 120000 index c4c5afc..0000000 --- a/.irssi/scripts/autorun/bitlbee_join_notice.pl +++ /dev/null @@ -1 +0,0 @@ -../bitlbee_join_notice.pl \ No newline at end of file diff --git a/.irssi/scripts/autorun/bitlbee_nick_change.pl b/.irssi/scripts/autorun/bitlbee_nick_change.pl deleted file mode 120000 index 773c4c4..0000000 --- a/.irssi/scripts/autorun/bitlbee_nick_change.pl +++ /dev/null @@ -1 +0,0 @@ -../bitlbee_nick_change.pl \ No newline at end of file diff --git a/.irssi/scripts/autorun/bitlbee_tab_completion.pl b/.irssi/scripts/autorun/bitlbee_tab_completion.pl deleted file mode 120000 index caca874..0000000 --- a/.irssi/scripts/autorun/bitlbee_tab_completion.pl +++ /dev/null @@ -1 +0,0 @@ -../bitlbee_tab_completion.pl \ No newline at end of file diff --git a/.irssi/scripts/autorun/bitlbee_timestamp.pl b/.irssi/scripts/autorun/bitlbee_timestamp.pl deleted file mode 120000 index 54360ae..0000000 --- a/.irssi/scripts/autorun/bitlbee_timestamp.pl +++ /dev/null @@ -1 +0,0 @@ -../bitlbee_timestamp.pl \ No newline at end of file diff --git a/.irssi/scripts/autorun/bitlbee_typing_notice.pl b/.irssi/scripts/autorun/bitlbee_typing_notice.pl deleted file mode 120000 index 9c4da39..0000000 --- a/.irssi/scripts/autorun/bitlbee_typing_notice.pl +++ /dev/null @@ -1 +0,0 @@ -../bitlbee_typing_notice.pl \ No newline at end of file diff --git a/.irssi/scripts/autorun/extaway.pl b/.irssi/scripts/autorun/extaway.pl deleted file mode 120000 index 9ad9ba0..0000000 --- a/.irssi/scripts/autorun/extaway.pl +++ /dev/null @@ -1 +0,0 @@ -../extaway.pl \ No newline at end of file diff --git a/.irssi/scripts/autorun/irccomplete.pl b/.irssi/scripts/autorun/irccomplete.pl deleted file mode 120000 index 2fe4b47..0000000 --- a/.irssi/scripts/autorun/irccomplete.pl +++ /dev/null @@ -1 +0,0 @@ -../irccomplete.pl \ No newline at end of file diff --git a/.irssi/scripts/autorun/lastfm.pl b/.irssi/scripts/autorun/lastfm.pl deleted file mode 120000 index a663918..0000000 --- a/.irssi/scripts/autorun/lastfm.pl +++ /dev/null @@ -1 +0,0 @@ -../lastfm.pl \ No newline at end of file diff --git a/.irssi/scripts/autorun/ls.pl b/.irssi/scripts/autorun/ls.pl deleted file mode 120000 index e878d30..0000000 --- a/.irssi/scripts/autorun/ls.pl +++ /dev/null @@ -1 +0,0 @@ -../ls.pl \ No newline at end of file diff --git a/.irssi/scripts/autorun/nickserv.pl b/.irssi/scripts/autorun/nickserv.pl deleted file mode 120000 index c3fef2b..0000000 --- a/.irssi/scripts/autorun/nickserv.pl +++ /dev/null @@ -1 +0,0 @@ -../nickserv.pl \ No newline at end of file diff --git a/.irssi/scripts/autorun/notify_irssi.pl b/.irssi/scripts/autorun/notify_irssi.pl deleted file mode 120000 index 27e7bff..0000000 --- a/.irssi/scripts/autorun/notify_irssi.pl +++ /dev/null @@ -1 +0,0 @@ -../notify_irssi.pl \ No newline at end of file diff --git a/.irssi/scripts/autorun/scriptassist.pl b/.irssi/scripts/autorun/scriptassist.pl deleted file mode 120000 index f192fad..0000000 --- a/.irssi/scripts/autorun/scriptassist.pl +++ /dev/null @@ -1 +0,0 @@ -/usr/share/irssi/scripts/scriptassist.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/bitlbee_blist.pl b/.irssi/scripts/bitlbee_blist.pl deleted file mode 100644 index 179b539..0000000 --- a/.irssi/scripts/bitlbee_blist.pl +++ /dev/null @@ -1,61 +0,0 @@ -use strict; -use vars qw($VERSION %IRSSI); - -$VERSION = '0.4'; -%IRSSI = ( - authors => 'Tijmen "timing" Ruizendaal', - contact => 'tijmen.ruizendaal@gmail.com', - name => 'bitlbee_blist', - description => '/blist , greps from blist for bitlbee', - license => 'GPLv2', - url => 'http://the-timing.nl/stuff/irssi-bitlbee', - changed => '2006-10-27', -); - -my $bitlbee_server_tag = "localhost"; -my $bitlbee_channel = "&bitlbee"; -my ($list, $word); - -get_channel(); - -Irssi::signal_add_last 'channel sync' => sub { - my( $channel ) = @_; - if( $channel->{topic} eq "Welcome to the control channel. Type \x02help\x02 for help information." ){ - $bitlbee_server_tag = $channel->{server}->{tag}; - $bitlbee_channel = $channel->{name}; - } -}; - -sub get_channel { - my @channels = Irssi::channels(); - foreach my $channel(@channels) { - if ($channel->{topic} eq "Welcome to the control channel. Type \x02help\x02 for help information.") { - $bitlbee_channel = $channel->{name}; - $bitlbee_server_tag = $channel->{server}->{tag}; - return 1; - } - } - return 0; -} - -sub blist { - my ($args, $server, $winit) = @_; - ($list, $word) = split(/ /, $args, 2); - if (Irssi::active_win->{'active'}->{'name'} eq $bitlbee_channel) { - Irssi::active_win()->command("msg $bitlbee_channel blist $list"); - Irssi::signal_add('event privmsg', 'grep'); - } else { - print "Only use in $bitlbee_channel."; - } -} - -sub grep { - my ($server, $data, $nick, $address) = @_; - my ($target, $text) = split(/ :/, $data, 2); - if ($text =~ /$word/ && $target =~ /$bitlbee_channel/){ - ##do nothing - } else {Irssi::signal_stop();} - if ($text =~ /buddies/ && $target =~/$bitlbee_channel/){Irssi::signal_remove('event privmsg', 'grep');} -} - -Irssi::command_bind('blist','blist'); diff --git a/.irssi/scripts/bitlbee_join_notice.pl b/.irssi/scripts/bitlbee_join_notice.pl deleted file mode 100644 index 6644895..0000000 --- a/.irssi/scripts/bitlbee_join_notice.pl +++ /dev/null @@ -1,108 +0,0 @@ -# CHANGELOG: -# -# 2010-08-10 (version 1.3) -# * new bitlbee server detection -# -# 2004-11-28: -# * adds join message to query -# -# /statusbar window add join_notice -# use Data::Dumper; - -#use strict; -use Irssi::TextUI; -#use Irssi::Themes; -use Data::Dumper; - -use vars qw($VERSION %IRSSI); - -$VERSION = '1.3'; -%IRSSI = ( - authors => 'Tijmen "timing" Ruizendaal', - contact => 'tijmen.ruizendaal@gmail.com', - name => 'BitlBee_join_notice', - description => '1. Adds an item to the status bar wich shows [joined: ] when someone is joining &bitlbee. 2. Shows join messages in the query. (For bitlbee v3.0+)', - license => 'GPLv2', - url => 'http://the-timing.nl/stuff/irssi-bitlbee', - changed => '2010-08-10' -); -my %timers; -my $bitlbee_server; # server object -my @control_channels; # mostly: &bitlbee, &facebook etc. -init(); - -sub init { # if script is loaded after connect - my @servers = Irssi::servers(); - foreach my $server(@servers) { - if( $server->isupport('NETWORK') eq 'BitlBee' ){ - $bitlbee_server = $server; - my @channels = $server->channels(); - foreach my $channel(@channels) { - if( $channel->{mode} =~ /C/ ){ - push @control_channels, $channel->{name} unless (grep $_ eq $channel->{name}, @control_channels); - } - } - } - } -} -# if connect after script is loaded -Irssi::signal_add_last('event 005' => sub { - my( $server ) = @_; - if( $server->isupport('NETWORK') eq 'BitlBee' ){ - $bitlbee_server = $server; - } -}); -# if new control channel is synced after script is loaded -Irssi::signal_add_last('channel sync' => sub { - my( $channel ) = @_; - if( $channel->{mode} =~ /C/ && $channel->{server}->{tag} eq $bitlbee_server->{tag} ){ - push @control_channels, $channel->{name} unless (grep $_ eq $channel->{name}, @control_channels); - } -}); - -# BEGIN bitlbee_join_notice.pl - -my %online; - -sub event_join { - my ($server, $channel, $nick, $address) = @_; - $channel =~ s/^://g; - if ( (grep $_ eq $channel, @control_channels) && $server->{tag} eq $bitlbee_server->{tag}){ - $online{$nick} = 1; - Irssi::timeout_remove($timers{$nick}); - delete($timers{$nick}); - $timers{$nick} = Irssi::timeout_add_once(7000, 'empty', $nick); - Irssi::statusbar_items_redraw('join_notice'); - my $window = Irssi::window_find_item($nick); - if($window){ - $window->printformat(Irssi::MSGLEVEL_JOINS, 'join', $nick, $address, $channel); - } - } -} -sub join_notice { - my ($item, $get_size_only) = @_; - my $line; - foreach my $key (keys(%online) ){ - $line = $line." ".$key; - } - if ($line ne "" ){ - $item->default_handler($get_size_only, "{sb joined:$line}", undef, 1); - $line = ""; - } else { - $item->default_handler($get_size_only, "", undef, 1); - } -} -sub empty { - my $nick = shift; - delete($online{$nick}); - Irssi::timeout_remove($timers{$nick}); - delete($timers{$nick}); - Irssi::statusbar_items_redraw('join_notice'); -} - -Irssi::signal_add('event join', 'event_join' ); -Irssi::statusbar_item_register('join_notice', undef, 'join_notice'); -Irssi::statusbars_recreate_items(); -Irssi::theme_register([ 'join', '{channick_hilight $0} {chanhost $1} has joined {channel $2}', ]); - -# END bitlbee_join_notice.pl diff --git a/.irssi/scripts/bitlbee_nick_change.pl b/.irssi/scripts/bitlbee_nick_change.pl deleted file mode 100644 index 93a01b9..0000000 --- a/.irssi/scripts/bitlbee_nick_change.pl +++ /dev/null @@ -1,72 +0,0 @@ -use strict; -use Data::Dumper; -use vars qw($VERSION %IRSSI); - -$VERSION = '1.3'; -%IRSSI = ( - authors => 'Tijmen "timing" Ruizendaal', - contact => 'tijmen.ruizendaal@gmail.com', - name => 'BitlBee_nick_change', - description => 'Shows an IM nickchange in an Irssi way. (in a query and in the bitlbee channel). (For bitlbee 3.0+)', - license => 'GPLv2', - url => 'http://the-timing.nl/stuff/irssi-bitlbee', - changed => '2010-07-28' -); - -my $bitlbee_server; # server object -my @control_channels; # mostly: &bitlbee, &facebook etc. -init(); - -sub init { # if script is loaded after connect - my @servers = Irssi::servers(); - foreach my $server(@servers) { - if( $server->isupport('NETWORK') eq 'BitlBee' ){ - $bitlbee_server = $server; - my @channels = $server->channels(); - foreach my $channel(@channels) { - if( $channel->{mode} =~ /C/ ){ - push @control_channels, $channel->{name} unless (grep $_ eq $channel->{name}, @control_channels); - } - } - } - } -} -# if connect after script is loaded -Irssi::signal_add_last('event 005' => sub { - my( $server ) = @_; - if( $server->isupport('NETWORK') eq 'BitlBee' ){ - $bitlbee_server = $server; - } -}); -# if new control channel is synced after script is loaded -Irssi::signal_add_last('channel sync' => sub { - my( $channel ) = @_; - if( $channel->{mode} =~ /C/ && $channel->{server}->{tag} eq $bitlbee_server->{tag} ){ - push @control_channels, $channel->{name} unless (grep $_ eq $channel->{name}, @control_channels); - } -}); - -# BEGIN bitlbee_nick_change.pl - -sub event_notice { - my ($server, $msg, $nick, $address, $target) = @_; - if( $server->{tag} eq $bitlbee_server->{tag} && $msg =~ /.*Changed name to.*/ ){ - my $friendly_name = $msg; - $friendly_name =~ s/.*Changed name to `(.*)'.*/$1/; - my $window = $server->window_find_item($nick); - if ($window) { - $window->printformat(MSGLEVEL_CRAP, 'nick_change', $nick, $address, 'changed name to `'.$friendly_name.'`'); - Irssi::signal_stop(); - } else { - # TODO find control channel where this user is located and display the notice there - #my $window = $server->window_find_item($bitlbee_channel); - #$window->printformat(MSGLEVEL_CRAP, 'nick_change', $nick, $address, 'changed name to `'.$friendly_name.'`'); - #Irssi::signal_stop(); - } - } -}; - -Irssi::signal_add_last('message irc notice', 'event_notice'); -Irssi::theme_register(['nick_change', '{channick_hilight $0} [$1] $2']); - -# END bitbee_nick_change.pl diff --git a/.irssi/scripts/bitlbee_tab_completion.pl b/.irssi/scripts/bitlbee_tab_completion.pl deleted file mode 100644 index 8d19128..0000000 --- a/.irssi/scripts/bitlbee_tab_completion.pl +++ /dev/null @@ -1,88 +0,0 @@ -use strict; -use vars qw($VERSION %IRSSI); - -$VERSION = '1.3'; - -%IRSSI = ( - authors => 'Tijmen "timing" Ruizendaal & Wilmer van der Gaast', - contact => 'tijmen.ruizendaal@gmail.com', - name => 'BitlBee_tab_completion', - description => 'Intelligent Tab-completion for BitlBee commands.', - license => 'GPLv2', - url => 'http://the-timing.nl/stuff/irssi-bitlbee', - changed => '2009-08-11', -); - -my $root_nick = 'root'; -my $bitlbee_channel = '&bitlbee'; -my $bitlbee_server_tag = 'localhost'; -my $get_completions = 0; - -my @commands; - -Irssi::signal_add_last 'channel sync' => sub { - my( $channel ) = @_; - if( $channel->{topic} eq "Welcome to the control channel. Type \x02help\x02 for help information." ){ - $bitlbee_server_tag = $channel->{server}->{tag}; - $bitlbee_channel = $channel->{name}; - request_completions(); - } -}; - -if (get_channel()) { - request_completions(); -} - -sub request_completions { - $get_completions = 1; - Irssi::server_find_tag($bitlbee_server_tag)->send_raw( 'COMPLETIONS' ); -} - -sub get_channel { - my @channels = Irssi::channels(); - foreach my $channel(@channels) { - if ($channel->{topic} eq "Welcome to the control channel. Type \x02help\x02 for help information.") { - $bitlbee_channel = $channel->{name}; - $bitlbee_server_tag = $channel->{server}->{tag}; - return 1; - } - } - return 0; -} - -sub irc_notice { - return unless $get_completions; - my( $server, $msg, $from, $address, $target ) = @_; - - if( $msg =~ s/^COMPLETIONS // ) { - $root_nick = $from; - if( $msg eq 'OK' ) { - @commands = (); - } - elsif( $msg eq 'END' ) { - $get_completions = 0; - } - @commands = ( @commands, $msg ); - - Irssi::signal_stop(); - } -} - -sub complete_word { - my ($complist, $window, $word, $linestart, $want_space) = @_; - my $channel = $window->get_active_name(); - if ($channel eq $bitlbee_channel or $channel eq $root_nick or $linestart =~ /^\/(msg|query) \Q$root_nick\E */i){ - $linestart =~ s/^\/(msg|query) \Q$root_nick\E *//i; - $linestart =~ s/^\Q$root_nick\E[:,] *//i; - foreach my $command(@commands) { - if ($command =~ /^$word/i) { - push @$complist, $command; - } - } - } -} - - -Irssi::signal_add_last('complete word', 'complete_word'); -Irssi::signal_add_first('message irc notice', 'irc_notice'); - diff --git a/.irssi/scripts/bitlbee_timestamp.pl b/.irssi/scripts/bitlbee_timestamp.pl deleted file mode 100644 index 7957d57..0000000 --- a/.irssi/scripts/bitlbee_timestamp.pl +++ /dev/null @@ -1,105 +0,0 @@ -use strict; -use Data::Dumper; -use vars qw($VERSION %IRSSI); -use DateTime; - -$VERSION = '0.5'; -%IRSSI = ( - authors => 'Tijmen "timing" Ruizendaal', - contact => 'tijmen.ruizendaal@gmail.com', - name => 'bitlbee_timestamp', - description => 'Replace Irssi\'s timestamps with those sent by BitlBee', - license => 'GPLv2', - url => 'http://the-timing.nl/stuff/irssi-bitlbee', - changed => '2010-05-01', -); - -my $tf = Irssi::settings_get_str('timestamp_format'); - -my $bitlbee_server; # server object -my @control_channels; # mostly: &bitlbee, &facebook etc. -init(); - -sub init { # if script is loaded after connect - my @servers = Irssi::servers(); - foreach my $server(@servers) { - if( $server->isupport('NETWORK') eq 'BitlBee' ){ - $bitlbee_server = $server; - my @channels = $server->channels(); - foreach my $channel(@channels) { - if( $channel->{mode} =~ /C/ ){ - push @control_channels, $channel->{name} unless (grep $_ eq $channel->{name}, @control_channels); - } - } - } - } -} -# if connect after script is loaded -Irssi::signal_add_last('event 005' => sub { - my( $server ) = @_; - if( $server->isupport('NETWORK') eq 'BitlBee' ){ - $bitlbee_server = $server; - } -}); -# if new control channel is synced after script is loaded -Irssi::signal_add_last('channel sync' => sub { - my( $channel ) = @_; - if( $channel->{mode} =~ /C/ && $channel->{server}->{tag} eq $bitlbee_server->{tag} ){ - push @control_channels, $channel->{name} unless (grep $_ eq $channel->{name}, @control_channels); - } -}); - -my $prev_date = ''; - -sub privmsg { - my ($server, $data, $nick, $address) = @_; - - # What we need to match: ^B[^B^B^B2010-03-21 16:33:41^B]^B - - if( $server->{tag} eq $bitlbee_server->{tag} ){ - - my ($target, $text) = split(/ :/, $data, 2); - - #if( $text =~ /^B[^B^B^B[0-9]{4}-[0-9]{2}-[0-9]{2} [0-9]{2}:[0-9]{2}:[0-9]{2}^B]^B/ ){ - - if( $text =~ /\x02\[\x02\x02\x02.*\x02\]\x02/ ){ - my $window; - my $timestamp = $text; - my $time; - my $date; - $timestamp =~ s/.*\x02\[\x02\x02\x02(.*?)\x02\]\x02.*/$1/g; - $text =~ s/\x02\[\x02\x02\x02(.*?)\x02\]\x02 //g; - - ($date, $time) = split(/ /, $timestamp); - if( !$time ){ # the timestamp doesn't have a date - $time = $date; - # use today as date - $date = DateTime->now->ymd; - } - - if( $date ne $prev_date ){ - if( $target =~ /#|&/ ){ # find channel window based on target - $window = Irssi::window_find_item($target); - } else { # find query window based on nick - $window = Irssi::window_find_item($nick); - } - if( $window != undef ){ - my($year, $month, $day) = split(/-/, $date); - my $dt = DateTime->new(year => $year, month => $month, day => $day); - my $formatted_date = $day.' '.$dt->month_abbr.' '.$year; - - $window->print('Day changed to '.$formatted_date, MSGLEVEL_NEVER); - } - } - $prev_date = $date; - - Irssi::settings_set_str('timestamp_format', $time); - Irssi::signal_continue($server, $target . ' :' . $text, $nick, $address); - my $escaped = $tf; - $escaped =~ s/%/%%/g; - Irssi::settings_set_str('timestamp_format', $tf); - } - } -} - -Irssi::signal_add('event privmsg', 'privmsg'); diff --git a/.irssi/scripts/bitlbee_typing_notice.pl b/.irssi/scripts/bitlbee_typing_notice.pl deleted file mode 100644 index 50fe47c..0000000 --- a/.irssi/scripts/bitlbee_typing_notice.pl +++ /dev/null @@ -1,319 +0,0 @@ -# INSTALLATION -# [&bitlbee] set typing_notice true -# <@root> typing_notice = `true' -# AND -# /statusbar window add typing_notice -# -# SETTINGS -# [bitlbee] -# bitlbee_send_typing = ON -# -> send typing messages to buddies -# bitlbee_typing_allwin = OFF -# -> show typing notifications in all windows -# -# -# Changelog: -# -# 2010-08-09 (version 1.7.1) -# * Multiple control channels supported by checking chanmodes -# -# 2010-07-27 (version 1.7) -# * Using new server detection for latest BitlBee support -# -# 2010-07-26 (version 1.6.3) -# * Removed checking if nicks exists in &bitlbee channel, this because BitlBee -# can be used without control channel from this date -# -# 2007-03-03 (version 1.6.2) -# * Fix: timers weren't deleted correctly. This resulted in huge mem usage. -# -# 2006-11-02 (version 1.6.1) -# * Sending typing works again. -# -# 2006-10-27 (version 1.6) -# * 'channel sync' re-implemented. -# * bitlbee_send_typing was a string setting, It's a boolean now, like it should. -# -# 2006-10-24 (version 1.5) -# * Sending notices to online users only. ( removed this again at 2010-07-26, see above ) -# * Using the new get_channel function; -# -# 2005-12-15 (version 1.42): -# * Fixed small bug with typing notices disappearing under certain circumstances -# in channels -# * Fixed bug that caused outgoing notifications not to work -# * root cares not about our typing status. -# -# 2005-12-04 (version 1.41): -# * Implemented stale states in statusbar (shows "(stale)" for OSCAR connections) -# * Introduced bitlbee_typing_allwin (default OFF). Set this to ON to make -# typing notifications visible in all windows. -# -# 2005-12-03 (version 1.4): -# * Major code cleanups and rewrites for bitlbee 1.0 with the updated typing -# scheme. TYPING 0, TYPING 1, and TYPING 2 are now supported from the server. -# * Stale states (where user has typed in text but has stopped typing) are now -# recognized. -# * Bug where user thinks you are still typing if you close the window after -# typing something and then erasing it quickly.. fixed. -# * If a user signs off while they are still typing, the notification is removed -# This update by Matt "f0rked" Sparks -# -# 2005-08-26: -# Some fixes for AIM, Thanks to Dracula. -# -# 2005-08-16: -# AIM supported, for sending notices, using CTCP TYPING 0. (Use the AIM patch from Hanji http://get.bitlbee.org/patches/) -# -# 2004-10-31: -# Sends typing notice to the bitlbee server when typing a message in irssi. bitlbee > 0.92 -# -# 2004-06-11: -# shows [typing: ] in &bitlbee with multiple users. -# -use strict; -use Irssi::TextUI; -use Data::Dumper; - -use vars qw($VERSION %IRSSI); - -$VERSION = '1.7.1'; -%IRSSI = ( - authors => 'Tijmen "timing" Ruizendaal, Matt "f0rked" Sparks', - contact => 'tijmen.ruizendaal@gmail.com, root@f0rked.com', - name => 'BitlBee_typing_notice', - description => '1. Adds an item to the status bar wich shows [typing] when someone is typing a message on the supported IM-networks 2. Sends typing notices to the supported IM networks (the other way arround). (For bitlbee 3.0+)', - license => 'GPLv2', - url => 'http://the-timing.nl/stuff/irssi-bitlbee, http://f0rked.com', - changed => '2010-08-09', -); - -my $bitlbee_server; # server object -my @control_channels; # mostly: &bitlbee, &facebook etc. -init(); - -sub init { # if script is loaded after connect - my @servers = Irssi::servers(); - foreach my $server(@servers) { - if( $server->isupport('NETWORK') eq 'BitlBee' ){ - $bitlbee_server = $server; - my @channels = $server->channels(); - foreach my $channel(@channels) { - if( $channel->{mode} =~ /C/ ){ - push @control_channels, $channel->{name} unless (grep $_ eq $channel->{name}, @control_channels); - } - } - } - } -} -# if connect after script is loaded -Irssi::signal_add_last('event 005' => sub { - my( $server ) = @_; - if( $server->isupport('NETWORK') eq 'BitlBee' ){ - $bitlbee_server = $server; - } -}); -# if new control channel is synced after script is loaded -Irssi::signal_add_last('channel sync' => sub { - my( $channel ) = @_; - if( $channel->{mode} =~ /C/ && $channel->{server}->{tag} eq $bitlbee_server->{tag} ){ - push @control_channels, $channel->{name} unless (grep $_ eq $channel->{name}, @control_channels); - } -}); - -# How often to check if we are typing, or on msn, -# how long to keep the typing notice up, or check -# if the other user is still typing... -my $KEEP_TYPING_TIMEOUT = 1; -my $STOP_TYPING_TIMEOUT = 7; - -my %timer_tag; - -my %typing; -my %tag; -my $line; -my %out_typing; -my $lastkey; -my $keylog_active = 1; -my $command_char = Irssi::settings_get_str('cmdchars'); # mostly: / -my $to_char = Irssi::settings_get_str("completion_char"); # mostly: : - -sub event_ctcp_msg { - my ($server, $msg, $from, $address) = @_; - return if $server->{tag} ne $bitlbee_server->{tag}; - if ( my($type) = $msg =~ "TYPING ([0-9])" ){ - Irssi::signal_stop(); - if( $type == 0 ){ - unset_typing($from); - } elsif( $type == 1 ){ - $typing{$from}=1; - if( $address !~ /\@login\.oscar\.aol\.com/ and $address !~ /\@YAHOO/ and $address !~ /\@login\.icq\.com/ ){ - Irssi::timeout_remove($tag{$from}); - delete($tag{$from}); - $tag{$from}=Irssi::timeout_add_once($STOP_TYPING_TIMEOUT*1000,"unset_typing",$from); - } - redraw($from); - } elsif( $type == 2 ){ - stale_typing($from); - } - } -} - -sub unset_typing { - my($from,$no_redraw)=@_; - delete $typing{$from} if $typing{$from}; - Irssi::timeout_remove($tag{$from}); - delete($tag{$from}); - redraw($from) if !$no_redraw; -} - -sub stale_typing { - my($from)=@_; - $typing{$from}=2; - redraw($from); -} - -sub redraw { - my($from)=@_; - my $window = Irssi::active_win(); - my $name = $window->get_active_name(); - - # only redraw if current window equals to the typing person, is a control channel or if allwin is set - if( $from eq $name || (grep $_ eq $name, @control_channels) || Irssi::settings_get_bool("bitlbee_typing_allwin") ){ - Irssi::statusbar_items_redraw('typing_notice'); - } -} - -sub event_msg { - my ($server,$data,$from,$address,$target) = @_; - return if $server->{tag} ne $bitlbee_server->{tag}; - my $channel=Irssi::active_win()->get_active_name(); - unset_typing $from, "no redraw"; - unset_typing $channel; -} - -sub event_quit { - my $server = shift; - return if $server->{tag} ne $bitlbee_server->{tag}; - my $nick = shift; - unset_typing $nick; -} - -sub typing_notice { - my ($item, $get_size_only) = @_; - my $window = Irssi::active_win(); - my $channel = $window->get_active_name(); - - if (exists($typing{$channel})) { - my $append=$typing{$channel}==2 ? " (stale)" : ""; - $item->default_handler($get_size_only, "{sb typing$append}", 0, 1); - } else { - $item->default_handler($get_size_only, "", 0, 1); - Irssi::timeout_remove($tag{$channel}); - delete($tag{$channel}); - } - # we check for correct windows again, because the statusbar item is redrawn after window change too. - if( (grep $_ eq $channel, @control_channels) || Irssi::settings_get_bool("bitlbee_typing_allwin")) { - foreach my $key (keys(%typing)) { - $line .= " ".$key; - if ($typing{$key}==2) { $line .= " (stale)"; } - } - if ($line ne "") { - $item->default_handler($get_size_only, "{sb typing:$line}", 0, 1); - $line = ""; - } - } -} - -sub window_change { - Irssi::statusbar_items_redraw('typing_notice'); - my $win = !Irssi::active_win() ? undef : Irssi::active_win()->{active}; - if (ref $win && ($win->{server}->{tag} eq $bitlbee_server->{tag})) { - if (!$keylog_active) { - $keylog_active = 1; - Irssi::signal_add_last('gui key pressed', 'key_pressed'); - } - } else { - if ($keylog_active) { - $keylog_active = 0; - Irssi::signal_remove('gui key pressed', 'key_pressed'); - } - } -} - -sub key_pressed { - return if !Irssi::settings_get_bool("bitlbee_send_typing"); - my $key = shift; - if ($key != 9 && $key != 10 && $lastkey != 27 && $key != 27 - && $lastkey != 91 && $key != 126 && $key != 127) - { - my $server = Irssi::active_server(); - my $window = Irssi::active_win(); - my $nick = $window->get_active_name(); - - if ($server->{tag} eq $bitlbee_server->{tag} && $nick ne "(status)" && $nick ne "root") { - if( grep $_ eq $nick, @control_channels ){ # send typing if in control channel - my $input = Irssi::parse_special("\$L"); - my ($first_word) = split(/ /,$input); - if ($input !~ /^$command_char.*/ && $first_word =~ s/$to_char$//){ - send_typing($first_word); - } - } else { # or any other channels / query - my $input = Irssi::parse_special("\$L"); - if ($input !~ /^$command_char.*/ && length($input) > 0){ - send_typing($nick); - } - } - } - } - $lastkey = $key; -} - -sub out_empty { - my ($a) = @_; - my($nick,$tag)=@{$a}; - delete($out_typing{$nick}); - Irssi::timeout_remove($timer_tag{$nick}); - delete($timer_tag{$nick}); - $bitlbee_server->command("^CTCP $nick TYPING 0"); -} - -sub send_typing { - my $nick = shift; - if (!exists($out_typing{$nick}) || time - $out_typing{$nick} > $KEEP_TYPING_TIMEOUT) { - $bitlbee_server->command("^CTCP $nick TYPING 1"); - $out_typing{$nick} = time; - ### Reset 'stop-typing' timer - Irssi::timeout_remove($timer_tag{$nick}); - delete($timer_tag{$nick}); - - ### create new timer - $timer_tag{$nick} = Irssi::timeout_add_once($STOP_TYPING_TIMEOUT*1000, 'out_empty', ["$nick", $bitlbee_server->{tag}]); - } -} - -#README: Delete the old bitlbee_send_typing string from ~/.irssi/config. A boolean is better. - -sub db_typing { - print "Detected channels: "; - print Dumper(@control_channels); - print "Detected server tag: ".$bitlbee_server->{tag}; - print "Tag: ".Dumper(%tag); - print "Timer Tag: ".Dumper(%timer_tag); - print "Typing: ".Dumper(%typing); - print "Out Typing: ".Dumper(%out_typing); -} - -Irssi::command_bind('db_typing','db_typing'); - -Irssi::settings_add_bool("bitlbee","bitlbee_send_typing",1); -Irssi::settings_add_bool("bitlbee","bitlbee_typing_allwin",0); - -Irssi::signal_add("ctcp msg", "event_ctcp_msg"); -Irssi::signal_add("message private", "event_msg"); -Irssi::signal_add("message public", "event_msg"); -Irssi::signal_add("message quit", "event_quit"); -Irssi::signal_add_last('window changed', 'window_change'); -Irssi::signal_add_last('gui key pressed', 'key_pressed'); -Irssi::statusbar_item_register('typing_notice', undef, 'typing_notice'); -Irssi::statusbars_recreate_items(); diff --git a/.irssi/scripts/extaway.pl b/.irssi/scripts/extaway.pl deleted file mode 100644 index 78e8392..0000000 --- a/.irssi/scripts/extaway.pl +++ /dev/null @@ -1,194 +0,0 @@ -# Away Manager -# -# This script allows you to have different automated -# actions on away -# -# - sets your nick, using a base and a keyword -# - in example: Crazy_Away -# - insert an away reason -# - say on all channels that your away -# -# This is my first IRSSI script, but I'll try to make it -# better soon. -# If you have ideas to improve it, or make it more efficient, -# contact me at crazycat@c-p-f.org - -use Irssi; -use Irssi::Irc; -use strict; - -use vars qw($VERSION %IRSSI); - -$VERSION = '1.0'; -%IRSSI = ( - authors => 'CrazyCat', - contact => 'crazycat@c-p-f.org', - name => 'ExtAway', - description => 'Extended Away & Back programm', - license => 'GNU GPLv2 or later', - changed => '$Date: 2005/01/12 03:04:01$' -); - -my $xa_confile = Irssi::get_irssi_dir()."/xa.config"; -my %infos = (); -my ($oldnick, $t_away); - -sub init { - # verifying if settings file exists - if (!(open xa_settings, "<$xa_confile")) { - putlog("No config file: /xahelp for help"); - return 0; - }; - # reading the config file - while (my $line = ) { - $line =~ s/\n//; - my ($xa_key,$xa_val) = split(/:/, $line); - $xa_key =~ tr/[A-Z]/[a-z]/; - if ($xa_val ne "") { - $infos{$xa_key} = $xa_val; - } - } - close xa_settings; -} - -sub xa_go { - # Main procedure to go away - my($data,$server,$channel) = @_; - my $xa_nick = ""; - my $xa_reason = ""; - if ($server->{usermode_away}) { - # oooops! already marged as away - &putlog("You're allready marqued as away ($server->{away_reason})"); - return 0; - } - $oldnick = $server->{nick}; - $t_away = time(); - my $t_data = split(/ /, $data); - if ($t_data < 2) { - # away called with just a keyword - $xa_nick = $data; - $xa_nick =~ tr/[A-Z]/[a-z]/; - $xa_reason = $infos{$xa_nick}; - } else { - # this is a new reason - ($xa_nick, $xa_reason) = $data =~ /^(\S+) (.*)/; - &xa_add($xa_nick, $xa_reason); - } - if ($xa_reason eq "") { - putlog("Sorry, <$xa_nick> is not defined"); - } else { - my $nick = "$infos{'bnick'}$xa_nick"; - foreach my $server (Irssi::servers) { - $server->command("AWAY $xa_reason"); - $server->command("NICK $nick"); - foreach my $chan ($server->channels) { - $server->command("DESCRIBE $chan->{name} is away [Reason: $xa_reason]"); - } - } - } -} - -sub xa_back { - # the way to be back - my($data,$server,$channel) = @_; - if (!$server->{usermode_away}) { - &putlog("You're not marqued as away"); - return 0; - } - my $delay = time() - $t_away; - my $f_delay = f_delay($delay); - foreach my $server (Irssi::servers) { - foreach my $chan ($server->channels) { - $server->command("DESCRIBE $chan->{name} is back from [$server->{away_reason}] - $f_delay away"); - } - $server->command("AWAY"); - $server->command("NICK $oldnick"); - } -} - -sub putlog { - # procedure to write in status window - my ($window) = Irssi::active_win(); - Irssi::print("[$IRSSI{'name'}] @_", MSGLEVEL_CLIENTNOTICE); - -} - -sub f_delay { - # formatting the away time - my $seconds = shift; - my ($hours, $minutes, $formated); - if ($seconds > 3600) { - $hours = int($seconds / 3600); - $formated .= $hours."h:"; - $seconds = $seconds - ($hours * 3600); - } - if ($seconds > 60) { - $minutes = int($seconds / 60); - $formated .= $minutes."m:"; - $seconds = $seconds - ($minutes * 60); - } - $formated .= $seconds."s"; - return $formated; -} - -sub xa_add { - # Adding the keyword and the reason in the config file - # may create double entries... - my($kw, $reason) = @_; - if(!(open xa_settings, ">>$xa_confile")) { - &putlog("Unable to open file $xa_confile"); - } - print xa_settings "$kw:$reason\n"; - close xa_settings; - $infos{$kw} = $reason; -} - -sub xa_save { - # save the temp infos (might correct the double entries) - my ($data,$server,$channel) = @_; - if(!(open xa_settings, ">$xa_confile")) { - &putlog("Unable to create file $xa_confile"); - } - print xa_settings "bnick:$infos{'bnick'}\n"; - while (my ($kw, $line) = each %infos) { - if ($kw ne "bnick") { - print xa_settings "$kw:$infos{$kw}\n"; - } - } - close xa_settings; -} - -sub xa_nick { - # The way to add the base nick - my ($data,$server,$channel) = @_; - if ($data eq "") { - putlog("You must define your base_nick") - } - $infos{'bnick'} = $data; - &xa_save; -} - -sub xa_help { - &putlog("Help for $IRSSI{name} : $IRSSI{description}"); - &putlog(" Setting your base nick: /xanick "); - &putlog(" Going away: /aw [reason]"); - &putlog(" if keyword exists in the base, reason is automatically displayed"); - &putlog(" if keyword is a new one, you MUST give a reason"); - &putlog(" -- Nota: your away nick will be --"); - &putlog(" Coming back from away: /back"); - &putlog(" Saving all datas: /xasave (take care, setting your base_nick will save all your datas)"); -} -# -# main -# -&init(); -if ($infos{'bnick'} eq "") { - &putlog("Please, give a base nick with /xanick "); - &putlog("Use /xahelp to get some help"); -} -Irssi::command_bind("aw", "xa_go"); -Irssi::command_bind("back", "xa_back"); -Irssi::command_bind("xahelp", "xa_help"); -Irssi::command_bind("xanick", "xa_nick"); -Irssi::command_bind("xasave", "xa_save"); - diff --git a/.irssi/scripts/irccomplete.pl b/.irssi/scripts/irccomplete.pl deleted file mode 100644 index bac2de1..0000000 --- a/.irssi/scripts/irccomplete.pl +++ /dev/null @@ -1,210 +0,0 @@ -# TAB complete words from dictionary -# for irssi 0.7.99 by Timo Sirainen -# Greatly modified by Erkki Seppälä to build dictionary of said words - -use Irssi; - -use vars qw($VERSION %IRSSI); -$VERSION = "0.1"; -%IRSSI = ( - authors => "Erkki Seppälä", - contact => "flux\@inside.org", - name => "IRC Completion", - description => "Adds words from IRC to your tab-completion list, plus fixes typos", - license => "Public Domain", - url => "http://xulfad.inside.org/~flux/software/irssi/", - changed => "Thu Feb 7 22:45:55 EET 2002" -); - - -my @wordHistory; -my %words; -my %permanent; - -my $wordChars = join("", ('a'..'z', '0'..'9', 'öä')); -my $maxWords = 5000; -my $minWordLength = 4; -my $maxWordLength = 80; -my $maxTypoLength = 10; -my $permanentThreshold = 1; - -my %typoWords; -my $correctWordCounter = 1; -my %correctWordsByIndex; -my %correctWordsByWord; - -# by word -sub addCorrectWord { - my $index = $correctWordsByWord{$_[0]} or 0; - if ($index > 0) { - ++$correctWordsByIndex{$index}->[1]; - return $index; - } else { - $correctWordsByIndex{$correctWordCounter} = [$_[0], 1]; - $correctWordsByWord{$_[0]} = $correctWordCounter; - ++$correctWordCounter; - return $correctWordCounter - 1; - } -}; - -# by word -sub delCorrectWord { - my ($word) = @_; - my $index = $correctWordsByWord{$word}; - if (--$correctWordsByIndex{$index}->[1] == 0) { - delete $correctWordsByWord{$correctWordsByIndex{$index}->[0]}; - delete $correctWordsByIndex{$index}; - } -} - -sub sig_complete { - my ($complist, $window, $word, $linestart, $want_space) = @_; - - $word =~ s/([^a-zA-Z0-9])/\\\1/g; - - @$complist = reverse (@$complist, grep(/^$word/, (keys %permanent, keys %words))); - - if (exists $typoWords{$word}) { - my $correctWord = $correctWordsByIndex{$typoWords{$word}->[0]}->[0]; - @$complist = (@complist, $correctWord); - } - - my %m = map { ($_ => $n++); } @$complist; - @$complist = (); - foreach my $key (sort keys %m) { - $m2{$m{$key}}=$key; - } - foreach my $key (reverse sort keys %m2) { - push @$complist, $m2{$key}; - } -} - -# $word, $removes -sub generate_drops { - my ($word, $changes) = @_; - my @list; - for (my $c = 0; $c < length($word) - 1; ++$c) { - my $misWord = substr($word, 0, $c) . substr($word, $c + 1); - if ($changes > 1) { - push @list, generate_drops($misWord, $changes - 1); - } else { - push @list, $misWord; - } - } - return @list; -} - -sub generate_translations { - my ($word, $changes) = @_; - my @list; - for (my $c = 1; $c < length($word); ++$c) { - my $misWord = substr($word, 0, $c - 1) . substr($word, $c, 1) . substr($word, $c - 1, 1) . substr($word, $c + 1); - if ($changes > 1) { - push @list, generate_drops($misWord, $changes - 1); - } else { - push @list, $misWord; - } - } - return @list; -} - -# $word -sub generate_typos { - my $maxTypoLength = Irssi::settings_get_int('irccomplete_maximum_typo_length'); - my ($word) = @_; - - if (length($word) > $maxTypoLength) { - return (); - } else { - return (generate_drops($word, 1), generate_translations($word)); - } -} - -sub sig_message { - my ($server, $message) = @_; - my $maxWords = Irssi::settings_get_int('irccomplete_words'); - my $minWordLength = Irssi::settings_get_int('irccomplete_minimum_length'); - my $maxWordLength = Irssi::settings_get_int('irccomplete_maximum_length'); - my $wordChars = Irssi::settings_get_str("irccomplete_word_characters"); - my $permanentThreshold = Irssi::settings_get_int('irccomplete_permanent_percent'); - foreach my $word (split(/[^$wordChars]/, $message)) { - if (length($word) >= $minWordLength && length($word) <= $maxWordLength) { - if (++$words{$word} > $permanentThreshold / 100.0 * $maxWords) { - if (++$permanent{$word} == 1) { - #Irssi::printformat(MSGLEVEL_CLIENTNOTICE, 'irccomplete_permanent', $word); - Irssi::print "Added $word to the list of permanent words"; - } - } - push @wordHistory, $word; - my $wordIndex = addCorrectWord($word); - foreach my $misword (generate_typos($word, 1)) { - if (!exists $typoWords{$misword}) { - $typoWords{$misword} = [$wordIndex, 1]; - } else { - ++$typoWords{$misword}->[1]; - } - } - while (@wordHistory > $maxWords) { - my $word = shift @wordHistory; - if (--$words{$word} == 0) { - delete $words{$word}; - } - foreach my $misword (generate_typos($word, 1)) { - if (--$typoWords{$misword}->[1] == 0) { - delete $typoWords{$misword}; - } - } - delCorrectWord($word); - } - } - } - - - return 1; -} - -sub cmd_typowords { - Irssi::print (scalar(@wordHistory) . " words, " . - scalar(keys %typoWords) . " typowords, " . - scalar(keys %correctWordsByWord) . "x" . scalar(keys %correctWordsByIndex) . " correct words"); - my $line = ""; - - foreach my $word (keys %typoWords) { - $line .= $word . "|" . $typoWords{$word}->[0] . " "; - } - Irssi::print "$line"; - $line = ""; - - foreach my $index (keys %correctWordsByIndex) { - $line .= $index . ":[" . join("|", @{$correctWordsByIndex{$index}}) . "] "; - } - Irssi::print "$line"; - $line = ""; - - foreach my $word (keys %correctWordsByWord) { - $line .= $word . ":" . $correctWordsByWord{$word} . " "; - } - Irssi::print "$line"; - $line = ""; - - return 1; -}; - -Irssi::theme_register(['irccomplete_permanent', 'Added $1 to the list of permanent words']); - -Irssi::settings_add_str("misc", "irccomplete_word_characters", $wordChars); -Irssi::settings_add_int("misc", "irccomplete_words", $maxWords); -Irssi::settings_add_int("misc", "irccomplete_minimum_length", $minWordLength); -Irssi::settings_add_int("misc", "irccomplete_maximum_length", $maxWordLength); -Irssi::settings_add_int("misc", "irccomplete_maximum_typo_length", $maxTypoLength); -Irssi::settings_add_int("misc", "irccomplete_permanent_percent", $permanentThreshold); - -foreach my $sig ("message public", "message private", - "message own_public", "message own_private", - "message topic") { -#foreach my $sig ("message own_public", "message own_private") { - Irssi::signal_add($sig, "sig_message"); -} -Irssi::signal_add_last('complete word', 'sig_complete'); - -Irssi::command_bind("irccomplete_typowords", "cmd_typowords"); diff --git a/.irssi/scripts/lastfm.pl b/.irssi/scripts/lastfm.pl deleted file mode 100644 index 4ff2105..0000000 --- a/.irssi/scripts/lastfm.pl +++ /dev/null @@ -1,447 +0,0 @@ -# vim: set expandtab: -use vars qw($VERSION %IRSSI); -$VERSION = "5.8"; -%IRSSI = ( - authors => "Simon 'simmel' Lundström", - contact => 'simmel@(freenode|quakenet|efnet) http://last.fm/user/darksoy', - name => "lastfm", - date => "20110125", - description => 'A now-playing-script which uses Last.fm', - license => "BSD", - url => "http://soy.se/code/", -); -# USAGE -# For details on how to use each setting, scroll down to the SETTINGS section. - -# QUICK START -# * First of all, you need the libwww/LWP package installed. The package in -# your package system is probably called something with libwww and perl and/or -# p5 in it. -# * /set lastfm_user to the username that you are using on Last.fm -# * Show with /np or %np what song "lastfm_user" last scrobbled to Last.fm via /say. If "lastfm_use_action" is set, it uses /me. -# * To see what another user on Last.fm is playing is also possible via /np or %np(). -# The now-playing message is configurable via via "lastfm_output" (and lastfm_output_tab_complete when using %np, if not set it will use lastfm_output by default.). "lastfm_strftime" can be used to configure the display of date and time when the song was scrobbled. - -# SETTINGS -# NOTE: Do not set these options here, use /set