1 files changed, 66 insertions, 0 deletions
diff --git a/lxpanel-gtk2.scm b/lxpanel-gtk2.scm
new file mode 100644
index 0000000..2f4d70f
--- /dev/null
+++ b/lxpanel-gtk2.scm
@@ -0,0 +1,66 @@
+(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)))
+                        ))