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

WIP

This commit is contained in:
Carlo Sciolla 2019-05-21 07:41:57 +02:00
parent a0d37dc35f
commit 0bdd6fa650
No known key found for this signature in database
GPG Key ID: BA5D71E6F3C580C1
1 changed files with 21 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
plantuml-mode.el
View File

@ -111,12 +111,17 @@
:type '(repeat string) :type '(repeat string)
:group 'plantuml) :group 'plantuml)
(defcustom plantuml-server-url "http://www.plantuml.com/plantuml"
"The base URL of the PlantUML server."
:type 'string
:group 'plantuml)
(defcustom plantuml-default-exec-mode 'jar (defcustom plantuml-default-exec-mode 'jar
"Default execution mode for PlantUML. Valid values are: "Default execution mode for PlantUML. Valid values are:
- `jar': run PlantUML as a JAR file (requires a local install of the PlantUML JAR file, see `plantuml-jar-path'" - `jar': run PlantUML as a JAR file (requires a local install of the PlantUML JAR file, see `plantuml-jar-path'"
:type 'symbol :type 'symbol
:group 'plantuml :group 'plantuml
:options '(jar)) :options '(jar server))
(defcustom plantuml-suppress-deprecation-warning t (defcustom plantuml-suppress-deprecation-warning t
"To silence the deprecation warning when `puml-mode' is found upon loading." "To silence the deprecation warning when `puml-mode' is found upon loading."
@ -211,10 +216,18 @@
(apply 'call-process cmd-args) (apply 'call-process cmd-args)
(goto-char (point-min))))) (goto-char (point-min)))))
(defun plantuml-server-get-language (buf)
"Retrieve the language specification from the PlantUML server and paste it into BUF."
;; Currently waiting on https://github.com/plantuml/plantuml-server/pull/106 for a proper implementation
(let ((lang-url (concat plantuml-server-url "/language")))
(with-current-buffer buf
(url-insert-file-contents lang-url))))
(defun plantuml-get-language (mode buf) (defun plantuml-get-language (mode buf)
"Retrieve the language spec using the preferred PlantUML execution mode MODE. Paste the result into BUF." "Retrieve the language spec using the preferred PlantUML execution mode MODE. Paste the result into BUF."
(let ((get-fn (pcase mode (let ((get-fn (pcase mode
('jar #'plantuml-jar-get-language)))) ('jar #'plantuml-jar-get-language)
('server #'plantuml-server-get-language))))
(if get-fn (if get-fn
(funcall get-fn buf) (funcall get-fn buf)
(error "Unsupported execution mode %s" mode)))) (error "Unsupported execution mode %s" mode))))
@ -331,6 +344,10 @@ default output type for new buffers."
(image-mode) (image-mode)
(set-buffer-multibyte t))))))) (set-buffer-multibyte t)))))))
(defun plantuml-server-preview-string (prefix string buf)
"Preview the diagram from STRING as rendered by the PlantUML server.
Put the result into buffer BUF and place it according to PREFIX.")
(defun plantuml-exec-mode-preview-string (prefix mode string buf) (defun plantuml-exec-mode-preview-string (prefix mode string buf)
"Preview the diagram from STRING using the execution mode MODE. "Preview the diagram from STRING using the execution mode MODE.
Put the result into buffer BUF, selecting the window according to PREFIX: Put the result into buffer BUF, selecting the window according to PREFIX: