gnu: sugar: Patch additional references to tools.

* gnu/packages/sugar.scm (sugar)[inputs]: Add ethtool, openssh, and
xdg-user-dirs.
[arguments]: Patch references to ssh-keygen, xdg-user-dir, ethtool, and
locale.
This commit is contained in:
Ricardo Wurmus 2023-03-05 00:11:51 +01:00
parent d604505572
commit 21f9edb051
No known key found for this signature in database
GPG key ID: 197A5888235FACAC

View file

@ -28,12 +28,14 @@ (define-module (gnu packages sugar)
#:use-module (gnu packages gstreamer)
#:use-module (gnu packages gtk)
#:use-module (gnu packages linux)
#:use-module (gnu packages networking)
#:use-module (gnu packages pkg-config)
#:use-module (gnu packages python)
#:use-module (gnu packages python-web)
#:use-module (gnu packages python-xyz)
#:use-module (gnu packages search)
#:use-module (gnu packages sphinx)
#:use-module (gnu packages ssh)
#:use-module (gnu packages time)
#:use-module (gnu packages webkit)
#:use-module (gnu packages xorg)
@ -87,6 +89,12 @@ (define-public sugar
(string-append "'" (search-input-file inputs "/bin/metacity") "'"))
(("'metacity-message")
(string-append "'" (search-input-file inputs "/bin/metacity-message"))))
(substitute* "src/jarabe/intro/window.py"
(("ssh-keygen")
(search-input-file inputs "/bin/ssh-keygen")))
(substitute* "src/jarabe/journal/model.py"
(("xdg-user-dir")
(search-input-file inputs "/bin/xdg-user-dir")))
(substitute* "extensions/cpsection/datetime/model.py"
(("/usr/share/zoneinfo/zone.tab")
(search-input-file inputs "/share/zoneinfo/zone.tab")))
@ -103,6 +111,14 @@ (define-public sugar
"src/jarabe/model/brightness.py")
(("spawn_command_line_sync\\(cmd\\)")
"spawn_command_line_sync(cmd, 0)"))
(substitute* "extensions/cpsection/aboutcomputer/model.py"
(("ethtool")
(search-input-file inputs "/sbin/ethtool")))
(substitute* "extensions/cpsection/language/model.py"
(("'locale'")
(string-append "'"
(search-input-file inputs "/bin/locale")
"'")))
;; XXX: The brightness component crashes, so we disable it here.
(substitute* "src/jarabe/main.py"
(("brightness.get_instance\\(\\)") ""))
@ -127,12 +143,15 @@ (define-public sugar
(find-files (string-append #$output "/bin") "^sugar.*")))))))
(inputs
(list bash-minimal
ethtool
gtk+
metacity
mobile-broadband-provider-info
openssh ;for ssh-keygen
python
sugar-toolkit-gtk3
tzdata))
tzdata
xdg-user-dirs))
;; Some packages are propagated so that they can be used with gobject
;; introspection at runtime; others are propagated for their dbus
;; services.