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/") |