;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\207" [require tex latex] 2) #@79 Query for the arguments of `textblock' environment and insert them. (fn ENV) (defalias 'LaTeX-env-arg-textpos-textblock #[257 "\300\301!\300\302!\211\303\230?\205\300\304!\300\305!\300\306!\307\205+\303\230?\205+\310\311\"\205J\303\230?\205J\205J\303\230?\205J\310\312#\205g\303\230?\205g\205g\303\230?\205g\310\313#Q\"\207" [TeX-read-string "Width: " "(Optional) X reference point: " "" "Y reference point: " "X placement point: " "Y placement point: " LaTeX-insert-environment format "{%s}" "[%s,%s]" "(%s,%s)"] 14 (#$ . 150)]) #@69 Query and insert the optional argument of `\TPGrid'. (fn OPTIONAL) (defalias 'LaTeX-arg-textpos-tpgrid #[257 "\300\301!\211\302\230?\205 \300\303!\302\230?\205#\211\302\230?\205#\304\305\306#\"\207" [TeX-read-string "(Optional) X start coordinate: " "" "Y start coordinate: " TeX-argument-insert format "%s,%s"] 8 (#$ . 725)]) (TeX-add-style-hook "textpos" #[0 "\300\301!\210\302\303\304\"\210\305\306\307\310\311\312\313\314\315\316& \210\317\320\321\322#\207" [TeX-run-style-hooks "everyshi" LaTeX-add-environments ("textblock" LaTeX-env-arg-textpos-textblock) ("textblock*" LaTeX-env-arg-textpos-textblock) TeX-add-symbols ("TPGrid" [LaTeX-arg-textpos-tpgrid] "Horizontal fraction" "Vertical fraction") ("TPMargin" (TeX-arg-length "Margin around textblock")) ("TPMargin*" (TeX-arg-length "Margin around textblock")) ("textblockcolour" (TeX-arg-eval (lambda nil (let ((color (cond ((member "xcolor" (TeX-style-list)) (completing-read "Color name: " (LaTeX-xcolor-definecolor-list))) ((member "color" (TeX-style-list)) (completing-read "Color name: " (LaTeX-color-definecolor-list))) (t (TeX-read-string "Color name: "))))) (format "%s" color))))) ("textblockrulecolour" (TeX-arg-eval (lambda nil (let ((color (cond ((member "xcolor" (TeX-style-list)) (completing-read "Color name: " (LaTeX-xcolor-definecolor-list))) ((member "color" (TeX-style-list)) (completing-read "Color name: " (LaTeX-color-definecolor-list))) (t (TeX-read-string "Color name: "))))) (format "%s" color))))) ("TPshowboxestrue") ("TPshowboxesfalse") ("textblocklabel" t) ("textblockorigin" "Horizontal position" "Vertical position") LaTeX-add-lengths "TPHorizModule" "TPVertModule" "TPboxrulesize"] 10] TeX-dialect) #@42 Package options for the textpos package. (defvar LaTeX-textpos-package-options '("showboxes" "noshowtext" "absolute" "overlay" "verbose" "quiet") (#$ . 2429))