seasharp/Rosenthal
1
0
Fork 0
mirror of https://codeberg.org/hako/Rosenthal.git synced 2025-11-28 15:24:36 +00:00
Code Issues Packages Projects Releases Wiki Activity

services: Add heisenbridge-service-type.

Browse Source 
* modules/rosenthal/services/messaging.scm (<heisenbridge-configuration>): New
data type.
(heisenbridge-service-type): New variable.
This commit is contained in:
Hilton Chain 2025-11-03 19:38:26 +08:00
parent 312452d1dd
commit 0d15cfdb28
No known key found for this signature in database
GPG Key ID: ACC66D09CA528292
1 changed files with 67 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

68
modules/rosenthal/services/messaging.scm
View File

@ -12,9 +12,75 @@
#:use-module (guix modules)
#:use-module (guix records)
#:use-module (rosenthal packages messaging)
#:export (mautrix-telegram-service-type
#:export (heisenbridge-service-type
heisenbridge-configuration
mautrix-telegram-service-type
mautrix-telegram-configuration))
;;;
;;; Heisenbridge
;;;
(define-configuration/no-serialization heisenbridge-configuration
(heisenbridge
(file-like heisenbridge)
"")
(homeserver
(string "http://localhost:8008")
"")
(config
file-like
"")
(shepherd-provision
(list-of-symbols '(heisenbridge))
"")
(shepherd-requirement
(list-of-symbols '())
"")
(auto-start?
(boolean #t)
""))
(define heisenbridge-account
(list (user-group (name "heisenbridge") (system? #t))
(user-account
(name "heisenbridge")
(group "heisenbridge")
(system? #t)
(home-directory "/var/empty"))))
(define heisenbridge-shepherd
(match-record-lambda <heisenbridge-configuration>
(heisenbridge config homeserver shepherd-provision shepherd-requirement auto-start?)
(list (shepherd-service
(provision shepherd-provision)
(requirement `(user-processes networking ,@shepherd-requirement))
(start
#~(make-forkexec-constructor
(list #$(file-append heisenbridge "/bin/heisenbridge")
"--config" #$config #$homeserver)
#:user "heisenbridge"
#:group "heisenbridge"
#:environment-variables
'("PATH=/run/current-system/profile/bin"
"SSL_CERT_DIR=/run/current-system/profile/etc/ssl/certs"
"SSL_CERT_FILE=/etc/ssl/certs/ca-certificates.crt")))
(stop #~(make-kill-destructor))
(auto-start? auto-start?)
(actions (list (shepherd-configuration-action config)))))))
(define heisenbridge-service-type
(service-type
(name 'heisenbridge)
(extensions
(list (service-extension account-service-type
(const heisenbridge-account))
(service-extension shepherd-root-service-type
heisenbridge-shepherd)))
(description "")))
;;;
;;; Mautrix Telegram
;;;