diff options
| author | Alex Kost <alezost@gmail.com> | 2015-08-12 14:40:47 +0300 |
|---|---|---|
| committer | Alex Kost <alezost@gmail.com> | 2015-08-30 18:26:02 +0300 |
| commit | 25a2839c9dfb72fc4eddf0621b80023f87fc2e2e (patch) | |
| tree | a64f28cbfc674a4106a1ffad629d0842121e8f05 /emacs/guix-main.scm | |
| parent | 43b40c4b152a5d7113e3ee591f9f91a342c8fbac (diff) | |
| download | patches-25a2839c9dfb72fc4eddf0621b80023f87fc2e2e.tar patches-25a2839c9dfb72fc4eddf0621b80023f87fc2e2e.tar.gz | |
emacs: Add 'guix-package-names'.
* emacs/guix-main.scm (package-names, package-names-lists): New procedures.
* emacs/guix-base.el (guix-package-names): New function.
Diffstat (limited to 'emacs/guix-main.scm')
| -rw-r--r-- | emacs/guix-main.scm | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/emacs/guix-main.scm b/emacs/guix-main.scm index 191aa8d5cf..341657d931 100644 --- a/emacs/guix-main.scm +++ b/emacs/guix-main.scm @@ -942,3 +942,14 @@ GENERATIONS is a list of generation numbers." (map (lambda (checker) (symbol->string (lint-checker-name checker))) %checkers)) + +(define (package-names) + "Return a list of names of available packages." + (delete-duplicates + (fold-packages (lambda (pkg res) + (cons (package-name pkg) res)) + '()))) + +;; See the comment to 'guix-package-names' function in "guix-popup.el". +(define (package-names-lists) + (map list (package-names))) |