Provide the service source code on the web page

Signed-off-by: Denis 'GNUtoo' Carikli <GNUtoo@cyberdimension.org>

Makefile.am

@@ -68,7 +68,7 @@ signing-key.pub:
 	'3A7E1F41E2D5784CFCABB39CB73F99E727D4A5C1ECA79D873587D63D093CC4B5' \
 	>$@
 
-IMAGE_SOURCE = \
+TARBALL_SOURCE = \
 	first-boot.sh \
 	guix-commit.txt \
 	index.html \
@@ -79,6 +79,10 @@ IMAGE_SOURCE = \
 	signing-key.pub \
 	wireguard-post-up.sh
 
+IMAGE_SOURCE = \
+	$(TARBALL_SOURCE) \
+	mumble-vm.tar.xz
+
 mumble-vm.img: $(IMAGE_SOURCE)
 	install \
 		`guix system image \
@@ -86,5 +90,11 @@ mumble-vm.img: $(IMAGE_SOURCE)
 			--image-size=6G mumble-vm-system.scm` \
 		$@
 
+mumble-vm.tar: $(TARBALL_SOURCE)
+	tar --exclude "id_ed25519" -cf $@ $(TARBALL_SOURCE)
+
+mumble-vm.tar.xz: mumble-vm.tar
+	xz -f -9e --verbose $<
+
 deploy: $(IMAGE_SOURCE)
 	guix deploy -L . mumble-vm-machine.scm

index.html.tmpl

@@ -99,9 +99,20 @@
       laquelle il tourne, etc.
     </p>
 
-    <!-- TODO:
+    <h2>Code source</h2>
-      -- * Fournir un lien vers le code source qui est déployé
+    <ul>
-      -- * Expliquer comment contribuer
+      <li>Code source du service qui tourne:
-      -->
+	<a href="mumble-vm.tar.xz">mumble-vm.tar.xz</a>
+      </li>
+      <li> git:
+	<a href="https://git.a-lec.org/GNUtoo/guix-mumble-vm.git">
+	  https://git.a-lec.org/GNUtoo/guix-mumble-vm.git
+	</a>
+      </li>
+      <li> Comment contribuer: envoyer un patch par mail à l'auteur
+      principal en attendant qu'on mette en place un meilleur système
+      pour les contributions.
+      </li>
+    </ul>
   </body>
 </html>

mumble-vm-system.scm.tmpl

@@ -34,12 +34,14 @@
   (package
     (name "website")
     (version "0.1")
-    (source (local-file "index.html" ))
+    ;; TODO: Make that tarball reproducible
+    (source (local-file "mumble-vm.tar.xz"))
     (build-system copy-build-system)
     (arguments
      (list
      #:install-plan
-     #~(list '("index.html" "var/www/DOMAIN/"))))
+     #~(list '("index.html" "var/www/DOMAIN/")
+             '(#$source  "var/www/DOMAIN/"))))
     (synopsis "The DOMAIN website.")
     (description
      "The website contains how to use the service, and how to