yogsototh/org-roam
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

org-roam-show-graph: PREFIX to generate a graph but not display it (#232)

Browse source 
This lets the viewer application watch the file, or have the user manually refresh the view rather than opening a new browser tab.
This commit is contained in:
Anthony Cowley 2020-03-05 22:22:39 -05:00 committed by GitHub
parent 09a23c377b
commit 8f83ffc2a3
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 8 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
org-roam.el
View file

@ -1113,9 +1113,10 @@ into a digraph."
(insert "}")
(buffer-string)))
(defun org-roam-show-graph ()
"Displays the generated Org-roam graph using `org-roam-graph-viewer'."
(interactive)
(defun org-roam-show-graph (&optional prefix)
"Generates and displays the Org-roam graph using `org-roam-graph-viewer'.
If PREFIX, then the graph is generated but the viewer is not invoked."
(interactive "P")
(declare (indent 0))
(unless org-roam-graphviz-executable
(setq org-roam-graphviz-executable (executable-find "dot")))
@ -1127,9 +1128,10 @@ into a digraph."
(with-temp-file temp-dot
(insert graph))
(call-process org-roam-graphviz-executable nil 0 nil temp-dot "-Tsvg" "-o" temp-graph)
(if (and org-roam-graph-viewer (executable-find org-roam-graph-viewer))
(call-process org-roam-graph-viewer nil 0 nil temp-graph)
(view-file temp-graph))))
(unless prefix
(if (and org-roam-graph-viewer (executable-find org-roam-graph-viewer))
(call-process org-roam-graph-viewer nil 0 nil temp-graph)
(view-file temp-graph)))))
;;; The global minor org-roam-mode
(defvar org-roam-mode-map