From f938b66e0d7404cc88c77008f90783c9df7cff83 Mon Sep 17 00:00:00 2001 From: Arun Isaac Date: Wed, 29 Jun 2022 19:38:43 +0530 Subject: 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. (): 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. --- genenetwork/development-helper.scm | 13 +++++++++++++ 1 file changed, 13 insertions(+) (limited to 'genenetwork') 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"))))) -- cgit v1.2.3