amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: xdg-utils: Update to 1.2.1.

Browse source 
* gnu/packages/freedesktop.scm (xdg-utils): Update to 1.2.1.
[source]: Switch to git-fetch.
[native-inputs]: Add docbook-xml-4.3.

Change-Id: I13f19d3fa6a1db16a461c710ad650fc02ba7b356
This commit is contained in:
Zheng Junjie 2025-09-16 23:50:48 +08:00
parent a0044e3229
commit 6624f85b53
No known key found for this signature in database
GPG key ID: 3B5AA993E1A2DFF0
1 changed files with 31 additions and 28 deletions
Download patch file Download diff file Expand all files Collapse all files

59
gnu/packages/freedesktop.scm
View file

@ -612,19 +612,22 @@ Directory Specification.")
(define-public xdg-utils (define-public xdg-utils
(package (package
(name "xdg-utils") (name "xdg-utils")
(version "1.1.3") (version "1.2.1")
(source (source
(origin (origin
(method url-fetch) (method git-fetch)
(uri (string-append (uri (git-reference
"https://portland.freedesktop.org/download/xdg-utils-" (url "https://gitlab.freedesktop.org/xdg/xdg-utils.git/")
version ".tar.gz")) (commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256 (sha256
(base32 (base32
"1nai806smz3zcb2l5iny4x7li0fak0rzmjg6vlyhdqm8z25b166p")))) "0hnb523hiz8wy6gffapys6vw7h1xq50li0s31mvyv4v5nmp2bhg7"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(native-inputs (native-inputs
(list docbook-xsl docbook-xml-4.1.2 (list docbook-xsl
docbook-xml-4.1.2
docbook-xml-4.3
libxslt xmlto w3m-for-tests)) libxslt xmlto w3m-for-tests))
(inputs (inputs
(list bash-minimal ;for 'wrap-program' (list bash-minimal ;for 'wrap-program'
@ -644,27 +647,27 @@ Directory Specification.")
,@%default-gnu-modules) ,@%default-gnu-modules)
#:phases #:phases
#~(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-after 'unpack 'patch-hardcoded-paths (add-after 'unpack 'patch-hardcoded-paths
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
(substitute* "scripts/xdg-mime.in" (substitute* "scripts/xdg-mime.in"
(("/usr/bin/file") (("/usr/bin/file")
(search-input-file inputs "bin/file"))) (search-input-file inputs "bin/file")))
(substitute* "scripts/xdg-open.in" (substitute* "scripts/xdg-open.in"
(("/usr/bin/printf") (("/usr/bin/printf")
(search-input-file inputs "bin/printf"))))) (search-input-file inputs "bin/printf")))))
(add-after 'install 'wrap-executables (add-after 'install 'wrap-executables
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda* (#:key inputs outputs #:allow-other-keys)
(let* ((dependencies '("awk" "grep" "hostname" "ls" "mimeopen" (let* ((dependencies '("awk" "grep" "hostname" "ls" "mimeopen"
"sed" "xprop" "xset")) "sed" "xprop" "xset"))
(pkgs (map (lambda (cmd) (pkgs (map (lambda (cmd)
(search-input-file inputs (search-input-file inputs
(string-append "bin/" cmd))) (string-append "bin/" cmd)))
dependencies)) dependencies))
(bindirs (map dirname pkgs))) (bindirs (map dirname pkgs)))
(with-directory-excursion (string-append #$output "/bin") (with-directory-excursion (string-append #$output "/bin")
(for-each (cute wrap-program <> (for-each (cute wrap-program <>
`("PATH" ":" prefix ,bindirs)) `("PATH" ":" prefix ,bindirs))
(find-files "."))))))))) (find-files ".")))))))))
(home-page "https://www.freedesktop.org/wiki/Software/xdg-utils/") (home-page "https://www.freedesktop.org/wiki/Software/xdg-utils/")
(synopsis "Freedesktop.org scripts for desktop integration") (synopsis "Freedesktop.org scripts for desktop integration")
(description "The xdg-utils package is a set of simple scripts that (description "The xdg-utils package is a set of simple scripts that