(define-module (lxpanel-gtk2)
               #:use-module (gnu packages)
               #:use-module (gnu packages lxde)
               #:use-module (gnu packages gtk)
               #:use-module (gnu packages gnome)
               #:use-module (gnu packages wm)
               #:use-module (gnu packages glib)
               #:use-module (gnu packages python)
               #:use-module (gnu packages autotools)
               #:use-module (gnu packages pkg-config)
               #:use-module ((guix licenses) :prefix license:)
               #:use-module (guix build-system gnu)
               #:use-module (guix git-download)
               #:use-module (guix packages)
               #:use-module (guix gexp)
               )

(define-public keybinder-legacy
  (package
    (name "keybinder-legacy")
    (version "0.3.1")
    (source (origin
              (method git-fetch)
              (uri (git-reference
                     (url "https://github.com/kupferlauncher/keybinder.git")
                     (commit (string-append "v" version))))
       (sha256
        (base32
         "0r9l8k85mqmwns065cz4ffsblrh24gyn1691lcnh02vkkc6zllks"))))
    (build-system gnu-build-system)
    (arguments (list #:configure-flags #~(list "--disable-python")))    
    (inputs
     (list gtk+-2))
    (native-inputs
     (list gtk-doc pkg-config gnome-common automake autoconf libtool))
    (synopsis "Library for registering global keyboard shortcuts")
    (description
     "Keybinder is a library for registering global keyboard shortcuts.
Keybinder works with GTK-based applications using the X Window System.")
    (home-page "https://github.com/kupferlauncher/keybinder")
    (license license:gpl2+)))

(define-public libfm-gtk2
(package (inherit libfm)
         (name "libfm-gtk2")
         (arguments (list #:configure-flags #~(list "--with-gtk=2")))
         (inputs (modify-inputs (package-inputs libfm)
                    (prepend gtk+-2)))
))

(define-public lxpanel-gtk2
               (package (inherit lxpanel)
                        (name "lxpanel-gtk2")
                        (arguments
                          (list
                            #:phases
                            #~(modify-phases %standard-phases
                                             (add-after 'install 'wrap
                                                        (lambda* (#:key inputs outputs #:allow-other-keys)
                                                                 (wrap-program (search-input-file outputs "bin/lxpanel")
                                                                               `("XDG_DATA_DIRS" ":" prefix
                                                                                 (,(string-append #$(this-package-input "lxmenu-data")
                                                                                                  "/share")))))))))
                        (inputs (modify-inputs (package-inputs lxpanel)
                                               (prepend gtk+-2 libfm-gtk2 libwnck-2 keybinder-legacy)))
                        ))