emacs-xyz: Use library function to generate emacs-org-roam-ui .desktop file

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")