aboutsummaryrefslogtreecommitdiff
path: root/gnu/system/install.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2014-05-31 22:13:33 +0200
committerLudovic Courtès <ludo@gnu.org>2014-05-31 22:13:33 +0200
commitfc91c17aa8046feeed0cce9fbac1d2ffbc723331 (patch)
treeb82644a1082fe82cf2aafd4cf7e27c79867a6eb3 /gnu/system/install.scm
parent548d4c139561b2da769561905f3f8134a11bb2d4 (diff)
downloadguix-fc91c17aa8046feeed0cce9fbac1d2ffbc723331.tar
guix-fc91c17aa8046feeed0cce9fbac1d2ffbc723331.tar.gz
Add (gnu system install).
* gnu/system/install.scm: New file. * gnu-system.am (GNU_SYSTEM_MODULES): Add it.
Diffstat (limited to 'gnu/system/install.scm')
-rw-r--r--gnu/system/install.scm150
1 files changed, 150 insertions, 0 deletions
diff --git a/gnu/system/install.scm b/gnu/system/install.scm
new file mode 100644
index 0000000000..3dbce0e3b8
--- /dev/null
+++ b/gnu/system/install.scm
@@ -0,0 +1,150 @@
+;;; GNU Guix --- Functional package management for GNU
+;;; Copyright © 2014 Ludovic Courtès <ludo@gnu.org>
+;;;
+;;; This file is part of GNU Guix.
+;;;
+;;; GNU Guix is free software; you can redistribute it and/or modify it
+;;; under the terms of the GNU General Public License as published by
+;;; the Free Software Foundation; either version 3 of the License, or (at
+;;; your option) any later version.
+;;;
+;;; GNU Guix is distributed in the hope that it will be useful, but
+;;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;;; GNU General Public License for more details.
+;;;
+;;; You should have received a copy of the GNU General Public License
+;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
+
+(define-module (gnu system install)
+ #:use-module (gnu)
+ #:use-module (guix gexp)
+ #:use-module (guix monads)
+ #:use-module (gnu packages bash)
+ #:use-module (gnu packages less)
+ #:use-module (gnu packages linux)
+ #:use-module (gnu packages guile)
+ #:use-module (gnu packages admin)
+ #:use-module (gnu packages package-management)
+ #:use-module (gnu packages zile)
+ #:use-module (gnu packages parted)
+ #:use-module (gnu packages fdisk)
+ #:use-module (gnu packages texinfo)
+ #:export (installation-os))
+
+;;; Commentary:
+;;;
+;;; This module provides an 'operating-system' definition for use on images
+;;; for USB sticks etc., for the installation of the GNU system.
+;;;
+;;; Code:
+
+(define (log-to-info)
+ "Return a script that spawns the Info reader on the right section of the
+manual."
+ (gexp->script "log-to-info"
+ #~(execl (string-append #$texinfo-4 "/bin/info")
+ "-d" "/run/current-system/profile/share/info"
+ "-f" (string-append #$guix "/share/info/guix.info")
+ "-n" "System Configuration")))
+
+(define (installation-services)
+ "Return the list services for the installation image."
+ (let ((motd (text-file "motd" "
+Welcome to the installation of the GNU operating system!
+
+There is NO WARRANTY, to the extent permitted by law. In particular, you may
+LOSE ALL YOUR DATA as a side effect of the installation process. Furthermore,
+it is alpha software, so it may BREAK IN UNEXPECTED WAYS.
+
+You have been warned. Thanks for being so brave.
+")))
+ (define (normal-tty tty)
+ (mingetty-service tty
+ #:motd motd
+ #:auto-login "root"
+ #:login-pause? #t))
+
+ (list (mingetty-service "tty1"
+ #:motd motd
+ #:auto-login "root")
+
+ ;; Documentation.
+ (mingetty-service "tty2"
+ #:motd motd
+ #:auto-login "guest"
+ #:login-program (log-to-info))
+
+ ;; A bunch of 'root' ttys.
+ (normal-tty "tty3")
+ (normal-tty "tty4")
+ (normal-tty "tty5")
+ (normal-tty "tty6")
+
+ ;; The usual services.
+ (syslog-service)
+ (guix-service)
+ (nscd-service))))
+
+(define %issue
+ ;; Greeting.
+ "
+This is an installation image of the GNU system. Welcome.
+
+Use Alt-F2 for documentation.
+")
+
+(define installation-os
+ ;; The operating system used on installation images for USB sticks etc.
+ (operating-system
+ (host-name "gnu")
+ (timezone "Europe/Paris")
+ (locale "en_US.UTF-8")
+ (bootloader (grub-configuration
+ (device "/dev/sda")))
+ (file-systems
+ ;; Note: the disk image build code overrides this root file system with
+ ;; the appropriate one.
+ (list (file-system
+ (mount-point "/")
+ (device "gnu-disk-image")
+ (type "ext4"))))
+
+ (users (list (user-account
+ (name "guest")
+ (group "wheel")
+ (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 %issue)
+
+ (services (installation-services))
+
+ ;; We don't need setuid programs so pass the empty list so we don't pull
+ ;; additional programs here.
+ (setuid-programs '())
+
+ (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
+ parted fdisk module-init-tools
+ zile))))
+
+;; Return it here so 'guix system' can consume it directly.
+installation-os
+
+;;; install.scm ends here