nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

gnu: gnucash: Fix indentation. 

* gnu/packages/gnucash.scm (gnucash): Fix indentation.
This commit is contained in:
Maxim Cournoyer 2019-01-03 17:18:23 -05:00
parent 672489622b
commit 20626f62c4
No known key found for this signature in database
GPG Key ID: 1260E46482E63562
1 changed files with 47 additions and 49 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

96
gnu/packages/gnucash.scm
View File

@ -54,15 +54,15 @@
(version "3.3") (version "3.3")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (string-append "mirror://sourceforge/gnucash/gnucash%20%28stable%29/" (uri (string-append "mirror://sourceforge/gnucash/gnucash%20%28stable%29/"
version "/gnucash-" version ".tar.bz2")) version "/gnucash-" version ".tar.bz2"))
(sha256 (sha256
(base32 (base32
"0grr5qi5rn1xvr7qx5d7mcxa2mcgycy2b325ry73bb485a6yv5l3")) "0grr5qi5rn1xvr7qx5d7mcxa2mcgycy2b325ry73bb485a6yv5l3"))
(patches (search-patches "gnucash-price-quotes-perl.patch" (patches (search-patches "gnucash-price-quotes-perl.patch"
"gnucash-disable-failing-tests.patch" "gnucash-disable-failing-tests.patch"
"gnucash-fix-test-transaction-failure.patch")))) "gnucash-fix-test-transaction-failure.patch"))))
(build-system cmake-build-system) (build-system cmake-build-system)
(inputs (inputs
`(("guile" ,guile-2.2) `(("guile" ,guile-2.2)
@ -79,7 +79,7 @@
("perl-finance-quote" ,perl-finance-quote) ("perl-finance-quote" ,perl-finance-quote)
("tzdata" ,tzdata-for-tests))) ("tzdata" ,tzdata-for-tests)))
(native-inputs (native-inputs
`(("glib" ,glib "bin") ; glib-compile-schemas, etc. `(("glib" ,glib "bin") ; glib-compile-schemas, etc.
("intltool" ,intltool) ("intltool" ,intltool)
("googlemock" ,(package-source googletest)) ("googlemock" ,(package-source googletest))
("googletest" ,googletest) ("googletest" ,googletest)
@ -89,8 +89,8 @@
(arguments (arguments
`(#:test-target "check" `(#:test-target "check"
#:configure-flags #:configure-flags
(list "-DWITH_OFX=OFF" ; libofx is not available yet (list "-DWITH_OFX=OFF" ; libofx is not available yet
"-DWITH_SQL=OFF") ; without dbi.h "-DWITH_SQL=OFF") ; without dbi.h
#:make-flags '("GUILE_AUTO_COMPILE=0") #:make-flags '("GUILE_AUTO_COMPILE=0")
#:modules ((guix build cmake-build-system) #:modules ((guix build cmake-build-system)
((guix build glib-or-gtk-build-system) #:prefix glib-or-gtk:) ((guix build glib-or-gtk-build-system) #:prefix glib-or-gtk:)
@ -120,43 +120,41 @@
(string-append "set(SHELL " (which "bash") ")"))) (string-append "set(SHELL " (which "bash") ")")))
#t))) #t)))
;; There are about 100 megabytes of documentation. ;; There are about 100 megabytes of documentation.
(add-after (add-after 'install 'install-docs
'install 'install-docs (lambda* (#:key inputs outputs #:allow-other-keys)
(lambda* (#:key inputs outputs #:allow-other-keys) (let ((docs (assoc-ref inputs "gnucash-docs"))
(let ((docs (assoc-ref inputs "gnucash-docs")) (doc-output (assoc-ref outputs "doc")))
(doc-output (assoc-ref outputs "doc"))) (mkdir-p (string-append doc-output "/share"))
(mkdir-p (string-append doc-output "/share")) (symlink (string-append docs "/share/gnome")
(symlink (string-append docs "/share/gnome") (string-append doc-output "/share/gnome"))
(string-append doc-output "/share/gnome")) #t)))
#t))) (add-after 'install-docs 'wrap-programs
(add-after (lambda* (#:key inputs outputs #:allow-other-keys)
'install-docs 'wrap-programs (for-each (lambda (prog)
(lambda* (#:key inputs outputs #:allow-other-keys) (wrap-program (string-append (assoc-ref outputs "out")
(for-each (lambda (prog) "/bin/" prog)
(wrap-program (string-append (assoc-ref outputs "out") `("PERL5LIB" ":" prefix
"/bin/" prog) ,(map (lambda (o)
`("PERL5LIB" ":" prefix (string-append o "/lib/perl5/site_perl/"
,(map (lambda (o) ,(package-version perl)))
(string-append o "/lib/perl5/site_perl/" (if (string=? prog "gnc-fq-helper")
,(package-version perl))) (list
(if (string=? prog "gnc-fq-helper") ,@(transitive-input-references
(list 'inputs
,@(transitive-input-references (map (lambda (l)
'inputs (assoc l (inputs)))
(map (lambda (l) '("perl-finance-quote"
(assoc l (inputs))) "perl-date-manip"))))
'("perl-finance-quote" (list
"perl-date-manip")))) ,@(transitive-input-references
(list 'inputs
,@(transitive-input-references (map (lambda (l)
'inputs (assoc l (inputs)))
(map (lambda (l) '("perl-finance-quote")))))))))
(assoc l (inputs))) '("gnucash"
'("perl-finance-quote"))))))))) "gnc-fq-check"
'("gnucash" "gnc-fq-helper"
"gnc-fq-check" "gnc-fq-dump"))))
"gnc-fq-helper"
"gnc-fq-dump"))))
(add-after 'install 'glib-or-gtk-compile-schemas (add-after 'install 'glib-or-gtk-compile-schemas
(assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-compile-schemas)) (assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-compile-schemas))
(add-after 'install 'glib-or-gtk-wrap (add-after 'install 'glib-or-gtk-wrap