aboutsummaryrefslogtreecommitdiff
path: root/gnu/services
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2019-01-29 15:14:15 +0000
committerChristopher Baines <mail@cbaines.net>2019-02-16 22:05:15 +0000
commit8b9a7b26c290228223829f842240f3675a87da7b (patch)
tree2cf7cbc282eade22eb42797951f6be238c930abc /gnu/services
parent6b692e961c423c4d13497f6c5466ac230b063265 (diff)
downloadguix-8b9a7b26c290228223829f842240f3675a87da7b.tar
guix-8b9a7b26c290228223829f842240f3675a87da7b.tar.gz
services: Improve the upower-service-type.
Add a description and default value. Switch the documentation to mention the service-type and the configuration record, rather than the upower-service procedure. * gnu/services/desktop.scm (upower-service-type)[description, default-value]: Define these fields. (%desktop-services): Change (upower-service) to (service upower-service-type). * doc/guix.texi (Desktop Services): Update the upower service documentation.
Diffstat (limited to 'gnu/services')
-rw-r--r--gnu/services/desktop.scm10
1 files changed, 8 insertions, 2 deletions
diff --git a/gnu/services/desktop.scm b/gnu/services/desktop.scm
index df6764d278..a4d528f224 100644
--- a/gnu/services/desktop.scm
+++ b/gnu/services/desktop.scm
@@ -273,6 +273,11 @@ is set to @var{value} when the bus daemon launches it."
(define upower-service-type
(let ((upower-package (compose list upower-configuration-upower)))
(service-type (name 'upower)
+ (description
+ "Run @command{upowerd}}, a system-wide monitor for power
+consumption and battery levels, with the given configuration settings. It
+implements the @code{org.freedesktop.UPower} D-Bus interface, and is notably
+used by GNOME.")
(extensions
(list (service-extension dbus-root-service-type
upower-dbus-service)
@@ -285,7 +290,8 @@ is set to @var{value} when the bus daemon launches it."
;; Make the 'upower' command visible.
(service-extension profile-service-type
- upower-package))))))
+ upower-package)))
+ (default-value (upower-configuration)))))
(define* (upower-service #:key (upower upower)
(watts-up-pro? #f)
@@ -1029,7 +1035,7 @@ as expected.")))
(service wpa-supplicant-service-type) ;needed by NetworkManager
(service avahi-service-type)
(udisks-service)
- (upower-service)
+ (service upower-service-type)
(accountsservice-service)
(service cups-pk-helper-service-type)
(colord-service)