me/guix
Archived
1
0
Fork 0
Code 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

93
gnu/packages/gnome.scm
View file

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