seasharp/Rosenthal
1
0
Fork 0
mirror of https://codeberg.org/hako/Rosenthal.git synced 2025-04-07 14:45:08 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
rosenthal/services/bittorrent.scm
View File

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