website: Factorize shared blocks.

* website/www/shared.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/packages.scm (packages-page): Likewise.

1 files changed, 153 insertions, 217 deletions

diff --git a/website/www/contribute.scm b/website/www/contribute.scm
index da254c9..076412a 100644
--- a/website/www/contribute.scm
+++ b/website/www/contribute.scm
@@ -1,222 +1,158 @@
 (define-module (www contribute)
+  #:use-module (www shared)
   #:export (contribute-page))
 
 (define contribute-page
-  '(html (@ (lang "en"))
-	 (head (meta (@ (charset "utf-8")))
-	       (meta (@ (name "author")
-			(content "GuixSD Contributors")))
-	       (meta (@ (name "description")
-			(content
-			 "GuixSD is GNU's advanced system
-distribution. GNU is an operating system which respects the freedom of
-computer users. You are free to run the system for any purpose, study
-how it works, improve it, and share it with the whole world.")))
-	       (meta (@ (name "keywords")
-			(content
-			 "GNU, FSF, Free Software Foundation, Linux,
-Emacs, GCC, Unix, Free Software, Libre Software, Operating System, GNU
-Kernel, GNU Hurd, GUix Package Manager, Guile Scheme, Functional
-package management")))
-	       (meta (@ (name "viewport")
-			(content "width=device-width, initial-scale=1.0")))
-	       (link (@ (type "text/css")
-			(rel "stylesheet")
-			(href "/software/guix/static/base/css/base.css")))
-	       (link (@ (type "text/css")
-			(rel "stylesheet")
-			(href "/software/guix/static/base/css/article.css")))
-	       (link (@ (type "image/png")
-			(rel "icon")
-			(href "/software/guix/static/base/img/favicon.png")))
-	       (link (@ (rel "license") (href "Pending...")))
-	       (title "Contribute - GuixSD"))
-	 (body (div (@ (class "message-box msg-info"))
-		    (span (@ (class "msg-label")) "Note")
-		    "The Guix System Distribution (GuixSD) is alpha
-software. This means it is not production-ready. It may contain bugs
-and lack important features. But more than a disclaimer, this is an
-invitation to join us in improving it. See "
-		    (a (@ (href "/software/guix/contribute/"))
-		       "Contributing")
-		    ", for more information. We hope you can soon
-switch to GuixSD without fear. ")
-	       (div (@ (id "header-box"))
-		    (a (@ (id "logo") (href "/software/guix/"))
-		       (img (@ (src "/software/guix/static/base/img/GuixSD-logo.png")
-			       (alt "GuixSD"))))
-		    (ul (@ (id "site-nav"))
-			(li (a (@ (href "/software/guix/download/"))
-			       "Download"))
-			(li (a (@ (href "/software/guix/package-list.html"))
-			       "Packages"))
-			(li (a (@ (href "/software/guix/help/")) "Help"))
-			(li (a (@ (href "/software/guix/contribute/"))
-			       "Contribute"))
-			(li (a (@ (href "/software/guix/donate/"))
-			       "Donate"))
-			(li (a (@ (href "/software/guix/about/"))
-			       "About"))))
-	       (div (@ (id "content-box"))
-		    (article
-		     (h1 "Contribute")
-		     (p "The Guix System Distribution is a large
-project developed mostly by volunteers from all around the world. You
-are welcome to join us in the "
-			(a (@ (href "http://lists.gnu.org/mailman/listinfo/guix-devel"))
-			   "development mailing list")
-			" or in the "
-			(a (@ (href "http://webchat.freenode.net/?channels=%23guix"))
-			   "#guix channel")
-			" in IRC Freenode. Tell us how would you like
-to help, and we will do our best to guide you. ")
-		     (div (@ (class "text-center"))
-			  (div (@ (class "summary-box"))
-			       (h2 (@ (id "pms"))
-				   "Project Management System")
-			       (p "We use "
-				  (a (@ (href "https://savannah.gnu.org/"))
-				     "Savannah")
-				  " as the central point for
-development, maintenance and distribution of the Guix System
-Distribution and GNU Guix.")
-			       (p " The source files for all the
-components of the project, including software, webiste, documentation,
-and artwork, are available in various repositories in Savannah. ")
-			       (a (@ (href "https://savannah.gnu.org/projects/guix")
-				     (class "hlink-more-dark"))
-				  "Get the source"))
-			  (div (@ (class "summary-box"))
-			       (h2 (@ (id "art")) "Art")
-			       (p "We are always looking for artists
-to help us design and improve user interfaces, and create multimedia
-material for documentation, presentations, and promotional items. ")
-			       (p "The artwork used in the different
-components of the project is available in the "
-				  (a (@ (href "http://git.savannah.gnu.org/cgit/guix/guix-artwork.git"))
-				     "guix-artwork")
-				  " repository. ")
-			       (a (@ (href "http://lists.gnu.org/mailman/listinfo/guix-devel")
-				     (class "hlink-more-dark"))
-				  "Contribute"))
-			  (div (@ (class "summary-box"))
-			       (h2 (@ (id "documentation"))
-				   "Documentation")
-			       (p "You can read the "
-				  (a (@ (href "/software/guix/help/"))
-				     "project documentation")
-				  " already available in the system
-and in the website, and help us identify any errors or
-omissions. Creating new manuals, tutorials, and blog entries will also
-help users and developers discover what we do. ")
-			       (p "Helping improve the documentation
-of the "
-				  (a (@ (href "/software/guix/packages/"))
-				     "packaged software")
-				  " is another way to contribute. ")
-			       (a (@ (href "http://lists.gnu.org/mailman/listinfo/guix-devel")
-				     (class "hlink-more-dark"))
-				  "Start writing"))
-			  (div (@ (class "summary-box"))
-			       (h2 (@ (id "packages")) "Packages")
-			       (p "Hundreds of software,
-documentation, and assets need to be packaged to make it easier for
-users to install their favorite tools with the Guix package manager,
-and be productive using the system. ")
-			       (p "Information on how to add packages
-to the distribution can be found "
-				  (a (@ (href "/software/guix/manual/guix.html#Packaging-Guidelines"))
-				     "in the manual")
-				  ". ")
-			       (a (@ (href "http://lists.gnu.org/mailman/listinfo/guix-devel")
-				     (class "hlink-more-dark"))
-				  "Send a new package"))
-			  (div (@ (class "summary-box"))
-			       (h2 (@ (id "programming")) "Programming")
-			       (p "We use "
-				  (a (@ (href "/software/guile/"))
-				     "GNU Guile")
-				  " as the main programming and
-extension language for the components of the system. ")
-			       (p "You will find it useful to browse
+  `(html (@ (lang "en"))
+	 ,(html-page-header "Contribute")
+	 (body
+	  ,(html-page-description)
+	  ,(html-page-links)
+	  (div (@ (id "content-box"))
+	       (article
+		(h1 "Contribute")
+		(p "The Guix System Distribution is a large project developed
+mostly by volunteers from all around the world. You are welcome to join us in
 the "
-				  (a (@ (href "/software/guile/manual"))
-				     "Guile's manual")
-				  " or other "
-				  (a (@ (href "http://schemers.org/Documents/#intro-texts"))
-				     "introductory material about
-Scheme")
-				  ". Also, make sure to read the "
-				  (a (@ (href "http://git.savannah.gnu.org/cgit/guix.git/tree/HACKING"))
-				     "HACKING")
-				  " files for more details on the
-development setup, as well as the coding and cooperation conventions
-used in the project. ")
-			       (a (@ (href "http://lists.gnu.org/mailman/listinfo/guix-devel")
-				     (class "hlink-more-dark"))
-				  "Send a new patch"))
-			  (div (@ (class "summary-box"))
-			       (h2 (@ (id "sysadmin"))
-				   "System Administration")
-			       (p "Our system infrastructure makes it
-possible for all the contributors to communicate and collaborate in
-the project, and users to be able to download and install
-packages. Help us keep the system up and running smoothly. ")
-			       (p "You can also "
-				  (a (@ (href "/software/guix/donate/"))
-				     "donate hardware or hosting")
-				  ". ")
-			       (a (@ (href "http://lists.gnu.org/mailman/listinfo/guix-devel")
-				     (class "hlink-more-dark"))
-				  "Contribute"))
-			  (div (@ (class "summary-box"))
-			       (h2 (@ (id "testing"))
-				   "Test and Bug Reports")
-			       (p "Install the software and send
-feedback to the community about your experience. Help the project
-reporting bugs.")
-			       (p "Before reporting a bug, please
-check whether the bug is already "
-				  (a (@ (href "http://debbugs.gnu.org/guix"))
-				     "in the bug database")
-				  ". See "
-				  (a (@ (href "http://debbugs.gnu.org/Developer.html"))
-				     "the developer information page")
-				  " for more information on how to
-manipulate bug reports. ")
-			       (a (@ (href "https://lists.gnu.org/mailman/listinfo/bug-guix")
-				     (class "hlink-more-dark"))
-				  "Report a bug"))
-			  (div (@ (class "summary-box"))
-			       (h2 (@ (id "translation")) "Translation")
-			       (p "You can help us translate software
-and documentation to your language. The main components of the Guix
-System Distribution, including the Guix package manager, can be
-translated in the "
-				  (a (@ (href "http://translationproject.org/"))
-				     "Translation Project")
-				  ".")
-			       (p "Other "
-				  (a (@ (href "/software/guix/packages/"))
-				     "software packaged")
-				  " for the system may have their own
-translation tools. Visit their websites and help translate. ")
-			       (a (@ (href "http://translationproject.org/")
-				     (class "hlink-more-dark"))
-				  "Start translating")))
-		     (h2 (@ (id "resources"))
-			 "Other resources for contributors")
-		     (p "Documents, supporting material of previous
-talks, and auxiliary information useful to hackers and maintainers is
-available at "
-			(a (@ (href "http://git.savannah.gnu.org/cgit/guix/maintenance.git"))
-			   "git://git.sv.gnu.org/guix/maintenance.git")
-			".")))
-	       (div (@ (id "footer-box"))
-		    "copyleft 2015 GuixSD "
-		    (a (@ (href "/software/guix/contribute/")
-			  (class "hlink-yellow"))
-		       "Contributors")
-		    ". Made with "
-		    (span (@ (class "metta")) "♥")
-		    " by humans."))))
+		   (a (@ (href "http://lists.gnu.org/mailman/listinfo/guix-devel"))
+		      "development mailing list")
+		   " or in the "
+		   (a (@ (href "http://webchat.freenode.net/?channels=%23guix"))
+		      "#guix channel")
+		   " in IRC Freenode. Tell us how would you like to help, and we
+will do our best to guide you. ")
+		(div (@ (class "text-center"))
+		     (div (@ (class "summary-box"))
+			  (h2 (@ (id "pms"))
+			      "Project Management System")
+			  (p "We use "
+			     (a (@ (href "https://savannah.gnu.org/"))
+				"Savannah")
+			     " as the central point for development,
+maintenance and distribution of the Guix System Distribution and GNU Guix.")
+			  (p "The source files for all the components of the
+project, including software, webiste, documentation, and artwork, are available
+in various repositories in Savannah. ")
+			  (a (@ (href "https://savannah.gnu.org/projects/guix")
+				(class "hlink-more-dark"))
+			     "Get the source"))
+		     (div (@ (class "summary-box"))
+			  (h2 (@ (id "art")) "Art")
+			  (p "We are always looking for artists to help us
+design and improve user interfaces, and create multimedia material for
+documentation, presentations, and promotional items. ")
+			  (p "The artwork used in the different components of
+the project is available in the "
+			     (a (@ (href "http://git.savannah.gnu.org/cgit/guix/guix-artwork.git"))
+				"guix-artwork")
+			     "repository. ")
+			  (a (@ (href "http://lists.gnu.org/mailman/listinfo/guix-devel")
+				(class "hlink-more-dark"))
+			     "Contribute"))
+		     (div (@ (class "summary-box"))
+			  (h2 (@ (id "documentation"))
+			      "Documentation")
+			  (p "You can read the "
+			     (a (@ (href "/software/guix/help/"))
+				"project documentation")
+			     " already available in the system and in the
+website, and help us identify any errors or omissions. Creating new manuals,
+tutorials, and blog entries will also help users and developers discover what we
+do. ")
+			  (p "Helping improve the documentation of
+the "
+			     (a (@ (href "/software/guix/packages/"))
+				"packaged software")
+			     " is another way to contribute. ")
+			  (a (@ (href "http://lists.gnu.org/mailman/listinfo/guix-devel")
+				(class "hlink-more-dark"))
+			     "Start writing"))
+		     (div (@ (class "summary-box"))
+			  (h2 (@ (id "packages")) "Packages")
+			  (p "Hundreds of software, documentation, and assets
+need to be packaged to make it easier for users to install their favorite tools
+with the Guix package manager, and be productive using the system. ")
+			  (p "Information on how to add packages to the
+distribution can be found "
+			     (a (@ (href "/software/guix/manual/guix.html#Packaging-Guidelines"))
+				"in the manual")
+			     ". ")
+			  (a (@ (href "http://lists.gnu.org/mailman/listinfo/guix-devel")
+				(class "hlink-more-dark"))
+			     "Send a new package"))
+		     (div (@ (class "summary-box"))
+			  (h2 (@ (id "programming")) "Programming")
+			  (p "We use "
+			     (a (@ (href "/software/guile/"))
+				"GNU Guile")
+			     " as the main programming and extension language
+for the components of the system. ")
+			  (p "You will find it useful to browse the "
+			     (a (@ (href "/software/guile/manual"))
+				"Guile's manual")
+			     " or other "
+			     (a (@ (href "http://schemers.org/Documents/#intro-texts"))
+				"introductory material about Scheme")
+			     ". Also, make sure to read the "
+			     (a (@ (href "http://git.savannah.gnu.org/cgit/guix.git/tree/HACKING"))
+				"HACKING")
+			     " files for more details on the development setup,
+as well as the coding and cooperation conventions used in the project. ")
+			  (a (@ (href "http://lists.gnu.org/mailman/listinfo/guix-devel")
+				(class "hlink-more-dark"))
+			     "Send a new patch"))
+		     (div (@ (class "summary-box"))
+			  (h2 (@ (id "sysadmin"))
+			      "System Administration")
+			  (p "Our system infrastructure makes it possible for
+all the contributors to communicate and collaborate in the project, and users to
+be able to download and install packages. Help us keep the system up and running
+smoothly. ")
+			  (p "You can also "
+			     (a (@ (href "/software/guix/donate/"))
+				"donate hardware or hosting")
+			     ". ")
+			  (a (@ (href "http://lists.gnu.org/mailman/listinfo/guix-devel")
+				(class "hlink-more-dark"))
+			     "Contribute"))
+		     (div (@ (class "summary-box"))
+			  (h2 (@ (id "testing"))
+			      "Test and Bug Reports")
+			  (p "Install the software and send feedback to the
+community about your experience. Help the project reporting bugs.")
+			  (p "Before reporting a bug, please check whether the
+bug is already "
+			     (a (@ (href "http://debbugs.gnu.org/guix"))
+				"in the bug database")
+			     ". See "
+			     (a (@ (href "http://debbugs.gnu.org/Developer.html"))
+				"the developer information page")
+			     " for more information on how to manipulate bug
+reports. ")
+			  (a (@ (href "https://lists.gnu.org/mailman/listinfo/bug-guix")
+				(class "hlink-more-dark"))
+			     "Report a bug"))
+		     (div (@ (class "summary-box"))
+			  (h2 (@ (id "translation")) "Translation")
+			  (p "You can help us translate software and
+documentation to your language. The main components of the Guix System
+Distribution, including the Guix package manager, can be translated in the "
+			     (a (@ (href "http://translationproject.org/"))
+				"Translation Project")
+			     ".")
+			  (p "Other "
+			     (a (@ (href "/software/guix/packages/"))
+				"software packaged")
+			     " for the system may have their own translation
+tools. Visit their websites and help translate. ")
+			  (a (@ (href "http://translationproject.org/")
+				(class "hlink-more-dark"))
+			     "Start translating")))
+		(h2 (@ (id "resources"))
+		    "Other resources for contributors")
+		(p "Documents, supporting material of previous talks, and
+auxiliary information useful to hackers and maintainers is available at "
+		   (a (@ (href "http://git.savannah.gnu.org/cgit/guix/maintenance.git"))
+		      "git://git.sv.gnu.org/guix/maintenance.git")
+		   ".")))
+	  ,(html-page-footer))))