diff options
author | Ricardo Wurmus <rekado@elephly.net> | 2021-04-14 23:31:06 +0200 |
---|---|---|
committer | Ricardo Wurmus <rekado@elephly.net> | 2021-04-14 23:31:06 +0200 |
commit | c3be337ceb622c5d2da3bae54d8819ab14457514 (patch) | |
tree | dac5e33a8dbeb42c70ab4244eaa923687e3a5492 | |
parent | software: Remove binutils and gdb memberships. (diff) |
software: Only show projects with at least one member.
Diffstat (limited to '')
-rw-r--r-- | software.sxml | 58 |
1 files changed, 30 insertions, 28 deletions
diff --git a/software.sxml b/software.sxml index bdf2ff9..3afe7ff 100644 --- a/software.sxml +++ b/software.sxml | |||
@@ -230,34 +230,36 @@ | |||
230 | (content | 230 | (content |
231 | ((h2 "Software") | 231 | ((h2 "Software") |
232 | (p "Maintainers of the following projects participate in the GNU Assembly:") | 232 | (p "Maintainers of the following projects participate in the GNU Assembly:") |
233 | (ul (@ (class "projects")) | 233 | (ul |
234 | (@ (class "projects")) | ||
234 | ,@(hash-table-fold %projects | 235 | ,@(hash-table-fold %projects |
235 | (lambda (key project acc) | 236 | (lambda (key project acc) |
236 | (cons `(li (@ (class "card")) | 237 | (let ((members (project-members project))) |
237 | (div | 238 | (if (null? members) acc |
238 | (@ (class "card-header")) | 239 | (cons `(li (@ (class "card")) |
239 | (a (@ (href ,(project-url project))) | 240 | (div |
240 | (img (@ (class "project-logo") | 241 | (@ (class "card-header")) |
241 | (src ,(project-logo project)) | 242 | (a (@ (href ,(project-url project))) |
242 | (alt ,(string-append "logo for " | 243 | (img (@ (class "project-logo") |
243 | (project-name project)))))) | 244 | (src ,(project-logo project)) |
244 | (a (@ (class "project-url") | 245 | (alt ,(string-append "logo for " |
245 | (href ,(project-url project))) | 246 | (project-name project)))))) |
246 | ,(project-name project))) | 247 | (a (@ (class "project-url") |
247 | (div | 248 | (href ,(project-url project))) |
248 | (@ (class "card-body")) | 249 | ,(project-name project))) |
249 | ,(let ((members (project-members project))) | 250 | (div |
250 | `(details | 251 | (@ (class "card-body")) |
251 | (summary ,(format #false "members (~a)" | 252 | (details |
252 | (length members))) | 253 | (summary ,(format #false "members (~a)" |
253 | (ul (@ (class "members")) | 254 | (length members))) |
254 | ,(map (lambda (person) | 255 | (ul (@ (class "members")) |
255 | `(li (@ (class "person")) | 256 | ,(map (lambda (person) |
256 | ,(let ((home-page (person-url person))) | 257 | `(li (@ (class "person")) |
257 | (if home-page | 258 | ,(let ((home-page (person-url person))) |
258 | `(a (@ (href ,home-page)) | 259 | (if home-page |
259 | ,(person-name person)) | 260 | `(a (@ (href ,home-page)) |
260 | (person-name person))))) | 261 | ,(person-name person)) |
261 | members)))))) | 262 | (person-name person))))) |
262 | acc)) | 263 | members))))) |
264 | acc)))) | ||
263 | '()))))) | 265 | '()))))) |