From 9a48743eeba0f1bc4cf74f47fef96bdbcadfc98b Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?John=20Ankarstr=C3=B6m?= Date: Tue, 5 Apr 2022 02:37:58 +0200 Subject: Move settings to registry. --- pl/local_episodes.pl | 14 ++++++-------- 1 file changed, 6 insertions(+), 8 deletions(-) (limited to 'pl/local_episodes.pl') 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). -- cgit v1.2.3