From 17406a204f0751467d0e36a266648bb31d2134e3 Mon Sep 17 00:00:00 2001
From: Marek Paśnikowski <marek@marekpasnikowski.pl>
Date: Wed, 31 Jul 2024 01:28:51 +0200
Subject: feat(systems)!: implement swap support

---
 machines/portable-bios.scm | 11 +++++++++++
 1 file changed, 11 insertions(+)

(limited to 'machines')

diff --git a/machines/portable-bios.scm b/machines/portable-bios.scm
index 334054d..6cee14a 100644
--- a/machines/portable-bios.scm
+++ b/machines/portable-bios.scm
@@ -6,6 +6,7 @@
   #:use-module (gnu bootloader grub)
 
   ;; file-system
+  ;; swap-space
   #:use-module (gnu system file-systems)
 
   ;; linux
@@ -53,3 +54,13 @@
 ;; record* package
 (define-public kernel*
   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*)))
-- 
cgit v1.2.3