help-guix
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: Apply patch to read-only file


From: phodina
Subject: Re: Apply patch to read-only file
Date: Mon, 27 Sep 2021 22:57:16 +0000

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)))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]