summaryrefslogtreecommitdiff
path: root/machines/amd64.scm
diff options
context:
space:
mode:
authorMarek Paśnikowski <marek@marekpasnikowski.pl>2024-10-12 08:07:50 +0200
committerMarek Paśnikowski <marek@marekpasnikowski.pl>2024-10-12 08:07:50 +0200
commit33eecd41e77dfe7de708305eb40550b5d20b1cc0 (patch)
treeb1abb55a276c46af8277b9f1524776645f0a145d /machines/amd64.scm
parentd9897bfa4bf75f0c8a0f6b178ae088c92f7c8157 (diff)
refactor(portable-bios): change naming convention
Diffstat (limited to 'machines/amd64.scm')
-rw-r--r--machines/amd64.scm61
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*)))