blob: c0e1076de17af124008d49ffafc9ddbd8844d435 (
about) (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
|
(define-module (tw packages finance)
#:use-module (gnu packages databases)
#:use-module (gnu packages finance)
#:use-module (gnu packages haskell-xyz)
#:use-module (gnu packages lisp-check)
#:use-module (gnu packages lisp-xyz)
#:use-module (guix build-system haskell)
#:use-module (guix build-system asdf)
#:use-module (guix gexp)
#:use-module (guix git-download)
#:use-module (guix packages)
#:use-module ((guix licenses) #:prefix license:))
(define-public hledger-dashboard
(package
(name "hledger-dashboard")
(version "1.2.1.0")
(source (origin
(method git-fetch)
(uri (git-reference
(url "git://lud.wg/~timo/hledger-dashboard.git")
(commit version)))
(sha256 (base32 "080j3bjf04ypbxkb7gsbpa6nhzsf0yig2jajxivnzwx25k6l5rn1"))))
(build-system haskell-build-system)
(inputs (list ghc-postgresql-simple ghc-fsnotify ghc-hledger-lib))
(home-page #f)
(synopsis "Feed hledger data into a database")
(description "Maintain a database containing financial data extracted from
hledger, for use in Grafana, e.g. to create nice graphs.")
(license license:gpl3+)))
;; Upstream binary-types declares "bt" as a package nickname, but
;; bordeaux-threads also uses that, so there's a conflict at load time:
;; https://github.com/Ferada/cl-inotify/issues/3
;; https://github.com/frodef/binary-types/issues/1
;; Instead, use a fixed version of binary-types.
(define sbcl-binary-types/fix
(let ((commit "a17caf8890f11fdc56f6ea3a21260bf0fb9c589c"))
(package
(inherit sbcl-binary-types)
(version (git-version "1.2" "2" commit))
(home-page "https://github.com/Ferada/binary-types")
(source
(origin
(method git-fetch)
(uri (git-reference (url home-page) (commit commit)))
(file-name (git-file-name "binary-types" version))
(sha256
(base32 "1bh65p9vg2kgh4m8q1a4jiyncnp5prdzh0d0l4pzh3jvfhgbm0gh")))))))
(define sbcl-cl-inotify/fix
(package
(inherit sbcl-cl-inotify)
(inputs (modify-inputs (package-inputs sbcl-cl-inotify)
(replace "sbcl-binary-types" sbcl-binary-types/fix)))))
(define-public ledgerplot
(package
(name "ledgerplot")
(version "1.1.2")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://git.twilken.net/ledgerplot")
(commit version)))
(sha256 (base32 "0j6rs2y0g74h0pd9p6yk03j482r7vzqzr774ldcz8bm9248cifi2"))))
;; Ledgerplot only works with SBCL.
(build-system asdf-build-system/sbcl)
(arguments `(#:phases
,#~(modify-phases %standard-phases
(add-after 'unpack 'patch-executable-names
(lambda* (#:key inputs #:allow-other-keys)
(substitute* (find-files "src" "\\.lisp$")
(("\"hledger\"")
(string-append "\"" (search-input-file inputs "bin/hledger") "\"")))))
(add-after 'create-asdf-configuration 'build-program
(lambda* (#:key outputs #:allow-other-keys)
(build-program
(string-append (assoc-ref outputs "out") "/bin/ledgerplot")
outputs
#:entry-program '((ledgerplot:main) 0)))))))
(inputs (list hledger
sbcl-bordeaux-threads
sbcl-local-time
sbcl-cl-ppcre
sbcl-trivia
sbcl-parse-float
sbcl-unix-opts
sbcl-cl-inotify/fix
sbcl-cl-json
sbcl-cl-csv
sbcl-drakma
sbcl-eazy-gnuplot
sbcl-md5
sbcl-postmodern))
(native-inputs (list postgresql-15 ; tests bring up a temporary database
sbcl-fiveam))
(home-page "https://cgit.twilken.net/ledgerplot/about/")
(synopsis "Visualise data from hledger")
(description "Ledgerplot reads financial data from the hledger plain text
accounting system and processes it into various useful plots.")
(license license:gpl3+)))
|
