[nongnu] elpa/scad-mode d39d19f64f 24/47: Save before opening/exporting

[ELPA Syncer]

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

    Save before opening/exporting
---
 README.org   | 6 ++++--
 scad-mode.el | 7 ++++++-
 2 files changed, 10 insertions(+), 3 deletions(-)

diff --git a/README.org b/README.org
index 99333a3963..c4eaef9f87 100644
--- a/README.org
+++ b/README.org
@@ -12,8 +12,10 @@
 * Features
 
 - Syntax highlighting
-- Basic completion function
-- Preview rendered model in separate window
+- Basic completion function (press =M-TAB=)
+- Preview rendered model in separate window (press =C-c C-p=)
+- Open buffer in OpenSCAD (press =C-c C-o=)
+- Export buffer with OpenSCAD (press =C-c C-e=)
 
 * Installation
 
diff --git a/scad-mode.el b/scad-mode.el
index 7f0d37ae75..54e2e1d5be 100644
--- a/scad-mode.el
+++ b/scad-mode.el
@@ -223,13 +223,18 @@ Key bindings:
 (defun scad-open ()
   "Open current buffer with `scad-command'."
   (interactive)
+  (save-buffer)
   (call-process scad-command nil 0 nil (buffer-file-name)))
 
 (defun scad-export ()
   "Render and export current SCAD model."
   (interactive)
+  (save-buffer)
   (compile (concat scad-command
-                   " -o " (expand-file-name (read-file-name "Export to: "))
+                   " -o " (expand-file-name (read-file-name
+                                             "Export to: "
+                                             nil nil nil
+                                             (concat (file-name-base 
buffer-file-name) ".stl")))
                    " " buffer-file-name)))
 
 (defvar-local scad--preview-buffer  nil)