[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/01: website: packages: Add newlines in the HTML output.
From: |
Ludovic Courtès |
Subject: |
01/01: website: packages: Add newlines in the HTML output. |
Date: |
Sun, 24 Apr 2016 16:33:40 +0000 |
civodul pushed a commit to branch master
in repository guix-artwork.
commit 6abe664f6974bc5637887d0f9812fad154e9fb35
Author: Ludovic Courtès <address@hidden>
Date: Sun Apr 24 18:32:16 2016 +0200
website: packages: Add newlines in the HTML output.
This works around a CVS/RCS limitation:
<https://lists.gnu.org/archive/html/savannah-hackers-public/2016-04/msg00009.html>.
* website/www/packages.scm (package->sxml): Add a bunch of \n.
(issues->sxml): Use 'list-join' to add newlines.
(packages->issue-sxml): Likewise.
---
website/www/packages.scm | 35 +++++++++++++++++++++++------------
1 file changed, 23 insertions(+), 12 deletions(-)
diff --git a/website/www/packages.scm b/website/www/packages.scm
index c927a95..ccafa28 100644
--- a/website/www/packages.scm
+++ b/website/www/packages.scm
@@ -214,10 +214,12 @@ description-ids as formal parameters."
(alt "Part of GNU")
(title "Part of GNU")))
""))
+ "\n"
(td (a (@ (href ,(source-url package))
(title "Link to the Guix package source code"))
,(package-name package) " "
,(package-version package)))
+ "\n"
(td (span ,(package-synopsis package)
(a (@ (name ,anchor))))
(div (@ (id ,description-id))
@@ -228,17 +230,22 @@ description-ids as formal parameters."
(class "package-logo")
(alt ("Logo of " ,(package-name package))))))
(_ #f))
+ "\n"
(p ,(package-description-shtml package))
+ "\n"
,(license package)
(a (@ (href ,(package-home-page package))
(title "Link to the package's website"))
,(package-home-page package))
,(patches package)
(br)
+ "\n"
,(status package)
+ "\n"
,(if js?
(insert-js-call description-ids)
- ""))))))
+ "")))
+ "\n")))
(let ((description-id (symbol->string
(gensym (package-name package)))))
@@ -375,11 +382,12 @@ list of checker/report tuples."
(div (b ,(number->string count)
,(if (= count 1) " issue" " issues")))
(table
- ,@(map (match-lambda
- ((checker report)
- `(tr (td ,(lint-checker-name checker))
- (td (pre ,(string-trim-right report))))))
- issues))))))
+ ,@(list-join (map (match-lambda
+ ((checker report)
+ `(tr (td ,(lint-checker-name checker))
+ (td (pre ,(string-trim-right report))))))
+ issues)
+ "\n"))))))
(define* (package->issue-sxml package
#:key
@@ -397,6 +405,7 @@ by CHECKERS."
,(if (null? issues)
name+version
`(b ,name+version))))
+ "\n"
(td (a (@ (name ,anchor)))
,(issues->sxml package issues)))))
@@ -415,12 +424,14 @@ PACKAGES."
(packages->anchors packages))
`(table
- ,@(map (lambda (package)
- (report-progress)
- (package->issue-sxml package
- #:anchor (package-anchor package)
- #:checkers checkers))
- packages)))
+ ,@(list-join
+ (map (lambda (package)
+ (report-progress)
+ (package->issue-sxml package
+ #:anchor (package-anchor package)
+ #:checkers checkers))
+ packages)
+ "\n")))
;;;