Add plantuml-preview-current-block

Add a function that allows to preview the current block.
The current block is defined to be the region beginning
at previous "@startuml" and ending at "@enduml".
The prefix argument is handled according to the existing
prview functions.
This commit is contained in:
Matthias Müller 2016-10-26 01:03:37 +02:00
parent 2b7d796886
commit 9c509f879d
1 changed files with 12 additions and 0 deletions

View File

@ -278,6 +278,18 @@ Uses prefix (as PREFIX) to choose where to display it:
(region-beginning) (region-end))
"\n@enduml")))
(defun plantuml-preview-current-block (prefix)
"Preview diagram from the PlantUML sources from the previous @startuml to the next @enduml.
Uses prefix (as PREFIX) to choose where to display it:
- 4 (when prefixing the command with C-u) -> new window
- 16 (when prefixing the command with C-u C-u) -> new frame.
- else -> new buffer"
(interactive "p")
(save-restriction
(narrow-to-region
(search-backward "@startuml") (search-forward "@enduml"))
(plantuml-preview-buffer prefix)))
(defun plantuml-preview (prefix)
"Preview diagram from the PlantUML sources.
Uses the current region if one is active, or the entire buffer otherwise.