From 5e19094595ef660e24317d2db5c800dac8e262e8 Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Wed, 1 Nov 2023 17:01:58 +0000
Subject: Add a Guix logo to the header

---
 guix-qa-frontpage/view/util.scm | 13 +++++++++----
 1 file changed, 9 insertions(+), 4 deletions(-)

(limited to 'guix-qa-frontpage')

diff --git a/guix-qa-frontpage/view/util.scm b/guix-qa-frontpage/view/util.scm
index 4479fc8..b595b6b 100644
--- a/guix-qa-frontpage/view/util.scm
+++ b/guix-qa-frontpage/view/util.scm
@@ -229,10 +229,15 @@ main > header {
 ")
       ,@head)
      (body (header
-            (h1 "Guix QA"
-                ,@(if title
-                      `(": " ,title)
-                      '())))
+            (h1
+             (img (@ (style "height: 1.4em;")
+                     (src "/assets/img/guix.svg")))
+             (span
+              (@ (style "position: relative; left: -0.3em;"))
+              "Guix QA"
+              ,@(if title
+                    `(": " ,title)
+                    '()))))
            ,@body))))
 
 (define* (form-horizontal-control label query-parameters
-- 
cgit v1.2.3