18 files changed, 690 insertions, 0 deletions

diff --git a/README b/README
new file mode 100644
index 0000000..d011a5e
--- /dev/null
+++ b/README
@@ -0,0 +1,17 @@
+To build the web site, you need Haunt:
+
+  https://dthompson.us/projects/haunt.html
+
+You can install it with something like:
+
+  guix install haunt
+
+The following command builds the web site:
+
+  haunt build
+
+… and this one serves a copy of the web site:
+
+  haunt serve
+
+Enjoy!
diff --git a/backronyms.txt b/backronyms.txt
new file mode 100644
index 0000000..9e42d1a
--- /dev/null
+++ b/backronyms.txt
@@ -0,0 +1,13 @@
+random ideas:
+
+  - “GNU” as in “new”
+  - Gathering under a New Umbrella
+  - Group Now Unified
+  - GNU’s Now Unionized
+  - Getting New Users
+  - Graphics, Networking, Utilities — Software for a variety of use
+    cases.
+
+  - Gather, Grow, Group, Game, Grab, Guile
+  - Never, Now, New, Not
+  - Ultimate, Unequaled, Unprecedented, User, Unity, Unified
diff --git a/haunt.scm b/haunt.scm
new file mode 100644
index 0000000..18a7b2d
--- /dev/null
+++ b/haunt.scm
@@ -0,0 +1,125 @@
+;;; The GNU Assembly Web Site
+;;; Copyright © 2021 Ludovic Courtès <ludo@gnu.org>
+;;;
+;;; This program is free software; you can redistribute it and/or modify it
+;;; under the terms of the GNU General Public License as published by
+;;; the Free Software Foundation; either version 3 of the License, or (at
+;;; your option) any later version.
+;;;
+;;; This program is distributed in the hope that it will be useful, but
+;;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;;; GNU General Public License for more details.
+;;;
+;;; You should have received a copy of the GNU General Public License
+;;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+(use-modules (haunt asset)
+             (haunt site)
+             (haunt page)
+             (haunt html)
+             (haunt builder assets)
+             (haunt reader)
+             (haunt reader commonmark)
+             (srfi srfi-71))
+
+(define %cwd
+  (and=> (assq-ref (current-source-location) 'filename)
+         dirname))
+
+(define (base-url . location)
+  (string-concatenate (cons "" location)))
+
+(define (image-url location)
+  (base-url "/static/images" location))
+
+(define (css-url location)
+  (base-url "/static/css" location))
+
+(define* (base-layout body #:key (title "") (meta '())
+                      (posts '()) site)
+  `((doctype "html")
+    (html (@ (lang "en"))
+          (head
+           (meta (@ (http-equiv "Content-Type")
+                    (content "text/html; charset=utf-8")))
+           (link (@ (rel "icon")
+                    (type "image/x-icon")
+                    (href ,(image-url "/favicon.png"))))
+           (link (@ (rel "stylesheet")
+                    (href ,(css-url "/main.css"))
+                    (type "text/css")
+                    (media "screen")))
+           (title ,title))
+          (body
+           (div (@ (id "header")
+                   ,@(if (assoc-ref meta 'frontpage)
+                         '((class "frontpage"))
+                         '()))
+                (div (@ (id "header-inner")
+                        (class "width-control"))
+                     (a (@ (href ,(base-url "/")))
+                        (img (@ (class "logo")
+                                (src ,(image-url (if (assoc-ref meta 'frontpage)
+                                                     "/logo.png"
+                                                     "/logo-small.png"))))))
+                     ,@(if (assoc-ref meta 'frontpage)
+                           '((div (@ (class "baseline"))
+                                  "Software for human empowerment."))
+                           '())))
+           (div (@ (id "menubar")
+                   (class "width-control"))
+                (ul
+                 (li (a (@ (href ,(base-url "/")))
+                        "About"))
+                 (li (a (@ (href ,(base-url "/blog")))
+                        "Blog"))
+                 (li (a (@ (href ,(base-url "/blog/feed.xml")))
+                        (img (@ (alt "Atom feed")
+                                (src ,(image-url "/feed.png"))))))))
+
+           (div (@ (id "content")
+                   (class "width-control"))
+                (div (@ (id "content-inner"))
+                     (article ,body)))
+
+           (div (@ (id "footer-box")
+                   (class "width-control"))
+                (p (a (@ (href "https://wiki.gnu.tools/git/")) ;FIXME
+                      "Source of this site")))))))
+
+(define read-markdown
+  (reader-proc commonmark-reader))
+
+(define (read-markdown-page file posts site)
+  "Read the CommonMark page from FILE.  Return its final SXML
+representation."
+  (let ((meta body (read-markdown (string-append %cwd "/" file))))
+    (base-layout `(div (@ (class "post"))
+                       (div (@ (class "post-body")) ,body))
+                 #:title (string-append "The GNU Assembly — "
+                                        (assoc-ref meta 'title))
+                 #:meta meta
+                 #:posts posts
+                 #:site site)))
+
+(define (static-pages)
+  "Return the list of static web pages."
+  (define (markdown-page html md)
+    (lambda (site posts)
+      (make-page html (read-markdown-page md posts site)
+                 sxml->html)))
+
+  (list (markdown-page "index.html" "index.md")
+        (markdown-page "/en/documents/social-contract/index.html"
+                       "social-contract.md")))
+
+
+(site #:title "The GNU Assembly"
+      #:domain "gnu.tools"
+      #:default-metadata
+      '((author . "The GNU Assembly")
+        (email  . "assembly@lists.gnu.tools"))
+      #:readers (list commonmark-reader)
+      #:builders (cons (static-directory "static")
+                       (static-pages)))
diff --git a/index.md b/index.md
new file mode 100644
index 0000000..f433b67
--- /dev/null
+++ b/index.md
@@ -0,0 +1,35 @@
+title: The GNU Assembly — Software for human empowerment
+frontpage: yes
+---
+
+**DRAFT**
+
+Welcome to the GNU Assembly!  Wondering what this is?  Here are the
+highlights:
+
+  - Gathering under a New Umbrella —
+    [We](https://wiki.gnu.tools/gnu:social-contract-endorsement),
+    maintainers and contributors of well-known free software projects
+    are making this place our new home, fighting for the freedom of
+    computer users and hacking the good hack.
+  - Governance, Not Unilateralism — This new home is governed by those
+    who build it [following common goals and sharing the same
+    values](/en/documents/social-contract): the
+    [Assembly](https://lists.gnu.tools/hyperkitty/list/assembly@lists.gnu.tools/)
+    is where we openly and respectfully discuss day-to-day operation and
+    the general direction of our umbrella project.
+  - This Group’s Not Uniform — We have common goals but also different
+    backgrounds, and we view it as a strength.  Our interactions in this
+    project are subject to its [code of
+    conduct](https://wiki.gnu.tools/wiki:code-of-conduct).
+  - GNU’s Novelty is Unequaled — We contribute to projects that go back
+    to the roots of free software, some of us even know what “CVS”
+    means.  These projects and newer ones are leading in their own
+    domain and we plan to keep it that way.
+  - GNU Needs U! — It’s about building a software commons to empower
+    computer users.  We need you — as a user, developer, speaker,
+    coordinator, translator, system administrator: if you share [our
+    goals](https://wiki.gnu.tools/gnu:social-contract), bring your own
+    contributions!
+
+“GNU” as in “new” — join us now!
diff --git a/social-contract.md b/social-contract.md
new file mode 100644
index 0000000..7779132
--- /dev/null
+++ b/social-contract.md
@@ -0,0 +1,52 @@
+title: GNU Social Contract 1.0
+author: The GNU Assembly
+---
+
+# GNU Social Contract 1.0
+
+These are the core commitments of the GNU Project, which creates and
+distributes a software system that respects users' freedoms.
+
+## The GNU Project respects users' freedoms
+
+The GNU Project provides software that guarantees to all users the
+_Four Essential Freedoms_, without compromise:
+  0. The freedom to run the program as they wish, for any purpose.
+  1. The freedom to study how the program works, and change it so it does
+     their computing as they wish.
+  2. The freedom to redistribute copies so they can help others.
+  3. The freedom to distribute copies of their modified versions to others.
+
+The GNU Project adopts policies that encourage and enable developers
+to actively defend user freedom.  These policies include using
+_copyleft licenses_, designed to ensure that users’ freedoms cannot be
+stripped off, when appropriate.
+
+Besides upholding the Four Essential Freedoms, the GNU Project pays
+attention to new threats to users' freedom, and responds to them as they
+arise.
+
+
+## The GNU Project provides a consistent system
+
+The GNU Project develops an operating system, the _GNU System_, as well as
+a set of applications.  Each software component developed by the GNU Project
+is referred to as a _GNU package_.  GNU package developers work together to
+ensure consistency across packages.
+
+
+## The GNU Project collaborates with the broader free software community
+
+The GNU Project works together with other free software projects to
+advance its goals, and aims to extend the reach of the project beyond
+the GNU System.
+
+
+## The GNU Project welcomes contributions from all and everyone
+
+The GNU Project commits to providing a harassment-free
+experience for all contributors.  It wants to give everyone the
+opportunity of contributing to its efforts on any of the many tasks that
+require work.  It welcomes all contributors, regardless of their gender,
+ethnicity, sexual orientation, level of experience, or any other
+personal characteristics.
diff --git a/static/css/code.css b/static/css/code.css
new file mode 100644
index 0000000..c308845
--- /dev/null
+++ b/static/css/code.css
@@ -0,0 +1,33 @@
+/* Syntax highlighting code, by David Thompson, borrowed
+   from:
+     https://git.dthompson.us/blog.git/blob_plain/refs/heads/haunt-migration:/css/dthompson.css
+   David Thompson gives permission for this to be GPLv3+ and CC BY-SA 4.0
+
+   Modified significantly since.
+*/
+
+
+.syntax-special, .syntax-element {
+    color: #856;
+    font-weight: bold;
+}
+
+.syntax-symbol {
+    color: #423;
+}
+
+.syntax-string {
+    color: #484;
+}
+
+.syntax-keyword, .syntax-attribute {
+    color: #921;
+}
+
+.syntax-comment {
+    color: #666;
+}
+
+.syntax-open, .syntax-close {
+    color: #688;
+}
diff --git a/static/css/main.css b/static/css/main.css
new file mode 100644
index 0000000..16f4836
--- /dev/null
+++ b/static/css/main.css
@@ -0,0 +1,321 @@
+@import url("code.css");
+
+@font-face {
+    font-family: 'Roboto';
+    src: url('/static/fonts/Roboto-Light.ttf') format('truetype');
+    font-weight: normal;
+    font-style: normal;
+}
+
+@font-face {
+    font-family: 'Roboto-Italic';
+    src: url('/static/fonts/Roboto-LightItalic.ttf') format('truetype');
+    font-weight: normal;
+    font-style: italic;
+}
+
+@font-face {
+    font-family: 'Roboto-Bold';
+    src: url('/static/fonts/Roboto-Bold.ttf') format('truetype');
+    font-weight: normal;
+    font-style: bold;
+}
+
+@font-face {
+    font-family: 'FiraMono';
+    src: url('/static/fonts/FiraMono-Regular.ttf') format('truetype');
+    font-weight: normal;
+    font-style: bold;
+}
+
+@media all {html {font-size: 20px;}}
+@media all and (max-width:1260px){html {font-size: 20px;}}
+@media all and (max-width:1000px){html {font-size: 20px;}}
+@media all and (max-width:960px){html {font-size: 19px;}}
+@media all and (max-width:920px){html {font-size: 18px;}}
+@media all and (max-width:880px){html {font-size: 17px;}}
+@media all and (max-width:840px){html {font-size: 16px;}}
+@media all and (max-width:800px){html {font-size: 16px;}}
+@media all and (max-width:760px){html {font-size: 16px;}}
+
+/*#ffbf2d*/
+
+body,html {
+    background-color: #fff;
+    width: 100%;
+    height: 100%;
+    line-height: 1.6em;
+    padding: 0px;
+    margin: 0px;
+    font-family: 'Roboto', sans-serif;
+}
+
+pre {
+    border-style: none;
+    border-radius: 0.3em;
+    background-color: #f2efe4;
+    border-width: thin;
+    color: #423;
+    font-size: 0.9em;
+    padding: 10px;
+    text-align: left;
+    font-family: fixed-width;
+    overflow-x: auto;
+    margin-bottom: 0.8rem;
+}
+
+code {
+    font-family: 'FiraMono', monospace;
+    border-radius: 0.3em;
+}
+
+/* Arrange to have between 40 and 70 characters per line.  */
+
+.width-control {
+    max-width: 800px;
+    width: 65%;
+}
+
+@media all and (max-width: 760px) { .width-control { width: 90%; } };
+
+p {
+    max-width: 70rem;
+    margin-bottom: 0;
+}
+
+p + p {
+    /*text-indent: 0.5rem;*/
+    margin-top: 1.0rem;
+}
+
+#header {
+    background: #fff;
+    height: 90px;
+    width: 100%;
+    box-shadow: 0 3px 8px #ccc;
+}
+
+#header .logo {
+    padding: 10px;
+    display: block;
+}
+
+#header .baseline {
+    color: #073b4c;
+    font-size: 16px;
+    font-family: 'Roboto', sans-serif;
+    font-weight: bold;
+    display: none;  /* overridden below */
+    padding: 10px;
+    padding-top: 2px;
+}
+
+#header .members {
+    float: right;
+}
+
+@media screen and (min-width: 640px) {
+    #header .baseline {
+        display: block;
+    }
+    #header {
+        height: 110px;
+    }
+}
+
+#header.frontpage {
+    height: auto;
+    margin-bottom: 1em;
+    text-align: center;
+    padding-top: 2rem;
+    padding-bottom: 1rem;
+}
+
+#header.frontpage .logo {
+    padding: 0;
+    margin: 0 auto;
+    max-width: 100%;
+}
+
+#header.frontpage .baseline {
+    padding-top: 1rem;
+}
+
+#menubar {
+    margin: auto;
+    padding: 0px;
+    clear: both;
+}
+
+#header-inner {
+    margin: auto;
+    padding: 0px;
+}
+
+
+.latest-news {
+    margin-top: 20px;
+    padding-top: 0px;
+    padding-bottom: 0px;
+    padding-left: 10pt;
+    border-left: solid 10px #ffbf2d;
+    color: #533;
+}
+
+.news-brief {
+}
+
+#collaboration {
+    border-top: solid 4px #aaaaaa;
+    border-bottom: solid 4px #aaaaaa;
+    background: #ffffff;
+    width: 100%;
+    bottom: 0px;
+}
+#collaboration-inner { margin: 10px auto 10px auto; }
+#collaboration .members { text-align: center; }
+#collaboration p { padding: 0px 10px 0px 10px; }
+#collaboration .members ul { display: inline-block; padding: 0px; margin: 0px; }
+#collaboration .members li {
+    display: inline-block; padding: 0px 10px; 0px 0px;
+    vertical-align: middle;
+}
+
+.post {
+    background: #ffffff;
+    padding: 10px;
+    margin-bottom: 25px;
+}
+
+hr {
+    height: 3px;
+    background: url('/static/images/h-separator-darker.png');
+    background-repeat: no-repeat;
+    background-position: center;
+    width: 100%;
+    border: none;
+}
+
+.post h1 { color: #433; }
+.post h2 { color: #433; padding: 0pt; font-size: 1.3rem; }
+
+.post-about {
+    color: #4D4D4D;
+    font-size: 0.9em;
+    margin-top: -3em;
+}
+
+#menubar ul { display: inline-block; padding: 0px; margin: 0px; }
+#menubar li {
+    display: inline-block;
+    color: #000000;
+    height: 32px;
+    line-height: 32px;
+    list-style-type: none;
+    margin: 0px;
+    margin: 0px 13px 0px 0px;
+    text-transform: uppercase;
+    text-decoration: none;
+    font-size: small;
+}
+
+#menubar li img {
+    vertical-align: middle;
+}
+
+#menubar ul:first-child {
+    padding-left: 10px;
+}
+
+#content {
+    margin: auto;
+    padding: 0px;
+}
+
+#content .search-field {
+    border: solid thin #aaaaaa;
+    width: 100%;
+    padding: 7px;
+    -webkit-border-radius: 5px;
+    -moz-border-radius: 5px;
+    border-radius: 5px;
+}
+
+#content table {
+    border-spacing: 0px;
+    padding: 0px;
+}
+
+#content table td { padding: 3px 5px 3px 5px; height: 25px; }
+
+#packages-table-wrapper {
+    font-size: 16px;
+}
+
+#stand-by {
+    background: #decd87;
+    -webkit-border-radius: 5px;
+    -moz-border-radius: 5px;
+    border-radius: 5px;
+    font-size: 16px;
+}
+
+#stand-by p { padding: 7px }
+
+#footer-box {
+    width: 100%;
+    margin: auto;
+    text-align: center;
+    color: #333333;
+    font-size: 0.8rem;
+}
+
+#footer-box p {
+    max-width: 100%;
+    text-align: center;
+}
+
+h1 {
+    clear: both;
+    line-height: 125%;
+    margin-top: 1.3rem;
+    margin-bottom: .3rem;
+    padding: 0px;
+    display: block;
+    font-size: 1.6rem;
+    font-weight: 800;
+}
+
+h1:first-child {
+    font-size: 1.8rem;
+    margin-bottom: 3rem;
+    margin-top: 0;
+}
+
+.title a { border: none; }
+a {
+    color: #000000;
+    outline: none;
+    border-style: none none solid none;
+    border-width: 2px;
+    border-color: #ef476f;
+    text-decoration: none;
+}
+a:visited {
+    color: #433;
+    border-color: #06d6a0;
+    border-style: none none solid none;
+    border-width: 2px;
+    text-decoration: none;
+}
+a img { outline : none; }
+img { border: none; }
+
+audio, video, .full-width {
+    display: block;
+    margin: 50px auto;
+    max-width: 100%;
+}
+
+#footer-box a { color: #333333; }
+#footer-box a:visited { color: #333333; }
diff --git a/static/fonts/FiraMono-Regular.ttf b/static/fonts/FiraMono-Regular.ttf
new file mode 100755
index 0000000..59e1e1a
--- /dev/null
+++ b/static/fonts/FiraMono-Regular.ttf
diff --git a/static/fonts/OFL.txt b/static/fonts/OFL.txt
new file mode 100644
index 0000000..ae50f94
--- /dev/null
+++ b/static/fonts/OFL.txt
@@ -0,0 +1,94 @@
+Copyright (c) 2010, Matt McInerney (matt@pixelspread.com),

