summaryrefslogtreecommitdiffstats
path: root/software.sxml
diff options
context:
space:
mode:
Diffstat (limited to 'software.sxml')
-rw-r--r--software.sxml70
1 files changed, 48 insertions, 22 deletions
diff --git a/software.sxml b/software.sxml
index 195440a..96efa2d 100644
--- a/software.sxml
+++ b/software.sxml
@@ -4,11 +4,12 @@
4 (haunt utils)) 4 (haunt utils))
5 5
6(define-record-type <project> 6(define-record-type <project>
7 (project id name url members) 7 (project id name url logo members)
8 project? 8 project?
9 (id project-id) 9 (id project-id)
10 (name project-name) 10 (name project-name)
11 (url project-url) 11 (url project-url)
12 (logo project-logo)
12 (members project-members set-project-members!)) 13 (members project-members set-project-members!))
13 14
14(define-record-type <person> 15(define-record-type <person>
@@ -22,14 +23,20 @@
22 (make-person name url avatar)) 23 (make-person name url avatar))
23 24
24(define %projects 25(define %projects
25 (let ((table (make-hash-table))) 26 (let ((table (make-hash-table))
27 (placeholder-logo "/static/images/logos/placeholder.svg"))
26 (for-each 28 (for-each
27 (match-lambda 29 (match-lambda
30 ((id name url logo)
31 (hash-table-set! table id
32 (project id name url logo (list))))
28 ((id name url) 33 ((id name url)
29 (hash-table-set! table id (project id name url (list))))) 34 (hash-table-set! table id
35 (project id name url placeholder-logo (list)))))
30 '((8sync 36 '((8sync
31 "8sync" 37 "8sync"
32 "https://www.gnu.org/software/8sync/") 38 "https://www.gnu.org/software/8sync/"
39 "/static/images/logos/8sync.png")
33 (adns 40 (adns
34 "GNU adns" 41 "GNU adns"
35 "https://www.gnu.org/software/adns/") 42 "https://www.gnu.org/software/adns/")
@@ -47,69 +54,88 @@
47 "https://savannah.gnu.org/projects/dominion") 54 "https://savannah.gnu.org/projects/dominion")
48 (gcc 55 (gcc
49 "GNU Compiler Collection (GCC)" 56 "GNU Compiler Collection (GCC)"
50 "https://gcc.gnu.org") 57 "https://gcc.gnu.org"
58 "/static/images/logos/gcc.png")
51 (gdb 59 (gdb
52 "GDB" "https://www.gnu.org/software/gdb/") 60 "GDB"
61 "https://www.gnu.org/software/gdb/"
62 "/static/images/logos/gdb.svg")
53 (glibc 63 (glibc
54 "GNU C Library" 64 "GNU C Library"
55 "https://www.gnu.org/software/libc/") 65 "https://www.gnu.org/software/libc/"
66 "/static/images/logos/glibc.jpg")
56 (gneural 67 (gneural
57 "GNU Gneural Network" 68 "GNU Gneural Network"
58 "https://www.gnu.org/software/gneuralnetwork/") 69 "https://www.gnu.org/software/gneuralnetwork/"
70 "/static/images/logos/gneural_network.png")
59 (gnucobol 71 (gnucobol
60 "GnuCOBOL" 72 "GnuCOBOL"
61 "https://gnucobol.sourceforge.io/") 73 "https://gnucobol.sourceforge.io/"
74 "/static/images/logos/gnucobol.png")
62 (gnupg 75 (gnupg
63 "GnuPG" 76 "GnuPG"
64 "https://gnupg.org") 77 "https://gnupg.org"
78 "/static/images/logos/gnupg.png")
65 (gsl 79 (gsl
66 "GNU Scientific Library" 80 "GNU Scientific Library"
67 "https://www.gnu.org/software/gsl/") 81 "https://www.gnu.org/software/gsl/")
68 (guile 82 (guile
69 "GNU Guile" 83 "GNU Guile"
70 "https://www.gnu.org/software/guile/") 84 "https://www.gnu.org/software/guile/"
85 "/static/images/logos/guile.svg")
71 (guile-debbugs 86 (guile-debbugs
72 "Guile-Debbugs" 87 "Guile-Debbugs"
73 "https://savannah.gnu.org/projects/guile-debbugs/") 88 "https://savannah.gnu.org/projects/guile-debbugs/"
89 "/static/images/logos/guile.svg")
74 (guile-gnome 90 (guile-gnome
75 "Guile-GNOME" 91 "Guile-GNOME"
76 "https://www.gnu.org/software/guile-gnome/") 92 "https://www.gnu.org/software/guile-gnome/"
93 "/static/images/logos/guile.svg")
77 (guile-opengl 94 (guile-opengl
78 "Guile-OpenGL" 95 "Guile-OpenGL"
79 "https://www.gnu.org/software/guile-opengl/") 96 "https://www.gnu.org/software/guile-opengl/"
97 "/static/images/logos/guile.svg")
80 (guile-rpc 98 (guile-rpc
81 "GNU Guile-RPC" 99 "GNU Guile-RPC"
82 "https://www.gnu.org/software/guile-rpc/") 100 "https://www.gnu.org/software/guile-rpc/"
101 "/static/images/logos/guile.svg")
83 (guix 102 (guix
84 "GNU Guix" 103 "GNU Guix"
85 "https://guix.gnu.org") 104 "https://guix.gnu.org"
105 "/static/images/logos/guix.png")
86 (gwl 106 (gwl
87 "Guix Workflow Language" 107 "Guix Workflow Language"
88 "https://guixwl.org") 108 "https://guixwl.org"
109 "/static/images/logos/gwl.png")
89 (hurd 110 (hurd
90 "GNU Hurd" 111 "GNU Hurd"
91 "https://hurd.gnu.org") 112 "https://hurd.gnu.org"
113 "/static/images/logos/hurd.png")
92 (indent 114 (indent
93 "GNU indent" 115 "GNU indent"
94 "https://www.gnu.org/software/indent/") 116 "https://www.gnu.org/software/indent/")
95 (libgcrypt 117 (libgcrypt
96 "GNU Libgcrypt" 118 "GNU Libgcrypt"
97 "https://gnupg.org/related_software/libgcrypt/") 119 "https://gnupg.org/related_software/libgcrypt/"
120 "/static/images/logos/gnupg.png")
98 (libtasn1 121 (libtasn1
99 "GNU Libtasn1" 122 "GNU Libtasn1"
100 "https://www.gnu.org/software/libtasn1/") 123 "https://www.gnu.org/software/libtasn1/")
101 (lilypond 124 (lilypond
102 "GNU LilyPond" 125 "GNU LilyPond"
103 "https://lilypond.org/") 126 "https://lilypond.org/"
127 "/static/images/logos/lilypond.png")
104 (liquid-war-6 128 (liquid-war-6
105 "Liquid War 6" 129 "Liquid War 6"
106 "https://www.gnu.org/software/liquidwar6/") 130 "https://www.gnu.org/software/liquidwar6/")
107 (mcsim 131 (mcsim
108 "GNU MCSim" 132 "GNU MCSim"
109 "https://www.gnu.org/software/mcsim/") 133 "https://www.gnu.org/software/mcsim/"
134 "/static/images/logos/mcsim.png")
110 (mediagoblin 135 (mediagoblin
111 "GNU MediaGoblin" 136 "GNU MediaGoblin"
112 "https://mediagoblin.org/") 137 "https://mediagoblin.org/"
138 "/static/images/logos/mediagoblin.svg")
113 (mes 139 (mes
114 "GNU Mes" 140 "GNU Mes"
115 "https://www.gnu.org/software/mes/") 141 "https://www.gnu.org/software/mes/")