rodion/packages/freedesktop.scm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33

(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/fixed
  (package
    (inherit xdg-desktop-portal-gtk)
    (propagated-inputs
     (list xdg-desktop-portal-next/fixed))))

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

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