diff options
| author | 宋文武 <iyzsong@gmail.com> | 2015-03-10 12:48:02 +0800 |
|---|---|---|
| committer | 宋文武 <iyzsong@gmail.com> | 2015-03-10 12:51:35 +0800 |
| commit | a79112079e7f233f24a5cb09e03bbfff6e8b9a9b (patch) | |
| tree | f1e85d522861f644da49065831c2b4358bc9c261 /gnu | |
| parent | 1cf0814d4d89737d7a61bc64650ea5ac58fff7cb (diff) | |
| download | 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')
| -rw-r--r-- | gnu/packages/ratpoison.scm | 25 |
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))) |