+Copyright (c) 2011, Pablo Impallari (www.impallari.com|impallari@gmail.com),

+Copyright (c) 2011, Rodrigo Fuenzalida (www.rfuenzalida.com|hello@rfuenzalida.com), with Reserved Font Name Raleway

+This Font Software is licensed under the SIL Open Font License, Version 1.1.

+This license is copied below, and is also available with a FAQ at:

+http://scripts.sil.org/OFL

+

+

+-----------------------------------------------------------

+SIL OPEN FONT LICENSE Version 1.1 - 26 February 2007

+-----------------------------------------------------------

+

+PREAMBLE

+The goals of the Open Font License (OFL) are to stimulate worldwide

+development of collaborative font projects, to support the font creation

+efforts of academic and linguistic communities, and to provide a free and

+open framework in which fonts may be shared and improved in partnership

+with others.

+

+The OFL allows the licensed fonts to be used, studied, modified and

+redistributed freely as long as they are not sold by themselves. The

+fonts, including any derivative works, can be bundled, embedded, 

+redistributed and/or sold with any software provided that any reserved

+names are not used by derivative works. The fonts and derivatives,

+however, cannot be released under any other type of license. The

+requirement for fonts to remain under this license does not apply

+to any document created using the fonts or their derivatives.

+

+DEFINITIONS

