aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAlex Kost <alezost@gmail.com>2015-10-15 22:10:32 +0300
committerAlex Kost <alezost@gmail.com>2015-10-16 17:24:13 +0300
commit727495757f7eca872cb5cb6603223e5a421cd26d (patch)
treefb34e021f861c9edd858bd678d12e01884ea8f2b
parente0c5309a8363b218452a225cdb51e4f681bf4628 (diff)
downloadguix-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.el26
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'.")