View difference between Paste ID: bNz65YCd and kqLNfhVA

-# When testing changes, the easiest way to reload the theme is with /RELOAD.
+# Simple script for removing colours in public channels :)
-# 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
+use strict;
-# old data so keep backups :)
+use Irssi;
 use vars qw($VERSION %IRSSI);
-# TEMPLATES:
+
 # Dev. info ^_^
-# The real text formats that irssi uses are the ones you can find with
+$VERSION = "0.3";
-# /FORMAT command. Back in the old days all the colors and texts were mixed
+%IRSSI = (
-# up in those formats, and it was really hard to change the colors since you
+        authors     => "Jørgen Tjernø",
-# might have had to change them in tens of different places. So, then came
+        contact     => "darkthorne\@samsen.com",
-# this templating system.
+        name        => "CleanPublic",
         description => "Simple script that removes colors and other formatting (bold, etc) from public channels",
-# Now the /FORMATs don't have any colors in them, and they also have very
+        license     => "GPL",
-# little other styling. Most of the stuff you need to change is in this
+        url         => "http://mental.mine.nu",
-# theme file. If you can't change something here, you can always go back
+        changed     => "Wed Sep 24 13:17:15 CEST 2003"
-# 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
+# All the works
-# /FORMATs and here. Their usage is simply {name parameter1 parameter2}.
+sub strip_formatting {
-# When irssi sees this kind of text, it goes to find "name" from abstracts
+        my ($server, $data, $nick, $mask, $target) = @_;
-# block below and sets "parameter1" into $0 and "parameter2" into $1 (you
+        # Channel *allowed* to be colorful?
-# can have more parameters of course). Templates can have subtemplates.
+        foreach my $chan (split(' ', Irssi::settings_get_str('colored_channels'))) {
-# Here's a small example:
+                if ($target eq $chan) { return }
-#   /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:
+        # Ruthlessly_ripped_from_Garion {
-#   hello %G%Uworld%U%n
+        my $twin = Irssi::window_find_name($target);
-# ie. underlined bright green "world" text.
+        # Beam it to window 1 if we cant find any other suitable target.
-# and why "$0-", why not "$0"? $0 would only mean the first parameter,
+        if (!defined($twin)) { $twin = Irssi::window_find_refnum(1); }
-# $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).
+        # Remove formatting
         $data =~ s/\x03\d?\d?(,\d?\d?)?|\x02|\x1f|\x1d|\x16|\x06|\x07//g;
-# COLORS:
+        # Let it flow
         Irssi::signal_continue($server, $data, $nick, $mask, $target);
-# 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
+# Hook me up
-# default color of the terminal (white mostly), but here it means the
+Irssi::signal_add('message public', 'strip_formatting');
-# "reset color back to the one it was in higher template". For example
+Irssi::settings_add_str('lookandfeel', 'colored_channels', '');
-# 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
+