From 9a48743eeba0f1bc4cf74f47fef96bdbcadfc98b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?John=20Ankarstr=C3=B6m?= <john@ankarstrom.se>
Date: Tue, 5 Apr 2022 02:37:58 +0200
Subject: Move settings to registry.

---
 pl/cfg.pl | 33 +++++++++++++++++++++++++++++++++
 1 file changed, 33 insertions(+)
 create mode 100644 pl/cfg.pl

(limited to 'pl/cfg.pl')

diff --git a/pl/cfg.pl b/pl/cfg.pl
new file mode 100644
index 0000000..f24e44e
--- /dev/null
+++ b/pl/cfg.pl
@@ -0,0 +1,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-'
+	).
-- 
cgit v1.2.3