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

gnu: sway: Update package style.

Browse source 
* gnu/packages/wm.scm (sway)[arguments]: Use gexps.
<#:phases>: Adjust to use ‘search-input-file’.
Remove trailing #t.

Change-Id: I5bd91faf2c79566486437b37cf72964d2c6a85fc
This commit is contained in:
Hilton Chain 2024-02-27 23:51:22 +08:00
parent 0e9c2d2eba
commit 5759e8be03
No known key found for this signature in database
GPG key ID: ACC66D09CA528292
1 changed files with 14 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

27
gnu/packages/wm.scm
View file

@ -1774,19 +1774,20 @@ (define-public sway
(base32 "1n36vgpi4bg2gkiq4fam4khly1z9bjinmjclzq5vfx0z8h7a5bzz"))))
(build-system meson-build-system)
(arguments
`(;; elogind is propagated by wlroots -> libseat
;; and would otherwise shadow basu.
#:configure-flags '("-Dsd-bus-provider=basu")
#:phases
(modify-phases %standard-phases
(add-before 'configure 'hardcode-paths
(lambda* (#:key inputs #:allow-other-keys)
;; Hardcode path to swaybg.
(substitute* "sway/config.c"
(("strdup..swaybg..")
(string-append "strdup(\"" (assoc-ref inputs "swaybg")
"/bin/swaybg\")")))
#t)))))
(list
;; elogind is propagated by wlroots -> libseat
;; and would otherwise shadow basu.
#:configure-flags
#~'("-Dsd-bus-provider=basu")
#:phases
#~(modify-phases %standard-phases
(add-before 'configure 'hardcode-paths
(lambda* (#:key inputs #:allow-other-keys)
;; Hardcode path to swaybg.
(substitute* "sway/config.c"
(("strdup..swaybg..")
(format #f "strdup(\"~a\")"
(search-input-file inputs "bin/swaybg")))))))))
(inputs (list basu
cairo
gdk-pixbuf