aboutsummaryrefslogtreecommitdiff
path: root/pl/local_episodes.pl
diff options
context:
space:
mode:
authorJohn Ankarström <john@ankarstrom.se>2022-04-05 02:37:58 +0200
committerJohn Ankarström <john@ankarstrom.se>2022-04-05 02:37:58 +0200
commit9a48743eeba0f1bc4cf74f47fef96bdbcadfc98b (patch)
treef78c6062b2ec931f1c181d7726ee612c332b892b /pl/local_episodes.pl
parent96f4b3a127e027364c77416f1ee8e5a471c5d783 (diff)
downloadEpisodeBrowser-9a48743eeba0f1bc4cf74f47fef96bdbcadfc98b.tar.gz
Move settings to registry.
Diffstat (limited to 'pl/local_episodes.pl')
-rw-r--r--pl/local_episodes.pl14
1 files changed, 6 insertions, 8 deletions
diff --git a/pl/local_episodes.pl b/pl/local_episodes.pl
index 5eaf6b7..49d930c 100644
--- a/pl/local_episodes.pl
+++ b/pl/local_episodes.pl
@@ -1,10 +1,10 @@
:- module(local_episodes, [local_episode//1,
episode_file/2,
- sort_episode_file/2,
open_episode/1]).
:- use_module(library(dcg/basics)).
:- use_module(atom_dcg).
+:- use_module(cfg).
local_episode_prefix --> string(_), "Detective_Conan_-_".
local_episode_prefix --> string(_), "Detective Conan - ".
@@ -22,7 +22,10 @@ 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),
+ get_root(R),
+ get_glob(G),
+ atomic_list_concat([R, '/', G], G1),
+ expand_file_name(G1, F1),
( nonvar(N)
-> include(atom_phrase(local_episode(N)), F1, [F|_])
; include(atom_phrase(local_episode), F1, F2),
@@ -30,13 +33,8 @@ 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.
-episode_url(N) --> "https://gogoanime.fi/detective-conan-episode-", integer(N).
-
+episode_url(N) --> { with_codes(get_url(U)) }, string(U), integer(N).
open_episode(N) :- episode_file(N, F), !, win_shell(open, F).
open_episode(N) :- atom_phrase(episode_url(N), U), win_shell(open, U).