Customizable output type
Define a variable `puml-output-type' that the user can customize per buffer. It does also define a `puml-set-output-type' command to set the output type for the current buffer interactively.
This commit is contained in:
parent
c352acb1c2
commit
13fc1b1cbe
40
puml-mode.el
40
puml-mode.el
|
@ -123,20 +123,43 @@
|
||||||
|
|
||||||
(defconst puml-preview-buffer "*PUML Preview*")
|
(defconst puml-preview-buffer "*PUML Preview*")
|
||||||
|
|
||||||
(defun puml-output-type ()
|
(defvar puml-output-type
|
||||||
"Detects the best output type to use for generated diagrams."
|
(cond ((image-type-available-p 'svg) "svg")
|
||||||
(cond ((image-type-available-p 'svg) 'svg)
|
((image-type-available-p 'png) "png")
|
||||||
((image-type-available-p 'png) 'png)
|
(t "utxt"))
|
||||||
('utxt)))
|
"Specify the desired output type to use for generated diagrams.")
|
||||||
|
|
||||||
|
(defun puml-read-output-type ()
|
||||||
|
"Read from the minibuffer a output type."
|
||||||
|
(let* ((completion-ignore-case t)
|
||||||
|
(available-types
|
||||||
|
(append
|
||||||
|
(and (image-type-available-p 'svg) '("svg"))
|
||||||
|
(and (image-type-available-p 'png) '("png"))
|
||||||
|
'("utxt"))))
|
||||||
|
(completing-read (format "Output type [%s]: " puml-output-type)
|
||||||
|
available-types
|
||||||
|
nil
|
||||||
|
t
|
||||||
|
nil
|
||||||
|
nil
|
||||||
|
puml-output-type)))
|
||||||
|
|
||||||
|
(defun puml-set-output-type (type)
|
||||||
|
"Set the desired output type for the current buffer. If the
|
||||||
|
major mode of the current buffer mode is not puml-mode, set the
|
||||||
|
default output type for new buffers."
|
||||||
|
(interactive (list (puml-read-output-type)))
|
||||||
|
(setq puml-output-type type))
|
||||||
|
|
||||||
|
|
||||||
(defun puml-is-image-output-p ()
|
(defun puml-is-image-output-p ()
|
||||||
"Return true if the diagram output format is an image, false if it's text based."
|
"Return true if the diagram output format is an image, false if it's text based."
|
||||||
(not (eq 'utxt (puml-output-type))))
|
(not (equal "utxt" puml-output-type)))
|
||||||
|
|
||||||
(defun puml-output-type-opt ()
|
(defun puml-output-type-opt ()
|
||||||
"Create the flag to pass to PlantUML to produce the selected output format."
|
"Create the flag to pass to PlantUML to produce the selected output format."
|
||||||
(let ((type (puml-output-type)))
|
(concat "-t" puml-output-type))
|
||||||
(concat "-t" (symbol-name type))))
|
|
||||||
|
|
||||||
(defun puml-preview-sentinel (ps event)
|
(defun puml-preview-sentinel (ps event)
|
||||||
"For the PlantUML process (as PS) reacts on the termination event (as EVENT)."
|
"For the PlantUML process (as PS) reacts on the termination event (as EVENT)."
|
||||||
|
@ -231,6 +254,7 @@
|
||||||
|
|
||||||
Shortcuts Command Name
|
Shortcuts Command Name
|
||||||
\\[puml-complete-symbol] `puml-complete-symbol'"
|
\\[puml-complete-symbol] `puml-complete-symbol'"
|
||||||
|
(make-local-variable 'puml-output-type)
|
||||||
(setq font-lock-defaults '((puml-font-lock-keywords) nil t)))
|
(setq font-lock-defaults '((puml-font-lock-keywords) nil t)))
|
||||||
|
|
||||||
(provide 'puml-mode)
|
(provide 'puml-mode)
|
||||||
|
|
Loading…
Reference in New Issue