From: Rob L <redacted>
Date: Fri, 9 Oct 2020 17:29:18 +0000 (-0400)
Subject: Add script: ez_color
X-Git-Url: http://git.99rst.org/?a=commitdiff_plain;h=98fcce8cc32b8f0c74e2525a719e31ed5f10584a;p=irssi-scripts.irssi.org.git

Add script: ez_color

Just a single, simple helper function to easily wrap strings in mIRC-compatible formatting codes (color, bold, etc.)
---

diff --git a/scripts/ez_color.pl b/scripts/ez_color.pl
new file mode 100644
index 0000000..44af98b
--- /dev/null
+++ b/scripts/ez_color.pl
@@ -0,0 +1,104 @@
+use strict;
+use vars qw($VERSION %IRSSI);
+use Irssi;
+
+$VERSION = '1.0';
+
+%IRSSI = (
+	authors			=> "stryk",
+	contact			=> '$IRSSI{authors} + <Shift-2> + protonmail + <rhymes-with-pot> + <2-char Country Code for Switzerland>',
+	name			=> "ez_color",
+	description		=> "Provides a single helper function to wrap mIRC-style color codes around strings",
+	license			=> 'WTFPL/2 @ http://www.wtfpl.net/about/',
+	changed			=> '2020-09-10',
+	);
+
+####################
+#### You can call this helper function from other scripts,
+#### ***AS LONG AS ez_color.pl IS LOADED IN IRSSI***
+####################
+# USAGE:
+# Irssi::Script::ez_color::colorize(@args)
+# ---------
+# or, better yet, with a coderef: my $var = \&Irssi::Script::ez_color::colorize;
+# and then call with: $var->(@args);
+##################
+# EXAMPLE:
+# Irssi::active_win->command( "say ".Irssi::Script::ez_color::colorize('COLOR THIS TEXT', 'white', 'red') );
+# ---------
+# or, with the above coderef $var:
+# Irssi::active_win->command( "say ".$var->('COLOR THIS TEXT', 'white', 'red') );
+##################
+# ARGUMENTS:           (all color names are case-INsensitive)
+# [string-to-colorize], [foreground-color], [background-color(OPTIONAL)] 
+# >>> arg #2 may, instead of a color-name, be one of: [normal, bold, underline, reverse, italic]
+##################
+# Be aware that most terminal emulators don't play well with ITALIC, results may not be what you expect.
+# Feel free to change the colormap names, add more aliases, or whatever -- be wary of altering 'C' however.
+
+
+
+sub colorize {
+	my($str_in, $fgcol, $bgcol) = @_;
+	my $ret_str;
+
+	my %_C = (
+
+		C			=> "\x{03}",
+
+		NORMAL      => "\x{0f}",
+
+		BOLD        => "\x{02}",
+		UNDERLINE   => "\x{1f}",
+		UL			=> "\x{1f}",
+		REVERSE     => "\x{16}",
+		REV			=> "\x{16}",
+		ITALIC      => "\x{1d}",
+
+
+		WHITE       => "00",
+		BLACK       => "01",
+		BLUE        => "02",
+		GREEN       => "03",
+		RED         => "04",
+		BROWN       => "05",
+		PURPLE      => "06",
+		ORANGE      => "07",
+		YELLOW      => "08",
+		TEAL        => "10",
+		PINK        => "13",
+		GREY        => "14",
+		GRAY        => "14",
+
+		LIGHT_BLUE  => "12",
+		CYAN        => "11",
+		LIGHT_GREEN => "09",
+		LIGHT_GRAY  => "15",
+		LIGHT_GREY  => "15",
+	);
+
+	$fgcol = uc($fgcol || 'normal');
+
+	if ($fgcol =~ m/(?:bold|underline|ul|rev(?:erse)?|italic|normal)/i) {
+		$ret_str = join('', $_C{$fgcol}, $str_in, $_C{NORMAL});
+		return $ret_str;
+	};
+
+
+	my $_colcode = $_C{$fgcol};
+
+	unless (defined($_colcode)){
+		Irssi::print("BAD COLOR NAME PASSED TO colorize FUNCTION", MSGLEVEL_CLIENTCRAP);
+		return $str_in;
+	};
+
+
+	if (defined($bgcol)){
+		$bgcol = uc($bgcol);
+		$_colcode .= ",".$_C{$bgcol} if exists $_C{$bgcol};
+	};
+
+
+	$ret_str = join('', $_C{C}, $_colcode, $str_in, $_C{NORMAL});
+	return $ret_str;
+};