diff options
author | Marek Paśnikowski <marek@marekpasnikowski.pl> | 2024-07-22 12:26:10 +0200 |
---|---|---|
committer | Marek Paśnikowski <marek@marekpasnikowski.pl> | 2024-07-22 15:56:35 +0200 |
commit | d9ef2ccec737b077862f6a9280992e4d55742d70 (patch) | |
tree | 6f59a24725dcc756211414523f2aea2084182433 /machines | |
parent | 20fc12b09f0bc3ccf044bba9e021f8d8b7ec66fd (diff) |
feat: implement minimal user account for marekpasnikowski
Diffstat (limited to 'machines')
-rw-r--r-- | machines/portable-bios.scm | 11 |
1 files changed, 2 insertions, 9 deletions
diff --git a/machines/portable-bios.scm b/machines/portable-bios.scm index 3cc9c79..f531a16 100644 --- a/machines/portable-bios.scm +++ b/machines/portable-bios.scm @@ -2,11 +2,10 @@ #:use-module (gnu bootloader) ; bootloader-configuration #:use-module (gnu bootloader grub) ; grub-bootloader #:use-module (gnu system file-systems) ; file-system - #:use-module (suweren system) ; %suweren-operating-system ) ;; bootloader-configuration -(define bootloader-configuration* +(define-public bootloader-configuration* (let ((bootloader* grub-bootloader) (bootloader-targets (list "/dev/sdb")) ; TODO: generalize the target ) @@ -14,7 +13,7 @@ (targets bootloader-targets)))) ;; string -> (file-system) -(define (file-systems* host-name*) +(define-public (file-systems* host-name*) (let* ((root-device-string (string-append host-name* "-root")) (root-device (file-system-label root-device-string)) @@ -23,9 +22,3 @@ (mount-point "/") (device root-device)))) (list file-system-root))) - -;; string -> record operating-system -(define-public (operating-system* host-name*) - (%suweren-operating-system bootloader-configuration* - host-name* - (file-systems* host-name*))) |