絵文字変換スクリプトはショートコード一覧のJSONを出力する
This commit is contained in:
parent
baa2d7d689
commit
2d4b107879
|
@ -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
|
@ -39,6 +39,8 @@ public class TootInstance {
|
|||
public long domain_count;
|
||||
}
|
||||
|
||||
// FIXME: urls をパースしてない。使ってないから…
|
||||
|
||||
////////////////////////////////////////////////
|
||||
// 以下は内部で使用する
|
||||
|
||||
|
|
Loading…
Reference in New Issue