summaryrefslogtreecommitdiff
path: root/emacs/guix-base.el
diff options
context:
space:
mode:
authorAlex Kost <alezost@gmail.com>2015-12-09 14:12:00 +0300
committerAlex Kost <alezost@gmail.com>2016-01-02 17:25:35 +0300
commitb1990426fdec1b0047a115116ac686c6dd4d4884 (patch)
treee4dc7df1420d96191d96b120309c2ee32ddded29 /emacs/guix-base.el
parent6c40b7b703424f757ff2e1fbb7503a525f9acfd8 (diff)
downloadguix-patches-b1990426fdec1b0047a115116ac686c6dd4d4884.tar
guix-patches-b1990426fdec1b0047a115116ac686c6dd4d4884.tar.gz
emacs: Reorganize 'readers' code.
* emacs/guix-base.el (guix-graph-type-names, guix-refresh-updater-names) (guix-lint-checker-names, guix-package-names): Move to... * emacs/guix-read.el: ... here. (guix-read-file-name, guix-define-reader, guix-define-readers): Move to... * emacs/guix-utils.el: ... here.
Diffstat (limited to 'emacs/guix-base.el')
-rw-r--r--emacs/guix-base.el29
1 files changed, 0 insertions, 29 deletions
diff --git a/emacs/guix-base.el b/emacs/guix-base.el
index 4bd88992c4..ab8acdfb31 100644
--- a/emacs/guix-base.el
+++ b/emacs/guix-base.el
@@ -109,35 +109,6 @@ For the meaning of location, see `guix-find-location'."
'package-location-string id-or-name)))
-;;; Receivable lists of packages, lint checkers, etc.
-
-(guix-memoized-defun guix-graph-type-names ()
- "Return a list of names of available graph node types."
- (guix-eval-read (guix-make-guile-expression 'graph-type-names)))
-
-(guix-memoized-defun guix-refresh-updater-names ()
- "Return a list of names of available refresh updater types."
- (guix-eval-read (guix-make-guile-expression 'refresh-updater-names)))
-
-(guix-memoized-defun guix-lint-checker-names ()
- "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 <https://github.com/jaor/geiser/issues/64>:
- ;; 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<))
-
-
;;; Getting and displaying info about packages and generations
(defcustom guix-package-list-type 'output