From: Alex Kost <alezost@gmail.com>
To: guix-devel@gnu.org
Subject: [PATCH] emacs: Add "View graph" actions to system graph commands.
Date: Thu, 15 Oct 2015 22:46:21 +0300 [thread overview]
Message-ID: <87a8rjkj8y.fsf@gmail.com> (raw)
[-- Attachment #1: Type: text/plain, Size: 120 bytes --]
I like graph commands. Thanks, Ludo!
This patch adds "View graph" action for the new "M-x guix RET system"
commands.
[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: 0001-emacs-Add-View-graph-actions-to-system-graph-command.patch --]
[-- Type: text/x-patch, Size: 3714 bytes --]
From 79027171c9be2cececde951caf54758c4e1bb8f5 Mon Sep 17 00:00:00 2001
From: Alex Kost <alezost@gmail.com>
Date: Thu, 15 Oct 2015 22:10:32 +0300
Subject: [PATCH] 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.
* doc/emacs.texi (Emacs Popup Interface): Document "View graph" action.
---
doc/emacs.texi | 31 +++++++++++++++++++++++++++++++
emacs/guix-command.el | 26 ++++++++++++++++----------
2 files changed, 47 insertions(+), 10 deletions(-)
diff --git a/doc/emacs.texi b/doc/emacs.texi
index ab69515..cfd2301 100644
--- a/doc/emacs.texi
+++ b/doc/emacs.texi
@@ -531,6 +531,37 @@ GNU Emacs Manual}).
@end itemize
+Several commands (@command{guix graph}, @command{guix system dmd-graph}
+and @command{guix system extension-graph}) also have a ``View graph''
+action, which allows to view a generated graph using @command{dot}
+command (specified by @code{guix-dot-program} variable). By default a
+PNG file will be saved in @file{/tmp} directory and will be opened
+directly in Emacs. This behavior may be changed with the following
+variables:
+
+@table @code
+
+@item guix-find-file-function
+Function used to open a generated graph. If you want to open a graph in
+an external program, you can do it by modifying this variable---for
+example, you can use a functionality provided by the Org Mode
+(@pxref{Top,,, org, The Org Manual}):
+
+@example
+(setq guix-find-file-function 'org-open-file)
+(add-to-list 'org-file-apps '("\\.png\\'" . "sxiv %s"))
+@end example
+
+@item guix-dot-default-arguments
+Command line arguments to run @command{dot} command. If you change an
+output format (for example, into @code{-Tpdf}), you also need to change
+the next variable.
+
+@item guix-dot-file-name-function
+Function used to define a name of the generated graph file. Default
+name is @file{/tmp/graph-XXXXXX.png}.
+
+@end table
@node Emacs Prettify
@section Guix Prettify Mode
diff --git a/emacs/guix-command.el b/emacs/guix-command.el
index 3ae7791..1a42594 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'.")
--
2.5.0
next reply other threads:[~2015-10-15 19:46 UTC|newest]
Thread overview: 6+ messages / expand[flat|nested] mbox.gz Atom feed top
2015-10-15 19:46 Alex Kost [this message]
2015-10-16 8:16 ` [PATCH] emacs: Add "View graph" actions to system graph commands Ludovic Courtès
2015-10-16 16:57 ` [PATCH] doc: emacs: Document "View graph" popup action Alex Kost
2015-10-17 13:23 ` Ludovic Courtès
2015-10-16 16:58 ` [PATCH] emacs: Improve file names of generated graphs Alex Kost
2015-10-17 13:23 ` Ludovic Courtès
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=87a8rjkj8y.fsf@gmail.com \
--to=alezost@gmail.com \
--cc=guix-devel@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/guix.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.