gnu: Add caribou.
* gnu/packages/gnome.scm (caribou): New variable.
This commit is contained in:
parent
df217748e1
commit
bd7dfafaa3
|
@ -4002,3 +4002,68 @@ Exchange, Last.fm, IMAP/SMTP, Jabber, SIP and Kerberos.")
|
||||||
contacts, tasks, and calendar information. It was originally developed for
|
contacts, tasks, and calendar information. It was originally developed for
|
||||||
Evolution (hence the name), but is now used by other packages as well.")
|
Evolution (hence the name), but is now used by other packages as well.")
|
||||||
(license license:lgpl2.0)))
|
(license license:lgpl2.0)))
|
||||||
|
|
||||||
|
(define-public caribou
|
||||||
|
(package
|
||||||
|
(name "caribou")
|
||||||
|
(version "0.4.19")
|
||||||
|
(source (origin
|
||||||
|
(method url-fetch)
|
||||||
|
(uri (string-append "mirror://gnome/sources/" name "/"
|
||||||
|
(version-major+minor version) "/"
|
||||||
|
name "-" version ".tar.xz"))
|
||||||
|
(sha256
|
||||||
|
(base32
|
||||||
|
"0i2s2xy9ami3wslam15cajhggpcsj4c70qm7qddcz52z9k0x02rg"))))
|
||||||
|
(build-system glib-or-gtk-build-system)
|
||||||
|
(arguments
|
||||||
|
'(#:phases
|
||||||
|
(modify-phases %standard-phases
|
||||||
|
(add-before
|
||||||
|
'build 'pre-build
|
||||||
|
(lambda* (#:key outputs #:allow-other-keys)
|
||||||
|
(let ((out (assoc-ref outputs "out")))
|
||||||
|
;; Use absolute shared library path in Caribou-1.0.typelib.
|
||||||
|
(substitute* "libcaribou/Makefile"
|
||||||
|
(("--shared-library=libcaribou.so")
|
||||||
|
(string-append "--shared-library="
|
||||||
|
out "/lib/libcaribou.so")))
|
||||||
|
#t)))
|
||||||
|
(add-after 'install 'wrap-programs
|
||||||
|
(lambda* (#:key outputs #:allow-other-keys)
|
||||||
|
(let* ((out (assoc-ref outputs "out"))
|
||||||
|
(python-path (getenv "PYTHONPATH"))
|
||||||
|
(gi-typelib-path (getenv "GI_TYPELIB_PATH")))
|
||||||
|
(for-each
|
||||||
|
(lambda (prog)
|
||||||
|
(wrap-program prog
|
||||||
|
`("PYTHONPATH" ":" prefix (,python-path))
|
||||||
|
`("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))))
|
||||||
|
(list (string-append out "/bin/caribou-preferences")
|
||||||
|
(string-append out "/libexec/antler-keyboard"))))
|
||||||
|
#t)))))
|
||||||
|
(native-inputs
|
||||||
|
`(("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
|
||||||
|
("gobject-introspection" ,gobject-introspection)
|
||||||
|
("intltool" ,intltool)
|
||||||
|
("pkg-config" ,pkg-config)
|
||||||
|
("python" ,python-2) ; incompatible with Python 3 (print syntax)
|
||||||
|
("vala" ,vala)
|
||||||
|
("xsltproc" ,libxslt)))
|
||||||
|
(propagated-inputs
|
||||||
|
;; caribou-1.0.pc refers to all these.
|
||||||
|
`(("libgee" ,libgee)
|
||||||
|
("libxklavier" ,libxklavier)
|
||||||
|
("libxtst" ,libxtst)
|
||||||
|
("gtk+" ,gtk+)))
|
||||||
|
(inputs
|
||||||
|
`(("clutter" ,clutter)
|
||||||
|
("dconf" ,dconf)
|
||||||
|
("gtk+-2" ,gtk+-2)
|
||||||
|
("python-pygobject" ,python2-pygobject)))
|
||||||
|
(synopsis "Text entry and UI navigation application")
|
||||||
|
(home-page "https://wiki.gnome.org/Projects/Caribou")
|
||||||
|
(description
|
||||||
|
"Caribou is an input assistive technology intended for switch and pointer
|
||||||
|
users.")
|
||||||
|
(license license:lgpl2.1)))
|
||||||
|
|
Loading…
Reference in New Issue