- Added the *AGE* token, which represents the age of a video.

Possible values:

	1 second
	2 seconds
	...
	1 minute
	2 minutes
	...
	1 hour
	2 hours
	...
	1 day
	2 days
	...
	1 month
	2 months
	...
	1 year
	2 years
	...

Implements and closes #283

Author: trizen

bin/gtk-youtube-viewer

@@ -1327,8 +1327,8 @@ $accel->connect(ord('g'), ['control-mask'], ['visible'], \&show_user_favorited_v
 $accel->connect(ord('m'), ['control-mask'], ['visible'], \&show_videos_from_selected_author);
 $accel->connect(ord('k'), ['control-mask'], ['visible'], \&show_playlists_from_selected_author);
 $accel->connect(ord('w'), ['control-mask'], ['visible'], \&show_warnings_window);
-$accel->connect(0xffff,   ['lock-mask'],    ['visible'], \&delete_selected_row);
-$accel->connect(0xffc8,   ['lock-mask'],    ['visible'], \&maximize_unmaximize_mainw);
+$accel->connect(0xffff, ['lock-mask'], ['visible'], \&delete_selected_row);
+$accel->connect(0xffc8, ['lock-mask'], ['visible'], \&maximize_unmaximize_mainw);
 $mainw->add_accel_group($accel);
 
 # Support for navigating back and forth using the side buttons of the mouse
@@ -1357,7 +1357,7 @@ $accel->connect(0xff1b, ['lock-mask'], ['visible'], \&hide_feeds_window);
 $feeds_window->add_accel_group($accel);
 
 $accel = Gtk2::AccelGroup->new;
-$accel->connect(0xff1b,   ['lock-mask'],    ['visible'], \&hide_preferences_window);
+$accel->connect(0xff1b, ['lock-mask'], ['visible'], \&hide_preferences_window);
 $accel->connect(ord('s'), ['control-mask'], ['visible'], \&save_configuration);
 $prefernces_window->add_accel_group($accel);
 
@@ -1568,7 +1568,7 @@ sub save_configuration {
     my $hash_ref = eval $config;
 
     print STDERR $@ if $@;
-    die $@ if $@;
+    die $@          if $@;
 
     %CONFIG = (%CONFIG, %{$hash_ref});
     dump_configuration();
@@ -2454,7 +2454,7 @@ sub set_thumbnail {
             my ($entry, $liststore, $iter) = @{$_[0]};
 
             my $thumb_url = $yv_utils->get_thumbnail_url($entry, $CONFIG{thumbnail_type});
-            my $pixbuf = get_pixbuf_thumbnail($thumb_url, ($yv_utils->is_channel($entry) ? (160, 160) : ()));
+            my $pixbuf    = get_pixbuf_thumbnail($thumb_url, ($yv_utils->is_channel($entry) ? (160, 160) : ()));
             $liststore->set_value($iter, 1, $pixbuf);
 
             return 0;

bin/youtube-viewer

@@ -338,7 +338,7 @@ my %CONFIG = (
     convert_to           => undef,
 
     custom_layout        => 0,
-    custom_layout_format => [{width => 3,     text => "*NO*.",    color => 'bold',  align => 'right'},
+    custom_layout_format => [{width => 3, text => "*NO*.", color => 'bold', align => 'right'},
                              {width => '60%', text => "*TITLE*"},
                              {width => '20%', text => "*AUTHOR*", color => 'green', align => 'right'},
                              {width => 8,     text => "*TIME*",   color => 'blue',  align => 'right'},
@@ -1901,7 +1901,7 @@ sub favorite_videos {
 sub select_and_save_to_playlist {
     return if not authenticated();
 
-    my $request = $yv_obj->my_playlists() // last;
+    my $request    = $yv_obj->my_playlists() // last;
     my $playlistID = print_playlists($request, return_playlist_id => 1);
 
     if (defined($playlistID)) {
@@ -3132,6 +3132,7 @@ sub save_watched_video {
     my ($video_id) = @_;
 
     if ($opt{remember_watched} and not exists($watched_videos{$video_id})) {
+        $watched_videos{$video_id} = 1;
         open my $fh, '>>', $opt{watched_file} or return;
         say {$fh} $video_id;
         close $fh;

lib/WWW/YoutubeViewer/Utils.pm

@@ -148,6 +148,53 @@ sub format_date {
     return $date;
 }
 
+=head2 date_to_time($date)
+
+Return the (approximated) age for a given date of the form "2010-05-04T00:25:55.000Z".
+
+=cut
+
+sub date_to_age {
+    my ($self, $date) = @_;
+
+    $date =~ m{^
+        (?<year>\d{4})
+           -
+        (?<month>\d{2})
+           -
+        (?<day>\d{2})
+        [a-zA-Z]
+        (?<hour>\d{2})
+            :
+        (?<min>\d{2})
+            :
+        (?<sec>\d{2})
+    }x || return undef;
+
+    my ($sec, $min, $hour, $day, $month, $year) = gmtime(time);
+
+    $year  += 1900;
+    $month += 1;
+
+    if ($year == $+{year}) {
+        if ($month == $+{month}) {
+            if ($day == $+{day}) {
+                if ($hour == $+{hour}) {
+                    if ($min == $+{min}) {
+                        return join(' ', $sec - $+{sec}, 'seconds');
+                    }
+                    return join(' ', $min - $+{min}, 'minutes');
+                }
+                return join(' ', $hour - $+{hour}, 'hours');
+            }
+            return join(' ', $day - $+{day}, 'days');
+        }
+        return join(' ', $month - $+{month}, 'months');
+    }
+
+    return join(' ', $year - $+{year}, 'years');
+}
+
 =head2 has_entries($request)
 
 Returns true if a given request has entries.
@@ -221,6 +268,7 @@ sub format_text {
         FTITLE      => sub { $self->normalize_video_title($self->get_title($info), $fat32safe) },
         CAPTION     => sub { $self->get_caption($info) },
         PUBLISHED   => sub { $self->get_publication_date($info) },
+        AGE         => sub { $self->get_publication_age($info) },
         DESCRIPTION => sub { $self->get_description($info) },
 
         RATING => sub {
@@ -424,6 +472,18 @@ sub get_publication_date {
     $self->format_date($info->{snippet}{publishedAt});
 }
 
+sub get_publication_age {
+    my ($self, $info) = @_;
+
+    my $age = $self->date_to_age($info->{snippet}{publishedAt});
+
+    if ($age =~ /^1\s/) {    # singular mode
+        $age =~ s/s\z//;
+    }
+
+    return $age;
+}
+
 sub get_duration {
     my ($self, $info) = @_;
     $self->format_duration($info->{contentDetails}{duration});