nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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.
This commit is contained in:
Alex Kost 2015-08-27 22:47:26 +03:00
parent c1a8c5ab1c
commit 43b40c4b15
2 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
emacs/guix-base.el
View File

@ -183,6 +183,10 @@ If PATH is relative, it is considered to be relative to
;;; Receivable lists of packages, lint checkers, etc. ;;; 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 () (guix-memoized-defun guix-lint-checker-names ()
"Return a list of names of available lint checkers." "Return a list of names of available lint checkers."
(guix-eval-read (guix-make-guile-expression 'lint-checker-names))) (guix-eval-read (guix-make-guile-expression 'lint-checker-names)))

5
emacs/guix-main.scm
View File

@ -57,6 +57,7 @@
(guix licenses) (guix licenses)
(guix utils) (guix utils)
(guix ui) (guix ui)
(guix scripts graph)
(guix scripts lint) (guix scripts lint)
(guix scripts package) (guix scripts package)
(guix scripts pull) (guix scripts pull)
@ -932,6 +933,10 @@ GENERATIONS is a list of generation numbers."
;;; Lists of packages, lint checkers, etc. ;;; 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) (define (lint-checker-names)
"Return a list of names of available lint checkers." "Return a list of names of available lint checkers."
(map (lambda (checker) (map (lambda (checker)