gnu/system/hurd.scm

   1 ;;; GNU Guix --- Functional package management for GNU
   2 ;;; Copyright © 2020 Ludovic Courtès <ludo@gnu.org>
   3 ;;; Copyright © 2020 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
   4 ;;;
   5 ;;; This file is part of GNU Guix.
   6 ;;;
   7 ;;; GNU Guix is free software; you can redistribute it and/or modify it
   8 ;;; under the terms of the GNU General Public License as published by
   9 ;;; the Free Software Foundation; either version 3 of the License, or (at
  10 ;;; your option) any later version.
  11 ;;;
  12 ;;; GNU Guix is distributed in the hope that it will be useful, but
  13 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
  14 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15 ;;; GNU General Public License for more details.
  16 ;;;
  17 ;;; You should have received a copy of the GNU General Public License
  18 ;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
  19
  20 (define-module (gnu system hurd)
  21   #:use-module (guix gexp)
  22   #:use-module (guix profiles)
  23   #:use-module (guix utils)
  24   #:use-module (gnu bootloader)
  25   #:use-module (gnu bootloader grub)
  26   #:use-module (gnu packages admin)
  27   #:use-module (gnu packages base)
  28   #:use-module (gnu packages bash)
  29   #:use-module (gnu packages cross-base)
  30   #:use-module (gnu packages file)
  31   #:use-module (gnu packages guile)
  32   #:use-module (gnu packages guile-xyz)
  33   #:use-module (gnu packages hurd)
  34   #:use-module (gnu packages less)
  35   #:use-module (gnu services)
  36   #:use-module (gnu services base)
  37   #:use-module (gnu services hurd)
  38   #:use-module (gnu services shepherd)
  39   #:use-module (gnu system)
  40   #:use-module (gnu system shadow)
  41   #:use-module (gnu system vm)
  42   #:export (%base-packages/hurd
  43             %base-services/hurd
  44             %hurd-default-operating-system
  45             %hurd-default-operating-system-kernel))
  46
  47 ;;; Commentary:
  48 ;;;
  49 ;;; This module provides system-specifics for the GNU/Hurd operating system
  50 ;;; and virtual machine.
  51 ;;;
  52 ;;; Code:
  53
  54 (define %hurd-default-operating-system-kernel
  55   (if (hurd-system?)
  56       gnumach
  57       ;; A cross-built GNUmach does not work
  58       (with-parameters ((%current-system "i686-linux")
  59                         (%current-target-system #f))
  60         gnumach)))
  61
  62 (define %base-packages/hurd
  63   (list hurd bash coreutils file findutils grep sed
  64         guile-3.0 guile-colorized guile-readline
  65         net-base inetutils less shepherd which))
  66
  67 (define %base-services/hurd
  68   (list (service hurd-console-service-type
  69                  (hurd-console-configuration (hurd hurd)))
  70         (service hurd-getty-service-type (hurd-getty-configuration
  71                                           (tty "tty1")))
  72         (service hurd-getty-service-type (hurd-getty-configuration
  73                                           (tty "tty2")))
  74         (service static-networking-service-type
  75                  (list (static-networking (interface "lo")
  76                                           (ip "127.0.0.1")
  77                                           (requirement '())
  78                                           (provision '(loopback))
  79                                           (name-servers '("10.0.2.3")))))
  80         (syslog-service)
  81         (service guix-service-type
  82                  (guix-configuration
  83                   (extra-options '("--disable-chroot"
  84                                    "--disable-deduplication"))))))
  85
  86 (define %hurd-default-operating-system
  87   (operating-system
  88     (kernel %hurd-default-operating-system-kernel)
  89     (kernel-arguments '())
  90     (hurd hurd)
  91     (bootloader (bootloader-configuration
  92                  (bootloader grub-minimal-bootloader)
  93                  (target "/dev/vda")))
  94     (initrd (lambda _ '()))
  95     (initrd-modules (lambda _ '()))
  96     (firmware '())
  97     (host-name "guixygnu")
  98     (file-systems '())
  99     (packages %base-packages/hurd)
 100     (timezone "GNUrope")
 101     (name-service-switch #f)
 102     (essential-services (hurd-default-essential-services this-operating-system))
 103     (pam-services '())
 104     (setuid-programs '())
 105     (sudoers-file #f)))