diff options
author | doncatnip <gnopap@gmail.com> | 2016-09-01 23:53:32 +0200 |
---|---|---|
committer | Leo Famulari <leo@famulari.name> | 2016-09-20 14:58:32 -0400 |
commit | 03d8505f144a8e35c39f9e634d9aecf21326e5a7 (patch) | |
tree | e11319dc467c2ef628889f63b27e5855f747a098 | |
parent | c0d47cadea6fc5f968e982b2373ce1347bcc6988 (diff) | |
download | guix-patches-03d8505f144a8e35c39f9e634d9aecf21326e5a7.tar guix-patches-03d8505f144a8e35c39f9e634d9aecf21326e5a7.tar.gz |
gnu: lua: Add lua-lgi.
* gnu/packages/lua.scm (lua-lgi): New variable.
Signed-off-by: Leo Famulari <leo@famulari.name>
-rw-r--r-- | gnu/packages/lua.scm | 81 |
1 files changed, 80 insertions, 1 deletions
diff --git a/gnu/packages/lua.scm b/gnu/packages/lua.scm index f2e9da20fd..8fdba61e92 100644 --- a/gnu/packages/lua.scm +++ b/gnu/packages/lua.scm @@ -5,6 +5,7 @@ ;;; Copyright © 2014 Andreas Enge <andreas@enge.fr> ;;; Copyright © 2016 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2016 Ricardo Wurmus <rekado@elephly.net> +;;; Copyright © 2016 doncatnip <gnopap@gmail.com> ;;; ;;; This file is part of GNU Guix. ;;; @@ -29,7 +30,12 @@ #:use-module (gnu packages) #:use-module (gnu packages readline) #:use-module (gnu packages tls) - #:use-module (gnu packages xml)) + #:use-module (gnu packages xml) + #:use-module (gnu packages glib) + #:use-module (gnu packages libffi) + #:use-module (gnu packages pkg-config) + #:use-module (gnu packages xorg) + #:use-module (gnu packages gtk)) (define-public lua (package @@ -260,3 +266,76 @@ directory structure and file attributes.") communication. It takes an already established TCP connection and creates a secure session between the peers.") (license (package-license lua-5.1)))) + +(define-public lua-lgi + (package + (name "lua-lgi") + (version "0.9.1") + (source + (origin + (method url-fetch) + (uri (string-append + "https://github.com/pavouk/lgi/archive/" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1fmgdl5y4ph3yc6ycg865s3vai1rjkyda61cgqxk6zd13hmznw0c")))) + (build-system gnu-build-system) + (arguments + '(#:make-flags (list "CC=gcc" + (string-append "PREFIX=" (assoc-ref %outputs "out"))) + #:phases + (modify-phases %standard-phases + (delete 'configure) ; no configure script + (add-before 'build 'set-env + (lambda* (#:key inputs #:allow-other-keys) + ;; we need to load cairo dynamically + (let* ((cairo (string-append + (assoc-ref inputs "cairo") "/lib" ))) + (setenv "LD_LIBRARY_PATH" cairo) + #t))) + (add-before 'build 'set-lua-version + (lambda _ + ;; lua version and therefore install directories are hardcoded + ;; FIXME: This breaks when we update lua to >=5.3 + (substitute* "./lgi/Makefile" + (("LUA_VERSION=5.1") "LUA_VERSION=5.2")) + #t)) + (add-before 'check 'skip-test-gtk + (lambda _ + ;; FIXME: Skip GTK tests: + ;; gtk3 - can't get it to run with the xorg-server config below + ;; and some non-gtk tests will also fail + ;; gtk2 - lots of functions aren't implemented + ;; We choose gtk2 as the lesser evil and simply skip the test. + ;; Currently, awesome is the only package that uses lua-lgi but + ;; it doesn't need or interact with GTK using lua-lgi. + (substitute* "./tests/test.lua" + (("'gtk.lua',") "-- 'gtk.lua',")) + #t)) + (add-before 'check 'start-xserver-instance + (lambda* (#:key inputs #:allow-other-keys) + ;; There must be a running X server during tests. + (system (format #f "~a/bin/Xvfb :1 &" + (assoc-ref inputs "xorg-server"))) + (setenv "DISPLAY" ":1") + #t))))) + (inputs + `(("gobject-introspection" ,gobject-introspection) + ("glib" ,glib) + ("pango", pango) + ("gtk", gtk+-2) + ("lua" ,lua) + ("cairo" ,cairo) + ("libffi" ,libffi) + ("xorg-server", xorg-server))) + (native-inputs + `(("pkg-config" ,pkg-config))) + (home-page "https://github.com/pavouk/lgi/") + (synopsis "Lua bridge to GObject based libraries") + (description + "LGI is gobject-introspection based dynamic Lua binding to GObject +based libraries. It allows using GObject-based libraries directly from Lua. +Notable examples are GTK+, GStreamer and Webkit.") + (license license:expat))) |