02/02: website: Add a Cuirass page.

[Mathieu Othacehe]

mothacehe pushed a commit to branch master
in repository guix-artwork.

commit 2373073d0e2d4811ab66ef87ba4e861180b49b5e
Author: Mathieu Othacehe <othacehe@gnu.org>
AuthorDate: Wed Jan 13 11:46:10 2021 +0100

    website: Add a Cuirass page.
    
    * website/apps/base/templates/cuirass.scm: New file.
    * website/po/POTFILES: Add it.
    * website/static/base/img/cuirass.png: New file.
    * website/apps/base/builder.scm (cuirass-builder): New procedure,
    (builder): add it.
    * website/apps/base/templates/contribute.scm (contribute-t): Add a link to
    Cuirass page.
---
 website/apps/base/builder.scm              |  24 +++++-----
 website/apps/base/templates/contribute.scm |   6 ++-
 website/apps/base/templates/cuirass.scm    |  68 +++++++++++++++++++++++++++++
 website/po/POTFILES                        |   1 +
 website/static/base/img/cuirass.png        | Bin 0 -> 7263 bytes
 5 files changed, 87 insertions(+), 12 deletions(-)

diff --git a/website/apps/base/builder.scm b/website/apps/base/builder.scm
index 4882dc5..d0b7094 100644
--- a/website/apps/base/builder.scm
+++ b/website/apps/base/builder.scm
@@ -6,6 +6,7 @@
   #:use-module (apps base data)
   #:use-module (apps base templates about)
   #:use-module (apps base templates contact)
+  #:use-module (apps base templates cuirass)
   #:use-module (apps base templates irc)
   #:use-module (apps base templates contribute)
   #:use-module (apps base templates donate)
@@ -47,15 +48,16 @@
      application. See Haunt <page> objects for more information."
   (flatten
    (list (menu-builder)
-        (home-builder site posts)
-        (help-builder)
-        (donate-builder)
-        (about-builder)
-        (contact-builder)
-        (irc-builder)
-        (contribute-builder)
-        (security-builder)
-        (graphics-builder))))
+         (home-builder site posts)
+         (help-builder)
+         (cuirass-builder)
+         (donate-builder)
+         (about-builder)
+         (contact-builder)
+         (irc-builder)
+         (contribute-builder)
+         (security-builder)
+         (graphics-builder))))
 
 
 
@@ -83,12 +85,14 @@
   "Return a Haunt page representing the Contribute page of the website."
   (make-page "contribute/index.html" (contribute-t) sxml->html))
 
+(define (cuirass-builder)
+  "Return a Haunt page representing the Cuirass page of the website."
+  (make-page "cuirass/index.html" (cuirass-t) sxml->html))
 
 (define (donate-builder)
   "Return a Haunt page representing the Donate page of the website."
   (make-page "donate/index.html" (donate-t) sxml->html))
 
-
 (define (graphics-builder)
   "Return a Haunt page representing the Graphics page of the website."
   (make-page "graphics/index.html" (graphics-t) sxml->html))
diff --git a/website/apps/base/templates/contribute.scm 
b/website/apps/base/templates/contribute.scm
index b91b9d4..a126b3b 100644
--- a/website/apps/base/templates/contribute.scm
+++ b/website/apps/base/templates/contribute.scm
@@ -217,11 +217,13 @@ Translation|I18N|L10N|Artwork") #\|)
             us keep the system up and running smoothly. "))
         ,(G_
           `(p
-            "You can also "
+            "You can contribute to our continous integration software: "
+            (a (@ (href ,(guix-url "cuirass/"))) "Cuirass")
+            ". You can also "
             ,(G_ `(a (@ (href ,(guix-url "donate/")))
                      "donate hardware or hosting"))
             " for our "
