aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xrun_pluto.sh2
-rw-r--r--shepherd/init.d/pluto.scm14
2 files changed, 16 insertions, 0 deletions
diff --git a/run_pluto.sh b/run_pluto.sh
new file mode 100755
index 0000000..a0f4cfe
--- /dev/null
+++ b/run_pluto.sh
@@ -0,0 +1,2 @@
+#!/bin/sh
+$(/home/shepherd/guix-profiles/pluto/bin/guix system container -L /home/shepherd/guix-past/modules/ -L /home/shepherd/guix-bioinformatics/ /home/shepherd/guix-bioinformatics/gn/services/pluto.scm --network)
diff --git a/shepherd/init.d/pluto.scm b/shepherd/init.d/pluto.scm
new file mode 100644
index 0000000..dc36730
--- /dev/null
+++ b/shepherd/init.d/pluto.scm
@@ -0,0 +1,14 @@
+(define pluto
+ (make <service>
+ #:provides '(pluto)
+ #:docstring "Run a pluto web server"
+ #:start (make-forkexec-constructor
+ '("/home/shepherd/run_pluto.sh")
+ #:log-file "/home/shepherd/logs/pluto.log")
+ #:stop (make-kill-destructor)
+ ;; currently running in a screen session
+ #:auto-start? #f
+ #:respawn? #t))
+(register-services pluto)
+
+(start pluto)