cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix a few list styling issues

Browse source
This commit is contained in:
Christopher Baines 2020-01-02 21:18:42 +00:00
parent e859cc9a4a
commit 75665e3203
2 changed files with 4 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
guix-data-service/web/compare/html.scm
View file

@ -218,6 +218,7 @@
(td ,name) (td ,name)
(td (td
(ul (ul
(@ (class "list-unstyled"))
,@(map ,@(map
(match-lambda (match-lambda
((type . versions) ((type . versions)

3
guix-data-service/web/revision/html.scm
View file

@ -223,6 +223,7 @@
"License" "License"
"Licenses")) "Licenses"))
(dd (ul (dd (ul
(@ (class "list-inline"))
,@(map (lambda (license) ,@(map (lambda (license)
`(li (a (@ (href ,(assoc-ref license "uri"))) `(li (a (@ (href ,(assoc-ref license "uri")))
,(assoc-ref license "name")))) ,(assoc-ref license "name"))))
@ -292,6 +293,7 @@
(td (td
,@(if (and file (not (string-null? file))) ,@(if (and file (not (string-null? file)))
`((ul `((ul
(@ (class "list-unstyled"))
,@(map ,@(map
(match-lambda (match-lambda
((id label url cgit-url-base) ((id label url cgit-url-base)
@ -1406,6 +1408,7 @@ figure {
`((td `((td
,@(if (and file (not (string-null? file))) ,@(if (and file (not (string-null? file)))
`((ul `((ul
(@ (class "list-unstyled"))
,@(map ,@(map
(match-lambda (match-lambda
((id label url cgit-url-base) ((id label url cgit-url-base)