diff options
Diffstat (limited to 'pl')
| -rw-r--r-- | pl/local_episodes.pl | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/pl/local_episodes.pl b/pl/local_episodes.pl index c746883..3839399 100644 --- a/pl/local_episodes.pl +++ b/pl/local_episodes.pl @@ -1,5 +1,6 @@ :- module(local_episodes, [local_episode//1, episode_file/2, + sort_episode_file/2, open_episode/1]). :- use_module(library(dcg/basics)). @@ -8,6 +9,7 @@ local_episode_prefix --> string(_), "Detective_Conan_-_". local_episode_prefix --> string(_), "Detective Conan - ". local_episode_prefix --> string(_), "Detective-Conan-". +local_episode_prefix --> string(_), "detective_conan_". local_episode --> local_episode(_). @@ -20,8 +22,7 @@ local_episode(N) --> % Find episode on disk. episode_file(N, F) :- - expand_file_name('C:/Users/John/Nedladdningar/Detective Conan season 1 to season 22 + season 23(incomplete)/*/*.*', - F1), + expand_file_name('C:/Users/John/Nedladdningar/Detective Conan season 1 to season 22 + season 23(incomplete)/*/*.*', F1), ( nonvar(N) -> include(atom_phrase(local_episode(N)), F1, [F|_]) ; include(atom_phrase(local_episode), F1, F2), @@ -29,6 +30,10 @@ episode_file(N, F) :- atom_phrase(local_episode(N), F) ). +sort_episode_file(N, F) :- + setof(N_-F_, episode_file(N_, F_), S), + member(N-F, S). + open_episode(N) :- episode_file(N, F), win_shell(open, F). |