emacs
/
plantuml-mode
mirror of https://github.com/skuro/plantuml-mode.git
1
0
Fork 0
Code Issues Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
plantuml-mode.el
View File

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