gnu: linux-libre: Add i686 and x86_64 full-blown configs.

[jackhill/guix/guix.git] / build-aux / hydra / demo-os.scm

diff --git a/build-aux/hydra/demo-os.scm b/build-aux/hydra/demo-os.scm
index eaf7958..43baa39 100644 (file)
--- a/build-aux/hydra/demo-os.scm
+++ b/build-aux/hydra/demo-os.scm
@@ -22,41 +22,67 @@
 ;;; machine images that we build.
 ;;;
 
-(use-modules (gnu packages emacs)
+(use-modules (gnu)
+
              (gnu packages xorg)
-             (gnu packages base)
-             (gnu packages admin)
-             (gnu packages guile)
-             (gnu packages bash)
+             (gnu packages avahi)
              (gnu packages linux)
-             (gnu packages less)
-             (gnu packages tor)
 
-             (gnu system shadow)                  ; 'user-account'
-             (gnu services base)
              (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
+  ;; We provide a dummy file system for /, but that's OK because the VM build
+  ;; code will automatically declare the / file system for us.
+  (list (file-system
+          (mount-point "/")
+          (device "dummy")
+          (type "dummy"))
+        ;; %fuse-control-file-system   ; needs fuse.ko
+        ;; %binary-format-file-system  ; needs binfmt.ko
+        ))
+
  (users (list (user-account
                (name "guest")
-               (uid 1000) (gid 100)
+               (group "users")
+               (supplementary-groups '("wheel"))  ; allow use of sudo
+               (password "")
                (comment "Guest of GNU")
                (home-directory "/home/guest"))))
- (services (cons* (slim-service #:auto-login? #f
-                                #:default-user "root")
+
+ (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")
 
                   ;; QEMU networking settings.
                   (static-networking-service "eth0" "10.0.2.10"
                                              #:name-servers '("10.0.2.3")
                                              #:gateway "10.0.2.2")
 
+                  (avahi-service)
+                  (dbus-service (list avahi))
+
                   %base-services))
- (packages (list bash coreutils findutils grep sed
-                 procps psmisc less
-                 guile-2.0 dmd util-linux inetutils
-                 xterm emacs
-                 tor)))
+ (pam-services
+  ;; Explicitly allow for empty passwords.
+  (base-pam-services #:allow-empty-passwords? #t))
+
+ (packages (cons* strace xterm avahi %base-packages)))