[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/auctex 5949388ca2 12/48: Simplify argument queries in s
From: |
Tassilo Horn |
Subject: |
[elpa] externals/auctex 5949388ca2 12/48: Simplify argument queries in style/wrapfig.el |
Date: |
Fri, 18 Nov 2022 14:27:42 -0500 (EST) |
branch: externals/auctex
commit 5949388ca2f6a297a222d20b62248bdff6c23e18
Author: Arash Esbati <arash@gnu.org>
Commit: Arash Esbati <arash@gnu.org>
Simplify argument queries in style/wrapfig.el
* style/wrapfig.el ("wrapfig"): Use `LaTeX-env-args' and standard
hook functions for argument query.
---
style/wrapfig.el | 98 ++++++++++++++++++--------------------------------------
1 file changed, 31 insertions(+), 67 deletions(-)
diff --git a/style/wrapfig.el b/style/wrapfig.el
index 35d8a0572e..cde72ae028 100644
--- a/style/wrapfig.el
+++ b/style/wrapfig.el
@@ -1,6 +1,6 @@
;;; wrapfig.el --- AUCTeX style for `wrapfig.sty' version v3.6 -*-
lexical-binding: t; -*-
-;; Copyright (C) 2014, 2015 Free Software Foundation, Inc.
+;; Copyright (C) 2014--2022 Free Software Foundation, Inc.
;; Author: Arash Esbati <arash@gnu.org>
;; Maintainer: auctex-devel@gnu.org
@@ -31,6 +31,9 @@
;;; Code:
+(declare-function LaTeX-newfloat-DeclareFloatingEnvironment-list
+ "newfloat" ())
+
(require 'tex)
(require 'latex)
@@ -39,47 +42,21 @@
(lambda ()
(LaTeX-add-environments
;; \begin{wrapfigure}[No.lines]{Placement}[Overhang]{Width} ...
\end{wrapfigure}
- '("wrapfigure"
- (lambda (env &rest ignore)
- (LaTeX-insert-environment
- env
- (let ((narrow (TeX-read-string "(Optional) Number of narrow lines:
"))
- (placement (completing-read
- "Placement: " '(("r") ("R")
- ("l") ("L")
- ("i") ("I")
- ("o") ("O"))))
- (overhang (TeX-read-string "(Optional) Overhang: "))
- (width (TeX-read-string "Width: ")))
- (concat
- (unless (string= narrow "")
- (format "[%s]" narrow))
- (format "{%s}" placement)
- (unless (string= overhang "")
- (format "[%s]" overhang))
- (format "{%s}" width))))))
- ;;
+ '("wrapfigure" LaTeX-env-args
+ [TeX-arg-string "Number of narrow lines"]
+ (TeX-arg-completing-read ("r" "R" "l" "L" "i" "I" "o" "O")
+ "Placement")
+ [TeX-arg-length "Overhang"]
+ (TeX-arg-length "Width"))
+
;; \begin{wraptable}[No.lines]{Placement}[Overhang]{Width} ...
\end{wraptable}
- '("wraptable"
- (lambda (env &rest ignore)
- (LaTeX-insert-environment
- env
- (let ((narrow (TeX-read-string "(Optional) Number of narrow lines:
"))
- (placement (completing-read
- "Placement: " '(("r") ("R")
- ("l") ("L")
- ("i") ("I")
- ("o") ("O"))))
- (overhang (TeX-read-string "(Optional) Overhang: "))
- (width (TeX-read-string "Width: ")))
- (concat
- (unless (string= narrow "")
- (format "[%s]" narrow))
- (format "{%s}" placement)
- (unless (string= overhang "")
- (format "[%s]" overhang))
- (format "{%s}" width))))))
- ;;
+ '("wraptable" LaTeX-env-args
+ [TeX-arg-string "Number of narrow lines"]
+ (TeX-arg-completing-read ("r" "R" "l" "L" "i" "I" "o" "O")
+ "Placement")
+ [TeX-arg-length "Overhang"]
+ (TeX-arg-length "Width"))
+
;; \begin{wrapfloat}{<Type>}[No.lines]{Placement}[Overhang]{Width} ...
\end{wrapfloat}
;;
;; <Type> can be a new floating environment defined with
@@ -87,32 +64,19 @@
;; the function `LaTeX-newfloat-DeclareFloatingEnvironment-list'
;; is bound and returns non-nil before offering environment for
;; completion. Otherwise, just ask user without completion.
- '("wrapfloat"
- (lambda (env &rest ignore)
- (LaTeX-insert-environment
- env
- (let ((floattype (if (and (fboundp
'LaTeX-newfloat-DeclareFloatingEnvironment-list)
-
(LaTeX-newfloat-DeclareFloatingEnvironment-list))
- (completing-read
- "Float type: "
- (mapcar #'car
(LaTeX-newfloat-DeclareFloatingEnvironment-list)))
- (TeX-read-string "Float type: ")))
- (narrow (TeX-read-string "(Optional) Number of narrow lines:
"))
- (placement (completing-read
- "Placement: " '(("r") ("R")
- ("l") ("L")
- ("i") ("I")
- ("o") ("O"))))
- (overhang (TeX-read-string "(Optional) Overhang: "))
- (width (TeX-read-string "Width: ")))
- (concat
- (format "{%s}" floattype)
- (unless (string= narrow "")
- (format "[%s]" narrow))
- (format "{%s}" placement)
- (unless (string= overhang "")
- (format "[%s]" overhang))
- (format "{%s}" width))))))))
+ `("wrapfloat" LaTeX-env-args
+ (TeX-arg-conditional (and (fboundp
'LaTeX-newfloat-DeclareFloatingEnvironment-list)
+
(LaTeX-newfloat-DeclareFloatingEnvironment-list))
+ ((TeX-arg-completing-read
+ ,(lambda ()
+ (mapcar #'car (LaTeX-newfloat-DeclareFloatingEnvironment-list)))
+ "Float type"))
+ ((TeX-arg-string "Float type")))
+ [TeX-arg-string "Number of narrow lines"]
+ (TeX-arg-completing-read ("r" "R" "l" "L" "i" "I" "o" "O")
+ "Placement")
+ [TeX-arg-length "Overhang"]
+ (TeX-arg-length "Width"))))
TeX-dialect)
(defvar LaTeX-wrapfig-package-options '("verbose")
- [elpa] externals/auctex 316550f0bf 29/48: Fix `ConTeXt-add-environments', (continued)
- [elpa] externals/auctex 316550f0bf 29/48: Fix `ConTeXt-add-environments', Tassilo Horn, 2022/11/18
- [elpa] externals/auctex 0c482642cc 32/48: Simplify implementation of style/currvita.el, Tassilo Horn, 2022/11/18
- [elpa] externals/auctex c525dd42dd 35/48: Simplify implementation of style/tcolorboxlib-raster.el, Tassilo Horn, 2022/11/18
- [elpa] externals/auctex a7a7209a08 33/48: Extend the argument list of some functions, Tassilo Horn, 2022/11/18
- [elpa] externals/auctex b9548da54a 38/48: Simplify implementation of style/tcolorboxlib-theorems.el, Tassilo Horn, 2022/11/18
- [elpa] externals/auctex 50c0fb3d31 46/48: * style/afterpage.el ("afterpage"): Fontify the only macro., Tassilo Horn, 2022/11/18
- [elpa] externals/auctex 93430d7ab0 48/48: Merge remote-tracking branch 'origin/master' into externals/auctex, Tassilo Horn, 2022/11/18
- [elpa] externals/auctex 05cd0440c5 02/48: Use `TeX-arg-completing-read-multiple', Tassilo Horn, 2022/11/18
- [elpa] externals/auctex 7642155b73 03/48: Don't let-bind `inhibit-point-motion-hooks' to t, Tassilo Horn, 2022/11/18
- [elpa] externals/auctex a617944b4b 08/48: Fix style/xspace.el, Tassilo Horn, 2022/11/18
- [elpa] externals/auctex 5949388ca2 12/48: Simplify argument queries in style/wrapfig.el,
Tassilo Horn <=
- [elpa] externals/auctex e83a4b87b3 25/48: Use the correct function to retrieve the key=vals, Tassilo Horn, 2022/11/18
- [elpa] externals/auctex 35ec84ba6f 07/48: Add capf for LaTeX marco/environment arguments, Tassilo Horn, 2022/11/18
- [elpa] externals/auctex 835e01ddb6 36/48: Extend the argument list of `TeX-arg-string', Tassilo Horn, 2022/11/18
- [elpa] externals/auctex 615e12f650 42/48: Simplify implementation of style/tcolorbox.el, Tassilo Horn, 2022/11/18
- [elpa] externals/auctex 82a23a93ae 43/48: Add some variables containing font declarations, Tassilo Horn, 2022/11/18
- [elpa] externals/auctex 6cbeff713b 47/48: Simplify implementation of style/fancyhdr.el, Tassilo Horn, 2022/11/18
- [elpa] externals/auctex 0ee39626e4 01/48: Use `TeX-arg-completing-read', Tassilo Horn, 2022/11/18
- [elpa] externals/auctex 49987f08dd 19/48: Provide completion candidates for `TeX-arg-length', Tassilo Horn, 2022/11/18
- [elpa] externals/auctex 3d8d93e4fd 41/48: ; Make code more resilient, Tassilo Horn, 2022/11/18