gnu: ratpoison: Install xsession file (ratpoison.desktop).
* gnu/packages/ratpoison.scm (ratpoison.desktop): New variable. (ratpoison)[arguments]: New field.
This commit is contained in:
parent
1cf0814d4d
commit
a79112079e
@ -28,6 +28,17 @@
|
|||||||
#:use-module (gnu packages pkg-config)
|
#:use-module (gnu packages pkg-config)
|
||||||
#:use-module (gnu packages fontutils))
|
#:use-module (gnu packages fontutils))
|
||||||
|
|
||||||
|
(define ratpoison.desktop
|
||||||
|
(origin
|
||||||
|
(method url-fetch)
|
||||||
|
(uri (string-append "http://sources.gentoo.org/cgi-bin/viewvc.cgi/"
|
||||||
|
"gentoo-x86/x11-wm/ratpoison/files/ratpoison.desktop"
|
||||||
|
"?revision=1.1"))
|
||||||
|
(file-name "ratpoison.desktop")
|
||||||
|
(sha256
|
||||||
|
(base32
|
||||||
|
"1rh3f4c3rhn6q2hmkraam0831xqcqyj3qkqf019ahaxsxaan3553"))))
|
||||||
|
|
||||||
(define-public ratpoison
|
(define-public ratpoison
|
||||||
(package
|
(package
|
||||||
(name "ratpoison")
|
(name "ratpoison")
|
||||||
@ -41,6 +52,17 @@
|
|||||||
"0v4mh8d3vsh5xbbycfdl3g8zfygi1rkslh1x7k5hi1d05bfq3cdr"))
|
"0v4mh8d3vsh5xbbycfdl3g8zfygi1rkslh1x7k5hi1d05bfq3cdr"))
|
||||||
(patches (list (search-patch "ratpoison-shell.patch")))))
|
(patches (list (search-patch "ratpoison-shell.patch")))))
|
||||||
(build-system gnu-build-system)
|
(build-system gnu-build-system)
|
||||||
|
(arguments
|
||||||
|
'(#:phases
|
||||||
|
(alist-cons-after
|
||||||
|
'install 'install-xsession
|
||||||
|
(lambda _
|
||||||
|
(let* ((file (assoc-ref %build-inputs "ratpoison.desktop"))
|
||||||
|
(xsessions (string-append %output "/share/xsessions"))
|
||||||
|
(target (string-append xsessions "/ratpoison.desktop")))
|
||||||
|
(mkdir-p xsessions)
|
||||||
|
(copy-file file target)))
|
||||||
|
%standard-phases)))
|
||||||
(inputs
|
(inputs
|
||||||
`(("libXi" ,libxi)
|
`(("libXi" ,libxi)
|
||||||
("readline" ,readline)
|
("readline" ,readline)
|
||||||
@ -52,7 +74,8 @@
|
|||||||
("libXpm" ,libxpm)
|
("libXpm" ,libxpm)
|
||||||
("libXt" ,libxt)
|
("libXt" ,libxt)
|
||||||
("inputproto" ,inputproto)
|
("inputproto" ,inputproto)
|
||||||
("libX11" ,libx11)))
|
("libX11" ,libx11)
|
||||||
|
("ratpoison.desktop" ,ratpoison.desktop)))
|
||||||
(native-inputs
|
(native-inputs
|
||||||
`(("perl" ,perl)
|
`(("perl" ,perl)
|
||||||
("pkg-config" ,pkg-config)))
|
("pkg-config" ,pkg-config)))
|
||||||
|
Loading…
Reference in New Issue
Block a user