From 9e8e9eaf5e0cd56de34bdd74b73663de9aa132e3 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?John=20Ankarstr=C3=B6m?= <john@ankarstrom.se>
Date: Wed, 13 Apr 2022 00:46:59 +0200
Subject: Persist sort order.

---
 pl/cfg.pl | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'pl/cfg.pl')

diff --git a/pl/cfg.pl b/pl/cfg.pl
index 78dc267..fa17b38 100644
--- a/pl/cfg.pl
+++ b/pl/cfg.pl
@@ -45,3 +45,11 @@ get_view_tv_original(V) :-
 	    integer(V), !
 	;   V = 1
 	).
+
+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
+	).
-- 
cgit v1.2.3