[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/scad-mode 29a4f8a848 44/47: scad-export: Add file argument
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/scad-mode 29a4f8a848 44/47: scad-export: Add file argument |
Date: |
Sat, 12 Nov 2022 13:59:36 -0500 (EST) |
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)
- [nongnu] elpa/scad-mode 311797dc44 15/47: Commentary: Remove old todos, (continued)
- [nongnu] elpa/scad-mode 311797dc44 15/47: Commentary: Remove old todos, ELPA Syncer, 2022/11/12
- [nongnu] elpa/scad-mode 2c9124f718 16/47: Remove some publicly exposed variables, ELPA Syncer, 2022/11/12
- [nongnu] elpa/scad-mode 9bfaed13bc 25/47: Add support for Org babel, ELPA Syncer, 2022/11/12
- [nongnu] elpa/scad-mode 970982b253 31/47: Fix ob-scad, ELPA Syncer, 2022/11/12
- [nongnu] elpa/scad-mode 7cb7ee82a4 32/47: Enable scad-preview-mode immediately, ELPA Syncer, 2022/11/12
- [nongnu] elpa/scad-mode 1a2e992a5b 34/47: Fix custom types, ELPA Syncer, 2022/11/12
- [nongnu] elpa/scad-mode 4c23eae9c2 35/47: Support both ortho/perspective projection, ELPA Syncer, 2022/11/12
- [nongnu] elpa/scad-mode a1638354e1 39/47: Log openscad output to separate buffer, ELPA Syncer, 2022/11/12
- [nongnu] elpa/scad-mode 3c5fe2c615 28/47: Improve preview mode settings, ELPA Syncer, 2022/11/12
- [nongnu] elpa/scad-mode be02b626ce 42/47: Fix flymake configuration, ELPA Syncer, 2022/11/12
- [nongnu] elpa/scad-mode 29a4f8a848 44/47: scad-export: Add file argument,
ELPA Syncer <=
- [nongnu] elpa/scad-mode 3076e240bf 47/47: Version 93.1, ELPA Syncer, 2022/11/12