4 files changed, 66 insertions, 43 deletions
diff --git a/config/shepherd/init.d/bitcoin.scm b/config/shepherd/init.d/bitcoin.scm
index d576eef..2805b57 100644
--- a/config/shepherd/init.d/bitcoin.scm
+++ b/config/shepherd/init.d/bitcoin.scm
@@ -1,31 +1,33 @@
 
+(use-modules (ice-9 popen)
+             (ice-9 rdelim))
+
 (define (make-dir-parents dir-path)
   (unless (access? dir-path F_OK)
     (make-dir-parents (dirname dir-path))
     (mkdir dir-path)))
+
+(define (bitcoin-rpc-pass)
+  (let* ((port
+          (open-input-pipe
+           "pass show Development/bitcoin/testnet/localhost"))
+         (result (read-line port)))
+    (close-pipe port)
+    result))
+
 ;; 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 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/"
+            #:environment-variables `("DATABASE_URL=postgres://titan@%2Frun%2Fpostgresql/btc-testnet-idx"
+                                      ,(format #f "NODE_RPC_URL=http://crazy:~a@127.0.0.1:18332/" (bitcoin-rpc-pass))
+                                      "RUST_LOG=bitcoin_indexer=info")
             #: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
@@ -33,39 +35,27 @@
    #:docstring "Bitcoin testnet lnd lightning"
    #:provides '(lnd-testnet)
    #:start (make-forkexec-constructor
