[bug#47870] [PATCH 1/2] gnu: polkit-gnome: Add autostart .desktop file.

[Leo Prikler]

Hi Brendan,

Am Montag, den 19.04.2021, 13:02 +0200 schrieb Brendan Tildesley:
> gnu/packages/xfce.scm (xfce-mate-polkit-autostart) New symbol.
Scheme doesn't have symbols, it has variables.

> +(define-public xfce-mate-polkit-autostart
> +  (package
> +    (name "xfce-mate-polkit-autostart")
> +    (version "1")
> +    (inputs `(("mate-polkit" ,mate-polkit)))
> +    (build-system gnu-build-system)
> +    (arguments
> +     `(#:phases
> +       (modify-phases %standard-phases
> +         (delete 'unpack)
> +         (delete 'bootstrap)
> +         (delete 'patch-usr-bin-file)
> +         (delete 'patch-source-shebangs)
> +         (delete 'configure)
> +         (delete 'patch-generated-file-shebangs)
> +         (delete 'check)
> +         (delete 'install)
> +         (delete 'patch-shebangs)
> +         (delete 'strip)
> +         (delete 'validate-runpath)
> +         (delete 'validate-documentation-location)
> +         (delete 'delete-info-dir-file)
> +         (delete 'patch-dot-desktop-files)
> +         (delete 'install-license-files)
> +         (delete 'reset-gzip-timestamps)
> +         (delete 'compress-documentation)
> +         (replace 'build
> +           (lambda _
> +             (let* ((mate-polkit (assoc-ref %build-inputs "mate-
> polkit"))
> +                    (out (assoc-ref %outputs "out"))
> +                    (dir (string-append out "/etc/xdg/autostart"))
> +                    (desktop (string-append
> +                              dir "/xfce4-polkit-mate-
> authentication-agent-1.desktop")))
> +               (mkdir-p dir)
> +               (copy-file (string-append
> +                           mate-polkit "/etc/xdg/autostart/"
> +                           "polkit-mate-authentication-agent-
> 1.desktop")
> +                          desktop)
> +               (substitute* desktop
> +                 (("^X-MATE.*") "")
> +                 (("MATE") "XFCE"))))))))
> +    (source #f) (home-page #f) (synopsis #f) (description #f)
> (license #f)
> +    (properties `((hidden? . #t)))))
That's a pretty large package description for something rather trivial.
Would the following work instead?

  (package/inherit mate-polkit
    (arguments
     `(#:phases
       (modify-phases %standard-phases
         (add-after 'unpack 'patch-desktop-for-xfce
           (lambda _
             (substitute* "src/polkit-mate-authentication-agent-
1.desktop.in.in"
                 (("MATE;") "XFCE;"))))))))

Regards,
Leo