summaryrefslogtreecommitdiff
path: root/website
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2016-04-24 18:32:16 +0200
committerLudovic Courtès <ludo@gnu.org>2016-04-24 18:32:16 +0200
commit6abe664f6974bc5637887d0f9812fad154e9fb35 (patch)
tree3aacd6dc3279e4efa69a107bba1284401edc9456 /website
parentc18b30725b9dc129565955dcf15e0c17489806a7 (diff)
downloadguix-artwork-6abe664f6974bc5637887d0f9812fad154e9fb35.tar
guix-artwork-6abe664f6974bc5637887d0f9812fad154e9fb35.tar.gz
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.
Diffstat (limited to 'website')
-rw-r--r--website/www/packages.scm35
1 files 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")))
;;;