.irssi: Removing irssi settings from dotfiles repository.

32 files changed, 0 insertions, 4378 deletions

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 <all|online|offline|away> <word>,  greps <word> 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: <nicks>] 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 = <xa_settings>) {
-		$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 <base_nick>");
-	&putlog("  Going away: /aw <keyword> [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 <base_nick><keyword> --");
-	&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 <base_nick>");
-	&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<TAB> 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 <username> or %np(<username>).
-# 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 <option> <value> in irssi!
-# These are just defaults and descriptions on what the options do.
-
-# The username which you are using on Last.fm
-Irssi::settings_add_str("lastfm", "lastfm_user", "");
-
-# The output that you want to use.
-# The substitution variables are:
-#   %artist = Self explanatory
-#   %album  = Self explanatory
-#   %name   = Name of song*
-#   %url    = URL to song on Last.fm
-#   %player = Player we are using to submit to Last.fm with. See setting "lastfm_get_player" below
-#   %user   = User that is playing, when /np <username> or %np(<username> is used
-# If "lastfm_output_tab_complete" is not defined, "lastfm_output" will be used instead.
-# Something bothered me for a long time and when something really starts to itch
-# I tend to want to do something about it. I'm /np:ing away displaying all sorts
-# of tracks to my friends until I get to a track which has no album information
-# on Last.fm and the output becomes really ugly "np: Kraftwerk-Aerodynamik 
-# (Alex Gopher/Etienne de Crecy dynamik mix) ()". What's with that last ()!? Oh,
-# right we are using "np: %artist-%name (%album)" as "lastfm_output". Wouldn't 
-# it be really cool if lastfm.pl knew when certain information from Last.fm
-# didn't exist and didn't display it? So thought I, so that's why I created a 
-# conditional. It works that you have to put your tag (%album e.g.) within %()
-# e.g. "np: %artist-%name%( (%album))" and everything between %( and ) only gets
-# displayed if the tag inside actually exists! Cool, huh!?
-
-#  *) Name is used instead of, the more logical IMO, track since that is what Last.fm reports in their .xml file that we parse.
-Irssi::settings_add_str("lastfm", "lastfm_output", '%(%user is )np: %artist-%name');
-Irssi::settings_add_str("lastfm", "lastfm_output_tab_complete", '');
-
-# If we should use /me instead of /say
-Irssi::settings_add_bool("lastfm", "lastfm_use_action", 0);
-
-# If we should make the subtitution variable %player available which is very slow to fetch but nice to have.
-Irssi::settings_add_bool("lastfm", "lastfm_get_player", 0);
-
-# Changelog#{{{
-
-# 5.8 -- Tue Jan 25 16:11:29 CET 2011
-# * Ignore a closure warning
-
-# 5.7 -- Mon Jan 24 16:39:06 CET 2011
-# * Fixed a bug where we forked when we still waited for a reply from last.fm
-
-# 5.6 -- Sun Jul 18 13:16:38 CEST 2010
-# * Made substitution variable %user available when /np <username> or
-# %np(<username>) is used.
-# * Made some checks a bit more strict.
-
-# 5.5 -- Mon Jul 12 19:04:26 CEST 2010
-# * Rewrote the whole error handling
-# * Fixed a bug where the error messages would be said and not printed.
-# * Fixed some minor bugs and removed some unneeded code.
-
-# 5.4 -- Wed May 26 17:04:08 CEST 2010
-# * Last.fm updated their profile HTML so that the %player macro didn't work.
-# Thanks to Keith Ward for mentioning this and suggesting a fix.
-# * A minor fix which removes some debug messages when error reporting.
-
-# 5.3 -- 
-# * I used POSIX::_exit() but I never did "use POSIX;". Leo Green, mortiis and
-# rissy reported this problem, thanks! This is an issue when you have a newer
-# version of Perl installed (>5.10)
-
-# 5.2 -- Mon Nov 16 08:25:20 CET 2009
-# * When you remove a subroutine you should remove all calls to it..
-
-# 5.1 -- Wed Nov 11 09:39:54 CET 2009
-# * Ok, I admit that using undocumented features in an API is bad, but come
-# on..  Anyway, fixed now, everything should work as it should and should
-# never break again (flw)...
-
-# 5.0 -- Mon Nov 9 08:34:48 CET 2009
-# * Fixed a warning reported by mm_mannen and did a yet another clean up
-
-# 4.9 -- Sat Nov 7 18:10:17 CET 2009
-# * Last.fm changed how their API behaved and that broke my code because
-# I'm a fool and I don't want to use an XML-lib because of your sake (so you
-# won't have to install yet another Perl-module). Thanks to supertobbe and 
-# mm_mannen who saw and reported this!
-# * Fixed so that lastfm_get_player works again and made it say that it
-# doesn't work next time Last.fm changes their HTML.
-# * Removed the date support in lastfm_output and lastfm_output_tab_complete
-# since I use the API another way now.
-# * Removed cache. It was broken at times and I can't be arsed to debug it.
-# It's not that much faster but the complexity gets bigger. If someone REALLY
-# needs this, give me a shout.
-# * Removed, rewrote and cleaned up some parts of the script.
-
-# 4.8 -- Sun May 10 10:11:29 CEST 2009
-# * Fixed a bug with the cache ('There are only two hard things in 
-# Computer Science: cache invalidation and naming things' -Phil Karlton)
-# * Started using HTML::Entities for decoding all sorts of HTML-chars, it's 
-# included in libwww anyway.
-
-# 4.7 -- Tue Apr  8 13:37:11 CEST 2009
-# * Start using LWP::UserAgent instead of LWP::Simple and got rid of the idea to
-# start using my own HTTP-lib (it was finished, but..). I'm getting old ; P
-# * Made so that everything is cached and checks if the Last-Modified date when 
-# getting information from Last.fm.
-# * Fixed some documentation bugs.
-
-# 4.6 -- Wed Mar 18 19:45:11 CET 2009
-# * Fixed an changed behavour in irssi-trunk with the error handling (which I should replace anyway!).
-# * Added %player substitute variable that shows what application you are using to scrobble with. This is very slow, so I made it an option, "lastfm_get_player".
-# * Fixed print_raw once and for all (famous last words..) so now debug output looks really neat.
-# * Added an quick start which should help get going faster
-# * Fixed an issue where %np(lastfmusername) would not work.
-# * Fixed error mesages for %np(lastfmusername)
-# * Fixed an problem with irssi-svn where die's message have changed. Thanks tto jnpplf  for reporting this.
-
-# 4.5 -- Wed  1 Oct 2008 20:03:47 CEST
-# * Removed a debug output
-# * Fixed some datacorruption, references in Perl is hard! = (
-
-# 4.4 -- Wed  1 Oct 2008 16:34:34 CEST
-# * Changed so that all the tab-commands use % instead of $ so that it's consistent through out the script.
-# * Ripped out my sprintf crap and made it more sane. You should use %artist, %album, etc in your nowplaying-setting now. Since sprintf is nolonger used I renamed that setting too.
-# * Made everything that you can set in "lastfm_output" tabable so now you can do %artist<TAB>.
-# %() in "lastfm_output" really works. It really didn't before.
-# * Fixed some issues with the date probably not working, but should now.
-# * Made the script check if Last.fm's scrobbler server is alive and kicking before we blame them.
-
-# 4.3 -- Mon 21 Jul 2008 08:46:36 CEST
-# * Seem like I misunderstood the protocol. The date/time is only sent when we have scrobbled the track, not when we started to listen to it.
-
-# 4.2 -- Tue 15 Jul 2008 15:40:08 CEST
-# Yay! Three new version within a day! (No, I'm not bored at work)
-# * Made /np username and $np(username) make username the prefix of np: yadayada or whatever your lastfm_sprintf or lastfm_sprintf_tab_complete is.
-
-# 4.1 -- Tue 15 Jul 2008 15:23:03 CEST
-# Well, that version lasted long!
-# * Fixed a bug with /np not working.
-# * Fixed an issue where debug info would be printed even if lastfm_debug was off.
-
-# 4.0 -- Tue 15 Jul 2008 10:17:51 CEST
-# * Fixing a sprintfng-bug which didn't display time if album was not set.
-# * Rewrote the whole script to use Last.fm's API which is very accurate. There is no need for $np! and /np! now, so I'm removing them.
-# * Cleaned up abit.
-
-# 3.9 -- Fri 11 Jul 2008 21:49:20 CEST
-# * Fixing a few bugs noticed by supertobbe
-
-# 3.8 -- Fri 11 Jul 2008 18:21:52 CEST
-# * Shaped up error handling and now all error messages are shown.
-# * Added a user configurable debug mode, good for sending in bugs and weird behaviour.
-# * Minor cleanup
-
-# 3.7 -- Thu 22 May 2008 10:33:55 CEST
-# * Fixed so that /np! and $np! fetches the album title too. This is horribly slow and takes approx. 6s on very fast connection. Last.fm isnt very fast I'm afraid and this is not a good way to do it.
-# * Cleaned up a few places. Started to look at the error handling and it seems to be alot of work.
-
-# 3.6 -- Tue Nov 13 15:22:37 CET 2007
-# * Fixed encoding so that it always the data into the charset that you have specified in "term_charset" which irssi also uses.
-
-# 3.5 -- Mon Nov 12 11:50:46 CET 2007
-# * Fixed the regex for parsing Recently Listened Tracks so that it works when listening with the Lastfm client.
-
-# 3.4 -- Fri Nov  9 00:23:40 CET 2007
-# * Added /np lastfmusername
-
-# 3.3 -- Tue Nov  6 01:54:59 CET 2007
-# * Finally added conditional sprintf-syntax! Let's say you want to use 'np: %s-%s (%s)' as "lastfm_sprintf". If you use /np it works out fine and displays 'np: Boards of Canada-Energy Warning (Geogaddi)' but what if you use /np! then it displays 'np: Boards of Canada-Energy Warning ()' since /np! can't get the album information. Doesn't that look ugly? Meet conditional sprintf. Now set your "lastfm_sprintf" to 'np: %s-%s%( (%s))'. ' (%s)' will only be printed if we get a third value, the album name in this case. Smart, huh? Big thanks to rindolf, apeiron and Khisanth from #perl@freenode for help with scoping with global variables.
-# * Also added "lastfm_sprintf_tab_complete" which makes, if set, $np<TAB> use a different sprintf pattern than /np. Will default back to "lastfm_sprintf".
-
-# 3.2 -- Wed Oct 24 23:07:01 CEST 2007
-# * I don't like dependencies and I really wonder why I lastfm depended on DateTime. I remember now that it was morning and I was really tired when I coded it. Anyway, it's removed now along with Socket and URI::Escape. I'll try to remove the dependency for libwww later on.
-
-# 3.1 -- Sun Oct 21 22:52:36 CEST 2007
-# * Added /np! and $np! to use the "lastfm_be_accurate_and_slow" method without having to change the setting.
-
-# 3.0 -- Fri Oct 19 14:26:03 CEST 2007
-# * Created a new setting "lastfm_be_accurate_and_slow" which makes lastfm.pl parse your profile page to check what song you are playing right now. But be warned, this is slow and horrible (like my code! ; ). But it works until Last.fm makes this data available through their Web Services. This disables the album and "scrobbled at" features of "lastfm_sprintf" so you have to adapt it if you don't want it to look weird. I'm working on a new implementation of printf which allows for conditions but it took more time than I thought and time is something that I don't have much of ='(
-
-# 2.5 -- Tue Oct  9 11:29:56 CEST 2007
-# * Fixed the encoding issue by converting from Last.fms UTF-8 into Perls internal encoding. With $np<TAB> output will be looking UTF-8-in-latin1 if you don't have an UTF-8 enabled Terminal, but it will display correctly after you have sent it.
-
-# 2.4 -- Mon Oct  8 16:08:09 CEST 2007
-# * Fixed an error in error reporting ; P Bug noticed by supertobbe = *
-# * I should make an more generic and better error reporting.
-
-# 2.3 -- Sat Oct  6 16:38:34 CEST 2007
-# * Made /np a nonblocking operation. Irssi's fork handling is REALLY messy. Thanks to tss and tommie for inspiring me in their scripts. $np cannot be made nonblocking, I'm afraid (patches welcome).
-# * Cleaned up abit.
-
-# 2.2 -- Sat Aug 18 02:20:44 CEST 2007
-# * Now you can use $np(darksoy) to see what I play (or someone else for that matter ; ).
-
-# 2.1 -- Tue Jul 17 12:50:18 CEST 2007
-# * Now you can use $np or $nowplaying as a tab-completion too, but a warning here, this is a blocking action so irssi won't respond or be usable until it is finished or the timeout is hit.
-# * Abstracted it abit more so that it can be used in more ways, ex. for the reason above.
-
-# 2.0 -- Fri Jun 29 10:38:32 CEST 2007
-# * Now you can show the time that the song was submitted in lastfm_sprintf. Added lastfm_strftime to configure how the date is presented.
-# * Added $lastfm and $lfm as tab-completions to your own Last.fm profile URL. Ripoff of Jured's guts.pl (http://juerd.nl/irssi/)
-
-# 1.5 -- Sat May 12 03:30:24 CEST 2007
-# * Started using XML instead because we get more info from it, like album (but it's often wrong).
-
-# 1.0 -- Thu Apr 12 16:57:26 CEST 2007
-# * Got fedup with no good Last.fm-based now playing scripts around.
-
-# THANKS
-# Random individuals on #perl@freenode, could namedrop icke, 
-# }}}
-
-# TODO
-# You tell me!
-
-# Move along now, there's nothing here to see.
-
-sub DEBUG {
-  Irssi::settings_add_bool("lastfm", "lastfm_debug", 0);
-  Irssi::settings_get_bool("lastfm_debug");
-};
-
-use strict;
-use warnings;
-no warnings 'closure';
-use Data::Dumper;
-use Encode;
-use HTML::Entities;
-use Irssi;
-use LWP::UserAgent;
-use POSIX;
-
-my $pipe_tag;
-my $waiting_for_reply;
-my $api_key = "eba9632ddc908a8fd7ad1200d771beb7";
-my $fields = "(artist|name|album|url|player|user)";
-my $ua = LWP::UserAgent->new(agent => "lastfm.pl/$VERSION", timeout => 10);
-
-sub lastfm_nowplaying {
-  my ($content, $url, $response, $tag, $value, %data);
-  my ($user_shifted, $is_tabbed, $nowplaying, $witem) = @_;
-  my $user = $user_shifted || Irssi::settings_get_str("lastfm_user");
-  $nowplaying ||= ((Irssi::settings_get_str("lastfm_output_tab_complete") ne "" && $is_tabbed) ? Irssi::settings_get_str("lastfm_output_tab_complete") : Irssi::settings_get_str("lastfm_output"));
-
-  my $command_message = ($is_tabbed) ? '%%np(username)' : '/np username';
-  if ($user eq '') {
-    return "ERROR: You must /set lastfm_user to a username on Last.fm or use $command_message";
-  }
-
-  if ($nowplaying =~ /^%(lastfm|lfm)$/) {
-    return "http://last.fm/user/$user/";
-  }
-  elsif ($nowplaying =~ /^%user$/) {
-    return $user;
-  }
-
-  $data{'user'} = $user if ($user_shifted);
-
-  $url = "http://ws.audioscrobbler.com/2.0/?method=user.getrecenttracks&user=$user&api_key=$api_key&limit=1";
-  print Dumper "Checking for scrobbles at: $url" if DEBUG;
-  $response = $ua->get($url);
-  $content = $response->content;
-
-  # TODO This should work, untested (fail more Last.fm! ; )
-  if ($content =~ m!<lfm status="failed">.*<error .*?>([^<]+)!s) {
-    return "ERROR: $1";
-  }
-  my @data = split('\n', $content);
-
-  if (!grep(m!<track nowplaying="true">!, @data)) {
-    print Dumper \$response if DEBUG;
-    print Dumper \$content if DEBUG;
-    return "ERROR: You are not playing anything according to Last.fm. Check http://www.last.fm/user/$user and see if they turn up there, otherwise restart your scrobbler.";
-  }
-
-  my $regex = qr!<$fields.*?(?:uts="(.*?)">.*?|>(.*?))</\1>!;
-
-  foreach my $data (@data) {
-    if ($data =~ m!</track>!) {
-      last;
-    }
-    elsif ($data =~ /$regex/) {
-      ($tag, $value) = ($1, (defined($2) ? $2 : $3));
-      print Dumper \$tag, \$value, \$data if DEBUG;
-      $data{$tag} = $value;
-    }
-  }
-
-  if (Irssi::settings_get_bool("lastfm_get_player")) {
-    $url = "http://www.last.fm/user/$user";
-    $content = $ua->get($url)->content;
-    if ($content =~ m!<span class="source">(.*?)</span>!) {
-      $_ = $1;
-      s/<[^>]*>//mgs;
-      $data{'player'} = $_;
-    }
-    else {
-      print "Couldn't find the player even though lastfm_get_player was set" if DEBUG;
-    }
-  }
-
-  print Dumper \%data if DEBUG;
-  print Dumper "Output pattern before: $nowplaying" if DEBUG;
-  $nowplaying =~ s/(%\((.*?%(\w+).?)\))/($data{$3} ? $2 : "")/ge;
-  print Dumper "Output pattern after: $nowplaying" if DEBUG;
-  $nowplaying =~ s/%$fields/$data{$1}/ge;
-  decode_entities($nowplaying);
-  Encode::from_to($nowplaying, "utf-8", Irssi::settings_get_str("term_charset"));
-  return $nowplaying;
-}
-
-sub lastfm_blocking {
-  my ($witem, $user) = @_;
-  my $nowplaying = lastfm_nowplaying($user, undef, undef, $witem);
-  lastfm_print($witem, $nowplaying);
-}
-
-sub lastfm_forky {
-  my ($witem, $user) = @_;
-  if ($waiting_for_reply) {
-    lastfm_print(Irssi::active_win(), "We are still waiting for Last.fm to return our results");
-    return;
-  }
-  # pipe is used to get the reply from child
-  my ($rh, $wh);
-  pipe($rh, $wh);
-
-  # non-blocking host lookups with fork()ing
-  my $pid = fork();
-  if (!defined($pid)) {
-    Irssi::print("Can't fork() - aborting");
-    close($rh);
-    close($wh);
-    return;
-  }
-
-  $waiting_for_reply = 1;
-
-  if ($pid > 0) {
-    # parent, wait for reply
-    close($wh);
-    Irssi::pidwait_add($pid);
-    $pipe_tag = Irssi::input_add(fileno($rh), INPUT_READ, \&pipe_input, [$witem, $rh]);
-    return;
-  }
-
-  my $text;
-  eval {
-    # child, do the lookup
-    $text = lastfm_nowplaying($user);
-  };
-
-  if (!$text) {
-    $text = "ERROR: Error message: $!";
-  }
-
-  eval {
-    # write the reply
-    print($wh $text);
-    close($wh);
-  };
-  POSIX::_exit(1);
-}
-
-
-sub pipe_input {
-  my ($witem, $rh) = @{$_[0]};
-  my $text = <$rh>;
-  close($rh);
-
-  Irssi::input_remove($pipe_tag);
-  $pipe_tag = -1;
-  undef $waiting_for_reply;
-
-  lastfm_print($witem, $text);
-}
-
-sub lastfm_print {
-  my ($witem, $text, $tabbed) = @_;
-  # Fugly error handling
-  if ($text =~ s/^ERROR: //) {
-    Irssi::active_win()->print($text);
-    return;
-  }
-
-  if ($tabbed) {
-    return $text;
-  }
-  elsif (defined $witem->{type} && $witem->{type} =~ /^QUERY|CHANNEL$/) {
-    if (Irssi::settings_get_bool("lastfm_use_action")) {
-      $witem->command("me $text");
-    }
-    else {
-      $witem->command("say $text");
-    }
-  }
-  else {
-    Irssi::active_win()->print($text);
-  }
-}
-
-Irssi::command_bind('np', sub {
-    my ($data, $server, $witem) = @_;
-    $data =~ s/ .*//;
-    $data ||= 0;
-    if (DEBUG) {
-      lastfm_blocking($witem, $data);
-    }
-    else {
-      lastfm_forky($witem, $data);
-    }
-  }, 'lastfm');
-
-Irssi::signal_add_last 'complete word' => sub {
-  my ($complist, $window, $word, $linestart, $want_space) = @_;
-  my $is_tabbed = 1;
-  my $tab_fields = $fields;
-  $tab_fields =~ s/\(/(nowplaying|np|lastfm|lfm|/;
-  if ($word =~ /(\%(?:$tab_fields))\(?(\w+)?\)?/) {
-    my ($nowplaying, $user) = ($1, $3);
-    undef $nowplaying if ($nowplaying =~ /nowplaying|np/);
-    $nowplaying = lastfm_nowplaying($user, $is_tabbed, $nowplaying);
-    if (lastfm_print(Irssi::active_win(), $nowplaying, 1)) {
-      push @$complist, "$nowplaying";
-    }
-  }
-};
diff --git a/.irssi/scripts/ls.pl b/.irssi/scripts/ls.pl
deleted file mode 100644
index 6481081..0000000
--- a/.irssi/scripts/ls.pl
+++ /dev/null
@@ -1,40 +0,0 @@
-use vars qw($VERSION %IRSSI);
-
-use Irssi 20020120;
-$VERSION = "0.02";
-%IRSSI = (
-    authors	=> "c0ffee",
-    contact	=> "c0ffee\@penguin-breeder.org",
-    name	=> "List nicks in channel",
-    description	=> "Use /ls <regex> to show all nicks (including ident\@host) matching regex in the current channel",
-    license	=> "Public Domain",
-    url		=> "http://www.penguin-breeder.org/irssi/",
-    changed	=> "Fri Sep 06 15:36 CEST 2002",
-);
-
-
-sub cmd_ls {
-	my ($data, $server, $channel) = @_;
-	my @nicks;
-	my $n;
-	my $nick;
-
-	if ($channel->{type} ne "CHANNEL") {
-
-		Irssi::print("Your are not on a channel");
-		return;
-
-	}
-
-	@nicks = $channel->nicks();
-
-	foreach $nick (@nicks) {
-
-		$n = $nick->{nick} . "!" . $nick->{host};
-
-		$channel->print("$n") if $n =~ /$data/i;
-		
-	}
-}
-
-Irssi::command_bind('ls','cmd_ls');
diff --git a/.irssi/scripts/nicklist.pl b/.irssi/scripts/nicklist.pl
deleted file mode 100644
index 0ef687a..0000000
--- a/.irssi/scripts/nicklist.pl
+++ /dev/null
@@ -1,805 +0,0 @@
-# This script adds a nicklist to the right of irssi
-# for documentation: see http://wouter.coekaerts.be/site/irssi/nicklist
-
-# Copyright (C) 2002-2007  Wouter Coekaerts <coekie@irssi.org>
-#
-# 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 program; if not, write to the Free Software
-# Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
-
-use Irssi;
-use strict;
-use IO::Handle; # for (auto)flush
-use Fcntl; # for sysopen
-use vars qw($VERSION %IRSSI);
-$VERSION = '0.4.6+';
-%IRSSI = (
-	authors     => 'Wouter Coekaerts',
-	contact     => 'coekie@irssi.org',
-	name        => 'nicklist',
-	description => 'draws a nicklist to another terminal, or at the right of your irssi in the same terminal',
-	license     => 'GPLv2+',
-	url         => 'http://wouter.coekaerts.be/irssi',
-	changed     => '$LastChangedDate$'
-);
-
-sub cmd_help {
-	print ( <<EOF
-Commands:
-NICKLIST HELP
-NICKLIST SCROLL <nr of lines>
-NICKLIST SCREEN
-NICKLIST FIFO
-NICKLIST OFF
-NICKLIST UPDATE
-
-For help see: http://wouter.coekaerts.be/site/irssi/nicklist
-
-in short:
-
-1. FIFO MODE
-- in irssi: /NICKLIST FIFO (only the first time, to create the fifo)
-- in a shell, in a window where you want the nicklist: cat ~/.irssi/nicklistfifo
-- back in irssi:
-    /SET nicklist_heigth <height of nicklist>
-    /SET nicklist_width <width of nicklist>
-    /NICKLIST FIFO
-
-2. SCREEN MODE
-- start irssi inside screen ("screen irssi")
-- /NICKLIST SCREEN
-EOF
-    );
-}
-
-my $prev_lines = 0;                  # number of lines in previous written nicklist
-my $scroll_pos = 0;                  # scrolling position
-my $cursor_line;                     # line the cursor is currently on
-my ($OFF, $SCREEN, $FIFO) = (0,1,2); # modes
-my $mode = $OFF;                     # current mode
-my $need_redraw = 0;                 # nicklist needs redrawing
-my $screen_resizing = 0;             # terminal is being resized
-my $active_channel;                  # (REC)
-
-my @nicklist=();                     # array of hashes, containing the internal nicklist of the active channel
-	# nick => realnick
-	# modeflag => '@', '%', '+', or other mode char
-	# modepos => number representing the position in which to sort nicks with that mode
-	# status => (not used yet...)
-	#my ($STATUS_NORMAL, $STATUS_JOINING, $STATUS_PARTING, $STATUS_QUITING, $STATUS_KICKED, $STATUS_SPLIT) = (0,1,2,3,4,5);
-	# text => text to be printed
-	# cmp => text used to compare (sort) nicks
-
-
-# 'cached' settings
-my ($screen_prefix, $irssi_width, %prefix_mode, @prefix_status, $height, $nicklist_width, $check_friends, @prefix_friends);
-
-sub read_settings {
-	($screen_prefix = Irssi::settings_get_str('nicklist_screen_prefix')) =~ s/\\e/\033/g;
-
-	($prefix_mode{'@'} = Irssi::settings_get_str('nicklist_prefix_mode_op')) =~ s/\\e/\033/g;
-	($prefix_mode{'%'} = Irssi::settings_get_str('nicklist_prefix_mode_halfop')) =~ s/\\e/\033/g;
-	($prefix_mode{'+'} = Irssi::settings_get_str('nicklist_prefix_mode_voice')) =~ s/\\e/\033/g;
-	($prefix_mode{' '} = Irssi::settings_get_str('nicklist_prefix_mode_normal')) =~ s/\\e/\033/g;
-	
-	(my $prefix_mode_other = Irssi::settings_get_str('nicklist_prefix_mode_other')) =~ s/\\e/\033/g;
-	foreach my $p (split (/ /, $prefix_mode_other)) {
-		next if $p eq '';
-		if ($p !~ /(.)=(.*)/) {
-			Irssi::print("Could not parse nicklist_prefix_mode_other part '$p'. Expected space separated list of <mode character>=<prefix>");
-			last;
-		} else {
-			$prefix_mode{$1} = $2;
-		}
-	}
-	
-	(my $prefix_friends = Irssi::settings_get_str('nicklist_prefix_friends')) =~ s/\\e/\033/g;
-	foreach my $p (split (/ /, $prefix_friends)) {
-		next if $p eq '';
-		if ($p !~ /(.+?)=(.*)/) {
-			Irssi::print("Could not parse nicklist_prefix_friends part '$p'. Expected space separated list of <flags>=<prefix>");
-			last;
-		} else {
-			push @prefix_friends, {'flags' => $1, 'prefix' => $2};
-		}
-	}
-	
-	$check_friends = ($prefix_friends ne '');
-	
-	if ($mode != $SCREEN) {
-		$height = Irssi::settings_get_int('nicklist_height');
-	}
-	my $new_nicklist_width = Irssi::settings_get_int('nicklist_width');
-	if ($new_nicklist_width != $nicklist_width && $mode == $SCREEN) {
-		sig_terminal_resized();
-	}
-	$nicklist_width = $new_nicklist_width;
-}
-
-sub update {
-	read_settings();
-	make_nicklist();
-}
-
-##################
-##### OUTPUT #####
-##################
-
-### off ###
-
-sub cmd_off {
-	if ($mode == $SCREEN) {
-		screen_stop();
-	} elsif ($mode == $FIFO) {
-		fifo_stop();
-	}
-}
-
-### fifo ###
-
-sub cmd_fifo_start {
-	read_settings();
-	my $path = Irssi::settings_get_str('nicklist_fifo_path');
-	unless (-p $path) { # not a pipe
-	    if (-e _) { # but a something else
-	        die "$0: $path exists and is not a pipe, please remove it\n";
-	    } else {
-	        require POSIX;
-	        POSIX::mkfifo($path, 0666) or die "can\'t mkfifo $path: $!";
-		Irssi::print("Fifo created. Start reading it (\"cat $path\") and try again.");
-		return;
-	    }
-	}
-	if (!sysopen(FIFO, $path, O_WRONLY | O_NONBLOCK)) { # or die "can't write $path: $!";
-		Irssi::print("Couldn\'t write to the fifo ($!). Please start reading the fifo (\"cat $path\") and try again.");
-		return;
-	}
-	FIFO->autoflush(1);
-	print FIFO "\033[2J\033[1;1H"; # erase screen & jump to 0,0
-	$cursor_line = 0;
-	if ($mode == $SCREEN) {
-		screen_stop();
-	}
-	$mode = $FIFO;
-	make_nicklist();
-}
-
-sub fifo_stop {
-	close FIFO;
-	$mode = $OFF;
-	Irssi::print("Fifo closed.");
-}
-
-### screen ###
-
-sub cmd_screen_start {
-	if (!defined($ENV{'STY'})) {
-		Irssi::print 'screen not detected, screen mode only works inside screen';
-		return;
-	}
-	read_settings();
-	if ($mode == $SCREEN) {return;}
-	if ($mode == $FIFO) {
-		fifo_stop();
-	}
-	$mode = $SCREEN;
-	Irssi::signal_add_last('gui print text finished', \&sig_gui_print_text_finished);
-	Irssi::signal_add_last('gui page scrolled', \&sig_page_scrolled);
-	Irssi::signal_add('terminal resized', \&sig_terminal_resized);
-	screen_size();
-	make_nicklist();
-}
-
-sub screen_stop {
-	$mode = $OFF;
-	Irssi::signal_remove('gui print text finished', \&sig_gui_print_text_finished);
-	Irssi::signal_remove('gui page scrolled', \&sig_page_scrolled);
-	Irssi::signal_remove('terminal resized', \&sig_terminal_resized);
-	system 'screen -x '.$ENV{'STY'}.' -X fit';
-}
-
-sub screen_size {
-	if ($mode != $SCREEN) {
-		return;
-	}
-	$screen_resizing = 1;
-	# fit screen
-	system 'screen -x '.$ENV{'STY'}.' -X fit';
-	# we wait a second to make sure the fit command was processed
-	Irssi::timeout_add_once(1000, \&screen_size_real, []);
-}		
-
-sub screen_size_real {
-	# get size (from perldoc -q size)
-	my ($winsize, $row, $col, $xpixel, $ypixel);
-	eval 'use Term::ReadKey; ($col, $row, $xpixel, $ypixel) = GetTerminalSize';
-	#	require Term::ReadKey 'GetTerminalSize';
-	#	($col, $row, $xpixel, $ypixel) = Term::ReadKey::GetTerminalSize;
-	#};
-	if ($@) { # no Term::ReadKey, try the ugly way
-		eval {
-			require 'sys/ioctl.ph';
-			# without this reloading doesn't work. workaround for some unknown bug
-			do 'asm/ioctls.ph';
-		};
-		
-		# ugly way not working, let's try something uglier, the dg-hack(tm) (constant for linux only?)
-		if($@) { no strict 'refs'; *TIOCGWINSZ = sub { return 0x5413 } }
-		
-		unless (defined &TIOCGWINSZ) {
-			die "Term::ReadKey not found, and ioctl 'workaround' failed. Install the Term::ReadKey perl module to use screen mode.\n";
-		}
-		open(TTY, "+</dev/tty") or die "No tty: $!";
-		unless (ioctl(TTY, &TIOCGWINSZ, $winsize='')) {
-			die "Term::ReadKey not found, and ioctl 'workaround' failed ($!). Install the Term::ReadKey perl module to use screen mode.\n";
-		}
-		close(TTY);
-		($row, $col, $xpixel, $ypixel) = unpack('S4', $winsize);
-	}
-	
-	# set screen width
-	$irssi_width = $col-$nicklist_width-1;
-	$height = $row-1;
-	
-	system 'screen -x '.$ENV{'STY'}.' -X width -w ' . $irssi_width;
-	# wait another second for the resizing, and then redraw.
-	Irssi::timeout_add_once(1000,sub {$screen_resizing = 0; redraw()}, []);
-}
-
-sub sig_terminal_resized {
-	if ($screen_resizing) {
-		return;
-	}
-	$screen_resizing = 1;
-	Irssi::timeout_add_once(1000,\&screen_size,[]);
-}
-
-
-### both ###
-
-sub nicklist_write_start {
-	if ($mode == $SCREEN) {
-		print STDERR "\033P\033[s\033\\"; # save cursor
-	}
-}
-
-sub nicklist_write_end {
-	if ($mode == $SCREEN) {
-		print STDERR "\033P\033[u\033\\"; # restore cursor
-	}
-}
-
-sub nicklist_write_line {
-	my ($line, $data) = @_;
-	if ($mode == $SCREEN) {
-		print STDERR "\033P\033[" . ($line+1) . ';'. ($irssi_width+1) .'H'. $screen_prefix . $data . "\033\\";
-	} elsif ($mode == $FIFO) {
-		$data = "\033[m$data"; # reset color
-		if ($line == $cursor_line+1) {
-			$data = "\n$data"; # next line
-		} elsif ($line == $cursor_line) {
-			$data = "\033[1G".$data; # back to beginning of line
-		} else {
-			$data = "\033[".($line+1).";0H".$data; # jump
-		}
-		$cursor_line=$line;
-		print(FIFO $data) or fifo_stop();
-	}
-}
-
-sub calc_prefix_friends {
-	my ($nick) = @_;
-
-	return '' unless $check_friends
-		&& $nick->{'host'}
-		&& is_friend($active_channel->{'server'}->{'chatnet'}, $active_channel->{'name'}, $nick->{'nick'}, $nick->{'host'});
-	
-	my $flags = get_flags($active_channel->{'server'}->{'chatnet'}, $active_channel->{'name'}, $nick->{'nick'}, $nick->{'host'});
-	
-	my $prefix;
-	foreach my $prefix_friend (@prefix_friends) {
-		if ($prefix_friend->{'flags'} eq 'noflag') {
-			if ($flags eq '') {
-				$prefix = $prefix_friend->{'prefix'};
-				last;
-			}
-		} elsif (check_modes($flags, $prefix_friend->{'flags'})) {
-			$prefix = $prefix_friend->{'prefix'};
-		}
-	}
-	
-	return $prefix ? $prefix : '';
-}
-
-# recalc the text of the nicklist item
-sub calc_text {
-	my ($nick) = @_;
-	my $tmp = $nicklist_width-3;
-	(my $text = $nick->{'nick'}) =~ s/^(.{$tmp})..+$/$1\033[34m~/; # strip nick if too long
-	
-	my $prefix_mode = $prefix_mode{$nick->{'modeflag'}};
-	if (! defined($prefix_mode) ) {
-		$prefix_mode = $nick->{'modeflag'};
-	}
-	
-	my $prefix_friends = calc_prefix_friends($nick);
-	
-	$nick->{'text'} =
-		$prefix_mode .
-		$prefix_friends .
-		$text .
-		(' ' x ($nicklist_width-length($nick->{'nick'})-1)) .
-		"\033[m"; # reset
-	$nick->{'cmp'} = $nick->{'modepos'}.lc($nick->{'nick'});
-}
-
-# redraw the given nick (nr) if it is visible
-sub redraw_nick_nr {
-	my ($nr) = @_;
-	my $line = $nr - $scroll_pos;
-	if ($line >= 0 && $line < $height) {
-		nicklist_write_line($line, $nicklist[$nr]->{'text'});
-	}
-}
-
-# nick was inserted, redraw area if necessary
-sub draw_insert_nick_nr {
-	my ($nr) = @_;
-	my $line = $nr - $scroll_pos;
-	if ($line < 0) { # nick is inserted above visible area
-		$scroll_pos++; # 'scroll' down :)
-	} elsif ($line < $height) { # line is visible
-		if ($mode == $SCREEN) {
-			need_redraw();
-		} elsif ($mode == $FIFO) {
-			my $data = "\033[m\033[L". $nicklist[$nr]->{'text'}; # reset color & insert line & write nick
-			if ($line == $cursor_line) {
-				$data = "\033[1G".$data; # back to beginning of line
-			} else {
-				$data = "\033[".($line+1).";1H".$data; # jump
-			}
-			$cursor_line=$line;
-			print(FIFO $data) or fifo_stop();
-			if ($prev_lines < $height) {
-				$prev_lines++; # the nicklist has one line more
-			}
-		}
-	}
-}
-
-sub draw_remove_nick_nr {
-	my ($nr) = @_;
-	my $line = $nr - $scroll_pos;
-	if ($line < 0) { # nick removed above visible area
-		$scroll_pos--; # 'scroll' up :)
-	} elsif ($line < $height) { # line is visible
-		if ($mode == $SCREEN) {
-			need_redraw();
-		} elsif ($mode == $FIFO) {
-			#my $data = "\033[m\033[L[i$line]". $nicklist[$nr]->{'text'}; # reset color & insert line & write nick
-			my $data = "\033[M"; # delete line
-			if ($line != $cursor_line) {
-				$data = "\033[".($line+1)."d".$data; # jump
-			}
-			$cursor_line=$line;
-			print(FIFO $data) or fifo_stop();
-			if (@nicklist-$scroll_pos >= $height) {
-				redraw_nick_nr($scroll_pos+$height-1);
-			}
-		}
-	}
-}
-
-# redraw the whole nicklist
-sub redraw {
-	$need_redraw = 0;
-	#make_nicklist();
-	nicklist_write_start();
-	my $line = 0;
-	### draw nicklist ###
-	for (my $i=$scroll_pos;$line < $height && $i < @nicklist; $i++) {
-		nicklist_write_line($line++, $nicklist[$i]->{'text'});
-	}
-
-	### clean up other lines ###
-	my $real_lines = $line;
-	while($line < $prev_lines) {
-		nicklist_write_line($line++,' ' x $nicklist_width);
-	}
-	$prev_lines = $real_lines;
-	nicklist_write_end();
-}
-
-# redraw (with little delay to avoid redrawing to much)
-sub need_redraw {
-	if(!$need_redraw) {
-		$need_redraw = 1;
-		Irssi::timeout_add_once(10,\&redraw,[]);
-	}
-}
-
-sub sig_page_scrolled {
-	$prev_lines = $height; # we'll need to redraw everything if he scrolled up
-	need_redraw;
-}
-
-# redraw (with delay) if the window is visible (only in screen mode)
-sub sig_gui_print_text_finished {
-	if ($need_redraw) { # there's already a redraw 'queued'
-		return;
-	}
-	my $window = @_[0];
-	if ($window->{'refnum'} == Irssi::active_win->{'refnum'} || Irssi::settings_get_str('nicklist_screen_split_windows') eq '*') {
-		need_redraw;
-		return;
-	}
-	foreach my $win (split(/[ ,]/, Irssi::settings_get_str('nicklist_screen_split_windows'))) {
-		if ($window->{'refnum'} == $win || $window->{'name'} eq $win) {
-			need_redraw;
-			return;
-		}
-	}
-}
-
-###################
-##### FRIENDS #####
-###################
-
-# checks if $has_modes is in $need_modes, copied from trigger.pl
-sub check_modes {
-	my ($has_modes, $need_modes) = @_;
-	my $matches;
-	my $switch = 1; # if a '-' if found, will be 0 (meaning the modes should not be set)
-	foreach my $need_mode (split /&/,$need_modes) {
-		$matches = 0;
-		foreach my $char (split //,$need_mode) {
-			if ($char eq '-') {
-				$switch = 0;
-			} elsif ($char eq '+') {
-				$switch = 1;
-			} elsif ((index($has_modes,$char) != -1) == $switch) {
-				$matches = 1;
-				last;
-			}
-		}
-		if (!$matches) {
-			return 0;
-		}
-	}
-	return 1;
-}
-
-# get someones flags from people.pl or friends(_shasta).pl, copied from trigger.pl
-sub get_flags {
-	my ($chatnet, $channel, $nick, $address) = @_;
-	my $flags;
-	no strict 'refs';
-	if (defined %{ 'Irssi::Script::people::' }) {
-		if (defined ($channel)) {
-			$flags = (&{ 'Irssi::Script::people::find_local_flags' }($chatnet,$channel,$nick,$address));
-		} else {
-			$flags = (&{ 'Irssi::Script::people::find_global_flags' }($chatnet,$nick,$address));
-		}
-		$flags = join('',keys(%{$flags}));
-	} else {
-		my $shasta;
-		if (defined %{ 'Irssi::Script::friends_shasta::' }) {
-			$shasta = 'friends_shasta';
-		} elsif (defined &{ 'Irssi::Script::friends::get_idx' }) {
-			$shasta = 'friends';
-		}
-		if (!$shasta) {
-			return undef;
-		}
-		my $idx = (&{ 'Irssi::Script::'.$shasta.'::get_idx' }($nick,$address));
-		if ($idx == -1) {
-			return '';
-		}
-		$flags = (&{ 'Irssi::Script::'.$shasta.'::get_friends_flags' }($idx,undef));
-		if ($channel) {
-			$flags .= (&{ 'Irssi::Script::'.$shasta.'::get_friends_flags' }($idx,$channel));
-		}
-	}
-	return $flags;
-}
-
-sub is_friend {
-	my ($chatnet, $channel, $nick, $address) = @_;
-	no strict 'refs';
-	if (defined %{ 'Irssi::Script::people::' }) {
-		return (() != &{'Irssi::Script::people::find_users'}($chatnet, $nick, $address));
-		my $flags;
-		if (defined ($channel)) {
-			$flags = (&{ 'Irssi::Script::people::find_local_flags' }($chatnet,$channel,$nick,$address));
-		} else {
-			$flags = (&{ 'Irssi::Script::people::find_global_flags' }($chatnet,$nick,$address));
-		}
-		return ($flags ne ''); # TODO: test this
-	} else {
-		my $shasta;
-		if (defined %{ 'Irssi::Script::friends_shasta::' }) {
-			$shasta = 'friends_shasta';
-		} elsif (defined &{ 'Irssi::Script::friends::get_idx' }) {
-			$shasta = 'friends';
-		}
-		if (!$shasta) {
-			return undef;
-		}
-		my $idx = (&{ 'Irssi::Script::'.$shasta.'::get_idx' }($nick,$address));
-		return ($idx != -1);
-	}
-}	
-
-####################
-##### NICKLIST #####
-####################
-
-# returns the position of the given nick(as string) in the (internal) nicklist
-sub find_nick {
-	my ($nick) = @_;
-	for (my $i=0;$i < @nicklist; $i++) {
-		if ($nicklist[$i]->{'nick'} eq $nick) {
-			return $i;
-		}
-	}
-	return -1;
-}
-
-# find position where nick should be inserted into the list
-sub find_insert_pos {
-	my ($cmp)= @_;
-	for (my $i=0;$i < @nicklist; $i++) {
-		if ($nicklist[$i]->{'cmp'} gt $cmp) {
-			return $i;
-		}
-	}
-	return scalar(@nicklist); #last
-}
-
-# make the (internal) nicklist (@nicklist)
-sub make_nicklist {
-	@nicklist = ();
-	$scroll_pos = 0;
-
-	### get & check channel ###
-	my $channel = Irssi::active_win->{active};
-
-	if (!$channel || (ref($channel) ne 'Irssi::Irc::Channel' && ref($channel) ne 'Irssi::Silc::Channel') || $channel->{'type'} ne 'CHANNEL' || ($channel->{chat_type} ne 'SILC' && !$channel->{'names_got'}) ) {
-		$active_channel = undef;
-		# no nicklist
-	} else {
-		$active_channel = $channel;
-		### make nicklist ###
-		foreach my $nick ($channel->nicks()) {
-			my $thisnick = {'nick' => $nick->{'nick'}};
-			recalc_nick($thisnick, $nick);
-			push @nicklist, $thisnick;
-		}
-		@nicklist = sort {$a->{'cmp'} cmp $b->{'cmp'}} @nicklist;
-	}
-	need_redraw();
-}
-
-# insert nick(as hash) into nicklist
-# pre: cmp has to be calculated
-sub insert_nick {
-	my ($nick) = @_;
-	my $nr = find_insert_pos($nick->{'cmp'});
-	splice @nicklist, $nr, 0, $nick;
-	draw_insert_nick_nr($nr);
-}
-
-# remove nick(as nr) from nicklist
-sub remove_nick {
-	my ($nr) = @_;
-	splice @nicklist, $nr, 1;
-	draw_remove_nick_nr($nr);
-}
-
-# update the mode and cmp of a nick, based on a nickrec from irssi
-sub recalc_nick {
-	my ($nick, $nickrec) = @_;
-	if (! $nickrec) {
-		$nickrec = $active_channel->nick_find($nick->{'nick'});
-	}
-	
-	my $nickflags = $active_channel->{'server'}->get_nick_flags() . ' ';
-	
-	my $flag = (
-		$nickrec->{'op'} ? '@' :
-		$nickrec->{'halfop'} ? '%' :
-		$nickrec->{'voice'} ? '+' :
-		' '
-	);
-	
-	if ($nickrec->{'other'} && index($nickflags, $nick->{'other'}) < index($nickflags, $flag)) {
-		$flag = chr($nickrec->{'other'});
-	}
-	
-	$nick->{'modepos'} = index($nickflags, $flag);
-	$nick->{'modeflag'} = $flag;
-	
-	$nick->{'host'} = $nickrec->{'host'};
-	calc_text($nick);
-}
-
-###################
-##### ACTIONS #####
-###################
-
-# scroll the nicklist, arg = number of lines to scroll, positive = down, negative = up
-sub cmd_scroll {
-	if (!$active_channel) { # not a channel active
-		return;
-	}
-	my @nicks=Irssi::active_win->{active}->nicks;
-	my $nick_count = scalar(@nicks)+0;
-	my $channel = Irssi::active_win->{active};
-	if (!$channel || $channel->{type} ne 'CHANNEL' || !$channel->{names_got} || $nick_count <= $height) {
-		return;
-	}
-	$scroll_pos += @_[0];
-
-	if ($scroll_pos > $nick_count - $height) {
-		$scroll_pos = $nick_count - $height;
-	}
-	if ($scroll_pos <= 0) {
-		$scroll_pos = 0;
-	}
-	need_redraw();
-}
-
-sub is_active_channel {
-	my ($server,$channel) = @_; # (channel as string)
-	return ($server && $server->{'tag'} eq $active_channel->{'server'}->{'tag'} && $server->channel_find($channel) && $active_channel && $server->channel_find($channel)->{'name'} eq $active_channel->{'name'});
-}
-
-sub sig_channel_wholist { # this is actualy a little late, when the names are received would be better
-	my ($channel) = @_;
-	if (Irssi::active_win->{'active'} && Irssi::active_win->{'active'}->{'name'} eq $channel->{'name'}) { # the channel joined is active
-		make_nicklist
-	}
-}
-
-sub sig_join {
-	my ($server,$channel,$nick,$address) = @_;
-	if (!is_active_channel($server,$channel)) {
-		return;
-	}
-	my $newnick = {'nick' => $nick};
-	recalc_nick($newnick);
-	insert_nick($newnick);
-}
-
-sub sig_kick {
-	my ($server, $channel, $nick, $kicker, $address, $reason) = @_;
-	if (!is_active_channel($server,$channel)) {
-		return;
-	}
-	my $nr = find_nick($nick);
-	if ($nr == -1) {
-		Irssi::print("nicklist warning: $nick was kicked from $channel, but not found in nicklist");
-	} else {
-		remove_nick($nr);
-	}
-}
-
-sub sig_part {
-	my ($server,$channel,$nick,$address, $reason) = @_;
-	if (!is_active_channel($server,$channel)) {
-		return;
-	}
-	my $nr = find_nick($nick);
-	if ($nr == -1) {
-		Irssi::print("nicklist warning: $nick has parted $channel, but was not found in nicklist");
-	} else {
-		remove_nick($nr);
-	}
-
-}
-
-sub sig_quit {
-	my ($server,$nick,$address, $reason) = @_;
-	if ($server->{'tag'} ne $active_channel->{'server'}->{'tag'}) {
-		return;
-	}
-	my $nr = find_nick($nick);
-	if ($nr != -1) {
-		remove_nick($nr);
-	}
-}
-
-sub sig_nick {
-	my ($server, $newnick, $oldnick, $address) = @_;
-	if ($server->{'tag'} ne $active_channel->{'server'}->{'tag'}) {
-		return;
-	}
-	my $nr = find_nick($oldnick);
-	if ($nr != -1) { # if nick was found (nickchange is in current channel)
-		my $nick = $nicklist[$nr];
-		remove_nick($nr);
-		$nick->{'nick'} = $newnick;
-		calc_text($nick);
-		insert_nick($nick);
-	}
-}
-
-sub sig_mode {
-	my ($channel, $nick, $setby, $mode, $type) = @_; # (nick and channel as rec)
-	if ($channel->{'server'}->{'tag'} ne $active_channel->{'server'}->{'tag'} || $channel->{'name'} ne $active_channel->{'name'}) {
-		return;
-	}
-	my $nr = find_nick($nick->{'nick'});
-	if ($nr == -1) {
-		Irssi::print("nicklist warning: $nick->{'nick'} had mode set on $channel->{'name'}, but was not found in nicklist");
-	} else {
-		my $nicklist_item = $nicklist[$nr];
-		remove_nick($nr);
-		recalc_nick($nicklist_item, $nick);
-		insert_nick($nicklist_item);
-	}
-}
-
-##### command binds #####
-Irssi::command_bind 'nicklist' => sub {
-    my ( $data, $server, $item ) = @_;
-    $data =~ s/\s+$//g;
-    Irssi::command_runsub ('nicklist', $data, $server, $item ) ;
-};
-Irssi::signal_add_first 'default command nicklist' => sub {
-	# gets triggered if called with unknown subcommand
-	cmd_help();
-};
-Irssi::command_bind('nicklist update',\&update);
-Irssi::command_bind('nicklist help',\&cmd_help);
-Irssi::command_bind('nicklist scroll',\&cmd_scroll);
-Irssi::command_bind('nicklist fifo',\&cmd_fifo_start);
-Irssi::command_bind('nicklist screen',\&cmd_screen_start);
-Irssi::command_bind('nicklist screensize',\&screen_size);
-Irssi::command_bind('nicklist off',\&cmd_off);
-
-##### signals #####
-Irssi::signal_add_last('window item changed', \&make_nicklist);
-Irssi::signal_add_last('window changed', \&make_nicklist);
-Irssi::signal_add_last('channel wholist', \&sig_channel_wholist);
-Irssi::signal_add_first('message join', \&sig_join); # first, to be before ignores
-Irssi::signal_add_first('message part', \&sig_part);
-Irssi::signal_add_first('message kick', \&sig_kick);
-Irssi::signal_add_first('message quit', \&sig_quit);
-Irssi::signal_add_first('message nick', \&sig_nick);
-Irssi::signal_add_first('message own_nick', \&sig_nick);
-Irssi::signal_add_first('nick mode changed', \&sig_mode);
-
-Irssi::signal_add('setup changed', \&read_settings);
-
-##### settings #####
-Irssi::settings_add_str('nicklist', 'nicklist_screen_prefix', '\e[m ');
-Irssi::settings_add_str('nicklist', 'nicklist_prefix_mode_op', '\e[32m@\e[39m');
-Irssi::settings_add_str('nicklist', 'nicklist_prefix_mode_halfop', '\e[34m%\e[39m');
-Irssi::settings_add_str('nicklist', 'nicklist_prefix_mode_voice', '\e[33m+\e[39m');
-Irssi::settings_add_str('nicklist', 'nicklist_prefix_mode_normal', ' ');
-Irssi::settings_add_str('nicklist', 'nicklist_prefix_mode_other', '&=\e[31m&\e[39m ~=\e[35m~\e[39m');
-Irssi::settings_add_str('nicklist', 'nicklist_prefix_friends', 'o=\e[32m v=\e[33m noflag=\e[1m');
-
-Irssi::settings_add_int('nicklist', 'nicklist_width',11);
-Irssi::settings_add_int('nicklist', 'nicklist_height',24);
-Irssi::settings_add_str('nicklist', 'nicklist_fifo_path', Irssi::get_irssi_dir . '/nicklistfifo');
-Irssi::settings_add_str('nicklist', 'nicklist_screen_split_windows', '');
-Irssi::settings_add_str('nicklist', 'nicklist_automode', '');
-
-read_settings();
-if (uc(Irssi::settings_get_str('nicklist_automode')) eq 'SCREEN') {
-	cmd_screen_start();
-} elsif (uc(Irssi::settings_get_str('nicklist_automode')) eq 'FIFO') {
-	cmd_fifo_start();
-}
diff --git a/.irssi/scripts/nickserv.pl b/.irssi/scripts/nickserv.pl
deleted file mode 100644
index 54250b9..0000000
--- a/.irssi/scripts/nickserv.pl
+++ /dev/null
@@ -1,563 +0,0 @@
-#!/usr/bin/perl -w
-
-## Bugreports and Licence disclaimer.
-#
-# For bugreports and other improvements contact Geert Hauwaerts <geert@irssi.org>
-#
-#    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 Irssi;
-use vars qw($VERSION %IRSSI);
-
-$VERSION = "1.8";
-
-%IRSSI = (
-    authors     => 'Geert Hauwaerts',
-    contact     => 'geert@irssi.org',
-    name        => 'nickserv.pl',
-    description => 'This script will authorize you into NickServ.',
-    license     => 'GNU General Public License',
-    url         => 'http://irssi.hauwaerts.be/nickserv.pl',
-    changed     => 'Fri Jun  6 12:03:04 CEST 2008',
-);
-
-my @nickservnet = ();
-my $nickservnet_file = "nickserv.networks";
-
-my @nickservauth = ();
-my $nickservauth_file = "nickserv.auth";
-
-my $irssidir = Irssi::get_irssi_dir();
-
-my $help = <<EOF;
-
-Usage: (all on one line)
-/NICKSERV [addnet <ircnet> <services\@host>]
-          [addnick <ircnet> <nickname> <password>]
-          [delnet <ircnet>]
-          [delnick <ircnet> <nick>]
-          [help listnet listnick]
-
-addnet:     Add a new network into the NickServ list.
-addnick:    Add a new nickname into the NickServ list.
-delnet:     Delete a network from the NickServ list.
-delnick:    Delete a nickname from the NickServ list.
-listnet:    Display the contents of the NickServ network list.
-listnick:   Display the contents of the NickServ nickname list.
-help:       Display this useful little helptext.
-
-Examples: (all on one line)
-/NICKSERV addnet Freenode NickServ\@services.
-/NICKSERV addnick Freenode Geert mypass
-
-/NICKSERV delnet Freenode
-/NICKSERV delnick Freenode Geert
-
-Note: This script doesn't allow wildcards into the NickServ hostname. You must use the full services\@host.
-      Both /NICKSERV and /NS are valid commands.
-EOF
-
-Irssi::theme_register([
-    'nickserv_usage_network', '%R>>%n %_NickServ:%_ Insufficient parameters: Usage "%_/NICKSERV addnet ircnet services@host%_".',
-    'nickserv_usage_nickname', '%R>>%n %_NickServ:%_ Insufficient parameters: Usage "%_/NICKSERV addnick ircnet nickname password%_".',
-    'nickserv_delusage', '%R>>%n %_NickServ:%_ Insufficient parameters: Usage "%_/NICKSERV delnet ircnet%_".',
-    'nickserv_delnickusage', '%R>>%n %_NickServ:%_ Insufficient parameters: Usage "%_/NICKSERV delnick ircnet nickname%_".',
-    'nickserv_delled', '%R>>%n %_NickServ:%_ Deleted %_$0%_ and his nicknames from the NickServ ircnet list.',
-    'nickserv_delled_nick', '%R>>%n %_NickServ:%_ Deleted %_$1%_ from the NickServ list on $0.',
-    'nickserv_nfound', '%R>>%n %_NickServ:%_ The NickServ ircnet %_$0%_ could not be found.',
-    'nickserv_nfound_nick', '%R>>%n %_NickServ:%_ The NickServ nickname %_$0%_ could not be found on $1.',
-    'nickserv_usage', '%R>>%n %_NickServ:%_ Insufficient parameters: Use "%_/NICKSERV help%_" for further instructions.',
-    'nickserv_no_net', '%R>>%n %_NickServ:%_ Unknown Irssi ircnet %_$0%_.',
-    'nickserv_wrong_host', '%R>>%n %_NickServ:%_ Malformed services hostname %_$0%_.',
-    'already_loaded_network', '%R>>%n %_NickServ:%_ The ircnet %_$0%_ already exists in the NickServ ircnet list, please remove it first.',
-    'nickserv_loaded_nick', '%R>>%n %_NickServ:%_ The nickname %_$0%_ already exists in the NickServ authlist on %_$1%_, please remove it first.',
-    'nickserv_not_loaded_net', '%R>>%n %_NickServ:%_ The ircnet %_$0%_ doesn\'t exists in the NickServ ircnet list, please add it first.',
-    'saved_nickname', '%R>>%n %_NickServ:%_ Added nickname %_$1%_ on %_$0%_.',
-    'network_print', '$[!-2]0 $[20]1 $2',
-    'password_request', '%R>>%n %_NickServ:%_ Auth Request from NickServ on %_$0%_.',
-    'password_accepted', '%R>>%n %_NickServ:%_ Password accepted on %_$0%_.',
-    'password_wrong', '%R>>%n %_NickServ:%_ Password denied on %_$0%_. Please change the password.',
-    'network_info', '%_ # Ircnet               Services hostname%_',
-    'network_empty', '%R>>%n %_NickServ:%_ Your NickServ ircnet list is empty.',
-    'nickname_print', '$[!-2]0 $[20]1 $[18]2 $3',
-    'nickname_info', '%_ # Ircnet               Nickname           Password%_',
-    'nickname_empty', '%R>>%n %_NickServ:%_ Your NickServ authlist is empty.',
-    'nickserv_help', '$0',
-    'saved_network', '%R>>%n %_NickServ:%_ Added services mask "%_$1%_" on %_$0%_.',
-    'nickserv_loaded', '%R>>%n %_Scriptinfo:%_ Loaded $0 version $1 by $2.'
-]);
-
-sub load_nickservnet {
-
-    my ($file) = @_;
-
-    @nickservnet = ();
-
-    if (-e $file) {
-        local *F;
-        open(F, "<$file");
-        local $/ = "\n";
-
-        while (<F>) {
-            chop;
-            my $new_nsnet = new_nickserv_network(split("\t"));
-  
-            if (($new_nsnet->{name} ne "") && ($new_nsnet->{host} ne "")) {
-                push(@nickservnet, $new_nsnet);
-            }
-        }
-        
-        close(F);
-    }
-}
-
-sub save_nickservnet {
-
-    my ($file) = @_;
-
-    return unless scalar @nickservnet; # there's nothing to save
-
-    if (-e $file) {
-        local *F;
-        open(F, ">$file");
-
-        for (my $n = 0; $n < @nickservnet; ++$n) {
-            print(F join("\t", $nickservnet[$n]->{name}, $nickservnet[$n]->{host}) . "\n");
-        }
-    
-        close(F);
-    } else {
-        create_network_file($file);
-        save_nickservnet($file);
-    }
-}
-
-sub create_network_file {
-    
-    my ($file) = @_;
-    
-    open(F, ">$file") or die "Can't create $file. Reason: $!";
-}
-
-sub new_nickserv_network {
-
-    my $nsnet = {};
-
-    $nsnet->{name} = shift;
-    $nsnet->{host} = shift;
-
-    return $nsnet;
-}
-
-sub load_nickservnick {
-
-    my ($file) = @_;
-
-    @nickservauth = ();
-
-    if (-e $file) {
-        local *F;
-        open(F, "<$file");
-        local $/ = "\n";
-
-        while (<F>) {
-            chop;
-            my $new_nsnick = new_nickserv_nick(split("\t"));
-  
-            if (($new_nsnick->{ircnet} ne "") && ($new_nsnick->{nick} ne "") && ($new_nsnick->{pass} ne "")) {
-                push(@nickservauth, $new_nsnick);
-            }
-        }
-        
-        close(F);
-    }
-}
-
-sub save_nickservnick {
-
-    my ($file) = @_;
-
-    return unless scalar @nickservauth; # there's nothing to save
-
-    if (-e $file) {
-        local *F;
-        open(F, ">$file");
-
-        for (my $n = 0; $n < @nickservauth; ++$n) {
-            print(F join("\t", $nickservauth[$n]->{ircnet}, $nickservauth[$n]->{nick}, $nickservauth[$n]->{pass}) . "\n");
-        }
-    
-        close(F);
-    } else {
-        create_nick_file($file);
-        save_nickservnick($file);
-    }
-}
-
-sub create_nick_file {
-    
-    my ($file) = @_;
-    
-    my $umask = umask 0077; # save old umask
-    open(F, ">$file") or die "Can't create $file. Reason: $!";
-    umask $umask;
-}
-
-sub new_nickserv_nick {
-
-    my $nsnick = {};
-
-    $nsnick->{ircnet} = shift;
-    $nsnick->{nick} = shift;
-    $nsnick->{pass} = shift;
-
-    return $nsnick;
-}
-
-sub add_nickname {
-    
-    my ($network, $nickname, $password) = split(" ", @_[0], 3);
-    my ($correct_network, $correct_nickname, $correct_password);
-
-    if ($network eq "" || $nickname eq "" || $password eq "") {
-        Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'nickserv_usage_nickname');
-        return;
-    }
-    
-    if ($network) {
-        if (!already_loaded_net($network)) {
-            Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'nickserv_not_loaded_net', $network);
-            return;
-        } else {
-            $correct_network = 1;
-        }
-    }
-    
-    if ($nickname) {
-        if (already_loaded_nick($nickname, $network)) {
-            Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'nickserv_loaded_nick', $nickname, $network);
-            return;
-        } else {
-            $correct_nickname = 1;
-        }
-    }
-    
-    if ($correct_network && $correct_nickname) {
-        push(@nickservauth, new_nickserv_nick($network, $nickname, $password));
-        save_nickservnick("$irssidir/$nickservauth_file");
-            
-        Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'saved_nickname', $network, $nickname);
-    }
-}
-
-sub add_network {
-    
-    my ($network, $hostname) = split(" ", @_[0], 2);
-    my ($correct_net, $correct_host);
-    
-    if ($network eq "" || $hostname eq "") {
-        Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'nickserv_usage_network');
-        return;
-    }
-    
-    if ($network) {
-        my ($ircnet) = Irssi::chatnet_find($network);
-        
-        if (!$ircnet) {
-            Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'nickserv_no_net', $network);
-            return;
-        } elsif (already_loaded_net($network)) {
-            Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'already_loaded_network', $network);
-            return;
-        } else {
-            $correct_net = 1;
-        }
-    }
- 
-    if ($hostname) {
-        if ($hostname !~ /^[.+a-zA-Z0-9_-]{1,9}@[.+a-zA-Z0-9_-]{1,}$/) {
-            Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'nickserv_wrong_host', $hostname);
-            return;
-        } else {
-            $correct_host = 1;
-        }
-    }
-    
-    if ($correct_net && $correct_host) {
-        push(@nickservnet, new_nickserv_network($network, $hostname));
-        save_nickservnet("$irssidir/$nickservnet_file");
-            
-        Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'saved_network', $network, $hostname);
-    }
-}
-
-sub already_loaded_net {
-
-    my ($ircnet) = @_;
-    my $loaded = check_loaded_net($ircnet);
-
-    if ($loaded > -1) {
-        return 1;
-    }
-    
-    return 0;
-}
-
-sub check_loaded_net {
-
-    my ($ircnet) = @_;
-
-    $ircnet = lc($ircnet);
-
-    for (my $loaded = 0; $loaded < @nickservnet; ++$loaded) {
-        return $loaded if (lc($nickservnet[$loaded]->{name}) eq $ircnet);
-    }
-    
-    return -1;
-}
-
-sub already_loaded_nick {
-    
-    my ($nickname, $network) = @_;
-    my $loaded = check_loaded_nick($nickname, $network);
-    
-    if ($loaded > -1) {
-        return 1;
-    }
-    
-    return 0
-}
-
-sub check_loaded_nick {
-    
-    my ($nickname, $network) = @_;
-    
-    $nickname = lc($nickname);
-    $network = lc($network);
-    
-    for (my $loaded = 0; $loaded < @nickservauth; ++$loaded) {
-        return $loaded if (lc($nickservauth[$loaded]->{nick}) eq $nickname && lc ($nickservauth[$loaded]->{ircnet}) eq $network);
-    }
-    
-    return -1;
-}
-
-sub list_net {
-    
-    if (@nickservnet == 0) {
-        Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'network_empty');
-    } else {
-        Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'network_info');
-
-        for (my $n = 0; $n < @nickservnet ; ++$n) {
-            Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'network_print', $n, $nickservnet[$n]->{name}, $nickservnet[$n]->{host});
-        }
-    }
-}
-
-sub list_nick {
-    
-    if (@nickservauth == 0) {
-        Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'nickname_empty');
-    } else {
-        Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'nickname_info');
-
-        for (my $n = 0; $n < @nickservauth ; ++$n) {
-            Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'nickname_print', $n, $nickservauth[$n]->{ircnet}, $nickservauth[$n]->{nick}, "*" x length($nickservauth[$n]->{pass}));
-        }
-    }
-}
-
-sub nickserv_notice {
-    
-    my ($server, $data, $nick, $address) = @_;
-    my ($target, $text) = $data =~ /^(\S*)\s:(.*)/;
-
-    if (is_nickserv($server->{tag}, $address)) {
-        if ($text =~ /^If this is your nickname, type \/msg NickServ/ || $text =~ /^This nickname is registered and protected.  If it is your/ || $text =~ /This nickname is registered\. Please choose a different nickname,/ || $text =~ /^This nickname is registered. Please choose a different nickname/) {
-            my $password = get_password($server->{tag}, $server->{nick});
-            
-            if ($password == -1) {
-                Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'password_request', $server->{tag});
-                Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'nickserv_nfound_nick', $server->{nick}, $server->{tag});
-                Irssi::signal_stop();
-                return;
-            }
-            
-            Irssi::signal_stop();
-            Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'password_request', $server->{tag});
-            $server->command("^MSG NickServ IDENTIFY $password");
-        } elsif ($text =~ /If this is your nickname, type \/NickServ/) {
-            my $password = get_password($server->{tag}, $server->{nick});
-
-            if ($password == -1) {
-                Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'password_request', $server->{tag});
-                Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'nickserv_nfound_nick', $server->{nick}, $server->{tag});
-                Irssi::signal_stop();
-                return;
-            }
-
-            Irssi::signal_stop();
-            Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'password_request', $server->{tag});
-            $server->command("^QUOTE NickServ :IDENTIFY $password");
-        } elsif ($text =~ /If this is your nickname, type \/msg NS/) {
-            my $password = get_password($server->{tag}, $server->{nick});
-
-            if ($password == -1) {
-                Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'password_request', $server->{tag});
-                Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'nickserv_nfound_nick', $server->{nick}, $server->{tag});
-                Irssi::signal_stop();
-                return;
-            }
-
-            Irssi::signal_stop();
-            Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'password_request', $server->{tag});
-            $server->command("^MSG NS IDENTIFY $password");
-        } elsif ($text =~ /If you do not (.*) within one minute, you will be disconnected/) {
-            Irssi::signal_stop();
-        } elsif ($text =~ /^This nickname is owned by someone else/) {
-            Irssi::signal_stop();
-        } elsif ($text =~ /^nick, type (.*)  Otherwise,/) {
-            Irssi::signal_stop();
-        } elsif ($text =~ /^please choose a different nick./) {
-            Irssi::signal_stop();
-        } elsif ($text =~ /^You have already identified/ || $text =~ /^This nick is already identified./) {
-            Irssi::signal_stop();
-        } elsif ($text =~ /^Password accepted - you are now recognized/) {
-            Irssi::signal_stop();
-            Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'password_accepted', $server->{tag});
-        } elsif ($text =~ /^Password Incorrect/ || $text =~ /^Password incorrect./) {
-            Irssi::signal_stop();
-            Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'password_wrong', $server->{tag});
-        }
-    }
-}
-
-sub is_nickserv {
-    
-    my ($net, $host) = @_;
-
-    for (my $loaded = 0; $loaded < @nickservnet; ++$loaded) {
-        return 1 if (lc($nickservnet[$loaded]->{name}) eq lc($net) && lc($nickservnet[$loaded]->{host}) eq lc($host));
-    }
-    return 0;
-}
-
-sub get_password {
-    
-    my ($ircnet, $nick) = @_;
-    
-    for (my $loaded = 0; $loaded < @nickservauth; ++$loaded) {
-        return $nickservauth[$loaded]->{pass} if (lc($nickservauth[$loaded]->{ircnet}) eq lc($ircnet) && lc($nickservauth[$loaded]->{nick}) eq lc($nick));
-    }
-    
-    return -1;
-}
-
-sub del_network {
-
-    my ($ircnet) = split(" ", @_[0], 1);
-    my ($ircnetindex);
-
-    if ($ircnet eq "") {
-        Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'nickserv_delusage');
-        return;
-    }
-
-    for (my $index = 0; $index < @nickservnet; ++$index) {
-        if (lc($nickservnet[$index]->{name}) eq lc($ircnet)) {
-            $ircnetindex = 1;
-        }
-    }
-    
-    if ($ircnetindex) {
-        @nickservnet = grep {lc($_->{name}) ne lc($ircnet)} @nickservnet;
-        @nickservauth = grep {lc($_->{ircnet}) ne lc($ircnet)} @nickservauth;
-        Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'nickserv_delled', $ircnet);
-        save_nickservnet("$irssidir/$nickservnet_file");
-        save_nickservnick("$irssidir/$nickservauth_file");
-    } else {
-        Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'nickserv_nfound', $ircnet);
-    }
-}
-
-sub del_nickname {
-    
-    my ($ircnet, $nickname) = split(" ", @_[0], 2);
-    my ($nickindex);
-    
-    if ($ircnet eq "" || $nickname eq "") {
-        Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'nickserv_delnickusage');
-        return;
-    }
-
-    for (my $index = 0; $index < @nickservauth; ++$index) {
-        if (lc($nickservauth[$index]->{ircnet}) eq lc($ircnet) && lc($nickservauth[$index]->{nick}) eq lc($nickname)) {
-            $nickindex = splice(@nickservauth, $index, 1);
-        }   
-    }
-
-    if ($nickindex) {
-        Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'nickserv_delled_nick', $ircnet, $nickname);
-        save_nickservnick("$irssidir/$nickservauth_file");
-    } else {
-        Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'nickserv_nfound_nick', $ircnet, $nickname);
-    }
-}
-
-sub nickserv_runsub {
-    
-    my ($data, $server, $item) = @_;
-    $data =~ s/\s+$//g;
-    
-    if ($data) {
-        Irssi::command_runsub('nickserv', $data, $server, $item);
-    } else {
-        Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'nickserv_usage');
-    }
-}
-
-load_nickservnet("$irssidir/$nickservnet_file");
-load_nickservnick("$irssidir/$nickservauth_file");
-
-Irssi::command_bind('nickserv', 'nickserv_runsub');
-Irssi::command_bind('ns', 'nickserv_runsub');
-
-Irssi::command_bind('nickserv addnet', 'add_network');
-Irssi::command_bind('ns addnet', 'add_network');
-
-Irssi::command_bind('nickserv addnick', 'add_nickname');
-Irssi::command_bind('ns addnick', 'add_nickname');
-
-Irssi::command_bind('nickserv listnet', 'list_net');
-Irssi::command_bind('ns listnet', 'list_net');
-
-Irssi::command_bind('nickserv listnick', 'list_nick');
-Irssi::command_bind('ns listnick', 'list_nick');
-
-Irssi::command_bind('nickserv delnet', 'del_network');
-Irssi::command_bind('ns delnet', 'del_network');
-
-Irssi::command_bind('nickserv delnick', 'del_nickname');
-Irssi::command_bind('ns delnick', 'del_nickname');
-
-Irssi::command_bind('nickserv help' => sub { Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'nickserv_help', $help) });
-Irssi::command_bind('ns help' => sub { Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'nickserv_help', $help) });
-
-Irssi::signal_add('event notice', 'nickserv_notice');
-Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'nickserv_loaded', $IRSSI{name}, $VERSION, $IRSSI{authors});
diff --git a/.irssi/scripts/notify_irssi.pl b/.irssi/scripts/notify_irssi.pl
deleted file mode 100644
index 90a5f31..0000000
--- a/.irssi/scripts/notify_irssi.pl
+++ /dev/null
@@ -1,69 +0,0 @@
-#!/usr/bin/perl
-
-## Put me in ~/.irssi/scripts, and then execute the following in irssi:
-##
-##       /load perl
-##       /script load notify_irssi.pl
-##
-
-use strict;
-use IO::Socket;
-use Irssi;
-use vars qw($VERSION %IRSSI);
-
-$VERSION = "0.01";
-%IRSSI = (
-    authors     => 'konni',
-    contact     => 'konstantin.koslowski@gmail.com',
-    name        => 'notify_irssi.pl',
-    description => 'TODO',
-    license     => 'GNU General Public License',
-    url         => 'none',
-);
-
-my $divider = ":::";
-
-# server, nick, msg, active
-sub notify {
-  my $sock = new IO::Socket::INET (
-    PeerAddr => '127.0.0.1',
-    PeerPort => '7090',
-    Proto => 'tcp',
-  );
-
-  if ($sock) {
-    my($server, $nick, $msg, $active) = @_;
-    print $sock $server,$divider,"$nick",$divider,"$msg",$divider,$active;
-  }
-}
-
-sub notify_message {
-  my($dest, $msg, $nick, $address, $target) = @_;
-  my $server = $dest->{server};
-
-  my $active_win = Irssi::active_win();
-  my $active = 0;
-  if ($active_win->get_active_name() eq $nick) {
-    $active = 1;
-  }
-  # return if ($active);
-
-  notify($server, $nick, $msg, $active);
-}
-
-sub notify_print {
-  my ($dest, $text, $msg) = @_;
-  my $server = $dest->{server};
-  my $nick = $dest->{target};
-
-  return if (!$server || !($dest->{level} & MSGLEVEL_HILIGHT));
-
-  $msg =~ s/[^a-zA-Z0-9 .,!?\@:\>]//g;
-
-  notify($server, $nick, $msg, 0);
-}
-
-Irssi::signal_add("message private", "notify_message");
-Irssi::signal_add("message invite", "notify_message");
-Irssi::signal_add("print text", "notify_print");
-#Irssi::signal_add("dcc request", "notify");
diff --git a/.irssi/scripts/tmux_away.pl b/.irssi/scripts/tmux_away.pl
deleted file mode 100644
index 11e6fe8..0000000
--- a/.irssi/scripts/tmux_away.pl
+++ /dev/null
@@ -1,179 +0,0 @@
-use Irssi;
-use strict;
-use FileHandle;
-
-use vars qw($VERSION %IRSSI);
-
-$VERSION = "1.1";
-%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>.
-#
-# 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_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
-# 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];
-my $tmux_session = @args_env[2];
-
-# register config variables
-Irssi::settings_add_bool('misc', $IRSSI{'name'} . '_active', 1);
-Irssi::settings_add_int('misc', $IRSSI{'name'} . '_repeat', 5);
-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 ($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
-      Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'tmux_away_crap',
-        "activating $IRSSI{'name'} (interval: " . Irssi::settings_get_int($IRSSI{'name'} . '_repeat') . " seconds)");
-      $away_status = 2;
-    }
-
-    # get actual tmux session status
-    @res = `tmux -S '$tmux_socket' lsc 2>&1`;
-    if (@res[0] =~ /^server not found/) {
-      Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'tmux_away_crap',
-        "error getting tmux session status.");
-      return;
-    }
-    $status = 1; # away, assumes the session is detached
-    foreach (@res) {
-      my @args_st = split(' ');
-      if (@args_st[1] == $tmux_session) {
-        $status = 2; # unaway
-      }
-    }
-
-    # unaway -> away
-    if ($status == 1 and $away_status != 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 isnt 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 isnt 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) {
-      # unset away
-      Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'tmux_away_crap', "Reset away");
-      foreach (Irssi::servers()) {
-        if ($away{$_->{'tag'}} == 1) {
-          # user was already away, dont 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;
-    }
-  }
-  # 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 {
-  if (defined($timer_name)) {
-    Irssi::timeout_remove($timer_name);
-  }
-  # add new timer with new timeout (maybe the timeout has been changed)
-  $timer_name = Irssi::timeout_add(Irssi::settings_get_int($IRSSI{'name'} . '_repeat') * 1000, 'tmux_away', '');
-}
-
-# init process
-tmux_away();
-
diff --git a/.irssi/solarized-universal.theme b/.irssi/solarized-universal.theme
deleted file mode 100644
index d7fcdcd..0000000
--- a/.irssi/solarized-universal.theme
+++ /dev/null
@@ -1,372 +0,0 @@
-# irssi theme for the Solarized color palette
-# (Adapted from default theme distributed with irssi 0.8.15 circa 2011-04-25)
-#
-# Adaptation by: Huy Z
-# Source: https://github.com/huyz/irssi-colors-solarized
-#
-
-# 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 = { "[]=" = "%_$*%_"; };
-
-abstracts = {
-  ##
-  ## generic
-  ##
-
-  # text to insert at the beginning of each non-message line
-  # %G = brightgreen (Solarized: base01, i.e. darkest gray)
-  # %| probably right-aligns
-  line_start = " %G-!- ";
-
-  # timestamp styling, nothing by default
-  # %Y = brightyellow (Solarized: base00, i.e. 2nd darkest gray)
-  timestamp = "%Y$*%n";
-
-  # any kind of text that needs hilighting, default is to bold
-  hilight = "%_$*%_";
-
-  # any kind of error message, default is bright red
-  # %r = red
-  error = "%r$*%n";
-
-  # channel name is printed
-  channel = "%_$*%_";
-
-  # nick is printed
-  nick = "%_$*%_";
-
-  # nick host is printed
-  # (that's the "email" address of a user)
-  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)
-  # %c = cyan
-  # NOTE: %n doesn't work in irssi v0.8.15 for some reason.  So we have to end with the same color as line_start
-  #channick_hilight = "%C$*%n";
-  channick_hilight = "%c$*%G";
-  chanhost_hilight = "{nickhost $*}";
-
-  # nick/host is printed (parts, quits, etc.)
-  #channick = "%c$*%n";
-  channick = "$*";
-  chanhost = "{nickhost $*}";
-
-  # highlighted channel name is printed
-  channelhilight = "%c$*%n";
-
-  # ban/ban exception/invite list mask is printed
-  # %R = brightred (Solarized: orange)
-  ban = "%R$*%n";
-
-  ##
-  ## messages
-  ##
-
-  # the basic styling of how to print message, $0 = nick mode, $1 = nick
-  msgnick = "%_<%_$0$1-%_>%_ %|";
-
-  # 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-}%b";
-  ownnick = "%b$*%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-}";
-  # %m = magenta
-  menick = "%m$*%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
-  # This is printed whenever the channel name is printed for disambiguation, e.g.
-  # while there is a query in the same window.  Example: <+funnyuser:#test> hello
-  msgchannel = "%G:%c$*%n";
-
-  # private message, $0 = nick, $1 = host
-  # TODO: To test for Solarized
-  #privmsg = "[%m$0%K<%M$1-%K>%n] ";
-  privmsg = "[%m$0%G<%n$1-%G>%n] ";
-
-  # private message from you, $0 = "msg", $1 = target nick
-  # TODO: To test for Solarized
-  #ownprivmsg = "[%b$0%K<%B$1-%K>%n] ";
-  ownprivmsg = "[%b$0%G<%B$1-%G>%n] ";
-
-  # own private message in query
-  ownprivmsgnick = "{msgnick  $*}%b";
-  ownprivnick = "%b$*%n";
-
-  # private message in query
-  # NOTE: for some reason, we gotta handle both the nick & msg on in this line
-  privmsgnick = "{msgnick  %m$*%n}%m";
-
-  ##
-  ## Actions (/ME stuff)
-  ##
-
-  # used internally by this theme
-  action_core = "%_*%n $*";
-
-  # generic one that's used by most actions
-  action = "{action_core %_$*%n} ";
-
-  # own action, both private/public
-  ownaction = "{action_core %b$*%n} ";
-
-  # own action with target, both private/public
-  # NOTE: to test: /action NICK farted.  (This will tell NICK that you farted)
-  #   This is like a /me but only you and NICK will see
-  # TODO: To test for Solarized
-  ownaction_target = "{action_core $0}%G:%b$1%n ";
-
-  # private action sent by others
-  # TODO: To test for Solarized
-  # %M = brightmagenta (Solarized: violet)
-  pvtaction = "%M (*) $*%n ";
-  pvtaction_query = "{action $*}";
-
-  # public action sent by others
-  pubaction = "{action $*}";
-
-
-  ##
-  ## other IRC events
-  ##
-
-  # whois
-  whois = "%# $[8]0 : $1-";
-
-  # notices
-  # TODO: To adapt for Solarized
-  ownnotice = "[%b$0%G(%b$1-%G)]%n ";
-  notice = "%G-%M$*%G-%n ";
-  pubnotice_channel = "%G:%m$*";
-  pvtnotice_host = "%G(%m$*%G)";
-  servernotice = "%g!$*%n ";
-
-  # CTCPs
-  # TODO: To adapt for Solarized
-  ownctcp = "[%b$0%G(%b$1-%G)] ";
-  ctcp = "%g$*%n";
-
-  # wallops
-  wallop = "%c$*%n: ";
-  wallop_nick = "%n$*";
-  wallop_action = "%c * $*%n ";
-
-  # netsplits
-  netsplit = "%r$*%n";
-  netjoin = "%g$*%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 = "%c$*%n";
-
-  # DCC
-  dcc = "%g$*%n";
-  dccfile = "%_$*%_";
-
-  # DCC chat, own msg/action
-  #dccownmsg = "[%r$0%K($1-%K)%n] ";
-  dccownmsg = "[%b$0%G($1-%G)%n] ";
-  dccownnick = "%b$*%n";
-  dccownquerynick = "%c$*%n";
-  dccownaction = "{action $*}";
-  dccownaction_target = "{action_core $0}%G:%c$1%n ";
-
-  # DCC chat, others
-  #dccmsg = "[%G$1-%K(%g$0%K)%n] ";
-  dccmsg = "[%g$1-%G($0%G)%n] ";
-  dccquerynick = "%g$*%n";
-  dccaction = "%c (*dcc*) $*%n %|";
-
-  ##
-  ## statusbar
-  ##
-
-  # default background for all statusbars. You can also give
-  # the default foreground color for statusbar items.
-  # NOTE: if all the other overriding settings below are set, this only seems to affect
-  #   the content parts of the adv_windowlist.  Default seems to be blue
-  # NOTE: if not set, the default background seems to be %w%4 = white on blue
-  # %4 = blue
-  sb_background = "%k%6";
-
-  # default backround for "default" statusbar group
-  # NOTE: this impacts the statusbar of an inactive window and the edges of adv_windowlist
-  # %7 = white (wich looks gray on a regular terminal with white bg)
-  sb_default_bg = "%k%7";
-
-  # background for topicbar at the top (defaults to sb_default_bg)
-  sb_topic_bg = "%W%0";
-
-  # background for the statusbar of active window. You can also give
-  # the foreground color.
-  # %2 = green
-  sb_window_bg = "%k%2";
-
-  # background for prompt / input line
-  sb_prompt_bg = "%n";
-  # background for info statusbar
-  # %8 = reverse window
-  # TODO: To test for Solarized
-  sb_info_bg = "%8";
-
-  # 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 = "$c$*%n> ";
-
-  # This controls each part of a statusbor, including the outer brackets of adv_windowlist
-  sb = " $* %M|%n";
-  # The mode is next to your NICK and the channel
-  # %Y = brightyellow (Solarized: base00, i.e. 2nd darkest gray)
-  sbmode = "%b(%n+$*%b)%n";
-  sbaway = " (%GzZzZ%n)";
-  # %Y = brightyellow (Solarized: base00, i.e. 2nd darkest gray)
-  sbservertag = ":$0 %b(change with ^X)%n";
-  sbnickmode = "$0";
-
-  # activity in statusbar
-
-  # ',' separator between the window numbers
-  # %g = green (same color as the active statusbar so we dont' see it)
-  sb_act_sep = "%g$*";
-  # normal text
-  # This also affects the color of the window with activity in adv_windowlist
-  sb_act_text = "%w$*";
-  # public message (ordinary messages)
-  sb_act_msg = "%R$*";
-  # hilight (when people actually chat)
-  # This also affects the color of the window with direct message in adv_windowlist
-  sb_act_hilight = "%m$*";
-  # hilight with specified color, $0 = color, $1 = text
-  sb_act_hilight_color = "$0$1-%n";
-
-  ### For usercount.pl script
-
-  #sb_usercount = "{sb %_$0%_ nicks ($1-)}";
-  sb_usercount = "{sb %_$0%_ users %Y(%n$1-%Y)%n}";
-  sb_uc_ircops = "%k*%n$*";
-  sb_uc_ops = "%k@%n$*";
-  sb_uc_halfops = "%k%%%n$*";
-  sb_uc_voices = "%k+%n$*";
-  sb_uc_normal = "$*";
-  #  sb_uc_space = " ";
-
-  ### For adv_windowlist.pl script
-
-  # Mentioned in adv_windowlist but not default_theme
-  #sb_act_none = "%0%W";
-};
-
-formats = {
-  "fe-common/core" = {
-    daychange = "           %g-----%w-%W-%n Day changed to %%D %W-%w-%g-----%n";
-  };
-};
diff --git a/.irssi/startup b/.irssi/startup
deleted file mode 100644
index b77b6ec..0000000
--- a/.irssi/startup
+++ /dev/null
@@ -1 +0,0 @@
-NICKLIST FIFO