seasharp/Rosenthal
1
0
Fork 0
mirror of https://codeberg.org/hako/Rosenthal.git synced 2026-04-01 07:04:23 +00:00
Code Issues Packages Projects Releases Wiki Activity

Compare commits

base: seasharp:eaa1d09454937f51883c5a1371abdbc701c783f1
Branches Tags
seasharp:trunk
seasharp:keyring
..
compare: seasharp:a3e553fc65aa3b2e10bdad0ed8ba9ef73c03859c
Branches Tags
seasharp:trunk
seasharp:keyring

No commits in common. "eaa1d09454937f51883c5a1371abdbc701c783f1" and "a3e553fc65aa3b2e10bdad0ed8ba9ef73c03859c" have entirely different histories.
eaa1d09454 ... a3e553fc65

4 changed files with 1741 additions and 113 deletions
Show Stats Expand all files Collapse all files

1625
modules/rosenthal/packages/rust-crates.scm
View File

File diff suppressed because it is too large Load Diff

14
modules/rosenthal/packages/web.scm
View File

@ -290,3 +290,17 @@ looking for a reliable platform to manage their software projects.")
(license license:gpl3+) (license license:gpl3+)
(properties (properties
'((disable-updater? . #t))))) '((disable-updater? . #t)))))
(define-public iocaine/dolly
(package
(inherit iocaine)
(name "iocaine-dolly")
(version "2.5.0")
(source
(origin
(method url-fetch)
(uri (crate-uri "iocaine" version))
(file-name (string-append name "-" version ".tar.gz"))
(sha256
(base32 "1x445vnalm323qphxfbfrdzmv9q83h2kybimwm2j39j9p9hj188s"))))
(inputs (cons* jemalloc (rosenthal-cargo-inputs 'iocaine)))))

29
modules/rosenthal/services/mail.scm
View File

@ -3,19 +3,18 @@
;;; SPDX-License-Identifier: GPL-3.0-or-later ;;; SPDX-License-Identifier: GPL-3.0-or-later
(define-module (rosenthal services mail) (define-module (rosenthal services mail)
#:use-module (gnu home services shepherd) #:use-module (srfi srfi-26)
#:use-module (gnu home services)
#:use-module (gnu packages mail)
#:use-module (gnu services admin)
#:use-module (gnu services configuration)
#:use-module (gnu services containers)
#:use-module (gnu services docker)
#:use-module (gnu services shepherd)
#:use-module (gnu services)
#:use-module (guix gexp) #:use-module (guix gexp)
#:use-module (guix records) #:use-module (guix records)
#:use-module (rosenthal utils serializers yaml) #:use-module (rosenthal utils serializers yaml)
#:use-module (srfi srfi-26) #:use-module (gnu services)
#:use-module (gnu services admin)
#:use-module (gnu services configuration)
#:use-module (gnu services docker)
#:use-module (gnu services shepherd)
#:use-module (gnu home services)
#:use-module (gnu home services shepherd)
#:use-module (gnu packages mail)
#:export (docker-mailserver-configuration #:export (docker-mailserver-configuration
docker-mailserver-service-type docker-mailserver-service-type
@ -46,13 +45,11 @@
"List of extra Docker arguments.") "List of extra Docker arguments.")
(no-serialization)) (no-serialization))
(define docker-mailserver-oci (define docker-mailserver-oci-containers
(match-record-lambda <docker-mailserver-configuration> (match-record-lambda <docker-mailserver-configuration>
(data-directory log-file shepherd-requirement options extra-arguments) (data-directory log-file shepherd-requirement options extra-arguments)
(let ((docker-mailserver-path (let ((docker-mailserver-path
(cut string-append data-directory <>))) (cut string-append data-directory <>)))
(oci-extension
(containers
(list (oci-container-configuration (list (oci-container-configuration
(environment options) (environment options)
(image "ghcr.io/docker-mailserver/docker-mailserver:latest") (image "ghcr.io/docker-mailserver/docker-mailserver:latest")
@ -66,14 +63,14 @@
(,(docker-mailserver-path "/logs") . "/var/log/mail") (,(docker-mailserver-path "/logs") . "/var/log/mail")
(,(docker-mailserver-path "/config") . "/tmp/docker-mailserver") (,(docker-mailserver-path "/config") . "/tmp/docker-mailserver")
("/etc/localtime" . "/etc/localtime:ro"))) ("/etc/localtime" . "/etc/localtime:ro")))
(extra-arguments extra-arguments)))))))) (extra-arguments extra-arguments))))))
(define docker-mailserver-service-type (define docker-mailserver-service-type
(service-type (service-type
(name 'docker-mailserver) (name 'docker-mailserver)
(extensions (extensions
(list (service-extension oci-service-type (list (service-extension oci-container-service-type
docker-mailserver-oci) docker-mailserver-oci-containers)
(service-extension log-rotation-service-type (service-extension log-rotation-service-type
(compose list docker-mailserver-configuration-log-file)))) (compose list docker-mailserver-configuration-log-file))))
(default-value (docker-mailserver-configuration)) (default-value (docker-mailserver-configuration))

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

@ -3,25 +3,23 @@
;;; SPDX-License-Identifier: GPL-3.0-or-later ;;; SPDX-License-Identifier: GPL-3.0-or-later
(define-module (rosenthal services web) (define-module (rosenthal services web)
#:use-module (guix gexp)
#:use-module (guix modules)
#:use-module (guix records)
#:use-module (gnu packages admin) #:use-module (gnu packages admin)
#:use-module (gnu packages guile-xyz) #:use-module (gnu packages guile-xyz)
#:use-module (gnu packages version-control) #:use-module (gnu packages version-control)
#:use-module (gnu packages video) #:use-module (gnu packages video)
#:use-module (gnu packages web) #:use-module (rosenthal packages binaries)
#:use-module (rosenthal packages web)
#:use-module (gnu services)
#:use-module (gnu services admin) #:use-module (gnu services admin)
#:use-module (gnu services configuration) #:use-module (gnu services configuration)
#:use-module (gnu services containers)
#:use-module (gnu services databases) #:use-module (gnu services databases)
#:use-module (gnu services docker) #:use-module (gnu services docker)
#:use-module (gnu services shepherd) #:use-module (gnu services shepherd)
#:use-module (gnu services)
#:use-module (gnu system privilege) #:use-module (gnu system privilege)
#:use-module (gnu system shadow) #:use-module (gnu system shadow)
#:use-module (guix gexp)
#:use-module (guix modules)
#:use-module (guix records)
#:use-module (rosenthal packages binaries)
#:use-module (rosenthal packages web)
#:use-module (rosenthal utils serializers ini) #:use-module (rosenthal utils serializers ini)
#:use-module (rosenthal utils serializers yaml) #:use-module (rosenthal utils serializers yaml)
#:export (caddy-configuration #:export (caddy-configuration
@ -270,7 +268,7 @@ reload its configuration file."))
(define-configuration/no-serialization iocaine-configuration (define-configuration/no-serialization iocaine-configuration
(iocaine (iocaine
(file-like iocaine) (file-like iocaine/dolly)
"") "")
(config (config
file-object file-object
@ -395,12 +393,10 @@ test its configuration file."))
(chown directory (passwd:uid user) (passwd:gid user)))) (chown directory (passwd:uid user) (passwd:gid user))))
'#$(list cache-directory config-directory))))) '#$(list cache-directory config-directory)))))
(define jellyfin-oci (define jellyfin-oci-containers
(match-record-lambda <jellyfin-configuration> (match-record-lambda <jellyfin-configuration>
(cache-directory config-directory (cache-directory config-directory
proxy-url log-file auto-start? extra-options) proxy-url log-file auto-start? extra-options)
(oci-extension
(containers
(list (oci-container-configuration (list (oci-container-configuration
(user "jellyfin") (user "jellyfin")
(group "docker") (group "docker")
@ -418,7 +414,7 @@ test its configuration file."))
(volumes (volumes
`((,cache-directory . "/cache") `((,cache-directory . "/cache")
(,config-directory . "/config"))) (,config-directory . "/config")))
(extra-arguments extra-options))))))) (extra-arguments extra-options)))))
(define jellyfin-service-type (define jellyfin-service-type
(service-type (service-type
@ -430,8 +426,8 @@ test its configuration file."))
jellyfin-activation) jellyfin-activation)
(service-extension log-rotation-service-type (service-extension log-rotation-service-type
(compose list jellyfin-configuration-log-file)) (compose list jellyfin-configuration-log-file))
(service-extension oci-service-type (service-extension oci-container-service-type
jellyfin-oci))) jellyfin-oci-containers)))
(default-value (jellyfin-configuration)) (default-value (jellyfin-configuration))
(description "Run Jellyfin, a media system."))) (description "Run Jellyfin, a media system.")))
@ -543,7 +539,7 @@ test its configuration file."))
(mkdir-p #$data-directory) (mkdir-p #$data-directory)
(chown #$data-directory (passwd:uid user) (passwd:gid user))))))) (chown #$data-directory (passwd:uid user) (passwd:gid user)))))))
(define misskey-oci (define misskey-oci-containers
(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
@ -556,8 +552,6 @@ test its configuration file."))
(let ((emitter (make-yaml-emitter))) (let ((emitter (make-yaml-emitter)))
(yaml-emit! emitter '#$config) (yaml-emit! emitter '#$config)
(display (yaml-emitter-string emitter) port))))))))) (display (yaml-emitter-string emitter) port)))))))))
(oci-extension
(containers
(list (oci-container-configuration (list (oci-container-configuration
(user "misskey") (user "misskey")
(group "docker") (group "docker")
@ -569,7 +563,7 @@ test its configuration file."))
(network "host") (network "host")
(volumes (volumes
`((,(string-append data-directory "/files") . "/misskey/files") `((,(string-append data-directory "/files") . "/misskey/files")
(,config-file . "/misskey/.config/default.yml")))))))))) (,config-file . "/misskey/.config/default.yml"))))))))
(define misskey-service-type (define misskey-service-type
(service-type (service-type
@ -583,8 +577,8 @@ test its configuration file."))
(compose list misskey-configuration-log-file)) (compose list misskey-configuration-log-file))
(service-extension activation-service-type (service-extension activation-service-type
misskey-activation) misskey-activation)
(service-extension oci-service-type (service-extension oci-container-service-type
misskey-oci))) misskey-oci-containers)))
(description "Run Misskey, an interplanetary microblogging platform."))) (description "Run Misskey, an interplanetary microblogging platform.")))
@ -723,11 +717,9 @@ test its configuration file."))
(write-char #\newline port))) (write-char #\newline port)))
(chown #$log-file (passwd:uid user) (passwd:gid user))))))) (chown #$log-file (passwd:uid user) (passwd:gid user)))))))
(define vaultwarden-oci (define vaultwarden-oci-containers
(match-record-lambda <vaultwarden-configuration> (match-record-lambda <vaultwarden-configuration>
(admin-token database-url port data-directory log-file proxy-url extra-options) (admin-token database-url port data-directory log-file proxy-url extra-options)
(oci-extension
(containers
(list (oci-container-configuration (list (oci-container-configuration
(user "vaultwarden") (user "vaultwarden")
(group "docker") (group "docker")
@ -756,7 +748,7 @@ test its configuration file."))
`(,@(if (maybe-value-set? admin-token) `(,@(if (maybe-value-set? admin-token)
'("--env" "ADMIN_TOKEN") '("--env" "ADMIN_TOKEN")
'()) '())
"--env" "DATABASE_URL")))))))) "--env" "DATABASE_URL"))))))
(define vaultwarden-service-type (define vaultwarden-service-type
(service-type (service-type
@ -770,6 +762,6 @@ test its configuration file."))
vaultwarden-activation) vaultwarden-activation)
(service-extension log-rotation-service-type (service-extension log-rotation-service-type
(compose list vaultwarden-configuration-log-file)) (compose list vaultwarden-configuration-log-file))
(service-extension oci-service-type (service-extension oci-container-service-type
vaultwarden-oci))) vaultwarden-oci-containers)))
(description "Run Vaultwarden, a Bitwarden compatible server."))) (description "Run Vaultwarden, a Bitwarden compatible server.")))