summaryrefslogtreecommitdiff
path: root/macros/latex/contrib/hvqrurl/latex/hvqrurl.sty
blob: af29f1a446d06ca3123ffb515c016a32ff44a9d7 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
%% $Id: hvqrurl.sty 872 2024-02-06 16:11:47Z herbert $
%%
%% This file is distributed under the terms of the LaTeX Project Public
%% License from CTAN archives in directory  macros/latex/base/lppl.txt.
%% Either version 1.3 or, at your option, any later version.
%%
% Copyright 2019,21,23,24 Herbert Voss hvoss@tug.org
%%
\ProvidesPackage{hvqrurl}[%
  2024/02/06 v.0.07 (Herbert Voss) Supports qr images into the margin (hv)] 
%
\NeedsTeXFormat{LaTeX2e}
\RequirePackage{url}
\RequirePackage{xcolor}
\RequirePackage{marginnote}
\RequirePackage{qrcode}
\RequirePackage{xkeyval}

\newif\if@no@hyperref \@no@hyperreffalse
\DeclareOption{nohyperref}{\@no@hyperreftrue}           
\ProcessOptions 

\if@no@hyperref\else\RequirePackage{hyperref}\fi

\newlength\qr@url@qrheight
\newlength\qr@url@qradjust

\define@key{hvqr}{qrheight}[1cm]{\setlength\qr@url@qrheight{#1}}
\define@key{hvqr}{qradjust}[-1.5\normalbaselineskip]{\setlength\qr@url@qradjust{#1}}
\define@key{hvqr}{qrcolor}[black]{\colorlet{qr@url@qrcolor}{#1}}
\define@key{hvqr}{qrlevel}[M]{\def\qr@url@qrlevel{#1}}
\define@key{hvqr}{qrlink}[link]{\def\qr@url@qrlink{#1}}
\define@key{hvqr}{linktext}[]{\def\qr@url@linktext{#1}}
\define@boolkey{hvqr}[hv@]{qrreverse}[true]{}

\setkeys{hvqr}{qrheight,qrcolor=black,qradjust,qrlevel,qrlink=link,
	qrreverse=false,linktext={}}% the default setting

\newcommand*\hvqrset[1]{\setkeys{hvqr}{#1}}

\def\hvqrurl{\@ifnextchar*{\@tempswafalse\hvqr@url}{\@tempswatrue\hvqr@@url}}

\def\hvqr@url*{\hvqr@@url}


\newcommand*\hvqr@@url[2][]{%
  \begingroup
  \providecommand*\qr@blank{0}%
  \ifx\relax#1\relax \else\hvqrset{#1}\fi
  % Set options for package qrcode
  \expandafter\qrset\expandafter{\qr@url@qrlink,height=\qr@url@qrheight,level=\qr@url@qrlevel}%
  \ifhv@qrreverse\reversemarginpar\fi
  \if@tempswa
    \ifx\@empty\qr@url@linktext % alternative link text?
      \edef\hv@foo{\detokenize\expandafter{#2}}%
      \url{\hv@foo}%
    \else
      % \href[options]{URL}{text}
      \typeout{>>>(hvqrurl) Alternative URL text}%
      \edef\hv@fooA{\detokenize\expandafter{#2}}%
      \edef\hv@fooB{\detokenize\expandafter{\qr@url@linktext}}%
      \href{\hv@fooA}{\hv@fooB}%
    \fi
  \fi
  \edef\reserved@a{\noexpand\marginnote{\noexpand\color{qr@url@qrcolor}\noexpand\qrcode{%
     \detokenize\expandafter{#2}}}[\qr@url@qradjust]}%
  \reserved@a
  \endgroup
}

\endinput