From 10d08d478be616fba32c9fac80252f8c0b95bca3 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?=C3=93scar=20N=C3=A1jera?= <hi@oscarnajera.com>
Date: Sat, 12 Nov 2022 19:05:38 +0100
Subject: cleanup shepherd services

---
 config/shepherd/init.d/bitcoin.scm | 56 ++++++++++++++++----------------------
 1 file changed, 24 insertions(+), 32 deletions(-)

diff --git a/config/shepherd/init.d/bitcoin.scm b/config/shepherd/init.d/bitcoin.scm
index 8c3ff11..d576eef 100644
--- a/config/shepherd/init.d/bitcoin.scm
+++ b/config/shepherd/init.d/bitcoin.scm
@@ -3,29 +3,44 @@
   (unless (access? dir-path F_OK)
     (make-dir-parents (dirname dir-path))
     (mkdir dir-path)))
+;; TESTNET
+;; Requires the running node which is now under systemd
+(register-services
+ (make <service>
+   #:docstring "Electrs testnet"
+   #:provides '(electrs-testnet)
+   #:start (make-forkexec-constructor
+            (list "/home/titan/dev/bitcoin/electrs/target/release/electrs"
+                  "--conf" "/home/titan/dev/bitcoin/electrs/testnet-conf.toml")
+            #:log-file "/tmp/electrs.log")
+   #:stop (make-kill-destructor 2) ;; 2 is SIGINT - interupt process stream, ctrl-C
+   #:respawn? #t))
 
 (register-services
  (make <service>
-   #:docstring "Bitcoin local testnet"
-   #:provides '(bitcoin-testnet)
+   #:docstring "Bitcoin testnet index"
+   #:provides '(index-testnet)
    #:start (make-forkexec-constructor
-            (list "bitcoind")
-            #:log-file "/tmp/bitcoind.log")
+            (list "/home/titan/dev/bitcoin/rust-bitcoin-indexer/target/release/bitcoin-indexer")
+            #:directory "/home/titan/dev/bitcoin/rust-bitcoin-indexer/"
+            #:log-file "/tmp/btc-indexer.log")
    #:stop (make-kill-destructor 2) ;; 2 is SIGINT - interupt process stream, ctrl-C
+   #:requires '(bitcoin-testnet)
    #:respawn? #t))
 
 (register-services
  (make <service>
-   #:docstring "Electrs testnet"
-   #:provides '(electrs-testnet)
+   #:docstring "Bitcoin testnet lnd lightning"
+   #:provides '(lnd-testnet)
    #:start (make-forkexec-constructor
-            (list "/home/titan/dev/bitcoin/electrs/target/release/electrs"
-                  "--conf" "/home/titan/dev/bitcoin/electrs/testnet-conf.toml")
-            #:log-file "/tmp/electrs.log")
+            (list "lnd"
+                  "--lnddir=/run/media/titan/ext_backup/personal/bitcoin/lnd/"
+                  "--noseedbackup"))
    #:stop (make-kill-destructor 2) ;; 2 is SIGINT - interupt process stream, ctrl-C
    #:requires '(bitcoin-testnet)
    #:respawn? #t))
 
+;; Mainnet
 (register-services
  (make <service>
    #:docstring "Sarah tunnel btc"
@@ -54,26 +69,3 @@
    #:requires '(sarah-ssh)
    #:respawn? #t))
 
-(register-services
- (make <service>
-   #:docstring "Bitcoin testnet index"
-   #:provides '(index-testnet)
-   #:start (make-forkexec-constructor
-            (list "/home/titan/dev/bitcoin/rust-bitcoin-indexer/target/release/bitcoin-indexer")
-            #:directory "/home/titan/dev/bitcoin/rust-bitcoin-indexer/"
-            #:log-file "/tmp/btc-indexer.log")
-   #:stop (make-kill-destructor 2) ;; 2 is SIGINT - interupt process stream, ctrl-C
-   #:requires '(bitcoin-testnet)
-   #:respawn? #t))
-
-(register-services
- (make <service>
-   #:docstring "Bitcoin testnet lnd lightning"
-   #:provides '(lnd-testnet)
-   #:start (make-forkexec-constructor
-            (list "lnd"
-                  "--lnddir=/run/media/titan/ext_backup/personal/bitcoin/lnd/"
-                  "--noseedbackup"))
-   #:stop (make-kill-destructor 2) ;; 2 is SIGINT - interupt process stream, ctrl-C
-   #:requires '(bitcoin-testnet)
-   #:respawn? #t))
-- 
cgit v1.2.3