about summary refs log tree commit diff
diff options
context:
space:
mode:
authorEfraim Flashner2022-10-13 18:28:28 +0300
committerEfraim Flashner2022-10-13 18:28:28 +0300
commit1454b86d292b284b61ff9044dfb4221719732a60 (patch)
tree6bb14e45e9254e5dd014cc4aee1c76852e92e0f3
parentb891e579f1d111c29396a9669798eebebe967963 (diff)
downloadgn-shepherd-services-1454b86d292b284b61ff9044dfb4221719732a60.tar.gz
Update pluto service
-rw-r--r--pluto-channels.scm26
-rwxr-xr-xrun_pluto.sh2
-rw-r--r--shepherd/init.d/pluto.scm17
3 files changed, 34 insertions, 11 deletions
diff --git a/pluto-channels.scm b/pluto-channels.scm
new file mode 100644
index 0000000..10257cf
--- /dev/null
+++ b/pluto-channels.scm
@@ -0,0 +1,26 @@
+(list
+  (channel
+    (name 'gn-bioinformatics)
+    (url "https://gitlab.com/genenetwork/guix-bioinformatics")
+    (commit
+      "ac5eef9bfb431fac6fdfc60dd06ef44607787b76"))
+  (channel
+    (name 'guix-past)
+    (url "https://gitlab.inria.fr/guix-hpc/guix-past")
+    (commit
+      "247a14c67af91febfbd5b7f60be9f64945fba713")
+    (introduction
+      (make-channel-introduction
+        "0c119db2ea86a389769f4d2b9c6f5c41c027e336"
+        (openpgp-fingerprint
+          "3CE4 6455 8A84 FDC6 9DB4  0CFB 090B 1199 3D9A EBB5"))))
+  (channel
+    (name 'guix)
+    (url "https://git.savannah.gnu.org/git/guix.git")
+    (commit
+      "79358a99cd46a27fdc716309ccee2596483ab9af")
+    (introduction
+      (make-channel-introduction
+        "9edb3f66fd807b096b48283debdcddccfea34bad"
+        (openpgp-fingerprint
+          "BBB0 2DDF 2CEA F6A8 0D1D  E643 A2A0 6DF2 A33A 54FA")))))
diff --git a/run_pluto.sh b/run_pluto.sh
deleted file mode 100755
index a0f4cfe..0000000
--- a/run_pluto.sh
+++ /dev/null
@@ -1,2 +0,0 @@
-#!/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
index dc36730..81c7fe6 100644
--- a/shepherd/init.d/pluto.scm
+++ b/shepherd/init.d/pluto.scm
@@ -1,14 +1,13 @@
 (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))
+        #:provides '(pluto)
+        #:docstring "Run a pluto web server"
+        #:start (make-forkexec-constructor
+                  ;; Update the path to runpluto as the guix-profile changes.
+                  '("/home/shepherd/guix-profiles/pluto/bin/guix" "shell" "--container" "--network" "--no-cwd" "julia-visuals" "--" "/gnu/store/wbci39sd5pqrjrb5ak0lkmv9jhnl35kv-julia-visuals-0.0.0-1.e7d670e/runpluto.sh")
+                  #:log-file "/home/shepherd/logs/pluto.log")
+        #:stop (make-kill-destructor)
+        #:respawn? #t))
 (register-services pluto)
 
 (start pluto)