From 21ba2f200fe6d6e992b6afe7f99b0687f700b96d Mon Sep 17 00:00:00 2001
From: Hilton Chain <hako@ultrarare.space>
Date: Fri, 4 Oct 2024 20:24:07 +0800
Subject: [PATCH] services: Add home-qbittorrent-service-type.

* rosenthal/services/bittorrent.scm (home-qbittorrent-activation)
(home-qbittorrent-shepherd-service,home-qbittorrent-service-type): New
variables.
---
 rosenthal/services/bittorrent.scm | 42 ++++++++++++++++++++++++++++++-
 1 file changed, 41 insertions(+), 1 deletion(-)

diff --git a/rosenthal/services/bittorrent.scm b/rosenthal/services/bittorrent.scm
index b6db98f..ea2015e 100644
--- a/rosenthal/services/bittorrent.scm
+++ b/rosenthal/services/bittorrent.scm
@@ -11,9 +11,12 @@
   #:use-module (gnu services)
   #:use-module (gnu services configuration)
   #:use-module (gnu services shepherd)
+  #:use-module (gnu home services)
+  #:use-module (gnu home services shepherd)
   #:use-module (gnu system shadow)
   #:export (qbittorrent-configuration
-            qbittorrent-service-type))
+            qbittorrent-service-type
+            home-qbittorrent-service-type))
 
 ;;
 ;; qBittorrent
@@ -106,3 +109,40 @@ WebUI\\Password_PBKDF2=\"@ByteArray(ARQ77eY1NUZaQsuDHbIMCA==:0WMRkYTUWVT9wVvdDtH
                              (const %qbittorrent-accounts))))
    (default-value (qbittorrent-configuration))
    (description "Run qBittorrent daemon.")))
+
+(define home-qbittorrent-activation
+  #~(let ((config-file
+           (string-append
+            (or (getenv "XDG_CONFIG_HOME")
+                (string-append user-homedir "/.config"))
+            "/qBittorrent/qBittorrent.conf")))
+      (unless (file-exists? config-file)
+        (mkdir-p (dirname config-file))
+        (copy-file #$%qbittorrent-default-config-file config-file))))
+
+(define home-qbittorrent-shepherd-service
+  (match-record-lambda <qbittorrent-configuration>
+      (qbittorrent webui-port extra-options)
+    (list (shepherd-service
+           (documentation "Run qbittorrent.")
+           (provision '(qbittorrent))
+           (requirement '())
+           (start
+            #~(make-forkexec-constructor
+               (list
+                #$(file-append qbittorrent "/bin/qbittorrent-nox")
+                #$(string-append "--webui-port=" (number->string webui-port))
+                #$@extra-options)))
+           (stop #~(make-kill-destructor #:grace-period 1800))
+           (auto-start? #f)))))
+
+(define home-qbittorrent-service-type
+  (service-type
+   (name 'qbittorrent)
+   (extensions
+    (list (service-extension home-activation-service-type
+                             (const home-qbittorrent-activation))
+          (service-extension home-shepherd-service-type
+                             home-qbittorrent-shepherd-service)))
+   (default-value (qbittorrent-configuration))
+   (description "Run qBittorrent daemon.")))