diff options
author | John Ankarström <john@ankarstrom.se> | 2022-02-17 01:48:22 +0100 |
---|---|---|
committer | John Ankarström <john@ankarstrom.se> | 2022-02-17 01:48:22 +0100 |
commit | d7cf090cee5f1b71c3e9c5f232d0e2a51ad6a7e5 (patch) | |
tree | 1b803ac1d172556422455c6822a7702202409eb5 /pl | |
parent | 263bc8b8ff4296a1fe0014a26134ad35ebccbbff (diff) | |
download | EpisodeBrowser-d7cf090cee5f1b71c3e9c5f232d0e2a51ad6a7e5.tar.gz |
More cleanup.
Diffstat (limited to 'pl')
-rw-r--r-- | pl/local_episodes.pl | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/pl/local_episodes.pl b/pl/local_episodes.pl index 283ccb7..d1f25f5 100644 --- a/pl/local_episodes.pl +++ b/pl/local_episodes.pl @@ -5,13 +5,15 @@ :- use_module(library(dcg/basics)). :- use_module(atom_dcg). +local_episode_prefix --> string(_), "Detective_Conan_-_". +local_episode_prefix --> string(_), "Detective Conan - ". + local_episode --> local_episode(_). local_episode(N) --> - string(_), "Detective_Conan_-_", integer(N), string(_). + local_episode_prefix, integer(N), string(_). local_episode(N) --> - string(_), "Detective_Conan_-_", - integer(First), "-", integer(Last), string(_), + local_episode_prefix, integer(First), "-", integer(Last), string(_), { Second is First + 1, between(Second, Last, N) }. % Find episode on disk. |