From e6fb89828f44765d36a658bd2b497aa8bd8b12d9 Mon Sep 17 00:00:00 2001 From: Alex Griffin Date: Sat, 7 May 2016 12:20:47 -0500 Subject: [PATCH 2/2] gnu: Add ledger. * gnu/packages/finance.scm (ledger): New variable. --- gnu/packages/finance.scm | 91 ++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 91 insertions(+) diff --git a/gnu/packages/finance.scm b/gnu/packages/finance.scm index e9487d4..c19e2ca 100644 --- a/gnu/packages/finance.scm +++ b/gnu/packages/finance.scm @@ -1,6 +1,7 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2015 Andreas Enge ;;; Copyright © 2016 Efraim Flashner +;;; Copyright © 2016 Alex Griffin ;;; ;;; This file is part of GNU Guix. ;;; @@ -23,13 +24,21 @@ #:use-module (guix download) #:use-module (guix build utils) #:use-module (guix build-system gnu) + #:use-module (guix build-system cmake) + #:use-module (gnu packages base) #:use-module (gnu packages boost) #:use-module (gnu packages databases) + #:use-module (gnu packages emacs) + #:use-module (gnu packages groff) + #:use-module (gnu packages libedit) #:use-module (gnu packages linux) + #:use-module (gnu packages multiprecision) #:use-module (gnu packages pkg-config) #:use-module (gnu packages protobuf) #:use-module (gnu packages python) #:use-module (gnu packages qt) + #:use-module (gnu packages texinfo) + #:use-module (gnu packages textutils) #:use-module (gnu packages tls) #:use-module (gnu packages upnp)) @@ -81,3 +90,85 @@ collectively by the network. Bitcoin Core is the reference implementation of the bitcoin protocol. This package provides the Bitcoin Core command line client and a client based on Qt.") (license license:expat))) + +(define-public ledger + (package + (name "ledger") + (version "3.1.1") + (source (origin + (method url-fetch) + (uri (string-append "https://github.com/ledger/ledger/archive/v" + version + ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "12jlv3gsjhrja25q9hrwh73cdacd2l3c2yyn8qnijav9mdhnbw4h")))) + (build-system cmake-build-system) + (arguments + `(#:phases + (let* ((out (assoc-ref %outputs "out")) + (examples (string-append out "/share/doc/ledger/examples")) + (site-lisp (string-append out "/share/emacs/site-lisp"))) + (modify-phases %standard-phases + (add-before 'configure 'install-examples + (lambda _ + (install-file "test/input/sample.dat" examples) + (install-file "test/input/demo.ledger" examples))) + (add-after 'build 'build-doc + (lambda _ (zero? (system* "make" "doc")))) + (add-before 'check 'check-setup + ;; one test fails if it can't set the timezone + (lambda _ (setenv "TZDIR" + (string-append (assoc-ref %build-inputs "tzdata") + "/share/zoneinfo")))) + (add-after 'install 'relocate-elisp + (lambda _ + (mkdir-p (string-append site-lisp "/guix.d")) + (rename-file (string-append site-lisp "/ledger-mode") + (string-append site-lisp "/guix.d/ledger-mode")))))) + #:configure-flags + `("-DBUILD_DOCS:BOOL=ON" + "-DBUILD_WEB_DOCS:BOOL=ON" + "-DBUILD_EMACSLISP:BOOL=ON" + "-DUSE_PYTHON:BOOL=ON" + "-DCMAKE_INSTALL_LIBDIR:PATH=lib" + ,(string-append "-DUTFCPP_INCLUDE_DIR:PATH=" + (assoc-ref %build-inputs "utfcpp") + "/include")))) + (inputs `(("boost" ,boost) + ("gmp" ,gmp) + ("libedit" ,libedit) + ("mpfr" ,mpfr) + ("python" ,python-2) + ("tzdata" ,tzdata) + ("utfcpp" ,utfcpp))) + (native-inputs `(("emacs-no-x" ,emacs-no-x) + ("groff" ,groff) + ("texinfo" ,texinfo))) + (home-page "http://ledger-cli.org/") + (synopsis "Command-line double-entry accounting program") + (description + "Ledger is a powerful, double-entry accounting system that is +accessed from the UNIX command-line. This may put off some users, since +there is no flashy UI, but for those who want unparalleled reporting +access to their data there are few alternatives. + +Ledger uses text files for input. It reads the files and generates +reports; there is no other database or stored state. To use Ledger, +you create a file of your account names and transactions, run from the +command line with some options to specify input and requested reports, and +get output. The output is generally plain text, though you could generate +a graph or html instead. Ledger is simple in concept, surprisingly rich +in ability, and easy to use.") + ;; There are some extra licenses in files which do not presently get + ;; installed when you build this package. Different versions of the GPL + ;; are used in the contrib and python subdirectories. The bundled version + ;; of utfcpp is under the Boost 1.0 license. Also the file + ;; `tools/update_copyright_year` has an Expat license. + (license (list license:bsd-3 + license:asl2.0 ; src/strptime.cc + (license:non-copyleft + "file://src/wcwidth.cc" + "See src/wcwidth.cc in the distribution.") + license:gpl2+)))) ; lisp/* -- 2.7.4