summaryrefslogtreecommitdiff
path: root/emacs
diff options
context:
space:
mode:
authorAlex Kost <alezost@gmail.com>2015-08-27 22:47:26 +0300
committerAlex Kost <alezost@gmail.com>2015-08-30 18:26:02 +0300
commit43b40c4b152a5d7113e3ee591f9f91a342c8fbac (patch)
treeaf804fad32d11feddf66ac1f27b488af3c0bc04d /emacs
parentc1a8c5ab1caf53dad66ff25cb9eeaa1b6b8ed3f3 (diff)
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.
Diffstat (limited to 'emacs')
-rw-r--r--emacs/guix-base.el4
-rw-r--r--emacs/guix-main.scm5
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)