diff options
author | Marek Paśnikowski <marek@marekpasnikowski.pl> | 2024-10-12 08:07:50 +0200 |
---|---|---|
committer | Marek Paśnikowski <marek@marekpasnikowski.pl> | 2024-10-12 08:07:50 +0200 |
commit | 33eecd41e77dfe7de708305eb40550b5d20b1cc0 (patch) | |
tree | b1abb55a276c46af8277b9f1524776645f0a145d /machines/amd64.scm | |
parent | d9897bfa4bf75f0c8a0f6b178ae088c92f7c8157 (diff) |
refactor(portable-bios): change naming convention
Diffstat (limited to 'machines/amd64.scm')
-rw-r--r-- | machines/amd64.scm | 61 |
1 files changed, 61 insertions, 0 deletions
diff --git a/machines/amd64.scm b/machines/amd64.scm new file mode 100644 index 0000000..08b1eb2 --- /dev/null +++ b/machines/amd64.scm @@ -0,0 +1,61 @@ +(define-module (machines amd64) + ;; bootloader-configuration + #:use-module (gnu bootloader) + + ;; grub-bootloader + #:use-module (gnu bootloader grub) + + ;; file-system + ;; swap-space + #:use-module (gnu system file-systems) + + ;; linux + ;; linux-firmware + #:use-module (nongnu packages linux) + + ;; microcode-initrd + #:use-module (nongnu system linux-initrd)) + +;; bootloader-configuration +(define-public (bootloader-configuration* keyboard-layout*) + (let ((bootloader* grub-bootloader) + (bootloader-targets (list "/dev/sdb")) ; TODO: generalize the target + ) + (bootloader-configuration (bootloader bootloader*) + (targets bootloader-targets) + (keyboard-layout keyboard-layout*)))) + +;; string -> +;; (list record* file-system) +(define-public (file-systems* host-name*) + (let* ((root-device-string (string-append host-name* "-root")) + + (root-device (file-system-label root-device-string)) + + (file-system-root (file-system (type "ext4") + (mount-point "/") + (device root-device)))) + (append %base-file-systems + (list file-system-root)))) + +;; (list record* package) +(define-public firmware* + (list linux-firmware)) + +;; record* package +(define-public initrd* + microcode-initrd) + +;; record* package +(define-public kernel-amd64 + linux) + +;; string -> +;; (list record* swap-space) +(define-public (swap-devices* host-name*) + (let* ((label* (string-append host-name* "-swap")) + + (target* (file-system-label label*)) + + (swap-space* (swap-space (target target*)))) + (list swap-space*))) |