|
|
;; 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)
|
|
|
|
