絵文字変換スクリプトはショートコード一覧のJSONを出力する

This commit is contained in:
tateisu 2017-09-26 11:15:17 +09:00
parent baa2d7d689
commit 2d4b107879
3 changed files with 18061 additions and 0 deletions

View File

@ -613,6 +613,27 @@ print $fh "\t}\n";
close($fh) or die "$out_file : $!";
#########################################################################
# shortname => unicode
{
$out_file = "shortcode-emoji-data-and-old-emojione.json";
open($fh, ">",$out_file) or die "$out_file : $!";
my @list;
for my $name (sort keys %name_map){
my $rh = $name_map{$name};
my @res_list = values %$rh;
my $res_info = $res_list[0];
push @list,{shortcode=>$name,unicode=>$res_info->{unified}};
}
my $json = JSON->new->allow_nonref->relaxed(1)->pretty;
print $fh $json->encode( \@list );
close($fh) or die "$out_file : $!";
}
#########################################################################
__DATA__

File diff suppressed because it is too large Load Diff

View File

@ -39,6 +39,8 @@ public class TootInstance {
public long domain_count;
}
// FIXME: urls をパースしてない使ってないから
////////////////////////////////////////////////
// 以下は内部で使用する