From 93a5389faeb1511424807ff9ee4ea5c77679cc33 Mon Sep 17 00:00:00 2001 From: "Collin J. Doering" Date: Sun, 13 Feb 2022 17:57:26 -0500 Subject: [PATCH] emacs-xyz: Use library function to generate emacs-org-roam-ui .desktop file --- rekahsoft-gnu/packages/emacs-xyz.scm | 21 ++++++++------------- 1 file changed, 8 insertions(+), 13 deletions(-) diff --git a/rekahsoft-gnu/packages/emacs-xyz.scm b/rekahsoft-gnu/packages/emacs-xyz.scm index e4f82bd..7d5c83d 100644 --- a/rekahsoft-gnu/packages/emacs-xyz.scm +++ b/rekahsoft-gnu/packages/emacs-xyz.scm @@ -673,19 +673,14 @@ overlays."))) (emacs (assoc-ref inputs "emacs")) (xapplications (string-append out "/share/applications"))) (mkdir-p xapplications) - (call-with-output-file - (string-append xapplications "/org-protocol.desktop") - (lambda (port) - (format port - "[Desktop Entry]~@ - Name=Org-Protocol~@ - Comment=Protocol which allows interaction between org-roam-server in emacs and a web browser~@ - Exec=~a/bin/emacsclient %u~@ - Icon=emacs-icon~@ - Type=Application~@ - Terminal=false~@ - MimeType=x-scheme-handler/org-protocol~%" - emacs))) + (make-desktop-entry-file + (string-append xapplications "/org-protocol.desktop") + #:name "Org-Protocol" + #:exec (format #f "~a/bin/emacsclient %u" emacs) + #:icon "emacs-icon" + #:comment "Protocol which allows interaction between org-roam-server in emacs and a web browser" + #:categories '("Application") + #:mime-type "x-scheme-handler/org-protocol") #t)))))) (home-page "https://github.com/org-roam/org-roam-ui")