#!/usr/bin/perl

use warnings;
use strict;

use Irssi qw/command command_bind/;

our $VERSION = "0.1";
our %IRSSI = (
	authors     => 'Urchlay',
	contact     => 'Urchlay on FreeNode',
	name        => 'upsidedown',
	description => '',
	license     => 'WTFPL',
	url         => 'none',
);

my %flip_table = (
	"\N{U+0021}" => "\N{U+00A1}",
	"\N{U+0022}" => "\N{U+201E}",
	"\N{U+0026}" => "\N{U+214B}",
	"\N{U+0027}" => "\N{U+002C}",
	"\N{U+0028}" => "\N{U+0029}",
	"\N{U+002E}" => "\N{U+02D9}",
	"\N{U+0033}" => "\N{U+0190}",
	"\N{U+0034}" => "\N{U+152D}",
	"\N{U+0036}" => "\N{U+0039}",
	"\N{U+0037}" => "\N{U+2C62}",
	"\N{U+003B}" => "\N{U+061B}",
	"\N{U+003C}" => "\N{U+003E}",
	"\N{U+003F}" => "\N{U+00BF}",
	"\N{U+0041}" => "\N{U+2200}",
	"\N{U+0042}" => "\N{U+10412}",
	"\N{U+0043}" => "\N{U+2183}",
	"\N{U+0044}" => "\N{U+25D6}",
	"\N{U+0045}" => "\N{U+018E}",
	"\N{U+0046}" => "\N{U+2132}",
	"\N{U+0047}" => "\N{U+2141}",
	"\N{U+004A}" => "\N{U+017F}",
	"\N{U+004B}" => "\N{U+22CA}",
	"\N{U+004C}" => "\N{U+2142}",
	"\N{U+004D}" => "\N{U+0057}",
	"\N{U+004E}" => "\N{U+1D0E}",
	"\N{U+0050}" => "\N{U+0500}",
	"\N{U+0051}" => "\N{U+038C}",
	"\N{U+0052}" => "\N{U+1D1A}",
	"\N{U+0054}" => "\N{U+22A5}",
	"\N{U+0055}" => "\N{U+2229}",
	"\N{U+0056}" => "\N{U+1D27}",
	"\N{U+0059}" => "\N{U+2144}",
	"\N{U+005B}" => "\N{U+005D}",
	"\N{U+005F}" => "\N{U+203E}",
	"\N{U+0061}" => "\N{U+0250}",
	"\N{U+0062}" => "\N{U+0071}",
	"\N{U+0063}" => "\N{U+0254}",
	"\N{U+0064}" => "\N{U+0070}",
	"\N{U+0065}" => "\N{U+01DD}",
	"\N{U+0066}" => "\N{U+025F}",
	"\N{U+0067}" => "\N{U+0183}",
	"\N{U+0068}" => "\N{U+0265}",
	"\N{U+0069}" => "\N{U+0131}",
	"\N{U+006A}" => "\N{U+027E}",
	"\N{U+006B}" => "\N{U+029E}",
	"\N{U+006C}" => "\N{U+0283}",
	"\N{U+006D}" => "\N{U+026F}",
	"\N{U+006E}" => "\N{U+0075}",
	"\N{U+0072}" => "\N{U+0279}",
	"\N{U+0074}" => "\N{U+0287}",
	"\N{U+0076}" => "\N{U+028C}",
	"\N{U+0077}" => "\N{U+028D}",
	"\N{U+0079}" => "\N{U+028E}",
	"\N{U+007B}" => "\N{U+007D}",
	"\N{U+203F}" => "\N{U+2040}",
	"\N{U+2045}" => "\N{U+2046}",
	"\N{U+2234}" => "\N{U+2235}",
	"\N{U+00A1}" => "\N{U+0021}",
	"\N{U+201E}" => "\N{U+0022}",
	"\N{U+214B}" => "\N{U+0026}",
	"\N{U+002C}" => "\N{U+0027}",
	"\N{U+0029}" => "\N{U+0028}",
	"\N{U+02D9}" => "\N{U+002E}",
	"\N{U+0190}" => "\N{U+0033}",
	"\N{U+152D}" => "\N{U+0034}",
	"\N{U+0039}" => "\N{U+0036}",
	"\N{U+2C62}" => "\N{U+0037}",
	"\N{U+061B}" => "\N{U+003B}",
	"\N{U+003E}" => "\N{U+003C}",
	"\N{U+00BF}" => "\N{U+003F}",
	"\N{U+2200}" => "\N{U+0041}",
	"\N{U+10412}" => "\N{U+0042}",
	"\N{U+2183}" => "\N{U+0043}",
	"\N{U+25D6}" => "\N{U+0044}",
	"\N{U+018E}" => "\N{U+0045}",
	"\N{U+2132}" => "\N{U+0046}",
	"\N{U+2141}" => "\N{U+0047}",
	"\N{U+017F}" => "\N{U+004A}",
	"\N{U+22CA}" => "\N{U+004B}",
	"\N{U+2142}" => "\N{U+004C}",
	"\N{U+0057}" => "\N{U+004D}",
	"\N{U+1D0E}" => "\N{U+004E}",
	"\N{U+0500}" => "\N{U+0050}",
	"\N{U+038C}" => "\N{U+0051}",
	"\N{U+1D1A}" => "\N{U+0052}",
	"\N{U+22A5}" => "\N{U+0054}",
	"\N{U+2229}" => "\N{U+0055}",
	"\N{U+1D27}" => "\N{U+0056}",
	"\N{U+2144}" => "\N{U+0059}",
	"\N{U+005D}" => "\N{U+005B}",
	"\N{U+203E}" => "\N{U+005F}",
	"\N{U+0250}" => "\N{U+0061}",
	"\N{U+0071}" => "\N{U+0062}",
	"\N{U+0254}" => "\N{U+0063}",
	"\N{U+0070}" => "\N{U+0064}",
	"\N{U+01DD}" => "\N{U+0065}",
	"\N{U+025F}" => "\N{U+0066}",
	"\N{U+0183}" => "\N{U+0067}",
	"\N{U+0265}" => "\N{U+0068}",
	"\N{U+0131}" => "\N{U+0069}",
	"\N{U+027E}" => "\N{U+006A}",
	"\N{U+029E}" => "\N{U+006B}",
	"\N{U+0283}" => "\N{U+006C}",
	"\N{U+026F}" => "\N{U+006D}",
	"\N{U+0075}" => "\N{U+006E}",
	"\N{U+0279}" => "\N{U+0072}",
	"\N{U+0287}" => "\N{U+0074}",
	"\N{U+028C}" => "\N{U+0076}",
	"\N{U+028D}" => "\N{U+0077}",
	"\N{U+028E}" => "\N{U+0079}",
	"\N{U+007D}" => "\N{U+007B}",
	"\N{U+2040}" => "\N{U+203F}",
	"\N{U+2046}" => "\N{U+2045}",
	"\N{U+2235}" => "\N{U+2234}",
);

