diff options
author | Norbert Preining <norbert@preining.info> | 2019-10-29 03:00:39 +0000 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2019-10-29 03:00:39 +0000 |
commit | 97f5151099967e6c823d640a90d87bca92c44035 (patch) | |
tree | 685caa49488599f87d0caa4e972833b2263d8567 /usergrps/dante/dtk/dtk-url.sty | |
parent | 25a647b97ef526aefcc75269dd19c46dbe3ae4c1 (diff) |
CTAN sync 201910290300
Diffstat (limited to 'usergrps/dante/dtk/dtk-url.sty')
-rw-r--r-- | usergrps/dante/dtk/dtk-url.sty | 37 |
1 files changed, 34 insertions, 3 deletions
diff --git a/usergrps/dante/dtk/dtk-url.sty b/usergrps/dante/dtk/dtk-url.sty index 9ccccaee3b..b4d37a4ffc 100644 --- a/usergrps/dante/dtk/dtk-url.sty +++ b/usergrps/dante/dtk/dtk-url.sty @@ -2,7 +2,7 @@ %% %% LaTeX Class for ``Die TeXnische Komoedie''. %% -%% Copyright (C) 2015- +%% Copyright (C) 2015-2019 %% Rolf Niepraschk, Herbert Voss %% %% It may be distributed and/or modified under the @@ -14,10 +14,22 @@ %% version 2005/12/01 or later. \NeedsTeXFormat{LaTeX2e} -\ProvidesPackage{dtk-url}[2019/07/29 v1.3 Urls for DTK (HO,hv)] -%% 1.1, 1.2, 1.3 hv +\ProvidesPackage{dtk-url}[2019/10/28 v1.4 Urls (qrcode) for DTK (HO,hv,rn)] \RequirePackage{url}[2006/04/12] +\RequirePackage{xcolor} +\RequirePackage{xkeyval} + +\newlength\dtk@url@qrheight +\newlength\dtk@url@qradjust +\providecommand*\dtk@url@qrlevel{} +\define@key{dtk}{qrheight}[1cm]{\setlength\dtk@url@qrheight{#1}} +\define@key{dtk}{qradjust}[-1.5\normalbaselineskip]{\setlength\dtk@url@qradjust{#1}} +\define@key{dtk}{qrcolor}[black]{\colorlet{dtk@url@qrcolor}{#1}} +\define@key{dtk}{qrlevel}[M]{\renewcommand*\dtk@url@qrlevel{#1}} + +\setkeys{dtk}{qrheight,qrcolor,qradjust,qrlevel}% the default setting + % Konfiguration: \newcommand*{\DTK@UrlSetup}{\urlstyle{tt}} @@ -180,4 +192,23 @@ {\@percentchar#1}% }% } + +\RequirePackage{qrcode} + +\newcommand*\qrurl{% + \providecommand*\qr@blank{0} + \@ifstar{\@tempswafalse}{\@tempswatrue}% + \qr@url +} +\newcommand*\qr@url[2][]{% + \begingroup + \if$#1$\else\setkeys{dtk}{#1}\fi + \qrset{height=\dtk@url@qrheight,level=\dtk@url@qrlevel}% + \if@tempswa\url{#2}\fi + \edef\reserved@a{\noexpand\marginnote{\noexpand\color{dtk@url@qrcolor}\noexpand\qrcode{% + \detokenize\expandafter{#2}}}[\dtk@url@qradjust]}% + \reserved@a + \endgroup +} + \endinput |