[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/04: website: donate: Factorize FSF link.
|
From: |
Ludovic Courtès |
|
Subject: |
01/04: website: donate: Factorize FSF link. |
|
Date: |
Sat, 05 Sep 2015 17:05:45 +0000 |
civodul pushed a commit to branch master
in repository guix-artwork.
commit 8d026b27e2ded8e5c6148ac0ec84b0869835d571
Author: Ludovic Courtès <address@hidden>
Date: Fri Sep 4 10:02:51 2015 +0200
website: donate: Factorize FSF link.
* website/www/donate.scm (fsf): New variable.
(donate-page): Use it.
---
website/www/donate.scm | 9 +++++----
1 files changed, 5 insertions(+), 4 deletions(-)
diff --git a/website/www/donate.scm b/website/www/donate.scm
index ad3d41d..559fc24 100644
--- a/website/www/donate.scm
+++ b/website/www/donate.scm
@@ -24,6 +24,9 @@
#:use-module (www shared)
#:export (donate-page))
+(define fsf
+ `(a (@ (href "https://www.fsf.org/";)) "Free Software Foundation"))
+
(define (donate-page)
`(html (@ (lang "en"))
,(html-page-header "Home")
@@ -69,8 +72,7 @@ reality.")
(th "donors")))
(tbody (tr (td "hydra.gnu.org")
(td "build farm front-end")
- (td (ul (li (a (@ (href
"https://www.fsf.org/";))
- "Free Software Foundation")))))
+ (td (ul (li ,fsf))))
(tr (td "hydra.gnunet.org")
(td "x86_64-linux, i686-linux")
(td (ul (li (a (@ (href
"https://gnunet.org/fsnsg";))
@@ -97,8 +99,7 @@ München")))))
(li "Mark H. Weaver (hosting)"))))
(tr (td "hydra-slave0")
(td "mips64el-linux")
- (td (ul (li (a (@ (href
"https://www.fsf.org/";))
- "Free Software Foundation")))))
+ (td (ul (li ,fsf))))
(tr (td "guix.sjd.se")
(td "x86_64-linux, i686-linux")
(td (ul (li (a (@ (href