18/24: system: hurd: Populate services.

[guix-commits]

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

commit 11e4200feeffcf1abdd1559c9fca48373599ab10
Author: Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
AuthorDate: Wed May 6 10:07:08 2020 +0200

    system: hurd: Populate services.
    
    * gnu/system/hurd.scm (%base-services/hurd): Add hurd-console-service,
    hurd-getty-services, guix-service.  Also add sylog and loopback, needed for
    ...
    * gnu/system.scm (hurd-default-essential-services): ... add
    %shepherd-root-service with dependencies: %boot-service, 
%activation-service,
    user-processes, root-file-system-service, file-system-service,
    pam-root-service.
---
 gnu/system.scm      | 11 +++++++++++
 gnu/system/hurd.scm | 18 +++++++++++++++++-
 2 files changed, 28 insertions(+), 1 deletion(-)

diff --git a/gnu/system.scm b/gnu/system.scm
index ce574d8..88b2082 100644
--- a/gnu/system.scm
+++ b/gnu/system.scm
@@ -603,6 +603,17 @@ bookkeeping."
   (list (service system-service-type '())
         %boot-service
         %activation-service
+        %shepherd-root-service
+        (service user-processes-service-type)
+        (account-service (append (operating-system-accounts os)
+                                 (operating-system-groups os))
+                         (operating-system-skeletons os))
+        (root-file-system-service)
+        (service file-system-service-type '())
+        (service fstab-service-type
+                 (filter file-system-needed-for-boot?
+                         (operating-system-file-systems os)))
+        (pam-root-service (operating-system-pam-services os))
         (operating-system-etc-service os)
         (service profile-service-type (operating-system-packages os))))
 
diff --git a/gnu/system/hurd.scm b/gnu/system/hurd.scm
index e11055c..9566823 100644
--- a/gnu/system/hurd.scm
+++ b/gnu/system/hurd.scm
@@ -66,7 +66,23 @@
         net-base inetutils less shepherd which))
 
 (define %base-services/hurd
-  '())
+  (list (service hurd-console-service-type
+                 (hurd-console-configuration (hurd hurd)))
+        (service hurd-getty-service-type (hurd-getty-configuration
+                                          (tty "tty1")))
+        (service hurd-getty-service-type (hurd-getty-configuration
+                                          (tty "tty2")))
+        (service static-networking-service-type
+                 (list (static-networking (interface "lo")
+                                          (ip "127.0.0.1")
+                                          (requirement '())
+                                          (provision '(loopback))
+                                          (name-servers '("10.0.2.3")))))
+        (syslog-service)
+        (service guix-service-type
+                 (guix-configuration
+                  (extra-options '("--disable-chroot"
+                                   "--disable-deduplication"))))))
 
 (define %hurd-default-operating-system
   (operating-system