iens

commit 7f411676e9f533753bd6c607cf7f9bad7be4bb33
parent 5be9c46881adad82ad35219cec7e3a30cf51ce9f
Author: Natasha Kerensikova <natgh@instinctive.eu>
Date:   Fri,  8 May 2026 15:09:46 +0000

Configuration accessor are common
Diffstat:
M
src/cgi.scm
 | 
9
---------
M
src/common.scm
 | 
12
++++++++++++
M
src/iens.scm
 | 
9
---------

3 files changed, 12 insertions(+), 18 deletions(-)
diff --git a/src/cgi.scm b/src/cgi.scm
@@ -265,15 +265,6 @@ END-OF-CSS
   (die "Unexpectad database version"))
 
 
-(define (get-config key)
-  (query fetch-value (sql db "SELECT val FROM config WHERE key = ?;") key))
-
-(define (get-config/default key default-value)
-  (let ((result (get-config key)))
-    (if result
-        result
-        default-value)))
-
 (define (line->notes line max-width)
   (let loop ((rest (string-split line " " #t))
              (lines  '())
diff --git a/src/common.scm b/src/common.scm
@@ -149,3 +149,15 @@
              WHERE notes LIKE '%https://lobste.rs%';"
           "UPDATE gruik SET mark=-10 WHERE mark=-1;"
           "PRAGMA user_version = 5;")))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;
+;; Database Utilitities
+
+(define (get-config key)
+  (query fetch-value (sql db "SELECT val FROM config WHERE key = ?;") key))
+
+(define (get-config/default key default-value)
+  (let ((result (get-config key)))
+    (if result
+        result
+        default-value)))
diff --git a/src/iens.scm b/src/iens.scm
@@ -139,15 +139,6 @@
       (editor editor)
       (else fallback))))
 
-(define (get-config key)
-  (query fetch-value (sql db "SELECT val FROM config WHERE key = ?;") key))
-
-(define (get-config/default key default-value)
-  (let ((result (get-config key)))
-    (if result
-        result
-        default-value)))
-
 (define (string->filename data)
   (cond ((not data) #f)
         ((starts-with? "~/" data)