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

gnu: rxvt-unicode: Use new package style.

Browse source 
* gnu/packages/xdisorg.scm (rxvt-unicode)[arguments]: Use gexps.
[inputs]: Drop input labels.

Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
Timotej Lazar 2023-06-24 13:28:04 +02:00 committed by Ludovic Courtès
parent f0dfb2a8e9
commit f969f45fa8
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 35 additions and 43 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

78
gnu/packages/xdisorg.scm
View file

@ -1285,52 +1285,44 @@ (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
`(#:configure-flags (list "--enable-256-color")
#:make-flags (list (string-append "TERMINFO="
(assoc-ref %outputs "out")
"/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")
(list #:configure-flags #~(list "--enable-256-color")
#:make-flags #~(list (string-append "TERMINFO=" #$output "/share/terminfo"))
#:phases
#~(modify-phases %standard-phases
(add-after 'install 'install-desktop-urxvt
(lambda _
(format #t
"[Desktop Entry]~@
Name=rxvt-unicode~@
Comment=~@
Exec=~a/bin/urxvt~@
TryExec=~@*~a/bin/urxvt~@
Icon=~@
Type=Application~%"
output))))))
(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")
(let ((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))))))
(add-after 'install 'install-desktop-urxvtc
(lambda _
(format #t
"[Desktop Entry]~@
Name=rxvt-unicode (client)~@
Comment=Rxvt clone with XFT and unicode support~@
Exec=~a/bin/urxvtc~@
TryExec=~@*~a/bin/urxvtc~@
Icon=~@
Type=Application~%"
output)))))))))
(let ((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 (client)~@
Comment=Rxvt clone with XFT and unicode support~@
Exec=~a/bin/urxvtc~@
TryExec=~@*~a/bin/urxvtc~@
Icon=~@
Type=Application~%"
#$output)))))))))
(inputs
`(("libptytty" ,libptytty)
("libXft" ,libxft)
("libX11" ,libx11)
("libXt" ,libxt)
("libxext" ,libxext)))
(list libptytty libxft libx11 libxt libxext))
(native-inputs
(list ncurses ;trigger the installation of terminfo data
perl pkg-config))