From 3dae43a92975cb6a1055e928523122bc340272fd Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Sun, 14 Apr 2019 19:49:38 +0200
Subject: [PATCH] ui: Highlight heading of generation lists.

* guix/ui.scm (display-generation): Highlight the "Generation" heading.
---
 guix/ui.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/guix/ui.scm b/guix/ui.scm
index 39b13fd4bc..92c845e944 100644
--- a/guix/ui.scm
+++ b/guix/ui.scm
@@ -1564,7 +1564,7 @@ DURATION-RELATION with the current time."
 (define (display-generation profile number)
   "Display a one-line summary of generation NUMBER of PROFILE."
   (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
                            (time-utc->date
                             (generation-time profile number))