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

emacs: Add "View graph" actions to system graph commands. 

* emacs/guix-command.el (guix-command-additional-execute-arguments,
  guix-command-special-executors): Add "View graph" actions for
  'dmd-graph' and 'extension-graph' commands.
This commit is contained in:
Alex Kost 2015-10-15 22:10:32 +03:00
parent e0c5309a83
commit 727495757f
1 changed files with 16 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
emacs/guix-command.el
View File

@ -499,15 +499,17 @@ to be modified."
"List of default 'execute' action arguments.") "List of default 'execute' action arguments.")
(defvar guix-command-additional-execute-arguments (defvar guix-command-additional-execute-arguments
`((("build") (let ((graph-arg (guix-command-make-argument
,(guix-command-make-argument :name "view" :char ?v :doc "View graph")))
:name "log" :char ?l :doc "View build log")) `((("build")
(("graph") ,(guix-command-make-argument
,(guix-command-make-argument :name "log" :char ?l :doc "View build log"))
:name "view" :char ?v :doc "View graph")) (("graph") ,graph-arg)
(("size") (("size")
,(guix-command-make-argument ,(guix-command-make-argument
:name "view" :char ?v :doc "View map"))) :name "view" :char ?v :doc "View map"))
(("system" "dmd-graph") ,graph-arg)
(("system" "extension-graph") ,graph-arg)))
"Alist of guix commands and additional 'execute' action arguments.") "Alist of guix commands and additional 'execute' action arguments.")
(defun guix-command-execute-arguments (commands) (defun guix-command-execute-arguments (commands)
@ -531,7 +533,11 @@ to be modified."
(("graph") (("graph")
("view" . guix-run-view-graph)) ("view" . guix-run-view-graph))
(("size") (("size")
("view" . guix-run-view-size-map))) ("view" . guix-run-view-size-map))
(("system" "dmd-graph")
("view" . guix-run-view-graph))
(("system" "extension-graph")
("view" . guix-run-view-graph)))
"Alist of guix commands and alists of special executers for them. "Alist of guix commands and alists of special executers for them.
See also `guix-command-default-executors'.") See also `guix-command-default-executors'.")