-            ,(G_ `(a (@ (href "https://ci.guix.gnu.org";)) "build farm")) ".  
"))
+            ,(G_ `(a (@ (href "https://ci.guix.gnu.org";)) "build farm"))))
        (p
         ,(link-more
            #:label (G_ "Contribute")
diff --git a/website/apps/base/templates/cuirass.scm 
b/website/apps/base/templates/cuirass.scm
new file mode 100644
index 0000000..24a37c0
--- /dev/null
+++ b/website/apps/base/templates/cuirass.scm
@@ -0,0 +1,68 @@
+;;; GNU Guix web site
+;;; Initially written by sirgazil who waives all
+;;; copyright interest on this file.
+
+(define-module (apps base templates cuirass)
+  #:use-module (apps base templates components)
+  #:use-module (apps base templates theme)
+  #:use-module (apps base types)
+  #:use-module (apps base utils)
+  #:use-module (apps i18n)
+  #:export (cuirass-t))
+
+(define (cuirass-t)
+  "Return the Cuirass page in SHTML."
+  (theme
+   #:title (C_ "webpage title" '("Cuirass"))
+   #:description
+   (G_ "GNU Guix continuous integration software.")
+   #:keywords
+   (string-split ;TRANSLATORS: |-separated list of webpage keywords
+    (G_ "GNU|Linux|Unix|Free software|Libre software|Operating \
+system|GNU Guix package manager|Cuirass|CI") #\|)
+   #:css (list
+          (guix-url "static/base/css/page.css"))
+   #:content
+   `(main
+     (section
+      (@ (class "page centered-block limit-width"))
+      (h2 (img (@ (src ,(guix-url "static/base/img/cuirass.png"))
+                  (alt "Cuirass"))))
+      ,(G_ `(p "Cuirass is the GNU Guix continuous
+integration software. It's a general purpose build automation server written
+in GNU Guile that checks out sources from VCS repositories, execute build jobs
+and store build results in a database. Cuirass also provides a web interface
+to monitor the build results."))
+
+      ,(G_ `(p "Cuirass is running on GNU Guix build farm at "
+               `(a (@ (href "https://ci.guix.gnu.org";))
+                   "https://ci.guix.gnu.org";)
+               "."))
+      ,(G_ `(h3 "Features"))
+      (ul
+       (li
+        ,(G_ "Poll sources from multiple Git repositories."))
+       (li
+        ,(G_ "Execute builds on local or remote Guix daemons."))
+       (li
+        ,(G_ "Store build products or artifacts."))
+       (li
+        ,(G_ "Collect build logs and metrics."))
+       (li
+        ,(G_ "Provides a REST API."))
+       (li
+        ,(G_ `"High level of concurrency using ")
+        (a (@ (href "https://github.com/wingo/fibers";))
+           "Guile-Fibers")
+        ,(G_ " asynchronous library.")))
+      ,(G_ `(h3 "Documentation"))
+      ,(G_ `(p "Cuirass documentation is accessible "
+               ,(G_ `(a (@ (href ,(manual-url "Continuous-Integration.html")))
+                        "here"))
+               "."))
+      ,(G_ `(h3 "Project repository"))
+      ,(G_ `(p "Cuirass source code is hosted at "
+               ,(G_ `(a (@ (href 
"//git.savannah.gnu.org/cgit/guix/guix-cuirass.git"))
+                        "git://git.sv.gnu.org/guix/guix-cuirass.git"))
+               "."))
+      ))))
diff --git a/website/po/POTFILES b/website/po/POTFILES
index 6f9f349..51f1c1f 100644
--- a/website/po/POTFILES
+++ b/website/po/POTFILES
@@ -9,6 +9,7 @@ apps/base/templates/help.scm
 # other files
 apps/base/templates/contact.scm
 apps/base/templates/contribute.scm
+apps/base/templates/cuirass.scm
 apps/base/templates/donate.scm
 apps/base/templates/graphics.scm
 apps/base/templates/irc.scm
diff --git a/website/static/base/img/cuirass.png 
b/website/static/base/img/cuirass.png
new file mode 100644
index 0000000..8649496
Binary files /dev/null and b/website/static/base/img/cuirass.png differ