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