guix-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

branch master updated: Fix html display.


From: Mathieu Othacehe
Subject: branch master updated: Fix html display.
Date: Thu, 29 Apr 2021 09:44:45 -0400

This is an automated email from the git hooks/post-receive script.

mothacehe pushed a commit to branch master
in repository guix-cuirass.

The following commit(s) were added to refs/heads/master by this push:
     new 95516c5  Fix html display.
95516c5 is described below

commit 95516c5b0bec3cf7c98d93bf324663d7af927bc5
Author: Mathieu Othacehe <othacehe@gnu.org>
AuthorDate: Thu Apr 29 15:31:32 2021 +0200

    Fix html display.
    
    * src/cuirass/http.scm (uri-handler): Remove the old doctype.
    * src/cuirass/templates.scm (specification-edit): Fix label element
    without end tag.
---
 src/cuirass/http.scm      | 5 +----
 src/cuirass/templates.scm | 5 +++--
 2 files changed, 4 insertions(+), 6 deletions(-)

diff --git a/src/cuirass/http.scm b/src/cuirass/http.scm
index ec6b2b0..73f3b06 100644
--- a/src/cuirass/http.scm
+++ b/src/cuirass/http.scm
@@ -502,10 +502,7 @@ passed, only display JOBS targeting this SYSTEM."
            content-type))
      #:body
      (lambda (port)
-       (format
-        port "<!DOCTYPE html PUBLIC ~s ~s>"
-        "-//W3C//DTD XHTML 1.0 Transitional//EN"
-        "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd";)
+       (format port "<!DOCTYPE html>")
        (sxml->xml body port))))
 
   (define* (respond-xml body #:key code)
diff --git a/src/cuirass/templates.scm b/src/cuirass/templates.scm
index 1d93398..c6962e3 100644
--- a/src/cuirass/templates.scm
+++ b/src/cuirass/templates.scm
@@ -575,9 +575,10 @@ the existing SPEC otherwise."
                       (select (@ (type "text")
                                  (class "form-control build-param-select")
                                  (name "param-select")
-                                 (multiple)))))
+                                 (multiple))
+                              "")))
             (div (@ (class "form-group row param-input-row"))
-                 (label (@(class "col-sm-2 col-form-label"))
+                 (label (@ (class "col-sm-2 col-form-label"))
                         "Parameter")
                  (div (@ (class "col-sm-4"))
                       (input (@ (type "text")



reply via email to

[Prev in Thread] Current Thread [Next in Thread]