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 <maxim.cournoyer@gmail.com>
This commit is contained in:
aurtzy 2025-03-06 03:44:50 -05:00 committed by Maxim Cournoyer
parent ba0cc26710
commit d19f496c67
No known key found for this signature in database
GPG key ID: 1260E46482E63562

View file

@ -20,6 +20,7 @@
;;; Copyright © 2022 Sughosha <sughosha@proton.me> ;;; Copyright © 2022 Sughosha <sughosha@proton.me>
;;; Copyright © 2022 Denis 'GNUtoo' Carikli <GNUtoo@cyberdimension.org> ;;; Copyright © 2022 Denis 'GNUtoo' Carikli <GNUtoo@cyberdimension.org>
;;; Copyright © 2023 Eidvilas Markevičius <markeviciuseidvilas@gmail.com> ;;; Copyright © 2023 Eidvilas Markevičius <markeviciuseidvilas@gmail.com>
;;; Copyright © 2025 aurtzy <aurtzy@gmail.com>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -766,15 +767,17 @@ faster window switching.")
(gi-typelib-path (getenv "GI_TYPELIB_PATH"))) (gi-typelib-path (getenv "GI_TYPELIB_PATH")))
(substitute* "data/org.gnome.Shell.Extensions.GSConnect.desktop.in" (substitute* "data/org.gnome.Shell.Extensions.GSConnect.desktop.in"
(("gapplication") gapplication)) (("gapplication") gapplication))
(for-each (for-each (lambda (file)
(lambda (file) (with-atomic-file-replacement
(substitute* file file
(("'use strict';") (lambda (input output)
(string-append "'use strict';\n\n" (format output "~a"
"'" gi-typelib-path "'.split(':').forEach(" (string-append
"path => imports.gi.GIRepository.Repository." "'" gi-typelib-path "'.split(':').forEach("
"prepend_search_path(path));")))) "path => imports.gi.GIRepository.Repository."
'("src/extension.js" "src/prefs.js"))))) "prepend_search_path(path));\n"))
(dump-port input output))))
'("src/extension.js" "src/prefs.js")))))
(add-after 'install 'wrap-daemons (add-after 'install 'wrap-daemons
(lambda _ (lambda _
(let* ((out #$output) (let* ((out #$output)