package status; use strict; use warnings; use string_helpers qw( reltime_to_str greentextify emojify format_username localize_mentions simple_escape ); use icons qw( get_icon visibility_to_icon ); use attachments 'generate_attachment'; use postbox 'generate_postbox'; use emojis 'generate_emoji'; use Exporter 'import'; use l10n 'lang'; our @EXPORT = qw( content_status generate_status ); use template_helpers 'to_template'; # Useful variable to prevent collisions my $rel_context = 0; sub generate_status { my ($ssn, $data, $status, $notif, $is_compact) = @_; my $boost_acct; # Move status reference for boosts and keep account # I hate this design but blame MastoAPI, not me. if ($status->{reblog}) { $boost_acct = $status->{account}; $status = $status->{reblog}; } my $is_statusey_notif = ($notif && ($notif->{type} eq 'mention' || $notif->{type} eq 'status')); my %vars = ( prefix => '', ssn => $ssn, status => $status, boost => $boost_acct, # May be undef data => $data, notif => $notif, # May be undef compact => $is_compact, # May be undef is_statusey_notif => $is_statusey_notif, unique_toggle_id => $rel_context++, interacted_with => $boost_acct || ($notif && !$is_statusey_notif), # Functions action_to_string => sub { return unless $notif; return lang('NOTIF_LIKED') if $notif->{type} eq 'favourite'; return lang('NOTIF_REPEATED') if $boost_acct || $notif->{type} eq 'reblog'; return lang('NOTIF_REACTED_WITH') .' '. $notif->{emoji} if $boost_acct || $notif->{type} eq 'emoji reaction'; }, action_to_icon => sub { return unless $notif; return get_icon('like') if $notif->{type} eq 'favourite'; return get_icon('repeat') if $boost_acct || $notif->{type} eq 'reblog'; return $notif->{emoji} if $notif->{type} eq 'emoji reaction'; }, icon => \&get_icon, lang => \&lang, rel_to_str => \&reltime_to_str, vis_to_icon => \&visibility_to_icon, make_att => \&generate_attachment, make_emoji => \&generate_emoji, greentextify => \&greentextify, emojify => \&emojify, escape => \&simple_escape, fix_mentions => \&localize_mentions, format_username => \&format_username, make_postbox => \&generate_postbox, ); to_template(\%vars, \$data->{'status.tt'}); } sub content_status { my ($ssn, $data, $status, $statuses_before, $statuses_after) = @_; $rel_context = 0; my %vars = ( prefix => '', ssn => $ssn, data => $data, status => $status, statuses_before => $statuses_before, statuses_after => $statuses_after, # Functions create_status => \&generate_status, ); to_template(\%vars, \$data->{'content_status.tt'}); } 1;