From 6fd66a9264731bd7ee6d7602675965021d929a4a Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?John=20Ankarstr=C3=B6m?= Date: Wed, 24 Aug 2022 15:17:08 +0200 Subject: Remove Prolog dependency. The only thing left to reimplement is the tracking of watched episodes in MPC-HC. --- pl/local_episodes.pl | 50 -------------------------------------------------- 1 file changed, 50 deletions(-) delete mode 100644 pl/local_episodes.pl (limited to 'pl/local_episodes.pl') diff --git a/pl/local_episodes.pl b/pl/local_episodes.pl deleted file mode 100644 index 68809a7..0000000 --- a/pl/local_episodes.pl +++ /dev/null @@ -1,50 +0,0 @@ -:- module(local_episodes, [local_episode//1, - episode_file/2, - open_episode_locally/1, - open_episode_online/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 - ". -local_episode_prefix --> string(_), "Detective-Conan-". -local_episode_prefix --> string(_), "detective_conan_". - -nondigit --> [C], !, { \+ code_type(C, digit) }. -nondigit --> []. - -zeroes --> "0". -zeroes --> "0", zeroes. - -paddedint(N) --> integer(N). -paddedint(N) --> zeroes, integer(N). - -local_episode --> - local_episode(_). -local_episode(N) --> - local_episode_prefix, paddedint(N), nondigit, string(_). -local_episode(N) --> - local_episode_prefix, paddedint(First), "-", paddedint(Last), nondigit, string(_), - { Second is First + 1, between(Second, Last, N) }. - -% Find episode on disk. - -episode_file(N, F) :- - 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), - member(F, F2), - atom_phrase(local_episode(N), F) - ). - -% Open episode. - -episode_url(N) --> { with_codes(get_url(U)) }, string(U), integer(N). -open_episode_locally(N) :- episode_file(N, F), !, win_shell(open, F). -open_episode_online(N) :- atom_phrase(episode_url(N), U), win_shell(open, U). -- cgit v1.2.3