Here's an updated patch with the suggested changes. I also re-enabled
the shared library and python module, and built html docs, and a few
other things. This turned out to be a much more challenging package than
I expected! Hopefully it is finally finished or very close to finished.
Thanks,
--
Alex Griffin
From e6fb89828f44765d36a658bd2b497aa8bd8b12d9 Mon Sep 17 00:00:00 2001
From: Alex Griffin <a...@ajgrf.com>
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 <andr...@enge.fr>
;;; Copyright © 2016 Efraim Flashner <efr...@flashner.co.il>
+;;; Copyright © 2016 Alex Griffin <a...@ajgrf.com>
;;;
;;; 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
