Changeset 834dc31

Timestamp:

Aug 20, 2017, 5:53:43 PM (7 years ago)

Author:

Alex Dehnert <adehnert@mit.edu>

Children:

40def31a

Parents:

1f69b54

Message:

Add tweet URL to the "i" popup

AFAICT, the info popup just shows the attributes of the perl message object, so
we set an otherwise-unused "url" attribute on the message. Sadly, I don't think
there's a mechanism for displaying the return value of a method instead.

File:

• perl/modules/Twitter/lib/BarnOwl/Module/Twitter/Handle.pm (modified) (2 diffs)

perl/modules/Twitter/lib/BarnOwl/Module/Twitter/Handle.pm

@@ -290 +290 @@
             $orig = $tweet unless defined($orig);
 
+            my $url = $self->{cfg}->{service} . '/' . $orig->{user}{screen_name} . '/status/' . $tweet->{id};
             my $msg = BarnOwl::Message->new(
                 type      => 'Twitter',
@@ -299 +300 @@
                 body      => decode_entities($orig->{text}),
                 status_id => $tweet->{id},
+                url       => $url,
                 service   => $self->{cfg}->{service},
                 account   => $self->{cfg}->{account_nickname},