From 4a9d3f3cc5c6302b9c5342f8af6233b196ada329 Mon Sep 17 00:00:00 2001
From: Franz Geffke <m@f-a.nz>
Date: Fri, 30 May 2025 15:19:02 +0100
Subject: px: Remove: px-unattended-upgrades-service-type

---
 px/services/package-management.scm | 74 --------------------------------------
 1 file changed, 74 deletions(-)
 delete mode 100644 px/services/package-management.scm

(limited to 'px')

diff --git a/px/services/package-management.scm b/px/services/package-management.scm
deleted file mode 100644
index b999063..0000000
--- a/px/services/package-management.scm
+++ /dev/null
@@ -1,74 +0,0 @@
-;;; Package Repository for GNU Guix
-;;; Copyright © 2021-2025 Franz Geffke <m@f-a.nz>
-
-(define-module (px services package-management)
-  #:use-module (gnu)
-  #:use-module (gnu packages bash)
-  #:use-module (gnu services shepherd)
-  #:use-module (guix gexp)
-  #:use-module (guix records)
-  #:use-module (ice-9 match)
-  #:use-module (px packages package-management)
-  #:export (px-unattended-upgrades-configuration
-            px-unattended-upgrades-configuration?
-            px-unattended-upgrades-service-type))
-
-;;
-;; px-unattended-upgrades-service-type
-;;
-
-(define-record-type* <px-unattended-upgrades-configuration>
-                     px-unattended-upgrades-configuration
-                     make-px-unattended-upgrades-configuration
-  px-unattended-upgrades-configuration?
-  (package
-    px-unattended-upgrades-configuration-package
-    (default px-unattended-upgrades))
-  (timeout px-unattended-upgrades-timeout
-           (default 300)))
-
-(define (px-unattended-upgrades-configuration->script config)
-  (match config
-    (($ <px-unattended-upgrades-configuration> package timeout)
-     (computed-file "px-unattended-upgrades.sh"
-                    #~(begin
-                        (call-with-output-file #$output
-                          (lambda (port)
-                            (display
-                             "# AUTO GENERATED BY: px-unattended-upgrades-shepherd-service
-
-"
-                             port)
-                            (display "echo \"$(date) > service started: \"\n"
-                                     port)
-                            (format port "echo \"$(date) > sleep for: ~a\"\n"
-                                    #$timeout)
-                            (format port "sleep ~a\n"
-                                    #$timeout)
-                            (display "echo \"$(date) > start upgrade\"\n" port)
-                            (format port "~a/bin/px-unattended-upgrades\n"
-                                    #$package))))))))
-
-(define (px-unattended-upgrades-shepherd-service config)
-  (match config
-    (($ <px-unattended-upgrades-configuration> package timeout)
-     (let ((script (px-unattended-upgrades-configuration->script config)))
-       (list (shepherd-service (provision '(px-unattended-upgrades))
-                               (documentation
-                                "Run px-unattended-upgrades once after reboot")
-                               (requirement '(networking user-processes))
-                               (one-shot? #t)
-                               (start #~(make-forkexec-constructor (list (string-append #$bash
-                                                                          "/bin/bash")
-                                                                         #$script)
-                                         #:log-file
-                                         "/var/log/px-unattended-upgrades.log"))
-                               (stop #~(make-kill-destructor))))))))
-
-(define px-unattended-upgrades-service-type
-  (service-type (name 'px-unattended-upgrades)
-                (description "PantherX unattended upgrades service")
-                (extensions (list (service-extension
-                                   shepherd-root-service-type
-                                   px-unattended-upgrades-shepherd-service)))
-                (default-value (px-unattended-upgrades-configuration))))
-- 
cgit v1.2.3