me
/
guix
Archived
1
0
Fork 0
Code

gnu: lirc: Update to 0.9.4. 

* gnu/packages/lirc.scm (lirc): Update to 0.9.4.
[arguments]: Add 'patch-lirc-make-devinput' and 'patch-doc/Makefile.in'
phases.
[inputs]: Add 'libusb-compat' and 'linux-libre-headers'.
master
Alex Kost 2016-05-28 23:34:20 +03:00
parent da3aeeb62b
commit a88825d965
No known key found for this signature in database
GPG Key ID: 82460C082A0EE98F
1 changed files with 28 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
gnu/packages/lirc.scm
View File

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2015 Alex Kost <alezost@gmail.com> ;;; Copyright © 2015, 2016 Alex Kost <alezost@gmail.com>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -23,6 +23,7 @@
#:use-module ((guix licenses) #:prefix license:) #:use-module ((guix licenses) #:prefix license:)
#:use-module (gnu packages) #:use-module (gnu packages)
#:use-module (gnu packages pkg-config) #:use-module (gnu packages pkg-config)
#:use-module (gnu packages libusb)
#:use-module (gnu packages linux) #:use-module (gnu packages linux)
#:use-module (gnu packages xml) #:use-module (gnu packages xml)
#:use-module (gnu packages xorg) #:use-module (gnu packages xorg)
@ -31,23 +32,46 @@
(define-public lirc (define-public lirc
(package (package
(name "lirc") (name "lirc")
(version "0.9.3") (version "0.9.4")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "mirror://sourceforge/lirc/lirc-" (uri (string-append "mirror://sourceforge/lirc/lirc-"
version ".tar.bz2")) version ".tar.bz2"))
(sha256 (sha256
(base32 (base32
"19c6ldjsdnk1md66q3nb035ja1xj217k8iabhxpsb8rs10a6kwi6")) "1l2xzhnm4hrla51ik09hcafki0y8wnww7svfm7j63zbl2rssc66x"))
(patches (search-patches "lirc-localstatedir.patch")))) (patches (search-patches "lirc-localstatedir.patch"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
'(#:configure-flags '("--localstatedir=/var"))) '(#:configure-flags '("--localstatedir=/var")
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'patch-lirc-make-devinput
(lambda* (#:key inputs #:allow-other-keys)
;; 'lirc-make-devinput' script assumes that linux headers
;; are placed in "/usr/...".
(let ((headers (assoc-ref inputs "linux-headers")))
(substitute* "tools/lirc-make-devinput"
(("/usr/include") (string-append headers "/include"))))
#t))
(add-after 'unpack 'patch-doc/Makefile.in
(lambda _
;; Lirc wants to install several images and a useless html page
;; to "$(localstatedir)/lib/lirc/". This makes 'install' phase
;; fail as localstatedir is "/var", so do not install these
;; files there (the same images are installed in
;; "share/doc/lirc/images/" anyway).
(substitute* "doc/Makefile.in"
(("^vardocs_DATA =.*") "vardocs_DATA =\n")
(("^varimage_DATA =.*") "varimage_DATA =\n"))
#t)))))
(native-inputs (native-inputs
`(("pkg-config" ,pkg-config) `(("pkg-config" ,pkg-config)
("libxslt" ,libxslt))) ("libxslt" ,libxslt)))
(inputs (inputs
`(("libx11" ,libx11) `(("libx11" ,libx11)
("libusb-compat" ,libusb-compat)
("linux-headers" ,linux-libre-headers)
("alsa-lib" ,alsa-lib) ("alsa-lib" ,alsa-lib)
("python" ,python))) ("python" ,python)))
(home-page "http://www.lirc.org/") (home-page "http://www.lirc.org/")