tCMS/lib/Trog/Component/EmojiPicker.pm

package Trog::Component::EmojiPicker;

use strict;
use warnings;

no warnings qw{experimental};
use feature qw{signatures state};

use JSON::MaybeXS;
use Trog::Renderer;

sub render () {
    state %categorized;

    if ( !%categorized ) {
        my $file = 'www/scripts/list.min.json';
        die "Run make prereq-frontend first" unless -f $file;

        my $raw    = File::Slurper::read_binary($file);
        my $emojis = JSON::MaybeXS::decode_json($raw);
        foreach my $emoji ( @{ $emojis->{emojis} } ) {
            $categorized{ $emoji->{category} } //= [];
            push( @{ $categorized{ $emoji->{category} } }, $emoji->{emoji} );
        }
    }

    return Trog::Renderer->render(
        contenttype => 'text/html',
        component   => 1,
        template    => 'emojis.tx',
        data        => {
            categories => \%categorized,
        },
    );
}

1;