(define-module (python-qtile)
  #:use-module (gnu packages check)
  #:use-module (gnu packages freedesktop)
  #:use-module (gnu packages glib)
  #:use-module (gnu packages gtk)
  #:use-module (gnu packages libffi)
  #:use-module (gnu packages mpd)
  #:use-module (gnu packages pkg-config)
  #:use-module (gnu packages pulseaudio)
  #:use-module (gnu packages python-build)
  #:use-module (gnu packages python-crypto)
  #:use-module (gnu packages python-xyz)
  #:use-module (gnu packages time)
  #:use-module (gnu packages wm)
  #:use-module (gnu packages xdisorg)
  #:use-module (gnu packages xorg)
  #:use-module (guix download)
  #:use-module (guix gexp)
  #:use-module (guix packages)
  #:use-module (guix licenses)
  #:use-module (guix build-system python)
  #:use-module (guix build-system pyproject))

(define-public qtile-wayland
  (package
   (name "qtile-wayland")
   (version "0.30.0")
   (source
    (origin
     (method url-fetch)
     (uri (pypi-uri "qtile" version))
     (sha256
      (base32 "0zd2bh4mvgwjxkkwn3angkaqzm7ldcmzg3gdc098jzzlf90fmywm"))))
   (build-system pyproject-build-system)
   (arguments
    (list
     ;; A lot of tests fail despite Xvfb and writable temp/cache space.
     #:tests? #f
     #:test-flags
     #~(list "--ignore=test/widgets/test_widget_init_configure.py")
     #:phases
     #~(modify-phases %standard-phases
     (add-after 'unpack 'patch-paths
(lambda* (#:key inputs #:allow-other-keys)
  (substitute* "libqtile/pangocffi.py"
(("^(gobject = ffi.dlopen).*" all def)
(format #f "~a(~s)~%" def
(search-input-file inputs "/lib/libgobject-2.0.so.0")))
(("^(pango = ffi.dlopen).*" all def)
(format #f "~a(~s)~%" def
(search-input-file inputs "/lib/libpango-1.0.so.0")))
(("^(pangocairo = ffi.dlopen).*" all def)
(format #f "~a(~s)~%" def
(search-input-file
 inputs "/lib/libpangocairo-1.0.so.0"))))
  (substitute* "libqtile/backend/wayland/cffi/build.py"
(("/usr/include/pixman-1")
(string-append #$pixman
"/include/pixman-1"))
(("/usr/include/libdrm")
(string-append #$libdrm
"/include/libdrm")))))
     (add-after 'install 'install-xsessions
(lambda* (#:key outputs #:allow-other-keys)
  (let* ((out (assoc-ref outputs "out"))
 (xsessions (string-append out "/share/xsessions"))
 (qtile (string-append out "/bin/qtile start")))
    (mkdir-p xsessions)
    (copy-file "resources/qtile.desktop"
(string-append xsessions "/qtile.desktop"))
    (substitute* (string-append xsessions "/qtile.desktop")
 (("qtile start") qtile)))))
     (add-before 'check 'pre-check
 (lambda* (#:key tests? #:allow-other-keys)
   (when tests?
     (setenv "HOME" "/tmp")
     (system "Xvfb :1 &")
     (setenv "DISPLAY" ":1")
     (setenv "XDG_CACHE_HOME" "/tmp")))))))
   (inputs
    (list glib pango pulseaudio wlroots-0.17 pixman libdrm))
   (propagated-inputs
    (list python-cairocffi
          python-cffi
          python-dateutil
          python-dbus-fast
          python-iwlib
          python-keyring
          python-libcst
          python-mpd2
          python-pygobject
          python-pyxdg
          python-xcffib
 python-pywlroots
 python-pywayland
 python-xkbcommon))
   (native-inputs
    (list pkg-config
          python-flake8
          python-pep8-naming
          python-pytest
          python-pytest-cov
          python-psutil
          python-setuptools
          python-setuptools-scm
          python-wheel
          xorg-server-for-tests))
   (home-page "http://qtile.org")
   (synopsis "Hackable tiling window manager written and configured in Python")
   (description "Qtile is simple, small, and extensible.  It's easy to write
your own layouts, widgets, and built-in commands.")
   (license expat)))

(define-public python-pywlroots
  (package
    (name "python-pywlroots")
    (version "0.17.0")
    (source
     (origin
       (method url-fetch)
       (uri "https://github.com/flacjacket/pywlroots/archive/refs/tags/v0.17.0.tar.gz")
       (sha256
        (base32 "1ghbsdgmgpzhmfgr614bglmrlsgdl1bgdl1lg0y1i6cs9750qyv6"))))
    (build-system python-build-system)
    (arguments (list #:phases
    #~(modify-phases %standard-phases
     (add-before 'build 'set-pixman-path
 (lambda _
   (substitute* "wlroots/ffi_build.py"
(("/usr/include/pixman-1")
 (string-append #$pixman
"/include/pixman-1"))))))))
    (inputs (list wlroots-0.17 pixman))
    (propagated-inputs (list python-cffi python-pywayland python-xkbcommon))
    (native-inputs (list python-cffi python-pytest python-setuptools
                         python-wheel))
;;    (inputs (list wlroots-0.17))
    (home-page "https://github.com/flacjacket/pywlroots")
    (synopsis "Python binding to the wlroots library using cffi")
    (description "Python binding to the wlroots library using cffi.")
    (license ncsa)))

(define-public python-pywayland
  (package
    (name "python-pywayland")
    (version "0.4.18")
    (source
     (origin
       (method url-fetch)
       (uri (pypi-uri "pywayland" version))
       (sha256
        (base32 "0cv5aqn23id31mn95q6isn5vcnjcd4dvaqzn52ihbb9sg01dx2jr"))))
    (build-system pyproject-build-system)
    (arguments (list #:tests? #f))
    (propagated-inputs (list python-cffi))
    (native-inputs (list python-cffi python-pytest python-setuptools
                         python-wheel wayland wayland-protocols pkg-config))
    (home-page "https://github.com/flacjacket/pywayland")
    (synopsis
     "Python bindings for the libwayland library written in pure Python")
    (description
     "Python bindings for the libwayland library written in pure Python.")
    (license asl2.0)))

(define-public python-xkbcommon
  (package
    (name "python-xkbcommon")
    (version "1.5.1")
    (source
     (origin
       (method url-fetch)
       (uri (pypi-uri "xkbcommon" version))
       (sha256
        (base32 "0dnwbp8rriwkmsa8a40cpvrccjy7m8xz6jw0vbcka7gnvc44h5xc"))))
    (build-system pyproject-build-system)
    (propagated-inputs (list python-cffi))
    (native-inputs (list python-setuptools python-wheel libxkbcommon))
    (home-page "https://github.com/sde1000/python-xkbcommon")
    (synopsis "Bindings for libxkbcommon using cffi")
    (description "Bindings for libxkbcommon using cffi.")
    (license expat)))