diff options
| -rw-r--r-- | scripts/fullwidth.pl | 43 |
1 files changed, 43 insertions, 0 deletions
diff --git a/scripts/fullwidth.pl b/scripts/fullwidth.pl new file mode 100644 index 0000000..261aa5a --- /dev/null +++ b/scripts/fullwidth.pl @@ -0,0 +1,43 @@ +# Copyright 2016 prussian <genunrest@gmail.com> +# Author: prussian <genunrest@gmail.com> +# +# Licensed under the Apache License, Version 2.0 (the "License"); +# you may not use this file except in compliance with the License. +# You may obtain a copy of the License at +# +# http://www.apache.org/licenses/LICENSE-2.0 +# +# Unless required by applicable law or agreed to in writing, software +# distributed under the License is distributed on an "AS IS" BASIS, +# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +# See the License for the specific language governing permissions and +# limitations under the License. + +use strict; +use Irssi qw(command_bind active_win); +our $VERSION = '1.1.0'; +our %IRSSI = ( + authors => 'prussian', + contact => 'genunrest@gmail.com', + name => 'fullwidth', + url => 'http://github.com/GeneralUnRest/', + description => 'talk like some vaporwave cool kid', + license => 'Apache 2.0', +); + +command_bind(fullwidth => sub { + my $msg = $_[0]; + my $say = ""; + foreach my $char (split //, $msg) { + if ($char =~ /\s/) { + $say = "$say" . " "; + } + else { + my $nchar = ord($char); + if ($nchar >= 32 && $nchar <= 126) { + $say = "$say" . chr($nchar+65248); + } + } + } + active_win->command("say $say"); +}); |