seasharp/Rosenthal
1
0
Fork 0
mirror of https://codeberg.org/hako/Rosenthal.git synced 2025-10-14 17:34:35 +00:00
Code Issues Packages Projects Releases Wiki Activity

services: misskey: Use serializer from guile-yamlpp.

Browse Source
This commit is contained in:
Hilton Chain 2025-09-25 12:59:01 +08:00
parent ae9586b909
commit b8c3305403
No known key found for this signature in database
GPG Key ID: ACC66D09CA528292
1 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -493,7 +493,7 @@ test its configuration file."))
(string "misskey/misskey:latest") (string "misskey/misskey:latest")
"Misskey docker image to use.") "Misskey docker image to use.")
(config (config
(yaml-config '()) yaml-config
"Alist of Misskey configuration, to be serialized to YAML format.") "Alist of Misskey configuration, to be serialized to YAML format.")
(data-directory (data-directory
(string "/var/lib/misskey") (string "/var/lib/misskey")
@ -530,7 +530,15 @@ test its configuration file."))
(match-record-lambda <misskey-configuration> (match-record-lambda <misskey-configuration>
(image config data-directory log-file ) (image config data-directory log-file )
(let ((config-file (let ((config-file
(mixed-text-file "misskey.yaml" (yaml-serialize config)))) (computed-file "misskey.yaml"
(with-extensions (list guile-yamlpp)
#~(begin
(use-modules (yamlpp))
(call-with-output-file #$output
(lambda (port)
(let ((emitter (make-yaml-emitter)))
(yaml-emit! emitter '#$config)
(display (yaml-emitter-string emitter) port)))))))))
(list (oci-container-configuration (list (oci-container-configuration
(user "misskey") (user "misskey")
(group "docker") (group "docker")
@ -558,7 +566,6 @@ test its configuration file."))
misskey-activation) misskey-activation)
(service-extension oci-container-service-type (service-extension oci-container-service-type
misskey-oci-containers))) misskey-oci-containers)))
(default-value (misskey-configuration))
(description "Run Misskey, an interplanetary microblogging platform."))) (description "Run Misskey, an interplanetary microblogging platform.")))