aboutsummaryrefslogtreecommitdiff
path: root/pl/track_episodes.pl
blob: f18e85c12741bbf42ba4848b0b1d0aed059ec8dd (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
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
:- module(track_episodes, [update_tracked_episodes/0,
			   toggle_episode/1,
			   forget_episode/1,
			   most_recently_watched/1,
			   watched/1]).

:- use_module(library(dcg/basics)).
:- use_module(library(registry)).
:- use_module(library(persistency)).
:- use_module(local_episodes).

attach :-
	absolute_file_name('track_episodes.db', F, [access(write)]),
	db_attach(F, []).

detach :-
	db_detach.

:- persistent episode_watched(episode:integer, watched:atom).

% Helpers.

swapbc(P, A, B, C, D) :- call(P, A, C, B, D).
compound(F, A, B, T) :- T =.. [F, A, B].

% Get data from registry.

file(N) --> "File Name ", integer(N).

pos(N) --> "File Position ", integer(N).

mpc_reg(Phrase, Value) :-
	phrase(Phrase, Name),
	atom_codes(Name1, Name),
	registry_get_key(current_user/software/'mpc-hc'/'mpc-hc'/settings,
			 Name1, Value).

% Create episode-position list.

epipos(L) :- epipos_x(0, L).

epipos_x(N, L) :-
	(   catch((mpc_reg(file(N), File),
		   mpc_reg(pos(N), Pos)),
		  _,
		  fail)
	->  M is N + 1,
	    (   atom_codes(File, File1),
	        findall(Ep, phrase(local_episode(Ep), File1), Eps)
	    ->	atom_codes(Pos, Pos1),
		phrase(integer(Pos2), Pos1),
		maplist(swapbc(compound, '-', Pos2), Eps, Eps1),
		append(Eps1, T, L),
		epipos_x(M, T)
	    ;	epipos_x(M, L))
	;   L = []
	).

considered_watched(_-Pos) :-
	Pos > 11000000000.

% Update database.

update_tracked_episodes :-
	epipos(All),
	include(considered_watched, All, Watched),
	maplist(add, Watched).

add(Ep-_) :- episode_watched(Ep, _), !.
add(Ep-_) :- assert_episode_watched(Ep, true).

forget_episode(Ep) :-
	retractall_episode_watched(Ep, true),
	retractall_episode_watched(Ep, false).

toggle_episode(Ep) :-
	episode_watched(Ep, true), !,
	retractall_episode_watched(Ep, true),
	assert_episode_watched(Ep, false).

toggle_episode(Ep) :-
	episode_watched(Ep, false), !,
	retractall_episode_watched(Ep, false),
	assert_episode_watched(Ep, true).

toggle_episode(Ep) :-
	assert_episode_watched(Ep, true).

% Utility.

most_recently_watched(Ep) :-
	findall(N, episode_watched(N, true), All),
	last(All, Ep).

watched(Ep) :-
	episode_watched(Ep, true).