From 3168ebb6dd6bae5c7f492b780a5ae18fc981d578 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?John=20Ankarstr=C3=B6m?= 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/episode_data.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