branch: elpa/scad-mode
commit 29a4f8a8488801b49895b70f74f3763bc0b1dd66
Author: Daniel Mendler <[email protected]>
Commit: Daniel Mendler <[email protected]>
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)
