gnu: sway: Hardcode path to swaybg.

* gnu/packages/wm.scm (sway)[arguments]: Hardcode path to swaybg.
  [inputs]: Add swaybg.

Signed-off-by: Marius Bakke <mbakke@fastmail.com>
This commit is contained in:
Meiyo Peng 2019-06-09 16:15:50 +08:00 committed by Marius Bakke
parent 71bfbe9ba8
commit e23b6a6800
No known key found for this signature in database
GPG Key ID: A2A06DF2A33A54FA
1 changed files with 8 additions and 1 deletions

View File

@ -17,7 +17,7 @@
;;; Copyright © 2017 Oleg Pykhalov <go.wigust@gmail.com> ;;; Copyright © 2017 Oleg Pykhalov <go.wigust@gmail.com>
;;; Copyright © 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018 Pierre-Antoine Rouby <contact@parouby.fr> ;;; Copyright © 2018 Pierre-Antoine Rouby <contact@parouby.fr>
;;; Copyright © 2018 Meiyo Peng <meiyo.peng@gmail.com> ;;; Copyright © 2018, 2019 Meiyo Peng <meiyo@riseup.net>
;;; Copyright © 2019 Rutger Helling <rhelling@mykolab.com> ;;; Copyright © 2019 Rutger Helling <rhelling@mykolab.com>
;;; Copyright © 2019 Timothy Sample <samplet@ngyro.com> ;;; Copyright © 2019 Timothy Sample <samplet@ngyro.com>
;;; ;;;
@ -1201,6 +1201,12 @@ modules for building a Wayland compositor.")
(modify-phases %standard-phases (modify-phases %standard-phases
(add-before 'configure 'hardcode-paths (add-before 'configure 'hardcode-paths
(lambda* (#:key inputs #:allow-other-keys) (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\")")))
;; Hardcode path to scdoc.
(substitute* "meson.build" (substitute* "meson.build"
(("scdoc.get_pkgconfig_variable..scdoc..") (("scdoc.get_pkgconfig_variable..scdoc..")
(string-append "'" (assoc-ref inputs "scdoc") (string-append "'" (assoc-ref inputs "scdoc")
@ -1214,6 +1220,7 @@ modules for building a Wayland compositor.")
("libinput" ,libinput) ("libinput" ,libinput)
("libxkbcommon" ,libxkbcommon) ("libxkbcommon" ,libxkbcommon)
("pango" ,pango) ("pango" ,pango)
("swaybg" ,swaybg)
("wayland" ,wayland) ("wayland" ,wayland)
("wlroots" ,wlroots))) ("wlroots" ,wlroots)))
(native-inputs `(("git" ,git) (native-inputs `(("git" ,git)