tCMS/lib/Trog/Component/EmojiPicker.pm

package Trog::Component::EmojiPicker;

use 5.040;
use re '/aa';

use File::Slurper ();
use JSON::MaybeXS;
use Trog::Renderer;

=head1 Trog::Component::EmojiPicker

The emoji picker component.

=head1 Termination Conditions

Dies if the emoji list isn't on disk, as there's no sensible picker to show
without it.  It's a frontend dependency, so C<make prereq-frontend> is what
puts it there.

=head1 FUNCTIONS

=head2 render(%args) = STRING

Render the picker as an HTML component.  Reached from templates as
C<< <: component('EmojiPicker') :> >>; takes no arguments, and ignores any it
is handed.

The emoji list ships as a flat array, which is no use to a picker with tabs, so
it gets bucketed by category on the first call and memoized thereafter -- the
list can't change without a redeploy.

Returns the rendered body, rather than a PSGI triplet, as components are meant
to be composed into a page by their caller.

=cut

sub render (%args) {
    state %categorized;

    if ( !%categorized ) {
        my $file = 'www/scripts/list.min.json';

        # One operation rather than a test and then a read, which also catches
        # the unreadable case the test missed.  Checked with defined() rather
        # than truthiness so that an empty file falls through to the JSON
        # parser, which will say what is actually wrong with it.
        my $raw = eval { File::Slurper::read_binary($file) };
        die "Could not read $file ($@) -- run make prereq-frontend first" unless defined $raw;
        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;