~ruther/guix-local

42de960878afb022bbc0bf9e7d31d7e0d8c2bd33 — Ludovic Courtès 11 years ago 906b1b0
system: Shorten the default label for GRUB entries.

* gnu/system.scm (kernel->grub-label): Shorten entry labels.
1 files changed, 2 insertions(+), 2 deletions(-)

M gnu/system.scm
M gnu/system.scm => gnu/system.scm +2 -2
@@ 658,10 658,10 @@ we're running in the final root."

(define (kernel->grub-label kernel)
  "Return a label for the GRUB menu entry that boots KERNEL."
  (string-append "GNU system with "
  (string-append "GNU with "
                 (string-titlecase (package-name kernel)) " "
                 (package-version kernel)
                 " (technology preview)"))
                 " (alpha)"))

(define* (operating-system-grub.cfg os #:optional (old-entries '()))
  "Return the GRUB configuration file for OS.  Use OLD-ENTRIES to populate the