diff options
author | Alex Kost <alezost@gmail.com> | 2015-12-09 14:12:00 +0300 |
---|---|---|
committer | Alex Kost <alezost@gmail.com> | 2016-01-02 17:25:35 +0300 |
commit | b1990426fdec1b0047a115116ac686c6dd4d4884 (patch) | |
tree | e4dc7df1420d96191d96b120309c2ee32ddded29 /emacs/guix-base.el | |
parent | 6c40b7b703424f757ff2e1fbb7503a525f9acfd8 (diff) | |
download | gnu-guix-b1990426fdec1b0047a115116ac686c6dd4d4884.tar gnu-guix-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.el | 29 |
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 |