(define-module (awesome)
  #:use-module (guix licenses)
  #:use-module (guix packages)
  #:use-module (guix download)
  #:use-module (guix git-download)
  #:use-module (guix build-system cmake)
  #:use-module (guix build-system gnu)
  #:use-module (gnu packages compression)
  #:use-module (gnu packages pkg-config)
  #:use-module (gnu packages xorg)
  #:use-module (gnu packages glib)
  #:use-module (gnu packages gtk)
  #:use-module (gnu packages freedesktop)
  #:use-module (gnu packages xdisorg)
  #:use-module (gnu packages m4)
  #:use-module (gnu packages lua)
  #:use-module (gnu packages readline)
  #:use-module (gnu packages imagemagick))


(define-public xcb-util-cursor
  (package
    (name "xcb-util-cursor")
    (version "0.1.2")
    (source (origin
             (method url-fetch)
             (uri (string-append "mirror://xorg/individual/xcb/"
                                 name "-" version ".tar.bz2"))
             (sha256
              (base32
               "0fpv46zb7kz04qxwvpax4cpd2kd8yhsm2n0if1isniqdh5xkcrgd"))))
    (build-system gnu-build-system)
    (propagated-inputs
     `(("libxcb" ,libxcb)
       ("xcb-util-renderutil" ,xcb-util-renderutil)
       ("xcb-util-image" ,xcb-util-image)))
    (inputs
     `(("xcb-util" ,xcb-util)
       ("xcb-util-renderutil" ,xcb-util-renderutil)
       ("xcb-util-image" ,xcb-util-image)))
    (native-inputs
     `(("m4" ,m4)
       ("pkg-config" ,pkg-config)))
    (home-page "http://cgit.freedesktop.org/xcb/util-image/")
    (synopsis "XCB port of Xlib's XImage and XShmImage")
    (description
     "The XCB util module provides a number of libraries which sit on
top of libxcb, the core X protocol library, and some of the extension
libraries.  These experimental libraries provide convenience functions
and interfaces which make the raw X protocol more usable.  Some of the
libraries also provide client-side code which is not strictly part of
the X protocol but which has traditionally been provided by Xlib.

The XCB util-image module provides the following library:

- image: Port of Xlib's XImage and XShmImage functions.")
    (license x11)))


(define-public lua-dyn
  (package
    (name "lua-dyn")
    (version "5.2.3")
    (source (origin
             (method url-fetch)
             (uri (string-append "http://www.lua.org/ftp/lua-"
                                 version ".tar.gz"))
             (sha256
              (base32 "0b8034v1s82n4dg5rzcn12067ha3nxaylp2vdp8gg08kjsbzphhk"))))
    (build-system gnu-build-system)
    (inputs `(("readline", readline)))
    (arguments
     '(#:modules ((guix build gnu-build-system)
                    (guix build utils)
                    (srfi srfi-1))
       #:make-flags (list "LUA_USE_LINUX=1");; dynamic linking
       #:test-target "test"
       #:phases (alist-replace
                 'build
                 (lambda _ (zero? (system* "make" "CFLAGS=-fPIC" "linux")))
                 (alist-replace
                  'install
                  (lambda* (#:key outputs #:allow-other-keys)
                    (let ((out (assoc-ref outputs "out")))
                      (zero? (system* "make" "install"
                                      (string-append "INSTALL_TOP=" out)
                                      (string-append "INSTALL_MAN=" out
                                                     "/share/man/man1")))))
                  (alist-delete 'configure %standard-phases)))))
    (home-page "http://www.lua.org/")
    (synopsis "Embeddable scripting language")
    (description
     "Lua is a powerful, fast, lightweight, embeddable scripting language.  Lua
combines simple procedural syntax with powerful data description constructs
based on associative arrays and extensible semantics.  Lua is dynamically typed,
runs by interpreting bytecode for a register-based virtual machine, and has
automatic memory management with incremental garbage collection, making it ideal
for configuration, scripting, and rapid prototyping.")
    (license x11)))


(define-public lgi
  (package
   (name "lgi")
   (version "0.9")
   (source
     (origin
       (method git-fetch)
       (uri (git-reference
             (url "https://github.com/pavouk/lgi.git")
             (commit "1c5d85058f48572723442d940a4e7cfba0074b7f")))
       (sha256
        (base32 "0rkaipb9j6pm6bc53gy837lmyk0d3rmvzcs5ry96yvrn1mgksbw1"))))
   (build-system gnu-build-system)
   (arguments
     `(#:make-flags (list (string-append "PREFIX=" %output)
                          "CC=gcc"
			  )
       #:tests? #f  ;no tests
       #:phases (modify-phases %standard-phases
                  (delete 'configure))))
   (native-inputs `(("pkg-config" ,pkg-config)
		    ("gobject-introspection" ,gobject-introspection)))
   (inputs
    `(("lua-dyn" ,lua-dyn)
      ("glib" ,glib)
      ("gobject-introspection" ,gobject-introspection)))
   (home-page "http://home.gna.org/unrar/")
   (synopsis "a free software version of the non-free unrar utility")
   (description
    "unrar is a free software version of the non-free unrar utility that exists on many GNU/Linux systems today. It uses the GPL'd UniquE RAR Library by Christian Scheurer and Johannes Winkelmann. This program is a simple command-line front-end to this library, and can list and extract RAR archives. It does not rival the non-free unrar in terms of features, but special care has been taken to ensure it meets most user's needs and it is hoped that GUI archivers such as GNOME's (file-roller) and KDE's ark will use this utility as a back-end.")
   (license gpl2+)))

(define-public awesome
  (package
    (name "awesome")
    (version "1.12")
    (source (origin
             (method url-fetch)
             (uri "http://awesome.naquadah.org/download/awesome-3.5.6.tar.xz")
             (sha256
              (base32
               "1ms6a3l1i2jdhzrd1zr25cqckznmb44qgz4n635jam42hzhrvx1p"))))
    (build-system cmake-build-system)
    (native-inputs `(("pkg-config" ,pkg-config)
		     ("lgi" ,lgi)))
    (arguments
     '())
    (inputs `(("imagemagick" ,imagemagick)
	      ("libxcb" ,libxcb)
	      ("glib" ,glib)
	      ("gdk-pixbuf" ,gdk-pixbuf)
	      ("cairo" ,cairo)
	      ("libx11" ,libx11)
	      ;("libxcursor" ,libxcursor)
	      ("xcb-util" ,xcb-util)
	      ("xcb-util-keysyms" ,xcb-util-keysyms)
	      ("xcb-util-wm" ,xcb-util-wm)
	      ("startup-notification" ,startup-notification)
	      ("libxdg-basedir" ,libxdg-basedir)
	      ("xcb-util-cursor" ,xcb-util-cursor)
	      ("lua" ,lua)
	      ("lgi" ,lgi)))
    (home-page "http://home.gna.org/unrar/")
    (synopsis "a free software version of the non-free unrar utility")
    (description
     "unrar is a free software version of the non-free unrar utility that exists on many GNU/Linux systems today. It uses the GPL'd UniquE RAR Library by Christian Scheurer and Johannes Winkelmann. This program is a simple command-line front-end to this library, and can list and extract RAR archives. It does not rival the non-free unrar in terms of features, but special care has been taken to ensure it meets most user's needs and it is hoped that GUI archivers such as GNOME's (file-roller) and KDE's ark will use this utility as a back-end.")
    (license gpl2+)))