+"Font Software" refers to the set of files released by the Copyright

+Holder(s) under this license and clearly marked as such. This may

+include source files, build scripts and documentation.

+

+"Reserved Font Name" refers to any names specified as such after the

+copyright statement(s).

+

+"Original Version" refers to the collection of Font Software components as

+distributed by the Copyright Holder(s).

+

+"Modified Version" refers to any derivative made by adding to, deleting,

+or substituting -- in part or in whole -- any of the components of the

+Original Version, by changing formats or by porting the Font Software to a

+new environment.

+

+"Author" refers to any designer, engineer, programmer, technical

+writer or other person who contributed to the Font Software.

+

+PERMISSION & CONDITIONS

+Permission is hereby granted, free of charge, to any person obtaining

+a copy of the Font Software, to use, study, copy, merge, embed, modify,

+redistribute, and sell modified and unmodified copies of the Font

+Software, subject to the following conditions:

+

+1) Neither the Font Software nor any of its individual components,

+in Original or Modified Versions, may be sold by itself.

+

+2) Original or Modified Versions of the Font Software may be bundled,

+redistributed and/or sold with any software, provided that each copy

+contains the above copyright notice and this license. These can be

+included either as stand-alone text files, human-readable headers or

+in the appropriate machine-readable metadata fields within text or

