gnu/packages/finance.scm

   1 ;;; GNU Guix --- Functional package management for GNU
   2 ;;; Copyright © 2015, 2016 Andreas Enge <andreas@enge.fr>
   3 ;;; Copyright © 2016, 2017, 2018 Efraim Flashner <efraim@flashner.co.il>
   4 ;;; Copyright © 2016 Alex Griffin <a@ajgrf.com>
   5 ;;; Copyright © 2016 Hartmut Goebel <h.goebel@crazy-compilers.com>
   6 ;;; Copyright © 2017 Carlo Zancanaro <carlo@zancanaro.id.au>
   7 ;;; Copyright © 2017 Theodoros Foradis <theodoros@foradis.org>
   8 ;;; Copyright © 2017 Vasile Dumitrascu <va511e@yahoo.com>
   9 ;;; Copyright © 2017, 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
  10 ;;; Copyright © 2018 Eric Bavier <bavier@member.fsf.org>
  11 ;;; Copyright © 2018 Adriano Peluso <catonano@gmail.com>
  12 ;;; Copyright © 2018, 2019, 2020 Nicolas Goaziou <mail@nicolasgoaziou.fr>
  13 ;;; Copyright © 2018 Arun Isaac <arunisaac@systemreboot.net>
  14 ;;; Copyright © 2019, 2020 Guillaume Le Vaillant <glv@posteo.net>
  15 ;;; Copyright © 2019 Tanguy Le Carrour <tanguy@bioneland.org>
  16 ;;; Copyright © 2019 Martin Becze <mjbecze@riseup.net>
  17 ;;; Copyright © 2019 Sebastian Schott <sschott@mailbox.org>
  18 ;;; Copyright © 2020 Kei Kebreau <kkebreau@posteo.net>
  19 ;;;
  20 ;;; This file is part of GNU Guix.
  21 ;;;
  22 ;;; GNU Guix is free software; you can redistribute it and/or modify it
  23 ;;; under the terms of the GNU General Public License as published by
  24 ;;; the Free Software Foundation; either version 3 of the License, or (at
  25 ;;; your option) any later version.
  26 ;;;
  27 ;;; GNU Guix is distributed in the hope that it will be useful, but
  28 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
  29 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  30 ;;; GNU General Public License for more details.
  31 ;;;
  32 ;;; You should have received a copy of the GNU General Public License
  33 ;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
  34
  35 (define-module (gnu packages finance)
  36   #:use-module ((guix licenses) #:prefix license:)
  37   #:use-module (guix packages)
  38   #:use-module (guix download)
  39   #:use-module (guix git-download)
  40   #:use-module (guix build-system gnu)
  41   #:use-module (guix build-system cmake)
  42   #:use-module (guix build-system python)
  43   #:use-module (guix build-system glib-or-gtk)
  44   #:use-module (guix build-system go)
  45   #:use-module (guix build-system qt)
  46   #:use-module (guix utils)
  47   #:use-module (gnu packages)
  48   #:use-module (gnu packages aidc)
  49   #:use-module (gnu packages autotools)
  50   #:use-module (gnu packages base)
  51   #:use-module (gnu packages boost)
  52   #:use-module (gnu packages check)
  53   #:use-module (gnu packages compression)
  54   #:use-module (gnu packages crypto)
  55   #:use-module (gnu packages curl)
  56   #:use-module (gnu packages databases)
  57   #:use-module (gnu packages docbook)
  58   #:use-module (gnu packages documentation)
  59   #:use-module (gnu packages dns)
  60   #:use-module (gnu packages emacs)
  61   #:use-module (gnu packages dbm)
  62   #:use-module (gnu packages gettext)
  63   #:use-module (gnu packages gnome)
  64   #:use-module (gnu packages glib)
  65   #:use-module (gnu packages gnupg)
  66   #:use-module (gnu packages graphviz)
  67   #:use-module (gnu packages groff)
  68   #:use-module (gnu packages gtk)
  69   #:use-module (gnu packages libedit)
  70   #:use-module (gnu packages libevent)
  71   #:use-module (gnu packages libunwind)
  72   #:use-module (gnu packages libusb)
  73   #:use-module (gnu packages linux)
  74   #:use-module (gnu packages man)
  75   #:use-module (gnu packages multiprecision)
  76   #:use-module (gnu packages networking)
  77   #:use-module (gnu packages pkg-config)
  78   #:use-module (gnu packages popt)
  79   #:use-module (gnu packages protobuf)
  80   #:use-module (gnu packages python)
  81   #:use-module (gnu packages python-crypto)
  82   #:use-module (gnu packages python-web)
  83   #:use-module (gnu packages python-xyz)
  84   #:use-module (gnu packages qt)
  85   #:use-module (gnu packages readline)
  86   #:use-module (gnu packages sphinx)
  87   #:use-module (gnu packages texinfo)
  88   #:use-module (gnu packages textutils)
  89   #:use-module (gnu packages time)
  90   #:use-module (gnu packages tls)
  91   #:use-module (gnu packages upnp)
  92   #:use-module (gnu packages version-control)
  93   #:use-module (gnu packages web)
  94   #:use-module (gnu packages xml)
  95   #:use-module (gnu packages gnuzilla))
  96
  97 (define-public bitcoin-core
  98   (package
  99     (name "bitcoin-core")
 100     (version "0.19.0.1")
 101     (source (origin
 102              (method url-fetch)
 103              (uri
 104               (string-append "https://bitcoincore.org/bin/bitcoin-core-"
 105                              version "/bitcoin-" version ".tar.gz"))
 106              (sha256
 107               (base32
 108                "1172dl4b8h2a80ilk9sfgbl8yi55k6hs4b1m07nic2ls4irgkjbs"))))
 109     (build-system gnu-build-system)
 110     (native-inputs
 111      `(("pkg-config" ,pkg-config)
 112        ("python" ,python)               ; for the tests
 113        ("util-linux" ,util-linux)       ; provides the hexdump command for tests
 114        ("qttools" ,qttools)))
 115     (inputs
 116      `(("bdb" ,bdb-4.8)                 ; 4.8 required for compatibility
 117        ("boost" ,boost)
 118        ("libevent" ,libevent)
 119        ("miniupnpc" ,miniupnpc)
 120        ("openssl" ,openssl)
 121        ("protobuf" ,protobuf)
 122        ("qtbase" ,qtbase)))
 123     (arguments
 124      `(#:configure-flags
 125         (list
 126           ;; Boost is not found unless specified manually.
 127           (string-append "--with-boost="
 128                          (assoc-ref %build-inputs "boost"))
 129           ;; XXX: The configure script looks up Qt paths by
 130           ;; `pkg-config --variable=host_bins Qt5Core`, which fails to pick
 131           ;; up executables residing in 'qttools', so we specify them here.
 132           (string-append "ac_cv_path_LRELEASE="
 133                          (assoc-ref %build-inputs "qttools")
 134                          "/bin/lrelease")
 135           (string-append "ac_cv_path_LUPDATE="
 136                          (assoc-ref %build-inputs "qttools")
 137                          "/bin/lupdate"))
 138        #:phases
 139         (modify-phases %standard-phases
 140           (add-before 'configure 'make-qt-deterministic
 141            (lambda _
 142             ;; Make Qt deterministic.
 143             (setenv "QT_RCC_SOURCE_DATE_OVERRIDE" "1")
 144             #t))
 145           (add-before 'check 'set-home
 146            (lambda _
 147             (setenv "HOME" (getenv "TMPDIR")) ; tests write to $HOME
 148             #t))
 149           (add-after 'check 'check-functional
 150            (lambda _
 151             (invoke "python3" "./test/functional/test_runner.py"
 152                     (string-append "--jobs=" (number->string (parallel-job-count))))
 153             #t)))))
 154     (home-page "https://bitcoin.org/en/")
 155     (synopsis "Bitcoin peer-to-peer client")
 156     (description
 157      "Bitcoin is a digital currency that enables instant payments to anyone
 158 anywhere in the world.  It uses peer-to-peer technology to operate without
 159 central authority: managing transactions and issuing money are carried out
 160 collectively by the network.  Bitcoin Core is the reference implementation
 161 of the bitcoin protocol.  This package provides the Bitcoin Core command
 162 line client and a client based on Qt.")
 163     (license license:expat)))
 164
 165 (define-public homebank
 166   (package
 167     (name "homebank")
 168     (version "5.2.8")
 169     (source (origin
 170               (method url-fetch)
 171               (uri (string-append "http://homebank.free.fr/public/homebank-"
 172                                   version ".tar.gz"))
 173               (sha256
 174                (base32
 175                 "13ampiv68y30kc0p2560g3yz8whqpwnidfcnb9lndv93b9ca767y"))))
 176     (build-system glib-or-gtk-build-system)
 177     (native-inputs
 178      `(("pkg-config" ,pkg-config)
 179        ("intltool" ,intltool)))
 180     (inputs
 181      `(("gtk+" ,gtk+)
 182        ("libsoup" ,libsoup)))
 183     (arguments
 184      `(#:configure-flags (list "-without-ofx"))) ; libofx is not available yet
 185     (home-page "http://homebank.free.fr/")
 186     (synopsis "Graphical personal accounting application")
 187     (description "HomeBank allows you to manage your personal accounts at
 188 home.  The seeks to be lightweight, simple and easy to use.  It brings
 189 features that allow you to analyze your finances in a detailed way instantly
 190 and dynamically with report tools based on filtering and graphical charts.")
 191     (license license:gpl2+)))
 192
 193 (define-public ledger
 194   (package
 195     (name "ledger")
 196     (version "3.1.3")
 197     (source
 198      (origin
 199        (method git-fetch)
 200        (uri (git-reference
 201              (url "https://github.com/ledger/ledger.git")
 202              (commit (string-append "v" version))))
 203        (file-name (git-file-name name version))
 204        (sha256
 205         (base32 "0bfnrqrd6wqgsngfpqi30xh6yy86pwl25iwzrqy44q31r0zl4mm3"))))
 206     (build-system cmake-build-system)
 207     (arguments
 208      `(#:configure-flags
 209        `("-DBUILD_DOCS:BOOL=ON"
 210          "-DBUILD_WEB_DOCS:BOOL=ON"
 211          "-DUSE_PYTHON:BOOL=ON"
 212          "-DCMAKE_INSTALL_LIBDIR:PATH=lib")
 213        #:phases
 214        (modify-phases %standard-phases
 215          (add-before 'configure 'install-examples
 216            (lambda* (#:key outputs #:allow-other-keys)
 217              (let ((examples (string-append (assoc-ref outputs "out")
 218                                             "/share/doc/ledger/examples")))
 219                (install-file "test/input/sample.dat" examples)
 220                (install-file "test/input/demo.ledger" examples))
 221              #t))
 222          (add-after 'build 'build-doc
 223            (lambda _ (invoke "make" "doc")))
 224          (add-before 'check 'check-setup
 225            ;; One test fails if it can't set the timezone.
 226            (lambda* (#:key inputs #:allow-other-keys)
 227              (setenv "TZDIR"
 228                      (string-append (assoc-ref inputs "tzdata")
 229                                     "/share/zoneinfo"))
 230              ;; Skip failing test BaselineTest_cmd-org.
 231              ;; This is a known upstream issue. See
 232              ;; https://github.com/ledger/ledger/issues/550
 233              (setenv "ARGS" "-E BaselineTest_cmd-org")
 234              #t)))))
 235     (inputs
 236      `(("boost" ,boost)
 237        ("gmp" ,gmp)
 238        ("libedit" ,libedit)
 239        ("mpfr" ,mpfr)
 240        ("python" ,python-2)
 241        ("tzdata" ,tzdata)
 242        ("utfcpp" ,utfcpp)))
 243     (native-inputs
 244      `(("groff" ,groff)
 245        ("texinfo" ,texinfo)))
 246     (home-page "https://ledger-cli.org/")
 247     (synopsis "Command-line double-entry accounting program")
 248     (description
 249      "Ledger is a powerful, double-entry accounting system that is
 250 accessed from the UNIX command-line.  This may put off some users, since
 251 there is no flashy UI, but for those who want unparalleled reporting
 252 access to their data there are few alternatives.
 253
 254 Ledger uses text files for input.  It reads the files and generates
 255 reports; there is no other database or stored state.  To use Ledger,
 256 you create a file of your account names and transactions, run from the
 257 command line with some options to specify input and requested reports, and
 258 get output.  The output is generally plain text, though you could generate
 259 a graph or html instead.  Ledger is simple in concept, surprisingly rich
 260 in ability, and easy to use.")
 261     ;; There are some extra licenses in files which do not presently get
 262     ;; installed when you build this package.  Different versions of the GPL
 263     ;; are used in the contrib and python subdirectories.  The bundled version
 264     ;; of utfcpp is under the Boost 1.0 license. Also the file
 265     ;; `tools/update_copyright_year` has an Expat license.
 266     (license (list license:bsd-3
 267                    license:asl2.0     ; src/strptime.cc
 268                    (license:non-copyleft
 269                     "file://src/wcwidth.cc"
 270                     "See src/wcwidth.cc in the distribution.")))))
 271
 272 (define-public emacs-ledger-mode
 273   ;; There have been no new releases since 2016.
 274   (let ((commit "253a20dc62e137ed0ed8e1dd8614ecba116610ea")
 275         (revision "1"))
 276     (package
 277       (name "emacs-ledger-mode")
 278       (version (git-version "3.1.1" revision commit))
 279       (source
 280        (origin
 281          (method git-fetch)
 282          (uri (git-reference
 283                (url "https://github.com/ledger/ledger-mode.git")
 284                (commit commit)))
 285          (file-name (git-file-name name version))
 286          (sha256
 287           (base32 "06wrgkqpgvk17vibrk2qikdlqn8y63jg86marp1wgmram92mb3jk"))))
 288       (build-system cmake-build-system)
 289       (arguments
 290        `(#:modules ((guix build cmake-build-system)
 291                     (guix build utils)
 292                     (guix build emacs-utils))
 293          #:imported-modules (,@%cmake-build-system-modules
 294                              (guix build emacs-utils))
 295          #:tests? #f ; there are none
 296          #:phases
 297          (modify-phases %standard-phases
 298            (add-after 'unpack 'patch-site-dir
 299              (lambda _
 300                (substitute* "CMakeLists.txt"
 301                  (("DESTINATION share/emacs/site-lisp/ledger-mode")
 302                   "DESTINATION share/emacs/site-lisp"))
 303                #t))
 304            (add-before 'build 'patch-path
 305              (lambda* (#:key inputs #:allow-other-keys)
 306                (let ((ledger (assoc-ref inputs "ledger")))
 307                  (make-file-writable "ledger-exec.el")
 308                  (emacs-substitute-variables "ledger-exec.el"
 309                    ("ledger-binary-path" (string-append ledger "/bin/ledger"))))
 310                #t))
 311            (add-after 'build 'build-doc
 312              (lambda* (#:key outputs #:allow-other-keys)
 313                (let ((target (string-append (assoc-ref outputs "out")
 314                                             "/share/info")))
 315                  (mkdir-p target)
 316                  (invoke "makeinfo" "-o" target
 317                          "../source/doc/ledger-mode.texi"))
 318                #t))
 319            (add-after 'install 'generate-autoload
 320              (lambda* (#:key outputs #:allow-other-keys)
 321                (let* ((site-dir (string-append (assoc-ref outputs "out")
 322                                                "/share/emacs/site-lisp")))
 323                  (emacs-generate-autoloads ,name site-dir))
 324                #t)))))
 325       (inputs
 326        `(("ledger" ,ledger)))
 327       (native-inputs
 328        `(("emacs-minimal" ,emacs-minimal)
 329          ("texinfo" ,texinfo)))
 330       (home-page "https://ledger-cli.org/")
 331       (synopsis "Command-line double-entry accounting program")
 332       (description
 333        "Ledger is a powerful, double-entry accounting system that is
 334 accessed from the UNIX command-line.  This may put off some users, since
 335 there is no flashy UI, but for those who want unparalleled reporting
 336 access to their data there are few alternatives.
 337
 338 Ledger uses text files for input.  It reads the files and generates
 339 reports; there is no other database or stored state.  To use Ledger,
 340 you create a file of your account names and transactions, run from the
 341 command line with some options to specify input and requested reports, and
 342 get output.  The output is generally plain text, though you could generate
 343 a graph or html instead.  Ledger is simple in concept, surprisingly rich
 344 in ability, and easy to use.
 345
 346 This package provides the Emacs mode.")
 347       (license license:gpl2+))))
 348
 349 (define-public geierlein
 350   (package
 351     (name "geierlein")
 352     (version "0.9.13")
 353     (source
 354      (origin
 355        (method git-fetch)
 356        (uri (git-reference
 357              (url "https://github.com/stesie/geierlein.git")
 358              (commit (string-append "V" version))))
 359        (file-name (git-file-name name version))
 360        (sha256
 361         (base32 "00zpwr3lk2vdmd60fgdwdk0xxs52wvnm19ln2m75yfphydvkglic"))))
 362     (build-system gnu-build-system)
 363     (arguments
 364      `(#:tests? #f                  ; would require npm, python and a lot more
 365        #:phases
 366         (modify-phases %standard-phases
 367           (delete 'configure)           ; no configure script
 368           (add-after 'unpack 'override-target-directory-and-tool-paths
 369             (lambda* (#:key inputs outputs #:allow-other-keys)
 370               (substitute* "Makefile"
 371                 (("prefix := .*")
 372                  (string-append "prefix := " (assoc-ref outputs "out") "\n"))
 373                 ;; Required for tests, unused for now:
 374                 ;;(("PYTHON := .*")
 375                 ;; (string-append (which "python") "\n")))
 376                 (("INSTALL := .*")
 377                  (string-append "INSTALL := " (which "install") "\n")))
 378               (substitute* "bin/xgeierlein.in"
 379                 ;; Use icecat as XULRUNNER
 380                 (("^for search ")
 381                  (string-append "XULRUNNER=" (which "icecat") "\n"
 382                                 "for search ")))
 383               #t)))))
 384     (inputs
 385      `(("icecat" ,icecat)))
 386     (home-page "https://stesie.github.io/geierlein/")
 387     (synopsis "Free Elster client, for sending Germany VAT declarations")
 388     (description
 389      "Geierlein is a free Elster client, i.e. an application that
 390 allows to send VAT declarations to Germany's fiscal authorities.
 391
 392 Currently it is *not* possible to send returns that are due annually
 393 (especially the income tax return) since the fiscal authority doesn't
 394 allow to do that off the ERiC library (which is proprietary however).
 395 It's not clear at the moment whether one day it will be possible to
 396 do so.")
 397     (license license:agpl3+)))
 398
 399 (define-public electrum
 400   (package
 401     (name "electrum")
 402     (version "3.3.8")
 403     (source
 404      (origin
 405        (method url-fetch)
 406        (uri (string-append "https://download.electrum.org/"
 407                            version "/Electrum-"
 408                            version ".tar.gz"))
 409        (sha256
 410         (base32 "1g00cj1pmckd4xis8r032wmraiv3vd3zc803hnyxa2bnhj8z3bg2"))
 411        (modules '((guix build utils)))
 412        (snippet
 413         '(begin
 414            ;; Delete the bundled dependencies.
 415            (delete-file-recursively "packages")
 416            #t))))
 417     (build-system python-build-system)
 418     (inputs
 419      `(("python-pyaes" ,python-pyaes)
 420        ("python-pysocks" ,python-pysocks)
 421        ("python-sip" ,python-sip)
 422        ("python-pyqt" ,python-pyqt)
 423        ("python-ecdsa" ,python-ecdsa)
 424        ("python-pbkdf2" ,python-pbkdf2)
 425        ("python-requests" ,python-requests)
 426        ("python-qrcode" ,python-qrcode)
 427        ("python-protobuf" ,python-protobuf)
 428        ("python-aiohttp" ,python-aiohttp)
 429        ("python-aiohttp-socks" ,python-aiohttp-socks)
 430        ("python-aiorpcx" ,python-aiorpcx)
 431        ("python-certifi" ,python-certifi)
 432        ("python-dnspython" ,python-dnspython)
 433        ("python-jsonrpclib-pelix" ,python-jsonrpclib-pelix)))
 434     (arguments
 435      `(#:tests? #f ;; package doesn't have any tests
 436        #:phases
 437        (modify-phases %standard-phases
 438          (add-before 'build 'patch-home
 439            (lambda* (#:key outputs #:allow-other-keys)
 440              (substitute* "setup.py"
 441                (("~/.local/share")
 442                 (string-append (assoc-ref outputs "out") "/local/share"))))))))
 443     (home-page "https://electrum.org/")
 444     (synopsis "Bitcoin wallet")
 445     (description
 446      "Electrum is a lightweight Bitcoin client, based on a client-server
 447 protocol.  It supports Simple Payment Verification (SPV) and deterministic key
 448 generation from a seed.  Your secret keys are encrypted and are never sent to
 449 other machines/servers.  Electrum does not download the Bitcoin blockchain.")
 450     (license license:expat)))
 451
 452 (define-public electron-cash
 453   (package
 454     (inherit electrum)
 455     (name "electron-cash")
 456     (version "4.0.12")
 457     (source
 458      (origin
 459        (method git-fetch)
 460        (uri (git-reference
 461              (url "https://github.com/Electron-Cash/Electron-Cash.git")
 462              (commit version)))
 463        (file-name (git-file-name name version))
 464        (sha256
 465         (base32
 466          "0gidrx8499v7rig7ljhd70wssshs1qm0gp1553g70i323hcbf62x"))))
 467     (inputs
 468      `(,@(package-inputs electrum)
 469        ("libsecp256k1", libsecp256k1)
 470        ("python-dateutil", python-dateutil)
 471        ("python-dnspython", python-dnspython)))
 472     (arguments
 473      (substitute-keyword-arguments (package-arguments electrum)
 474        ((#:phases phases)
 475         `(modify-phases ,phases
 476            (add-after 'unpack 'use-libsecp256k1-input
 477              (lambda* (#:key inputs #:allow-other-keys)
 478                (substitute* "lib/secp256k1.py"
 479                  (("library_paths = .* 'libsecp256k1.so.0'.")
 480                   (string-append "library_paths = ('" (assoc-ref inputs "libsecp256k1") "/lib/libsecp256k1.so.0'")))))))))
 481     (home-page "https://electroncash.org/")
 482     (synopsis "Bitcoin Cash wallet")
 483     (description
 484      "Electroncash is a lightweight Bitcoin Cash client, based on a client-server
 485 protocol.  It supports Simple Payment Verification (SPV) and deterministic key
 486 generation from a seed.  Your secret keys are encrypted and are never sent to
 487 other machines/servers.  Electroncash does not download the Bitcoin Cash blockchain.")
 488     (license license:expat)))
 489
 490 (define-public monero
 491   ;; This package bundles easylogging++ and lmdb.
 492   ;; The bundled easylogging++ is modified, and the changes will not be
 493   ;; upstreamed.
 494   ;; The devs deem the lmdb driver too critical a consenus component, to use
 495   ;; the system's dynamically linked library.
 496   (package
 497     (name "monero")
 498     (version "0.15.0.5")
 499     (source
 500      (origin
 501        (method git-fetch)
 502        (uri (git-reference
 503              (url "https://github.com/monero-project/monero.git")
 504              (commit (string-append "v" version))
 505              (recursive? #t)))
 506        (file-name (git-file-name name version))
 507        (patches (search-patches "monero-use-system-miniupnpc.patch"))
 508        (modules '((guix build utils)))
 509        (snippet
 510         '(begin
 511            ;; Delete bundled dependencies.
 512            (for-each
 513             delete-file-recursively
 514             '("external/miniupnp" "external/rapidjson"
 515               "external/unbound"))
 516            #t))
 517        (sha256
 518         (base32
 519          "06zzwa0y8ic6x3y2fy501788r51p4klanyvmm76ywrwf087njlkv"))))
 520     (build-system cmake-build-system)
 521     (native-inputs
 522      `(("doxygen" ,doxygen)
 523        ("git" ,git)
 524        ("graphviz" ,graphviz)
 525        ("pkg-config" ,pkg-config)
 526        ("protobuf" ,protobuf)
 527        ("python" ,python)
 528        ("qttools" ,qttools)))
 529     (inputs
 530      `(("boost" ,boost)
 531        ("cppzmq" ,cppzmq)
 532        ("expat" ,expat)
 533        ("hidapi" ,hidapi)
 534        ("libsodium" ,libsodium)
 535        ("libunwind" ,libunwind)
 536        ("libusb" ,libusb)
 537        ("miniupnpc" ,miniupnpc)
 538        ("openssl" ,openssl)
 539        ("protobuf" ,protobuf)
 540        ("rapidjson" ,rapidjson)
 541        ("readline" ,readline)
 542        ("unbound" ,unbound)
 543        ("xz" ,xz)
 544        ("zeromq" ,zeromq)))
 545     (arguments
 546      `(#:out-of-source? #t
 547        #:configure-flags
 548        (list "-DARCH=default"
 549              "-DBUILD_TESTS=ON"
 550              "-DBUILD_GUI_DEPS=ON"
 551              (string-append "-DReadline_ROOT_DIR="
 552                             (assoc-ref %build-inputs "readline")))
 553        #:phases
 554        (modify-phases %standard-phases
 555          ;; tests/core_tests need a valid HOME
 556          (add-before 'configure 'set-home
 557            (lambda _
 558              (setenv "HOME" (getcwd))
 559              #t))
 560          (add-after 'set-home 'change-log-path
 561            (lambda _
 562              (substitute* "contrib/epee/src/mlog.cpp"
 563                (("epee::string_tools::get_current_module_folder\\(\\)")
 564                 "\".bitmonero\"")
 565                (("return \\(")
 566                 "return ((std::string(getenv(\"HOME\"))) / "))
 567              #t))
 568          (add-after 'change-log-path 'fix-file-permissions-for-tests
 569            (lambda _
 570              (for-each make-file-writable
 571                        (find-files "tests/data/" "wallet_9svHk1.*"))
 572              #t))
 573          ;; Only try tests that don't need access to network or system
 574          (replace 'check
 575            (lambda _
 576              ;; Core tests sometimes fail, at least on i686-linux.
 577              ;; Let's disable them for now and just try hash tests
 578              ;; and unit tests.
 579              ;; (invoke "make" "ARGS=-R 'hash|core_tests' --verbose" "test")))
 580              (invoke "make" "ARGS=-R 'hash' --verbose" "test")))
 581          (add-after 'check 'unit-tests
 582            (lambda _
 583              (let ((excluded-unit-tests
 584                     (string-join
 585                      '("AddressFromURL.Success"
 586                        "AddressFromURL.Failure"
 587                        "DNSResolver.IPv4Success"
 588                        "DNSResolver.DNSSECSuccess"
 589                        "DNSResolver.DNSSECFailure"
 590                        "DNSResolver.GetTXTRecord"
 591                        "is_hdd.linux_os_root")
 592                      ":")))
 593                (invoke "tests/unit_tests/unit_tests"
 594                        (string-append "--gtest_filter=-"
 595                                       excluded-unit-tests)))))
 596          (add-after 'install 'install-librandomx
 597            (lambda* (#:key outputs #:allow-other-keys)
 598              (let ((lib (string-append (assoc-ref outputs "out") "/lib")))
 599                (install-file "external/randomx/librandomx.a" lib)
 600                #t)))
 601          (add-after 'install 'delete-dead-links
 602            (lambda* (#:key outputs #:allow-other-keys)
 603              (let ((out (assoc-ref outputs "out")))
 604                (delete-file (string-append out "/lib/libprotobuf.so"))
 605                (delete-file (string-append out "/lib/libusb-1.0.so"))
 606                #t))))))
 607     (home-page "https://web.getmonero.org/")
 608     (synopsis "Command-line interface to the Monero currency")
 609     (description
 610      "Monero is a secure, private, untraceable currency.  This package provides
 611 the Monero command line client and daemon.")
 612     (license license:bsd-3)))
 613
 614 (define-public monero-gui
 615   (package
 616     (name "monero-gui")
 617     (version "0.15.0.4")
 618     (source
 619      (origin
 620        (method git-fetch)
 621        (uri (git-reference
 622              (url "https://github.com/monero-project/monero-gui.git")
 623              (commit (string-append "v" version))))
 624        (file-name (git-file-name name version))
 625        (sha256
 626         (base32
 627          "12m5fgnxkr11q2arx1m5ccpxqm5ljcvm6l547dwqn297zs5jim4z"))))
 628     (build-system qt-build-system)
 629     (native-inputs
 630      `(("pkg-config" ,pkg-config)
 631        ("qttools" ,qttools)))
 632     (inputs
 633      `(("boost" ,boost)
 634        ("hidapi" ,hidapi)
 635        ("libsodium" ,libsodium)
 636        ("libunwind" ,libunwind)
 637        ("libusb" ,libusb)
 638        ("openssl" ,openssl)
 639        ("protobuf" ,protobuf)
 640        ("qtbase" ,qtbase)
 641        ("qtdeclarative" ,qtdeclarative)
 642        ("qtgraphicaleffects" ,qtgraphicaleffects)
 643        ("qtlocation" ,qtlocation)
 644        ("qtmultimedia" ,qtmultimedia)
 645        ("qtquickcontrols" ,qtquickcontrols)
 646        ("qtquickcontrols2",qtquickcontrols2)
 647        ("qtsvg" ,qtsvg)
 648        ("qtxmlpatterns" ,qtxmlpatterns)
 649        ("unbound" ,unbound)))
 650     (propagated-inputs
 651      `(("monero" ,monero)))
 652     (arguments
 653      `(#:tests? #f ; No tests
 654        #:phases
 655        (modify-phases %standard-phases
 656          (add-after 'unpack 'fix-makefile-vars
 657            (lambda _
 658              (substitute* "src/zxcvbn-c/makefile"
 659                (("\\?=") "="))
 660              #t))
 661          (add-after 'fix-makefile-vars 'fix-paths
 662            (lambda* (#:key inputs outputs #:allow-other-keys)
 663              (let ((boost (assoc-ref inputs "boost"))
 664                    (monero (assoc-ref inputs "monero"))
 665                    (openssl (assoc-ref inputs "openssl"))
 666                    (qttools (assoc-ref inputs "qttools"))
 667                    (out (assoc-ref outputs "out")))
 668                (substitute* "monero-wallet-gui.pro"
 669                  (("-L/usr/local/lib")
 670                   "")
 671                  (("-L/usr/local/opt/openssl/lib")
 672                   (string-append "-L" openssl "/lib"))
 673                  (("-L/usr/local/opt/boost/lib")
 674                   (string-append "-L" boost "/lib"))
 675                  (("\\$\\$\\[QT_INSTALL_BINS\\]/lrelease")
 676                   (string-append qttools "/bin/lrelease"))
 677                  (("\\$\\$\\[QT_INSTALL_BINS\\]/lupdate")
 678                   (string-append qttools "/bin/lupdate")))
 679                (substitute* "deployment.pri"
 680                  (("/opt/\\$\\$\\{TARGET\\}/bin")
 681                   (string-append out "/bin")))
 682                (substitute* "src/daemon/DaemonManager.cpp"
 683                  (("QApplication::applicationDirPath\\(\\) \\+ \"/monerod")
 684                   (string-append "\"" monero "/bin/monerod")))
 685                #t)))
 686          (add-after 'fix-paths 'make-qt-deterministic
 687            (lambda _
 688              (setenv "QT_RCC_SOURCE_DATE_OVERRIDE" "1")
 689              #t))
 690          (add-after 'make-qt-deterministic 'fix-version
 691            (lambda _
 692              (substitute* "build.sh"
 693                (("echo .*> version.js")
 694                 ""))
 695              (with-output-to-file "version.js"
 696                (lambda _
 697                  (format #t
 698                          "var GUI_VERSION = \"~a\"~@
 699                           var GUI_MONERO_VERSION = \"~a\"~%"
 700                          ,version
 701                          ,(package-version monero))))
 702              #t))
 703          (replace 'configure
 704            (lambda _
 705              (mkdir-p "build")
 706              (chdir "build")
 707              (invoke "qmake" "../monero-wallet-gui.pro" "CONFIG+=release")))
 708          (add-before 'build 'build-zxcvbn-c
 709            (lambda _
 710              (invoke "make" "-C" "../src/zxcvbn-c"))))))
 711     (home-page "https://web.getmonero.org/")
 712     (synopsis "Graphical user interface for the Monero currency")
 713     (description
 714      "Monero is a secure, private, untraceable currency.  This package provides
 715 the Monero GUI client.")
 716     (license license:bsd-3)))
 717
 718 (define-public monero-core
 719   (deprecated-package "monero-core" monero-gui))
 720
 721 (define-public python-trezor-agent
 722   (package
 723     (name "python-trezor-agent")
 724     (version "0.13.1")
 725     (source
 726      (origin
 727        (method git-fetch)
 728        (uri (git-reference
 729              (url "https://github.com/romanz/trezor-agent.git")
 730              (commit (string-append "v" version))))
 731        (file-name (git-file-name name version))
 732        (sha256
 733         (base32 "0q99vbfd3h85s8rnjipnmldixabqmmlk5w9karv6f0rhyi54f4zv"))))
 734     (build-system python-build-system)
 735     (arguments
 736      `(#:phases
 737        (modify-phases %standard-phases
 738          (add-after 'unpack 'remove-requires-backports-shutil-which
 739            ;; Remove requires on backport of shutil_which, as python 3.4+ has
 740            ;; a built-in implementation supported in python-trezor-agent.
 741            (lambda _
 742              (substitute* "setup.py"
 743                (("'backports.shutil_which>=3.5.1',") ""))
 744              #t))
 745          (delete 'check)
 746          (add-after 'install 'check
 747            (lambda* (#:key outputs inputs #:allow-other-keys)
 748              ;; Make installed package available for running the tests.
 749              (add-installed-pythonpath inputs outputs)
 750              (invoke "py.test"))))))
 751     (propagated-inputs
 752      `(("python-configargparse" ,python-configargparse)
 753        ("python-daemon" ,python-daemon)
 754        ("python-docutils" ,python-docutils)
 755        ("python-ecdsa" ,python-ecdsa)
 756        ("python-ed25519" ,python-ed25519)
 757        ("python-mnemonic" ,python-mnemonic)
 758        ("python-pymsgbox" ,python-pymsgbox)
 759        ("python-semver" ,python-semver)
 760        ("python-unidecode" ,python-unidecode)
 761        ("python-wheel" ,python-wheel)))
 762     (native-inputs
 763      `(("gnupg" ,gnupg)
 764        ("python-mock" ,python-mock)
 765        ("python-pytest" ,python-pytest)))
 766     (home-page "https://github.com/romanz/trezor-agent")
 767     (synopsis "Use hardware wallets as SSH and GPG agent")
 768     (description
 769      "@code{libagent} is a library that allows using TREZOR, Keepkey and
 770 Ledger Nano as a hardware SSH/GPG agent.")
 771     (license license:lgpl3)))
 772
 773 (define-public python-mnemonic
 774   (package
 775     (name "python-mnemonic")
 776     (version "0.19")
 777     (source
 778       (origin
 779         (method url-fetch)
 780         (uri (pypi-uri "mnemonic" version))
 781         (sha256
 782           (base32 "0cd9prmdj8wzdmc7lxbf9lz0xrlkvak5ignag406mmfbn81fndsf"))))
 783     (build-system python-build-system)
 784     (propagated-inputs
 785      `(("python-pbkdf2" ,python-pbkdf2)))
 786     (home-page "https://github.com/trezor/python-mnemonic")
 787     (synopsis "Implementation of Bitcoin BIP-0039")
 788     (description "@code{mnemonic} is a library that provides an implementation
 789 of Bitcoin BIP-0039.")
 790     (license license:expat)))
 791
 792 (define-public python2-mnemonic
 793   (package-with-python2 python-mnemonic))
 794
 795 (define-public python-ledgerblue
 796   (package
 797     (name "python-ledgerblue")
 798     (version "0.1.16")
 799     (source
 800       (origin
 801         (method url-fetch)
 802         (uri (pypi-uri "ledgerblue" version))
 803         (sha256
 804           (base32
 805             "010mghaqh1cmz3a0ifc3f40mmyplilwlw7kpha2mzyrrff46p9gb"))))
 806     (build-system python-build-system)
 807     (propagated-inputs
 808      `(("python-ecpy" ,python-ecpy)
 809        ("python-future" ,python-future)
 810        ("python-hidapi" ,python-hidapi)
 811        ("python-pillow" ,python-pillow)
 812        ("python-protobuf" ,python-protobuf)
 813        ("python-pycrypto" ,python-pycrypto)))
 814     (home-page "https://github.com/LedgerHQ/blue-loader-python")
 815     (synopsis "Python library to communicate with Ledger Blue/Nano S")
 816     (description "@code{ledgerblue} is a Python library to communicate with
 817 Ledger Blue/Nano S.")
 818     (license license:asl2.0)))
 819
 820 (define-public python2-ledgerblue
 821   (package-with-python2 python-ledgerblue))
 822
 823 (define-public python-trezor
 824   (package
 825     (name "python-trezor")
 826     (version "0.11.3")
 827     (source
 828       (origin
 829         (method url-fetch)
 830         (uri (pypi-uri "trezor" version))
 831         (sha256
 832           (base32
 833             "0211m027vlvyqy83kwbjjjxalb04xgf1klv0h0y0f0yhj07516n7"))))
 834     (build-system python-build-system)
 835     (arguments
 836      `(#:phases
 837         (modify-phases %standard-phases
 838           ;; Default tests run device-specific tests which fail, only run specific tests.
 839           (replace 'check
 840             (lambda* (#:key inputs outputs #:allow-other-keys)
 841               ;; Delete tests that require network access.
 842               (delete-file "trezorlib/tests/unit_tests/test_tx_api.py")
 843               (invoke "python" "-m" "pytest" "--pyarg" "trezorlib.tests.unit_tests"))))))
 844     (propagated-inputs
 845      `(("python-click" ,python-click)
 846        ("python-construct" ,python-construct)
 847        ("python-ecdsa" ,python-ecdsa)
 848        ("python-libusb1" ,python-libusb1)
 849        ("python-mnemonic" ,python-mnemonic)
 850        ("python-pyblake2" ,python-pyblake2)
 851        ("python-requests" ,python-requests)
 852        ("python-typing-extensions" ,python-typing-extensions)))
 853     (native-inputs
 854      ;; For tests.
 855      `(("protobuf" ,protobuf)
 856        ("python-black" ,python-black)
 857        ("python-protobuf" ,python-protobuf)
 858        ("python-isort" ,python-isort)
 859        ("python-pyqt" ,python-pyqt)
 860        ("python-pytest" ,python-pytest)))
 861     (home-page "https://github.com/trezor/python-trezor")
 862     (synopsis "Python library for communicating with TREZOR Hardware Wallet")
 863     (description "@code{trezor} is a Python library for communicating with
 864 TREZOR Hardware Wallet.")
 865     (license license:lgpl3)))
 866
 867 (define-public python-keepkey
 868   (package
 869     (name "python-keepkey")
 870     (version "6.0.3")
 871     (source
 872       (origin
 873         (method url-fetch)
 874         (uri (pypi-uri "keepkey" version))
 875         (sha256
 876           (base32
 877             "0z3d0m6364v9dv0njs4cd5m5ai6j6v35xaaxfxl90m9vmyxy81vd"))))
 878     (build-system python-build-system)
 879     (arguments
 880      `(#:phases
 881        (modify-phases %standard-phases
 882          (delete 'check)
 883          (add-after 'install 'check
 884            (lambda* (#:key inputs outputs #:allow-other-keys)
 885              (add-installed-pythonpath inputs outputs)
 886              (apply invoke "python" (find-files "tests/unit" "\\.py$")))))))
 887     (propagated-inputs
 888      `(("python-ecdsa" ,python-ecdsa)
 889        ("python-hidapi" ,python-hidapi)
 890        ("python-libusb1" ,python-libusb1)
 891        ("python-mnemonic" ,python-mnemonic)
 892        ("python-protobuf" ,python-protobuf)))
 893     (home-page "https://github.com/keepkey/python-keepkey")
 894     (synopsis "Python library for communicating with KeepKey Hardware Wallet")
 895     (description "@code{keepkey} is a Python library for communicating with
 896 the KeepKey Hardware Wallet.")
 897     (license license:lgpl3)))
 898
 899 (define-public python2-keepkey
 900   (package-with-python2 python-keepkey))
 901
 902 (define-public ledger-agent
 903   (package
 904     (name "ledger-agent")
 905     (version "0.9.0")
 906     (source
 907      (origin
 908        (method url-fetch)
 909        (uri (pypi-uri "ledger_agent" version))
 910        (sha256
 911         (base32
 912          "03zj602m2rln9yvr08dswy56vzkbldp8b074ixwzz525dafblr92"))))
 913     (build-system python-build-system)
 914     (inputs
 915      `(("python-ledgerblue" ,python-ledgerblue)
 916        ("python-trezor-agent" ,python-trezor-agent)))
 917     (home-page "http://github.com/romanz/trezor-agent")
 918     (synopsis "Ledger as hardware SSH/GPG agent")
 919     (description "This package allows using Ledger as hardware SSH/GPG agent.
 920
 921 Usage for SSH: trezor-agent foo@@example.com --connect
 922 Usage for GPG: Initialize using trezor-gpg init \"Foo <foo@@example.com>\"
 923 Then set the environment variable GNUPGHOME to
 924 \"${HOME}/.gnupg/trezor\".")
 925     (license license:lgpl3)))
 926
 927 (define-public trezor-agent
 928   (package
 929     (name "trezor-agent")
 930     (version "0.10.0")
 931     (source
 932      (origin
 933        (method url-fetch)
 934        (uri (pypi-uri "trezor_agent" version))
 935        (sha256
 936         (base32
 937          "144657c7bn0a667dq5fv5r6j7iilxf3h9agj29v1m2qpq40g0az8"))))
 938     (arguments
 939      ;; Tests fail with "AttributeError: module 'attr' has no attribute 's'".
 940      `(#:phases
 941        (modify-phases %standard-phases
 942          (add-after 'wrap 'fixup-agent-py
 943            (lambda* (#:key inputs outputs #:allow-other-keys)
 944              (let* ((out (assoc-ref outputs "out")))
 945                ;; overwrite the wrapper with the real thing.
 946                (install-file "./trezor_agent.py"
 947                              (string-append out "/bin"))
 948              #t))))))
 949     (build-system python-build-system)
 950     (inputs
 951      `(("python-trezor" ,python-trezor)
 952        ("python-trezor-agent" ,python-trezor-agent)))
 953     (native-inputs
 954      `(("python-hidapi" ,python-hidapi)))
 955     (home-page "https://github.com/romanz/trezor-agent")
 956     (synopsis "Using Trezor as hardware SSH/GPG agent")
 957     (description "This package allows using Trezor as a hardware SSH/GPG
 958 agent.")
 959     (license license:lgpl3)))
 960
 961 (define-public keepkey-agent
 962   (package
 963     (name "keepkey-agent")
 964     (version "0.9.0")
 965     (source
 966       (origin
 967         (method url-fetch)
 968         (uri (pypi-uri "keepkey_agent" version))
 969         (sha256
 970           (base32
 971             "03779gvlx70i0nnry98i4pl1d92604ix5x6jgdfkrdgzqbh5vj27"))))
 972     (build-system python-build-system)
 973     (inputs
 974      `(("python-keepkey" ,python-keepkey)
 975        ("python-trezor-agent" ,python-trezor-agent)))
 976     (home-page "http://github.com/romanz/trezor-agent")
 977     (synopsis "KeepKey as hardware SSH/GPG agent")
 978     (description "This package allows using KeepKey as a hardware SSH/GPG
 979 agent.")
 980     (license license:lgpl3)))
 981
 982 (define-public python-stdnum
 983   (package
 984     (name "python-stdnum")
 985     (version "1.8.1")
 986     (source
 987      (origin
 988        (method url-fetch)
 989        (uri (pypi-uri "python-stdnum" version))
 990        (sha256
 991         (base32
 992          "0hvr47q32xbyiznpmbg4r8rcvxhnf0lwf33hcpnynyik57djy5np"))))
 993     (build-system python-build-system)
 994     (home-page
 995      "https://arthurdejong.org/python-stdnum/")
 996     (synopsis
 997      "Python module to handle standardized number and code formats")
 998     (description
 999      "This is a Python library that aims to provide functions to handle,
1000 parse and validate standard numbers.
1001 The module supports more than 100 different number formats
1002 amongst which a great number of VAT and other tax numbers,
1003 personal identity and company identification codes,
1004 international standard numbers (ISBN, IBAN, EAN, etc.)
1005 and various other formats.
1006 The module also inclused implementations of the Verhoeff,
1007 Luhn and family of ISO/IEC 7064 check digit algorithms. ")
1008     (license license:lgpl2.1+)))
1009
1010 (define-public python2-stdnum
1011   (package-with-python2 python-stdnum))
1012
1013 (define-public python-duniterpy
1014   (package
1015     (name "python-duniterpy")
1016     (version "0.56.0")
1017     (source
1018      (origin
1019        (method url-fetch)
1020        (uri (pypi-uri "duniterpy" version))
1021        (sha256
1022         (base32 "1h8d8cnr6k5sw4cqy8r82zy4ldzpvn4nlk2221lz2haqq7xm4s5z"))))
1023     (build-system python-build-system)
1024     (arguments
1025      ;; FIXME: Tests fail with: "ModuleNotFoundError: No module named
1026      ;; 'tests'".  Not sure how to handle this.
1027      `(#:tests? #f
1028        #:phases
1029        (modify-phases %standard-phases
1030          ;; "setup.py" tries to open missing "requirements.txt".
1031          (add-after 'unpack 'ignore-missing-file
1032            (lambda _
1033              (substitute* "setup.py"
1034                (("open\\('requirements\\.txt'\\)") "[]"))
1035              #t)))))
1036     (propagated-inputs
1037      `(("aiohttp" ,python-aiohttp)
1038        ("attrs" ,python-attrs)
1039        ("base58" ,python-base58)
1040        ("jsonschema" ,python-jsonschema)
1041        ("libnacl" ,python-libnacl)
1042        ("pyaes" ,python-pyaes)
1043        ("pylibscrypt" ,python-pylibscrypt)
1044        ("pypeg2" ,python-pypeg2)))
1045     (home-page "https://git.duniter.org/clients/python/duniterpy")
1046     (synopsis "Python implementation of Duniter API")
1047     (description "@code{duniterpy} is an implementation of
1048 @uref{https://github.com/duniter/duniter/, duniter} API.  Its
1049 main features are:
1050 @itemize
1051 @item Support Duniter's Basic Merkle API and protocol
1052 @item Asynchronous/synchronous without threads
1053 @item Support HTTP, HTTPS and Web Socket transport for Basic Merkle API
1054 @item Support Elasticsearch Duniter4j API
1055 @item Duniter signing key
1056 @item Sign/verify and encrypt/decrypt messages with the Duniter credentials
1057 @end itemize")
1058     (license license:gpl3+)))
1059
1060 (define-public silkaj
1061   (package
1062     (name "silkaj")
1063     (version "0.7.6")
1064     (source
1065      (origin
1066        (method url-fetch)
1067        (uri (pypi-uri "silkaj" version))
1068        (sha256
1069         (base32 "0hrn0jwg415z7wjkp0myvw85wszlfi18f56j03075xxakr4dmi2j"))))
1070     (build-system python-build-system)
1071     (arguments
1072      `(#:tests? #f))                    ;no test
1073     (inputs
1074      `(("click" ,python-click)
1075        ("duniterpy" ,python-duniterpy)
1076        ("ipaddress" ,python-ipaddress)
1077        ("pynacl" ,python-pynacl)
1078        ("tabulate" ,python-tabulate)
1079        ("texttable" ,python-texttable)))
1080     (home-page "https://git.duniter.org/clients/python/silkaj")
1081     (synopsis "Command line client for Duniter network")
1082     (description "@code{Silkaj} is a command line client for the
1083 @uref{https://github.com/duniter/duniter/, Duniter} network.
1084
1085 Its features are:
1086 @itemize
1087 @item information about currency,
1088 @item issuers difficulty to generate next block,
1089 @item network view of nodes,
1090 @item list of last issuers,
1091 @item send transactions,
1092 @item get account amount.
1093 @end itemize")
1094     (license license:agpl3+)))
1095
1096 (define-public grisbi
1097   (package
1098     (name "grisbi")
1099     (version "1.2.2")
1100     (source
1101      (origin
1102        (method url-fetch)
1103        (uri (string-append
1104              "mirror://sourceforge/grisbi/grisbi%20stable/"
1105              (version-major+minor version) ".x/" version
1106              "/grisbi-" version ".tar.bz2"))
1107        (sha256
1108         (base32
1109          "1piiyyxjsjbw9gcqydvknzxmmfgh8kdqal12ywrxyxih2afwnvbw"))))
1110     (build-system glib-or-gtk-build-system)
1111     (arguments
1112      `(#:configure-flags (list "--without-ofx")))
1113     (propagated-inputs
1114      `(("dconf" ,dconf)))
1115     (native-inputs
1116      `(("glib" ,glib "bin")             ; glib-compile-schemas
1117        ("pkg-config" ,pkg-config)
1118        ("intltool" ,intltool)))
1119     (inputs
1120      `(("gtk+" ,gtk+)
1121        ("libgsf" ,libgsf)))
1122     (synopsis "Personal accounting application")
1123     (description "Grisbi is a personal accounting application written by
1124 French developers that is designed to follow French accounting rules.
1125 Grisbi can manage multiple accounts, currencies and users.  It manages
1126 third party, expenditure and receipt categories, budgetary lines,
1127 financial years, budget estimates, bankcard management and other
1128 information.")
1129     (home-page "https://grisbi.org")
1130     (license license:gpl2+)))
1131
1132 (define-public trezord
1133   (package
1134     (name "trezord")
1135     (version "2.0.17")
1136     (source
1137      (origin
1138        (method git-fetch)
1139        (uri (git-reference
1140               (url "https://github.com/trezor/trezord-go.git")
1141               (commit (string-append "v" version))))
1142        (sha256
1143         (base32
1144          "0nqzpq0i3crh0i4r1cppja5sn3rwi1fv9afxzwzv63096x5l30a7"))
1145        (file-name (git-file-name name version))))
1146     (build-system go-build-system)
1147     (arguments
1148      '(#:import-path "github.com/trezor/trezord-go"))
1149     (home-page "https://trezor.io")
1150     (synopsis "Trezor Communication Daemon aka Trezor Bridge (written in Go)")
1151     (description "This allows a Trezor hardware wallet to communicate to the
1152 Trezor wallet.")
1153     (license license:lgpl3+)))
1154
1155 (define-public bitcoin-abc
1156   (package
1157     (inherit bitcoin-core)
1158     (name "bitcoin-abc")
1159     (version "0.20.7")
1160     (source (origin
1161               (method url-fetch)
1162               (uri (string-append "https://download.bitcoinabc.org/"
1163                                   version "/src/bitcoin-abc-"
1164                                   version ".tar.gz"))
1165               (sha256
1166                (base32
1167                 "0py5ilfi4r8qh5r9637vwch27sqrrn0dg9rz8bccnj3lp2xpzw27"))))
1168     (native-inputs
1169      `(("autoconf" ,autoconf)
1170        ("automake" ,automake)
1171        ("libtool" ,libtool)
1172        ("pkg-config" ,pkg-config)
1173        ("python" ,python)               ; for the tests
1174        ("util-linux" ,util-linux)       ; provides the hexdump command for tests
1175        ("qttools" ,qttools)))
1176     (inputs
1177      `(("bdb" ,bdb-5.3)
1178        ("boost" ,boost)
1179        ("libevent" ,libevent)
1180        ("miniupnpc" ,miniupnpc)
1181        ("openssl" ,openssl)
1182        ("protobuf" ,protobuf)
1183        ("qrencode" ,qrencode)
1184        ("qtbase" ,qtbase)
1185        ("zlib" ,zlib)))
1186     (home-page "https://www.bitcoinabc.org/")
1187     (synopsis "Bitcoin ABC peer-to-peer full node for the Bitcoin Cash protocol")
1188     (description
1189      "Bitcoin Cash brings sound money to the world, fulfilling the original
1190 promise of Bitcoin as Peer-to-Peer Electronic Cash.  Merchants and users are
1191 empowered with low fees and reliable confirmations is a digital currency that
1192 enables instant payments to anyone anywhere in the world.  It uses
1193 peer-to-peer technology to operate without central authority: managing
1194 transactions and issuing money are carried out collectively by the network.
1195 As a fork it implemented changes lowering the time between blocks and now
1196 offers confimations after less than 5 seconds and have significantly lower
1197 fees that BTC.  Bitcoin ABC is the reference implementation of the Bitcoin
1198 Cash protocol.  This package provides the Bitcoin Cash command line client and
1199 a client based on Qt.  This is a fork of Bitcoin Core.")))
1200
1201 (define-public libofx
1202   (package
1203     (name "libofx")
1204     (version "0.9.15")
1205     (source (origin
1206               (method git-fetch)
1207               (uri (git-reference
1208                     (url "https://github.com/libofx/libofx")
1209                     (commit version)))
1210               (file-name (git-file-name name version))
1211               (sha256
1212                (base32
1213                 "1jx56ma351p8af8dvavygjwf6ipa7qbgq7bpdsymwj27apdnixfy"))))
1214     (build-system gnu-build-system)
1215     (arguments
1216      '(#:parallel-build? #f             ;fails with -j64
1217        #:configure-flags
1218        (list (string-append "--with-opensp-includes="
1219                             (assoc-ref %build-inputs "opensp")
1220                             "/include/OpenSP"))))
1221     (native-inputs
1222      `(("autoconf" ,autoconf)
1223        ("automake" ,automake)
1224        ("gengetopt" ,gengetopt)
1225        ("help2man" ,help2man)
1226        ("libtool" ,libtool)
1227        ("pkg-config" ,pkg-config)))
1228     (inputs
1229      `(("curl" ,curl)
1230        ("libxml++-2" ,libxml++-2)
1231        ("opensp" ,opensp)))
1232     (home-page "http://libofx.sourceforge.net/")
1233     (synopsis "Library supporting the Open Financial Exchange format")
1234     (description
1235      "The LibOFX library is an API designed to allow applications to very easily
1236 support OFX command responses, usually provided by financial institutions.  The
1237 following three utilities are included with the library:
1238 @enumerate
1239 @item @code{ofxdump}
1240 @item @code{ofx2qif}
1241 @item @code{ofxconnect}
1242 @end enumerate")
1243     (license license:gpl2+)))
1244
1245 (define-public opensp
1246   (package
1247     (name "opensp")
1248     (version "1.5.2")
1249     (source (origin
1250               (method url-fetch)
1251               (uri (string-append "mirror://sourceforge/openjade/opensp/"
1252                                   version "/OpenSP-" version ".tar.gz"))
1253               (sha256
1254                (base32
1255                 "1khpasr6l0a8nfz6kcf3s81vgdab8fm2dj291n5r2s53k228kx2p"))))
1256     (build-system gnu-build-system)
1257     (native-inputs
1258      `(("gettext" ,gettext-minimal)))
1259     (inputs
1260      `(("docbook-xml" ,docbook-xml-4.1.2)
1261        ("docbook-xsl" ,docbook-xsl)
1262        ("xmlto" ,xmlto)))
1263     (arguments
1264      `(;; TODO: Fix and enable tests.
1265        #:tests? #f
1266        #:phases
1267        (modify-phases %standard-phases
1268          (add-after 'unpack 'patch-docbook-paths
1269            (lambda* (#:key inputs #:allow-other-keys)
1270              (let ((xmldoc (string-append (assoc-ref inputs "docbook-xml")
1271                                           "/xml/dtd/docbook"))
1272                    (xsldoc (string-append (assoc-ref inputs "docbook-xsl")
1273                                           "/xml/xsl/docbook-xsl-"
1274                                           ,(package-version docbook-xsl))))
1275                (substitute* (find-files "docsrc" "\\.xml$")
1276                  (("/usr/share/sgml/docbook/xml-dtd-4.1.2") xmldoc)
1277                  (("http://.*/docbookx\\.dtd")
1278                   (string-append xmldoc "/docbookx.dtd")))
1279                ;; Directly pass the path to the stylesheet to xmlto.
1280                (substitute* "docsrc/Makefile.in"
1281                  (("\\$\\(XMLTO\\)")
1282                   (string-append "$(XMLTO) -x " xsldoc
1283                                  "/manpages/docbook.xsl")))
1284                #t))))))
1285     (home-page "http://openjade.sourceforge.net/")
1286     (synopsis "Suite of SGML/XML processing tools")
1287     (description "OpenSP is an object-oriented toolkit for SGML parsing and
1288 entity management.")
1289     (license
1290      ;; expat license with added clause regarding advertising
1291      (license:non-copyleft
1292       "file://COPYING"
1293       "See COPYING in the distribution."))))
1294
1295 (define-public bitcoin-unlimited
1296   (package
1297     (name "bitcoin-unlimited")
1298     (version "1.7.0.0")
1299     (source
1300      (origin
1301        (method git-fetch)
1302        (uri (git-reference
1303              (url "https://github.com/BitcoinUnlimited/BitcoinUnlimited.git")
1304              (commit (string-append "bucash" version))))
1305        (file-name (git-file-name name version))
1306        (sha256
1307         (base32 "05rcd73mg2fb2zb6b1imzspck6jhcy3xymrr7n24kwjrzmvihdpx"))))
1308     (build-system gnu-build-system)
1309     (native-inputs
1310      `(("autoconf" ,autoconf)
1311        ("automake" ,automake)
1312        ("libtool" ,libtool)
1313        ("pkg-config" ,pkg-config)
1314        ("python" ,python) ; for the tests
1315        ("util-linux" ,util-linux) ; provides the hexdump command for tests
1316        ("qttools" ,qttools)))
1317     (inputs
1318      `(("bdb" ,bdb-4.8)
1319        ("boost" ,boost)
1320        ("libevent" ,libevent)
1321        ("miniupnpc" ,miniupnpc)
1322        ("openssl" ,openssl)
1323        ("protobuf" ,protobuf)
1324        ("qrencode" ,qrencode)
1325        ("qtbase" ,qtbase)
1326        ("zeromq" ,zeromq)
1327        ("zlib" ,zlib)))
1328     (arguments
1329      `(#:configure-flags
1330        (list
1331         ;; Boost is not found unless specified manually.
1332         (string-append "--with-boost="
1333                        (assoc-ref %build-inputs "boost"))
1334         ;; XXX: The configure script looks up Qt paths by
1335         ;; `pkg-config --variable=host_bins Qt5Core`, which fails to pick
1336         ;; up executables residing in 'qttools', so we specify them here.
1337         (string-append "ac_cv_path_LRELEASE="
1338                        (assoc-ref %build-inputs "qttools")
1339                        "/bin/lrelease")
1340         (string-append "ac_cv_path_LUPDATE="
1341                        (assoc-ref %build-inputs "qttools")
1342                        "/bin/lupdate"))
1343        #:phases
1344        (modify-phases %standard-phases
1345          (add-after 'unpack 'fix-tests
1346            (lambda _
1347              ;; TODO: Find why utilprocess_tests never ends. Disable for now.
1348              (substitute* "src/test/utilprocess_tests.cpp"
1349                (("#if \\(BOOST_OS_LINUX && \\(BOOST_VERSION >= 106500\\)\\)")
1350                 "#if 0"))
1351              #t))
1352          (add-before 'configure 'make-qt-deterministic
1353            (lambda _
1354              ;; Make Qt deterministic.
1355              (setenv "QT_RCC_SOURCE_DATE_OVERRIDE" "1")
1356              #t))
1357          (add-before 'check 'set-home
1358            (lambda _
1359              (setenv "HOME" (getenv "TMPDIR")) ; tests write to $HOME
1360              #t)))))
1361     (home-page "https://www.bitcoinunlimited.info/")
1362     (synopsis "Client for the Bitcoin Cash protocol")
1363     (description
1364      "Bitcoin Unlimited is a client for the Bitcoin Cash peer-to-peer
1365 electronic cash system.  This package provides a command line client and
1366 a Qt GUI.")
1367     (license license:expat)))