1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
| | ;;; 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_ "We are looking for donations of hardware and optionally
hosting for machines (they should be usable with exclusively
free 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"))
(img (@ (src ,(guix-url "static/base/img/cuirass.png"))
(alt "")))
,(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"))
"."))
))))
|