diff options
| author | Marius Bakke <mbakke@fastmail.com> | 2017-06-10 02:57:50 +0200 |
|---|---|---|
| committer | Marius Bakke <mbakke@fastmail.com> | 2017-06-10 02:57:50 +0200 |
| commit | ea45e2c500c7ed5b22ea5c21516db40dfd8fbd0b (patch) | |
| tree | c743e4905419232e6a342694760bf446cd41b5d4 /gnu/bootloader.scm | |
| parent | 202342fdda708d8e4554e0514a58849584eddbd0 (diff) | |
| parent | 8caf5bac4c89512793276054770386c343c73e7b (diff) | |
| download | guix-ea45e2c500c7ed5b22ea5c21516db40dfd8fbd0b.tar.gz | |
Merge branch 'master' into core-updates
Diffstat (limited to 'gnu/bootloader.scm')
| -rw-r--r-- | gnu/bootloader.scm | 26 |
1 files changed, 25 insertions, 1 deletions
diff --git a/gnu/bootloader.scm b/gnu/bootloader.scm index 4e77974d31..d5fcf30f05 100644 --- a/gnu/bootloader.scm +++ b/gnu/bootloader.scm @@ -23,7 +23,15 @@ #:use-module (guix records) #:use-module (guix ui) #:use-module (srfi srfi-1) - #:export (bootloader + #:export (menu-entry + menu-entry? + menu-entry-label + menu-entry-device + menu-entry-linux + menu-entry-linux-arguments + menu-entry-initrd + + bootloader bootloader? bootloader-name bootloader-package @@ -50,6 +58,22 @@ ;;; +;;; Menu-entry record. +;;; + +(define-record-type* <menu-entry> + menu-entry make-menu-entry + menu-entry? + (label menu-entry-label) + (device menu-entry-device ; file system uuid, label, or #f + (default #f)) + (linux menu-entry-linux) + (linux-arguments menu-entry-linux-arguments + (default '())) ; list of string-valued gexps + (initrd menu-entry-initrd)) ; file name of the initrd as a gexp + + +;;; ;;; Bootloader record. ;;; |