From 410ea2f0f8508ea53a4d982dec58f693e7bded4f Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Tue, 29 Jan 2019 15:17:11 +0000 Subject: services: desktop: Deprecate the upower-service procedure. This has now been replaced by the upower-service-type and record. * gnu/services/desktop.scm (upower-service): Deprecate this procedure. --- gnu/services/desktop.scm | 25 +++++++++++++------------ 1 file changed, 13 insertions(+), 12 deletions(-) diff --git a/gnu/services/desktop.scm b/gnu/services/desktop.scm index 896084d2d5..2264a3e8aa 100644 --- a/gnu/services/desktop.scm +++ b/gnu/services/desktop.scm @@ -50,6 +50,7 @@ #:use-module (gnu packages libusb) #:use-module (gnu packages mate) #:use-module (gnu packages enlightenment) + #:use-module (guix deprecation) #:use-module (guix records) #:use-module (guix packages) #:use-module (guix store) @@ -292,18 +293,18 @@ used by GNOME.") upower-package))) (default-value (upower-configuration))))) -(define* (upower-service #:key (upower upower) - (watts-up-pro? #f) - (poll-batteries? #t) - (ignore-lid? #f) - (use-percentage-for-policy? #f) - (percentage-low 10) - (percentage-critical 3) - (percentage-action 2) - (time-low 1200) - (time-critical 300) - (time-action 120) - (critical-power-action 'hybrid-sleep)) +(define-deprecated (upower-service #:key (upower upower) + (watts-up-pro? #f) + (poll-batteries? #t) + (ignore-lid? #f) + (use-percentage-for-policy? #f) + (percentage-low 10) + (percentage-critical 3) + (percentage-action 2) + (time-low 1200) + (time-critical 300) + (time-action 120) + (critical-power-action 'hybrid-sleep)) "Return a service that runs @uref{http://upower.freedesktop.org/, @command{upowerd}}, a system-wide monitor for power consumption and battery levels, with the given configuration settings. It implements the -- cgit v1.2.3