;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\303\304\305\306\307DD\310\311\312\313\314&\207" [require tex latex custom-declare-variable TeX-TikZ-point-name-regexp funcall function #[0 "\300\207" [#1="(\\([A-Za-z0-9]+\\))"] 1 #1#] "A regexp that matches TikZ names." :type regexp :group auctex-tikz] 8) #@60 An alist of point specification types and their functions. (defconst TeX-TikZ-point-function-map '(("Rect Point" TeX-TikZ-arg-rect-point) ("Polar Point" TeX-TikZ-arg-polar-point) ("Named Point" TeX-TikZ-arg-named-point)) (#$ . 384)) #@62 `TeX-TikZ-point-function-map' with "+" and "++" as a prefix. (defconst TeX-TikZ-relative-point-function-map (byte-code "\301\302\303\304\"\"\207" [TeX-TikZ-point-function-map apply append mapcar #[257 "\211@A@\300P\301BB\302P\303BBD\207" ["+" ("+") "++" ("++")] 7 "\n\n(fn POINT-MAP)"]] 5) (#$ . 623)) #@30 An alist of path connectors. (defconst TeX-TikZ-path-connector-function-map '(("--" identity) ("|-" identity) ("-|" identity) ("sin" identity) ("cos" identity)) (#$ . 937)) #@59 An alist of argument names and functoins for TikZ's raw. (defconst TeX-TikZ-draw-arg-function-map (append TeX-TikZ-point-function-map TeX-TikZ-relative-point-function-map TeX-TikZ-path-connector-function-map '(("Node" TeX-TikZ-arg-node) ("Circle" TeX-TikZ-arg-circle) ("Arc" TeX-TikZ-arg-arc) ("Parabola" TeX-TikZ-arg-parabola) ("Grid" TeX-TikZ-arg-grid))) (#$ . 1116)) #@224 Return a string for optional arguments. If ARG is nil or "", return "". Otherwise return "OPEN ARG CLOSE". If OPEN or CLOSE are nil, set them to `LaTeX-optop' and `LaTeX-optcl' respectively. (fn ARG &optional OPEN CLOSE) (defalias 'TeX-TikZ-get-opt-arg-string #[769 "\204\211\204\262 \262\203G\302V\203Q\207\303\207" [LaTeX-optop LaTeX-optcl 0 ""] 6 (#$ . 1494)]) #@155 Prompt the user for a point on the Cartesian plane. Ask the user for an X and Y coordinate, and return the string "(X,Y)". (fn IGNORED &optional PREFIX) (defalias 'TeX-TikZ-arg-rect-point #[513 "\300\301\302\211\303#!\300\301\302\211\304#!\305\306\307\310\260\207" [TeX-read-string TeX-argument-prompt nil "X-coordinate" "Y-coordinate" " " "(" ", " ") "] 11 (#$ . 1884)]) #@152 Prompt the user for a point on the polar plane. Ask the user for r and theta values, and return the string "(THETA:R)". (fn IGNORED &optional PREFIX) (defalias 'TeX-TikZ-arg-polar-point #[513 "\300\301\302\211\303#!\300\301\302\211\304#!\305\306\307\310\260\207" [TeX-read-string TeX-argument-prompt nil "R" "Theta" " " "(" ":" ") "] 11 (#$ . 2268)]) #@176 Prompt the user for options to a TikZ macro. If OPTIONAL is non-nil, always return `LaTeX-optop' and `LaTeX-optcl', even if the user doesn't provide any input. (fn OPTIONAL) (defalias 'TeX-TikZ-arg-options #[257 "\302\303\304\305#!\203\306!\207 Q\207" [LaTeX-optop LaTeX-optcl TeX-read-string TeX-argument-prompt nil "Options" TeX-TikZ-get-opt-arg-string] 6 (#$ . 2632)]) #@137 Prompt the user for a TikZ name. If OPTIONAL is non-nil, always return "()", even if the user doesn't provide any input. (fn OPTIONAL) (defalias 'TeX-TikZ-arg-name #[257 "\300\301\302\303#!\203\304\305\306#\207\305\306Q\207" [TeX-read-string TeX-argument-prompt nil "Name" TeX-TikZ-get-opt-arg-string "(" ")"] 6 (#$ . 3019)]) #@156 Prompt the user for TikZ label. If OPTIONAL is non-nil always return `TeX-grop' and `TeX-grcl', even if the user doesn't provide any input. (fn OPTIONAL) (defalias 'TeX-TikZ-arg-label #[257 "\302\303\304\305#!\203\306 #\207 Q\207" [TeX-grop TeX-grcl TeX-read-string TeX-argument-prompt nil "Label" TeX-TikZ-get-opt-arg-string] 6 (#$ . 3359)]) #@155 Prompt the user for the deatils of a node. Ask the user for the name and text for a node and return the string "node[OPTIONS](NAME){TEXT}". (fn IGNORED) (defalias 'TeX-TikZ-arg-node #[257 "\300\301!\302\301!\303\304!\305\306\260\207" [TeX-TikZ-arg-options t TeX-TikZ-arg-name TeX-TikZ-arg-label nil "node" " "] 9 (#$ . 3718)]) #@156 Prompt the user for an argument type. TYPES is a list of possible types that the user can specify. Use PROMPT as the prompt for input. (fn TYPES PROMPT) (defalias 'TeX-TikZ-get-arg-type #[514 "\301\302\303\301$)\207" [completion-ignore-case t completing-read nil] 7 (#$ . 4057)]) #@440 Prompt the user for a single argument to compose a TikZ macro. FUNCTION-ALIST is a mapping of argument-types to functions. The user is prompted for the argument type, the chosen function is then called and the value returned. PROMPT is used as the prompt for the argument type. When OPTIONAL is non-nil, add "" to FUNCTION-ALIST with a mapping to `identity', permitting an optional input. (fn FUNCTION-ALIST PROMPT &optional OPTIONAL) (defalias 'TeX-TikZ-single-macro-arg #[770 "\300\"\203\301\302\"\202\303\"\304A@@AA#\207" [TeX-TikZ-get-arg-type append (("" identity)) assoc apply] 10 (#$ . 4349)]) #@343 Prompt the user for arguments to compose a TikZ macro. FUNCTION-ALIST is a mapping of argument-types to functions. The user is repeatedly prompted for the next argument-type; they can choose form the cars in FUNCTION-ALIST and the appropriate function is then called. If the user enters "", then the macro is finished. (fn FUNCTION-ALIST) (defalias 'TeX-TikZ-macro-arg #[257 "\300\301!\302\303\302\301#\304\261\210\211\305\230\204!\211c\210\303\301#\262\202\306c\207" [TeX-TikZ-arg-options t "Next argument type (RET to finish): " TeX-TikZ-single-macro-arg " " "" ";"] 8 (#$ . 4975)]) #@222 Find TiKZ named points in current enviroment. Begin by finding the span of the current TikZ enviroment and then searching within that span to find all named-points and return them as a list of strings, dropping the '()'. (defalias 'TeX-TikZ-find-named-points #[0 "\212\301 \210`)\302\212\303 \210\304 \305\306\"\216\307\310#\203$\311\312!B\262\202)\210)\207" [TeX-TikZ-point-name-regexp LaTeX-find-matching-end nil LaTeX-find-matching-begin match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] re-search-forward t match-string 1] 7 (#$ . 5579)]) #@88 Prompt the user for the name of a previous named-point. (fn IGNORED &optional PREFIX) (defalias 'TeX-TikZ-arg-named-point #[513 "\300\301\302 \"\303\304\305\260\207" [completing-read "Point name: " TeX-TikZ-find-named-points " " "(" ") "] 8 (#$ . 6168)]) #@72 Prompt the user for the arguments to the circle command. (fn IGNORED) (defalias 'TeX-TikZ-arg-circle #[257 "\300\301!\302P\207" [TeX-TikZ-arg-options t "circle"] 4 (#$ . 6433)]) #@69 Prompt the user for the arguments to the arc command. (fn IGNORED) (defalias 'TeX-TikZ-arg-arc #[257 "\300\301!\302P\207" [TeX-TikZ-arg-options t "arc"] 4 (#$ . 6619)]) #@127 Prompt the user for a bend argument. If OPTIONAL is non-nil and the user doesn't provide a point, return "". (fn OPTIONAL) (defalias 'TeX-TikZ-arg-bend #[257 "\301\302\303\304##\211\305\230\203\207\306P\207" [TeX-TikZ-point-function-map TeX-TikZ-single-macro-arg TeX-argument-prompt nil "Bend point" "" " bend"] 7 (#$ . 6797)]) #@74 Prompt the user for the arguments to the parabola command. (fn IGNORED) (defalias 'TeX-TikZ-arg-parabola #[257 "\300\301!\302\301!\303Q\207" [TeX-TikZ-arg-options t TeX-TikZ-arg-bend "parabola"] 6 (#$ . 7140)]) #@70 Prompt the user for the arguments to the grid command. (fn IGNORED) (defalias 'TeX-TikZ-arg-grid #[257 "\300\301!\302P\207" [TeX-TikZ-arg-options t "grid"] 4 (#$ . 7360)]) #@71 Prompt the user for the arguments to a TikZ draw macro. (fn IGNORED) (defalias 'TeX-TikZ-draw-arg #[257 "\301!\207" [TeX-TikZ-draw-arg-function-map TeX-TikZ-macro-arg] 3 (#$ . 7540)]) #@77 Prompt the user for the arguments to a TikZ coordinate macro. (fn IGNORED) (defalias 'TeX-TikZ-coordinate-arg #[257 "\301\302!\303\304!\305\306\"\307\310\311\261\207" [TeX-TikZ-point-function-map TeX-TikZ-arg-options t TeX-TikZ-arg-name nil TeX-TikZ-single-macro-arg "Coordinate point type: " " " " at" ";"] 10 (#$ . 7732)]) #@71 Prompt the user for the arguments to a TikZ node macro. (fn IGNORED) (defalias 'TeX-TikZ-node-arg #[257 "\301\302!\303\304!\305\306\"\307\304!\310\311\312\261\207" [TeX-TikZ-point-function-map TeX-TikZ-arg-options t TeX-TikZ-arg-name nil TeX-TikZ-single-macro-arg "Node point type: " TeX-TikZ-arg-label " " " at" ";"] 12 (#$ . 8069)]) (TeX-add-style-hook "tikz" #[0 "\300\301\302\303#\210\304\305!\207" [TeX-add-symbols ("draw" (TeX-TikZ-draw-arg)) ("coordinate" (TeX-TikZ-coordinate-arg)) ("node" (TeX-TikZ-node-arg)) LaTeX-add-environments ("tikzpicture")] 4])