;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\207" [require tex latex] 2) #@57 Key=value options for enumitem macros and environments. (defvar LaTeX-enumitem-key-val-options (byte-code "\300\301\302\303\304\305\306\"D\307\304\310\311\"D\312BBBBB\207" [("label" ("\\alph*" "\\Alph*" "\\arabic*" "\\roman*" "\\Roman*" "\\value*")) ("label*" ("\\alph*" "\\Alph*" "\\arabic*" "\\roman*" "\\Roman*" "\\value*")) ("ref" ("\\alph*" "\\Alph*" "\\arabic*" "\\roman*" "\\Roman*" "\\value*")) "font" mapcar #[257 "P\207" [TeX-esc] 3 "\n\n(fn MAC)"] ("rmfamily" "sffamily" "ttfamily" "mdseries" "bfseries" "upshape" "itshape" "slshape" "scshape" "tiny" "scriptsize" "footnotesize" "small" "normalsize" "large" "Large" "LARGE" "huge" "Huge" "normalfont") "format" #[257 "P\207" [TeX-esc] 3 "\n\n(fn MAC)"] ("rmfamily" "sffamily" "ttfamily" "mdseries" "bfseries" "upshape" "itshape" "slshape" "scshape" "tiny" "scriptsize" "footnotesize" "small" "normalsize" "large" "Large" "LARGE" "huge" "Huge" "normalfont") (("align" ("left" "right" "parleft")) ("labelindent" ("*" "!")) ("left") ("leftmargin" ("*" "!")) ("itemindent" ("*" "!")) ("labelsep" ("*" "!")) ("labelwidth" ("*" "!")) ("widest") ("widest*") ("labelsep*") ("labelindent*") ("rightmargin") ("topsep") ("partopsep") ("parsep") ("itemsep") ("start") ("resume") ("resume*") ("series") ("beginpenalty") ("midpenalty") ("endpenalty") ("before") ("before*") ("after") ("after*") ("first") ("first*") ("style" ("standard" "unboxed" "nextline" "sameline" "multiline")) ("noitemsep") ("nosep") ("wide") ("itemjoin") ("itemjoin*") ("afterlabel") ("mode" ("boxed" "unboxed")))] 8) (#$ . 150)) #@70 Buffer-local key=value options for enumitem macros and environments. (defvar LaTeX-enumitem-key-val-options-local nil (#$ . 1711)) (make-variable-buffer-local 'LaTeX-enumitem-key-val-options-local) #@119 Local list of all environments definded with `\newlist' plus the ones initially available through `enumitem' package. (defvar LaTeX-enumitem-newlist-list-local nil (#$ . 1916)) (make-variable-buffer-local 'LaTeX-enumitem-newlist-list-local) #@94 Information about enumitem-newlists in the current buffer. Generated by `TeX-auto-add-type'. (defvar LaTeX-auto-enumitem-newlist nil (#$ . 2163)) #@94 Information about enumitem-newlists in the current buffer. Generated by `TeX-auto-add-type'. (defvar LaTeX-enumitem-newlist-list nil (#$ . 2315)) (make-variable-buffer-local 'LaTeX-enumitem-newlist-list) #@94 Information about enumitem-newlists in the current buffer. Generated by `TeX-auto-add-type'. (defvar LaTeX-enumitem-newlist-changed nil (#$ . 2525)) (make-variable-buffer-local 'LaTeX-enumitem-newlist-changed) #@128 Add information about ENUMITEM-NEWLISTS to the current buffer. Generated by `TeX-auto-add-type'. (fn &rest ENUMITEM-NEWLISTS) (defalias 'LaTeX-add-enumitem-newlists #[128 "\300\301\"\207" [TeX-auto-add-information "enumitem-newlist"] 4 (#$ . 2742)]) #@91 List of enumitem-newlists active in the current buffer. Generated by `TeX-auto-add-type'. (defalias 'LaTeX-enumitem-newlist-list #[0 "\300\301!\207" [TeX-auto-list-information "enumitem-newlist"] 2 (#$ . 3000)]) (byte-code "\300\301\302\303#\210\304\305\306\"\207" [add-to-list TeX-auto-parser ("enumitem-newlist" LaTeX-auto-enumitem-newlist LaTeX-add-enumitem-newlists LaTeX-enumitem-newlist-list LaTeX-enumitem-newlist-changed) t add-hook TeX-remove-style-hook #[0 "\301\211\207" [LaTeX-enumitem-newlist-list nil] 2]] 4) #@62 Matches the arguments of `\newlist' from `enumitem' package. (defvar LaTeX-enumitem-newlist-regexp '("\\\\newlist{\\([^}]+\\)}{\\([^}]+\\)}" (1 2) LaTeX-auto-enumitem-newlist) (#$ . 3530)) #@100 Information about enumitem-SetLabelAligns in the current buffer. Generated by `TeX-auto-add-type'. (defvar LaTeX-auto-enumitem-SetLabelAlign nil (#$ . 3726)) #@100 Information about enumitem-SetLabelAligns in the current buffer. Generated by `TeX-auto-add-type'. (defvar LaTeX-enumitem-SetLabelAlign-list nil (#$ . 3891)) (make-variable-buffer-local 'LaTeX-enumitem-SetLabelAlign-list) #@100 Information about enumitem-SetLabelAligns in the current buffer. Generated by `TeX-auto-add-type'. (defvar LaTeX-enumitem-SetLabelAlign-changed nil (#$ . 4120)) (make-variable-buffer-local 'LaTeX-enumitem-SetLabelAlign-changed) #@140 Add information about ENUMITEM-SETLABELALIGNS to the current buffer. Generated by `TeX-auto-add-type'. (fn &rest ENUMITEM-SETLABELALIGNS) (defalias 'LaTeX-add-enumitem-SetLabelAligns #[128 "\300\301\"\207" [TeX-auto-add-information "enumitem-SetLabelAlign"] 4 (#$ . 4355)]) #@97 List of enumitem-SetLabelAligns active in the current buffer. Generated by `TeX-auto-add-type'. (defalias 'LaTeX-enumitem-SetLabelAlign-list #[0 "\300\301!\207" [TeX-auto-list-information "enumitem-SetLabelAlign"] 2 (#$ . 4637)]) (byte-code "\300\301\302\303#\210\304\305\306\"\207" [add-to-list TeX-auto-parser ("enumitem-SetLabelAlign" LaTeX-auto-enumitem-SetLabelAlign LaTeX-add-enumitem-SetLabelAligns LaTeX-enumitem-SetLabelAlign-list LaTeX-enumitem-SetLabelAlign-changed) t add-hook TeX-remove-style-hook #[0 "\301\211\207" [LaTeX-enumitem-SetLabelAlign-list nil] 2]] 4) #@67 Matches the argument of `\SetLabelAlign' from `enumitem' package. (defvar LaTeX-enumitem-SetLabelAlign-regexp '("\\\\SetLabelAlign{\\([^}]+\\)}" 1 LaTeX-auto-enumitem-SetLabelAlign) (#$ . 5221)) #@101 Information about enumitem-SetEnumitemKeys in the current buffer. Generated by `TeX-auto-add-type'. (defvar LaTeX-auto-enumitem-SetEnumitemKey nil (#$ . 5423)) #@101 Information about enumitem-SetEnumitemKeys in the current buffer. Generated by `TeX-auto-add-type'. (defvar LaTeX-enumitem-SetEnumitemKey-list nil (#$ . 5590)) (make-variable-buffer-local 'LaTeX-enumitem-SetEnumitemKey-list) #@101 Information about enumitem-SetEnumitemKeys in the current buffer. Generated by `TeX-auto-add-type'. (defvar LaTeX-enumitem-SetEnumitemKey-changed nil (#$ . 5822)) (make-variable-buffer-local 'LaTeX-enumitem-SetEnumitemKey-changed) #@142 Add information about ENUMITEM-SETENUMITEMKEYS to the current buffer. Generated by `TeX-auto-add-type'. (fn &rest ENUMITEM-SETENUMITEMKEYS) (defalias 'LaTeX-add-enumitem-SetEnumitemKeys #[128 "\300\301\"\207" [TeX-auto-add-information "enumitem-SetEnumitemKey"] 4 (#$ . 6060)]) #@98 List of enumitem-SetEnumitemKeys active in the current buffer. Generated by `TeX-auto-add-type'. (defalias 'LaTeX-enumitem-SetEnumitemKey-list #[0 "\300\301!\207" [TeX-auto-list-information "enumitem-SetEnumitemKey"] 2 (#$ . 6346)]) (byte-code "\300\301\302\303#\210\304\305\306\"\207" [add-to-list TeX-auto-parser ("enumitem-SetEnumitemKey" LaTeX-auto-enumitem-SetEnumitemKey LaTeX-add-enumitem-SetEnumitemKeys LaTeX-enumitem-SetEnumitemKey-list LaTeX-enumitem-SetEnumitemKey-changed) t add-hook TeX-remove-style-hook #[0 "\301\211\207" [LaTeX-enumitem-SetEnumitemKey-list nil] 2]] 4) #@69 Matches the arguments of `\SetEnumitemKey' from `enumitem' package. (defvar LaTeX-enumitem-SetEnumitemKey-regexp '("\\\\SetEnumitemKey{\\([^}]+\\)}" 1 LaTeX-auto-enumitem-SetEnumitemKey) (#$ . 6939)) #@103 Information about enumitem-SetEnumitemValues in the current buffer. Generated by `TeX-auto-add-type'. (defvar LaTeX-auto-enumitem-SetEnumitemValue nil (#$ . 7146)) #@103 Information about enumitem-SetEnumitemValues in the current buffer. Generated by `TeX-auto-add-type'. (defvar LaTeX-enumitem-SetEnumitemValue-list nil (#$ . 7317)) (make-variable-buffer-local 'LaTeX-enumitem-SetEnumitemValue-list) #@103 Information about enumitem-SetEnumitemValues in the current buffer. Generated by `TeX-auto-add-type'. (defvar LaTeX-enumitem-SetEnumitemValue-changed nil (#$ . 7555)) (make-variable-buffer-local 'LaTeX-enumitem-SetEnumitemValue-changed) #@146 Add information about ENUMITEM-SETENUMITEMVALUES to the current buffer. Generated by `TeX-auto-add-type'. (fn &rest ENUMITEM-SETENUMITEMVALUES) (defalias 'LaTeX-add-enumitem-SetEnumitemValues #[128 "\300\301\"\207" [TeX-auto-add-information "enumitem-SetEnumitemValue"] 4 (#$ . 7799)]) #@100 List of enumitem-SetEnumitemValues active in the current buffer. Generated by `TeX-auto-add-type'. (defalias 'LaTeX-enumitem-SetEnumitemValue-list #[0 "\300\301!\207" [TeX-auto-list-information "enumitem-SetEnumitemValue"] 2 (#$ . 8094)]) (byte-code "\300\301\302\303#\210\304\305\306\"\207" [add-to-list TeX-auto-parser ("enumitem-SetEnumitemValue" LaTeX-auto-enumitem-SetEnumitemValue LaTeX-add-enumitem-SetEnumitemValues LaTeX-enumitem-SetEnumitemValue-list LaTeX-enumitem-SetEnumitemValue-changed) t add-hook TeX-remove-style-hook #[0 "\301\211\207" [LaTeX-enumitem-SetEnumitemValue-list nil] 2]] 4) #@71 Matches the arguments of `\SetEnumitemValue' from `enumitem' package. (defvar LaTeX-enumitem-SetEnumitemValue-regexp '("\\\\SetEnumitemValue{\\([^}]+\\)}{\\([^}]+\\)}" (0 1 2) LaTeX-auto-enumitem-SetEnumitemValue) (#$ . 8705)) #@50 Clear various `LaTeX-enumitem-*' before parsing. (defalias 'LaTeX-enumitem-auto-prepare #[0 "\304\211\304\211\211\207" [LaTeX-auto-enumitem-newlist LaTeX-auto-enumitem-SetLabelAlign LaTeX-auto-enumitem-SetEnumitemKey LaTeX-auto-enumitem-SetEnumitemValue nil] 3 (#$ . 8938)]) #@59 Move parsing results into right places for further usage. (defalias 'LaTeX-enumitem-auto-cleanup #[0 "\301 \211\2035\211@\211@A@\302\303D!\210\211\304\230\204\211\305\230\203&\306\307\310B\"\210\311\312BC!\266A\266\202\202\210\301 \205H\313\314\315\314\316\301 \"\"\"\211\207" [LaTeX-enumitem-newlist-list-local LaTeX-enumitem-newlist-list LaTeX-add-environments LaTeX-enumitem-env-with-opts "description" "description*" add-to-list LaTeX-item-list LaTeX-item-argument TeX-ispell-skip-setcdr (ispell-tex-arg-end 0) append mapcar list car] 8 (#$ . 9223)]) (byte-code "\300\301\302\303#\210\300\304\305\303#\210\300\306\307\303#\207" [add-hook TeX-auto-prepare-hook LaTeX-enumitem-auto-prepare t TeX-auto-cleanup-hook LaTeX-enumitem-auto-cleanup TeX-update-style-hook TeX-auto-parse] 4) #@102 Update available key-val options, then insert ENV and optional key-val and the first item. (fn ENV) (defalias 'LaTeX-enumitem-env-with-opts #[257 "\304 \210\305\306\307\"\211\205\211\310\230?\205\311\312\"\262\"\210\313 \203*\314 \210\315\210\202-\316\210\317\315!\210\320\321 \322Q!\203?`\323 |\210\324 \210\325 \210\326 \210\n\205i\320\327!?\205i\330 \"?\205i\323 \331 Z\332 V\205i\333\334!\207" [LaTeX-enumitem-key-val-options-local TeX-comment-start-regexp auto-fill-function LaTeX-indent-environment-list LaTeX-enumitem-update-key-val-options LaTeX-insert-environment TeX-read-key-val t "" format "[%s]" TeX-active-mark LaTeX-find-matching-begin 1 0 delete-char looking-at "^[ ]+$\\|^[ ]*" "+[ ]*$" line-end-position delete-horizontal-space deactivate-mark LaTeX-insert-item "$" assoc line-beginning-position current-fill-column LaTeX-fill-paragraph nil] 7 (#$ . 10030)]) #@115 Ask for new type (value) for the "align" key and add it to `LaTeX-enumitem-key-val-options-local'. (fn OPTIONAL) (defalias 'LaTeX-arg-SetLabelAlign #[257 "\300 \210\301\302!\303\"\210\304!\207" [LaTeX-enumitem-update-key-val-options TeX-read-string "Alignment: " TeX-argument-insert LaTeX-add-enumitem-SetLabelAligns] 5 (#$ . 10936)]) #@102 Ask for a new key to be defined and add it to `LaTeX-enumitem-key-val-options-local'. (fn OPTIONAL) (defalias 'LaTeX-arg-SetEnumitemKey #[257 "\301 \210\302\303!\304\305#\306\"\210\306\"\210\307!\207" [LaTeX-enumitem-key-val-options-local LaTeX-enumitem-update-key-val-options TeX-read-string "New Key: " TeX-read-key-val "Replacement" TeX-argument-insert LaTeX-add-enumitem-SetEnumitemKeys] 6 (#$ . 11282)]) #@103 Ask for a new value added to an existing key incl. the final replacement of the value. (fn OPTIONAL) (defalias 'LaTeX-arg-SetEnumitemValue #[257 "\301 \210\302\303\"\304\305!\306\"\210\306\"\210\307\310\311\312\260E!\207" [LaTeX-enumitem-key-val-options-local LaTeX-enumitem-update-key-val-options completing-read "Key: " TeX-read-string "String value: " TeX-argument-insert LaTeX-add-enumitem-SetEnumitemValues "\\SetEnumitemValue{" "}{" "}"] 9 (#$ . 11706)]) #@89 Update the buffer-local key-val options before offering them in `enumitem'-completions. (defalias 'LaTeX-enumitem-update-key-val-options #[0 "\301 \211\203\211@\211\235\204\211BA\266\202\202\210\302 \211\203~\211@\211A@\3038\304\"A\305!\306\304\"@\"\203\\\307\310\311C#!D\211\235\203R\202U\211B\262\262\202qCD\211\235\203j\202m\211B\262\262\305!\266A\266\202\202\210\312 \211\205\303\211@\211@\304\313\"A\305!\306\304\313\"@\"\313\307\310\311C#!D\211\235\203\257\202\262\211B\262\262\305!\266A\266\202\202\201\207" [LaTeX-enumitem-key-val-options-local LaTeX-enumitem-SetEnumitemKey-list LaTeX-enumitem-SetEnumitemValue-list 2 assoc copy-alist assq-delete-all TeX-delete-duplicate-strings apply append LaTeX-enumitem-SetLabelAlign-list "align"] 13 (#$ . 12184)]) (TeX-add-style-hook "enumitem" #[0 "\306!\210\306 !\210\306\n!\210\306 !\210\307\f!\3101\311\312\313\"\203%\314\3151\"1\316\317\320\321#\210\311\312\313\"\203=\316\322\323\324#\210\325\326\327\"\210\330\331\332\333\334$\210\330\335\336\337\340\341\342\343\344&\210\311\312\345\"\203[\330\346!\210\347\350!\210\351\352!\205u2\353=\205u\354\355\356\"\210\354\357\360\"\207" [LaTeX-enumitem-newlist-regexp LaTeX-enumitem-SetEnumitemKey-regexp LaTeX-enumitem-SetEnumitemValue-regexp LaTeX-enumitem-SetLabelAlign-regexp LaTeX-enumitem-key-val-options LaTeX-enumitem-key-val-options-local TeX-auto-add-regexp copy-alist (("itemize") ("enumerate") ("description")) LaTeX-provided-package-options-member "enumitem" "inline" append (("itemize*") ("enumerate*") ("description*")) LaTeX-add-environments ("itemize" LaTeX-enumitem-env-with-opts) ("enumerate" LaTeX-enumitem-env-with-opts) ("description" LaTeX-enumitem-env-with-opts) ("itemize*" LaTeX-enumitem-env-with-opts) ("enumerate*" LaTeX-enumitem-env-with-opts) ("description*" LaTeX-enumitem-env-with-opts) add-to-list LaTeX-item-list ("description*" . LaTeX-item-argument) TeX-add-symbols ("newlist" (TeX-arg-eval (lambda nil (let ((name (TeX-read-string "Name: ")) (type (completing-read "Type: " '(("itemize") ("enumerate") ("description") ("itemize*") ("enumerate*") ("description*")))) (depth (TeX-read-string "Max-depth: "))) (setq LaTeX-enumitem-newlist-list-local (append `(,(list name)) LaTeX-enumitem-newlist-list-local)) (when (or (string-equal type "description") (string-equal type "description*")) (add-to-list 'LaTeX-item-list `(,name . LaTeX-item-argument))) (LaTeX-add-environments `(,name LaTeX-enumitem-env-with-opts)) (LaTeX-add-enumitem-newlists (list name type)) (TeX-ispell-skip-setcdr `((,name ispell-tex-arg-end 0))) (TeX-argument-insert name nil) (TeX-argument-insert type nil) (format "%s" depth))))) ("renewlist" (TeX-arg-eval completing-read "Name: " LaTeX-enumitem-newlist-list-local) (TeX-arg-eval completing-read "Type: " '(("itemize") ("enumerate") ("description") ("itemize*") ("enumerate*") ("description*"))) "Max-depth") ("setlist" [TeX-arg-eval mapconcat #'identity (TeX-completing-read-multiple (TeX-argument-prompt t nil "Environment(s), level(s)") (append (when (LaTeX-provided-package-options-member "enumitem" "includedisplayed") '("trivlist")) LaTeX-enumitem-newlist-list-local '(("1") ("2") ("3") ("4")))) ","] (TeX-arg-eval (lambda nil (LaTeX-enumitem-update-key-val-options) (let ((opts (TeX-read-key-val nil LaTeX-enumitem-key-val-options-local))) (format "%s" opts))))) ("setlist*" [TeX-arg-eval mapconcat #'identity (TeX-completing-read-multiple (TeX-argument-prompt t nil "Environment(s), level(s)") (append (when (LaTeX-provided-package-options-member "enumitem" "includedisplayed") '("trivlist")) LaTeX-enumitem-newlist-list-local '(("1") ("2") ("3") ("4")))) ","] (TeX-arg-eval (lambda nil (LaTeX-enumitem-update-key-val-options) (let ((opts (TeX-read-key-val nil LaTeX-enumitem-key-val-options-local))) (format "%s" opts))))) ("setlistdepth" "Integer") ("AddEnumerateCounter" 3) ("AddEnumerateCounter*" 3) ("restartlist" (TeX-arg-eval (lambda nil (let ((enums '("enumerate"))) (when (LaTeX-provided-package-options-member "enumitem" "inline") (cl-pushnew "enumerate*" enums :test #'equal)) (dolist (env-type (LaTeX-enumitem-newlist-list)) (let ((env (car env-type)) (type (cadr env-type))) (when (or (string-equal type "enumerate") (string-equal type "enumerate*")) (cl-pushnew env enums :test #'equal)))) (completing-read "List name: " enums))))) ("SetLabelAlign" LaTeX-arg-SetLabelAlign t) ("SetEnumitemKey" LaTeX-arg-SetEnumitemKey) ("SetEnumitemValue" LaTeX-arg-SetEnumitemValue "Replacement") ("DrawEnumitemLabel" 0) "shortlabels" ("SetEnumerateShortLabel" (TeX-arg-eval completing-read "Key: " '(("A") ("a") ("I") ("i") ("1"))) "Replacement") LaTeX-add-lengths "labelitem" featurep font-latex font-latex-setup font-latex-add-keywords (("newlist" "{{{") ("renewlist" "{{{") ("setlist" "*[{") ("AddEnumerateCounter" "*{{{") ("SetLabelAlign" "{{") ("SetEnumitemKey" "{{") ("SetEnumitemValue" "{{{")) function (("restartlist" "{") ("setlistdepth" "{") ("SetEnumerateShortLabel" "{{")) variable LaTeX-enumitem-newlist-list-local TeX-install-font-lock] 9] TeX-dialect) #@43 Package options for the enumitem package. (defvar LaTeX-enumitem-package-options '("inline" "shortlabels" "loadonly" "sizes" "ignoredisplayed" "includedisplayed") (#$ . 17305))