From 7bf720bd2b14ba547dbc0bfc46d4ef9b461cdfb5 Mon Sep 17 00:00:00 2001
From: Karl Berry <karl@freefriends.org>
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/pst-barcode.tex')

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

