[nongnu] elpa/scad-mode 8ba0af4bee 2/3: Merge pull request #2 from mgsb/custom_ext

[ELPA Syncer]

branch: elpa/scad-mode
commit 8ba0af4bee192037a55ea41d7b5c39bfef4ede68
Merge: 1c68ca2533 c5e75ad4b6
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: GitHub <noreply@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))