mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-12-25 05:48:07 -05:00
gnu: Add perl-x11-xcb.
* gnu/packages/xorg.scm (perl-x11-xcb): New variable.
This commit is contained in:
parent
418852f903
commit
e17dc7397e
1 changed files with 56 additions and 0 deletions
|
@ -11,6 +11,7 @@
|
||||||
;;; Copyright © 2016 Alex Kost <alezost@gmail.com>
|
;;; Copyright © 2016 Alex Kost <alezost@gmail.com>
|
||||||
;;; Copyright © 2016 David Craven <david@craven.ch>
|
;;; Copyright © 2016 David Craven <david@craven.ch>
|
||||||
;;; Copyright © 2016, 2017 John Darrington <jmd@gnu.org>
|
;;; Copyright © 2016, 2017 John Darrington <jmd@gnu.org>
|
||||||
|
;;; Copyright © 2017 Marius Bakke <mbakke@fastmail.com>
|
||||||
;;;
|
;;;
|
||||||
;;; This file is part of GNU Guix.
|
;;; This file is part of GNU Guix.
|
||||||
;;;
|
;;;
|
||||||
|
@ -5623,6 +5624,61 @@ (define-public xterm
|
||||||
programs that cannot use the window system directly.")
|
programs that cannot use the window system directly.")
|
||||||
(license license:x11)))
|
(license license:x11)))
|
||||||
|
|
||||||
|
(define-public perl-x11-xcb
|
||||||
|
(package
|
||||||
|
(name "perl-x11-xcb")
|
||||||
|
(version "0.16")
|
||||||
|
(source (origin
|
||||||
|
(method url-fetch)
|
||||||
|
(uri (string-append
|
||||||
|
"mirror://cpan/authors/id/M/MS/MSTPLBG/"
|
||||||
|
"X11-XCB-" version ".tar.gz"))
|
||||||
|
(sha256
|
||||||
|
(base32
|
||||||
|
"14mnvr1001py2z1n43l18yaw0plwvjg5pcsyc7k81sa0amw8ahzw"))))
|
||||||
|
(build-system perl-build-system)
|
||||||
|
(arguments
|
||||||
|
'(;; Disable parallel build to prevent a race condition.
|
||||||
|
#:parallel-build? #f
|
||||||
|
#:phases
|
||||||
|
(modify-phases %standard-phases
|
||||||
|
(add-before 'build 'patch-Makefile
|
||||||
|
(lambda* (#:key inputs #:allow-other-keys)
|
||||||
|
(substitute* "Makefile"
|
||||||
|
;; XXX: Without this hack, attempts at using XCB.so fails with
|
||||||
|
;; an error such as "XCB.so: undefined symbol: xcb_xinerama_id"
|
||||||
|
(("^LDDLFLAGS = ")
|
||||||
|
(string-append "LDDLFLAGS = "
|
||||||
|
"-lxcb -lxcb-util -lxcb-xinerama -lxcb-icccm ")))
|
||||||
|
#t)))
|
||||||
|
;; Tests require a running X11 server.
|
||||||
|
#:tests? #f))
|
||||||
|
(native-inputs
|
||||||
|
`(("perl-extutils-depends" ,perl-extutils-depends)
|
||||||
|
("perl-extutils-pkgconfig" ,perl-extutils-pkgconfig)
|
||||||
|
("perl-test-deep" ,perl-test-deep)
|
||||||
|
("perl-test-exception" ,perl-test-exception)))
|
||||||
|
(propagated-inputs
|
||||||
|
`(("perl-data-dump" ,perl-data-dump)
|
||||||
|
("perl-mouse" ,perl-mouse)
|
||||||
|
("perl-mousex-nativetraits" ,perl-mousex-nativetraits)
|
||||||
|
("perl-try-tiny" ,perl-try-tiny)
|
||||||
|
("perl-xml-descent" ,perl-xml-descent)
|
||||||
|
("perl-xml-simple" ,perl-xml-simple)
|
||||||
|
("perl-xs-object-magic" ,perl-xs-object-magic)))
|
||||||
|
(inputs
|
||||||
|
`(("libxcb" ,libxcb)
|
||||||
|
("xcb-proto" ,xcb-proto)
|
||||||
|
("xcb-util" ,xcb-util)
|
||||||
|
("xcb-util-wm" ,xcb-util-wm)))
|
||||||
|
(home-page "http://search.cpan.org/dist/X11-XCB")
|
||||||
|
(synopsis "Perl bindings for libxcb")
|
||||||
|
(description
|
||||||
|
"These bindings wrap @code{libxcb} (a C library to speak with X11,
|
||||||
|
in many cases better than @code{Xlib}), and provides an object oriented
|
||||||
|
interface to its methods (using @code{Mouse}).")
|
||||||
|
(license (package-license perl))))
|
||||||
|
|
||||||
(define-public perl-x11-protocol
|
(define-public perl-x11-protocol
|
||||||
(package
|
(package
|
||||||
(name "perl-x11-protocol")
|
(name "perl-x11-protocol")
|
||||||
|
|
Loading…
Reference in a new issue