Extending env definitions or introducing new ones?

[Arash Esbati]

Hi all,

we have the situation that many AUCTeX styles bake their own definitions
for inserting environments; mostly for key-val options and other sort of
arguments.  The issue is that latex.el offers only `LaTeX-env-args'.
Suppose you want to insert an environment with `LaTeX-env-label' and
also have some other arguments after \begin{evn-name}, then you copy the
definition of `LaTeX-env-label' and fiddle the rest into it.

I see two solutions for this:

 1. Extend the functions we have, e.g. take this current definition:

    (defun LaTeX-env-label (environment)
      "Insert ENVIRONMENT and prompt for label."
      (LaTeX-insert-environment environment)
      (when (TeX-active-mark)
        ;; Point is at the end of the region.  Move it back to the
        ;; beginning of the region.
        (exchange-point-and-mark)
        (indent-according-to-mode))
      (when (LaTeX-label environment 'environment)
        (LaTeX-newline)
        (indent-according-to-mode))
      (when (TeX-active-mark)
        (indent-region (point) (mark))
        ;; Restore the positions of point and mark.
        (exchange-point-and-mark)))

    And turn it into this:

    (defun LaTeX--env-parse-args (args)
      (when args
        (save-excursion
          (LaTeX-find-matching-begin)
          (end-of-line)
          (let ((TeX-exit-mark (or TeX-exit-mark
                                   (make-marker))))
            (TeX-parse-arguments args)))))

    (defun LaTeX-env-label (environment &rest args)
      "Insert ENVIRONMENT and prompt for label."
      (LaTeX-insert-environment environment)
      (when (TeX-active-mark)
        ;; Point is at the end of the region.  Move it back to the
        ;; beginning of the region.
        (exchange-point-and-mark)
        (indent-according-to-mode))
      (when (LaTeX-label environment 'environment)
        (LaTeX-newline)
        (indent-according-to-mode))
      (when (TeX-active-mark)
        (indent-region (point) (mark))
        ;; Restore the positions of point and mark.
        (exchange-point-and-mark))
      (LaTeX--env-parse-args args))

 2. Introduce new function like this:

    (defun LaTeX--env-parse-args (args)
      (when args
        (save-excursion
          (LaTeX-find-matching-begin)
          (end-of-line)
          (let ((TeX-exit-mark (or TeX-exit-mark
                                   (make-marker))))
            (TeX-parse-arguments args)))))

    (defun LaTeX-env-label-args (environment &rest args)
      (LaTeX-env-label environment)
      (LaTeX--env-parse-args args))

WDYT?

Best, Arash