mirror of
https://git.savannah.gnu.org/git/guix.git
synced 2025-01-19 22:16:32 +01:00
gnu: lxde-common: Provide 'startlxde' with the 'lxsession' file name.
Fixes <https://bugs.gnu.org/26688>. * gnu/packages/lxde.scm (lxde-common)[arguments, inputs]: New fields.
This commit is contained in:
parent
4ad8aed77f
commit
d5e7d014dd
1 changed files with 15 additions and 0 deletions
|
@ -289,11 +289,26 @@ (define-public lxde-common
|
||||||
(base32
|
(base32
|
||||||
"0mj84fa3f4ak1jjslrwc2q3ci9zxrxpciggviza9bjb0168brn8w"))))
|
"0mj84fa3f4ak1jjslrwc2q3ci9zxrxpciggviza9bjb0168brn8w"))))
|
||||||
(build-system gnu-build-system)
|
(build-system gnu-build-system)
|
||||||
|
(arguments
|
||||||
|
'(#:phases (modify-phases %standard-phases
|
||||||
|
(add-before 'configure 'set-lxsession
|
||||||
|
(lambda* (#:key inputs #:allow-other-keys)
|
||||||
|
;; Set the right file name for 'lxsession'.
|
||||||
|
(let ((lxsession (assoc-ref inputs "lxsession")))
|
||||||
|
(substitute* "startlxde.in"
|
||||||
|
(("^exec .*/bin/lxsession")
|
||||||
|
(string-append "exec " lxsession
|
||||||
|
"/bin/lxsession")))
|
||||||
|
#t))))))
|
||||||
(native-inputs
|
(native-inputs
|
||||||
`(("pkg-config" ,pkg-config)
|
`(("pkg-config" ,pkg-config)
|
||||||
("intltool" ,intltool)
|
("intltool" ,intltool)
|
||||||
("lxmenu-data" ,lxmenu-data)
|
("lxmenu-data" ,lxmenu-data)
|
||||||
("lxde-icon-theme" ,lxde-icon-theme)))
|
("lxde-icon-theme" ,lxde-icon-theme)))
|
||||||
|
(inputs
|
||||||
|
`(("lxsession" ,lxsession)
|
||||||
|
;; ("lxlock" ,lxlock) ;for 'lxde-screenlock.desktop'
|
||||||
|
))
|
||||||
(synopsis "Common files of the LXDE Desktop")
|
(synopsis "Common files of the LXDE Desktop")
|
||||||
(description
|
(description
|
||||||
"Lxde-common provides common files of the LXDE Desktop.")
|
"Lxde-common provides common files of the LXDE Desktop.")
|
||||||
|
|
Loading…
Reference in a new issue