From 43b40c4b152a5d7113e3ee591f9f91a342c8fbac Mon Sep 17 00:00:00 2001
From: Alex Kost <alezost@gmail.com>
Date: Thu, 27 Aug 2015 22:47:26 +0300
Subject: [PATCH] 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.
---
 emacs/guix-base.el  | 4 ++++
 emacs/guix-main.scm | 5 +++++
 2 files changed, 9 insertions(+)

diff --git a/emacs/guix-base.el b/emacs/guix-base.el
index daf15bf45b0..1f4a00ce590 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 2c5b0baa659..191aa8d5cf4 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 @@ (define* (package-source-build-derivation package-id #:key dry-run?
 
 ;;; 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)
-- 
GitLab