diff --git a/mason/packages/prevent-sleep.scm b/mason/packages/prevent-sleep.scm new file mode 100644 index 0000000..96f5b17 --- /dev/null +++ b/mason/packages/prevent-sleep.scm @@ -0,0 +1,25 @@ +(define-module (mason packages prevent-sleep) + #:use-module ((guix licenses) #:prefix license:) + #:use-module (guix packages) + #:use-module (guix build-system copy) + #:use-module (guix utils) + #:use-module (guix gexp)) + +(define-public prevent-sleep + (package + (name "prevent-sleep") + (version "0.0.1") + (home-page "https://wiki.mobian-project.org/doku.php?id=tweaks#suspend-sleep") + (source + (local-file (string-append (dirname (current-filename)) "/scripts/prevent-sleep") + #:recursive? #t)) + (build-system copy-build-system) + (arguments + '(#:install-plan + '(("prevent-sleep" "bin/")))) + (synopsis "Prevent sleep") + (description + "Prevent sleep") + (license license:cc-by-sa4.0))) + +prevent-sleep diff --git a/mason/packages/scripts/prevent-sleep/prevent-sleep b/mason/packages/scripts/prevent-sleep/prevent-sleep new file mode 100755 index 0000000..3e7dae0 --- /dev/null +++ b/mason/packages/scripts/prevent-sleep/prevent-sleep @@ -0,0 +1,9 @@ +#!/usr/bin/env bash + +gnome-session-inhibit --reason "$(whoami) said so..." \ + --inhibit suspend \ + yad --title "Prevent Suspend" \ + --text "We will NOT sleep, unless you click \"OK\"!" \ + --button=gtk-ok \ + +echo "OK! Zzzzzzzz"