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
|
:- module(cfg, [set_glob/1,
get_glob/1,
set_root/1,
get_root/1,
set_url/1,
get_url/1]).
:- use_module(library(registry)).
set_key(Key, Value) :-
registry_set_key(current_user/software/'JohnAJ'/'EpisodeBrowser'/'Settings', Key, Value).
get_key(Key, Value) :-
catch(registry_get_key(current_user/software/'JohnAJ'/'EpisodeBrowser'/'Settings', Key, Value),
_,
fail).
set_root(V) :- set_key('EpisodeRoot', V).
get_root(V) :-
get_key('EpisodeRoot', V0),
re_replace('\\\\', '/', V0, V1),
atom_string(V, V1).
set_glob(V) :- set_key('EpisodeRoot', V).
get_glob(V) :-
( get_key('EpisodeRoot', V)
; V = '*/*.*'
).
set_url(V) :- set_key('UrlPrefix', V).
get_url(V) :-
( get_key('UrlPrefix', V)
; V = 'https://gogoanime.fi/detective-conan-episode-'
).
|