software: Record project logos.

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 @@
              (haunt utils))
 
 (define-record-type <project>
-  (project id name url members)
+  (project id name url logo members)
   project?
   (id      project-id)
   (name    project-name)
   (url     project-url)
+  (logo    project-logo)
   (members project-members set-project-members!))
 
 (define-record-type <person>
@@ -22,14 +23,20 @@
   (make-person name url avatar))
 
 (define %projects
-  (let ((table (make-hash-table)))
+  (let ((table (make-hash-table))
+        (placeholder-logo "/static/images/logos/placeholder.svg"))
     (for-each
      (match-lambda
+       ((id name url logo)
+        (hash-table-set! table id
+                         (project id name url logo (list))))
        ((id name url)
-        (hash-table-set! table id (project id name url (list)))))
+        (hash-table-set! table id
+                         (project id name url placeholder-logo (list)))))
      '((8sync
         "8sync"
-        "https://www.gnu.org/software/8sync/")
+        "https://www.gnu.org/software/8sync/"
+        "/static/images/logos/8sync.png")
        (adns
         "GNU adns"
         "https://www.gnu.org/software/adns/")
@@ -47,69 +54,88 @@
         "https://savannah.gnu.org/projects/dominion")
        (gcc
         "GNU Compiler Collection (GCC)"
-        "https://gcc.gnu.org")
+        "https://gcc.gnu.org"
+        "/static/images/logos/gcc.png")
        (gdb
-        "GDB" "https://www.gnu.org/software/gdb/")
+        "GDB"
+        "https://www.gnu.org/software/gdb/"
+        "/static/images/logos/gdb.svg")
        (glibc
         "GNU C Library"
-        "https://www.gnu.org/software/libc/")
+        "https://www.gnu.org/software/libc/"
+        "/static/images/logos/glibc.jpg")
        (gneural
         "GNU Gneural Network"
-        "https://www.gnu.org/software/gneuralnetwork/")
+        "https://www.gnu.org/software/gneuralnetwork/"
+        "/static/images/logos/gneural_network.png")
        (gnucobol
         "GnuCOBOL"
-        "https://gnucobol.sourceforge.io/")
+        "https://gnucobol.sourceforge.io/"
+        "/static/images/logos/gnucobol.png")
        (gnupg
         "GnuPG"
-        "https://gnupg.org")
+        "https://gnupg.org"
+        "/static/images/logos/gnupg.png")
        (gsl
         "GNU Scientific Library"
         "https://www.gnu.org/software/gsl/")
        (guile
         "GNU Guile"
-        "https://www.gnu.org/software/guile/")
+        "https://www.gnu.org/software/guile/"
+        "/static/images/logos/guile.svg")
        (guile-debbugs
         "Guile-Debbugs"
-        "https://savannah.gnu.org/projects/guile-debbugs/")
+        "https://savannah.gnu.org/projects/guile-debbugs/"
+        "/static/images/logos/guile.svg")
        (guile-gnome
         "Guile-GNOME"
-        "https://www.gnu.org/software/guile-gnome/")
+        "https://www.gnu.org/software/guile-gnome/"
+        "/static/images/logos/guile.svg")
        (guile-opengl
         "Guile-OpenGL"
-        "https://www.gnu.org/software/guile-opengl/")
+        "https://www.gnu.org/software/guile-opengl/"
+        "/static/images/logos/guile.svg")
        (guile-rpc
         "GNU Guile-RPC"
-        "https://www.gnu.org/software/guile-rpc/")
+        "https://www.gnu.org/software/guile-rpc/"
+        "/static/images/logos/guile.svg")
        (guix
         "GNU Guix"
-        "https://guix.gnu.org")
+        "https://guix.gnu.org"
+        "/static/images/logos/guix.png")
        (gwl
         "Guix Workflow Language"
-        "https://guixwl.org")
+        "https://guixwl.org"
+        "/static/images/logos/gwl.png")
        (hurd
         "GNU Hurd"
-        "https://hurd.gnu.org")
+        "https://hurd.gnu.org"
+        "/static/images/logos/hurd.png")
        (indent
         "GNU indent"
         "https://www.gnu.org/software/indent/")
        (libgcrypt
         "GNU Libgcrypt"
-        "https://gnupg.org/related_software/libgcrypt/")
+        "https://gnupg.org/related_software/libgcrypt/"
+        "/static/images/logos/gnupg.png")
        (libtasn1
         "GNU Libtasn1"
         "https://www.gnu.org/software/libtasn1/")
        (lilypond
         "GNU LilyPond"
-        "https://lilypond.org/")
+        "https://lilypond.org/"
+        "/static/images/logos/lilypond.png")
        (liquid-war-6
         "Liquid War 6"
         "https://www.gnu.org/software/liquidwar6/")
        (mcsim
         "GNU MCSim"
-        "https://www.gnu.org/software/mcsim/")
+        "https://www.gnu.org/software/mcsim/"
+        "/static/images/logos/mcsim.png")
        (mediagoblin
         "GNU MediaGoblin"
-        "https://mediagoblin.org/")
+        "https://mediagoblin.org/"
+        "/static/images/logos/mediagoblin.svg")
        (mes
         "GNU Mes"
         "https://www.gnu.org/software/mes/")