X-Git-Url: https://git.hcoop.net/jackhill/guix/guix.git/blobdiff_plain/af018f5e0a1b7c67e9f40ca68929bd35b94206d3..a94546ecc46b15d68764a8d3c859315c18010bb4:/build-aux/hydra/demo-os.scm

diff --git a/build-aux/hydra/demo-os.scm b/build-aux/hydra/demo-os.scm
index 863371291e..43baa391e3 100644
--- a/build-aux/hydra/demo-os.scm
+++ b/build-aux/hydra/demo-os.scm
@@ -24,23 +24,20 @@
 
 (use-modules (gnu)
 
-             (gnu packages zile)
              (gnu packages xorg)
-             (gnu packages admin)
-             (gnu packages guile)
-             (gnu packages bash)
+             (gnu packages avahi)
              (gnu packages linux)
-             (gnu packages less)
-             (gnu packages tor)
-             (gnu packages package-management)
 
              (gnu services networking)
+             (gnu services avahi)
+             (gnu services dbus)
              (gnu services xorg))
 
 (operating-system
  (host-name "gnu")
  (timezone "Europe/Paris")
  (locale "en_US.UTF-8")
+
  (bootloader (grub-configuration
               (device "/dev/sda")))
  (file-systems
@@ -51,22 +48,27 @@
           (device "dummy")
           (type "dummy"))
         ;; %fuse-control-file-system   ; needs fuse.ko
-        %binary-format-file-system))
+        ;; %binary-format-file-system  ; needs binfmt.ko
+        ))
+
  (users (list (user-account
                (name "guest")
-               (group "wheel")
+               (group "users")
+               (supplementary-groups '("wheel"))  ; allow use of sudo
                (password "")
                (comment "Guest of GNU")
                (home-directory "/home/guest"))))
- (groups (list (user-group (name "root") (id 0))
-               (user-group
-                (name "wheel")
-                (id 1)
-                (members '("guest")))             ; allow 'guest' to use sudo
-               (user-group
-                (name "users")
-                (id 100)
-                (members '("guest")))))
+
+ (issue "
+This is an alpha preview of the GNU system.  Welcome.
+
+This image features the GNU Guix package manager, which was used to
+build it (http://www.gnu.org/software/guix/).  The init system is
+GNU dmd (http://www.gnu.org/software/dmd/).
+
+You can log in as 'guest' or 'root' with no password.
+")
+
  (services (cons* (slim-service #:auto-login? #t
                                 #:default-user "guest")
 
@@ -75,11 +77,12 @@
                                              #:name-servers '("10.0.2.3")
                                              #:gateway "10.0.2.2")
 
+                  (avahi-service)
+                  (dbus-service (list avahi))
+
                   %base-services))
  (pam-services
   ;; Explicitly allow for empty passwords.
   (base-pam-services #:allow-empty-passwords? #t))
- (packages (list bash coreutils findutils grep sed
-                 procps psmisc less
-                 guile-2.0 dmd guix util-linux inetutils
-                 xterm zile)))
+
+ (packages (cons* strace xterm avahi %base-packages)))