From 7bf720bd2b14ba547dbc0bfc46d4ef9b461cdfb5 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Wed, 17 Jun 2015 22:41:10 +0000 Subject: pst-barcode (17jun15) git-svn-id: svn://tug.org/texlive/trunk@37586 c570f23f-e606-0410-a88d-b1316a301751 --- .../tex/generic/pst-barcode/pst-barcode.tex | 26 +++++++++++++++++++--- 1 file changed, 23 insertions(+), 3 deletions(-) (limited to 'Master/texmf-dist/tex/generic/pst-barcode') diff --git a/Master/texmf-dist/tex/generic/pst-barcode/pst-barcode.tex b/Master/texmf-dist/tex/generic/pst-barcode/pst-barcode.tex index a5a5420f165..047295d16b1 100644 --- a/Master/texmf-dist/tex/generic/pst-barcode/pst-barcode.tex +++ b/Master/texmf-dist/tex/generic/pst-barcode/pst-barcode.tex @@ -19,8 +19,8 @@ \let\PSTBarcodeLoaded\endinput \ifx\PSTricksLoaded\endinput\else\input pstricks.tex\fi % -\def\fileversion{0.13} -\def\filedate{2015/05/11} +\def\fileversion{0.14} +\def\filedate{2015/06/17} \message{`PST-barcode' v\fileversion, \filedate\space (tb,hv)} % \edef\PstAtCode{\the\catcode`\@} \catcode`\@=11\relax @@ -28,14 +28,18 @@ \pst@addfams{pst-barcode} \pstheader{pst-barcode.pro} % +\@ifundefined{marginnote}{\RequirePackage{marginnote}}{} % +\newsavebox\QR@box +\define@key[psset]{pst-barcode}{fontstyle}[\small]{\def\pst@fontstyle{#1}} \define@key[psset]{pst-barcode}{transx}[0]{\pst@getlength{#1}\psk@barcode@transx} \define@key[psset]{pst-barcode}{transy}[0]{\pst@getlength{#1}\psk@barcode@transy} \define@key[psset]{pst-barcode}{scalex}[1]{\def\psk@barcode@scalex{#1}} \define@key[psset]{pst-barcode}{scaley}[1]{\def\psk@barcode@scaley{#1}} \define@key[psset]{pst-barcode}{rotate}[0]{\pst@getangle{#1}\psk@barcode@rotate} \define@boolkey[psset]{pst-barcode}[Pst@]{file}[true]{} -\psset[pst-barcode]{transx=0,transy=0,scalex=1,scaley=1,rotate=0,file=false} +\psset[pst-barcode]{transx=0,transy=0,scalex=1,scaley=1,rotate=0,file=false, + fontstyle=\small\ttfamily} % \def\psbarcode{\pst@object{psbarcode}} \def\psbarcode@i#1#2#3{% @@ -62,6 +66,22 @@ \ignorespaces% } % +% +\def\short@url#1/#2\@nil{\ifx\relax#2\relax #1\else\short@url#2\@nil\fi} +\def\QR{\@ifnextchar[\QR@i{\QR@i[0.5]}} +\def\QR@i[#1]{\@ifnextchar<{\QR@ii[#1]}{\QR@ii[#1]<>}} +\def\QR@ii[#1]<#2>#3{% + \marginnote{\pspicture(#1in,#1in) + \expandafter\psbarcode\expandafter{#2}{width=#1 height=#1}{qrcode} + \endpspicture + \newline\noindent + \ifx\relax#2\relax + \sbox\QR@box{\expandafter\pst@fontstyle\short@url#3/\@nil}% Speichere Kurz-URL in \QRbox + \else + \sbox\QR@box{#2}% + \fi + \ifdim\wd\QR@box>#1in\resizebox{#1in}{\ht\QR@box}{\usebox\QR@box}\else\usebox\QR@box\fi}} +% \catcode`\@=\PstAtCode\relax % %% END: pst-barcode.tex -- cgit v1.2.3