ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-23 19:19:20 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: lightdm-gtk-greeter: Use gexps and new style inputs.

Browse source 
* gnu/packages/display-managers.scm
(lightdm-gtk-greeter)[arguments]: Use gexps.
[configure-flags]: Use search-input-file.
[phases]{fix-.desktop-file}: Likewise.
{wrap-program}: Use search-input-file and this-package-input.
[inputs]: Use new style.  Add glib.
This commit is contained in:
Maxim Cournoyer 2022-08-03 21:24:41 -04:00
parent a8f53d544b
commit 90b705ea44
No known key found for this signature in database
GPG key ID: 1260E46482E63562
1 changed files with 39 additions and 34 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

53
gnu/packages/display-managers.scm
View file

@ -348,43 +348,48 @@ (define-public lightdm-gtk-greeter
"04q62mvr97l9gv8h37hfarygqc7p0498ig7xclcg4kxkqw0b7yxy"))))
(build-system gnu-build-system)
(arguments
`(#:configure-flags
(list (string-append "--enable-at-spi-command="
(assoc-ref %build-inputs "at-spi2-core")
"/libexec/at-spi-bus-launcher"))
(list
#:configure-flags
#~(list (string-append "--enable-at-spi-command="
(search-input-file
%build-inputs "libexec/at-spi-bus-launcher")))
#:phases
(modify-phases %standard-phases
#~(modify-phases %standard-phases
(add-after 'install 'fix-.desktop-file
(lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")))
(substitute* (string-append
out "/share/xgreeters/lightdm-gtk-greeter.desktop")
(substitute* (search-input-file
outputs
"share/xgreeters/lightdm-gtk-greeter.desktop")
(("Exec=lightdm-gtk-greeter")
(string-append "Exec=" out "/sbin/lightdm-gtk-greeter")))
#t)))
(string-append "Exec="
(search-input-file
outputs "sbin/lightdm-gtk-greeter"))))))
(add-after 'fix-.desktop-file 'wrap-program
;; Mimic glib-or-gtk build system
;; which doesn't wrap files in /sbin
;; Mimic glib-or-gtk build system which doesn't wrap files in
;; /sbin.
(lambda* (#:key outputs inputs #:allow-other-keys)
(let ((gtk (assoc-ref inputs "gtk+")))
(wrap-program (string-append (assoc-ref outputs "out")
"/sbin/lightdm-gtk-greeter")
(let ((gtk #$(this-package-input "gtk+"))
(shared-mime-info #$(this-package-input "shared-mime-info"))
(glib #$(this-package-input "glib")))
(wrap-program (search-input-file
outputs "sbin/lightdm-gtk-greeter")
`("XDG_DATA_DIRS" ":" prefix
,(cons "/run/current-system/profile/share"
(map (lambda (pkg)
(string-append (assoc-ref inputs pkg) "/share"))
'("gtk+" "shared-mime-info" "glib"))))
(string-append pkg "/share"))
(list gtk shared-mime-info glib))))
`("GTK_PATH" ":" prefix (,gtk))
`("GIO_EXTRA_MODULES" ":" prefix (,gtk))))
#t)))))
`("GIO_EXTRA_MODULES" ":" prefix (,gtk)))))))))
(native-inputs
(list exo intltool pkg-config xfce4-dev-tools))
(inputs
`(("bash" ,bash-minimal) ; for wrap-program
("lightdm" ,lightdm)
("shared-mime-info" ,shared-mime-info)
("at-spi2-core" ,at-spi2-core)
("gtk+" ,gtk+)))
(list bash-minimal ;for wrap-program
lightdm
shared-mime-info
at-spi2-core
glib
gtk+))
(synopsis "GTK+ greeter for LightDM")
(home-page "https://github.com/xubuntu/lightdm-gtk-greeter")
(description "This package provides a LightDM greeter implementation using