me/guix
Archived
1
0
Fork 0
Code Activity

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 @@ compact configuration syntax.")
;; This sets the destination when installing the necessary terminal ;; This sets the destination when installing the necessary terminal
;; capability data, which are not provided by 'ncurses'. See ;; capability data, which are not provided by 'ncurses'. See
;; https://lists.gnu.org/archive/html/bug-ncurses/2009-10/msg00031.html ;; https://lists.gnu.org/archive/html/bug-ncurses/2009-10/msg00031.html
`(#:configure-flags (list "--enable-256-color") (list #:configure-flags #~(list "--enable-256-color")
#:make-flags (list (string-append "TERMINFO=" #:make-flags #~(list (string-append "TERMINFO=" #$output "/share/terminfo"))
(assoc-ref %outputs "out") #:phases
"/share/terminfo")) #~(modify-phases %standard-phases
#:phases (add-after 'install 'install-desktop-urxvt
(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 _ (lambda _
(format #t (let ((desktop (string-append #$output "/share/applications")))
"[Desktop Entry]~@ (mkdir-p desktop)
Name=rxvt-unicode~@ (with-output-to-file
Comment=~@ (string-append desktop "/urxvt.desktop")
Exec=~a/bin/urxvt~@ (lambda _
TryExec=~@*~a/bin/urxvt~@ (format #t
Icon=~@ "[Desktop Entry]~@
Type=Application~%" Name=rxvt-unicode~@
output)))))) Comment=~@
(add-after 'install 'install-desktop-urxvtc Exec=~a/bin/urxvt~@
(lambda* (#:key outputs #:allow-other-keys) TryExec=~@*~a/bin/urxvt~@
(let* ((output (assoc-ref outputs "out")) Icon=~@
(desktop (string-append output "/share/applications"))) Type=Application~%"
(mkdir-p desktop) #$output))))))
(with-output-to-file (add-after 'install 'install-desktop-urxvtc
(string-append desktop "/urxvtc.desktop")
(lambda _ (lambda _
(format #t (let ((desktop (string-append #$output "/share/applications")))
"[Desktop Entry]~@ (mkdir-p desktop)
Name=rxvt-unicode (client)~@ (with-output-to-file
Comment=Rxvt clone with XFT and unicode support~@ (string-append desktop "/urxvtc.desktop")
Exec=~a/bin/urxvtc~@ (lambda _
TryExec=~@*~a/bin/urxvtc~@ (format #t
Icon=~@ "[Desktop Entry]~@
Type=Application~%" Name=rxvt-unicode (client)~@
output))))))))) Comment=Rxvt clone with XFT and unicode support~@
Exec=~a/bin/urxvtc~@
TryExec=~@*~a/bin/urxvtc~@
Icon=~@
Type=Application~%"
#$output)))))))))
(inputs (inputs
`(("libptytty" ,libptytty) (list libptytty libxft libx11 libxt libxext))
("libXft" ,libxft)
("libX11" ,libx11)
("libXt" ,libxt)
("libxext" ,libxext)))
(native-inputs (native-inputs
(list ncurses ;trigger the installation of terminfo data (list ncurses ;trigger the installation of terminfo data
perl pkg-config)) perl pkg-config))