aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--config/doom/config.org22
-rw-r--r--config/shepherd/init.d/cardano.scm4
2 files changed, 24 insertions, 2 deletions
diff --git a/config/doom/config.org b/config/doom/config.org
index 2fc8b7d..b2ec545 100644
--- a/config/doom/config.org
+++ b/config/doom/config.org
@@ -335,6 +335,28 @@ Emacs mode for managing ledger text files
#+begin_src emacs-lisp :tangle "packages.el"
(package! parse-csv)
#+end_src
+** Crypto
+#+begin_src emacs-lisp
+(use-package! cardano-tx
+ :commands (cardano-tx-new cardano-cli-tip)
+ :load-path "~/dev/cardano/emacs-wallet"
+ :init
+ (defun on/cardano-set-network ()
+ (interactive)
+ (let* ((networks '((:mainnet "/tmp/alinamn.socket" "--mainnet")
+ (:testnet "/tmp/sarahtn.socket" "--testnet-magic" "1097911063")
+ (:alonzo-purple "~/test-cardano/purple/socket" "--testnet-magic" "8")))
+ (pick
+ (alist-get
+ (completing-read "Pick network" networks)
+ networks nil nil #'string=)))
+ (setq cardano-cli-node-socket (expand-file-name (car pick))
+ cardano-cli-network-args (cdr pick))))
+ :config
+ (setq logger-level 'debug)
+ (setq cardano-cli-command (expand-file-name "~/dev/cardano/cardano-node/cli"))
+ (setq cardano-address-keyring-dir "~/dev/cardano/emacs-wallet/keys/demo"))
+#+end_src
* Books
#+begin_src emacs-lisp :tangle "packages.el"
(package! nov)
diff --git a/config/shepherd/init.d/cardano.scm b/config/shepherd/init.d/cardano.scm
index ceefed7..f1980e0 100644
--- a/config/shepherd/init.d/cardano.scm
+++ b/config/shepherd/init.d/cardano.scm
@@ -110,8 +110,8 @@
"-o" "ServerAliveInterval=60"
"-o" "ExitOnForwardFailure=yes"
"-o" "StreamLocalBindUnlink=yes"
- "-L" "/tmp/alinatn.socket:/run/cardano-node-testnet/socket"
- "cardano@alina")
+ "-L" "/tmp/sarahtn.socket:/run/cardano-node-testnet/socket"
+ "cardano@sarah")
#:log-file "/tmp/testnet-ssh.log")
#:stop (make-kill-destructor 2) ;; 2 is SIGINT - interupt process stream, ctrl-C
#:respawn? #t))