From 3e1bfc2ab895a17d80aeae462d33f947adaa71e2 Mon Sep 17 00:00:00 2001
From: Efraim Flashner
Date: Mon, 27 Apr 2020 10:05:34 +0000
Subject: shepherd: Add hrdp service

---
 shepherd/init.d/hrdp-project.scm | 14 ++++++++++++++
 shepherd/init.d/test-upgrade.scm |  2 +-
 2 files changed, 15 insertions(+), 1 deletion(-)
 create mode 100644 shepherd/init.d/hrdp-project.scm

(limited to 'shepherd/init.d')

diff --git a/shepherd/init.d/hrdp-project.scm b/shepherd/init.d/hrdp-project.scm
new file mode 100644
index 0000000..1008aca
--- /dev/null
+++ b/shepherd/init.d/hrdp-project.scm
@@ -0,0 +1,14 @@
+(define hrdf-project
+  (make <service>
+	#:provides '(hrdf-project)
+	#:docstring "Run the hrdf-project web server"
+	#:start (make-forkexec-constructor
+		  '("/var/guix/profiles/per-user/shepherd/current-guix/bin/guix"
+		    "environment" "--ad-hoc" "hrdp-project" "--"
+		    "sh" "-c" "$GUIX_ENVIRONMENT/main.py")
+		  #:log-file "/home/shepherd/logs/hrdf-project.log")
+	#:stop (make-kill-destructor)
+	#:respawn? #t))
+(register-services hrdf-project)
+
+(start hrdf-project)
diff --git a/shepherd/init.d/test-upgrade.scm b/shepherd/init.d/test-upgrade.scm
index fc731ce..82662c3 100644
--- a/shepherd/init.d/test-upgrade.scm
+++ b/shepherd/init.d/test-upgrade.scm
@@ -8,7 +8,7 @@
 		  '("guix" "build" "-L" "/home/shepherd/guix-bioinformatics"
 		    "--no-grafts" "bnw" "gitea" "go-ipfs" "edirect"
 		    "bxd-power-calculator-app" "rn6-assembly-error-app"
-		    "singlecellrshiny")
+		    "singlecellrshiny" "virtuoso-ose" "hrdf-project")
 		    ;(zero? (system* "guix" "system" "-L" "/home/shepherd/guix-bioinformatics"
 		    ;		    "container" "/home/shepherd/guix-bioinformatics/gn/services/bnw-container.scm"
 		    ;		    "--share=/home/shepherd/logs/bnw-server=/var/log" "--network")))
-- 
cgit v1.2.3