From 41dc65b0487f450a066e74edece5a527036b0748 Mon Sep 17 00:00:00 2001
From: Rodion Goritskov <rodion.goritskov@gmail.com>
Date: Sun, 14 Apr 2024 21:21:09 +0400
Subject: Add initial Miniflux version

---
 rodion/services/miniflux.scm | 70 ++++++++++++++++++++++++++++++++++++++------
 1 file changed, 61 insertions(+), 9 deletions(-)

diff --git a/rodion/services/miniflux.scm b/rodion/services/miniflux.scm
index 17f7876..23db38c 100644
--- a/rodion/services/miniflux.scm
+++ b/rodion/services/miniflux.scm
@@ -1,13 +1,65 @@
 (define-module (rodion services miniflux)
-  #:use-module (gnu services shepherd))
+  #:use-module (gnu services shepherd)
+  #:use-module (gnu services)
+  #:use-module (gnu services configuration)
+  #:use-module (gnu system shadow)
+  #:use-module (guix gexp)
+  #:use-module (guix records)
+  #:use-module (gnu packages admin)
+  #:use-module (gnu services databases)
+  #:use-module (rodion packages go)
+  #:export (miniflux-service-type
+	    miniflux-configuration
+	    miniflux-configuration?
+	    miniflux-configuration-test?))
 
-(define miniflux-shepherd-service (shepherd-service
-				   (documentation "Run Miniflux server")
-				   (provision '(miniflux))
-				   (requirement '(networking postgresql))))
+(define-record-type* <miniflux-configuration>
+  miniflux-configuration make-miniflux-configuration
+  miniflux-configuration?
+  (test? miniflux-configuration-test? (default #t)))
+
+(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 (miniflux-account config) (list (user-group
+					  (name "miniflux")
+					  (system? #t))
+					 (user-account
+					  (name "miniflux")
+					  (group "miniflux")
+					  (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))))
 
 (define miniflux-service-type
-  (service-type (name 'miniflux)
-		(extensions
-		 (list (service-extension shepherd-root-service-type
-					  miniflux-shepherd-service)))))
+  (service-type
+   (name 'miniflux)
+   (description "Miniflux service")
+   (default-value (miniflux-configuration))
+   (extensions
+    (list (service-extension shepherd-root-service-type
+			     miniflux-shepherd-service)
+	  (service-extension account-service-type
+			     miniflux-account)
+	  (service-extension postgresql-service-type (const #t))
+	  (service-extension postgresql-role-service-type
+			     miniflux-postgresql-role)))))
-- 
cgit v1.2.3