diff options
| author | Tomas Volf <~@wolfsden.cz> | 2025-01-03 15:24:29 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2025-01-19 23:09:56 +0100 |
| commit | 2bd7d67082d9da4f32a9f06697bf71a81128306e (patch) | |
| tree | 2dc9f4f990aae88df9eaa55bf58cedd46e2cdb56 | |
| parent | a916555366a190999c4cdacda16f3337d1553cc4 (diff) | |
| download | guix-2bd7d67082d9da4f32a9f06697bf71a81128306e.tar.gz guix-2bd7d67082d9da4f32a9f06697bf71a81128306e.zip | |
gnu: gnucash: Do not wrap finance-quote-wrapper.
The file needs no special wrapping. Even before, it was wrapped just by
accident (via the glib-or-gtk-wrap phase). Wrapping changes it from perl
script to shell script and gnucash cannot deal with that. So stop wrapping
it.
* gnu/packages/gnucash.scm (gnucash)[arguments]<#:phases>: Add 'unwrap-some.
Wrap gnucash-cli in 'wrap-programs.
Change-Id: I60e7ac5cf40fb00f9620b9ee9d725770009721d2
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
| -rw-r--r-- | gnu/packages/gnucash.scm | 19 |
1 files changed, 16 insertions, 3 deletions
diff --git a/gnu/packages/gnucash.scm b/gnu/packages/gnucash.scm index 12a168d6fd..3f4967b2ef 100644 --- a/gnu/packages/gnucash.scm +++ b/gnu/packages/gnucash.scm @@ -151,8 +151,10 @@ 'inputs (map (lambda (l) (assoc l (package-inputs this-package))) - '("perl-finance-quote")))))))) - '("gnucash")))) + '("perl-json-parse" + "perl-finance-quote")))))))) + '("gnucash" + "gnucash-cli")))) (add-after 'install 'glib-or-gtk-compile-schemas (assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-compile-schemas)) (add-after 'install 'glib-or-gtk-wrap @@ -161,7 +163,18 @@ (lambda _ ;; We are not updating Finance::Quote from CPAN. There is no ;; reason to install this binary. - (delete-file (string-append #$output "/bin/gnc-fq-update"))))))) + (delete-file (string-append #$output "/bin/gnc-fq-update")))) + (add-after 'glib-or-gtk-wrap 'unwrap-some + (lambda _ + (for-each + (lambda (prog) + (delete-file (string-append #$output "/bin/" prog)) + (rename-file (string-append #$output "/bin/." prog "-real") + (string-append #$output "/bin/" prog))) + ;; Sadly glib-or-gtk-wrap does not allow excluding individual + ;; files. Being wrapped breaks the finance-quote-wrapper (it + ;; is expected to be a perl script, not a shell one). + '("finance-quote-wrapper"))))))) (native-inputs (list gmp `(,glib "bin") ;glib-compile-schemas, etc. |