From 66402f07d12c2a39bb88c063605e97a93e7fc9e7 Mon Sep 17 00:00:00 2001
From: Pablo Martín Báez Echevarría
Date: Sun, 12 Oct 2014 23:22:48 -0200
Subject: Update unicode.pl

---
 scripts/unicode.pl | 18 +++++++++++++++++-
 1 file changed, 17 insertions(+), 1 deletion(-)

(limited to 'scripts')

diff --git a/scripts/unicode.pl b/scripts/unicode.pl
index 01ff7bf..5970de4 100644
--- a/scripts/unicode.pl
+++ b/scripts/unicode.pl
@@ -14,7 +14,7 @@ use POSIX ();
 use Unicode::UCD qw(charblock charblocks charinfo);
 
 use Irssi qw(command_bind command_bind_first);
-our $VERSION = "1";
+our $VERSION = "2";
 our %IRSSI = (
     authors     => 'David Leadbeater',
     contact     => 'dgl@dgl.cx',
@@ -148,6 +148,13 @@ command_bind unicode => sub {
   }
 };
 
+sub hex_str {
+    my $str = shift;
+    use bytes;
+    my @raw_bytes = unpack('C*', $str);
+    return join('', map { '\\x'.sprintf("%02x", $_) } @raw_bytes);
+}
+
 sub print_info {
   my($character, $extra) = @_;
   my $info = charinfo $character;
@@ -166,6 +173,7 @@ sub print_info {
     for(qw(decimal digit numeric upper lower title)) {
       $extra{$_} = $info->{$_} if $info->{$_};
     }
+    $extra{"perl"} = hex_str(chr(hex $info->{code}));
     p " " x (7 + length $info->{code}), join(", ", map { "$_=$extra{$_}" } sort keys %extra);
   }
 }
@@ -204,3 +212,11 @@ sub pipe_input {
   $pipe_in_progress = 0;
   $parent->($line);
 }
+
+command_bind charblocks => sub {
+  my $charblocks_hr = charblocks();
+  my @blocks = sort keys %{$charblocks_hr};
+  foreach(@blocks) {
+    Irssi::print($_,MSGLEVEL_CLIENTCRAP);
+  }
+}
-- 
cgit v1.2.3


From e1039166caf895ff5d8f75ffaaa4a144bc9b4c14 Mon Sep 17 00:00:00 2001
From: Pablo Martín Báez Echevarría
Date: Mon, 13 Oct 2014 14:00:00 -0200
Subject: Make the pointed corrections

---
 scripts/unicode.pl | 16 +++-------------
 1 file changed, 3 insertions(+), 13 deletions(-)

(limited to 'scripts')

diff --git a/scripts/unicode.pl b/scripts/unicode.pl
index 5970de4..5e883a1 100644
--- a/scripts/unicode.pl
+++ b/scripts/unicode.pl
@@ -148,13 +148,6 @@ command_bind unicode => sub {
   }
 };
 
-sub hex_str {
-    my $str = shift;
-    use bytes;
-    my @raw_bytes = unpack('C*', $str);
-    return join('', map { '\\x'.sprintf("%02x", $_) } @raw_bytes);
-}
-
 sub print_info {
   my($character, $extra) = @_;
   my $info = charinfo $character;
@@ -173,7 +166,7 @@ sub print_info {
     for(qw(decimal digit numeric upper lower title)) {
       $extra{$_} = $info->{$_} if $info->{$_};
     }
-    $extra{"perl"} = hex_str(chr(hex $info->{code}));
+    $extra{"utf-8 (hex)"} = join "", map sprintf("\\x%02x", ord), split //, encode_utf8 chr(hex $info->{code});
     p " " x (7 + length $info->{code}), join(", ", map { "$_=$extra{$_}" } sort keys %extra);
   }
 }
@@ -214,9 +207,6 @@ sub pipe_input {
 }
 
 command_bind charblocks => sub {
-  my $charblocks_hr = charblocks();
-  my @blocks = sort keys %{$charblocks_hr};
-  foreach(@blocks) {
-    Irssi::print($_,MSGLEVEL_CLIENTCRAP);
-  }
+  my @blocks = sort keys %{charblocks()};
+  print for @blocks;
 }
-- 
cgit v1.2.3