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

allow puml-preview to open in other window, frame

This commit is contained in:
Jonathan Meeks 2016-03-21 10:32:17 -05:00
parent 966064f371
commit 4bb8b2a04e
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)))))))