ui: Highlight heading of generation lists.

* guix/ui.scm (display-generation): Highlight the "Generation" heading.
This commit is contained in:
Ludovic Courtès 2019-04-14 19:49:38 +02:00
parent c1c5d68a94
commit 3dae43a929
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 1 additions and 1 deletions

View File

@ -1564,7 +1564,7 @@ DURATION-RELATION with the current time."
(define (display-generation profile number) (define (display-generation profile number)
"Display a one-line summary of generation NUMBER of PROFILE." "Display a one-line summary of generation NUMBER of PROFILE."
(unless (zero? number) (unless (zero? number)
(let ((header (format #f (G_ "Generation ~a\t~a") number (let ((header (format #f (highlight (G_ "Generation ~a\t~a")) number
(date->string (date->string
(time-utc->date (time-utc->date
(generation-time profile number)) (generation-time profile number))