diff options
| author | Marek Paśnikowski <marek@marekpasnikowski.pl> | 2024-10-13 22:24:28 +0200 |
|---|---|---|
| committer | Marek Paśnikowski <marek@marekpasnikowski.pl> | 2024-10-13 22:24:28 +0200 |
| commit | dd5743ab9ce2a48d1ff602570b4724e0df6f8710 (patch) | |
| tree | ab252aeb6a3086260f582216a7edb8c15a00eaf8 /systems | |
| parent | 8dc2cf440a7309fc0f08297e9cddd42fa4b8b014 (diff) | |
refactor(mcdowell): implement label of operating-system
Diffstat (limited to 'systems')
| -rw-r--r-- | systems/mcdowell.scm | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/systems/mcdowell.scm b/systems/mcdowell.scm index fb9542f..2ac722a 100644 --- a/systems/mcdowell.scm +++ b/systems/mcdowell.scm @@ -45,6 +45,14 @@ (keyboard-layout keyboard-layout-mcdowell) (targets (list bootloader-target-mcdowell)))) +(define (label-mcdowell operating-system) + (let* + ((operating-system-default-label (@ (gnu system) operating-system-default-label)) + (default-label-string (operating-system-default-label operating-system))) + (string-append host-name* + ": " + default-label-string))) + (define services-mcdowell (append (desktop-services-mcdowell) (list (guix-home-service-mcdowell)))) @@ -69,6 +77,7 @@ (kernel-arguments %default-kernel-arguments) (hurd #f) (bootloader bootloader-mcdowell) + (label (label-mcdowell (@ (gnu system) this-operating-system))) (keyboard-layout keyboard-layout-mcdowell) (initrd initrd*) (firmware firmware*) |