[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

02/02: emacs: Add 'guix-search-by-name'.

From: Alex Kost
Subject: 02/02: emacs: Add 'guix-search-by-name'.
Date: Mon, 18 Jan 2016 16:12:06 +0000

alezost pushed a commit to branch master
in repository guix.

commit 27a2e483370f9d08b9724a2c82b1fee9b15ce58a
Author: Alex Kost <address@hidden>
Date:   Tue Jan 12 18:10:14 2016 +0300

    emacs: Add 'guix-search-by-name'.
    * emacs/guix-ui-package.el (guix-search-by-name): New command.
    * doc/emacs.texi (Emacs Commands): Document it.
 doc/emacs.texi           |    5 +++++
 emacs/guix-ui-package.el |   11 +++++++++++
 2 files changed, 16 insertions(+), 0 deletions(-)

diff --git a/doc/emacs.texi b/doc/emacs.texi
index 7edaedc..eb470ab 100644
--- a/doc/emacs.texi
+++ b/doc/emacs.texi
@@ -163,6 +163,11 @@ Search for packages by a specified regexp.  By default 
 ``synopsis'' and ``description'' of the packages will be searched.  This
 can be changed by modifying @code{guix-package-search-params} variable.
address@hidden M-x guix-search-by-name
+Search for packages with names matching a specified regexp.  This
+command is the same as @code{guix-search-by-regexp}, except only a
+package ``name'' is searched.
 @end table
 By default, these commands display each output on a separate line.  If
diff --git a/emacs/guix-ui-package.el b/emacs/guix-ui-package.el
index 0696c4b..2951452 100644
--- a/emacs/guix-ui-package.el
+++ b/emacs/guix-ui-package.el
@@ -939,6 +939,17 @@ Interactively with prefix, prompt for PROFILE."
                             (or params guix-package-search-params)))
+(defun guix-search-by-name (regexp &optional profile)
+  "Search for Guix packages matching REGEXP in a package name.
+If PROFILE is nil, use `guix-current-profile'.
+Interactively with prefix, prompt for PROFILE."
+  (interactive
+   (list (read-string "Package name by regexp: "
+                      nil 'guix-package-search-history)
+         (guix-ui-read-profile)))
+  (guix-search-by-regexp regexp '(name) profile))
 (defun guix-installed-packages (&optional profile)
   "Display information about installed Guix packages.
 If PROFILE is nil, use `guix-current-profile'.

reply via email to

[Prev in Thread] Current Thread [Next in Thread]