[nongnu] elpa/scad-mode 29a4f8a848 44/47: scad-export: Add file argument

[ELPA Syncer]

branch: elpa/scad-mode
commit 29a4f8a8488801b49895b70f74f3763bc0b1dd66
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    scad-export: Add file argument
---
 scad-mode.el | 19 +++++++++----------
 1 file changed, 9 insertions(+), 10 deletions(-)

diff --git a/scad-mode.el b/scad-mode.el
index f97bf50196..7fe6468ea7 100644
--- a/scad-mode.el
+++ b/scad-mode.el
@@ -228,18 +228,17 @@ Key bindings:
   (save-buffer)
   (call-process scad-command nil 0 nil (buffer-file-name)))
 
-(defun scad-export ()
-  "Render and export current SCAD model."
-  (interactive)
+(defun scad-export (file)
+  "Render and export current SCAD model to FILE."
+  (interactive
+   (list (read-file-name
+          "Export to: "
+          nil nil nil
+          (concat (file-name-base (buffer-file-name)) ".stl"))))
   (save-buffer)
   (compile (concat scad-command
-                   " -o " (shell-quote-argument
-                           (expand-file-name
-                            (read-file-name
-                             "Export to: "
-                             nil nil nil
-                             (concat (file-name-base buffer-file-name) 
".stl"))))
-                   " " (shell-quote-argument buffer-file-name))))
+                   " -o " (shell-quote-argument (expand-file-name file))
+                   " " (shell-quote-argument (buffer-file-name)))))
 
 (defvar-local scad--preview-buffer      nil)
 (defvar-local scad--preview-proc        nil)