[Top][All Lists]

[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
  (name "realmd")
  (version "0.17.0")
  (source (origin
            (method git-fetch)
            (uri (git-reference
             (url "";)
             (commit version)))
            (file-name (git-file-name name version))
            (modules '((guix build utils)))
               (delete-file "")
               ;(make-file-writable "")
            (patches '("endgame/packages/patches/realmd-guixsd-support.patch"))
  (build-system gnu-build-system)
      (modify-phases %standard-phases
                     (add-after 'unpack 'make-git-checkout-writable
                                (lambda* (#:key inputs #:allow-other-keys)
                                       (make-file-writable ""))
                     (add-after 'unpack 'apply-patches
                                           (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 "";)
  (license license:lgpl2.1)))

reply via email to

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