ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-17 00:18:16 -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

28
gnu/packages/xdisorg.scm
View file

@ -1285,16 +1285,13 @@ (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"))
(list #:configure-flags #~(list "--enable-256-color")
#:make-flags #~(list (string-append "TERMINFO=" #$output "/share/terminfo"))
#:phases
(modify-phases %standard-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")))
(lambda _
(let ((desktop (string-append #$output "/share/applications")))
(mkdir-p desktop)
(with-output-to-file
(string-append desktop "/urxvt.desktop")
@ -1307,11 +1304,10 @@ (define-public rxvt-unicode
TryExec=~@*~a/bin/urxvt~@
Icon=~@
Type=Application~%"
output))))))
#$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")))
(lambda _
(let ((desktop (string-append #$output "/share/applications")))
(mkdir-p desktop)
(with-output-to-file
(string-append desktop "/urxvtc.desktop")
@ -1324,13 +1320,9 @@ (define-public rxvt-unicode
TryExec=~@*~a/bin/urxvtc~@
Icon=~@
Type=Application~%"
output)))))))))
#$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))