seasharp/Rosenthal
1
0
Fork 0
mirror of https://codeberg.org/hako/Rosenthal.git synced 2026-06-06 09:50:36 +00:00
Code Issues Packages Projects Releases Wiki Activity

services: Remove conduit-service-type.

Browse Source 
* modules/rosenthal/services/web.scm (<conduit-configuration>): Delete data
type.
(conduit-service-type): Delete variable.
This commit is contained in:
Hilton Chain 2026-04-11 20:39:11 +08:00
parent 419b4f946f
commit 3bdede4f6f
No known key found for this signature in database
GPG Key ID: ACC66D09CA528292
1 changed files with 0 additions and 95 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

95
modules/rosenthal/services/web.scm
View File

@ -30,9 +30,6 @@
#:export (caddy-configuration
caddy-service-type
conduit-service-type
conduit-configuration
forgejo-configuration
forgejo-service-type
@ -164,98 +161,6 @@
caddy-shepherd-services)))
(description "")))
;;;
;;; Conduit
;;;
(define-configuration/no-serialization conduit-configuration
(conduit
(file-like (file-append conduit-bin "/bin/conduit"))
"")
(database-path
(string "/var/lib/conduit")
"")
(config
gexp
"")
;; Account
(group-id
(user-and-group-id #f)
"")
(user-id
(user-and-group-id #f)
"")
;; Shepherd
(auto-start?
(boolean #t)
"")
(shepherd-provision
(list-of-symbols '(conduit))
"")
(shepherd-requirement
(list-of-symbols '())
""))
(define conduit-account
(match-record-lambda <conduit-configuration>
(group-id user-id)
(list (user-group
(name "conduit")
(id group-id)
(system? #t))
(user-account
(name "conduit")
(group "conduit")
(uid user-id)
(system? #t)
(comment "Conduit user")
(home-directory "/var/empty")))))
(define conduit-activation
(match-record-lambda <conduit-configuration>
(database-path)
(with-imported-modules (source-module-closure '((guix build utils)))
#~(begin
(use-modules (guix build utils))
(let ((user (getpwnam "conduit"))
(directory #$database-path))
(mkdir-p directory)
(chown directory (passwd:uid user) (passwd:gid user))
(chmod directory #o750))))))
(define conduit-shepherd
(match-record-lambda <conduit-configuration>
(conduit config auto-start? shepherd-provision shepherd-requirement)
(let ((config-file (toml-file "conduit.toml" config)))
(list (shepherd-service
(provision shepherd-provision)
(requirement `(networking user-processes ,@shepherd-requirement))
(start
#~(make-forkexec-constructor
(list #$conduit)
#:user "conduit"
#:group "conduit"
#:log-file "/var/log/conduit.log"
#:environment-variables
(list (string-append "CONDUIT_CONFIG=" #$config-file))))
(stop #~(make-kill-destructor))
(actions
(list (shepherd-configuration-action config-file))))))))
(define conduit-service-type
(service-type
(name 'conduit)
(extensions
(list (service-extension account-service-type
conduit-account)
(service-extension activation-service-type
conduit-activation)
(service-extension shepherd-root-service-type
conduit-shepherd)))
(description "Run Conduit.")))
;;;
;;; Forgejo