From d19f496c67e28dce1bb24b762a7716abeeaf0688 Mon Sep 17 00:00:00 2001 From: aurtzy Date: Thu, 6 Mar 2025 03:44:50 -0500 Subject: [PATCH] gnu: gnome-shell-extension-gsconnect: Fix search path patching. * gnu/packages/gnome-xyz.scm (gnome-shell-extension-gsconnect): [arguments]<#:phases>: Fix 'fix-paths phase substitutions no longer applying. Change-Id: I99aa0204c1dfad836aed62261d2ffc0c75366510 Signed-off-by: Maxim Cournoyer --- gnu/packages/gnome-xyz.scm | 21 ++++++++++++--------- 1 file changed, 12 insertions(+), 9 deletions(-) diff --git a/gnu/packages/gnome-xyz.scm b/gnu/packages/gnome-xyz.scm index 92d8b7cb03d..1a3a275db55 100644 --- a/gnu/packages/gnome-xyz.scm +++ b/gnu/packages/gnome-xyz.scm @@ -20,6 +20,7 @@ ;;; Copyright © 2022 Sughosha ;;; Copyright © 2022 Denis 'GNUtoo' Carikli ;;; Copyright © 2023 Eidvilas Markevičius +;;; Copyright © 2025 aurtzy ;;; ;;; This file is part of GNU Guix. ;;; @@ -766,15 +767,17 @@ faster window switching.") (gi-typelib-path (getenv "GI_TYPELIB_PATH"))) (substitute* "data/org.gnome.Shell.Extensions.GSConnect.desktop.in" (("gapplication") gapplication)) - (for-each - (lambda (file) - (substitute* file - (("'use strict';") - (string-append "'use strict';\n\n" - "'" gi-typelib-path "'.split(':').forEach(" - "path => imports.gi.GIRepository.Repository." - "prepend_search_path(path));")))) - '("src/extension.js" "src/prefs.js"))))) + (for-each (lambda (file) + (with-atomic-file-replacement + file + (lambda (input output) + (format output "~a" + (string-append + "'" gi-typelib-path "'.split(':').forEach(" + "path => imports.gi.GIRepository.Repository." + "prepend_search_path(path));\n")) + (dump-port input output)))) + '("src/extension.js" "src/prefs.js"))))) (add-after 'install 'wrap-daemons (lambda _ (let* ((out #$output)