(let ((config-dir (string-append (getenv "HOME") "/.guix-profile/etc/conf/cardano/"))
      (db-dir (string-append (getenv "HOME") "/test-cardano/purple/")))
  (mkdir db-dir)
  (register-services
   (make <service>
     #:docstring "Alonzo Purple test network"
     #:provides '(alonzo-purple-node)
     #:start (make-forkexec-constructor
              (list "cardano-node" "run"
                    "--database-path" db-dir
                    "--socket-path" (string-append db-dir "socket")
                    "--port" "3005"
                    "--config" (string-append config-dir "alonzo-purple-config.json")
                    "--topology" (string-append config-dir "alonzo-purple-topology.json"))
              #:log-file (string-append db-dir "/log/alonzo.log")
              )
     #:stop (make-kill-destructor)
     #:respawn? #t))

  (register-services
   (make <service>
     #:docstring "Alonzo Purple wallet"
     #:provides '(alonzo-wallet)
     #:start (make-forkexec-constructor
              (list (string-append (getenv "HOME") "/.cabal/bin/cardano-wallet")
                    "serve"
                    "--node-socket" (string-append db-dir "socket")
                    "--database" "/home/titan/dev/cardano/cardano-wallet/waldb"
                    "--testnet" (string-append config-dir "alonzo-purple-byron-genesis.json"))
              #:log-file (string-append db-dir "/log/alonzo-wallet.log"))
     #:stop (make-kill-destructor)
     #:requires '(alonzo-purple-node))))