Allow relative dates with time_format = relative

mdom · Mar 10, 2016 · 242998f · 242998f
1 parent b8bfa08
commit 242998f
Show file tree

Hide file tree

Showing 5 changed files with 13 additions and 4 deletions.
diff --git a/META.json b/META.json
@@ -51,6 +51,7 @@
             "String::ShellQuote" : "0",
             "Term::ANSIColor" : "1.04",
             "Text::Wrap" : "0",
+            "Time::Duration" : "0",
             "Time::Local" : "1.2100",
             "perl" : "v5.14.0",
             "strict" : "0",

diff --git a/Makefile.PL b/Makefile.PL
@@ -39,6 +39,7 @@ my %WriteMakefileArgs = (
     "String::ShellQuote" => 0,
     "Term::ANSIColor" => "1.04",
     "Text::Wrap" => 0,
+    "Time::Duration" => 0,
     "Time::Local" => "1.2100",
     "strict" => 0,
     "warnings" => 0
@@ -83,6 +84,7 @@ my %FallbackPrereqs = (
   "Test::More" => 0,
   "Test::Output" => 0,
   "Text::Wrap" => 0,
+  "Time::Duration" => 0,
   "Time::Local" => "1.2100",
   "strict" => 0,
   "warnings" => 0

diff --git a/README.pod b/README.pod
@@ -169,8 +169,9 @@ the timeline.
 
 =item time_format
 
-How to format dates in your timeline. This should be a strftime-like
-format string. Defaults to I<%F %H:%M>.
+How to format dates in your timeline. This should be a strftime-like format
+string. As special case you can set it to I<relative> to get relative dates
+like I<1 hour and 23 minutes ago>. Defaults to I<%F %H:%M>.
 
 =item pre_tweet_hook
 

diff --git a/bin/txtnix b/bin/txtnix
@@ -180,8 +180,9 @@ the timeline.
 
 =item time_format
 
-How to format dates in your timeline. This should be a strftime-like
-format string. Defaults to I<%F %H:%M>.
+How to format dates in your timeline. This should be a strftime-like format
+string. As special case you can set it to I<relative> to get relative dates
+like I<1 hour and 23 minutes ago>. Defaults to I<%F %H:%M>.
 
 =item pre_tweet_hook
 

diff --git a/lib/App/txtnix/Tweet.pm b/lib/App/txtnix/Tweet.pm
@@ -2,13 +2,17 @@ package App::txtnix::Tweet;
 use Mojo::Base -base;
 use Mojo::ByteStream 'b';
 use Mojo::Date;
+use Time::Duration;
 use POSIX ();
 
 has [qw(source text)];
 has timestamp => sub { Mojo::Date->new() };
 
 sub strftime {
     my ( $self, $format ) = @_;
+    if ( $format eq 'relative' ) {
+        return ago( ( int( ( time - $self->timestamp->epoch ) / 60 ) ) * 60 );
+    }
     return POSIX::strftime( $format, localtime $self->timestamp->epoch );
 }