04/07: gnu: Add xssstate.

[guix-commits]

cbaines pushed a commit to branch master
in repository guix.

commit 1acd3cdc9e18ae1b2994263d738c309166df919a
Author: Ivan Vilata-i-Balaguer <ivan@selidor.net>
AuthorDate: Sat Apr 6 11:24:50 2024 +0100

    gnu: Add xssstate.
    
    * gnu/packages/suckless.scm (xssstate): New variable.
    
    Reviewed-by: Steve George <steve@futurile.net>
    Signed-off-by: Christopher Baines <mail@cbaines.net>
    Change-Id: I80a44b979ae987b953dcbdb3979b9b4ad8e30c79
---
 gnu/packages/suckless.scm | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)

diff --git a/gnu/packages/suckless.scm b/gnu/packages/suckless.scm
index a907b2fc6b..39cf2e4cc5 100644
--- a/gnu/packages/suckless.scm
+++ b/gnu/packages/suckless.scm
@@ -14,6 +14,7 @@
 ;;; Copyright © 2022 Jai Vetrivelan <jaivetrivelan@gmail.com>
 ;;; Copyright © 2022 jgart <jgart@dismail.de>
 ;;; Copyright © 2022 Antero Mejr <antero@mailbox.org>
+;;; Copyright © 2022 Ivan Vilata i Balaguer <ivan@selidor.net>
 ;;; Copyright © 2024 Clément Lassieur <clement@lassieur.org>
 ;;; Copyright © 2024 Zheng Junjie <873216071@qq.com>
 ;;; Copyright © 2024 cage <cage-dev@twistfold.it>
@@ -1361,6 +1362,35 @@ It also contains the Plan 9 libbio, libregexp, libfmt 
and libutf libraries.")
       (license (list license:expat ;modifications
                      license:lpl1.02))))) ;original plan9 code
 
+(define-public xssstate
+  (package
+    (name "xssstate")
+    (version "1.1")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append "https://dl.suckless.org/tools/xssstate-";
+                                  version ".tar.gz"))
+              (sha256
+               (base32
+                "04b03jz38pn5qhddg8a9hh01qqzrrdjvsq09qrxj9sx8lq2gbdn4"))))
+    (build-system gnu-build-system)
+    (arguments
+     (list
+      #:tests? #f  ; no tests
+      #:make-flags #~(list (string-append "CC="
+                                          #$(cc-for-target))
+                           (string-append "PREFIX=" #$output))
+      #:phases #~(modify-phases %standard-phases
+                   (delete 'configure))))
+    (inputs (list libxscrnsaver))
+    (home-page "https://tools.suckless.org/x/xssstate/";)
+    (synopsis "Simple tool to retrieve the X screensaver state")
+    (description
+     "A utility to retrieve the state of the X screensaver.  These
+states include the idle time, the screensaver state and the length of time
+until the screensaver should be activated.")
+    (license license:x11)))
+
 (define-public 9yacc
   (package
     (inherit lib9)