From 27a2e483370f9d08b9724a2c82b1fee9b15ce58a Mon Sep 17 00:00:00 2001 From: Alex Kost Date: Tue, 12 Jan 2016 18:10:14 +0300 Subject: 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(+) diff --git a/doc/emacs.texi b/doc/emacs.texi index 7edaedc078..eb470ab4ca 100644 --- a/doc/emacs.texi +++ b/doc/emacs.texi @@ -163,6 +163,11 @@ Search for packages by a specified regexp. By default ``name'', ``synopsis'' and ``description'' of the packages will be searched. This can be changed by modifying @code{guix-package-search-params} variable. +@item 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 0696c4b565..29514527ce 100644 --- a/emacs/guix-ui-package.el +++ b/emacs/guix-ui-package.el @@ -938,6 +938,17 @@ Interactively with prefix, prompt for PROFILE." (guix-package-get-display profile 'regexp regexp (or params guix-package-search-params))) +;;;###autoload +(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)) + ;;;###autoload (defun guix-installed-packages (&optional profile) "Display information about installed Guix packages. -- cgit v1.2.3