# originally from javascript code at
# https://twiki.org/cgi-bin/view/Blog/BlogEntry201211x1
# turned into perl and expanded upon somewhat.
our %mirror_table = (
    'A' => 'A',
    'B' => "\N{U+A4ED}", #"\N{U+1660}",
    'C' => "\N{U+0186}",
    'D' => "\N{U+15E1}",
    'E' => "\N{U+018E}",
    'F' => "\N{U+A7FB}", #"\N{U+15B7}",
    'G' => "\N{U+2202}", # "\N{U+13AE}",  # need better G
    'H' => 'H',
    'I' => 'I',
    'J' => "\N{U+10B1}", # same as lowercase :(
    'K' => "\N{U+A4D8}", # "\N{U+1434}",
    'L' => "\N{U+2143}",
    'M' => 'M',
    'N' => "\N{U+0418}",
    'O' => 'O',
    'P' => "\N{U+A7FC}",  #  may be \u146B
    'Q' => "O\N{U+0327}", # "\N{U+1ECC}",
    'R' => "\N{U+042F}",
    'S' => "\N{U+01A7}",
    'T' => 'T',
    'U' => 'U',
    'V' => 'V',
    'W' => 'W',
    'X' => 'X',
    'Y' => 'Y',
    'Z' => "\\\N{U+0305}\N{U+0332}",  #"\N{U+01B8}",
    'a' => "\N{U+0252}",
    'b' => 'd',
    'c' => "\N{U+0254}",
    'd' => 'b',
    'e' => "\N{U+0258}",
    'f' => "\N{U+0287}",
    'g' => "\N{U+01EB}",
    'h' => "\N{U+029C}",
    'i' => 'i',
    'j' => "\N{U+10B1}", # same as uppercase
    'k' => "\N{U+029E}",
    'l' => "\N{U+222B}", #"\N{U+2321}", # not sure about this one
    'm' => 'm',
    'n' => 'n',
    'o' => 'o',
    'p' => 'q',
    'q' => 'p',
    'r' => "\N{U+027F}", # maybe U+1D19, ᴙ
    's' => "\N{U+01A8}",
    't' => "\N{U+019A}",
    'u' => 'u',
    'v' => 'v',
    'w' => 'w',
    'x' => 'x',
    'y' => 'y',   # need better y
    'z' => 's',   # need better z
    '0' => '0',
    '1' => '1',   # need better 1
    '2' => '2',   # need better 2
    '3' => "\N{U+01B8}", # or maybe 0664 or 0510
    '4' => "\N{U+0662}",
    '5' => '5',   # need better 5
    '6' => "\N{U+2202}",
    '7' => "\N{U+0393}",
    '?' => "\N{U+241A}",
    ';' => "\N{U+204F}",
	 '(' => ')',
	 ')' => '(',
	 '[' => ']',
	 ']' => '[',
	 '<' => '>',
	 '>' => '<',
	 '{' => '}',
	 '}' => '{',
	 '\\' => '/',
	 '/' => '\\',
	 ',' => "\N{U+2E41}",
	 '~' => "\N{U+223D}",
);

sub mirror {
	my ($text, $srv, $chan) = @_;
	return unless $text;
	return unless $srv;
	return unless $chan;

	$text = reverse $text;
	$text =~ s/(.)/$mirror_table{$1}||$1/ge;
	$chan->command('MSG ' . $chan->{name} . ' ' . $text);
}

sub flip_rev {
	my ($text, $srv, $chan) = @_;
	flip(scalar(reverse $text), $srv, $chan);
}

sub flip {
	my ($text, $srv, $chan) = @_;
	return unless $text;
	return unless $srv;
	return unless $chan;
	$text =~ s/(.)/$flip_table{$1}||$1/ge;
	$chan->command('MSG ' . $chan->{name} . ' ' . reverse($text));
}

command_bind("flip", \&flip_rev);
command_bind("usd", \&flip);
command_bind("mirror", \&mirror);