diff options
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*) |