Re: Apply patch to read-only file

[Sarah Morgensen]

Hello Petr,

phodina <phodina@protonmail.com> writes:

> Hi Guillaume,
>
> Sure, here's the formatted file. My appology for the issue with the mail 
> client.
>
> --8<---------------cut here---------------start------------->8---
>
> (define-module (realmd)
>   #:use-module (guix packages)
>   #:use-module (gnu packages)
>   #:use-module (gnu packages image)
>   #:use-module (gnu packages glib)
>   #:use-module (gnu packages autotools)
>   #:use-module (gnu packages pkg-config)
>   #:use-module (gnu packages polkit)
>   #:use-module (guix git-download)
>   #:use-module (guix build-system gnu)
>   #:use-module ((guix licenses) #:prefix license:))
>
> (define-public realmd
> (package
>   (name "realmd")
>   (version "0.17.0")
>   (source (origin
>             (method git-fetch)
>             (uri (git-reference
>              (url "https://github.com/freedesktop/realmd";)
>              (commit version)))
>             (file-name (git-file-name name version))
>             (modules '((guix build utils)))
>              (snippet
>               '(begin
>                (delete-file "configure.ac")
>                ;(make-file-writable "configure.ac")
>                 #t))
>             (patches 
> '("endgame/packages/patches/realmd-guixsd-support.patch"))
>             (sha256
>              (base32
>               "1c6q2a86kk2f1akzc36nh52hfwsmmc0mbp6ayyjxj4zsyk9zx5bf"))))
>   (build-system gnu-build-system)
>   (arguments
>     `(#:phases
>       (modify-phases %standard-phases
>                    (add-after 'unpack 'make-git-checkout-writable
>                               (lambda* (#:key inputs #:allow-other-keys)
>                                      (make-file-writable "configure.ac"))
>                    (add-after 'unpack 'apply-patches
>                                        (for-each
>                                          (lambda (file)
>                                            (invoke "patch" "--force" "-p1" 
> "-input" "endgame/packages/patches/realmd-guixsd-support.patch"))))
>                    ))))
>
>                    ; gnuzilla.scm
>                                                    ; jami.scm
>   (native-inputs `(("pkg-config" ,pkg-config)
>                    ("autoconf" ,autoconf)
>                    ("intltool" ,intltool)
>                    ("automake" ,automake)))
>   (inputs `(("glib" ,glib)
>             ("polkit" ,polkit)))
>   (synopsis "DBus service for configuring kerberos and other online 
> identities")
>   (description "Dbus system service that manages discovery and enrollment
> in realms/domains like Active Directory or IPA.")
>   (home-page "https://www.freedesktop.org/software/realmd/";)
>   (license license:lgpl2.1)))

Is the issue maybe from deleting "configure.ac" in the snippet, then
trying to modify its permissions in 'make-git-checkout-writable'?

--
Sarah