You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 
 
 

85 lines
2.8 KiB

  1. ;;; GNU Guix --- Functional package management for GNU
  2. ;;; Copyright © 2014, 2015 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. ;;; This file defines an operating system configuration for the demo virtual
  20. ;;; machine images that we build.
  21. ;;;
  22. (use-modules (gnu))
  23. (use-service-modules desktop xorg networking avahi dbus)
  24. (use-package-modules linux xorg tor avahi)
  25. (operating-system
  26. (host-name "gnu")
  27. (timezone "Europe/Paris")
  28. (locale "en_US.utf8")
  29. (bootloader (grub-configuration
  30. (device "/dev/sda")))
  31. (file-systems
  32. ;; We provide a dummy file system for /, but that's OK because the VM build
  33. ;; code will automatically declare the / file system for us.
  34. (cons* (file-system
  35. (mount-point "/")
  36. (device "dummy")
  37. (type "dummy"))
  38. ;; %fuse-control-file-system ; needs fuse.ko
  39. ;; %binary-format-file-system ; needs binfmt.ko
  40. %base-file-systems))
  41. (users (list (user-account
  42. (name "guest")
  43. (group "users")
  44. (supplementary-groups '("wheel")) ; allow use of sudo
  45. (password "")
  46. (comment "Guest of GNU")
  47. (home-directory "/home/guest"))))
  48. (issue "
  49. This is an alpha preview of the GNU system. Welcome.
  50. This image features the GNU Guix package manager, which was used to
  51. build it (http://www.gnu.org/software/guix/). The init system is
  52. the GNU Shepherd (http://www.gnu.org/software/shepherd/).
  53. You can log in as 'guest' or 'root' with no password.
  54. ")
  55. (services (cons* (slim-service #:auto-login? #t
  56. #:default-user "guest")
  57. ;; QEMU networking settings.
  58. (static-networking-service "eth0" "10.0.2.10"
  59. #:name-servers '("10.0.2.3")
  60. #:gateway "10.0.2.2")
  61. (avahi-service)
  62. (dbus-service)
  63. (tor-service)
  64. %base-services))
  65. (pam-services
  66. ;; Explicitly allow for empty passwords.
  67. (base-pam-services #:allow-empty-passwords? #t))
  68. (packages (cons* strace
  69. tor torsocks
  70. xterm avahi %base-packages)))