author | wneuper <Walther.Neuper@jku.at> |
Sun, 31 Dec 2023 09:42:27 +0100 | |
changeset 60787 | 26037efefd61 |
parent 52107 | f8845fc8f38d |
permissions | -rw-r--r-- |
neuper@42070 | 1 |
% macros and definitions |
neuper@42070 | 2 |
|
neuper@42070 | 3 |
\newcommand\fname{\begingroup \smaller\urlstyle{tt}\Url} |
neuper@42070 | 4 |
|
neuper@42070 | 5 |
\newcommand\vname{\begingroup \smaller\urlstyle{tt}\Url} |
neuper@42070 | 6 |
|
neuper@42070 | 7 |
|
neuper@42070 | 8 |
% for class names, define our own url style |
neuper@42070 | 9 |
|
neuper@42070 | 10 |
\makeatletter % protect @ names |
neuper@42070 | 11 |
|
neuper@42070 | 12 |
% \url@letstyle: New URL sty to premit break at any letters. |
neuper@42070 | 13 |
% Based on \url@ttstyle |
neuper@42070 | 14 |
|
neuper@42070 | 15 |
\def\Url@letdo{% style assignments for tt fonts or T1 encoding |
neuper@42070 | 16 |
\def\UrlBreaks{\do\a\do\b\do\c\do\d\do\e\do\f\do\g\do\h\do\i\do\j\do\k\do\l% |
neuper@42070 | 17 |
\do\m\do\n\do\o\do\p\do\q\do\r\do\s\do\t\do\u\do\v\do\w\do\x% |
neuper@42070 | 18 |
\do\y\do\z% |
neuper@42070 | 19 |
\do\A\do\B\do\C\do\D\do\E\do\F\do\G\do\H\do\I\do\J\do\K\do\L% |
neuper@42070 | 20 |
\do\M\do\N\do\O\do\P\do\Q\do\R\do\S\do\T\do\U\do\V\do\W\do\X% |
neuper@42070 | 21 |
\do\Y\do\Z% |
neuper@42070 | 22 |
}% |
neuper@42070 | 23 |
\def\UrlBigBreaks{\do\.\do\@\do\\\do\/\do\!\do\_\do\|\do\%\do\;\do\>\do\]% |
neuper@42070 | 24 |
\do\)\do\,\do\?\do\'\do\+\do\=\do\#\do\:\do@url@hyp}% |
neuper@42070 | 25 |
\def\UrlNoBreaks{\do\(\do\[\do\{\do\<}% (unnecessary) |
neuper@42070 | 26 |
\def\UrlSpecials{\do\ {\ }}% |
neuper@42070 | 27 |
\def\UrlOrds{\do\*\do\-\do\~}% any ordinary characters that aren't usually |
neuper@42070 | 28 |
\Urlmuskip = 0mu plus 1mu% |
neuper@42070 | 29 |
} |
neuper@42070 | 30 |
|
neuper@42070 | 31 |
\def\url@letstyle{% |
neuper@42070 | 32 |
\@ifundefined{selectfont}{\def\UrlFont{\sf}}{\def\UrlFont{\sffamily}}\Url@letdo |
neuper@42070 | 33 |
} |
neuper@42070 | 34 |
|
neuper@42070 | 35 |
\makeatother % unprotect @ names |
neuper@42070 | 36 |
|
neuper@42070 | 37 |
|
neuper@42070 | 38 |
\newcommand\cname{\begingroup \smaller\urlstyle{let}\Url} |
neuper@42070 | 39 |
|
neuper@42070 | 40 |
|
neuper@42070 | 41 |
\newcommand{\imgcredit}[1] |
neuper@42070 | 42 |
{% |
neuper@42070 | 43 |
\small |
neuper@42070 | 44 |
[#1] |
neuper@42070 | 45 |
} |
neuper@42070 | 46 |
|
neuper@42070 | 47 |
|
neuper@42070 | 48 |
\newcommand{\chapquote}[2] |
neuper@42070 | 49 |
{% |
neuper@42070 | 50 |
\begin{quote} |
neuper@42070 | 51 |
\emph{% |
neuper@42070 | 52 |
``#1''% |
neuper@42070 | 53 |
}% |
neuper@42070 | 54 |
\begin{flushright} |
neuper@42070 | 55 |
{\scriptsize \sffamily [#2]}% |
neuper@42070 | 56 |
\end{flushright} |
neuper@42070 | 57 |
\end{quote} |
neuper@42070 | 58 |
} |
neuper@42070 | 59 |
|
neuper@42070 | 60 |
|
neuper@42070 | 61 |
% \urlfootnote{url}{day}{month}{year} |
neuper@42070 | 62 |
\newcommand{\murlfootnote}[4]{\footnote{\url{{#1}} (last visit {#4}-{#3}-{#2})}} |
neuper@42070 | 63 |
\newcommand{\murlfootnotebreak}[4]{\footnote{\url{{#1}}\\ \hspace*{6mm}(last visit {#4}-{#3}-{#2})}} |
neuper@42070 | 64 |
|
neuper@42070 | 65 |
% change margin command |
neuper@42070 | 66 |
\def\changemargin#1#2{\list{}{\rightmargin#2\leftmargin#1}\item[]} |
neuper@42070 | 67 |
\let\endchangemargin=\endlist |