05/30: gnu: Add wmenu.

[guix-commits]

iyzsong pushed a commit to branch master
in repository guix.

commit d67b764ceb0da86a198ef692b162c80090f43af7
Author: Zheng Junjie <zhengjunjie@iscas.ac.cn>
AuthorDate: Sun Feb 25 14:47:39 2024 +0800

    gnu: Add wmenu.
    
    * gnu/packages/wm.scm (wmenu): New variable.
    
    Change-Id: I7395a23801471fba6a22a1b44f6c9a19dddd894e
    Signed-off-by: 宋文武 <iyzsong@member.fsf.org>
---
 gnu/packages/wm.scm | 29 +++++++++++++++++++++++++++++
 1 file changed, 29 insertions(+)

diff --git a/gnu/packages/wm.scm b/gnu/packages/wm.scm
index 906b7d844c..d76f92c5ed 100644
--- a/gnu/packages/wm.scm
+++ b/gnu/packages/wm.scm
@@ -1759,6 +1759,35 @@ modules for building a Wayland compositor.")
     (propagated-inputs (modify-inputs (package-propagated-inputs wlroots)
                          (delete libdisplay-info)))))
 
+(define-public wmenu
+  (package
+    (name "wmenu")
+    (version "0.1.7")
+    (source (origin
+              (method git-fetch)
+              (uri (git-reference
+                    (url "https://git.sr.ht/~adnano/wmenu";)
+                    (commit version)))
+              (file-name (git-file-name name version))
+              (sha256
+               (base32
+                "0wjn68r5cx4zvw7sby6sk2ip5h4fn0jbgb1nasm9nsgjpv63pnpm"))))
+    (build-system meson-build-system)
+    (native-inputs (append (if (%current-target-system)
+                               ;; for wayland-scanner
+                               (list pkg-config-for-build
+                                     wayland)
+                               '())
+                           (list pkg-config scdoc)))
+    (inputs (list cairo pango wayland libxkbcommon wayland-protocols))
+    (home-page "https://git.sr.ht/~adnano/wmenu";)
+    (synopsis "Dynamic menu for Wayland")
+    (description "@command{wmenu} is a dynamic menu for Wayland, which reads a 
list
+of newline-separated items from stdin.  When the user selects an item and 
presses
+Return, their choice is printed to stdout and wmenu terminates.  Entering text 
will
+narrow the items to those matching the tokens in the input.")
+    (license license:expat)))
+
 (define-public sway
   (package
     (name "sway")