view release on metacpan or  search on metacpan

lib/App/MatrixClient/RoomTab.pm  view on Meta::CPAN

   my $self = shift;
   my ( $content, $member ) = @_;

   my $s = String::Tagged->new;

   my $formatted_body = parse_formatted_message( $content );
   my $msgtype = $content->{msgtype};

   # Convert $body into something Tickit::Widget::Scoller will understand
   my $body = String::Tagged->clone( $formatted_body,
      only_tags => [qw( bold under italic reverse fg bg )],
      convert_tags => {
         bold    => "b",
         under   => "u",
         italic  => "i",
         reverse => "rv",
         fg      => sub { fg => $_[1]->as_xterm->index },
         bg      => sub { bg => $_[1]->as_xterm->index },
      },
   );

   my $content_url;
   if( $content->{url} ) {