46 lines
1.0 KiB
Perl
46 lines
1.0 KiB
Perl
package DDG::Goodie::Braille;
|
||
# ABSTRACT: Braille <-> ASCII/Unicode
|
||
|
||
use strict;
|
||
use DDG::Goodie;
|
||
|
||
use Convert::Braille;
|
||
use utf8;
|
||
|
||
triggers query_raw => qr/\p{Braille}|( in| to){1} braille$|^braille:/i;
|
||
|
||
zci is_cached => 1;
|
||
|
||
my $braille_space = '⠀'; # the braille unicode space (U+2800)
|
||
|
||
handle query_raw => sub {
|
||
|
||
my $query = $_;
|
||
$query =~ s/( in| to){1} braille$|^braille:\s?//;
|
||
return unless $query;
|
||
|
||
my $response;
|
||
my $type;
|
||
|
||
if ($query =~ /\p{Braille}/) {
|
||
$response = join(" ", map { lc(brailleDotsToAscii($_)) } split(/$braille_space/, $query));
|
||
$type = "Ascii/Unicode";
|
||
} else {
|
||
$response = join($braille_space, map { brailleAsciiToUnicode(uc $_) } split(/\s/, $query));
|
||
$type = "Braille";
|
||
}
|
||
|
||
return $response,
|
||
structured_answer => {
|
||
data => {
|
||
title => $response,
|
||
subtitle => "Braille translation: $query",
|
||
},
|
||
templates => {
|
||
group => 'text',
|
||
},
|
||
};
|
||
};
|
||
|
||
1;
|