From 970b740b4569d984f49f45dc950d3f71a8869fdd Mon Sep 17 00:00:00 2001 From: msglm Date: Wed, 13 Mar 2024 04:27:36 -0500 Subject: lxpanel-gtk2 re-added to fix bugged task bar --- lxpanel-gtk2.scm | 66 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 66 insertions(+) create mode 100644 lxpanel-gtk2.scm 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))) + )) -- cgit v1.2.3