aboutsummaryrefslogtreecommitdiff
path: root/pl/local_episodes.pl
blob: 0273bb3450a01287183bd75a956256761dc528bc (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
:- module(local_episodes, [local_episode//1,
			   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 - ".
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(N) :- episode_file(N, F), !, win_shell(open, F).
open_episode(N) :- atom_phrase(episode_url(N), U), win_shell(open, U).