ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-21 02:03:29 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: nautilus: Enable loading of third-party extensions.

Browse source 
* gnu/packages/gnome.scm (nautilus)[#:phases]: Add phase to enable loading
through NAUTILUS_EXTENSIONS_PATH.
[native-search-paths]: Add NAUTILUS_EXTENSIONS_PATH.
This commit is contained in:
Liliana Marie Prikler 2021-12-11 08:38:23 +01:00
parent 952ebf02ce
commit ca0e932505
No known key found for this signature in database
GPG key ID: 442A84B8C70E2F87
1 changed files with 25 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25
gnu/packages/gnome.scm
View file

@ -9076,6 +9076,27 @@ (define-public nautilus
#:meson ,meson-0.59
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'make-extensible
(lambda _
(substitute* "src/nautilus-module.c"
(("static gboolean initialized = FALSE;" all)
(string-append all "
const char *extension_path;
char **extension_dirs, **d;
")
)
(("load_module_dir \\(NAUTILUS_EXTENSIONDIR\\);" all)
(string-append all
"
extension_path = g_getenv (\"NAUTILUS_EXTENSION_PATH\");
if (extension_path)
{
extension_dirs = g_strsplit (extension_path, \":\", -1);
for (d = extension_dirs; d != NULL && *d != NULL; d++)
load_module_dir(*d);
g_strfreev(extension_dirs);
}
")))))
(add-after 'unpack 'skip-gtk-update-icon-cache
;; Don't create 'icon-theme.cache'.
(lambda _
@ -9114,6 +9135,10 @@ (define-public nautilus
("gtk+" ,gtk+)
("libexif" ,libexif)
("libxml2" ,libxml2)))
(native-search-paths
(list (search-path-specification
(variable "NAUTILUS_EXTENSION_PATH")
(files '("lib/nautilus/site-extensions")))))
(synopsis "File manager for GNOME")
(home-page "https://wiki.gnome.org/Apps/Nautilus")
(description