(define-module (rodion packages freedesktop)
  #:use-module (gnu packages freedesktop)
  #:use-module (guix packages)
  #:use-module (gnu packages)
  #:use-module (guix gexp))

;; xdg-desktop-portal newest version with configuration files reading fixes
(define-public xdg-desktop-portal-next/fixed
  (package
    (inherit xdg-desktop-portal-next)
    (source (origin
	      (inherit (package-source xdg-desktop-portal-next))
	      (patches (append
			(origin-patches (package-source xdg-desktop-portal-next))
			`(,(local-file "./patches/001-xdg-desktop-portal.patch"))))))))

(define-public xdg-desktop-portal-gtk/latest
  (package
    (inherit xdg-desktop-portal-gtk)
    (propagated-inputs
     (list xdg-desktop-portal-next/fixed))))

(define-public xdg-desktop-portal-kde/latest
  (package
    (inherit xdg-desktop-portal-kde)
    (propagated-inputs
     (list xdg-desktop-portal-next/fixed))))

(define-public xdg-desktop-portal-wlr/latest
  (package
    (inherit xdg-desktop-portal-wlr)
    (propagated-inputs
     (list xdg-desktop-portal-next/fixed))))