me
/
guix
Archived
1
0
Fork 0
Code

gnu: rxvt-unicode: Use helper procedure to make desktop files. 

* gnu/packages/xdisorg.scm (rxvt-unicode)[arguments]: Replace custom code with
make-desktop-entry-file. Specify categories and icon in desktop files.

Signed-off-by: Ludovic Courtès <ludo@gnu.org>
master
Timotej Lazar 2023-06-24 13:28:05 +02:00 committed by Ludovic Courtès
parent f969f45fa8
commit 355e3c6e1c
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 14 additions and 31 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

45
gnu/packages/xdisorg.scm
View File

@ -1289,38 +1289,21 @@ compact configuration syntax.")
#:make-flags #~(list (string-append "TERMINFO=" #$output "/share/terminfo"))
#:phases
#~(modify-phases %standard-phases
(add-after 'install 'install-desktop-urxvt
(add-after 'install 'install-desktop-entries
(lambda _
(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 _
(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)))))))))
(for-each (lambda (exec name)
(make-desktop-entry-file
(string-append #$output "/share/applications/"
exec ".desktop")
#:type "Application"
#:name name
#:comment '((#f #$(package-synopsis this-package)))
#:exec exec
#:try-exec exec
#:icon "utilities-terminal"
#:categories '("System" "TerminalEmulator")))
'("urxvt" "urxvtc")
'("rxvt-unicode" "rxvt-unicode (client)")))))))
(inputs
(list libptytty libxft libx11 libxt libxext))
(native-inputs