From patchwork Tue Jan 29 15:37:49 2019 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit X-Patchwork-Submitter: Christopher Baines X-Patchwork-Id: 915 Return-Path: X-Original-To: patchwork@mira.cbaines.net Delivered-To: patchwork@mira.cbaines.net Received: by mira.cbaines.net (Postfix, from userid 113) id D409516AFF; Tue, 29 Jan 2019 15:56:33 +0000 (GMT) X-Spam-Checker-Version: SpamAssassin 3.4.0 (2014-02-07) on mira.cbaines.net X-Spam-Level: X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00,UNPARSEABLE_RELAY, URIBL_BLOCKED autolearn=unavailable autolearn_force=no version=3.4.0 Received: from lists.gnu.org (lists.gnu.org [209.51.188.17]) by mira.cbaines.net (Postfix) with ESMTP id 976B316AF9 for ; Tue, 29 Jan 2019 15:56:33 +0000 (GMT) Received: from localhost ([127.0.0.1]:51460 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1goVkW-0001OX-S9 for patchwork@mira.cbaines.net; Tue, 29 Jan 2019 10:56:32 -0500 Received: from eggs.gnu.org ([209.51.188.92]:34283) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1goVh5-0006ie-S3 for guix-patches@gnu.org; Tue, 29 Jan 2019 10:53:00 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1goVSc-00006s-Nz for guix-patches@gnu.org; Tue, 29 Jan 2019 10:38:03 -0500 Received: from debbugs.gnu.org ([209.51.188.43]:51432) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1goVSc-00006T-KN for guix-patches@gnu.org; Tue, 29 Jan 2019 10:38:02 -0500 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1goVSb-0003Xf-VT for guix-patches@gnu.org; Tue, 29 Jan 2019 10:38:02 -0500 X-Loop: help-debbugs@gnu.org Subject: [bug#34246] [PATCH 3/3] services: desktop: Deprecate the upower-service procedure. Resent-From: Christopher Baines Original-Sender: "Debbugs-submit" Resent-CC: guix-patches@gnu.org Resent-Date: Tue, 29 Jan 2019 15:38:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 34246 X-GNU-PR-Package: guix-patches X-GNU-PR-Keywords: patch To: 34246@debbugs.gnu.org Received: via spool by 34246-submit@debbugs.gnu.org id=B34246.154877627213586 (code B ref 34246); Tue, 29 Jan 2019 15:38:01 +0000 Received: (at 34246) by debbugs.gnu.org; 29 Jan 2019 15:37:52 +0000 Received: from localhost ([127.0.0.1]:50709 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1goVSS-0003X3-9u for submit@debbugs.gnu.org; Tue, 29 Jan 2019 10:37:52 -0500 Received: from li622-129.members.linode.com ([212.71.249.129]:60114 helo=mira.cbaines.net) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1goVSQ-0003Wi-Lf for 34246@debbugs.gnu.org; Tue, 29 Jan 2019 10:37:51 -0500 Received: from localhost (cpc102582-walt20-2-0-cust14.13-2.cable.virginm.net [86.27.34.15]) by mira.cbaines.net (Postfix) with ESMTPSA id 9F8A516AFB for <34246@debbugs.gnu.org>; Tue, 29 Jan 2019 15:37:49 +0000 (GMT) Received: from localhost (localhost [local]) by localhost (OpenSMTPD) with ESMTPA id 6bceb931 for <34246@debbugs.gnu.org>; Tue, 29 Jan 2019 15:37:49 +0000 (UTC) From: Christopher Baines Date: Tue, 29 Jan 2019 15:37:49 +0000 Message-Id: <20190129153749.10830-3-mail@cbaines.net> X-Mailer: git-send-email 2.20.1 In-Reply-To: <20190129153749.10830-1-mail@cbaines.net> References: <877eenqy8f.fsf@cbaines.net> <20190129153749.10830-1-mail@cbaines.net> MIME-Version: 1.0 X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic] X-Received-From: 209.51.188.43 X-BeenThere: guix-patches@gnu.org List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-patches-bounces+patchwork=mira.cbaines.net@gnu.org Sender: "Guix-patches" X-getmail-retrieved-from-mailbox: Patches 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