[bug#52423] [PATCH 0/2] Add eiciel.

[bug#52423] [PATCH 0/2] Add eiciel.

[Liliana Marie Prikler]

This series makes it so that we can load extensions through
NAUTILUS_EXTENSION_PATH (a workaround for packages trying to install them
directly in the nautils extension directory) and adds an extension for
extended ACL and file attribute editing.

So long,
Liliana

Liliana Marie Prikler (2):
  gnu: nautilus: Enable loading of third-party extensions.
  gnu: Add eiciel.

 gnu/packages/gnome-xyz.scm | 39 ++++++++++++++++++++++++++++++++++++++
 gnu/packages/gnome.scm     | 25 ++++++++++++++++++++++++
 2 files changed, 64 insertions(+)

-- 
2.34.0

[bug#52423] [PATCH 1/2] gnu: nautilus: Enable loading of third-party extensions.

[Liliana Marie Prikler]

* gnu/packages/gnome.scm (nautilus)[#:phases]: Add phase to enable loading
through NAUTILUS_EXTENSIONS_PATH.
[native-search-paths]: Add NAUTILUS_EXTENSIONS_PATH.
---
 gnu/packages/gnome.scm | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)

diff --git a/gnu/packages/gnome.scm b/gnu/packages/gnome.scm
index 87d9fec30c..a171ef83d2 100644
--- a/gnu/packages/gnome.scm
+++ b/gnu/packages/gnome.scm
@@ -8871,6 +8871,27 @@ (define-public nautilus
      '(#:glib-or-gtk? #t
        #: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 _
@@ -8906,6 +8927,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
-- 
2.34.0

[bug#52423] [PATCH 2/2] gnu: Add eiciel.

[Liliana Marie Prikler]

* gnu/packages/gnome-xyz.scm (eiciel): New variable.
---
 gnu/packages/gnome-xyz.scm | 39 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 39 insertions(+)

diff --git a/gnu/packages/gnome-xyz.scm b/gnu/packages/gnome-xyz.scm
index 9d8ec1bdef..b7c90acde8 100644
--- a/gnu/packages/gnome-xyz.scm
+++ b/gnu/packages/gnome-xyz.scm
@@ -37,9 +37,12 @@ (define-module (gnu packages gnome-xyz)
   #:use-module (guix packages)
   #:use-module (guix utils)
   #:use-module ((guix licenses) #:prefix license:)
+  #:use-module (gnu packages acl)
+  #:use-module (gnu packages attr)
   #:use-module (gnu packages autotools)
   #:use-module (gnu packages base)
   #:use-module (gnu packages bash)
+  #:use-module (gnu packages build-tools)
   #:use-module (gnu packages gettext)
   #:use-module (gnu packages glib)
   #:use-module (gnu packages gnome)
@@ -877,6 +880,43 @@ (define-public orchis-theme
                    license:lgpl2.1         ; Some style sheets.
                    license:cc-by-sa4.0)))) ; Some icons
 
+(define-public eiciel
+  (package
+    (name "eiciel")
+    (version "0.9.13.1")
+    (source (origin
+              (method git-fetch)
+              (uri (git-reference
+                    (url "https://github.com/rofirrim/eiciel")
+                    (commit version)))
+              (file-name (git-file-name name version))
+              (sha256
+               (base32
+                "0rhhw0h1hyg5kvxhjxkdz03vylgax6912mg8j4lvcz6wlsa4wkvj"))))
+    (build-system meson-build-system)
+    (arguments
+     `(#:glib-or-gtk? #t
+       #:meson ,meson-0.55
+       #:tests? #f ; no tests
+       #:configure-flags
+       (list (string-append "-Dnautilus-extension-dir="
+                            (assoc-ref %outputs "out")
+                            "/lib/nautilus/site-extensions"))))
+    (native-inputs
+     `(("gettext" ,gettext-minimal)
+       ("pkg-config" ,pkg-config)))
+    (inputs
+     `(("acl" ,acl)
+       ("attr" ,attr)
+       ("glibmm" ,glibmm)
+       ("gtkmm" ,gtkmm)
+       ("nautilus" ,nautilus)))
+    (home-page "https://rofi.roger-ferrer.org/eiciel")
+    (synopsis "Manage extended file attributes")
+    (description "Eiciel is a plugin for nautilus to graphically edit ACL and
+extended file attributes.  It also functions as a standalone command.")
+    (license license:gpl2+)))
+
 (define-public markets
   (package
     (name "markets")
-- 
2.34.0

bug#52423: [PATCH 2/2] gnu: Add eiciel.

[Liliana Marie Prikler]

Done and pushed.