pdf: missing subtitle support

[librarian.git] / librarian / pdf / wl.sty

diff --git a/librarian/pdf/wl.sty b/librarian/pdf/wl.sty
index 847504c..e676b8d 100644 (file)
--- a/librarian/pdf/wl.sty
+++ b/librarian/pdf/wl.sty
@@ -7,6 +7,10 @@
 \usepackage{xunicode}
 \usepackage{xltxtra}
 
+\usepackage[overload]{textcase}
+\usepackage{scalefnt}
+\usepackage[colorlinks=true,linkcolor=black,urlcolor=black]{hyperref}
+
 \setmainfont [
 %ExternalLocation,
 UprightFont = JunicodeWL-Regular,
@@ -76,6 +80,19 @@ Letters={SmallCaps,UppercaseSmallCaps}
 \clubpenalty=100000
 \widowpenalty=100000
 
+
+% see http://osdir.com/ml/tex.xetex/2005-10/msg00003.html
+\newsavebox{\ximagebox}\newlength{\ximageheight}
+\newsavebox{\xglyphbox}\newlength{\xglyphheight}
+\newcommand{\xbox}[1]
+{\savebox{\ximagebox}{#1}\settoheight{\ximageheight}{\usebox {\ximagebox}}%
+\savebox{\xglyphbox}{\char32}\settoheight{\xglyphheight}{\usebox {\xglyphbox}}%
+\raisebox{\ximageheight}[0pt][0pt]{%\raisebox{-\xglyphheight}[0pt] [0pt]{%
+\makebox[0pt][l]{\usebox{\xglyphbox}}}%}%
+\usebox{\ximagebox}%
+\raisebox{0pt}[0pt][0pt]{\makebox[0pt][r]{\usebox{\xglyphbox}}}}
+
+
 \renewcommand{\maketitle}{
     {
     \thispagestyle{empty}
@@ -83,18 +100,17 @@ Letters={SmallCaps,UppercaseSmallCaps}
     \color{theme}
 
     \noindent \begin{minipage}[t]{.35\textwidth}\vspace{0pt}
-        \includegraphics[width=\textwidth]{wl-logo.png}
+        \href{http://www.wolnelektury.pl}{\xbox{\includegraphics[width=\textwidth]{wl-logo.png}}}
     \end{minipage}
     \begin{minipage}[t]{.65\textwidth}\vspace{0pt}
-        \sourceinfo
+        Na podstawie: \sourceinfo
 
         \vspace{.5em}
 
-        Wejdź na stronę http://wolnelektury.pl/ i~zobacz, jak wiele możliwości daje interaktywna wersja szkolnej biblioteki
-        internetowej Wolne Lektury.
+        Wersja lektury on-line dostępna jest \href{\bookurl}{na stronie wolnelektury.pl}.
         \vspace{.5em}
 
-        Ten utwór nie jest chroniony prawem autorskim i~znajduje się w~domenie publicznej, co oznacza, że możesz go swobodnie wykorzystywać, publikować i~rozpowszechniać.
+        \rightsinfo
 
         \vspace{.6em}
 
@@ -134,7 +150,8 @@ Letters={Uppercase}
 }
 
 \newcommand{\typosection}[1]{%
-{\addfontfeature{Scale=2.0, FakeStretch=0.98, LetterSpace=-2.0}\emph{#1}}
+{\addfontfeature{FakeStretch=0.96, LetterSpace=-4.0}\emph{\scalefont{2}#1}}
+%{\addfontfeature{Scale=2.0, FakeStretch=0.98, LetterSpace=-2.0}\emph{#1}}
 }
 
 \newcommand{\nazwapodutworu}[1]{%
@@ -149,6 +166,10 @@ Letters={Uppercase}
 \section*{\typosection{#1}}%
 }
 
+\newcommand{\podtytul}[1]{%
+\subsection*{\typosubsection{#1}}%
+}
+
 \newcommand{\powiesc}[1]{#1}
 \newcommand{\opowiadanie}[1]{#1}
 \newcommand{\lirykal}[1]{#1}
@@ -272,10 +293,10 @@ Letters={Uppercase}
 }
 
 
-\newcommand{\pa}[1]{\footnote{#1}}
-\newcommand{\pe}[1]{\footnote{#1}}
-\newcommand{\pr}[1]{\footnote{#1}}
-\newcommand{\pt}[1]{\footnote{#1}}
+\newcommand{\pa}[1]{\NoCaseChange{\footnote{#1}}}
+\newcommand{\pe}[1]{\NoCaseChange{\footnote{#1}}}
+\newcommand{\pr}[1]{\NoCaseChange{\footnote{#1}}}
+\newcommand{\pt}[1]{\NoCaseChange{\footnote{#1}}}
 
 \newcommand{\mat}[1]{$#1$}