TakeV/guix
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

build: glib-or-gtk-build-system: Add gtk 4.0 support.

Browse source 
* guix/build/glib-or-gtk-build-system.scm (gtk-module-directories): Add gtk
4.0 support.
This commit is contained in:
Mathieu Othacehe 2021-09-24 15:26:05 +00:00
parent 1d8bb73d3d
commit ba049bb2da
No known key found for this signature in database
GPG key ID: 8354763531769CA6
1 changed files with 18 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
guix/build/glib-or-gtk-build-system.scm
View file

@ -51,12 +51,24 @@ (define (gtk-module-directories inputs)
"Check for the existence of \"libdir/gtk-v.0\" in INPUTS. Return a list
with all found directories."
(let* ((version
(if (string-match "gtk\\+-3"
(or (assoc-ref inputs "gtk+")
(assoc-ref inputs "source")
"gtk+-3")) ; we default to version 3
"3.0"
"2.0"))
(cond
((string-match "gtk-4"
(or (assoc-ref inputs "gtk")
(assoc-ref inputs "source")
""))
"4.0")
((string-match "gtk\\+-3"
(or (assoc-ref inputs "gtk+")
(assoc-ref inputs "source")
""))
"3.0")
((string-match "gtk\\+-2"
(or (assoc-ref inputs "gtk+")
(assoc-ref inputs "source")
""))
"2.0")
(else
"4.0"))) ; We default to version 4.0.
(gtk-module
(lambda (input prev)
(let* ((in (match input