summaryrefslogtreecommitdiff
path: root/fonts/berenisadf/tex/berenis.sty
diff options
context:
space:
mode:
Diffstat (limited to 'fonts/berenisadf/tex/berenis.sty')
-rw-r--r--fonts/berenisadf/tex/berenis.sty161
1 files changed, 161 insertions, 0 deletions
diff --git a/fonts/berenisadf/tex/berenis.sty b/fonts/berenisadf/tex/berenis.sty
new file mode 100644
index 0000000000..7d855d2561
--- /dev/null
+++ b/fonts/berenisadf/tex/berenis.sty
@@ -0,0 +1,161 @@
+%% Copyright 2013 Clea F. Rees
+%
+% This work may be distributed and/or modified under the
+% conditions of the LaTeX Project Public License, either version 1.3
+% of this license or (at your option) any later version.
+% The latest version of this license is in
+% http://www.latex-project.org/lppl.txt
+% and version 1.3 or later is part of all distributions of LaTeX
+% version 2005/12/01 or later.
+%
+% This work has the LPPL maintenance status `maintained'.
+%
+% The Current Maintainer of this work is Clea F. Rees.
+%
+% This work consists of all files listed in manifest.txt.
+\NeedsTeXFormat{LaTeX2e}
+\ProvidesPackage{berenis}[2013/11/20 v2.0 berenis]
+\RequirePackage{xkeyval}
+\RequirePackage{nfssext-cfr}
+\newif\ifberenis@ly
+%:boolkeys for ligature/swash encoding as default
+\define@boolkey{berenis.sty}[berenis@]{lig}[true]{%
+ \ifberenis@lig
+ \def\berenis@lig{w}%
+ \def\berenis@enc{LY1}%
+ \berenis@lytrue
+ \else
+ \def\berenis@lig{}%
+ \berenis@lyfalse
+ \fi}
+%:boolkeys for roman osf/lf
+\define@boolkey{berenis.sty}[berenis@]{osf}[true]{%
+ \ifberenis@osf
+ \def\berenis@lfosf{j}%
+ \else
+ \def\berenis@lfosf{}%
+ \fi}
+\define@boolkey{berenis.sty}[berenis@]{lf}[true]{%
+ \ifberenis@lf
+ \def\berenis@lfosf{}%
+ \else
+ \def\berenis@lfosf{j}%
+ \fi}
+%:boolkeys for roman prop/tab
+\define@boolkey{berenis.sty}[berenis@]{prop}[true]{%
+ \ifberenis@prop
+ \def\berenis@tabprop{2}%
+ \else
+ \def\berenis@tabprop{}%
+ \fi}
+\define@boolkey{berenis.sty}[berenis@]{tab}[true]{%
+ \ifberenis@tab
+ \def\berenis@tabprop{}%
+ \else
+ \def\berenis@tabprop{2}%
+ \fi}
+\define@boolkey{berenis.sty}[berenis@]{lm}[true]{%
+ \ifberenis@lm
+ \relax
+ \else
+ \PackageWarning{berenis.sty}{%
+ Default sf and tt families will not\MessageBreak
+ be changed to Latin Modern.\MessageBreak
+ If you use the LY1 font encoding, \MessageBreak
+ you should change the defaults\MessageBreak
+ yourself since Computer Modern\MessageBreak
+ does not support LY1.\MessageBreak}%
+ \fi}
+\define@choicekey*+{berenis.sty}{enc}[\benc\bencno]{ly1,t1}{%
+ \ifcase\bencno\relax
+ \def\berenis@enc{LY1}%
+ \berenis@lytrue
+ \or
+ \def\berenis@enc{T1}%
+ \def\berenis@lig{}%
+ \berenis@lyfalse
+ \fi}{%
+ \PackageWarning{berenis.sty}{#1 is not a supported font encoding. Please see the package documentation for details.}%
+ }%
+%:defaults to ensure everything is defined to something
+\ExecuteOptionsX{lig=false,osf=true,prop=true,lm=true,enc=ly1}
+%:options override defaults
+\ProcessOptionsX
+\RequirePackage[\berenis@enc]{fontenc}
+%:make BerenisADFPro default roman font, implementing options for ligature/swash encoding and lf/osf as applicable
+\renewcommand{\rmdefault}{ybd\berenis@tabprop\berenis@lfosf\berenis@lig}
+\ifberenis@lm
+ \renewcommand{\sfdefault}{lmss}
+ \renewcommand{\ttdefault}{lmtt}
+\fi
+\newcommand*{\berenis@rhybudd}[2]{\PackageWarning{berenis.sty}{#1 unavailable.\MessageBreak #2 used instead.\MessageBreak}}%
+%:based on definition of \ss from afm2pl manual page
+\def\zeroslash{%
+ \ifberenis@ly
+ \setbox0\hbox{\char184}%
+ \setbox1\hbox{\char24}%
+ \ifnum\wd0=\wd1 \char48\berenis@rhybudd{slashed zero}{zero}\else\ifnum\wd0=0 \char48\berenis@rhybudd{slashed zero}{zero}\else\char184\fi\fi
+ \else
+ \char48\berenis@rhybudd{slashed zero}{zero}%
+ \fi}
+%:experiment: even if this works, it is a horrible kludge
+%\gdef\berenis@ligswash{w}%
+%\def\berenis@Q{ Q}%
+%\def\berenis@get@vff#1#2#3#4\@nil{#1#2#3}%
+%\def\berenis@get@variants ybd#1\@nil{#1}%
+%\def\berenis@cyntaf@variant#1#2\@nil{#1}%
+%\def\berenis@ail@variant#1#2\@nil{#2}%
+%\newcommand*{\berenis@variants}[1]{%
+% \edef\tempz{#1}%
+% \def\tempe{}%
+% \ifx\tempz\tempe
+% \gdef\berenis@olaf{}%
+% \else
+% \edef\tempb{\expandafter\berenis@cyntaf@variant#1 Q\@nil}%
+% \edef\tempc{\expandafter\berenis@ail@variant#1 Q\@nil}%
+% \edef\tempd{\expandafter\berenis@ail@variant#1\@nil}%
+% \ifx\tempc\berenis@Q \gdef\berenis@olaf{\tempb}\else\berenis@variants{\tempd}\fi
+% \fi
+% }
+%\newcommand*{\berenis@teulu}{%
+% \edef\tempf{\expandafter\berenis@get@vff\f@family\@nil}%
+% \def\tempybd{ybd}%
+% \ifx\tempf\tempybd
+% \edef\tempa{\expandafter\berenis@get@variants\f@family\@nil}%
+% \berenis@variants{\tempa}%
+% \else
+% \gdef\berenis@olaf{}%
+% \fi}
+% Get proper tai bach for W, w, Y, y (Ideally would set further stuff but these are the most problematic.
+% In version 1.0, this only worked in the swash variants. In version 2.0, it works for any LY1 encoding.
+% The cost is some of the non-fancy non-standard ligatures and the boundary character in the non-swash variants.
+\ifberenis@ly
+ \DeclareTextCompositeCommand{\^}{LY1}{W}{%
+% \berenis@teulu
+% \edef\tempx{\berenis@ligswash}%
+% \edef\tempy{\berenis@olaf}%
+% \ifx\tempx\tempy \char9 \else\accent94\char87\fi
+ \char9}
+ \DeclareTextCompositeCommand{\^}{LY1}{w}{%
+% \berenis@teulu
+% \edef\tempx{\berenis@ligswash}%
+% \edef\tempy{\berenis@olaf}%
+% \ifx\tempx\tempy \char3 \else\accent94\char119\fi
+ \char3}
+ \DeclareTextCompositeCommand{\^}{LY1}{Y}{%
+% \berenis@teulu
+% \edef\tempx{\berenis@ligswash}%
+% \edef\tempy{\berenis@olaf}%
+% \ifx\tempx\tempy \char10 \else\accent94\char89\fi
+ \char10}
+ \DeclareTextCompositeCommand{\^}{LY1}{y}{%
+% \berenis@teulu
+% \edef\tempx{\berenis@ligswash}%
+% \edef\tempy{\berenis@olaf}%
+% \ifx\tempx\tempy \char13 \else\accent94\char121\fi
+ \char13}
+\else
+ \RequirePackage{textcomp}
+\fi
+\endinput
+%% end berenis.sty