From 0547afb9d1fa12949eae81a3e5b16b114ba5ea32 Mon Sep 17 00:00:00 2001
From: Rodion Goritskov <rodion.goritskov@gmail.com>
Date: Mon, 15 Apr 2024 00:08:55 +0400
Subject: Make Miniflux configurable

---
 rodion/services/miniflux.scm | 93 ++++++++++++++++++++++++++++++--------------
 1 file changed, 64 insertions(+), 29 deletions(-)

diff --git a/rodion/services/miniflux.scm b/rodion/services/miniflux.scm
index 23db38c..fbd60ab 100644
--- a/rodion/services/miniflux.scm
+++ b/rodion/services/miniflux.scm
@@ -8,47 +8,82 @@
   #:use-module (gnu packages admin)
   #:use-module (gnu services databases)
   #:use-module (rodion packages go)
+  #:use-module (ice-9 string-fun)
   #:export (miniflux-service-type
 	    miniflux-configuration
 	    miniflux-configuration?
 	    miniflux-configuration-test?))
 
-(define-record-type* <miniflux-configuration>
-  miniflux-configuration make-miniflux-configuration
-  miniflux-configuration?
-  (test? miniflux-configuration-test? (default #t)))
+(define (initial-string? val) (string? val))
 
-(define (miniflux-shepherd-service _) (list (shepherd-service
-					     (documentation "Run Miniflux server")
-					     (provision '(miniflux))
-					     (requirement '(networking postgresql))
-					     (start #~(make-forkexec-constructor
-						       (list (string-append #$miniflux "/bin/miniflux"))
-						       #:environment-variables (list
-										"DATABASE_URL=host=/var/run/postgresql user=miniflux dbname=miniflux sslmode=disable"
-										"RUN_MIGRATIONS=1"
-										"CREATE_ADMIN=1"
-										"ADMIN_USERNAME=admin"
-										"ADMIN_PASSWORD=password")
-						       #:user "miniflux"
-						       #:group "miniflux"
-						       #:log-file "/var/log/miniflux.log"))
-					     (stop #~(make-kill-destructor)))))
+(define (serialize-string field-name val)
+  (format #f "~a=~a\n" (string-upcase
+			(string-replace-substring
+			 (if (symbol? field-name) (symbol->string field-name) field-name) "-" "_"))
+	  val))
+
+(define (serialize-initial-string field-name val)
+  (serialize-string (string-drop (symbol->string field-name) 8) val))
+
+(define (non-negative-integer? val)
+  (and (exact-integer? val) (not (negative? val))))
+
+(define (serialize-non-negative-integer field-name val)
+  (serialize-string field-name (number->string val)))
+
+(define-configuration miniflux-configuration
+  (port
+   (non-negative-integer 8080)
+   "Listening port")
+  (initial-admin-username
+   (initial-string "admin")
+   "Initial admin username")
+  (initial-admin-password
+   (initial-string "password")
+   "Initial admin password")
+  (user
+   (string "miniflux")
+   "User name for Postgresql and system account")
+  (database-url
+   (string "host=/var/run/postgresql")
+   "PostgreSQL connection string")
+  (group
+   (string "miniflux")
+   "Group for the system account"
+   empty-serializer)
+  (log-file
+   (string "/var/log/miniflux.log")
+   "Path to the log file"
+   empty-serializer))
+
+(define (miniflux-shepherd-service config)
+  (let* ((config-file (mixed-text-file "miniflux.conf" (serialize-configuration config miniflux-configuration-fields))))
+    (list (shepherd-service
+	   (documentation "Run Miniflux server")
+	   (provision '(miniflux))
+	   (requirement '(networking postgresql))
+	   (start #~(make-forkexec-constructor
+		     (list (string-append #$miniflux "/bin/miniflux")
+			   "-config-file" #$config-file)
+		     #:user #$(miniflux-configuration-user config)
+		     #:group #$(miniflux-configuration-group config)
+		     #:log-file #$(miniflux-configuration-log-file config)))
+	   (stop #~(make-kill-destructor))))))
 
 (define (miniflux-account config) (list (user-group
-					  (name "miniflux")
+					 (name (miniflux-configuration-group config))
 					  (system? #t))
 					 (user-account
-					  (name "miniflux")
-					  (group "miniflux")
+					  (name (miniflux-configuration-user config))
+					  (group (miniflux-configuration-group config))
 					  (home-directory "/var/empty")
 					  (shell (file-append shadow "/sbin/nologin"))
 					  (system? #t))))
 
 (define (miniflux-postgresql-role config)
   (list (postgresql-role
-           (name "miniflux")
-           (create-database? #t))))
+	 (name (miniflux-configuration-user config))
+         (create-database? #t))))
 
 (define miniflux-service-type
   (service-type
@@ -56,10 +91,10 @@
    (description "Miniflux service")
    (default-value (miniflux-configuration))
    (extensions
-    (list (service-extension shepherd-root-service-type
-			     miniflux-shepherd-service)
-	  (service-extension account-service-type
+    (list (service-extension account-service-type
 			     miniflux-account)
 	  (service-extension postgresql-service-type (const #t))
 	  (service-extension postgresql-role-service-type
-			     miniflux-postgresql-role)))))
+			     miniflux-postgresql-role)
+	  (service-extension shepherd-root-service-type
+			     miniflux-shepherd-service)))))
-- 
cgit v1.2.3