+binary files as long as those fields can be easily viewed by the user.

+

+3) No Modified Version of the Font Software may use the Reserved Font

+Name(s) unless explicit written permission is granted by the corresponding

+Copyright Holder. This restriction only applies to the primary font name as

+presented to the users.

+

+4) The name(s) of the Copyright Holder(s) or the Author(s) of the Font

+Software shall not be used to promote, endorse or advertise any

+Modified Version, except to acknowledge the contribution(s) of the

+Copyright Holder(s) and the Author(s) or with their explicit written

+permission.

+

+5) The Font Software, modified or unmodified, in part or in whole,

+must be distributed entirely under this license, and must not be

+distributed under any other license. The requirement for fonts to

+remain under this license does not apply to any document created

+using the Font Software.

+

+TERMINATION

+This license becomes null and void if any of the above conditions are

+not met.

+

+DISCLAIMER

+THE FONT SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,

+EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO ANY WARRANTIES OF

+MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT

+OF COPYRIGHT, PATENT, TRADEMARK, OR OTHER RIGHT. IN NO EVENT SHALL THE

+COPYRIGHT HOLDER BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,

+INCLUDING ANY GENERAL, SPECIAL, INDIRECT, INCIDENTAL, OR CONSEQUENTIAL

+DAMAGES, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING

