branch: master commit 0b37ed8a255b407114418080f534951f987388cb Author: Arash Esbati <ar...@gnu.org> Commit: Arash Esbati <ar...@gnu.org>
Parse the value of class key * style/standalone.el (LaTeX-standalone-auto-cleanup): New function. ("standalone"): Use the correct function. (LaTeX-standalone-class-options-list): Adjust docstring. --- style/standalone.el | 18 +++++++++++------- 1 file changed, 11 insertions(+), 7 deletions(-) diff --git a/style/standalone.el b/style/standalone.el index 3fac7a96..0f43bc55 100644 --- a/style/standalone.el +++ b/style/standalone.el @@ -39,6 +39,15 @@ "font-latex" (keywords class)) +(defun LaTeX-standalone-auto-cleanup () + "Parse the value of \"class\" key and run the appropriate style hook." + (let ((cls (TeX-member "\\`class=" + (cdr (assoc "standalone" LaTeX-provided-class-options)) + #'string-match))) + (when cls + (TeX-run-style-hooks (cadr (split-string cls "=" t)))))) + +(add-hook 'TeX-auto-cleanup-hook #'LaTeX-standalone-auto-cleanup t) (TeX-add-style-hook "standalone" @@ -59,12 +68,7 @@ (when (assoc "standalone" LaTeX-provided-class-options) (TeX-add-symbols '("standaloneconfig" - (TeX-arg-key-val (lambda () - (append - `(("class" ,LaTeX-global-class-files) - ("multi" ,(append '("true" "false") - (mapcar #'car (LaTeX-environment-list))))) - LaTeX-standalone-class-options-list)))) + (TeX-arg-key-val (LaTeX-standalone-class-options-list))) '("standaloneignore" 0) ) (LaTeX-add-environments "standalone") @@ -121,7 +125,7 @@ TeX-dialect) (defun LaTeX-standalone-class-options-list () - "Class options for the standalone class." + "Return an alist of class options for the standalone class." `(("class" ,LaTeX-global-class-files) ("multi" ,(append '("true" "false") (mapcar #'car (LaTeX-environment-list))))