unofficial mirror of guix-patches@gnu.org 
 help / color / mirror / code / Atom feed
* [bug#58170] [PATCH 0/1] gnu: home: Add home-batsignal-service-type.
@ 2022-09-29 16:38 ( via Guix-patches via
  2022-09-29 16:40 ` [bug#58170] [PATCH 1/1] " ( via Guix-patches via
  0 siblings, 1 reply; 4+ messages in thread
From: ( via Guix-patches via @ 2022-09-29 16:38 UTC (permalink / raw)
  To: 58170; +Cc: (

This patchset adds a home service for ``batsignal'', a power monitoring
daemon.

( (1):
  gnu: home: Add home-batsignal-service-type.

 doc/guix.texi            |  89 ++++++++++++++++++++++--
 gnu/home/services/pm.scm | 145 +++++++++++++++++++++++++++++++++++++++
 gnu/local.mk             |   2 +
 3 files changed, 230 insertions(+), 6 deletions(-)
 create mode 100644 gnu/home/services/pm.scm

-- 
2.37.3





^ permalink raw reply	[flat|nested] 4+ messages in thread

* [bug#58170] [PATCH 1/1] gnu: home: Add home-batsignal-service-type.
  2022-09-29 16:38 [bug#58170] [PATCH 0/1] gnu: home: Add home-batsignal-service-type ( via Guix-patches via
@ 2022-09-29 16:40 ` ( via Guix-patches via
  2022-10-04 13:27   ` Andrew Tropin
  0 siblings, 1 reply; 4+ messages in thread
From: ( via Guix-patches via @ 2022-09-29 16:40 UTC (permalink / raw)
  To: 58170; +Cc: (

* 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.
---
 doc/guix.texi            |  89 ++++++++++++++++++++++--
 gnu/home/services/pm.scm | 145 +++++++++++++++++++++++++++++++++++++++
 gnu/local.mk             |   2 +
 3 files changed, 230 insertions(+), 6 deletions(-)
 create mode 100644 gnu/home/services/pm.scm

diff --git a/doc/guix.texi b/doc/guix.texi
index c534574f81..081a7fb34f 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
@@ -40119,12 +40120,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
 
@@ -40572,6 +40574,81 @@ specifications,, mcron, GNU@tie{}mcron}).
 @end table
 @end deftp
 
+@node 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 4e982dc6e3..9ef10fcbfe 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			\
-- 
2.37.3





^ permalink raw reply related	[flat|nested] 4+ messages in thread

* [bug#58170] [PATCH 1/1] gnu: home: Add home-batsignal-service-type.
  2022-09-29 16:40 ` [bug#58170] [PATCH 1/1] " ( via Guix-patches via
@ 2022-10-04 13:27   ` Andrew Tropin
  2022-10-04 18:53     ` ( via Guix-patches via
  0 siblings, 1 reply; 4+ messages in thread
From: Andrew Tropin @ 2022-10-04 13:27 UTC (permalink / raw)
  To: 58170; +Cc: (

[-- Attachment #1: Type: text/plain, Size: 14081 bytes --]

On 2022-09-29 17:40, "\( via Guix-patches" via wrote:

> * 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.
> ---
>  doc/guix.texi            |  89 ++++++++++++++++++++++--
>  gnu/home/services/pm.scm | 145 +++++++++++++++++++++++++++++++++++++++
>  gnu/local.mk             |   2 +
>  3 files changed, 230 insertions(+), 6 deletions(-)
>  create mode 100644 gnu/home/services/pm.scm
>
> diff --git a/doc/guix.texi b/doc/guix.texi
> index c534574f81..081a7fb34f 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
> @@ -40119,12 +40120,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
>  
> @@ -40572,6 +40574,81 @@ specifications,, mcron, GNU@tie{}mcron}).
>  @end table
>  @end deftp
>  
> +@node 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 4e982dc6e3..9ef10fcbfe 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			\

Hi!

Slightly reworded commit message and fixed texinfo warning, applied,
thank you!

7030f592c643360105514f9f1f923b0b6342d5e3

-- 
Best regards,
Andrew Tropin

[-- Attachment #2: signature.asc --]
[-- Type: application/pgp-signature, Size: 832 bytes --]

^ permalink raw reply	[flat|nested] 4+ messages in thread

* [bug#58170] [PATCH 1/1] gnu: home: Add home-batsignal-service-type.
  2022-10-04 13:27   ` Andrew Tropin
@ 2022-10-04 18:53     ` ( via Guix-patches via
  0 siblings, 0 replies; 4+ messages in thread
From: ( via Guix-patches via @ 2022-10-04 18:53 UTC (permalink / raw)
  To: andrew, 58170

On Tue Oct 4, 2022 at 2:27 PM BST, Andrew Tropin wrote:
> Slightly reworded commit message and fixed texinfo warning, applied,
> thank you!

Thanks Andrew! :D

    -- (




^ permalink raw reply	[flat|nested] 4+ messages in thread

end of thread, other threads:[~2022-10-04 18:54 UTC | newest]

Thread overview: 4+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2022-09-29 16:38 [bug#58170] [PATCH 0/1] gnu: home: Add home-batsignal-service-type ( via Guix-patches via
2022-09-29 16:40 ` [bug#58170] [PATCH 1/1] " ( via Guix-patches via
2022-10-04 13:27   ` Andrew Tropin
2022-10-04 18:53     ` ( via Guix-patches via

Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/guix.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).