summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
author( via Guix-patches via <guix-patches@gnu.org>2022-09-29 17:40:20 +0100
committerAndrew Tropin <andrew@trop.in>2022-10-04 17:04:45 +0400
commit7030f592c643360105514f9f1f923b0b6342d5e3 (patch)
tree609a55d5f28da4b666877ee63d0522a2d2488bee
parent224fd038f2908beb8104ddb4b26c7300fceda686 (diff)
home: Add home-batsignal-service-type.
* gnu/home/services/pm.scm (home-batsignal-service-type): New variable. (home-batsignal-configuration): New record type. * doc/guix.texi: Document them. * gnu/local.mk: Add gnu/home/services/pm.scm.
-rw-r--r--doc/guix.texi90
-rw-r--r--gnu/home/services/pm.scm145
-rw-r--r--gnu/local.mk2
3 files changed, 231 insertions, 6 deletions
diff --git a/doc/guix.texi b/doc/guix.texi
index fb9efe6b4f..eeec4dec2c 100644
--- a/doc/guix.texi
+++ b/doc/guix.texi
@@ -107,6 +107,7 @@ Copyright @copyright{} 2022 Karl Hallsby@*
Copyright @copyright{} 2022 Justin Veilleux@*
Copyright @copyright{} 2022 Reily Siegel@*
Copyright @copyright{} 2022 Simon Streit@*
+Copyright @copyright{} 2022 (@*
Permission is granted to copy, distribute and/or modify this document
under the terms of the GNU Free Documentation License, Version 1.3 or
@@ -40154,12 +40155,13 @@ services)}.
@menu
* Essential Home Services:: Environment variables, packages, on-* scripts.
-* Shells: Shells Home Services. POSIX shells, Bash, Zsh.
-* Mcron: Mcron Home Service. Scheduled User's Job Execution.
-* Shepherd: Shepherd Home Service. Managing User's Daemons.
-* SSH: Secure Shell. Setting up the secure shell client.
-* Desktop: Desktop Home Services. Services for graphical environments.
-* Guix: Guix Home Services. Services for Guix.
+* Shells: Shells Home Services. POSIX shells, Bash, Zsh.
+* Mcron: Mcron Home Service. Scheduled User's Job Execution.
+* Power Management: Power Management Home Services. Services for battery power.
+* Shepherd: Shepherd Home Service. Managing User's Daemons.
+* SSH: Secure Shell. Setting up the secure shell client.
+* Desktop: Desktop Home Services. Services for graphical environments.
+* Guix: Guix Home Services. Services for Guix.
@end menu
@c In addition to that Home Services can provide
@@ -40607,6 +40609,82 @@ specifications,, mcron, GNU@tie{}mcron}).
@end table
@end deftp
+@node Power Management Home Services
+@subsection Power Management Home Services
+
+@cindex power management
+The @code{(gnu home services pm)} module provides home services
+pertaining to battery power.
+
+@defvr {Scheme Variable} home-batsignal-service-type
+Service for @code{batsignal}, a program that monitors battery levels
+and warns the user through desktop notifications when their battery
+is getting low. You can also configure a command to be run when the
+battery level passes a point deemed ``dangerous''. This service is
+configured with the @code{home-batsignal-configuration} record.
+@end defvr
+
+@deftp {Data Type} home-batsignal-configuration
+Data type representing the configuration for batsignal.
+
+@table @asis
+@item @code{warning-level} (default: @code{15})
+The battery level to send a warning message at.
+
+@item @code{warning-message} (default: @code{#f})
+The message to send as a notification when the battery level reaches
+the @code{warning-level}. Setting to @code{#f} uses the default
+message.
+
+@item @code{critical-level} (default: @code{5})
+The battery level to send a critical message at.
+
+@item @code{critical-message} (default: @code{#f})
+The message to send as a notification when the battery level reaches
+the @code{critical-level}. Setting to @code{#f} uses the default
+message.
+
+@item @code{danger-level} (default: @code{2})
+The battery level to run the @code{danger-command} at.
+
+@item @code{danger-command} (default: @code{#f})
+The command to run when the battery level reaches the @code{danger-level}.
+Setting to @code{#f} disables running the command entirely.
+
+@item @code{full-level} (default: @code{#f})
+The battery level to send a full message at. Setting to @code{#f}
+disables sending the full message entirely.
+
+@item @code{full-message} (default: @code{#f})
+The message to send as a notification when the battery level reaches
+the @code{full-level}. Setting to @code{#f} uses the default message.
+
+@item @code{batteries} (default: @code{'()})
+The batteries to monitor. Setting to @code{'()} tries to find batteries
+automatically.
+
+@item @code{poll-delay} (default: @code{60})
+The time in seconds to wait before checking the batteries again.
+
+@item @code{icon} (default: @code{#f})
+A file-like object to use as the icon for battery notifications. Setting
+to @code{#f} disables notification icons entirely.
+
+@item @code{notifications?} (default: @code{#t})
+Whether to send any notifications.
+
+@item @code{notifications-expire?} (default: @code{#f})
+Whether notifications sent expire after a time.
+
+@item @code{notification-command} (default: @code{#f})
+Command to use to send messages. Setting to @code{#f} sends a notification
+through @code{libnotify}.
+
+@item @code{ignore-missing?} (default: @code{#f})
+Whether to ignore missing battery errors.
+@end table
+@end deftp
+
@node Shepherd Home Service
@subsection Managing User Daemons
diff --git a/gnu/home/services/pm.scm b/gnu/home/services/pm.scm
new file mode 100644
index 0000000000..5f09941827
--- /dev/null
+++ b/gnu/home/services/pm.scm
@@ -0,0 +1,145 @@
+;;; GNU Guix --- Functional package management for GNU
+;;; Copyright © 2022 ( <paren@disroot.org>
+;;;
+;;; This file is part of GNU Guix.
+;;;
+;;; GNU Guix is free software; you can redistribute it and/or modify
+;;; it under the terms of the GNU General Public License as published by
+;;; the Free Software Foundation, either version 3 of the License, or
+;;; (at your option) any later version.
+;;;
+;;; GNU Guix is distributed in the hope that it will be useful,
+;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;;; GNU General Public License for more details.
+;;;
+;;; You should have received a copy of the GNU General Public License
+;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
+
+(define-module (gnu home services pm)
+ #:use-module (guix gexp)
+ #:use-module (guix packages)
+ #:use-module (guix records)
+ #:use-module (gnu home services)
+ #:use-module (gnu home services shepherd)
+ #:use-module (gnu packages monitoring)
+ #:use-module (gnu services shepherd)
+
+ #:export (home-batsignal-configuration
+ home-batsignal-service-type))
+
+;;;
+;;; batsignal
+;;;
+;;; Daemon for running commands and displaying notifications on
+;;; battery events.
+;;;
+
+(define-record-type* <home-batsignal-configuration>
+ home-batsignal-configuration make-home-batsignal-configuration
+ home-batsignal-configuration?
+ (warning-level batsignal-warning-level ;integer
+ (default 15))
+ (warning-message batsignal-warning-message ;string | #f
+ (default #f))
+ (critical-level batsignal-critical-level ;integer
+ (default 5))
+ (critical-message batsignal-critical-message ;string | #f
+ (default #f))
+ (danger-level batsignal-danger-level ;integer
+ (default 2))
+ (danger-command batsignal-danger-command ;file-like | string | #f
+ (default #f))
+ (full-level batsignal-full-level ;integer | #f
+ (default #f))
+ (full-message batsignal-full-message ;string | #f
+ (default #f))
+ (batteries batsignal-batteries ;list of string
+ (default '()))
+ (poll-delay batsignal-poll-delay ;integer
+ (default 60))
+ (icon batsignal-icon ;file-like | #f
+ (default #f))
+ (notifications? batsignal-notifications? ;boolean
+ (default #t))
+ (notifications-expire? batsignal-notifications-expire? ;boolean
+ (default #f))
+ (notification-command batsignal-notification-command ;string | #f
+ (default #f))
+ (ignore-missing? batsignal-ignore-missing? ;boolean
+ (default #f)))
+
+(define (home-batsignal-shepherd-services config)
+ (let ((warning-level (batsignal-warning-level config))
+ (warning-message (batsignal-warning-message config))
+ (critical-level (batsignal-critical-level config))
+ (critical-message (batsignal-critical-message config))
+ (danger-level (batsignal-danger-level config))
+ (danger-command (batsignal-danger-command config))
+ (full-level (batsignal-full-level config))
+ (full-message (batsignal-full-message config))
+ (batteries (batsignal-batteries config))
+ (poll-delay (batsignal-poll-delay config))
+ (icon (batsignal-icon config))
+ (notifications? (batsignal-notifications? config))
+ (notifications-expire? (batsignal-notifications-expire? config))
+ (notification-command (batsignal-notification-command config))
+ (ignore-missing? (batsignal-ignore-missing? config)))
+ (list (shepherd-service
+ (provision '(batsignal))
+ (documentation "Run the batsignal battery-watching daemon.")
+ (start #~(make-forkexec-constructor
+ (append (list #$(file-append batsignal "/bin/batsignal")
+ "-w" (number->string #$warning-level)
+ "-c" (number->string #$critical-level)
+ "-d" (number->string #$danger-level)
+ "-m" (number->string #$poll-delay))
+ (if #$warning-message
+ (list "-W" #$warning-message)
+ (list))
+ (if #$critical-message
+ (list "-C" #$critical-message)
+ (list))
+ (if #$danger-command
+ (list "-D" #$danger-command)
+ (list))
+ (if #$full-level
+ (list "-f" (number->string #$full-level))
+ (list))
+ (if #$full-message
+ (list "-F" #$full-message)
+ (list))
+ (if (null? (list #$@batteries))
+ (list)
+ (list "-n" (string-join (list #$@batteries) ",")))
+ (if #$icon
+ (list "-I" #$icon)
+ (list))
+ (if #$notifications?
+ (list)
+ (list "-N"))
+ (if #$notifications-expire?
+ (list "-e")
+ (list))
+ (if #$notification-command
+ (list "-M" #$notification-command)
+ (list))
+ (if #$ignore-missing?
+ (list "-i")
+ (list)))
+ #:log-file (string-append
+ (or (getenv "XDG_LOG_HOME")
+ (format #f "~a/.local/var/log"
+ (getenv "HOME")))
+ "/batsignal.log")))
+ (stop #~(make-kill-destructor))))))
+
+(define home-batsignal-service-type
+ (service-type
+ (name 'home-batsignal)
+ (extensions
+ (list (service-extension home-shepherd-service-type
+ home-batsignal-shepherd-services)))
+ (default-value (home-batsignal-configuration))
+ (description
+ "Run batsignal, a battery watching and notification daemon.")))
diff --git a/gnu/local.mk b/gnu/local.mk
index e9178923af..5976cbe90c 100644
--- a/gnu/local.mk
+++ b/gnu/local.mk
@@ -54,6 +54,7 @@
# Copyright © 2022 muradm <mail@muradm.net>
# Copyright © 2022 Hilton Chain <hako@ultrarare.space>
# Copyright © 2022 Alex Griffin <a@ajgrf.com>
+# Copyright © 2022 ( <paren@disroot.org>
#
# This file is part of GNU Guix.
#
@@ -89,6 +90,7 @@ GNU_SYSTEM_MODULES = \
%D%/home/services/symlink-manager.scm \
%D%/home/services/fontutils.scm \
%D%/home/services/guix.scm \
+ %D%/home/services/pm.scm \
%D%/home/services/shells.scm \
%D%/home/services/shepherd.scm \
%D%/home/services/ssh.scm \