Series commands

blog

@@ -3,6 +3,7 @@ use v6.e.PREVIEW;
 
 use DB;
 use DB::BlogMeta;
+use DB::Series;
 use DB::MarkdownPost;
 use DB::IdrisPost;
 
@@ -282,3 +283,102 @@ multi MAIN(
     }
     $db.write: $db-dir;
 }
+
+#| Create a new series
+multi MAIN(
+    "series",
+    "new",
+    #| The path of the database file
+    IO::Path(Str) :$db-dir = $default-db-dir,
+) {
+    my $db = read-db $db-dir;
+    say 'Series Title: ';
+    my $title = get;
+    say 'Series Description: ';
+    my $desc = get;
+
+    my $series = Series.new:
+        title => $title, desc => $desc;
+    my $id = $db.insert-series: $series;
+    say 'Series inserted with id ', $id;
+
+    $db.write: $db-dir;
+}
+
+
+#| Provide a table of series
+multi MAIN(
+    "series",
+    "list",
+    #| The path of the database directory
+    IO::Path(Str) :$db-dir = $default-db-dir,
+    #| The number of items to show on a single page
+    Int :$per-page = 10;
+    #| The page number to show
+    Int :$page = 1;
+) {
+    my $db = read-db $db-dir;
+    my @pages =
+        $db.series.sort(*.key).rotor($per-page, :partial);
+    my @page = @pages[$page - 1].flat;
+    my $table = Pretty::Table.new:
+        title => "Series (page $page/{@pages.elems})",
+        field-names => ["ID", "Title", "Desc"];
+    for @page -> $pair {
+        my $id = $pair.key;
+        my $series = $pair.value;
+        # TODO: Terminal aware truncation
+        my $title = do if $series.title.chars > 40 {
+           "{$series.title.substr(0, 50)}..."
+        } else {
+            $series.title
+        };
+        my $desc = do if $series.desc.chars > 40 {
+           "{$series.desc.substr(0, 50)}..."
+        } else {
+            $series.desc
+        };
+        $table.add-row: [$id, $title, $desc];
+    }
+    say $table;
+}
+
+#| Display the contents of a series
+multi MAIN(
+    "series",
+    "info",
+    #| The id of the series to display
+    Int $id,
+    #| The path of the database directory
+    IO::Path(Str) :$db-dir = $default-db-dir,
+) {
+    my $db = read-db $db-dir;
+    my $series = $db.series{$id.Int};
+    say 'Title: ', $series.title;
+    say 'Description:';
+    for $series.desc.lines -> $line {
+       say '  ', $line;
+    }
+    say 'Posts:';
+    for $series.post-ids -> $post-id {
+        my $post = $db.posts{$post-id};
+        say '  * ', $post-id, ': ', $post.title;
+    }
+}
+
+#| Add a post to a series
+multi MAIN(
+    "series",
+    "add",
+    #| The id of the series to add to
+    Int $series-id,
+    #| The id of the post to add
+    Int $post-id,
+    #| The path of the database directory
+    IO::Path(Str) :$db-dir = $default-db-dir,
+) {
+    my $db = read-db $db-dir;
+    my $series = $db.series{$series-id.Int};
+    $series.post-ids.push: $post-id.Int;
+    $db.write: $db-dir;
+}