03/04: DRAFT gnu: system: Add bare example configuration for the Hurd.

[guix-commits]

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

commit 2e7c72ac201060c8d318de634db5020094dc7eb2
Author: Jan Nieuwenhuizen <address@hidden>
AuthorDate: Sun Mar 29 16:09:10 2020 +0200

    DRAFT gnu: system: Add bare example configuration for the Hurd.
    
    * gnu/system/examples/bare-hurd.tmpl: New file.
---
 gnu/system/examples/bare-hurd.tmpl | 62 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 62 insertions(+)

diff --git a/gnu/system/examples/bare-hurd.tmpl 
b/gnu/system/examples/bare-hurd.tmpl
new file mode 100644
index 0000000..21658cb
--- /dev/null
+++ b/gnu/system/examples/bare-hurd.tmpl
@@ -0,0 +1,62 @@
+;; This is a GNU/Hurd operating system configuration template
+;; for a "bare bones" setup, with no X11 display server.
+
+(use-modules (gnu) (gnu system))
+(use-service-modules base networking ssh)
+(use-package-modules bootloaders hurd screen)
+
+(define %base-file-systems/hurd '())
+(define %base-services/hurd '())
+
+(define bare-hurd
+  (operating-system
+    (host-name "komputilo")
+    (timezone "Europe/Berlin")
+    (locale "en_US.utf8")
+
+    ;; Boot in "legacy" BIOS mode, assuming /dev/sdX is the
+    ;; target hard disk, and "my-root" is the label of the target
+    ;; root file system.
+    (bootloader (bootloader-configuration
+                 (bootloader grub-minimal-bootloader)
+                 (target "/dev/sdX")))
+    (file-systems (cons (file-system
+                          (device (file-system-label "my-root"))
+                          (mount-point "/")
+                          (type "ext4"))
+                        %base-file-systems/hurd))
+    (initrd (lambda _ #t))
+    (initrd-modules '())
+    (kernel hurd)
+    (firmware '())
+
+    ;; This is where user accounts are specified.  The "root"
+    ;; account is implicit, and is initially created with the
+    ;; empty password.
+    (users (cons (user-account
+                  (name "alice")
+                  (comment "Bob's sister")
+                  (group "users")
+
+                  ;; Adding the account to the "wheel" group
+                  ;; makes it a sudoer.  Adding it to "audio"
+                  ;; and "video" allows the user to play sound
+                  ;; and access the webcam.
+                  (supplementary-groups '("wheel"
+                                          "audio" "video")))
+                 %base-user-accounts))
+
+    ;; Globally-installed packages.
+    (packages (cons screen %base-packages/hurd))
+
+    ;; Add services to the baseline: a DHCP client and
+    ;; an SSH server.
+    (services (append
+               ;; (list (service dhcp-client-service-type)
+               ;;       (service openssh-service-type
+               ;;                (openssh-configuration
+               ;;                 (port-number 2222))))
+               %base-services/hurd))))
+
+;; (format (current-error-port) "bare hurd: ~s\n" bare-hurd)
+bare-hurd