(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
(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")
#: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)))