mason/packages/prevent-sleep.scm

@@ -16,23 +16,9 @@
     (build-system copy-build-system)
     (arguments
      '(#:install-plan
-       '(("prevent-sleep" "bin/")
+       '(("prevent-sleep" "bin/"))))
-         ("prevent-sleep.desktop" "share/applications/"))
+    (propagated-inputs
-       #:phases
+      `(("yad" ,yad)))
-       (modify-phases %standard-phases
-         (add-after 'unpack 'configure
-           (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)))
     (synopsis "Prevent sleep")
     (description
      "Prevent sleep")

mason/packages/scripts/prevent-sleep/prevent-sleep

@@ -1,24 +1,9 @@
 #!/usr/bin/env bash
 
-REASON="$(whoami) said so..."
+gnome-session-inhibit --reason "$(whoami) said so..." \
-TITLE="Prevent Suspend"
-TEXT="We will NOT sleep, unless you click \"OK\"!"
-
-YAD_INPUT="@YAD_PATH@/bin/yad"
-
-if command -v yad &> /dev/null; then
-    COMMAND=(yad --title "$TITLE" \
-            --text "$TEXT" \
-            --button=gtk-ok)
-elif command -v zenity &> /dev/null; then
-    COMMAND=(zenity --info --title "$TITLE" \
-                --text "$TEXT")
-elif [ -x $YAD_INPUT ]; then
-    COMMAND=($YAD_INPUT --title "$TITLE" \
-            --text "$TEXT" \
-            --button=gtk-ok)
-fi
-
-gnome-session-inhibit --reason "$REASON" \
     --inhibit suspend \
-    "${COMMAND[@]}"
+    yad --title "Prevent Suspend" \
+        --text "We will NOT sleep, unless you click \"OK\"!" \
+        --button=gtk-ok \
+
+echo "OK! Zzzzzzzz"

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

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