2023-09-22 02:45:34 +02:00
|
|
|
;; Copyright (C) 2023 Denis 'GNUtoo' Carikli <GNUtoo@cyberdimension.org>
|
|
|
|
|
;;
|
|
|
|
|
;; This file 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.
|
|
|
|
|
;;
|
|
|
|
|
;; You should have received a copy of the GNU General Public License
|
|
|
|
|
;; along with this file. If not, see <http://www.gnu.org/licenses/>.
|
|
|
|
|
|
|
|
|
|
(define-module (guix-installer-vm-system)
|
|
|
|
|
#:use-module (gnu)
|
|
|
|
|
#:use-module (gnu packages admin)
|
|
|
|
|
#:use-module (gnu packages dns)
|
|
|
|
|
#:use-module (gnu packages linux)
|
|
|
|
|
#:use-module (gnu packages ssh)
|
|
|
|
|
#:use-module (gnu packages tls)
|
|
|
|
|
#:use-module (gnu services admin)
|
|
|
|
|
#:use-module (gnu services certbot)
|
|
|
|
|
#:use-module (gnu services ssh)
|
|
|
|
|
#:use-module (gnu services telephony)
|
|
|
|
|
#:use-module (gnu services vpn)
|
|
|
|
|
#:use-module (gnu services web)
|
|
|
|
|
#:use-module (guix build-system copy)
|
|
|
|
|
#:use-module (guix build-system gnu)
|
|
|
|
|
#:use-module ((guix licenses) #:prefix license:)
|
|
|
|
|
#:use-module (guix packages)
|
|
|
|
|
#:use-module (guix utils)
|
|
|
|
|
#:export (guix-installer-vm-operating-system))
|
|
|
|
|
|
|
|
|
|
(define first-boot-script
|
|
|
|
|
(package
|
|
|
|
|
(name "first-boot-script")
|
|
|
|
|
(version "0.1")
|
|
|
|
|
(source (local-file "first-boot.sh" ))
|
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(arguments
|
|
|
|
|
(list #:tests? #f ;no tests
|
|
|
|
|
#:phases
|
|
|
|
|
#~(modify-phases
|
|
|
|
|
%standard-phases
|
|
|
|
|
(delete 'build)
|
|
|
|
|
(delete 'configure)
|
|
|
|
|
(replace 'install
|
|
|
|
|
(lambda _
|
|
|
|
|
(chmod "first-boot.sh" #o755)
|
|
|
|
|
(install-file
|
|
|
|
|
"first-boot.sh"
|
|
|
|
|
(string-append (string-append #$output "/bin"))))))))
|
|
|
|
|
(inputs (list e2fsprogs parted util-linux))
|
|
|
|
|
(synopsis "Script to run on first boot.")
|
|
|
|
|
(description
|
|
|
|
|
"The first-boot.sh script resize the rootfs and updates the system.")
|
|
|
|
|
(home-page #f)
|
|
|
|
|
(license license:gpl3+)))
|
|
|
|
|
|
|
|
|
|
(define guix-installer-vm-operating-system
|
|
|
|
|
(operating-system
|
|
|
|
|
(bootloader (bootloader-configuration
|
|
|
|
|
(bootloader grub-minimal-bootloader)
|
|
|
|
|
(targets '("/dev/vda"))
|
|
|
|
|
(terminal-outputs '(serial_0))))
|
|
|
|
|
(kernel-arguments (append '("console=ttyS0")))
|
|
|
|
|
(file-systems (cons (file-system
|
|
|
|
|
(device (file-system-label "Guix_image"))
|
|
|
|
|
(mount-point "/")
|
|
|
|
|
(type "ext4")) %base-file-systems))
|
|
|
|
|
(host-name "guix-installer-vm")
|
|
|
|
|
(timezone "Europe/Paris")
|
|
|
|
|
(packages (append (list first-boot-script
|
|
|
|
|
htop
|
|
|
|
|
net-tools)
|
|
|
|
|
%base-packages))
|
|
|
|
|
(services
|
|
|
|
|
(append
|
|
|
|
|
(list
|
|
|
|
|
;; Agetty
|
|
|
|
|
|
|
|
|
|
;; ttyS0 is already setup automatically due to the console=ttyS0
|
|
|
|
|
;; kernel argument
|
|
|
|
|
(service agetty-service-type
|
|
|
|
|
(agetty-configuration (term "xterm-256color")
|
|
|
|
|
(tty "ttyS1")))
|
|
|
|
|
(service agetty-service-type
|
|
|
|
|
(agetty-configuration (term "xterm-256color")
|
|
|
|
|
(tty "ttyS2")))
|
|
|
|
|
(service agetty-service-type
|
|
|
|
|
(agetty-configuration (term "xterm-256color")
|
|
|
|
|
(tty "ttyS3")))
|
|
|
|
|
;; Networking
|
|
|
|
|
(service
|
|
|
|
|
static-networking-service-type
|
|
|
|
|
(list
|
|
|
|
|
(static-networking
|
|
|
|
|
(addresses (list (network-address
|
|
|
|
|
(device "eth0")
|
|
|
|
|
(value "192.168.1.118/24"))
|
2023-10-02 22:00:50 +02:00
|
|
|
(network-address
|
2023-09-22 02:45:34 +02:00
|
|
|
(device "eth0")
|
|
|
|
|
(value "2001:910:1021::118/64"))))
|
|
|
|
|
(routes (list (network-route
|
|
|
|
|
(destination "default")
|
|
|
|
|
(gateway "192.168.0.1"))
|
2023-10-02 22:00:50 +02:00
|
|
|
(network-route
|
2023-09-22 02:45:34 +02:00
|
|
|
(destination "default")
|
|
|
|
|
(gateway "192.168.0.1"))))
|
|
|
|
|
(name-servers (list "192.168.0.1" "2001:910:1021::1")))))
|
|
|
|
|
;; OpenSSH
|
|
|
|
|
(service openssh-service-type
|
|
|
|
|
(openssh-configuration
|
|
|
|
|
(openssh openssh-sans-x)
|
|
|
|
|
(use-pam? #f)
|
|
|
|
|
(port-number 222)
|
|
|
|
|
(permit-root-login #t)
|
|
|
|
|
(password-authentication? #f)
|
|
|
|
|
(challenge-response-authentication? #f)
|
|
|
|
|
(authorized-keys
|
|
|
|
|
`(("root" , (local-file "id_ed25519.pub"))
|
|
|
|
|
("gnutoo" ,(local-file "id_ed25519.pub"))))))
|
|
|
|
|
;; Unattended Upgrades
|
|
|
|
|
(service unattended-upgrade-service-type))
|
|
|
|
|
(modify-services
|
|
|
|
|
%base-services
|
|
|
|
|
(guix-service-type config => (guix-configuration
|
|
|
|
|
(authorized-keys
|
|
|
|
|
(append
|
|
|
|
|
(list
|
|
|
|
|
(local-file
|
|
|
|
|
"signing-key.pub"))
|
|
|
|
|
%default-authorized-guix-keys)))))))))
|
|
|
|
|
guix-installer-vm-operating-system
|
