ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-24 05:18:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

emacs: Add 'guix-graph-type-names'.

Browse source 
* 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.
(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)))

5
emacs/guix-main.scm
View file

@ -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)