% % pxtextpos.sty % written by Hironobu Yamashita (@aminophen) % % This package is part of the plautopatch bundle. % https://github.com/aminophen/plautopatch % % This package is expected to be compatible with % * textpos.sty % 2005/10/13 v1.6a -- 2019/04/15 v1.9.1 % %% package declaration \NeedsTeXFormat{LaTeX2e} \ProvidesPackage{pxtextpos} [2019/11/17 v0.2a Patch to textpos for (u)pLaTeX] %% preparations \def\pxtxtpos@pkgname{pxtextpos} \def\pxtxtpos@warn{\PackageWarningNoLine\pxtxtpos@pkgname} %% load it \RequirePackageWithOptions{textpos} %% check if \iftombow ... \fi is available \ifx\tombowtrue\@undefined \pxtxtpos@warn{Tombow feature unavailable, aborting} \expandafter\endinput \fi %% known definition \def\pxtxtpos@textblockorigin#1#2{% \ifTP@abspos \TP@ox=-1in \addtolength\TP@ox{#1} \TP@oy=-1in \addtolength\TP@oy{#2} \ifTP@chatter\typeout{TextBlockOrigin set to #1 x #2}\fi \else \PackageError{textpos} {The \protect\textblockorigin\space command\MessageBreak may only be used if the package was given\MessageBreak the`absolute' option when it was invoked} {If you want to use the \protect\textblockorigin\space command, then \MessageBreak invoke the package with the syntax\MessageBreak \protect\usepackage[absolute]{textpos}} \fi } \@onlypreamble\pxtxtpos@textblockorigin %% redefine it \ifx\textblockorigin\pxtxtpos@textblockorigin\else \pxtxtpos@warn{% Command \noexpand\textblockorigin is beyond my knowledge.\MessageBreak I will apply the patch anyway, but it may break:\MessageBreak Please report to the author of `\pxtxtpos@pkgname.sty'} \fi \def\textblockorigin#1#2{% \ifTP@abspos \TP@ox=-1in \addtolength\TP@ox{#1} \TP@oy=-1in \addtolength\TP@oy{#2} %%% addition \iftombow \addtolength\TP@ox{1in}\addtolength\TP@oy{1in} \fi %%% \ifTP@chatter\typeout{TextBlockOrigin set to #1 x #2}\fi \else \PackageError{textpos} {The \protect\textblockorigin\space command\MessageBreak may only be used if the package was given\MessageBreak the`absolute' option when it was invoked} {If you want to use the \protect\textblockorigin\space command, then \MessageBreak invoke the package with the syntax\MessageBreak \protect\usepackage[absolute]{textpos}} \fi } %% reset \ifTP@abspos \textblockorigin{0pt}{0pt}% \fi \endinput %% EOF