(define-module (bitcoin-core-local)
  #:use-module (guix packages)
  #:use-module (guix build-system gnu)
  #:use-module (guix build-system trivial)
  #:use-module (guix download)
  #:use-module ((guix licenses) #:prefix license:)
  #:use-module (guix gexp)
  #:use-module (gnu packages bash)
  #:use-module (gnu packages base)
  #:use-module (gnu packages compression))

(define-public bitcoin-core-local
  (package
    (name "bitcoin-core-local")
    (version "27.1")
    (source (local-file "/home/will/.local/state/guix-builds/bitcoin/guix-build-27.1/output/x86_64-linux-gnu/bitcoin-27.1-x86_64-linux-gnu.tar.gz"))
    (build-system trivial-build-system)
    (arguments
     `(#:modules ((guix build utils))
       #:builder
       (begin
         (use-modules (guix build utils))
         (let* ((tar (assoc-ref %build-inputs "tar"))
                (gzip (assoc-ref %build-inputs "gzip"))
                (out (assoc-ref %outputs "out"))
           (setenv "PATH" (string-append (getenv "PATH") ":" gzip "/bin"))
           (invoke (string-append tar "/bin/tar")
                   "xvf" (assoc-ref %build-inputs "source")
                   "-C" out
                   "--strip-components=1")
           #t))))
    (native-inputs
     `(("tar" ,tar)
       ("gzip" ,gzip)))
    (inputs
     (list bdb-4.8 ; 4.8 required for compatibility
           boost
           libevent
           miniupnpc
           openssl
           qtbase-5
           sqlite))
    (synopsis "Bitcoin Core (local pre-built binaries)")
    (description
     "Bitcoin is a digital currency that enables instant payments to anyone
anywhere in the world.  It uses peer-to-peer technology to operate without
central authority: managing transactions and issuing money are carried out
collectively by the network.  Bitcoin Core is the reference implementation
of the bitcoin protocol.  This package provides locally built Bitcoin Core binaries.")
    (home-page "https://bitcoin.org/")
    (license license:expat))
    )

(define-public bitcoin-core-local-for-pack
  (package
    (inherit bitcoin-core-local)
    (inputs
     `(("bash" ,bash-minimal)))))
bitcoin-core-local-for-pack