amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

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
Download patch file Download diff file Expand all files Collapse all files

27
gnu/packages/wm.scm
View file

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