aboutsummaryrefslogtreecommitdiff
path: root/gnu/packages
diff options
context:
space:
mode:
author宋文武 <iyzsong@gmail.com>2015-03-10 12:48:02 +0800
committer宋文武 <iyzsong@gmail.com>2015-03-10 12:51:35 +0800
commita79112079e7f233f24a5cb09e03bbfff6e8b9a9b (patch)
treef1e85d522861f644da49065831c2b4358bc9c261 /gnu/packages
parent1cf0814d4d89737d7a61bc64650ea5ac58fff7cb (diff)
downloadguix-a79112079e7f233f24a5cb09e03bbfff6e8b9a9b.tar
guix-a79112079e7f233f24a5cb09e03bbfff6e8b9a9b.tar.gz
gnu: ratpoison: Install xsession file (ratpoison.desktop).
* gnu/packages/ratpoison.scm (ratpoison.desktop): New variable. (ratpoison)[arguments]: New field.
Diffstat (limited to 'gnu/packages')
-rw-r--r--gnu/packages/ratpoison.scm25
1 files changed, 24 insertions, 1 deletions
diff --git a/gnu/packages/ratpoison.scm b/gnu/packages/ratpoison.scm
index 61c68b557f..bde3fccf5d 100644
--- a/gnu/packages/ratpoison.scm
+++ b/gnu/packages/ratpoison.scm
@@ -28,6 +28,17 @@
#:use-module (gnu packages pkg-config)
#: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
(package
(name "ratpoison")
@@ -41,6 +52,17 @@
"0v4mh8d3vsh5xbbycfdl3g8zfygi1rkslh1x7k5hi1d05bfq3cdr"))
(patches (list (search-patch "ratpoison-shell.patch")))))
(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
`(("libXi" ,libxi)
("readline" ,readline)
@@ -52,7 +74,8 @@
("libXpm" ,libxpm)
("libXt" ,libxt)
("inputproto" ,inputproto)
- ("libX11" ,libx11)))
+ ("libX11" ,libx11)
+ ("ratpoison.desktop" ,ratpoison.desktop)))
(native-inputs
`(("perl" ,perl)
("pkg-config" ,pkg-config)))