Compare commits
2 Commits
f94e909987
...
375ead7c7e
| Author | SHA1 | Date | |
|---|---|---|---|
| 375ead7c7e | |||
| 55c19e5b78 |
@ -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)))))
|
||||
|
||||
Loading…
Reference in New Issue
Block a user