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

services: qbittorrent: Use match-record.

Browse Source 
* rosenthal/services/bittorrent.scm (qbittorrent-shepherd-service): Use
match-record.
This commit is contained in:
Hilton Chain 2023-06-28 20:45:09 +08:00
parent 45061dd211
commit 5ae5900f2d
No known key found for this signature in database
GPG Key ID: ACC66D09CA528292
1 changed files with 18 additions and 19 deletions

15
rosenthal/services/bittorrent.scm
View File

@ -3,9 +3,9 @@
;; SPDX-License-Identifier: GPL-3.0-or-later ;; SPDX-License-Identifier: GPL-3.0-or-later
(define-module (rosenthal services bittorrent) (define-module (rosenthal services bittorrent)
#:use-module (ice-9 match)
#:use-module (guix gexp) #:use-module (guix gexp)
#:use-module (guix packages) #:use-module (guix packages)
#:use-module (guix records)
#:use-module (gnu packages admin) #:use-module (gnu packages admin)
#:use-module (gnu services) #:use-module (gnu services)
#:use-module (gnu services configuration) #:use-module (gnu services configuration)
@ -55,24 +55,23 @@
(mkdir-p profile-directory) (mkdir-p profile-directory)
(chown profile-directory (passwd:uid user) (passwd:gid user))))) (chown profile-directory (passwd:uid user) (passwd:gid user)))))
(define qbittorrent-shepherd-service (define (qbittorrent-shepherd-service config)
(match-lambda (match-record config <qbittorrent-configuration>
(($ <qbittorrent-configuration> qbittorrent (qbittorrent log-file webui-port profile-directory extra-options)
log-file webui-port profile-directory
extra-options)
(list (shepherd-service (list (shepherd-service
(documentation "Run qbittorrent.") (documentation "Run qbittorrent.")
(provision '(qbittorrent)) (provision '(qbittorrent))
(requirement '(loopback)) (requirement '(loopback))
(start #~(make-forkexec-constructor (start #~(make-forkexec-constructor
(list #$(file-append qbittorrent "/bin/qbittorrent-nox") (list #$(file-append qbittorrent "/bin/qbittorrent-nox")
#$(string-append "--webui-port=" (number->string webui-port)) #$(string-append "--webui-port="
(number->string webui-port))
#$(string-append "--profile=" profile-directory) #$(string-append "--profile=" profile-directory)
#$@extra-options) #$@extra-options)
#:user "qbittorrent" #:user "qbittorrent"
#:group "qbittorrent" #:group "qbittorrent"
#:log-file #$log-file)) #:log-file #$log-file))
(stop #~(make-kill-destructor #:grace-period 1800))))))) (stop #~(make-kill-destructor #:grace-period 1800))))))
(define qbittorrent-service-type (define qbittorrent-service-type
(service-type (service-type