From f54bde6c34139c26408fdde524b03fa1d228672f Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?=C3=93scar=20N=C3=A1jera?= <hi@oscarnajera.com>
Date: Sun, 14 Nov 2021 22:59:02 +0100
Subject: Incorporate my cardano-tx repo

---
 config/doom/config.org             | 22 ++++++++++++++++++++++
 config/shepherd/init.d/cardano.scm |  4 ++--
 2 files changed, 24 insertions(+), 2 deletions(-)

(limited to 'config')

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))
-- 
cgit v1.2.3