diff options
Diffstat (limited to '')
| -rw-r--r-- | mirenn/home/services/brightnessctl.scm | 5 | ||||
| -rw-r--r-- | mirenn/home/services/timer.scm | 42 |
2 files changed, 3 insertions, 44 deletions
diff --git a/mirenn/home/services/brightnessctl.scm b/mirenn/home/services/brightnessctl.scm index b71e04a..b1eeb35 100644 --- a/mirenn/home/services/brightnessctl.scm +++ b/mirenn/home/services/brightnessctl.scm @@ -7,7 +7,8 @@ #:use-module (gnu home services shepherd) #:use-module (gnu packages linux) - #:export (home-brightnessctl-configuration)) + #:export (home-brightnessctl-configuration + home-brightnessctl-service-type)) (define-configuration/no-serialization home-brightnessctl-configuration (state-file @@ -28,7 +29,7 @@ (home-brightnessctl-configuration-state-file config) "\"")))))) -(define-public home-brightnessctl-service-type +(define home-brightnessctl-service-type (service-type (name 'home-brightnessctl) (extensions diff --git a/mirenn/home/services/timer.scm b/mirenn/home/services/timer.scm deleted file mode 100644 index 59e2fc8..0000000 --- a/mirenn/home/services/timer.scm +++ /dev/null @@ -1,42 +0,0 @@ -(define-module (mirenn home services timer) - #:use-module (guix gexp) - #:use-module (gnu services) - #:use-module (gnu services shepherd) - #:use-module (gnu services configuration) - #:use-module (gnu home services) - #:use-module (gnu home services shepherd) - - #:export (home-timer-configuration)) - -(define-configuration/no-serialization home-timer-configuration - (name - symbol - "Name of the timer.") - (script - local-file - "Script to run on timeout.") - (arguments - (list string) - "Arguments passed to the script.") - (delay - number - "Timer delay in seconds.")) - -(define (home-timer-shepherd-service config) - (list - (shepherd-service - (documentation "Run a periodic task") - (provision (list (home-timer-configuration-name config))) - (respawn? #t) - (respawn-delay (home-timer-configuration-delay config)) - (start #~(make-forkexec-constructor - (cons #$(home-timer-configuration-script config) - #$(home-timer-configuration-arguments config)))) - (stop #~(make-kill-destructor))))) - -(define-public home-timer-service-type - (service-type - (name 'home-timer') - (extensions - (list (service-extension home-shepherd-service-type home-timer-shepherd-service))) - (description "Runs a script periodically based on a respawn delay"))) |
