support for simple HEX encoding format
This commit is contained in:
parent
ea45a13707
commit
0cc967d469
|
@ -106,6 +106,9 @@
|
||||||
keymap)
|
keymap)
|
||||||
"Keymap for plantuml-mode.")
|
"Keymap for plantuml-mode.")
|
||||||
|
|
||||||
|
;; only simple HEX format for now. Old prefixes, e.g. -base64- and -hex- not supported
|
||||||
|
(defvar plantuml-encoding-prefix "~h" "PLantUML encoding prefix.")
|
||||||
|
|
||||||
(defcustom plantuml-java-command "java"
|
(defcustom plantuml-java-command "java"
|
||||||
"The java command used to execute PlantUML."
|
"The java command used to execute PlantUML."
|
||||||
:type 'string
|
:type 'string
|
||||||
|
@ -422,12 +425,24 @@ Put the result into buffer BUF. Window is selected according to PREFIX:
|
||||||
(error "PLANTUML Preview failed: %s" event))
|
(error "PLANTUML Preview failed: %s" event))
|
||||||
(plantuml-update-preview-buffer prefix buf)))))
|
(plantuml-update-preview-buffer prefix buf)))))
|
||||||
|
|
||||||
|
(defun plantuml-hexlify (string)
|
||||||
|
"Encode the string STRING as HEX."
|
||||||
|
(mapconcat (lambda(s) (format "%02x" s)) (string-to-list string) ""))
|
||||||
|
|
||||||
|
(defun plantuml-encode-data (string)
|
||||||
|
"Encode string STRING according to the `plantuml-server-encoding'."
|
||||||
|
;; handle only simple HEX encoding
|
||||||
|
(plantuml-hexlify string)
|
||||||
|
;;
|
||||||
|
;; base64
|
||||||
|
;;(let ((coding-system (or buffer-file-coding-system "utf8")))
|
||||||
|
;; (base64-encode-string (encode-coding-string string coding-system) t)))
|
||||||
|
)
|
||||||
|
|
||||||
(defun plantuml-server-encode-url (string)
|
(defun plantuml-server-encode-url (string)
|
||||||
"Encode the string STRING into a URL suitable for PlantUML server interactions."
|
"Encode the string STRING into a URL suitable for PlantUML server interactions."
|
||||||
(let* ((coding-system (or buffer-file-coding-system
|
(concat plantuml-server-url "/" plantuml-output-type "/" plantuml-encoding-prefix (plantuml-encode-data string)))
|
||||||
"utf8"))
|
|
||||||
(encoded-string (base64-encode-string (encode-coding-string string coding-system) t)))
|
|
||||||
(concat plantuml-server-url "/" plantuml-output-type "/-base64-" encoded-string)))
|
|
||||||
|
|
||||||
(defun plantuml-server-preview-string (prefix string buf)
|
(defun plantuml-server-preview-string (prefix string buf)
|
||||||
"Preview the diagram from STRING as rendered by the PlantUML server.
|
"Preview the diagram from STRING as rendered by the PlantUML server.
|
||||||
|
|
Loading…
Reference in New Issue