diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2015-09-04 10:02:51 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2015-09-05 19:04:36 +0200 |
| commit | 8d026b27e2ded8e5c6148ac0ec84b0869835d571 (patch) | |
| tree | 1a933a9f02ab91687b13ff880a4767bb389fbcbe | |
| parent | 92069c9d3566875daf64837835768780450a1353 (diff) | |
| download | guix-artwork-8d026b27e2ded8e5c6148ac0ec84b0869835d571.tar guix-artwork-8d026b27e2ded8e5c6148ac0ec84b0869835d571.tar.gz | |
website: donate: Factorize FSF link.
* website/www/donate.scm (fsf): New variable.
(donate-page): Use it.
| -rw-r--r-- | 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 |