From mboxrd@z Thu Jan 1 00:00:00 1970 Received: from eggs.gnu.org ([2001:470:142:3::10]:50201) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1ioYDP-0004Q2-Ne for guix-patches@gnu.org; Mon, 06 Jan 2020 14:39:04 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1ioYDO-0003xg-G4 for guix-patches@gnu.org; Mon, 06 Jan 2020 14:39:03 -0500 Received: from debbugs.gnu.org ([209.51.188.43]:40853) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1ioYDO-0003xc-D3 for guix-patches@gnu.org; Mon, 06 Jan 2020 14:39:02 -0500 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1ioYDO-000605-9a for guix-patches@gnu.org; Mon, 06 Jan 2020 14:39:02 -0500 Subject: [bug#38994] [PATCH core-updates] gnu: glib: Fix g_app_info_get_default_for_type. Resent-Message-ID: Received: from eggs.gnu.org ([2001:470:142:3::10]:49866) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1ioYCS-0003aj-3B for guix-patches@gnu.org; Mon, 06 Jan 2020 14:38:05 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1ioYCQ-00036e-Qx for guix-patches@gnu.org; Mon, 06 Jan 2020 14:38:03 -0500 Received: from dd26836.kasserver.com ([85.13.145.193]:46626) by eggs.gnu.org with esmtps (TLS1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.71) (envelope-from ) id 1ioYCQ-00033H-Kk for guix-patches@gnu.org; Mon, 06 Jan 2020 14:38:02 -0500 From: Danny Milosavljevic Date: Mon, 6 Jan 2020 20:37:51 +0100 Message-Id: <20200106193751.725-1-dannym@scratchpost.org> MIME-Version: 1.0 Content-Transfer-Encoding: quoted-printable List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-patches-bounces+kyle=kyleam.com@gnu.org Sender: "Guix-patches" To: 38994@debbugs.gnu.org Cc: Danny Milosavljevic Fixes . Reported by Reza Alizadeh Majd . * gnu/packages/glib.scm (glib)[arguments]<#:phases>[patch-gio-launch-desk= top]: New phase. [move-executables]: Modify. --- gnu/packages/glib.scm | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) diff --git a/gnu/packages/glib.scm b/gnu/packages/glib.scm index 369bd373ac..9551509a53 100644 --- a/gnu/packages/glib.scm +++ b/gnu/packages/glib.scm @@ -213,6 +213,15 @@ shared NFS home directories.") (string-append "command_line =3D g_strdup_printf (\"" dbus "/bin/dbus-launch"))) #t))) + (add-after 'unpack 'patch-gio-launch-desktop + (lambda* (#:key outputs #:allow-other-keys) + (let ((out (assoc-ref outputs "out"))) + ;; See also + ;; for another future fix. + (substitute* "gio/gdesktopappinfo.c" + (("gio-launch-desktop") + (string-append out "/bin/gio-launch-desktop"))) + #t))) (add-before 'build 'pre-build (lambda* (#:key inputs outputs #:allow-other-keys) ;; For tests/gdatetime.c. @@ -321,6 +330,13 @@ shared NFS home directories.") (mkdir-p bin) (rename-file (string-append out "/bin") (string-append bin "/bin")) + ;; This one is an implementation detail of glib. + ;; It is wrong that that's in "/bin" in the first place, + ;; but that's what upstream does right now. + ;; See . + (mkdir (string-append out "/bin")) + (rename-file (string-append bin "/bin/gio-launch-desktop") + (string-append out "/bin/gio-launch-desktop")= ) ;; Do not refer to "bindir", which points to "${prefix}/bi= n". ;; We don't patch "bindir" to point to "$bin/bin", because= that ;; would create a reference cycle between the "out" and "b= in"