guix
/
emacs-guix
mirror of git://git.savannah.gnu.org/guix/emacs-guix.git
2
0
Fork 0
Code Issues Projects Releases Wiki Activity

elisp/ui-package: Add 'guix-package-use-name-at-point' variable 

* elisp/guix-ui-package.el (guix-package-use-name-at-point): New variable.
(guix-packages-by-name): Use it.
This commit is contained in:
Alex Kost 2021-06-08 19:53:06 +03:00 committed by Theo Tyburn
parent 36a151b2fc
commit 85d1f49e41
1 changed files with 14 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
elisp/guix-ui-package.el
View File

@ -52,6 +52,13 @@ a separate line)."
(const :tag "List of outputs" output))
:group 'guix-package)
(defcustom guix-package-use-name-at-point t
"If non-nil, \\[guix-packages-by-name] uses symbol at point as default
if it is a package name.
If nil, then no default name is used."
:type 'boolean
:group 'guix-package)
(defun guix-package-list-type ()
"Return BUI list entry-type by `guix-package-list-type' variable."
(guix-make-symbol guix-package-list-type))
@ -1512,12 +1519,13 @@ a version number. Examples: \"guile\", \"guile@2.0.11\".
If PROFILE is nil, use `guix-current-profile'.
Interactively with prefix, prompt for PROFILE."
(interactive
(let ((at-point (thing-at-point 'symbol t))
default-pkg)
(when (stringp at-point)
(let ((at-point (car (split-string at-point "@"))))
(setq default-pkg (and (member at-point (guix-package-names))
at-point))))
(let (default-pkg)
(when guix-package-use-name-at-point
(let ((at-point (thing-at-point 'symbol t)))
(when (stringp at-point)
(let ((at-point (car (split-string at-point "@"))))
(setq default-pkg (and (member at-point (guix-package-names))
at-point))))))
(list (guix-read-package-name "Package: " default-pkg)
(guix-ui-read-package-profile))))
(guix-package-get-display profile 'name name))