tribes/guix
1
0
Fork 1
mirror of https://git.savannah.gnu.org/git/guix.git synced 2026-05-24 18:11:51 +02:00
Code Activity

system: image: Add hurd64 image types.

Browse Source 
* gnu/system/hurd.scm (%hurd64-default-operating-system-kernel,
%hurd64-default-operating-system): New variables.
* gnu/system/images/hurd.scm (hurd64-disk-image, hurd64-image-type,
hurd64-qcow2-image-type, hurd64-barebones-disk-image,
hurd64-barebones-qcow2-image): New variables.

* gnu/system/images/hurd.scm (hurd64-barebones-os): New variable.
This commit is contained in:
Janneke Nieuwenhuizen
2024-11-05 23:38:41 +01:00
parent 4d9c5984fe
commit de5239b675
2 changed files with 87 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
gnu/system/images/hurd.scm
+70 -2
View File
@@ -1,6 +1,6 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2020 Mathieu Othacehe <m.othacehe@gmail.com>
;;; Copyright © 2020 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
;;; Copyright © 2020, 2024 Janneke Nieuwenhuizen <janneke@gnu.org>
;;;
;;; This file is part of GNU Guix.
;;;
@@ -36,7 +36,14 @@
hurd-image-type
hurd-qcow2-image-type
hurd-barebones-disk-image
hurd-barebones-qcow2-image))
hurd-barebones-qcow2-image
hurd64-barebones-os
hurd64-disk-image
hurd6-image-type
hurd64-qcow2-image-type
hurd64-barebones-disk-image
hurd64-barebones-qcow2-image))
(define hurd-barebones-os
(operating-system
@@ -62,6 +69,30 @@
(password-authentication? #t)))
%base-services+qemu-networking/hurd))))
(define hurd64-barebones-os
(operating-system
(inherit %hurd64-default-operating-system)
(bootloader (bootloader-configuration
(bootloader grub-minimal-bootloader)
(targets '("/dev/sdX"))))
(file-systems (cons (file-system
(device (file-system-label "my-root"))
(mount-point "/")
(type "ext2"))
%base-file-systems))
(host-name "guixygnu")
(timezone "Europe/Amsterdam")
(packages (cons openssh-sans-x %base-packages/hurd))
(services (cons (service openssh-service-type
(openssh-configuration
(openssh openssh-sans-x)
(use-pam? #f)
(port-number 2222)
(permit-root-login #t)
(allow-empty-passwords? #t)
(password-authentication? #t)))
%base-services+qemu-networking/hurd))))
(define hurd-initialize-root-partition
#~(lambda* (#:rest args)
(apply initialize-root-partition
@@ -115,5 +146,42 @@
#:type hurd-qcow2-image-type))
(name 'hurd-barebones.qcow2)))
;;;
;;; 64bit Hurd
;;;
(define hurd64-disk-image
(image
(inherit hurd-disk-image)
(platform x86_64-gnu)))
(define hurd64-image-type
(image-type
(name 'hurd64-raw)
(constructor (cut image-with-os hurd64-disk-image <>))))
(define hurd64-qcow2-image-type
(image-type
(name 'hurd64-qcow2)
(constructor (lambda (os)
(image
(inherit hurd64-disk-image)
(format 'compressed-qcow2)
(operating-system os))))))
(define hurd64-barebones-disk-image
(image
(inherit
(os+platform->image hurd64-barebones-os x86_64-gnu
#:type hurd64-image-type))
(name 'hurd64-barebones-disk-image)))
(define hurd64-barebones-qcow2-image
(image
(inherit
(os+platform->image hurd64-barebones-os x86_64-gnu
#:type hurd64-qcow2-image-type))
(name 'hurd64-barebones.qcow2)))
;; Return the default image.
hurd-barebones-qcow2-image