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/cfg.pl | 76 --------------------------------------------------------------- 1 file changed, 76 deletions(-) delete mode 100644 pl/cfg.pl (limited to 'pl/cfg.pl') diff --git a/pl/cfg.pl b/pl/cfg.pl deleted file mode 100644 index 297d426..0000000 --- a/pl/cfg.pl +++ /dev/null @@ -1,76 +0,0 @@ -:- 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('EpisodeGlob', V). -get_glob(V) :- - ( get_key('EpisodeGlob', V), ! - ; V = '*/*.*' - ). - -set_url(V) :- set_key('UrlPrefix', V). -get_url(V) :- - ( get_key('UrlPrefix', V), ! - ; V = 'https://animixplay.to/v1/detective-conan/ep' - ). - -set_view_watched(V) :- set_key('ViewWatched', V). -get_view_watched(V) :- - ( get_key('ViewWatched', V), - integer(V), ! - ; V = 1 - ). - -set_view_tv_original(V) :- set_key('ViewTVOriginal', V). -get_view_tv_original(V) :- - ( get_key('ViewTVOriginal', V), - integer(V), ! - ; V = 1 - ). - -set_limit_screenwriter(V) :- set_key('LimitScreenwriter', V). -get_limit_screenwriter(V) :- - ( get_key('LimitScreenwriter', V), - atom(V), ! - ; V = "" - ). - -set_sort(V) :- W is V + 2147483647, set_key('Sort', W). -get_sort(V) :- - ( get_key('Sort', W), - integer(W), !, - V is W - 2147483647 - ; V = 1 - ). - -set_focus(V) :- set_key('Focus', V). -get_focus(V) :- - ( get_key('Focus', V), - integer(V), ! - ; V = 1 - ). - -set_dlv_height(V) :- set_key('DlvHeight', V). -get_dlv_height(V) :- - ( get_key('DlvHeight', V), - integer(V), ! - ; V = 0 - ). -- cgit v1.2.3