20 lines
621 B
EmacsLisp
20 lines
621 B
EmacsLisp
|
;;; lang/graphviz/autoload.el -*- lexical-binding: t; -*-
|
||
|
|
|
||
|
|
;;;###autoload
|
||
|
|
(cl-defun +graphviz-formatter (&key _buffer scratch callback &allow-other-keys)
|
||
|
|
"Format graphviz graphs."
|
||
|
|
(with-current-buffer scratch
|
||
|
|
(let ((inhibit-message t)
|
||
|
|
(message-log-max nil))
|
||
|
|
(goto-char (point-min))
|
||
|
|
(graphviz-dot-indent-graph))
|
||
|
|
(funcall callback)))
|
||
|
|
|
||
|
|
;;;###autoload
|
||
|
|
(defun +graphviz/toggle-preview ()
|
||
|
|
"Toggle `graphviz-dot-auto-preview-on-save'."
|
||
|
|
(interactive nil 'graphviz-dot-mode)
|
||
|
|
(if graphviz-dot-auto-preview-on-save
|
||
|
|
(graphviz-turn-off-live-preview)
|
||
|
|
(graphviz-turn-on-live-preview)))
|