;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\207" [require tex latex] 2) #@58 List of input separators for macros of menukeys package. (defvar LaTeX-menukeys-input-separators-list '("/" "=" "*" "+" "," ";" ":" "-" ">" "<" "bslash") (#$ . 150)) #@61 List of predefined styles for macros from menukeys package. (defvar LaTeX-menukeys-predefined-styles-list '("menus" "roundedmenus" "angularmenus" "roundedkeys" "shadowedroundedkeys" "angularkeys" "shadowedangularkeys" "typewriterkeys" "paths" "pathswithfolder" "pathswithblackfolder" "hyphenatepaths" "hyphenatepathswithfolder" "hyphenatepathswithblackfolder") (#$ . 322)) #@99 Information about menukeys-newmenustyles in the current buffer. Generated by `TeX-auto-add-type'. (defvar LaTeX-auto-menukeys-newmenustyle nil (#$ . 701)) #@99 Information about menukeys-newmenustyles in the current buffer. Generated by `TeX-auto-add-type'. (defvar LaTeX-menukeys-newmenustyle-list nil (#$ . 862)) (make-variable-buffer-local 'LaTeX-menukeys-newmenustyle-list) #@99 Information about menukeys-newmenustyles in the current buffer. Generated by `TeX-auto-add-type'. (defvar LaTeX-menukeys-newmenustyle-changed nil (#$ . 1086)) (make-variable-buffer-local 'LaTeX-menukeys-newmenustyle-changed) #@138 Add information about MENUKEYS-NEWMENUSTYLES to the current buffer. Generated by `TeX-auto-add-type'. (fn &rest MENUKEYS-NEWMENUSTYLES) (defalias 'LaTeX-add-menukeys-newmenustyles #[128 "\300\301\"\207" [TeX-auto-add-information "menukeys-newmenustyle"] 4 (#$ . 1318)]) #@96 List of menukeys-newmenustyles active in the current buffer. Generated by `TeX-auto-add-type'. (defalias 'LaTeX-menukeys-newmenustyle-list #[0 "\300\301!\207" [TeX-auto-list-information "menukeys-newmenustyle"] 2 (#$ . 1596)]) (byte-code "\300\301\302\303#\210\304\305\306\"\207" [add-to-list TeX-auto-parser ("menukeys-newmenustyle" LaTeX-auto-menukeys-newmenustyle LaTeX-add-menukeys-newmenustyles LaTeX-menukeys-newmenustyle-list LaTeX-menukeys-newmenustyle-changed) t add-hook TeX-remove-style-hook #[0 "\301\211\207" [LaTeX-menukeys-newmenustyle-list nil] 2]] 4) #@86 Matches the argument of \newmenustyle and \newmenustylesimple from menukeys package. (defvar LaTeX-menukeys-newmenustyle-regexp '("\\\\\\(?:new\\|copy\\)menustyle\\(?:simple\\)?*?{\\([^}]+\\)}" 1 LaTeX-auto-menukeys-newmenustyle) (#$ . 2171)) #@104 Information about menukeys-newmenucolorthemes in the current buffer. Generated by `TeX-auto-add-type'. (defvar LaTeX-auto-menukeys-newmenucolortheme nil (#$ . 2421)) #@104 Information about menukeys-newmenucolorthemes in the current buffer. Generated by `TeX-auto-add-type'. (defvar LaTeX-menukeys-newmenucolortheme-list nil (#$ . 2594)) (make-variable-buffer-local 'LaTeX-menukeys-newmenucolortheme-list) #@104 Information about menukeys-newmenucolorthemes in the current buffer. Generated by `TeX-auto-add-type'. (defvar LaTeX-menukeys-newmenucolortheme-changed nil (#$ . 2835)) (make-variable-buffer-local 'LaTeX-menukeys-newmenucolortheme-changed) #@148 Add information about MENUKEYS-NEWMENUCOLORTHEMES to the current buffer. Generated by `TeX-auto-add-type'. (fn &rest MENUKEYS-NEWMENUCOLORTHEMES) (defalias 'LaTeX-add-menukeys-newmenucolorthemes #[128 "\300\301\"\207" [TeX-auto-add-information "menukeys-newmenucolortheme"] 4 (#$ . 3082)]) #@101 List of menukeys-newmenucolorthemes active in the current buffer. Generated by `TeX-auto-add-type'. (defalias 'LaTeX-menukeys-newmenucolortheme-list #[0 "\300\301!\207" [TeX-auto-list-information "menukeys-newmenucolortheme"] 2 (#$ . 3381)]) (byte-code "\300\301\302\303#\210\304\305\306\"\207" [add-to-list TeX-auto-parser ("menukeys-newmenucolortheme" LaTeX-auto-menukeys-newmenucolortheme LaTeX-add-menukeys-newmenucolorthemes LaTeX-menukeys-newmenucolortheme-list LaTeX-menukeys-newmenucolortheme-changed) t add-hook TeX-remove-style-hook #[0 "\301\211\207" [LaTeX-menukeys-newmenucolortheme-list nil] 2]] 4) #@67 Matches the argument of \newmenucolortheme from menukeys package. (defvar LaTeX-menukeys-newmenucolortheme-regexp '("\\\\\\(?:new\\|copy\\)menucolortheme{\\([^}]+\\)}" 1 LaTeX-auto-menukeys-newmenucolortheme) (#$ . 4001)) #@99 Information about menukeys-newmenumacros in the current buffer. Generated by `TeX-auto-add-type'. (defvar LaTeX-auto-menukeys-newmenumacro nil (#$ . 4229)) #@99 Information about menukeys-newmenumacros in the current buffer. Generated by `TeX-auto-add-type'. (defvar LaTeX-menukeys-newmenumacro-list nil (#$ . 4391)) (make-variable-buffer-local 'LaTeX-menukeys-newmenumacro-list) #@99 Information about menukeys-newmenumacros in the current buffer. Generated by `TeX-auto-add-type'. (defvar LaTeX-menukeys-newmenumacro-changed nil (#$ . 4616)) (make-variable-buffer-local 'LaTeX-menukeys-newmenumacro-changed) #@138 Add information about MENUKEYS-NEWMENUMACROS to the current buffer. Generated by `TeX-auto-add-type'. (fn &rest MENUKEYS-NEWMENUMACROS) (defalias 'LaTeX-add-menukeys-newmenumacros #[128 "\300\301\"\207" [TeX-auto-add-information "menukeys-newmenumacro"] 4 (#$ . 4848)]) #@96 List of menukeys-newmenumacros active in the current buffer. Generated by `TeX-auto-add-type'. (defalias 'LaTeX-menukeys-newmenumacro-list #[0 "\300\301!\207" [TeX-auto-list-information "menukeys-newmenumacro"] 2 (#$ . 5126)]) (byte-code "\300\301\302\303#\210\304\305\306\"\207" [add-to-list TeX-auto-parser ("menukeys-newmenumacro" LaTeX-auto-menukeys-newmenumacro LaTeX-add-menukeys-newmenumacros LaTeX-menukeys-newmenumacro-list LaTeX-menukeys-newmenumacro-changed) t add-hook TeX-remove-style-hook #[0 "\301\211\207" [LaTeX-menukeys-newmenumacro-list nil] 2]] 4) #@63 Matches the arguments of \newmenumacro from menukeys package. (defvar LaTeX-menukeys-newmenumacro-regexp (byte-code "\301\302!\303Q\304B\207" [TeX-esc "\\\\\\(new\\|renew\\|provide\\)menumacro{?" regexp-quote "\\([a-zA-Z]+\\)}?\\(?:\\[\\([^]]*\\)\\]\\)?" ((2 3 1) LaTeX-auto-menukeys-newmenumacro)] 3) (#$ . 5701)) #@65 Clear various `LaTeX-auto-menukeys-*' variables before parsing. (defalias 'LaTeX-menukeys-auto-prepare #[0 "\303\211\303\211\207" [LaTeX-auto-menukeys-newmenustyle LaTeX-auto-menukeys-newmenucolortheme LaTeX-auto-menukeys-newmenumacro nil] 3 (#$ . 6023)]) #@511 Process the parsed elements for menukeys package. This function adds parsed elements from the variable `LaTeX-menukeys-newmenumacro-list' to AUCTeX via the function `TeX-add-symbols'. The variable `LaTeX-menukeys-newmenumacro-list' and not the function with the same name is used since this function looks for the order of commands which are set by \renewmenumacro in order to pick the current separator. These renew-commands are also removed first from the variable `TeX-symbol-list' before being re-added. (defalias 'LaTeX-menukeys-auto-cleanup #[0 "\303\304\"\211\205n\211@\211@A@\3058\306\230\205\3058\211\203(\307\310\301 \"@ \"\311\303\312\313\314\315\316\317\320 \203C \321\230\204C \202D\322\323QF\324BBB\"\325BB!\210\326\327!\203e\n\330=\203e\331\332BC\333\"\210\266A\266\202\202\207" [LaTeX-menukeys-newmenumacro-list TeX-symbol-list TeX-install-font-lock apply append 2 "renew" assq-delete-all assoc TeX-add-symbols vector TeX-arg-eval completing-read TeX-argument-prompt t nil "Input separator (default " "" "," ")" (LaTeX-menukeys-input-separators-list) (t) featurep font-latex font-latex-setup font-latex-add-keywords ("[{") textual] 17 (#$ . 6289)]) (byte-code "\300\301\302\303#\210\300\304\305\303#\210\300\306\307\303#\207" [add-hook TeX-auto-prepare-hook LaTeX-menukeys-auto-prepare t TeX-auto-cleanup-hook LaTeX-menukeys-auto-cleanup TeX-update-style-hook TeX-auto-parse] 4) #@352 Query and insert the arguments of \newmenumacro from menukeys package. After inserting, add the name of macro and the optional separator to the name of known macros via `TeX-add-symbols'. If font-latex.el is loaded, also use `font-latex-add-keywords' on macro. If RENEW is non-nil, query for an already defined macro. (fn OPTIONAL &optional RENEW) (defalias 'TeX-arg-menukeys-newmenumacro #[513 "\211\203\304\305P\306\307\310\311 \"!\"\202\312\305P!\304\313\314\315# \"\304\313\314\316#\317 \"\320P\"\210\203A\321\230\204A\322\323\"c\210\320\"\210\203U\324\325\302 \"@\n\"\326\327\330\331\304\313\332\314\333 \203p \321\230\204p \202q\334\335QF\336BBB\"\337BB!\210\340\341!\205\221 \342=\205\221\343\344BC\345\"\207" [TeX-esc LaTeX-menukeys-input-separators-list TeX-symbol-list TeX-install-font-lock completing-read "Macro: " TeX-delete-duplicate-strings mapcar car LaTeX-menukeys-newmenumacro-list TeX-read-string TeX-argument-prompt nil "Input separator (default ,)" "Style" LaTeX-menukeys-newmenustyle-list TeX-argument-insert "" format "[%s]" assq-delete-all assoc TeX-add-symbols apply vector TeX-arg-eval t "Input separator (default " "," ")" (LaTeX-menukeys-input-separators-list) (t) featurep font-latex font-latex-setup font-latex-add-keywords ("[{") textual] 17 (#$ . 7717)]) (TeX-add-style-hook "menukeys" #[0 "\305!\210\305 !\210\305\n!\210\306\307 \"\210\310\311\312\"\210\313\314\315\316#\210\317\320\321\"\204)\322\323\324\325#\210\322\326\327\330\331\332\333\334\335\336\337\340\341\342\343\344\345\346\347\350\351&\210\317\320\352\"\204\246\353\354\355\211\203\237\211@\211A\356U\203b\211@B\262\202\230\211A\357U\203t\211@\360DB\262\202\230\211A\361U\203\230\211@B\262\211\203\227\211@@PB\262A\266\202\202\202\210A\266\202\202L\210\306\322\"\266\362\363!\205\273\f\364=\205\273\365\366\367\"\210\365\370\371\"\207" [LaTeX-menukeys-newmenustyle-regexp LaTeX-menukeys-newmenucolortheme-regexp LaTeX-menukeys-newmenumacro-regexp LaTeX-menukeys-predefined-styles-list TeX-install-font-lock TeX-auto-add-regexp apply LaTeX-add-menukeys-newmenustyles LaTeX-add-menukeys-newmenucolorthemes "gray" "blacknwhite" TeX-run-style-hooks "xcolor" "tikz" "relsize" LaTeX-provided-package-options-member "menukeys" "definemenumacros=false" TeX-add-symbols ("menu" [TeX-arg-eval completing-read (TeX-argument-prompt t nil "Input separator") LaTeX-menukeys-input-separators-list] t) ("directory" [TeX-arg-eval completing-read (TeX-argument-prompt t nil "Input separator") LaTeX-menukeys-input-separators-list] t) ("keys" [TeX-arg-eval completing-read (TeX-argument-prompt t nil "Input separator") LaTeX-menukeys-input-separators-list] t) ("drawtikzfolder" [TeX-arg-eval completing-read (TeX-argument-prompt t nil "Front color") (LaTeX-xcolor-definecolor-list)] [TeX-arg-eval completing-read (TeX-argument-prompt t nil "Line color") (LaTeX-xcolor-definecolor-list)]) ("newmenustylesimple" (TeX-arg-eval (lambda nil (let ((name (TeX-read-string (TeX-argument-prompt nil nil "Name")))) (LaTeX-add-menukeys-newmenustyles name) (format "%s" name)))) [t] nil [nil] [nil] (TeX-arg-eval completing-read (TeX-argument-prompt nil nil "Color theme") (LaTeX-menukeys-newmenucolortheme-list))) ("newmenustylesimple*" (TeX-arg-eval (lambda nil (let ((name (TeX-read-string (TeX-argument-prompt nil nil "Name")))) (LaTeX-add-menukeys-newmenustyles name) (format "%s" name)))) [t] nil [nil] [nil] (TeX-arg-eval completing-read (TeX-argument-prompt nil nil "Color theme") (LaTeX-menukeys-newmenucolortheme-list))) ("newmenustyle" (TeX-arg-eval (lambda nil (let ((name (TeX-read-string (TeX-argument-prompt nil nil "Name")))) (LaTeX-add-menukeys-newmenustyles name) (format "%s" name)))) [t] nil [nil] nil nil nil [nil] (TeX-arg-eval completing-read (TeX-argument-prompt nil nil "Color theme") (LaTeX-menukeys-newmenucolortheme-list))) ("newmenustyle*" (TeX-arg-eval (lambda nil (let ((name (TeX-read-string (TeX-argument-prompt nil nil "Name")))) (LaTeX-add-menukeys-newmenustyles name) (format "%s" name)))) [t] nil [nil] nil nil nil [nil] (TeX-arg-eval completing-read (TeX-argument-prompt nil nil "Color theme") (LaTeX-menukeys-newmenucolortheme-list))) ("CurrentMenuElement" 0) ("copymenustyle" (TeX-arg-eval (lambda nil (let ((copy (TeX-read-string (TeX-argument-prompt nil nil "Copy"))) (orig (completing-read (TeX-argument-prompt nil nil "Original") (LaTeX-menukeys-newmenustyle-list)))) (LaTeX-add-menukeys-newmenustyles copy) (TeX-argument-insert copy nil) (format "%s" orig))))) ("changemenuelement" (TeX-arg-eval completing-read (TeX-argument-prompt nil nil "Name") (LaTeX-menukeys-newmenustyle-list)) 2) ("changemenuelement*" (TeX-arg-eval completing-read (TeX-argument-prompt nil nil "Name") (LaTeX-menukeys-newmenustyle-list)) 2) ("renewmenustylesimple" (TeX-arg-eval completing-read (TeX-argument-prompt nil nil "Name") (LaTeX-menukeys-newmenustyle-list)) [t] nil [nil] [nil] (TeX-arg-eval completing-read (TeX-argument-prompt nil nil "Color theme") (LaTeX-menukeys-newmenucolortheme-list))) ("providemenustylesimple" (TeX-arg-eval (lambda nil (let ((name (TeX-read-string (TeX-argument-prompt nil nil "Name")))) (LaTeX-add-menukeys-newmenustyles name) (format "%s" name)))) [t] nil [nil] [nil] (TeX-arg-eval completing-read (TeX-argument-prompt nil nil "Color theme") (LaTeX-menukeys-newmenucolortheme-list))) ("providemenustyle" (TeX-arg-eval completing-read (TeX-argument-prompt nil nil "Name") (LaTeX-menukeys-newmenustyle-list)) [t] nil [nil] nil nil nil [nil] (TeX-arg-eval completing-read (TeX-argument-prompt nil nil "Color theme") (LaTeX-menukeys-newmenucolortheme-list))) ("renewmenustyle" (TeX-arg-eval (lambda nil (let ((name (TeX-read-string (TeX-argument-prompt nil nil "Name")))) (LaTeX-add-menukeys-newmenustyles name) (format "%s" name)))) [t] nil [nil] nil nil nil [nil] (TeX-arg-eval completing-read (TeX-argument-prompt nil nil "Color theme") (LaTeX-menukeys-newmenucolortheme-list))) ("newmenucolortheme" (TeX-arg-eval (lambda nil (let ((name (TeX-read-string (TeX-argument-prompt nil nil "Name")))) (LaTeX-add-menukeys-newmenucolorthemes name) (format "%s" name)))) (TeX-arg-eval (lambda nil (let ((model (completing-read (TeX-argument-prompt nil nil "Model") (LaTeX-xcolor-color-models)))) (TeX-argument-insert model nil) (if (string= model "named") (let ((bg (completing-read (TeX-argument-prompt nil nil "Node background color") (LaTeX-xcolor-definecolor-list))) (br (completing-read (TeX-argument-prompt nil nil "Node border color") (LaTeX-xcolor-definecolor-list))) (txt (completing-read (TeX-argument-prompt nil nil "Node text color") (LaTeX-xcolor-definecolor-list)))) (TeX-argument-insert bg nil) (TeX-argument-insert br nil) (format "%s" txt)) (let ((bg (TeX-read-string (TeX-argument-prompt nil nil "Node background color spec"))) (br (TeX-read-string (TeX-argument-prompt nil nil "Node border color spec"))) (txt (TeX-read-string (TeX-argument-prompt nil nil "Node text color spec")))) (TeX-argument-insert bg nil) (TeX-argument-insert br nil) (format "%s" txt)))))) (TeX-arg-conditional (y-or-n-p "With additional optional arguments? ") ([3]) (ignore))) ("copymenucolortheme" (TeX-arg-eval (lambda nil (let ((copy (TeX-read-string (TeX-argument-prompt nil nil "Copy"))) (orig (completing-read (TeX-argument-prompt nil nil "Original") (LaTeX-menukeys-newmenucolortheme-list)))) (LaTeX-add-menukeys-newmenucolorthemes copy) (TeX-argument-insert copy nil) (format "%s" orig))))) ("changemenucolor" (TeX-arg-eval completing-read (TeX-argument-prompt nil nil "Name") (LaTeX-menukeys-newmenucolortheme-list)) (TeX-arg-eval completing-read (TeX-argument-prompt nil nil "Element") '("bg" "br" "txt")) (TeX-arg-eval (lambda nil (let ((model (completing-read (TeX-argument-prompt nil nil "Model") (LaTeX-xcolor-color-models)))) (TeX-argument-insert model nil) (if (string= model "named") (let ((color (completing-read (TeX-argument-prompt nil nil "Color") (LaTeX-xcolor-definecolor-list)))) (format "%s" color)) (let ((color (TeX-read-string (TeX-argument-prompt nil nil "Color spec")))) (format "%s" color))))))) ("renewmenucolortheme" (TeX-arg-eval (lambda nil (let ((name (TeX-read-string (TeX-argument-prompt nil nil "Name")))) (LaTeX-add-menukeys-newmenucolorthemes name) (format "%s" name)))) (TeX-arg-eval (lambda nil (let ((model (completing-read (TeX-argument-prompt nil nil "Model") (LaTeX-xcolor-color-models)))) (TeX-argument-insert model nil) (if (string= model "named") (let ((bg (completing-read (TeX-argument-prompt nil nil "Node background color") (LaTeX-xcolor-definecolor-list))) (br (completing-read (TeX-argument-prompt nil nil "Node border color") (LaTeX-xcolor-definecolor-list))) (txt (completing-read (TeX-argument-prompt nil nil "Node text color") (LaTeX-xcolor-definecolor-list)))) (TeX-argument-insert bg nil) (TeX-argument-insert br nil) (format "%s" txt)) (let ((bg (TeX-read-string (TeX-argument-prompt nil nil "Node background color spec"))) (br (TeX-read-string (TeX-argument-prompt nil nil "Node border color spec"))) (txt (TeX-read-string (TeX-argument-prompt nil nil "Node text color spec")))) (TeX-argument-insert bg nil) (TeX-argument-insert br nil) (format "%s" txt)))))) (TeX-arg-conditional (y-or-n-p "With additional optional arguments? ") ([3]) (ignore))) ("newmenumacro" TeX-arg-menukeys-newmenumacro) ("providemenumacro" TeX-arg-menukeys-newmenumacro) ("renewmenumacro" (TeX-arg-menukeys-newmenumacro t)) "definekeys=false" (("shift" . 0) ("capslock" . 2) ("tab" . 2) ("esc" . 2) ("ctrl" . 2) ("alt" . 2) ("AltGr" . 0) ("cmd" . 0) ("Space" . 0) ("SPACE" . 0) ("return" . 2) ("enter" . 2) ("winmenu" . 0) ("backspace" . 0) ("del" . 0) ("arrowkeyup" . 0) ("arrowkeydown" . 0) ("arrowkeyleft" . 0) ("arrowkeyright" . 0) ("arrowkey" . 1) ("ctrlname" . 0) ("delname" . 0) ("spacename" . 0)) ("mac" "win") nil 0 1 (TeX-arg-eval completing-read "Direction: " '("^" "v" ">" "<")) 2 featurep font-latex font-latex-setup font-latex-add-keywords (("menu" "[{") ("directory" "[{") ("keys" "[{") ("drawtikzfolder" "[[")) textual (("newmenustylesimple" "*{[{[[{") ("newmenustyle" "*{[{[{{{[{") ("copymenustyle" "{{") ("changemenuelement" "*{{{") ("renewmenustylesimple" "{[{[[{") ("providemenustylesimple" "{[{[[{") ("providemenustyle" "{[{[{{{[{") ("renewmenustyle" "{[{[{{{[{") ("newmenucolortheme" "{{{{{[[[") ("copymenucolortheme" "{{") ("changemenucolor" "{{{{") ("renewmenucolortheme" "{{{{{[[[") ("newmenumacro" "|{\\[{") ("providemenumacro" "|{\\[{") ("renewmenumacro" "|{\\[{")) function] 21] TeX-dialect) #@39 Package options for menukeys package. (defvar LaTeX-menukeys-package-options-list '(("definemenumacros" ("true" "false")) ("definekeys" ("true" "false")) ("mackeys" ("text" "symbols")) ("os" ("mac" "win"))) (#$ . 18259)) #@54 Prompt for package options for the menukeys package. (defalias 'LaTeX-menukeys-package-options #[0 "\301\302\"\207" [LaTeX-menukeys-package-options-list TeX-read-key-val t] 3 (#$ . 18486)])