From 25a2839c9dfb72fc4eddf0621b80023f87fc2e2e Mon Sep 17 00:00:00 2001
From: Alex Kost <alezost@gmail.com>
Date: Wed, 12 Aug 2015 14:40:47 +0300
Subject: 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.
---
 emacs/guix-main.scm | 11 +++++++++++
 1 file changed, 11 insertions(+)

(limited to 'emacs/guix-main.scm')

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)))
-- 
cgit v1.2.3