aboutsummaryrefslogtreecommitdiffstats
path: root/config
diff options
context:
space:
mode:
authorÓscar Nájera <hi@oscarnajera.com>2022-11-10 15:32:07 +0100
committerÓscar Nájera <hi@oscarnajera.com>2022-11-11 17:58:10 +0100
commit74f2ba2eba69c40ab8ff0132b51d48d1e7112d5e (patch)
tree0eda975ac5936f7ac3d99477237324771cad298d /config
parent4db8bbfc6b8d823cc4a359d54dd51e5046a24f4f (diff)
downloaddotfiles-74f2ba2eba69c40ab8ff0132b51d48d1e7112d5e.tar.gz
dotfiles-74f2ba2eba69c40ab8ff0132b51d48d1e7112d5e.tar.bz2
dotfiles-74f2ba2eba69c40ab8ff0132b51d48d1e7112d5e.zip
clean up cardano networks
Diffstat (limited to 'config')
-rw-r--r--config/doom/config.org6
-rw-r--r--config/shepherd/init.d/cardano.scm99
2 files changed, 15 insertions, 90 deletions
diff --git a/config/doom/config.org b/config/doom/config.org
index 78d09fe..3d203aa 100644
--- a/config/doom/config.org
+++ b/config/doom/config.org
@@ -465,10 +465,8 @@ Emacs mode for managing ledger text files
:init
(defun on/cardano-set-network ()
(interactive)
- (let* ((networks '((:mainnet "/tmp/alinamn.socket" "http://localhost:8090" "--mainnet")
- (:preview "/tmp/alina-pr.socket" "http://localhost:8091" "--testnet-magic" "2")
- (:vasil "/home/titan/test-cardano/dev-vasil/bp-vasil.socket" "http://localhost:8093" "--testnet-magic" "9")
- ))
+ (let* ((networks '((:mainnet "/tmp/nina-mn.socket" "http://localhost:8090" "--mainnet")
+ (:preview "/tmp/nina-pr.socket" "http://localhost:8091" "--testnet-magic" "2")))
(pick
(alist-get
(completing-read "Pick network" networks)
diff --git a/config/shepherd/init.d/cardano.scm b/config/shepherd/init.d/cardano.scm
index 90fe281..b8efbca 100644
--- a/config/shepherd/init.d/cardano.scm
+++ b/config/shepherd/init.d/cardano.scm
@@ -6,18 +6,20 @@
(register-services
(make <service>
- #:docstring "Cardano preview network ssh tunnel, node & psql"
- #:provides '(preview-ssh)
+ #:docstring "Nina ssh tunnel, Cardano nodes"
+ #:provides '(nina-ssh)
#:start (make-forkexec-constructor
(list "ssh" "-NTv"
"-o" "ServerAliveInterval=60"
"-o" "ExitOnForwardFailure=yes"
"-o" "StreamLocalBindUnlink=yes"
- "-L" "/tmp/alina-pr.socket:/run/cardano-node-preview/socket"
- "-L" "54321:localhost:5432"
- "-R" "3004:localhost:3004" ;; Push to VPS vasil the block producer on 3005
- "cardano@alina")
- #:log-file "/tmp/preview-ssh.log")
+ "-L" "/tmp/nina-mn.socket:/run/cardano-node-mainnet/socket"
+ "-L" "/tmp/nina-pr.socket:/run/cardano-node-preview/socket"
+ "-L" "54320:localhost:5432"
+ "-L" "50001:localhost:50001" ;; electrs
+ "-L" "24224:localhost:24224" ;; electrs monitoring
+ "cardano@nina")
+ #:log-file "/tmp/nina-ssh.log")
#:stop (make-kill-destructor 2) ;; 2 is SIGINT - interupt process stream, ctrl-C
#:respawn? #t))
@@ -30,29 +32,13 @@
;;(string-append (getenv "HOME") "/.cabal/bin/cardano-wallet")
"serve"
"--port" "8091"
- "--node-socket" "/tmp/alina-pr.socket"
+ "--node-socket" "/tmp/nina-pr.socket"
"--database" (string-append (getenv "HOME") "/test-cardano/preview/wallet")
"--testnet" (string-append (getenv "HOME") "/dev/archlinux-ansible/roles/cardano/files/preview/byron-genesis.json"))
#:log-file (string-append (getenv "HOME") "/test-cardano/preview/log/wallet.log"))
#:stop (make-kill-destructor 2) ;; 2 is SIGINT - interupt process stream, ctrl-C
- #:requires '(preview-ssh)))
-
-(register-services
- (make <service>
- #:docstring "Cardano Main network ssh tunnel"
- #:provides '(mainnet-ssh)
- #:start (make-forkexec-constructor
- (list "ssh" "-NTv"
- "-o" "ServerAliveInterval=60"
- "-o" "ExitOnForwardFailure=yes"
- "-o" "StreamLocalBindUnlink=yes"
- "-L" "/tmp/alinamn.socket:/run/cardano-node-mainnet/socket"
- "-L" "54320:localhost:5432"
- "cardano@nina")
- #:log-file "/tmp/mainnet-ssh.log")
- #:stop (make-kill-destructor 2) ;; 2 is SIGINT - interupt process stream, ctrl-C
- #:respawn? #t))
+ #:requires '(nina-ssh)))
(register-services
(make <service>
@@ -63,68 +49,9 @@
"cardano-wallet"
"serve"
"+RTS" "-T" "-RTS"
- "--node-socket" "/tmp/alinamn.socket"
+ "--node-socket" "/tmp/nina-mn.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 '(mainnet-ssh)))
-
-(register-services
- (make <service>
- #:docstring "Vasil devnet block producer"
- #:provides '(vasil-bp)
- #:start (make-forkexec-constructor
- (list ;;(string-append (getenv "HOME") "/.cabal/bin/cardano-wallet")
- "/home/titan/dev/cardano/cardano-node/dist-newstyle/build/x86_64-linux/ghc-8.10.7/cardano-node-1.35.0/x/cardano-node/build/cardano-node/cardano-node"
- "run"
- "+RTS" "-N2" "-A16m" "-qg" "-qb" "-RTS"
- "--database-path" (string-append (getenv "HOME") "/test-cardano/dev-vasil/bp-node")
- "--socket-path" (string-append (getenv "HOME") "/test-cardano/dev-vasil/bp-vasil.socket")
- "--port" "3005"
- "--config" (string-append (getenv "HOME") "/dev/cardano/cardano-world/docs/environments/vasil-dev/config-bp.json")
- "--topology" (string-append (getenv "HOME") "/dev/cardano/cardano-world/docs/environments/vasil-dev/block-producer-topology.json")
-
- "--shelley-kes-key" (string-append (getenv "HOME") "/dev/cardano/emacs-wallet/keys/demo/kes.skey")
- "--shelley-vrf-key" (string-append (getenv "HOME") "/dev/cardano/emacs-wallet/keys/demo/vrf.skey")
- "--shelley-operational-certificate" (string-append (getenv "HOME") "/dev/cardano/emacs-wallet/keys/demo/node.cert")
- )
- #:environment-variables (list (string-append "LD_LIBRARY_PATH=" (getenv "HOME") "/.local/lib"))
- #:log-file (string-append (getenv "HOME") "/test-cardano/dev-vasil/log/bp-node.log"))
- #:stop (make-kill-destructor 2) ;; 2 is SIGINT - interupt process stream, ctrl-C
- #:requires '(preview-ssh)
- #:respawn? #t))
-
-(register-services
- (make <service>
- #:docstring "Vasil db sync"
- #:provides '(vasil-db-sync)
- #:start (make-forkexec-constructor
- (list
- "/home/titan/dev/cardano/cardano-db-sync/dist-newstyle/build/x86_64-linux/ghc-8.10.7/cardano-db-sync-13.0.0/build/cardano-db-sync/cardano-db-sync"
- "--config" (string-append (getenv "HOME") "/dev/cardano/cardano-world/docs/environments/vasil-dev/db-sync-config.json")
- "--socket-path" (string-append (getenv "HOME") "/test-cardano/dev-vasil/bp-vasil.socket")
- "--state-dir" (string-append (getenv "HOME") "/test-cardano/dev-vasil/ledger-state")
- "--schema-dir" (string-append (getenv "HOME") "/dev/cardano/cardano-db-sync/schema")
- )
- #:environment-variables (list (string-append "PGPASSFILE=" (getenv "HOME") "/test-cardano/config/pgpass-vasil"))
- #:log-file (string-append (getenv "HOME") "/test-cardano/dev-vasil/log/db-sync.log"))
- #:stop (make-kill-destructor 2) ;; 2 is SIGINT - interupt process stream, ctrl-C
- #:requires '(vasil-bp)
- #:respawn? #t))
-
-(register-services
- (make <service>
- #:docstring "Cardano Vasil cncli sync"
- #:provides '(vasil-cncli-sync)
- #:start (make-forkexec-constructor
- (list "cncli"
- "sync" "--host" "127.0.0.1" "--port" "3005"
- "--network-magic" "9"
- "--db" (string-append (getenv "HOME") "/test-cardano/dev-vasil/blocklog.db")
- )
- #:log-file (string-append (getenv "HOME") "/test-cardano/dev-vasil/log/cncli.log"))
-
- #:stop (make-kill-destructor 2) ;; 2 is SIGINT - interupt process stream, ctrl-C
- #:requires '(vasil-bp)))
-
+ #:requires '(nina-ssh)))