(define-module (px packages lxqt-dev)
  #:use-module (guix download)
  #:use-module (guix git-download)
  #:use-module ((guix licenses) #:prefix license:)
  #:use-module (guix packages)
  #:use-module (guix utils)
  #:use-module (guix build-system cmake)
  #:use-module (guix build-system gnu)
  #:use-module (guix build-system trivial)
  #:use-module (gnu packages)
  #:use-module (gnu packages admin)
  #:use-module (gnu packages base)
  #:use-module (gnu packages compression)
  #:use-module (gnu packages documentation)
  #:use-module (gnu packages compton)
  #:use-module (gnu packages fonts)
  #:use-module (gnu packages freedesktop)
  #:use-module (gnu packages glib)
  #:use-module (gnu packages gnome)
  #:use-module (gnu packages gtk)
  #:use-module (gnu packages image)
  #:use-module (gnu packages kde-frameworks)
  #:use-module (gnu packages kde-plasma)
  #:use-module (gnu packages linux)
  #:use-module (gnu packages lxqt)
  #:use-module (gnu packages perl)
  #:use-module (gnu packages lxde)
  #:use-module (gnu packages lxqt)
  #:use-module (gnu packages maths)
  #:use-module (gnu packages openbox)
  #:use-module (gnu packages pcre)
  #:use-module (gnu packages perl)
  #:use-module (gnu packages photo)
  #:use-module (gnu packages pkg-config)
  #:use-module (gnu packages polkit)
  #:use-module (gnu packages pulseaudio)
  #:use-module (gnu packages qt)
  #:use-module (gnu packages textutils)
  #:use-module (gnu packages xdisorg)
  #:use-module (gnu packages xml)
  #:use-module (gnu packages xorg)
  #:use-module (px  packages themes)
  #:use-module (srfi srfi-1))

(define-public lxqt-config-dev
  (let ((rep_name "lxqt-config")
        (commit "5365be813f9c43e8fa6ed6a42f30744cf043980a")
        (revision "0"))
    (package
      (inherit lxqt-config)
      (name "lxqt-config-dev")
      (version (git-version "1.1.0" revision commit))
      (source
        (origin
          (method git-fetch)
          (uri (git-reference
            (url (string-append "https://github.com/lxqt/" rep_name ".git"))
            (commit commit)))
          (file-name (git-file-name name version))
          (sha256 (base32 "1wx186nq7hihywm7dn3w4p31zyplg3kr11aav4maivv14dw9k17k"))))
      (inputs
        `(("eudev" ,eudev)
          ("kwindowsystem" ,kwindowsystem)
          ("libkscreen" ,libkscreen)
          ("liblxqt" ,liblxqt)
          ("libqtxdg" ,libqtxdg)
          ("libxcursor" ,libxcursor)
          ("libxi" ,libxi)
          ("perl" ,perl)
          ("qtbase" ,qtbase-5)
          ("qtsvg" ,qtsvg-5)
          ("qtx11extras" ,qtx11extras)
          ("solid" ,solid)
          ("xf86-input-libinput" ,xf86-input-libinput)
          ("xkeyboard-config" ,xkeyboard-config)   
          ("zlib" ,zlib)))
      (native-inputs
        (list pkg-config lxqt-build-tools qttools-5))
      (propagated-inputs
        `(
          ;; temporary workaround for lxqt-config-monitor segmentation fault
          ;;  more in https://git.pantherx.org/development/guix-pantherx/-/issues/67
          ("libkscreen" ,libkscreen)
          ("setxkbmap" ,setxkbmap)))
      (arguments
        '(#:tests? #f                      ; no tests
          #:phases
            (modify-phases %standard-phases
              (add-after 'unpack 'patch-source
                (lambda _
                  (substitute* '("src/translations/lxqt-config.desktop.yaml")
                    (("LXQt Configuration Center")
                     "All Settings"))
                  (substitute* '("src/lxqt-config.menu")
                    (("<Name>System settings</Name>")
                     (string-append "<Name>PantherX settings</Name>"
                                    "\n\t<Directory>lxqt-settings-pantherx.directory</Directory>"
                                    "\n\t<Include>"
                                    "\n\t\t<And>"
                                    "\n\t\t\t<Category>Settings</Category>"
                                    "\n\t\t\t<Category>PantherX</Category>"
                                    "\n\t\t</And>"
                                    "\n\t</Include>"
                                    "\n</Menu>"
                                    "\n\n<Menu>"
                                    "\n\t<Name>System settings</Name>")))
                  #t))
              (add-after 'unpack 'set-xkeyboard-config-file-name
                (lambda* (#:key inputs #:allow-other-keys)
                  ;; Set the file name to xkeyboard-config.
                  (let ((xkb (assoc-ref inputs "xkeyboard-config")))
                    (substitute* "lxqt-config-input/keyboardlayoutconfig.h"
                      (("/usr/share/X11/xkb/rules/base.lst")
                       (string-append xkb "/share/X11/xkb/rules/base.lst")))
                  #t)))
              )))
      )))