From 0911ac34e6ae2761f1b464817ce43d3a4e4ce14e Mon Sep 17 00:00:00 2001
From: Marius Gavrilescu <marius@ieval.ro>
Date: Sat, 19 Mar 2016 20:26:35 +0200
Subject: [PATCH] Add a --show-series argument to the tdwtf CLI
---
lib/App/TDWTF.pm | 8 ++++++++
tdwtf | 2 ++
2 files changed, 10 insertions(+)
diff --git a/lib/App/TDWTF.pm b/lib/App/TDWTF.pm
index a8276dd..b315742 100644
--- a/lib/App/TDWTF.pm
+++ b/lib/App/TDWTF.pm
@@ -24,8 +24,16 @@ sub print_article {
say HTML::FormatText->format_string($art->Body)
}
+sub print_series {
+ for my $series (tdwtf_series) {
+ $series->{$_} = encode 'UTF-8', ($series->{$_} // '') for keys %$series;
+ say $series->{Slug}, ' ', $series->{Title}, "\n", $series->{Description}, "\n";
+ }
+}
+
sub run {
my ($args, @argv) = @_;
+ return print_series if $args->{show_series};
return print_list tdwtf_list_recent @argv if $args->{recent};
return print_list tdwtf_list_series @argv if $args->{series};
return print_list tdwtf_list_author @argv if $args->{author};
diff --git a/tdwtf b/tdwtf
index 40d8e46..8c102e9 100755
--- a/tdwtf
+++ b/tdwtf
@@ -10,6 +10,7 @@ GetOptions(
recent => \$args{recent},
series => \$args{series},
author => \$args{author},
+ 'show-series' => \$args{show_series},
);
App::TDWTF::run(\%args, @ARGV);
@@ -35,6 +36,7 @@ tdwtf - CLI interface to thedailywtf.com
tdwtf --author snoofle # lists the most recent 8 articles by snoofle
tdwtf --author snoofle 10
tdwtf --author snoofle 2015 01
+ tdwtf --show-series # prints a list of all existing article series
=head1 DESCRIPTION
--
2.39.5