Add tissue search interface.

* genenetwork-development.scm: Import shadow from (gnu packages
admin).
(gn-gemtext-threads-index): New function.
(gn-gemtext-threads-project)[ci-jobs]: Add gn-gemtext-threads-index.
(<tissue-configuration>): New type.
(tissue-shepherd-service, tissue-reverse-proxy-server-block): New
function.
(%tissue-accounts, tissue-service-type): New variables.
(operating-system)[services]: Add tissue tissue service and reverse
proxy it.
* genenetwork/development-helper.scm (tissue-index-gexp): New
function.

1 files changed, 13 insertions, 0 deletions

diff --git a/genenetwork/development-helper.scm b/genenetwork/development-helper.scm
index e8364ef..85ab1a1 100644
--- a/genenetwork/development-helper.scm
+++ b/genenetwork/development-helper.scm
@@ -157,3 +157,16 @@ SOURCE. PROFILE is a profile with necessary dependencies."
 
           (chdir #$source)
           (invoke "tissue" "web" #$output)))))
+
+(define (tissue-index-gexp source profile)
+  "Return a G-expression that builds a tissue index from
+SOURCE. PROFILE is a profile with necessary dependencies."
+  (with-imported-modules '((guix build utils))
+    (with-profile profile
+      #~(begin
+          (use-modules (guix build utils))
+
+          (mkdir-p #$output)
+          (chdir #$output)
+          (copy-recursively #$source #$output)
+          (invoke "tissue" "index")))))