diff options
| author | Alex Kost <alezost@gmail.com> | 2015-10-15 22:10:32 +0300 |
|---|---|---|
| committer | Alex Kost <alezost@gmail.com> | 2015-10-16 17:24:13 +0300 |
| commit | 727495757f7eca872cb5cb6603223e5a421cd26d (patch) | |
| tree | fb34e021f861c9edd858bd678d12e01884ea8f2b | |
| parent | e0c5309a8363b218452a225cdb51e4f681bf4628 (diff) | |
| download | guix-727495757f7eca872cb5cb6603223e5a421cd26d.tar guix-727495757f7eca872cb5cb6603223e5a421cd26d.tar.gz | |
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.
| -rw-r--r-- | emacs/guix-command.el | 26 |
1 files changed, 16 insertions, 10 deletions
diff --git a/emacs/guix-command.el b/emacs/guix-command.el index 3ae779185e..1a42594b68 100644 --- a/emacs/guix-command.el +++ b/emacs/guix-command.el @@ -499,15 +499,17 @@ to be modified." "List of default 'execute' action arguments.") (defvar guix-command-additional-execute-arguments - `((("build") - ,(guix-command-make-argument - :name "log" :char ?l :doc "View build log")) - (("graph") - ,(guix-command-make-argument - :name "view" :char ?v :doc "View graph")) - (("size") - ,(guix-command-make-argument - :name "view" :char ?v :doc "View map"))) + (let ((graph-arg (guix-command-make-argument + :name "view" :char ?v :doc "View graph"))) + `((("build") + ,(guix-command-make-argument + :name "log" :char ?l :doc "View build log")) + (("graph") ,graph-arg) + (("size") + ,(guix-command-make-argument + :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.") (defun guix-command-execute-arguments (commands) @@ -531,7 +533,11 @@ to be modified." (("graph") ("view" . guix-run-view-graph)) (("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. See also `guix-command-default-executors'.") |