diff options
| author | Mathieu Lirzin <mthl@openmailbox.org> | 2015-05-08 04:56:17 +0200 |
|---|---|---|
| committer | Mathieu Lirzin <mthl@openmailbox.org> | 2015-05-11 22:46:24 +0200 |
| commit | 35f094f1328a02e95dec2eee793dd99c5d642f32 (patch) | |
| tree | 2ff5662c2ff1abeded2e13fe0c4cfe4af49635fe /website/www/about.scm | |
| parent | 342ffb86355240c8b28dfce84983183fcbbca7f3 (diff) | |
| download | guix-artwork-35f094f1328a02e95dec2eee793dd99c5d642f32.tar guix-artwork-35f094f1328a02e95dec2eee793dd99c5d642f32.tar.gz | |
website: Fix URLs.
Enable local export to link URLs correctly.
* website/www/utils.scm: New file.
* website/www.scm (main-page): Use it.
* website/www/about.scm (about-page): Likewise.
* website/www/contribute.scm (contribute-page): Likewise.
* website/www/donate.scm (donate-page): Likewise.
* website/www/download.scm (download-page): Likewise.
* website/www/help.scm (help-page): Likewise.
* website/www/shared.scm (html-page-header, html-page-description)
(html-page-links, html-page-footer): Likewise.
Diffstat (limited to 'website/www/about.scm')
| -rw-r--r-- | website/www/about.scm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/website/www/about.scm b/website/www/about.scm index 128041d..ce48638 100644 --- a/website/www/about.scm +++ b/website/www/about.scm @@ -1,4 +1,5 @@ (define-module (www about) + #:use-module (www utils) #:use-module (www shared) #:export (about-page)) @@ -17,7 +18,7 @@ (em "GNU Guix") " package manager are free software projects developed by the " - (a (@ (href "http://www.gnu.org/")) + (a (@ (href ,(gnu-url ""))) "GNU Project") " and independent volunteers from various parts of the world. This is the official website for both projects. ") @@ -30,7 +31,7 @@ understand the concept, you should think of \"free\" as in \"free speech\", not as in \"free beer\". ") (p "More precisely, free software means users of a program have the " - (a (@ (href "/philosophy/free-sw.html")) + (a (@ (href ,(gnu-url "philosophy/free-sw.html"))) "four essential freedoms") ":") (ul (li "The freedom to run the program as you wish, for any @@ -52,7 +53,7 @@ Courtès. Please use the " (h2 (@ (id "license")) "Licensing") (p "Guix is free software; you can redistribute it and/or modify it under the terms of the " - (a (@ (rel "license") (href "/licenses/gpl.html")) + (a (@ (rel "license") (href ,(gnu-url "licenses/gpl.html"))) "GNU General Public License") " as published by the Free Software Foundation; either version\xa03 of the License, or (at your option) any later version. ") |