TakeV/guix
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

gnu: tracker: Use G-Expressions in arguments.

Browse source 
* gnu/packages/gnome.scm (tracker)[arguments]: Change to list of
G-Expressions.  Re-indent.
This commit is contained in:
Liliana Marie Prikler 2023-02-25 07:51:45 +01:00
parent ea75ca1806
commit daa681a38b
No known key found for this signature in database
GPG key ID: 442A84B8C70E2F87
1 changed files with 47 additions and 46 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

93
gnu/packages/gnome.scm
View file

@ -9676,52 +9676,53 @@ (define-public tracker
"0r144kdqxdzs51qn495vablzf1zxkhkk6imrlrzj9wiqwc2gg520"))))
(build-system meson-build-system)
(arguments
`(#:glib-or-gtk? #t
#:test-options (list ,@(if (target-riscv64?)
`("--timeout-multiplier" "5")
'()))
#:configure-flags
;; Otherwise, the RUNPATH will lack the final path component.
(list (string-append "-Dc_link_args=-Wl,-rpath="
(assoc-ref %outputs "out") "/lib:"
(assoc-ref %outputs "out") "/lib/tracker-3.0")
"-Ddocs=false"
"-Dsystemd_user_services=false")
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'patch-paths
(lambda* (#:key inputs #:allow-other-keys)
(substitute* "utils/trackertestutils/__main__.py"
(("/bin/bash")
(search-input-file inputs "bin/bash")))))
(add-before 'configure 'set-shell
(lambda _
(setenv "SHELL" (which "bash"))))
(add-before 'configure 'fix-paths
(lambda* (#:key inputs #:allow-other-keys)
(let* ((manpage "/etc/asciidoc/docbook-xsl/manpage.xsl")
(file (search-input-file inputs manpage)))
(substitute* "docs/manpages/meson.build"
(("/etc/asciidoc[^']+")
file)))))
(replace 'check
(lambda* (#:key tests? test-options #:allow-other-keys)
(when tests?
;; Some tests expect to write to $HOME.
(setenv "HOME" "/tmp")
(apply invoke "dbus-run-session" "--" "meson" "test"
"--print-errorlogs" test-options))))
(add-after 'glib-or-gtk-wrap 'unwrap-libexec
(lambda* (#:key outputs #:allow-other-keys)
(with-directory-excursion (string-append (assoc-ref outputs "out")
"/libexec/tracker3")
(for-each
(lambda (f)
(let ((real (string-append "." (basename f) "-real")))
(when (file-exists? real)
(delete-file f)
(rename-file real f))))
(find-files "."))))))))
(list
#:glib-or-gtk? #t
#:test-options `(list ,@(if (target-riscv64?)
`("--timeout-multiplier" "5")
'()))
#:configure-flags
;; Otherwise, the RUNPATH will lack the final path component.
#~(list (string-append "-Dc_link_args=-Wl,-rpath="
#$output "/lib:"
#$output "/lib/tracker-3.0")
"-Ddocs=false"
"-Dsystemd_user_services=false")
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'patch-paths
(lambda* (#:key inputs #:allow-other-keys)
(substitute* "utils/trackertestutils/__main__.py"
(("/bin/bash")
(search-input-file inputs "bin/bash")))))
(add-before 'configure 'set-shell
(lambda _
(setenv "SHELL" (which "bash"))))
(add-before 'configure 'fix-paths
(lambda* (#:key inputs #:allow-other-keys)
(let* ((manpage "/etc/asciidoc/docbook-xsl/manpage.xsl")
(file (search-input-file inputs manpage)))
(substitute* "docs/manpages/meson.build"
(("/etc/asciidoc[^']+")
file)))))
(replace 'check
(lambda* (#:key tests? test-options #:allow-other-keys)
(when tests?
;; Some tests expect to write to $HOME.
(setenv "HOME" "/tmp")
(apply invoke "dbus-run-session" "--" "meson" "test"
"--print-errorlogs" test-options))))
(add-after 'glib-or-gtk-wrap 'unwrap-libexec
(lambda* (#:key outputs #:allow-other-keys)
(with-directory-excursion (string-append (assoc-ref outputs "out")
"/libexec/tracker3")
(for-each
(lambda (f)
(let ((real (string-append "." (basename f) "-real")))
(when (file-exists? real)
(delete-file f)
(rename-file real f))))
(find-files "."))))))))
(native-inputs
(list gettext-minimal
`(,glib "bin")