@@ -10729,33 +10729,42 @@ (define-public gnome-shell-extensions
#:configure-flags #~'("-Dextension_set=all")
#:phases
#~(modify-phases %standard-phases
- (add-after 'unpack 'wrap-applications-menu
+ (add-after 'unpack 'wrap-extensions
(lambda _
(use-modules (ice-9 textual-ports))
- (call-with-output-file "extensions/apps-menu/extension.js-wrapped"
- (lambda (out)
- (format out "'~a'.split(':').forEach("
- (getenv "GI_TYPELIB_PATH"))
- (display
- (string-append "path => imports.gi.GIRepository.Repository"
- ".prepend_search_path(path));\n")
- out)
- (display
- (call-with-input-file "extensions/apps-menu/extension.js"
- get-string-all)
- out)))
- (rename-file "extensions/apps-menu/extension.js-wrapped"
- "extensions/apps-menu/extension.js"))))))
+ (let list-extensions ((dir (opendir "extensions")))
+ (let ((extension (readdir dir)))
+ (unless (eof-object? extension)
+ (for-each
+ (lambda (file-to-wrap)
+ (when (file-exists? file-to-wrap)
+ (call-with-output-file
+ (string-append file-to-wrap "-wrapped")
+ (lambda (out)
+ (format out "'~a'.split(':').forEach("
+ (getenv "GI_TYPELIB_PATH"))
+ (display
+ (string-append "path => imports.gi.GIRepository.Repository"
+ ".prepend_search_path(path));\n")
+ out)
+ (display
+ (call-with-input-file file-to-wrap
+ get-string-all)
+ out)))
+ (rename-file (string-append file-to-wrap "-wrapped")
+ file-to-wrap)))
+ (list (string-append "extensions/" extension "/extension.js")
+ (string-append "extensions/" extension "/prefs.js")))
+ (list-extensions dir)))))))))
(native-inputs
(list `(,glib "bin")
gettext-minimal
pkg-config))
(inputs
(list gobject-introspection ;to set GI_TYPELIB_PATH
+ glib
gnome-menus ;for Applications Menu
))
- (propagated-inputs
- (list glib))
(synopsis "Extensions for GNOME Shell")
(description "GNOME Shell extensions modify and extend GNOME Shell
functionality and behavior.")