Compare commits

...

2 Commits

View File

@ -75,7 +75,7 @@
(require 'thingatpt)
(require 'dash)
(require 'xml)
(require 'cl)
(require 'cl-lib)
(defgroup plantuml-mode nil
"Major mode for editing plantuml file."
@ -147,7 +147,9 @@
:group 'plantuml)
(defcustom plantuml-indent-level tab-width
"Indentation level of PlantUML lines")
"Indentation level of PlantUML lines"
:type 'number
:group 'plantuml)
(defcustom plantuml-confirm-overwrite-on-export t
"Control whether file exporting is allowed to silently overwrite files."
@ -678,7 +680,7 @@ be generated first."
(user-error "Export file name %s does not exist yet and export has been denied, aborting"
export-file-name)))
(case system-type
(cl-case system-type
((windows-nt) (w32-shell-execute "open" export-file-name))
((cygwin) (start-process "" nil "cygstart" export-file-name))
(otherwise (start-process "" nil "xdg-open" export-file-name)))))