+FROM, OUT OF THE USE OR INABILITY TO USE THE FONT SOFTWARE OR FROM

+OTHER DEALINGS IN THE FONT SOFTWARE.

diff --git a/static/fonts/Roboto-Bold.ttf b/static/fonts/Roboto-Bold.ttf
new file mode 100644
index 0000000..a355c27
--- /dev/null
+++ b/static/fonts/Roboto-Bold.ttf
diff --git a/static/fonts/Roboto-Light.ttf b/static/fonts/Roboto-Light.ttf
new file mode 100644
index 0000000..94c6bcc
--- /dev/null
+++ b/static/fonts/Roboto-Light.ttf
diff --git a/static/fonts/Roboto-LightItalic.ttf b/static/fonts/Roboto-LightItalic.ttf
new file mode 100644
index 0000000..04cc002
--- /dev/null
+++ b/static/fonts/Roboto-LightItalic.ttf
diff --git a/static/images/background.png b/static/images/background.png
new file mode 100644
index 0000000..8772226
--- /dev/null
+++ b/static/images/background.png
diff --git a/static/images/favicon.png b/static/images/favicon.png
new file mode 100644
index 0000000..448d4cb
--- /dev/null
+++ b/static/images/favicon.png
diff --git a/static/images/feed.png b/static/images/feed.png
new file mode 100644
index 0000000..0bfc69d
--- /dev/null
+++ b/static/images/feed.png
diff --git a/static/images/h-separator-darker.png b/static/images/h-separator-darker.png
new file mode 100644
index 0000000..2f20098
--- /dev/null
+++ b/static/images/h-separator-darker.png
diff --git a/static/images/logo-small.png b/static/images/logo-small.png
new file mode 100644
index 0000000..ba0f29b
--- /dev/null
+++ b/static/images/logo-small.png
diff --git a/static/images/logo.png b/static/images/logo.png
new file mode 100644
index 0000000..209287c
--- /dev/null
+++ b/static/images/logo.png