prevent-sleep: Add desktop file

mason/packages/prevent-sleep.scm

@@ -16,15 +16,20 @@
     (build-system copy-build-system)
     (arguments
      '(#:install-plan
-       '(("prevent-sleep" "bin/"))
+       '(("prevent-sleep" "bin/")
+         ("prevent-sleep.desktop" "share/applications/"))
        #:phases
        (modify-phases %standard-phases
          (add-after 'unpack 'configure
-           (lambda* (#:key inputs #:allow-other-keys)
+           (lambda* (#:key inputs outputs #:allow-other-keys)
              (substitute* (list "prevent-sleep")
                (("@YAD_PATH@")
                 (string-append (assoc-ref inputs "yad")
                                "/bin")))
+             (substitute* (list "prevent-sleep.desktop")
+               (("@EXEC@")
+                (string-append (assoc-ref outputs "out")
+                               "/bin/prevent-sleep")))
              #t)))))
     (inputs
        `(("yad" ,yad)))

mason/packages/scripts/prevent-sleep/prevent-sleep.desktop

@@ -0,0 +1,6 @@
+[Desktop Entry]
+Type=Application
+Name=Suspend Inhibitor
+Icon=gnome-power-manager
+Exec=@EXEC@
+Terminal=false