123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166 |
- (define-module (gnu bootloader)
- #:use-module (guix discovery)
- #:use-module (guix records)
- #:use-module (guix ui)
- #:use-module (srfi srfi-1)
- #:export (menu-entry
- menu-entry?
- menu-entry-label
- menu-entry-device
- menu-entry-linux
- menu-entry-linux-arguments
- menu-entry-initrd
- menu-entry-device-mount-point
- bootloader
- bootloader?
- bootloader-name
- bootloader-package
- bootloader-installer
- bootloader-configuration-file
- bootloader-configuration-file-generator
- bootloader-configuration
- bootloader-configuration?
- bootloader-configuration-bootloader
- bootloader-configuration-target
- bootloader-configuration-menu-entries
- bootloader-configuration-default-entry
- bootloader-configuration-timeout
- bootloader-configuration-theme
- bootloader-configuration-terminal-outputs
- bootloader-configuration-terminal-inputs
- bootloader-configuration-serial-unit
- bootloader-configuration-serial-speed
- bootloader-configuration-additional-configuration
- %bootloaders
- lookup-bootloader-by-name))
- (define-record-type* <menu-entry>
- menu-entry make-menu-entry
- menu-entry?
- (label menu-entry-label)
- (device menu-entry-device
- (default #f))
- (device-mount-point menu-entry-device-mount-point
- (default #f))
- (linux menu-entry-linux)
- (linux-arguments menu-entry-linux-arguments
- (default '()))
- (initrd menu-entry-initrd))
- (define-record-type* <bootloader>
- bootloader make-bootloader
- bootloader?
- (name bootloader-name)
- (package bootloader-package)
- (installer bootloader-installer)
- (configuration-file bootloader-configuration-file)
- (configuration-file-generator bootloader-configuration-file-generator))
- (define-record-type* <bootloader-configuration>
- bootloader-configuration make-bootloader-configuration
- bootloader-configuration?
- (bootloader bootloader-configuration-bootloader)
- (device bootloader-configuration-device
- (default #f))
- (target %bootloader-configuration-target
- (default #f))
- (menu-entries bootloader-configuration-menu-entries
- (default '()))
- (default-entry bootloader-configuration-default-entry
- (default 0))
- (timeout bootloader-configuration-timeout
- (default 5))
- (theme bootloader-configuration-theme
- (default #f))
- (terminal-outputs bootloader-configuration-terminal-outputs
- (default '(gfxterm)))
- (terminal-inputs bootloader-configuration-terminal-inputs
- (default '()))
- (serial-unit bootloader-configuration-serial-unit
- (default #f))
- (serial-speed bootloader-configuration-serial-speed
- (default #f))
- (additional-configuration bootloader-configuration-additional-configuration
- (default #f)))
- (define (bootloader-configuration-target config)
- (or (%bootloader-configuration-target config)
- (let ((device (bootloader-configuration-device config)))
- (when device
- (warning
- (G_ "The 'device' field of bootloader configurations is deprecated.~%"))
- (warning (G_ "Use 'target' instead.~%")))
- device)))
- (define (bootloader-modules)
- "Return the list of bootloader modules."
- (all-modules (map (lambda (entry)
- `(,entry . "gnu/bootloader"))
- %load-path)))
- (define %bootloaders
-
- (delay (fold-module-public-variables (lambda (obj result)
- (if (bootloader? obj)
- (cons obj result)
- result))
- '()
- (bootloader-modules))))
- (define (lookup-bootloader-by-name name)
- "Return the bootloader called NAME."
- (or (find (lambda (bootloader)
- (eq? name (bootloader-name bootloader)))
- (force %bootloaders))
- (leave (G_ "~a: no such bootloader~%") name)))
|