seasharp/Rosenthal
1
0
Fork 0
mirror of https://codeberg.org/hako/Rosenthal.git synced 2026-02-08 20:52:40 +00:00
Code Issues Packages Projects Releases Wiki Activity

services: Add mautrix-telegram-service-type.

Browse Source 
* modules/rosenthal/services/messaging.scm (<mautrix-telegram-configuration>):
New data type.
* modules/rosenthal/services/messaging.scm (mautrix-telegram-service-type):
New variable.
This commit is contained in:
Hilton Chain 2025-11-02 09:11:43 +08:00
parent 29d57819f9
commit 56ed0382d7
No known key found for this signature in database
GPG Key ID: ACC66D09CA528292
1 changed files with 89 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

89
modules/rosenthal/services/messaging.scm Normal file
View File

@ -0,0 +1,89 @@
;;; SPDX-FileCopyrightText: 2025 Hilton Chain <hako@ultrarare.space>
;;;
;;; SPDX-License-Identifier: GPL-3.0-or-later
(define-module (rosenthal services messaging)
#:use-module (gnu services configuration)
#:use-module (gnu services databases)
#:use-module (gnu services shepherd)
#:use-module (gnu services)
#:use-module (gnu system shadow)
#:use-module (guix gexp)
#:use-module (guix modules)
#:use-module (guix records)
#:use-module (rosenthal packages messaging)
#:export (mautrix-telegram-service-type
mautrix-telegram-configuration))
;;;
;;; Mautrix Telegram
;;;
(define-configuration/no-serialization mautrix-telegram-configuration
(mautrix-telegram
(file-like mautrix-telegram)
"")
(config
file-like
"")
(shepherd-provision
(list-of-symbols '(mautrix-telegram))
"")
(shepherd-requirement
(list-of-symbols '())
"")
(auto-start?
(boolean #t)
""))
(define mautrix-telegram-account
(list (user-group (name "mautrix") (system? #t))
(user-account
(name "mautrix-telegram")
(group "mautrix")
(system? #t)
(home-directory "/var/lib/mautrix-telegram"))))
(define mautrix-telegram-activation
(with-imported-modules (source-module-closure '((gnu build activation)))
#~(begin
(use-modules (gnu build activation))
(let ((user (getpwnam "mautrix-telegram")))
(mkdir-p/perms "/var/lib/mautrix-telegram" user #o700)))))
(define mautrix-telegram-postgresql-role
(list (postgresql-role
(name "mautrix-telegram")
(create-database? #t))))
(define mautrix-telegram-shepherd
(match-record-lambda <mautrix-telegram-configuration>
(mautrix-telegram config shepherd-provision shepherd-requirement auto-start?)
(list (shepherd-service
(provision shepherd-provision)
(requirement
`(user-processes networking postgresql ,@shepherd-requirement))
(start
#~(make-forkexec-constructor
(list #$(file-append mautrix-telegram "/bin/mautrix-telegram")
"--no-update" "--config" #$config)
#:user "mautrix-telegram"
#:group "mautrix"
#:directory "/var/lib/mautrix-telegram"))
(stop #~(make-kill-destructor))
(auto-start? auto-start?)
(actions (list (shepherd-configuration-action config)))))))
(define mautrix-telegram-service-type
(service-type
(name 'mautrix-telegram)
(extensions
(list (service-extension account-service-type
(const mautrix-telegram-account))
(service-extension activation-service-type
(const mautrix-telegram-activation))
(service-extension postgresql-role-service-type
(const mautrix-telegram-postgresql-role))
(service-extension shepherd-root-service-type
mautrix-telegram-shepherd)))
(description "")))