From 25a2839c9dfb72fc4eddf0621b80023f87fc2e2e Mon Sep 17 00:00:00 2001 From: Alex Kost 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-base.el | 14 ++++++++++++++ emacs/guix-main.scm | 11 +++++++++++ 2 files changed, 25 insertions(+) (limited to 'emacs') diff --git a/emacs/guix-base.el b/emacs/guix-base.el index 1f4a00ce59..9cec510406 100644 --- a/emacs/guix-base.el +++ b/emacs/guix-base.el @@ -191,6 +191,20 @@ If PATH is relative, it is considered to be relative to "Return a list of names of available lint checkers." (guix-eval-read (guix-make-guile-expression 'lint-checker-names))) +(guix-memoized-defun guix-package-names () + "Return a list of names of available packages." + (sort + ;; Work around : + ;; list of strings is parsed much slower than list of lists, + ;; so we use 'package-names-lists' instead of 'package-names'. + + ;; (guix-eval-read (guix-make-guile-expression 'package-names)) + + (mapcar #'car + (guix-eval-read (guix-make-guile-expression + 'package-names-lists))) + #'string<)) + ;;; Buffers and auto updating. 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 @@ (define (lint-checker-names) (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