~ruther/guix-local

11e4200feeffcf1abdd1559c9fca48373599ab10 — Jan (janneke) Nieuwenhuizen 6 years ago 7ccd471
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.
2 files changed, 28 insertions(+), 1 deletions(-)

M gnu/system.scm
M gnu/system/hurd.scm
M gnu/system.scm => gnu/system.scm +11 -0
@@ 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))))


M gnu/system/hurd.scm => gnu/system/hurd.scm +17 -1
@@ 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