mirror of
https://codeberg.org/hako/Rosenthal.git
synced 2025-01-10 20:40:42 +00:00
a8af080932
* rosenthal/packages/binaries.scm (clash-meta-bin): Update to 1.18.0. Rename to… (mihomo-bin): …this. (clash-meta-bin): Define as deprecated package. * rosenthal/services/child-error.scm (clash-shepherd-service): Adjust accordingly.
567 lines
19 KiB
Scheme
567 lines
19 KiB
Scheme
;; SPDX-FileCopyrightText: 2022, 2023 Hilton Chain <hako@ultrarare.space>
|
||
;;
|
||
;; SPDX-License-Identifier: GPL-3.0-or-later
|
||
|
||
(define-module (rosenthal services child-error)
|
||
#:use-module (guix records)
|
||
#:use-module (guix gexp)
|
||
#:use-module (gnu home services)
|
||
#:use-module (gnu home services shepherd)
|
||
#:use-module (gnu packages admin)
|
||
#:use-module (gnu packages web)
|
||
#:use-module (gnu services)
|
||
#:use-module (gnu services admin)
|
||
#:use-module (gnu services configuration)
|
||
#:use-module (gnu services databases)
|
||
#:use-module (gnu services shepherd)
|
||
#:use-module (gnu system shadow)
|
||
#:use-module (rosenthal packages binaries)
|
||
#:use-module (rosenthal packages networking)
|
||
#:use-module (rosenthal utils home-services-utils)
|
||
#:export (clash-configuration
|
||
clash-service-type
|
||
|
||
cloudflare-tunnel-configuration
|
||
cloudflare-tunnel-service-type
|
||
|
||
cloudflare-warp-configuration
|
||
cloudflare-warp-service-type
|
||
|
||
miniflux-configuration
|
||
miniflux-service-type
|
||
|
||
home-wakapi-configuration
|
||
home-wakapi-service-type
|
||
|
||
shadow-tls-configuration
|
||
shadow-tls-client-configuration
|
||
shadow-tls-server-configuration
|
||
shadow-tls-service-type
|
||
home-shadow-tls-service-type
|
||
|
||
home-socks2http-configuration
|
||
home-socks2http-service-type))
|
||
|
||
;;
|
||
;; Clash
|
||
;;
|
||
|
||
|
||
(define-configuration clash-configuration
|
||
(clash
|
||
(file-like clash-bin)
|
||
"The clash package.")
|
||
|
||
(log-file
|
||
(string "/var/log/clash.log")
|
||
"Where the logs go.")
|
||
|
||
(data-directory
|
||
(string "/var/lib/clash")
|
||
"Where to store data.")
|
||
|
||
(config
|
||
(file-like (plain-file "empty" ""))
|
||
"Clash configuration file.")
|
||
|
||
(shepherd-provision
|
||
(list '(clash))
|
||
"A list of Shepherd service names (symbols) provided by this service.")
|
||
(no-serialization))
|
||
|
||
(define %clash-accounts
|
||
(list (user-group (name "clash") (system? #t))
|
||
(user-account
|
||
(name "clash")
|
||
(group "clash")
|
||
(system? #t)
|
||
(home-directory "/var/empty")
|
||
(shell (file-append shadow "/sbin/nologin")))))
|
||
|
||
(define clash-activation
|
||
(match-record-lambda <clash-configuration>
|
||
(clash log-file data-directory config)
|
||
#~(begin
|
||
(use-modules (guix build utils))
|
||
(let ((config-dest (string-append #$data-directory "/config.yaml"))
|
||
(user (getpwnam "clash")))
|
||
(mkdir-p #$data-directory)
|
||
(chown #$data-directory (passwd:uid user) (passwd:gid user))
|
||
(if (file-exists? config-dest)
|
||
(delete-file config-dest))
|
||
(symlink #$config config-dest)))))
|
||
|
||
(define (clash-log-rotations config)
|
||
(list (log-rotation
|
||
(files (list (clash-configuration-log-file config))))))
|
||
|
||
(define clash-shepherd-service
|
||
(match-record-lambda <clash-configuration>
|
||
(clash log-file data-directory config shepherd-provision)
|
||
(list (shepherd-service
|
||
(documentation "Run clash.")
|
||
(provision shepherd-provision)
|
||
(requirement '(loopback networking))
|
||
(start #~(make-forkexec-constructor
|
||
(list (let ((mihomo-cmd
|
||
#$(file-append clash "/bin/mihomo"))
|
||
(clash-cmd
|
||
#$(file-append clash "/bin/clash")))
|
||
(if (file-exists? mihomo-cmd)
|
||
mihomo-cmd
|
||
clash-cmd))
|
||
"-d" #$data-directory)
|
||
#:user "clash"
|
||
#:group "clash"
|
||
#:log-file #$log-file))
|
||
(stop #~(make-kill-destructor))
|
||
(actions
|
||
(list (shepherd-configuration-action
|
||
(string-append data-directory "/config.yaml"))))))))
|
||
|
||
(define clash-service-type
|
||
(service-type
|
||
(name 'clash)
|
||
(extensions
|
||
(list (service-extension shepherd-root-service-type
|
||
clash-shepherd-service)
|
||
(service-extension activation-service-type
|
||
clash-activation)
|
||
(service-extension account-service-type
|
||
(const %clash-accounts))
|
||
(service-extension rottlog-service-type
|
||
clash-log-rotations)))
|
||
(default-value (clash-configuration))
|
||
(description "Run Clash.")))
|
||
|
||
|
||
;;
|
||
;; Cloudflare Tunnel
|
||
;;
|
||
|
||
|
||
(define-configuration cloudflare-tunnel-configuration
|
||
(cloudflared
|
||
(file-like cloudflared)
|
||
"The cloudflared executable.")
|
||
|
||
;; Tunnel options
|
||
(metrics
|
||
(string "localhost:")
|
||
"Listen address for metrics reporting.")
|
||
(log-level
|
||
(string "info")
|
||
"Application logging level (@code{debug}, @code{info}, @code{warn},
|
||
@code{error}, @code{fatal}). At debug level cloudflared will log request URL,
|
||
method, protocol, content length, as well as, all request and response
|
||
headers. This can expose sensitive information in your logs.")
|
||
(log-file
|
||
(string "/var/log/cloudflared.log")
|
||
"File path to store logs.")
|
||
(extra-tunnel-options
|
||
(list-of-strings '())
|
||
"List of extra tunnel options.")
|
||
|
||
;; Subcommand options
|
||
(token
|
||
(string "")
|
||
"The Tunnel token.")
|
||
(http2-origin?
|
||
(boolean #f)
|
||
"Enable HTTP/2 origin servers.")
|
||
(post-quantum?
|
||
(boolean #f)
|
||
"Create an experimental post-quantum secure tunnel.")
|
||
(extra-options
|
||
(list-of-strings '())
|
||
"List of extra options.")
|
||
(no-serialization))
|
||
|
||
(define (cloudflare-tunnel-log-rotations config)
|
||
(list (log-rotation
|
||
(files (list (cloudflare-tunnel-configuration-log-file config))))))
|
||
|
||
(define cloudflare-tunnel-shepherd-service
|
||
(match-record-lambda <cloudflare-tunnel-configuration>
|
||
(cloudflared metrics log-level log-file extra-tunnel-options
|
||
token http2-origin? post-quantum? extra-options)
|
||
(list (shepherd-service
|
||
(documentation "Run cloudflared.")
|
||
(provision '(cloudflare-tunnel))
|
||
(requirement '(loopback networking))
|
||
(start #~(make-forkexec-constructor
|
||
(list #$(file-append cloudflared "/bin/cloudflared")
|
||
"tunnel"
|
||
"--no-autoupdate"
|
||
"--metrics" #$metrics
|
||
"--loglevel" #$log-level
|
||
#$@extra-tunnel-options
|
||
|
||
"run"
|
||
#$@(if http2-origin?
|
||
'("--http2-origin")
|
||
'())
|
||
#$@(if post-quantum?
|
||
'("--post-quantum")
|
||
'())
|
||
#$@extra-options)
|
||
#:user "nobody"
|
||
#:group "nogroup"
|
||
#:log-file #$log-file
|
||
#:environment-variables
|
||
(list (format #f "TUNNEL_TOKEN=~a" #$token))))
|
||
(stop #~(make-kill-destructor))))))
|
||
|
||
(define cloudflare-tunnel-service-type
|
||
(service-type
|
||
(name 'cloudflare-tunnel)
|
||
(extensions
|
||
(list (service-extension shepherd-root-service-type
|
||
cloudflare-tunnel-shepherd-service)
|
||
(service-extension rottlog-service-type
|
||
cloudflare-tunnel-log-rotations)))
|
||
(default-value (cloudflare-tunnel-configuration))
|
||
(description "Run cloudflared, the Cloudflare Tunnel daemon.")))
|
||
|
||
|
||
;;
|
||
;; Cloudflare Warp
|
||
;;
|
||
|
||
|
||
(define-configuration cloudflare-warp-configuration
|
||
(cloudflare-warp
|
||
(file-like cloudflare-warp-bin)
|
||
"The Cloudflare Warp package.")
|
||
(no-serialization))
|
||
|
||
(define cloudflare-warp-shepherd-service
|
||
(match-record-lambda <cloudflare-warp-configuration>
|
||
(cloudflare-warp)
|
||
(list (shepherd-service
|
||
(documentation "Run warp-svc.")
|
||
(provision '(cloudflare-warp))
|
||
(start #~(make-forkexec-constructor
|
||
(list #$(file-append cloudflare-warp "/bin/warp-svc"))))
|
||
(stop #~(make-kill-destructor))))))
|
||
|
||
(define cloudflare-warp-service-type
|
||
(service-type
|
||
(name 'cloudflare-warp)
|
||
(extensions
|
||
(list (service-extension shepherd-root-service-type
|
||
cloudflare-warp-shepherd-service)
|
||
(service-extension
|
||
profile-service-type
|
||
(compose list cloudflare-warp-configuration-cloudflare-warp))))
|
||
(default-value (cloudflare-warp-configuration))
|
||
(description "Run warp-svc, the Cloudflare Warp daemon.")))
|
||
|
||
|
||
;;
|
||
;; Miniflux
|
||
;;
|
||
|
||
|
||
(define-configuration miniflux-configuration
|
||
(miniflux
|
||
(file-like miniflux)
|
||
"The miniflux package.")
|
||
(log-file
|
||
(string "/var/log/miniflux.log")
|
||
"Where the logs go.")
|
||
(options
|
||
(alist '())
|
||
"Association list of miniflux configuration options.")
|
||
(no-serialization))
|
||
|
||
(define %miniflux-accounts
|
||
(list (user-account
|
||
(name "miniflux")
|
||
(group "nogroup")
|
||
(system? #t)
|
||
(home-directory "/var/empty")
|
||
(shell (file-append shadow "/sbin/nologin")))))
|
||
|
||
(define %miniflux-postgresql-role
|
||
(list (postgresql-role
|
||
(name "miniflux")
|
||
(create-database? #t))))
|
||
|
||
(define miniflux-shepherd-service
|
||
(match-record-lambda <miniflux-configuration>
|
||
(miniflux log-file options)
|
||
(let ((config-file (mixed-text-file
|
||
"miniflux.conf"
|
||
(apply string-append
|
||
(map (lambda (option)
|
||
(format #f "~a=~a~%"
|
||
(car option) (cdr option)))
|
||
options)))))
|
||
(list (shepherd-service
|
||
(documentation "Run miniflux.")
|
||
(provision '(miniflux))
|
||
(requirement '(postgres user-processes))
|
||
(start #~(make-forkexec-constructor
|
||
(list #$miniflux "-config-file" #$config-file)
|
||
#:user "miniflux"
|
||
#:group "nogroup"
|
||
#:log-file #$log-file))
|
||
(stop #~(make-kill-destructor)))))))
|
||
|
||
(define miniflux-service-type
|
||
(service-type
|
||
(name 'miniflux)
|
||
(extensions
|
||
(list (service-extension account-service-type
|
||
(const %miniflux-accounts))
|
||
(service-extension postgresql-role-service-type
|
||
(const %miniflux-postgresql-role))
|
||
(service-extension shepherd-root-service-type
|
||
miniflux-shepherd-service)))
|
||
(default-value (miniflux-configuration))
|
||
(description "Run Miniflux, a minimalist and opinionated feed reader.")))
|
||
|
||
|
||
;;
|
||
;; Wakapi
|
||
;;
|
||
|
||
|
||
(define-configuration home-wakapi-configuration
|
||
(wakapi
|
||
(file-like wakapi-bin)
|
||
"The wakapi package.")
|
||
(config
|
||
(yaml-config '())
|
||
"Association list of Wakapi configurations.")
|
||
(no-serialization))
|
||
|
||
(define home-wakapi-shepherd-service
|
||
(match-record-lambda <home-wakapi-configuration>
|
||
(wakapi config)
|
||
(let ((config-file (mixed-text-file
|
||
"wakapi.yaml"
|
||
#~(string-append #$@(serialize-yaml-config config) "\n"))))
|
||
(list (shepherd-service
|
||
(documentation "Run wakapi.")
|
||
(provision '(wakapi))
|
||
(start #~(make-forkexec-constructor
|
||
(list #$(file-append wakapi "/bin/wakapi")
|
||
"-config" #$config-file)))
|
||
(stop #~(make-kill-destructor))
|
||
(actions (list (shepherd-configuration-action config-file))))))))
|
||
|
||
(define home-wakapi-service-type
|
||
(service-type
|
||
(name 'home-wakapi)
|
||
(extensions
|
||
(list (service-extension home-shepherd-service-type
|
||
home-wakapi-shepherd-service)))
|
||
(default-value (home-wakapi-configuration))
|
||
(description "Run Wakapi, a self-hosted WakaTime-compatible backend.")))
|
||
|
||
|
||
;;
|
||
;; ShadowTLS
|
||
;;
|
||
|
||
|
||
(define-maybe list-of-strings
|
||
(no-serialization))
|
||
|
||
(define-configuration shadow-tls-client-configuration
|
||
(listen-address
|
||
(string "")
|
||
"Listen address with port. Usually this port is used by Shadowsocks
|
||
client.")
|
||
(server-address
|
||
(string "")
|
||
"ShadowTLS server address with port.")
|
||
(sni-list
|
||
(list-of-strings '(""))
|
||
"SNI list.")
|
||
(password
|
||
(string "")
|
||
"Must be the same as the ShadowTLS server.")
|
||
(alpn
|
||
maybe-list-of-strings
|
||
"ALPN ext. Do not use unless you know what you are doing.")
|
||
(no-serialization))
|
||
|
||
(define-configuration shadow-tls-server-configuration
|
||
(listen-address
|
||
(string "")
|
||
"Listen address with port.")
|
||
(server-address
|
||
(string "")
|
||
"Data server address with port. Usually this port is listened by Shadowsocks
|
||
server.")
|
||
(tls-name-list
|
||
(list-of-strings '(""))
|
||
"TLS names. There must be a fallback server name at the last, and there can
|
||
be multiple mappings. Mappings can be represented as
|
||
@code{ServerName:Host:Port}. Host can be omitted, in this case
|
||
@code{ServerName} is used as @code{Host}. @code{Port} can be omitted too, which
|
||
is @code{443} by default")
|
||
(password
|
||
(string "")
|
||
"Must be the same as the ShadowTLS client.")
|
||
(no-serialization))
|
||
|
||
(define-record-type* <shadow-tls-configuration> shadow-tls-configuration
|
||
make-shadow-tls-configuration
|
||
shadow-tls-configuration?
|
||
this-shadow-tls-configuration
|
||
|
||
(shadow-tls shadow-tls-configuration-shadow-tls ;file-like
|
||
(default shadow-tls-bin))
|
||
(threads shadow-tls-configuration-threads ;integer | #f
|
||
(default #f))
|
||
(no-delay? shadow-tls-configuration-disable-no-delay? ;boolean
|
||
(default #t))
|
||
(v3-protocol? shadow-tls-configuration-v3-protocol? ;boolean
|
||
(default #f))
|
||
(log-level shadow-tls-configuration-log-level ;string
|
||
(default "info"))
|
||
(client shadow-tls-configuration-client ;<shadow-tls-client-configuration> | #f
|
||
(default #f))
|
||
(server shadow-tls-configuration-server ;<shadow-tls-server-configuration> | #f
|
||
(default #f))
|
||
(home-service? shadow-tls-configuration-home-service?
|
||
(default for-home?) (innate)))
|
||
|
||
(define shadow-tls-shepherd-service
|
||
(match-record-lambda <shadow-tls-configuration>
|
||
(shadow-tls threads no-delay? v3-protocol? log-level client server
|
||
home-service?)
|
||
(let ((common-options
|
||
(append (if threads
|
||
`("--threads" ,(number->string threads))
|
||
'())
|
||
(if no-delay?
|
||
'()
|
||
'("--disable-nodelay"))
|
||
(if v3-protocol?
|
||
'("--v3")
|
||
'()))))
|
||
(append
|
||
(if client
|
||
(match-record client
|
||
<shadow-tls-client-configuration>
|
||
(listen-address server-address sni-list password alpn)
|
||
(let ((log-file
|
||
(if home-service?
|
||
#~(string-append %user-log-dir "/shadow-tls-client.log")
|
||
"/var/log/shadow-tls-client.log")))
|
||
(list (shepherd-service
|
||
(documentation "Run shadow-tls client.")
|
||
(provision '(shadow-tls-client))
|
||
(requirement (if home-service? '() '(networking)))
|
||
(modules '((shepherd support)))
|
||
(start #~(make-forkexec-constructor
|
||
(list #$(file-append
|
||
shadow-tls "/bin/shadow-tls")
|
||
#$@common-options
|
||
"client"
|
||
"--listen" #$listen-address
|
||
"--server" #$server-address
|
||
"--sni" #$(string-join sni-list ";")
|
||
"--password" #$password
|
||
#$@(if (maybe-value-set? alpn)
|
||
`("--alpn" ,(string-join alpn ";"))
|
||
'()))
|
||
#:user #$(and (not home-service?) "nobody")
|
||
#:group #$(and (not home-service?) "nogroup")
|
||
#:log-file #$log-file
|
||
#:environment-variables
|
||
(list (string-append "RUST_LOG=" #$log-level))))
|
||
(stop #~(make-kill-destructor))))))
|
||
'())
|
||
(if server
|
||
(match-record server
|
||
<shadow-tls-server-configuration>
|
||
(listen-address server-address tls-name-list password)
|
||
(let ((log-file
|
||
(if home-service?
|
||
#~(string-append %user-log-dir "/shadow-tls-server.log")
|
||
"/var/log/shadow-tls-server.log")))
|
||
(list (shepherd-service
|
||
(documentation "Run shadow-tls server.")
|
||
(provision '(shadow-tls-server))
|
||
(requirement (if home-service? '() '(networking)))
|
||
(modules '((shepherd support)))
|
||
(start #~(make-forkexec-constructor
|
||
(list #$(file-append
|
||
shadow-tls "/bin/shadow-tls")
|
||
#$@common-options
|
||
"server"
|
||
"--listen" #$listen-address
|
||
"--server" #$server-address
|
||
"--tls" #$(string-join tls-name-list ";")
|
||
"--password" #$password)
|
||
#:user #$(and (not home-service?) "nobody")
|
||
#:group #$(and (not home-service?) "nogroup")
|
||
#:log-file #$log-file))
|
||
(stop #~(make-kill-destructor))))))
|
||
'())))))
|
||
|
||
(define shadow-tls-service-type
|
||
(service-type
|
||
(name 'shadow-tls)
|
||
(extensions
|
||
(list (service-extension shepherd-root-service-type
|
||
shadow-tls-shepherd-service)))
|
||
(default-value (shadow-tls-server-configuration))
|
||
(description "Run shadow-tls.")))
|
||
|
||
(define home-shadow-tls-service-type
|
||
(service-type
|
||
(inherit (system->home-service-type shadow-tls-service-type))
|
||
(default-value (for-home (shadow-tls-configuration)))))
|
||
|
||
|
||
;;
|
||
;; Socks2http
|
||
;;
|
||
|
||
|
||
(define-configuration home-socks2http-configuration
|
||
(socks2http
|
||
(file-like socks2http)
|
||
"Socks2http package to use.")
|
||
(socks-address
|
||
(string ":1080")
|
||
"SOCKS5 proxy address to connect to.")
|
||
(http-address
|
||
(string ":8000")
|
||
"HTTP proxy address to serve.")
|
||
(no-serialization))
|
||
|
||
(define home-socks2http-shepherd-service
|
||
(match-record-lambda <home-socks2http-configuration>
|
||
(socks2http socks-address http-address)
|
||
(list (shepherd-service
|
||
(documentation "Run socks2http.")
|
||
(provision '(socks2http))
|
||
(start #~(make-forkexec-constructor
|
||
(list #$(file-append socks2http "/bin/socks2http")
|
||
"-raddr" #$socks-address
|
||
"-laddr" #$http-address)))
|
||
(stop #~(make-kill-destructor))))))
|
||
|
||
(define home-socks2http-service-type
|
||
(service-type
|
||
(name 'home-socks2http)
|
||
(extensions
|
||
(list (service-extension home-shepherd-service-type
|
||
home-socks2http-shepherd-service)))
|
||
(default-value (home-socks2http-configuration))
|
||
(description "Run socks2http.")))
|
||
|
||
|
||
|
||
|
||
(define-service-type-mapping
|
||
shadow-tls-service-type => home-shadow-tls-service-type)
|