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")) #:make-flags #~(list (string-append "TERMINFO=" #$output "/share/terminfo"))
#:phases #:phases
#~(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-after 'install 'install-desktop-urxvt (add-after 'install 'install-desktop-entries
(lambda _ (lambda _
(let ((desktop (string-append #$output "/share/applications"))) (for-each (lambda (exec name)
(mkdir-p desktop) (make-desktop-entry-file
(with-output-to-file (string-append #$output "/share/applications/"
(string-append desktop "/urxvt.desktop") exec ".desktop")
(lambda _ #:type "Application"
(format #t #:name name
"[Desktop Entry]~@ #:comment '((#f #$(package-synopsis this-package)))
Name=rxvt-unicode~@ #:exec exec
Comment=~@ #:try-exec exec
Exec=~a/bin/urxvt~@ #:icon "utilities-terminal"
TryExec=~@*~a/bin/urxvt~@ #:categories '("System" "TerminalEmulator")))
Icon=~@ '("urxvt" "urxvtc")
Type=Application~%" '("rxvt-unicode" "rxvt-unicode (client)")))))))
#$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)))))))))
(inputs (inputs
(list libptytty libxft libx11 libxt libxext)) (list libptytty libxft libx11 libxt libxext))
(native-inputs (native-inputs