From 3168ebb6dd6bae5c7f492b780a5ae18fc981d578 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?John=20Ankarstr=C3=B6m?= <john@ankarstrom.se>
Date: Tue, 29 Mar 2022 01:16:21 +0200
Subject: Show all episodes, not just local copies.

Ideally, I'd like to distinguish them visually, but it is a bit
complicated. For now, I don't really care.
---
 pl/episode_data.pl | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'pl')

diff --git a/pl/episode_data.pl b/pl/episode_data.pl
index c6a5f3a..0c43bdc 100644
--- a/pl/episode_data.pl
+++ b/pl/episode_data.pl
@@ -1,4 +1,5 @@
 :- module(episode_data, [retract_episode/1,
+			 last_episode/1,
 			 lookup_episode/3,
 			 lookup_episode_local/3,
 			 lookup_episode_remote/3]).
@@ -21,6 +22,10 @@ detach :-
 
 % Interface.
 
+last_episode(Ep) :-
+	setof(E, N^D^lookup_episode_local(E,N,D), Es),
+	last(Es, Ep).
+
 lookup_episode(Ep, Name, Data) :- lookup_episode_local(Ep, Name, Data), !.
 lookup_episode(Ep, Name, Data) :- lookup_episode_remote(Ep, Name, Data).
 
-- 
cgit v1.2.3