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.

1 files changed, 26 insertions, 25 deletions

diff --git a/website/www.scm b/website/www.scm
index 36d7ee7..a6399bc 100644
--- a/website/www.scm
+++ b/website/www.scm
@@ -1,4 +1,5 @@
 (define-module (www)
+  #:use-module (www utils)
   #:use-module (www shared)
   #:use-module (www packages)
   #:use-module (www download)
@@ -27,21 +28,21 @@
 			     "The Guix System Distribution")
 			 (ul (li (b "Liberating.")
 				 " GuixSD is an advanced distribution of the "
-				 (a (@ (href "https://gnu.org/")
+				 (a (@ (href ,(gnu-url ""))
 				       (class "hlink-yellow"))
 				    "GNU Operating System")
 				 " developed by the "
-				 (a (@ (href "https://gnu.org/")
+				 (a (@ (href ,(gnu-url ""))
 				       (class "hlink-yellow"))
 				    "GNU Project ")
 				 "—which respects the "
-				 (a (@ (href "http://www.gnu.org/philosophy/free-sw.html")
+				 (a (@ (href ,(gnu-url "philosophy/free-sw.html"))
 				       (class "hlink-yellow"))
 				    "freedom of computer users")
 				 ". ")
 			     (li (b "Dependable.")
 				 " The "
-				 (a (@ (href "/software/guix/manual/")
+				 (a (@ (href ,(guix-url "manual"))
 				       (class "hlink-yellow"))
 				    "GNU Guix")
 				 " Package Manager, in addition to standard
@@ -49,17 +50,17 @@ package management features, supports transactional upgrades and roll-backs,
 unprivileged package management, per-user profiles, and garbage collection.")
 			     (li (b "Hackable.")
 				 " It provides "
-				 (a (@ (href "https://www.gnu.org/s/guile/")
+				 (a (@ (href ,(gnu-url "software/guile/"))
 				       (class "hlink-yellow"))
 				    "Guile Scheme")
 				 " APIs, including high-level embedded
 domain-specific languages (EDSLs), to describe how packages are built and
 composed."))
 			 (div (@ (class "featured-actions"))
-			      (a (@ (href "/software/guix/download/")
+			      (a (@ (href ,(base-url "download"))
 				    (class "action download"))
 				 "TEST v0.8.2 (alpha)")
-			      (a (@ (href "/software/guix/contribute/")
+			      (a (@ (href ,(base-url "contribute"))
 				    (class "action contribute"))
 				 "CONTRIBUTE"))))
 	       (div (@ (id "discovery-box"))
@@ -67,15 +68,15 @@ composed."))
 		    (div (@ (class "info-box text-center"))
 			 (video (@ (src "http://audio-video.gnu.org/video/misc/2015-01__GNU_Guix__The_Emacs_of_Distros.webm")
 				   (poster
-				    "/software/guix/static/base/img/the-emacs-of-distros.png")
+				    ,(image-url "the-emacs-of-distros.png"))
 				   (controls "controls")
 				   (class "video-preview")))
 			 (p "January 2015, The Emacs of Distros (48 minutes)")
-			 (p (a (@ (href "/software/guix/help/#talks")
+			 (p (a (@ (href ,(base-url "help/#talks"))
 				  (class "hlink-more-light"))
 			       "Check all talks")))
 		    (div (@ (class "info-box text-left"))
-			 (p (a (@ (href "/software/guix/manual/")
+			 (p (a (@ (href ,(guix-url "manual"))
 				  (class "hlink-yellow"))
 			       "GNU Guix Documentation")
 			    (br)
@@ -93,38 +94,38 @@ packaging API. ")
 			       "GNU Manuals Online")
 			    (br)
 			    "Primary documentation for official GNU packages.")
-			 (p (a (@ (href "/software/guix/help/")
+			 (p (a (@ (href ,(base-url "help"))
 				  (class "hlink-more-light"))
 			       "Find more documentation")))
-		    (img (@ (src "/software/guix/static/base/img/h-separator-darker.png")
+		    (img (@ (src ,(image-url "h-separator-darker.png"))
 			    (class "h-separator")
 			    (alt "")))
 		    (div (@ (id "screens-box"))
-			 (a (@ (href "/software/guix/screenshots/0.8.2/grub-menu.png"))
-			    (img (@ (src "/software/guix/static/base/img/screenshots/grub-menu-thumb.png")
+			 (a (@ (href ,(screenshot-url "0.8.2" "grub-menu.png")))
+			    (img (@ (src ,(thumb-url "grub-menu-thumb.png"))
 				    (class "screenshot-thumb")
 				    (alt "GRUB menu"))))
-			 (a (@ (href "/software/guix/screenshots/0.8.2/slim.png"))
-			    (img (@ (src "/software/guix/static/base/img/screenshots/slim-thumb.png")
+			 (a (@ (href ,(screenshot-url "0.8.2" "slim.png")))
+			    (img (@ (src ,(thumb-url "slim-thumb.png"))
 				    (class "screenshot-thumb")
 				    (alt "Slim login manager"))))
-			 (a (@ (href "/software/guix/screenshots/0.8.2/windowmaker+icecat+inkscape.png"))
-			    (img (@ (src "/software/guix/static/base/img/screenshots/windowmaker+icecat+inkscape-thumb.png")
+			 (a (@ (href ,(screenshot-url "0.8.2" "windowmaker+icecat+inkscape.png")))
+			    (img (@ (src ,(thumb-url "windowmaker+icecat+inkscape-thumb.png"))
 				    (class "screenshot-thumb")
 				    (alt "Windowmaker, Icecat, and Inkscape"))))
-			 (a (@ (href "/software/guix/screenshots/0.8.2/user-interfaces.png"))
-			    (img (@ (src "/software/guix/static/base/img/screenshots/user-interfaces-thumb.png")
+			 (a (@ (href ,(screenshot-url "0.8.2" "user-interfaces.png")))
+			    (img (@ (src ,(thumb-url "user-interfaces-thumb.png"))
 				    (class "screenshot-thumb")
 				    (alt "mplayer and xterm"))))
-			 (a (@ (href "/software/guix/screenshots/0.8.2/emacs-ui-packages.png"))
-			    (img (@ (src "/software/guix/static/base/img/screenshots/emacs-ui-packages-thumb.png")
+			 (a (@ (href ,(screenshot-url "0.8.2" "emacs-ui-packages.png")))
+			    (img (@ (src ,(thumb-url "emacs-ui-packages-thumb.png"))
 				    (class "screenshot-thumb")
 				    (alt "Emacs user interface to the package manager."))))
-			 (a (@ (href "/software/guix/screenshots/0.8.2/emacs-ui-generations.png"))
-			    (img (@ (src "/software/guix/static/base/img/screenshots/emacs-ui-generations-thumb.png")
+			 (a (@ (href ,(screenshot-url "0.8.2" "emacs-ui-generations.png")))
+			    (img (@ (src ,(thumb-url "emacs-ui-generations-thumb.png"))
 				    (class "screenshot-thumb")
 				    (alt "Emacs user interface generations.")))))
-		    (p (a (@ (href "/software/guix/contribute/")
+		    (p (a (@ (href ,(base-url "contribute") )
 			     (class "hlink-yellow-boxed"))
 			  "Help us package more software →")))
 	       (div (@ (id "news-box"))