bug#73903: [PATCH 1/2] gnu: Add shepherd-for-home.

[Dariqq <dariqq@posteo.net>]

* gnu/packages/admin.scm (shepherd-for-home): New variable.

Change-Id: If66c7e7b688de239ca862326b51592b43ba22c25
---
 gnu/packages/admin.scm | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)

diff --git a/gnu/packages/admin.scm b/gnu/packages/admin.scm
index 77d02baa4e..08ac3d582a 100644
--- a/gnu/packages/admin.scm
+++ b/gnu/packages/admin.scm
@@ -428,6 +428,33 @@ (define-public shepherd-1.0
 
 (define-public shepherd shepherd-0.10)
 
+;; A variant of shepherd without sbin to not mask
+;; halt and reboot on foreign distributions
+(define-public shepherd-for-home
+  (let ((base shepherd-1.0))
+    (hidden-package
+     (package/inherit base
+       (name "shepherd-for-home")
+       (source #f)
+       (build-system trivial-build-system)
+       (arguments
+        (list
+         #:modules '((guix build union)
+                     (guix build utils))
+         #:builder
+         #~(begin
+             (use-modules (guix build union)
+                          (guix build utils))
+             (union-build #$output
+                          (list #$(this-package-input "shepherd"))
+                          #:create-all-directories? #t)
+             (delete-file-recursively
+              (string-append #$output "/sbin"))
+             (delete-file-recursively
+              (string-append #$output "/share/man/man8")))))
+       (native-inputs '())
+       (inputs (list base))))))
+
 (define-public guile2.2-shepherd
   (package
     (inherit shepherd-0.10)
-- 
2.46.0