branch: elpa/scad-mode
commit 8ba0af4bee192037a55ea41d7b5c39bfef4ede68
Merge: 1c68ca2533 c5e75ad4b6
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: GitHub <nore...@github.com>
Merge pull request #2 from mgsb/custom_ext
Add custom variable to set default output file extension
---
scad-mode.el | 7 ++++++-
1 file changed, 6 insertions(+), 1 deletion(-)
diff --git a/scad-mode.el b/scad-mode.el
index b4f6b0578a..5f537343e0 100644
--- a/scad-mode.el
+++ b/scad-mode.el
@@ -128,6 +128,11 @@
Options are axes, crosshairs, edges, scales, wireframe."
:type '(repeat string))
+(defcustom scad-export-ext ".stl"
+ "Extension (file type) for output data file via `scad-export'.
+Options are .stl, .off, .amf, .3mf, .csg, .dxf, .svg, .pdf, .png, .echo, .ast,
.term, .nef3, .nefdbg."
+ :type 'string)
+
(defvar scad-mode-map
(let ((map (c-make-inherited-keymap)))
(define-key map "\C-c\C-c" #'scad-preview)
@@ -212,7 +217,7 @@ Key bindings:
(list (read-file-name
"Export to: "
nil nil nil
- (concat (file-name-base (buffer-file-name)) ".stl"))))
+ (concat (file-name-base (buffer-file-name)) scad-export-ext))))
(save-buffer)
(compile (concat scad-command
" -o " (shell-quote-argument (expand-file-name file))
