Add --me for timeline to just personal tweets

lib/App/txtnix.pm

@@ -256,7 +256,7 @@ sub get_tweets {
           if $self->use_cache;
     }
 
-    return $self->filter_tweets(@tweets);
+    return @tweets;
 }
 
 sub filter_tweets {

lib/App/txtnix/Cmd.pm

@@ -100,6 +100,11 @@ opt until => (
     comment => 'Only display tweets written until the supplied datetime.',
     alias   => 'u',
 );
+opt me => (
+    isa     => 'Bool',
+    comment => 'Only display your tweets and all replies and mentions.',
+    alias   => 'm',
+);
 
 subcmd
   cmd     => 'view',

lib/App/txtnix/Cmd/timeline.pm

@@ -1,9 +1,19 @@
 package App::txtnix::Cmd::timeline;
 use Mojo::Base 'App::txtnix';
 
+has 'me' => sub { 0 };
+
 sub run {
     my $self   = shift;
     my @tweets = $self->get_tweets();
+    my $url    = $self->twturl;
+
+    if ( $self->me ) {
+        @tweets =
+          grep { $_->source->file || $_->text =~ /\@<(?:\w+ )?$url>/o } @tweets;
+    }
+
+    @tweets = $self->filter_tweets(@tweets);
     $self->display_tweets( 1, @tweets );
     return 0;
 }

lib/App/txtnix/Cmd/view.pm

@@ -10,6 +10,7 @@ sub run {
       ? $self->following->{ $self->source }
       : $self->source;
     my @tweets = $self->get_tweets($url);
+    @tweets = $self->filter_tweets(@tweets);
     $self->display_tweets( 0, @tweets );
     return 0;
 }