-            (list "lnd"
+            (list "/home/titan/.local/bin/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
+;; ssh
 (register-services
  (make <service>
-   #:docstring "Sarah tunnel btc"
+   #:docstring "Sarah ssh tunnel"
    #:provides '(sarah-ssh)
    #:start (make-forkexec-constructor
             (list "ssh" "-NTv"
                   "-o" "ServerAliveInterval=60"
                   "-o" "ExitOnForwardFailure=yes"
                   "-o" "StreamLocalBindUnlink=yes"
-                  "-L" "8332:localhost:8332"
-                  "-L" "8333:localhost:8333"
-                  "sarah")
-            #:log-file "/tmp/sarah-ssh.log")
-   #:stop (make-kill-destructor 2) ;; 2 is SIGINT - interupt process stream, ctrl-C
-   #:respawn? #t))
-
-(register-services
- (make <service>
-   #:docstring "Electrs mainnet"
-   #:provides '(electrs-mainnet)
-   #:start (make-forkexec-constructor
-            (list "/home/titan/dev/bitcoin/electrs/target/release/electrs"
-                  "--conf" "/home/titan/dev/bitcoin/electrs/mainnet-conf.toml")
-            #:log-file "/tmp/electrs-m.log")
+                  "-L" "8335:localhost:8332"   ;; btcm
+                  "-L" "18335:localhost:18332"   ;; btct
+                  "-L" "8481:localhost:8480"   ;; LNDT
+                  "orchest@sarah")
+            #:log-file "/tmp/sarah-ssh.log"
+            #:environment-variables '("SSH_AUTH_SOCK=/run/user/1000/gnupg/S.gpg-agent.ssh"))
    #:stop (make-kill-destructor 2) ;; 2 is SIGINT - interupt process stream, ctrl-C
-   #:requires '(sarah-ssh)
    #:respawn? #t))
-
diff --git a/config/shepherd/init.d/cardano.scm b/config/shepherd/init.d/cardano.scm
index b8efbca..1c5b731 100644
--- a/config/shepherd/init.d/cardano.scm
+++ b/config/shepherd/init.d/cardano.scm
@@ -19,7 +19,8 @@
                   "-L" "50001:localhost:50001" ;; electrs
                   "-L" "24224:localhost:24224" ;; electrs monitoring
                   "cardano@nina")
-            #:log-file "/tmp/nina-ssh.log")
+            #:log-file "/tmp/nina-ssh.log"
+            #:environment-variables '("SSH_AUTH_SOCK=/run/user/1000/gnupg/S.gpg-agent.ssh"))
    #:stop (make-kill-destructor 2) ;; 2 is SIGINT - interupt process stream, ctrl-C
    #:respawn? #t))
 
@@ -29,7 +30,7 @@
    #:provides '(preview-wallet)
    #:start (make-forkexec-constructor
             (list "cardano-wallet"
-             ;;(string-append (getenv "HOME") "/.cabal/bin/cardano-wallet")
+                  ;;(string-append (getenv "HOME") "/.cabal/bin/cardano-wallet")
                   "serve"
                   "--port" "8091"
                   "--node-socket" "/tmp/nina-pr.socket"
@@ -47,11 +48,10 @@
    #:start (make-forkexec-constructor
             (list ;;(string-append (getenv "HOME") "/.cabal/bin/cardano-wallet")
              "cardano-wallet"
-                  "serve"
-                  "+RTS" "-T" "-RTS"
-                  "--node-socket" "/tmp/nina-mn.socket"
-                  "--database" (string-append (getenv "HOME") "/test-cardano/main/wallet")
-                  "--mainnet")
+             "serve"
+             "--node-socket" "/run/cardano-node-mainnet/socket"
+             "--database" (string-append (getenv "HOME") "/test-cardano/main/wallet")
+             "--mainnet")
             #:log-file (string-append (getenv "HOME") "/test-cardano/main/log/wallet.log"))
    #:stop (make-kill-destructor 2) ;; 2 is SIGINT - interupt process stream, ctrl-C
-   #:requires '(nina-ssh)))
+   #:requires '()))
diff --git a/config/shepherd/init.d/cmk.scm b/config/shepherd/init.d/cmk.scm
index 4c98f1c..97ced9f 100644
--- a/config/shepherd/init.d/cmk.scm
+++ b/config/shepherd/init.d/cmk.scm
@@ -9,6 +9,7 @@
                   "-o" "StreamLocalBindUnlink=yes"
                   "-L" "/tmp/ingridcmk.socket:/omd/sites/ingrid/tmp/run/live"
                   "ingrid@ingrid")
-            #:log-file "/tmp/ingrid-cmk.log")
+            #:log-file "/tmp/ingrid-cmk.log"
+            #:environment-variables '("SSH_AUTH_SOCK=/run/user/1000/gnupg/S.gpg-agent.ssh"))
    #:stop (make-kill-destructor 2) ;; 2 is SIGINT - interupt process stream, ctrl-C
    #:respawn? #t))
diff --git a/config/shepherd/init.d/my-daemons.scm b/config/shepherd/init.d/my-daemons.scm
new file mode 100644
index 0000000..1b5daf8
--- /dev/null
+++ b/config/shepherd/init.d/my-daemons.scm
@@ -0,0 +1,32 @@
+
+(register-services
+ (make <service>
+   #:docstring "Habit tracker"
+   #:provides '(habit-logs)
+   #:start (make-forkexec-constructor
+            (list "sbcl"
+                  "--load"
+                  (string-append (getenv "HOME") "/dev/common-lisp/todo-demo/habit.asd")
+                  "--eval" "(asdf:load-system :habit)"
+                  "--eval" "(habit-log::main)"
+                  "--non-interactive")
+            #:directory (string-append (getenv "HOME") "/dev/common-lisp/todo-demo/")
+            #:environment-variables (list (string-append "HABIT_DIR=" (getenv "HOME") "/org/habits/")
+                                          "PORT=4242")
+            #:log-file "/tmp/habits.log")
+   #:stop (make-kill-destructor 2) ;; 2 is SIGINT - interupt process stream, ctrl-C
+   #:respawn? #t))
+
+(let ((workdir (string-append (getenv "HOME") "/dev/dotfiles/scratch/semgrep/")))
+  (register-services
+   (make <service>
+     #:docstring "Roam semantic DB"
+     #:provides '(roam-semantic-db)
+     #:start (make-forkexec-constructor
+              (list "python"
+                    (string-append workdir "server.py"))
+              #:directory workdir
+              #:environment-variables (list (string-append "PATH=" (getenv "HOME") "/.virtualenvs/language/bin"))
+              #:log-file "/tmp/roam-semantic.log")
+     #:stop (make-kill-destructor 2) ;; 2 is SIGINT - interupt process stream, ctrl-C
+     #:respawn? #t)))