ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-07 15:36:20 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: rxvt-unicode: Add '.desktop' files.

Browse source 
This fixes <https://bugs.gnu.org/23106>.

* gnu/packages/xdisorg.scm (rxvt-unicode)[arguments]: Add
'install-desktop-urxvt' and 'install-desktop-urxvtc' phases.
This commit is contained in:
ng0 2017-03-05 16:14:43 -05:00 committed by Leo Famulari
parent 5af1a38133
commit 33c93ea33e
No known key found for this signature in database
GPG key ID: 2646FA30BACA7F08
1 changed files with 41 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

43
gnu/packages/xdisorg.scm
View file

@ -17,6 +17,7 @@
;;; Copyright © 2016 Marius Bakke <mbakke@fastmail.com>
;;; Copyright © 2016 Petter <petter@mykolab.ch>
;;; Copyright © 2017 Mekeor Melire <mekeor.melire@gmail.com>
;;; Copyright © 2017 ng0 <contact.ng0@cryptolab.net>
;;;
;;; This file is part of GNU Guix.
;;;
@ -689,9 +690,47 @@ (define-public rxvt-unicode
;; This sets the destination when installing the necessary terminal
;; capability data, which are not provided by 'ncurses'. See
;; https://lists.gnu.org/archive/html/bug-ncurses/2009-10/msg00031.html
'(#:make-flags (list (string-append "TERMINFO="
`(#:make-flags (list (string-append "TERMINFO="
(assoc-ref %outputs "out")
"/share/terminfo"))))
"/share/terminfo"))
#:phases
(modify-phases %standard-phases
(add-after 'install 'install-desktop-urxvt
(lambda* (#:key outputs #:allow-other-keys)
(let* ((output (assoc-ref outputs "out"))
(desktop (string-append output "/share/applications")))
(mkdir-p desktop)
(with-output-to-file
(string-append desktop "/urxvt.desktop")
(lambda _
(format #t
"[Desktop Entry]~@
Name=rxvt-unicode~@
Comment=~@
Exec=~a/bin/urxvt~@
TryExec=~@*~a/bin/urxvt~@
Icon=~@
Type=Application~%"
output)))
#t)))
(add-after 'install 'install-desktop-urxvtc
(lambda* (#:key outputs #:allow-other-keys)
(let* ((output (assoc-ref outputs "out"))
(desktop (string-append output "/share/applications")))
(mkdir-p desktop)
(with-output-to-file
(string-append desktop "/urxvtc.desktop")
(lambda _
(format #t
"[Desktop Entry]~@
Name=rxvt-unicode~@
Comment=Rxvt clone with XFT and unicode support~@
Exec=~a/bin/urxvtc~@
TryExec=~@*~a/bin/urxvtc~@
Icon=~@
Type=Application~%"
output)))
#t))))))
(inputs
`(("libXft" ,libxft)
("libX11" ,libx11)))