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

services: Add home-socks2http.

Browse Source 
* rosenthal/services/child-error.scm (home-socks2http-configuration)
(home-socks2http-shepherd-service,home-socks2http-service-type): New variables
This commit is contained in:
Hilton Chain 2023-08-04 13:28:45 +08:00
parent 87db633fab
commit 1505b2d7b3
No known key found for this signature in database
GPG Key ID: ACC66D09CA528292
1 changed files with 43 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
rosenthal/services/child-error.scm
View File

@ -32,7 +32,10 @@
miniflux-service-type miniflux-service-type
home-wakapi-configuration home-wakapi-configuration
home-wakapi-service-type)) home-wakapi-service-type
home-socks2http-configuration
home-socks2http-service-type))
;; Child-error: services for packages not available in Guix, currently this ;; Child-error: services for packages not available in Guix, currently this
;; means some Go and Rust apps I build locally but don't want to package. ;; means some Go and Rust apps I build locally but don't want to package.
@ -325,3 +328,42 @@ headers. This can expose sensitive information in your logs.")
home-wakapi-shepherd-service))) home-wakapi-shepherd-service)))
(default-value (home-wakapi-configuration)) (default-value (home-wakapi-configuration))
(description "Run Wakapi, a self-hosted WakaTime-compatible backend."))) (description "Run Wakapi, a self-hosted WakaTime-compatible backend.")))
;;
;; 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 config)
(match-record config <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.")))