diff options
| author | Alex Kost <alezost@gmail.com> | 2015-08-27 22:47:26 +0300 |
|---|---|---|
| committer | Alex Kost <alezost@gmail.com> | 2015-08-30 18:26:02 +0300 |
| commit | 43b40c4b152a5d7113e3ee591f9f91a342c8fbac (patch) | |
| tree | af804fad32d11feddf66ac1f27b488af3c0bc04d | |
| parent | c1a8c5ab1caf53dad66ff25cb9eeaa1b6b8ed3f3 (diff) | |
| download | guix-43b40c4b152a5d7113e3ee591f9f91a342c8fbac.tar.gz | |
emacs: Add 'guix-graph-type-names'.
* emacs/guix-main.scm: Use (guix scripts graph) module. (graph-type-names): New procedure. * emacs/guix-base.el (guix-graph-type-names): New function.
| -rw-r--r-- | emacs/guix-base.el | 4 | ||||
| -rw-r--r-- | emacs/guix-main.scm | 5 |
2 files changed, 9 insertions, 0 deletions
diff --git a/emacs/guix-base.el b/emacs/guix-base.el index daf15bf45b..1f4a00ce59 100644 --- a/emacs/guix-base.el +++ b/emacs/guix-base.el @@ -183,6 +183,10 @@ If PATH is relative, it is considered to be relative to ;;; 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-lint-checker-names () "Return a list of names of available lint checkers." (guix-eval-read (guix-make-guile-expression 'lint-checker-names))) diff --git a/emacs/guix-main.scm b/emacs/guix-main.scm index 2c5b0baa65..191aa8d5cf 100644 --- a/emacs/guix-main.scm +++ b/emacs/guix-main.scm @@ -57,6 +57,7 @@ (guix licenses) (guix utils) (guix ui) + (guix scripts graph) (guix scripts lint) (guix scripts package) (guix scripts pull) @@ -932,6 +933,10 @@ GENERATIONS is a list of generation numbers." ;;; Lists of packages, lint checkers, etc. +(define (graph-type-names) + "Return a list of names of available graph node types." + (map node-type-name %node-types)) + (define (lint-checker-names) "Return a list of names of available lint checkers." (map (lambda (checker) |