neuper@42070: % macros and definitions
neuper@42070: 
neuper@42070: \newcommand\fname{\begingroup \smaller\urlstyle{tt}\Url}
neuper@42070: 
neuper@42070: \newcommand\vname{\begingroup \smaller\urlstyle{tt}\Url}
neuper@42070: 
neuper@42070: 
neuper@42070: % for class names, define our own url style
neuper@42070: 
neuper@42070: \makeatletter  % protect @ names
neuper@42070: 
neuper@42070: % \url@letstyle: New URL sty to premit break at any letters.
neuper@42070: % Based on \url@ttstyle
neuper@42070: 
neuper@42070: \def\Url@letdo{% style assignments for tt fonts or T1 encoding
neuper@42070: \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:                \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:                \do\y\do\z%
neuper@42070:                \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:                \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:                \do\Y\do\Z%
neuper@42070: }%
neuper@42070: \def\UrlBigBreaks{\do\.\do\@\do\\\do\/\do\!\do\_\do\|\do\%\do\;\do\>\do\]%
neuper@42070:  \do\)\do\,\do\?\do\'\do\+\do\=\do\#\do\:\do@url@hyp}%
neuper@42070: \def\UrlNoBreaks{\do\(\do\[\do\{\do\<}% (unnecessary)
neuper@42070: \def\UrlSpecials{\do\ {\ }}%
neuper@42070: \def\UrlOrds{\do\*\do\-\do\~}% any ordinary characters that aren't usually
neuper@42070: \Urlmuskip = 0mu plus 1mu%
neuper@42070: }
neuper@42070: 
neuper@42070: \def\url@letstyle{%
neuper@42070: \@ifundefined{selectfont}{\def\UrlFont{\sf}}{\def\UrlFont{\sffamily}}\Url@letdo
neuper@42070: }
neuper@42070: 
neuper@42070: \makeatother  % unprotect @ names
neuper@42070: 
neuper@42070: 
neuper@42070: \newcommand\cname{\begingroup \smaller\urlstyle{let}\Url}
neuper@42070: 
neuper@42070: 
neuper@42070: \newcommand{\imgcredit}[1]
neuper@42070: {%
neuper@42070: \small
neuper@42070: [#1]
neuper@42070: }
neuper@42070: 
neuper@42070: 
neuper@42070: \newcommand{\chapquote}[2]
neuper@42070: {%
neuper@42070: \begin{quote}
neuper@42070: \emph{%
neuper@42070: ``#1''%
neuper@42070: }%
neuper@42070: \begin{flushright}
neuper@42070: {\scriptsize \sffamily [#2]}%
neuper@42070: \end{flushright}
neuper@42070: \end{quote}
neuper@42070: }
neuper@42070: 
neuper@42070: 
neuper@42070: % \urlfootnote{url}{day}{month}{year}
neuper@42070: \newcommand{\murlfootnote}[4]{\footnote{\url{{#1}} (last visit {#4}-{#3}-{#2})}}
neuper@42070: \newcommand{\murlfootnotebreak}[4]{\footnote{\url{{#1}}\\ \hspace*{6mm}(last visit {#4}-{#3}-{#2})}}
neuper@42070: 
neuper@42070: % change margin command
neuper@42070: \def\changemargin#1#2{\list{}{\rightmargin#2\leftmargin#1}\item[]}
neuper@42070: \let\endchangemargin=\endlist