ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-25 05:48:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: network-manager-applet: Patch libnma for modem support.

Browse source 
* gnu/packages/gnome.scm (network-manager-applet): Patch libnma to load
iso-codes and mobile-broadband-provider-info from the store and not require
them in the profile.

Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
Florian Pelz 2019-05-15 23:41:44 +02:00 committed by Ludovic Courtès
parent ce10e6053b
commit 3e9c80b27a
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 21 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
gnu/packages/gnome.scm
View file

@ -35,6 +35,7 @@
;;; Copyright © 2018, 2019 Timothy Sample <samplet@ngyro.com>
;;; Copyright © 2019 Danny Milosavljevic <dannym@scratchpost.org>
;;; Copyright © 2019 Marius Bakke <mbakke@fastmail.com>
;;; Copyright © 2019 Florian Pelz <pelzflorian@pelzflorian.de>
;;;
;;; This file is part of GNU Guix.
;;;
@ -5502,7 +5503,24 @@ (define-public network-manager-applet
(base32
"1js0i2kwfklahsn77qgxzdscy33drrlym3mrj1qhlw0zf8ri56ya"))))
(build-system glib-or-gtk-build-system)
(arguments '(#:configure-flags '("--disable-migration")))
(arguments '(#:configure-flags '("--disable-migration")
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'patch-source
(lambda* (#:key inputs #:allow-other-keys)
(let ((mbpi (assoc-ref inputs
"mobile-broadband-provider-info"))
(iso-codes (assoc-ref inputs "iso-codes")))
(substitute* "src/libnma/nma-mobile-providers.c"
(("(g_build_filename \\()dirs\\[i\\].*,\
(MOBILE_BROADBAND_PROVIDER_INFO.*)" all start end)
(string-append start "\"" mbpi "/share\", " end)))
(substitute* "src/libnma/nma-mobile-providers.c"
(("(g_build_filename \\()dirs\\[i\\].*,\
(ISO_3166_COUNTRY_CODES.*)" all start end)
(string-append start "\"" iso-codes
"/share\", " end)))
#t))))))
(native-inputs
`(("intltool" ,intltool)
("gobject-introspection" ,gobject-introspection)
@ -5519,7 +5537,8 @@ (define-public network-manager-applet
("libsecret" ,libsecret)
("libselinux" ,libselinux)
("jansson" ,jansson) ; for team support
("modem-manager" ,modem-manager)))
("modem-manager" ,modem-manager)
("mobile-broadband-provider-info" ,mobile-broadband-provider-info)))
(synopsis "Applet for managing network connections")
(home-page "https://www.gnome.org/projects/NetworkManager/")
(description