unofficial mirror of guix-patches@gnu.org 
 help / color / mirror / code / Atom feed
* [bug#39102] [PATCH 1/2] gnu: xdg-utils: Don't use propagated inputs.
@ 2020-01-12 15:43 Jakub Kądziołka
  2020-01-12 15:47 ` [bug#39102] [PATCH 2/2 staging] gnu: qtbase: Open links properly without xdg-utils in profile Jakub Kądziołka
                   ` (2 more replies)
  0 siblings, 3 replies; 9+ messages in thread
From: Jakub Kądziołka @ 2020-01-12 15:43 UTC (permalink / raw)
  To: 39102

* gnu/packages/freedesktop.scm (xdg-utils)
  [propagated-inputs, inputs]: Add awk, coreutils, grep, inetutils and
  sed; make the dependencies not propagated.
  [arguments](patch-hardcoded-paths): Move to after 'install to make
  wrap-program function correctly. Wrap the installed programs.
---
 gnu/packages/freedesktop.scm | 43 +++++++++++++++++++++++++++---------
 1 file changed, 33 insertions(+), 10 deletions(-)

diff --git a/gnu/packages/freedesktop.scm b/gnu/packages/freedesktop.scm
index 7066685dee..06006ed53d 100644
--- a/gnu/packages/freedesktop.scm
+++ b/gnu/packages/freedesktop.scm
@@ -16,6 +16,7 @@
 ;;; Copyright © 2018 Stefan Stefanović <stefanx2ovic@gmail.com>
 ;;; Copyright © 2019 Reza Alizadeh Majd <r.majd@pantherx.org>
 ;;; Copyright © 2019 Guillaume Le Vaillant <glv@posteo.net>
+;;; Copyright © 2020 Jakub Kądziołka <kuba@kadziolka.net>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -47,6 +48,7 @@
   #:use-module (gnu packages acl)
   #:use-module (gnu packages admin)
   #:use-module (gnu packages autotools)
+  #:use-module (gnu packages base)
   #:use-module (gnu packages bash)
   #:use-module (gnu packages boost)
   #:use-module (gnu packages check)
@@ -55,6 +57,7 @@
   #:use-module (gnu packages disk)
   #:use-module (gnu packages docbook)
   #:use-module (gnu packages documentation)
+  #:use-module (gnu packages gawk)
   #:use-module (gnu packages gettext)
   #:use-module (gnu packages ghostscript)
   #:use-module (gnu packages gl)
@@ -107,20 +110,40 @@
        ("libxslt" ,libxslt)
        ("w3m" ,w3m)
        ("xmlto" ,xmlto)))
-    (propagated-inputs
-     `(("perl-file-mimeinfo" ,perl-file-mimeinfo) ; for mimeopen fallback
-       ("xprop" ,xprop) ; for Xfce detecting
-       ("xset" ,xset))) ; for xdg-screensaver
+    (inputs
+     `(("PATH:awk" ,gawk)
+       ("PATH:coreutils" ,coreutils)
+       ("PATH:grep" ,grep)
+       ("PATH:inetutils" ,inetutils) ; xdg-screensaver uses `hostname'
+       ("PATH:perl-file-mimeinfo" ,perl-file-mimeinfo) ; for mimeopen fallback
+       ("PATH:sed" ,sed)
+       ("PATH:xprop" ,xprop) ; for Xfce detecting
+       ("PATH:xset" ,xset))) ; for xdg-screensaver
     (arguments
      `(#:tests? #f   ; no check target
        #:phases
        (modify-phases %standard-phases
-         (add-after 'unpack 'patch-hardcoded-paths
-           (lambda _
-             (substitute* "scripts/xdg-mime.in"
-               (("/usr/bin/file") (which "file")))
-             (substitute* "scripts/xdg-open.in"
-               (("/usr/bin/printf") (which "printf")))
+         (add-after 'install 'patch-hardcoded-paths
+           (lambda* (#:key inputs outputs #:allow-other-keys)
+             (with-directory-excursion (string-append (assoc-ref outputs "out")
+                                                      "/bin")
+               (substitute* "xdg-mime"
+                 (("/usr/bin/file") (which "file")))
+               (substitute* "xdg-open"
+                 (("/usr/bin/printf") (which "printf")))
+               (let ((path-ext
+                       (map (lambda (package)
+                              (string-append package "/bin"))
+                            (cons (assoc-ref outputs "out")
+                              (map cdr
+                                (filter (lambda (package)
+                                          (string-prefix? "PATH:" (car package)))
+                                        inputs))))))
+                 (for-each
+                   (lambda (script)
+                     (wrap-program script
+                        `("PATH" ":" prefix ,path-ext)))
+                   (find-files "."))))
              #t))
          (add-before 'build 'locate-catalog-files
            (lambda* (#:key inputs #:allow-other-keys)
-- 
2.24.1

^ permalink raw reply related	[flat|nested] 9+ messages in thread

end of thread, other threads:[~2020-01-13 22:32 UTC | newest]

Thread overview: 9+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2020-01-12 15:43 [bug#39102] [PATCH 1/2] gnu: xdg-utils: Don't use propagated inputs Jakub Kądziołka
2020-01-12 15:47 ` [bug#39102] [PATCH 2/2 staging] gnu: qtbase: Open links properly without xdg-utils in profile Jakub Kądziołka
2020-01-12 19:44   ` Marius Bakke
2020-01-13  7:53     ` Efraim Flashner
2020-01-12 17:03 ` [bug#39102] [PATCH v2 1/2] gnu: xdg-utils: Don't use propagated inputs Jakub Kądziołka
2020-01-12 19:29   ` Marius Bakke
2020-01-13 11:39 ` [bug#39102] [PATCH v2 2/2 staging] gnu: qtbase: Open links properly without xdg-utils in profile Jakub Kądziołka
2020-01-13 21:43   ` bug#39102: " Marius Bakke
     [not found]     ` <20200113215130.3afsnbsq2efiovhy@zdrowyportier.kadziolka.net>
2020-01-13 22:31       ` [bug#39102] " Marius Bakke

Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/guix.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).