[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master def388b9 1/4: * style/pythontex.el ("pythontex"): Replace `TeX-ar
From: |
Arash Esbati |
Subject: |
master def388b9 1/4: * style/pythontex.el ("pythontex"): Replace `TeX-arg-eval'. |
Date: |
Wed, 22 Nov 2023 14:00:25 -0500 (EST) |
branch: master
commit def388b90a1260cb02f3b6d6960a17b4f9b04547
Author: Arash Esbati <arash@gnu.org>
Commit: Arash Esbati <arash@gnu.org>
* style/pythontex.el ("pythontex"): Replace `TeX-arg-eval'.
---
style/pythontex.el | 43 +++++++++++++++++++++----------------------
1 file changed, 21 insertions(+), 22 deletions(-)
diff --git a/style/pythontex.el b/style/pythontex.el
index 8c1399f0..6ea9ef32 100644
--- a/style/pythontex.el
+++ b/style/pythontex.el
@@ -318,19 +318,19 @@ a list of strings."
;;\saveprintpythontex{<name>}
'("saveprintpythontex"
- (TeX-arg-eval (lambda ()
- (let ((name (TeX-read-string
- (TeX-argument-prompt nil nil "Name"))))
- (LaTeX-add-pythontex-savecontents name)
- (format "%s" name)))))
+ (lambda (optional)
+ (let ((name (TeX-read-string
+ (TeX-argument-prompt optional nil "Name"))))
+ (LaTeX-add-pythontex-savecontents name)
+ (TeX-argument-insert name optional))))
;;\savestdoutpythontex{<name>}
'("savestdoutpythontex"
- (TeX-arg-eval (lambda ()
- (let ((name (TeX-read-string
- (TeX-argument-prompt nil nil "Name"))))
- (LaTeX-add-pythontex-savecontents name)
- (format "%s" name)))))
+ (lambda (optional)
+ (let ((name (TeX-read-string
+ (TeX-argument-prompt optional nil "Name"))))
+ (LaTeX-add-pythontex-savecontents name)
+ (TeX-argument-insert name optional))))
;; \useprintpythontex[<verbatim options>][<fancyvrb options>]{<name>}
;; I assume <verbatim options> is meant to be <mode>
@@ -353,11 +353,11 @@ a list of strings."
;;\savestderrpythontex{<name>}
'("savestderrpythontex"
- (TeX-arg-eval (lambda ()
- (let ((name (TeX-read-string
- (TeX-argument-prompt nil nil "Name"))))
- (LaTeX-add-pythontex-savecontents name)
- (format "%s" name)))))
+ (lambda (optional)
+ (let ((name (TeX-read-string
+ (TeX-argument-prompt optional nil "Name"))))
+ (LaTeX-add-pythontex-savecontents name)
+ (TeX-argument-insert name optional))))
;; \usestderrpythontex[<mode>][<fancyvrb options>]{<name>}
'("usestderrpythontex"
@@ -427,13 +427,12 @@ a list of strings."
;; Cater for \setpythontexlistingenv:
(TeX-add-symbols
'("setpythontexlistingenv"
- (TeX-arg-eval
- (lambda ()
- (let ((name (TeX-read-string
- (TeX-argument-prompt nil nil "Listing environment
name"))))
- (LaTeX-add-newfloat-DeclareFloatingEnvironments `(,name "verbatim"))
- (LaTeX-newfloat-auto-cleanup)
- (format "%s" name))))))
+ (lambda (optional)
+ (let ((name (TeX-read-string
+ (TeX-argument-prompt optional nil "Listing environment
name"))))
+ (LaTeX-add-newfloat-DeclareFloatingEnvironments `(,name "verbatim"))
+ (LaTeX-newfloat-auto-cleanup)
+ (TeX-argument-insert name optional)))))
(LaTeX-add-environments
;; 4.2.5 Custom code
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master def388b9 1/4: * style/pythontex.el ("pythontex"): Replace `TeX-arg-eval'.,
Arash Esbati <=