plantuml-preview-region: add interactive parameter for region

plantuml-preview-region:
Add the begin and end of the region to the parameters of function
This allows using the function programatically
without modification of the mark.

plantuml-preview:
Adjust plantuml-preview-region function call.
This commit is contained in:
Matthias Müller 2016-11-12 01:48:47 +01:00
parent 2b7d796886
commit e140eba7b1
1 changed files with 6 additions and 5 deletions

View File

@ -266,16 +266,17 @@ Uses prefix (as PREFIX) to choose where to display it:
(interactive "p")
(plantuml-preview-string prefix (buffer-string)))
(defun plantuml-preview-region (prefix)
"Preview diagram from the PlantUML sources in the current region.
(defun plantuml-preview-region (prefix begin end)
"Preview diagram from the PlantUML sources in from BEGIN to END.
Uses the current region when called interactively.
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")
(interactive "p\nr")
(plantuml-preview-string prefix (concat "@startuml\n"
(buffer-substring-no-properties
(region-beginning) (region-end))
begin end)
"\n@enduml")))
(defun plantuml-preview (prefix)
@ -287,7 +288,7 @@ Uses prefix (as PREFIX) to choose where to display it:
- else -> new buffer"
(interactive "p")
(if mark-active
(plantuml-preview-region prefix)
(plantuml-preview-region prefix (region-beginning) (region-end))
(plantuml-preview-buffer prefix)))
(defun plantuml-init-once ()