Trying out shepherd to manage services

Cardano alonzo purple network and wallet

1 files changed, 32 insertions, 0 deletions

diff --git a/config/shepherd/init.d/cardano.scm b/config/shepherd/init.d/cardano.scm
new file mode 100644
index 0000000..4e73046
--- /dev/null
+++ b/config/shepherd/init.d/cardano.scm
@@ -0,0 +1,32 @@
+(let ((config-dir (string-append (getenv "HOME") "/.guix-profile/etc/conf/cardano/"))
+      (db-dir (string-append (getenv "HOME") "/test-cardano/purple/")))
+  (mkdir db-dir)
+  (register-services
+   (make <service>
+     #:docstring "Alonzo Purple test network"
+     #:provides '(alonzo-purple-node)
+     #:start (make-forkexec-constructor
+              (list "cardano-node" "run"
+                    "--database-path" db-dir
+                    "--socket-path" (string-append db-dir "socket")
+                    "--port" "3005"
+                    "--config" (string-append config-dir "alonzo-purple-config.json")
+                    "--topology" (string-append config-dir "alonzo-purple-topology.json"))
+              #:log-file (string-append db-dir "/log/alonzo.log")
+              )
+     #:stop (make-kill-destructor)
+     #:respawn? #t))
+
+  (register-services
+   (make <service>
+     #:docstring "Alonzo Purple wallet"
+     #:provides '(alonzo-wallet)
+     #:start (make-forkexec-constructor
+              (list (string-append (getenv "HOME") "/.cabal/bin/cardano-wallet")
+                    "serve"
+                    "--node-socket" (string-append db-dir "socket")
+                    "--database" "/home/titan/dev/cardano/cardano-wallet/waldb"
+                    "--testnet" (string-append config-dir "alonzo-purple-byron-genesis.json"))
+              #:log-file (string-append db-dir "/log/alonzo-wallet.log"))
+     #:stop (make-kill-destructor)
+     #:requires '(alonzo-purple-node))))