diff options
| -rw-r--r-- | machines/portable-bios.scm | 11 | ||||
| -rw-r--r-- | systems/mcdowell.scm | 2 |
2 files changed, 13 insertions, 0 deletions
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*))) diff --git a/systems/mcdowell.scm b/systems/mcdowell.scm index 6f0c47f..a51d627 100644 --- a/systems/mcdowell.scm +++ b/systems/mcdowell.scm @@ -8,6 +8,7 @@ ; hardware-groups ; initrd* ; kernel* + ; swap-devices* #:use-module (suweren system) ; %suweren-operating-system #:use-module (users id1000) ; uid1000-account ; uid1000-home-environment @@ -44,6 +45,7 @@ firmware* host-name* (file-systems* host-name*) + (swap-devices* host-name*) users* timezone* locale* |