diff options
-rw-r--r-- | software.sxml | 70 |
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/") |