From 0483e7cd4fba5f27a8a03bae302099006626aed8 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?John=20Ankarstr=C3=B6m?= Date: Thu, 28 Apr 2022 21:24:06 +0200 Subject: Fix local episode finding. --- pl/local_episodes.pl | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) (limited to 'pl/local_episodes.pl') diff --git a/pl/local_episodes.pl b/pl/local_episodes.pl index 49d930c..935e3b7 100644 --- a/pl/local_episodes.pl +++ b/pl/local_episodes.pl @@ -11,12 +11,15 @@ local_episode_prefix --> string(_), "Detective Conan - ". local_episode_prefix --> string(_), "Detective-Conan-". local_episode_prefix --> string(_), "detective_conan_". +nondigit --> [C], !, { \+ code_type(C, digit) }. +nondigit --> []. + local_episode --> local_episode(_). local_episode(N) --> - local_episode_prefix, integer(N), string(_). + local_episode_prefix, integer(N), nondigit, string(_). local_episode(N) --> - local_episode_prefix, integer(First), "-", integer(Last), string(_), + local_episode_prefix, integer(First), "-", integer(Last), nondigit, string(_), { Second is First + 1, between(Second, Last, N) }. % Find episode on disk. -- cgit v1.2.3