04/06: gnu: Add sbcl-stumpwm-wifi.

[guix-commits]

wigust pushed a commit to branch master
in repository guix.

commit 86ee8d15aa4950b52a148153e8fa0eeb826afdec
Author: Katherine Cox-Buday <cox.katherine.e@gmail.com>
AuthorDate: Thu Jun 4 17:41:21 2020 -0500

    gnu: Add sbcl-stumpwm-wifi.
    
    * gnu/packages/wm.scm (sbcl-stumpwm-wifi): New variable.
    
    Signed-off-by: Oleg Pykhalov <go.wigust@gmail.com>
---
 gnu/packages/wm.scm | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

diff --git a/gnu/packages/wm.scm b/gnu/packages/wm.scm
index 6165c80..b1747d6 100644
--- a/gnu/packages/wm.scm
+++ b/gnu/packages/wm.scm
@@ -1801,6 +1801,24 @@ between windows.")
      (filter (lambda (a) (string-contains a "linux")) %supported-systems))
     (license license:gpl3+)))
 
+(define-public sbcl-stumpwm-wifi
+  (package
+    (inherit stumpwm-contrib)
+    (name "sbcl-stumpwm-wifi")
+    (arguments
+     '(#:asd-system-name "wifi"
+       #:tests? #f
+       #:phases
+       (modify-phases %standard-phases
+         (add-after 'unpack 'chdir (lambda _ (chdir "modeline/wifi") #t)))))
+    (home-page
+     "https://github.com/stumpwm/stumpwm-contrib/tree/master/modeline/wifi";)
+    (synopsis "Modeline support for wifi connectivity")
+    (description "Modeline support for wifi connectivity.")
+    (supported-systems
+     (filter (lambda (a) (string-contains a "linux")) %supported-systems))
+    (license license:gpl3+)))
+
 (define-public lemonbar
   (let ((commit "35183ab81d2128dbb7b6d8e119cc57846bcefdb4")
         (revision "1"))