56/59: system: examples: devel-hurd: Add hurd dependencies.

[guix-commits]

janneke pushed a commit to branch hurd-team
in repository guix.

commit 20c6a5267c220e8614dd21505770c0ebf4ab4fef
Author: Janneke Nieuwenhuizen <janneke@gnu.org>
AuthorDate: Fri Jun 5 09:18:35 2020 +0200

    system: examples: devel-hurd: Add hurd dependencies.
    
    * gnu/system/examples/devel-hurd.tmpl (hurd-packages): New variable
    (%hurd-devel-os): Use it.
    
    Change-Id: I097c7c00a9ab9602db7f8f3305827c815f308d1e
---
 gnu/system/examples/devel-hurd.tmpl | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/gnu/system/examples/devel-hurd.tmpl 
b/gnu/system/examples/devel-hurd.tmpl
index 3dca0706d1..9fbb7e2aae 100644
--- a/gnu/system/examples/devel-hurd.tmpl
+++ b/gnu/system/examples/devel-hurd.tmpl
@@ -64,6 +64,12 @@
                     ;; These are not essential and do not build yet.
                     '("graphviz" "guile-avahi" "po4a"))))
 
+(define hurd-packages
+  (filter-map input->package
+              (fold alist-delete (package-direct-inputs hurd)
+                    ;; These are not essential or are very big.
+                    '("dde-sources" "parted" "rumpdisk" "util-linux"))))
+
 (define %hurd-devel-os
   (operating-system
     (inherit %hurd-vm-operating-system)
@@ -89,6 +95,7 @@
                openssh-sans-x
                (append
                 guix-packages
+                hurd-packages
                 %base-packages/hurd)))
     (services (cons*
                (modify-services (operating-system-user-services