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

Merge pull request #18 from jmeeks/master 

allow puml-preview to open in other window, frame
This commit is contained in:
Carlo Sciolla 2016-03-24 22:31:23 +01:00
parent 2ff075b23c 4bb8b2a04e
commit a42e8b5734
2 changed files with 13 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
README.md
View File

@ -61,7 +61,11 @@ Default key bindings
The following shortcuts are enabled by default: The following shortcuts are enabled by default:
C-c C-c renders a PlantUML diagram from the current buffer in the best supported format C-c C-c puml-preview: renders a PlantUML diagram from the current buffer in the best supported format
C-u C-c C-c puml-preview in other window
C-u C-u C-c C-c puml-preview in other frame
Troubleshooting Troubleshooting
=============== ===============

11
puml-mode.el
View File

@ -189,9 +189,9 @@ default output type for new buffers."
"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."
(concat "-t" puml-output-type)) (concat "-t" puml-output-type))
(defun puml-preview () (defun puml-preview (prefix)
"Preview diagram." "Preview diagram."
(interactive) (interactive "p")
(let ((b (get-buffer puml-preview-buffer))) (let ((b (get-buffer puml-preview-buffer)))
(when b (when b
(kill-buffer b))) (kill-buffer b)))
@ -212,7 +212,12 @@ default output type for new buffers."
(lambda (ps event) (lambda (ps event)
(unless (equal event "finished\n") (unless (equal event "finished\n")
(error "PUML Preview failed: %s" event)) (error "PUML Preview failed: %s" event))
(switch-to-buffer puml-preview-buffer) (cond
((= prefix 16)
(switch-to-buffer-other-frame puml-preview-buffer))
((= prefix 4)
(switch-to-buffer-other-window puml-preview-buffer))
(t (switch-to-buffer puml-preview-buffer)))
(when imagep (when imagep
(image-mode) (image-mode)
(set-buffer-multibyte t))))))) (set-buffer-multibyte t)))))))