aboutsummaryrefslogtreecommitdiff
path: root/pl
diff options
context:
space:
mode:
Diffstat (limited to 'pl')
-rw-r--r--pl/local_episodes.pl9
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).