gnu: guile-avahi: Update to 0.4.0-1.6d43caf.

* gnu/packages/guile-xyz.scm (guile-avahi): Update to 0.4.0-1.6d43caf.
[arguments]: Add 'fix-guile-avahi-file-name phase with the required modules
and imported-modules.
This commit is contained in:
Mathieu Othacehe 2020-11-03 10:00:55 +01:00
parent e62ffc774e
commit d7f2b1e507
No known key found for this signature in database
GPG Key ID: 8354763531769CA6

@ -4049,41 +4049,63 @@ errors.")
(license license:expat))) (license license:expat)))
(define-public guile-avahi (define-public guile-avahi
(package (let ((commit "6d43caf64f672a9694bf6c98bbf7a734f17a51e8")
(name "guile-avahi") (revision "1"))
(version "0.4") (package
(source (origin (name "guile-avahi")
(method git-fetch) (version (git-version "0.4.0" revision commit))
(uri (git-reference (source (origin
(url "git://git.sv.gnu.org/guile-avahi.git") (method git-fetch)
(commit (string-append "v" version)))) (uri (git-reference
(file-name (git-file-name name version)) (url "git://git.sv.gnu.org/guile-avahi.git")
(sha256 (commit commit)))
(base32 (file-name (git-file-name name version))
"1m286ggy3qs4fkhk5c01p21ghkslgksjsncaky0z037m9qqn06fn")) (sha256
(modules '((guix build utils))))) (base32
(build-system gnu-build-system) "0fvrf8x22yvc71180hd3xkhspg9yvadi0pbv8shzlsaxqncwy1m9"))
(arguments (modules '((guix build utils)))))
'(#:make-flags (build-system gnu-build-system)
'("GUILE_AUTO_COMPILE=0"))) ;to prevent guild warnings (arguments
(inputs `(#:modules (((guix build guile-build-system)
`(("guile" ,guile-3.0) #:select (target-guile-effective-version))
("avahi" ,avahi))) ,@%gnu-build-system-modules)
(native-inputs #:imported-modules ((guix build guile-build-system)
`(("autoconf" ,autoconf) ,@%gnu-build-system-modules)
("automake" ,automake) #:make-flags
("libtool" ,libtool) '("GUILE_AUTO_COMPILE=0") ;to prevent guild warnings
("gettext" ,gnu-gettext) #:phases
("pkg-config" ,pkg-config) (modify-phases %standard-phases
("texinfo" ,texinfo))) (add-before 'check 'fix-guile-avahi-file-name
(synopsis "Guile bindings to Avahi") (lambda* (#:key outputs #:allow-other-keys)
(description (with-directory-excursion "src"
"This package provides bindings for Avahi. It allows programmers to use (invoke "make" "install"
functionalities of the Avahi client library from Guile Scheme programs. Avahi "-j" (number->string
itself is an implementation of multicast DNS (mDNS) and DNS Service (parallel-job-count))))
(let* ((out (assoc-ref outputs "out"))
(files (find-files "modules" ".scm")))
(substitute* files
(("\"guile-avahi-v-0\"")
(format #f "\"~a/lib/guile/~a/extensions/guile-avahi-v-0\""
out (target-guile-effective-version))))
#t))))))
(inputs
`(("guile" ,guile-3.0)
("avahi" ,avahi)))
(native-inputs
`(("autoconf" ,autoconf)
("automake" ,automake)
("libtool" ,libtool)
("gettext" ,gnu-gettext)
("pkg-config" ,pkg-config)
("texinfo" ,texinfo)))
(synopsis "Guile bindings to Avahi")
(description
"This package provides bindings for Avahi. It allows programmers to
use functionalities of the Avahi client library from Guile Scheme programs.
Avahi itself is an implementation of multicast DNS (mDNS) and DNS Service
Discovery (DNS-SD).") Discovery (DNS-SD).")
(home-page "https://www.nongnu.org/guile-avahi/") (home-page "https://www.nongnu.org/guile-avahi/")
(license license:lgpl3+))) (license license:lgpl3+))))
(define-public guile-mkdir-p (define-public guile-mkdir-p
(package (package