build-aux/hydra/demo-os.scm

   1 ;;; GNU Guix --- Functional package management for GNU
   2 ;;; Copyright © 2014 Ludovic Courtès <ludo@gnu.org>
   3 ;;;
   4 ;;; This file is part of GNU Guix.
   5 ;;;
   6 ;;; GNU Guix is free software; you can redistribute it and/or modify it
   7 ;;; under the terms of the GNU General Public License as published by
   8 ;;; the Free Software Foundation; either version 3 of the License, or (at
   9 ;;; your option) any later version.
  10 ;;;
  11 ;;; GNU Guix is distributed in the hope that it will be useful, but
  12 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
  13 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14 ;;; GNU General Public License for more details.
  15 ;;;
  16 ;;; You should have received a copy of the GNU General Public License
  17 ;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
  18
  19
  20 ;;;
  21 ;;; This file defines an operating system configuration for the demo virtual
  22 ;;; machine images that we build.
  23 ;;;
  24
  25 (use-modules (gnu)
  26
  27              (gnu packages xorg)
  28              (gnu packages avahi)
  29              (gnu packages linux)
  30              (gnu packages tor)
  31
  32              (gnu services networking)
  33              (gnu services avahi)
  34              (gnu services dbus)
  35              (gnu services xorg))
  36
  37 (operating-system
  38  (host-name "gnu")
  39  (timezone "Europe/Paris")
  40  (locale "en_US.UTF-8")
  41
  42  (bootloader (grub-configuration
  43               (device "/dev/sda")))
  44  (file-systems
  45   ;; We provide a dummy file system for /, but that's OK because the VM build
  46   ;; code will automatically declare the / file system for us.
  47   (cons* (file-system
  48            (mount-point "/")
  49            (device "dummy")
  50            (type "dummy"))
  51          ;; %fuse-control-file-system   ; needs fuse.ko
  52          ;; %binary-format-file-system  ; needs binfmt.ko
  53          %base-file-systems))
  54
  55  (users (list (user-account
  56                (name "guest")
  57                (group "users")
  58                (supplementary-groups '("wheel"))  ; allow use of sudo
  59                (password "")
  60                (comment "Guest of GNU")
  61                (home-directory "/home/guest"))))
  62
  63  (issue "
  64 This is an alpha preview of the GNU system.  Welcome.
  65
  66 This image features the GNU Guix package manager, which was used to
  67 build it (http://www.gnu.org/software/guix/).  The init system is
  68 GNU dmd (http://www.gnu.org/software/dmd/).
  69
  70 You can log in as 'guest' or 'root' with no password.
  71 ")
  72
  73  (services (cons* (slim-service #:auto-login? #t
  74                                 #:default-user "guest")
  75
  76                   ;; QEMU networking settings.
  77                   (static-networking-service "eth0" "10.0.2.10"
  78                                              #:name-servers '("10.0.2.3")
  79                                              #:gateway "10.0.2.2")
  80
  81                   (avahi-service)
  82                   (dbus-service (list avahi))
  83                   (tor-service)
  84
  85                   %base-services))
  86  (pam-services
  87   ;; Explicitly allow for empty passwords.
  88   (base-pam-services #:allow-empty-passwords? #t))
  89
  90  (packages (cons* strace
  91                   tor torsocks
  92                   xterm avahi %base-packages)))