Provide G-expression script for UTHSC VPN.

* topics/uthsc-vpn-with-free-software.gmi (Putting it all together
using Guix G-expressions): New section.
* topics/uthsc-vpn.scm: New file.
* tissue.scm (#:web-files): Publish scm files.

1 files changed, 2 insertions, 1 deletions

diff --git a/tissue.scm b/tissue.scm
index 645a84b..bdeac24 100644
--- a/tissue.scm
+++ b/tissue.scm
@@ -62,7 +62,8 @@
                                                             #:engine %engine)))
                                    ((or (string-suffix? ".jpg" filename)
                                         (string-suffix? ".png" filename)
-                                        (string-suffix? ".svg" filename))
+                                        (string-suffix? ".svg" filename)
+                                        (string-suffix? ".scm" filename))
                                     (file filename
                                           (copier filename)))
                                    (else #f)))