From 2603fd3645756c24c2e1f4669a7a902e019f7df5 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Wed, 20 Sep 2017 22:36:37 +0000 Subject: philokalia (20sep17) git-svn-id: svn://tug.org/texlive/trunk@45356 c570f23f-e606-0410-a88d-b1316a301751 --- .../source/xelatex/philokalia/philokalia.dtx | 69 ++++++++++++---------- .../source/xelatex/philokalia/philokalia.ins | 14 ++--- 2 files changed, 45 insertions(+), 38 deletions(-) (limited to 'Master/texmf-dist/source/xelatex') diff --git a/Master/texmf-dist/source/xelatex/philokalia/philokalia.dtx b/Master/texmf-dist/source/xelatex/philokalia/philokalia.dtx index 01a94b1f26a..33ee590c760 100644 --- a/Master/texmf-dist/source/xelatex/philokalia/philokalia.dtx +++ b/Master/texmf-dist/source/xelatex/philokalia/philokalia.dtx @@ -15,7 +15,7 @@ %% Right brace \} Tilde \~} %\iffalse % -% (c) Copyright 2007 Apostolos Syropoulos +% (c) Copyright 2007-2017 Apostolos Syropoulos % This program can be redistributed and/or modified under the % terms of the LaTeX Project Public License Distributed from % http://www.latex-project.org/lppl.txt; either @@ -28,18 +28,21 @@ % Apostolos Syropoulos (asyropoulos@yahoo.com) % %\fi -% \CheckSum{126} +% \CheckSum{124} % \iffalse This is a Metacomment % %\ProvidesFile{philokalia.sty} -%\ProvidesFile{eu1plk.fd} +%\ProvidesFile{eu1plk.fd} % -%[2007/01/24 v1.1 Package `philokalia'] -%[2007/01/07 v1.0 Philokalia-Regular Support File] +%[2017/09/20 v1.2 Package `philokalia'] +%[2017/09/20 v1.0 Philokalia-Regular Support File] % % \begin{macrocode} %<*driver> \documentclass{ltxdoc} +\makeatletter +\let\ancientgreek\l@ancientgreek +\makeatother \usepackage{philokalia} \usepackage{fullpage} \GetFileInfo{philokalia.drv} @@ -52,9 +55,9 @@ % %\title{The \textsf{philokalia} package} %\author{Apostolos Syropoulos\\366, 28th October Str.\\ -%GR-671 00 Xanthi, HELLAS\\ +%GR-671 33 Xanthi, HELLAS\\ %Email:\texttt{asyropoulos@yahoo.com}} -% \date{2007/01/25} +% \date{2007/01/25 updated on 2017/09/20} %\maketitle %\begin{abstract} % This document describes the functionality of the \textsf{philokalia} package, which @@ -77,7 +80,7 @@ % \begin{tabular}{ll} % driver & produce the documentation \\ % philokalia & the package itself \\ -% EU1pkl & The Philokalia font shapes\\ +% TUpkl & The Philokalia font shapes\\ % \end{tabular} % \end{center} % @@ -143,7 +146,8 @@ % % \end{tabular} % \end{center} -% Notice that in order to get the symbols \textphlk{΄-} and \textphlk{΄1} one has to type a tonos and then a +% Notice that in order to get the symbols \textphlk{΄-} and \textphlk{΄1} +% one has to type a tonos and then a % hyphen or the digit one, respectively. The symbols \textphlk{΄-} and \textphlk{΄1} % have been used by the ancient Greek mathematician Diophantus to denote the subtraction % operator\footnote{Diophantus did not explicitly specified negative numbers in his writings, although @@ -182,7 +186,7 @@ % \bigskip % The first line of the code that was used to typeset the previous passage follows: % \begin{center} -% \texttt{\char`\\language\char`\\ancientgreek\char`\\textinit\char`\{Π\char`\}\char`\{ερὶ\char`\} ποιητικῆς +% \texttt{\char`\\setlanguage\char`\{ancientgreek\char`\}\char`\\textinit\char`\{Π\char`\}\char`\{ερὶ\char`\} ποιητικῆς % αὐτῆς\ldots} % \end{center} % Notice that here we enable the \texttt{ancientgreek} hyphenation patterns to allows \XeTeX\ to correctly @@ -194,8 +198,6 @@ % In addition, we use the \textsf{lettrine} package to typeset the titling capitals. % \begin{macrocode} %<*philokalia> -\RequirePackage{fontspec} -\RequirePackage{xunicode} \RequirePackage{xltxtra} \RequirePackage{lettrine} \newsavebox{\Pb@x} @@ -204,7 +206,7 @@ % two macros. In particular, the macro \verb=\Lettrine@height=, which computes the height of the % titling capital, has to compute the height of the letter \texttt{x} of a font in order to % carry out its computation. Since the font does not include this character, we had to modify the -% code so as to compute the height of the letter \texttt{α} instead. Similarly, we had to modify the macro +% code so as to compνute the height of the letter \texttt{α} instead. Similarly, we had to modify the macro % \verb=\LettrineFont= because it was designed with the assumption that the main font of the document has % the \texttt{X} character, which, again, is not valid for our case. % \begin{macrocode} @@ -248,11 +250,11 @@ % \begin{macrocode} \DeclareOption{global}{% \renewcommand{\rmdefault}{plk}% - \DeclareFontFamily{EU1}{plktitl}{}% - \DeclareFontShape{EU1}{plktitl}{m}{n}% + \DeclareFontFamily{TU}{plktitl}{}% + \DeclareFontShape{TU}{plktitl}{m}{n}% {<-> "[Philokalia-Regular]/ICU:script=grek,+titl"}{}% \newcommand{\textinit}[2]{% - \savebox{\Pb@x}{\usefont{EU1}{plktitl}{m}{n} #1}% + \savebox{\Pb@x}{\usefont{TU}{plktitl}{m}{n} #1}% \lettrine[lines=3]{\usebox{\Pb@x}}{#2}}% } % \end{macrocode} @@ -280,31 +282,36 @@ % % \section{The Font Definition File} % Since there is only one font shape, there is not much work to do: we just need to specify -% the available font properties: +% the available font properties. We use the standard font encoding defined by package +% \textsf{fontspec}. In this version we use \texttt{TU} font encoding instead of \texttt{EU1}, which was +% predefined by the same package. % \begin{macrocode} -%<*EU1plk> -\DeclareFontFamily{EU1}{plk}{} -\DeclareFontShape{EU1}{plk}{m}{n}% +%<*TUplk> +\DeclareFontFamily{TU}{plk}{} +\DeclareFontShape{TU}{plk}{m}{n}% {<-> "[Philokalia-Regular]/ICU:script=grek,+hlig,+clig:mapping=tex-text"}{ } % \end{macrocode} % And then we define the various substitutions: % \begin{macrocode} -\DeclareFontShape{EU1}{plk}{m}{sl}{<-> ssub * plk/m/n}{} -\DeclareFontShape{EU1}{plk}{m}{it}{<-> ssub * plk/m/sl}{} -\DeclareFontShape{EU1}{plk}{m}{sc}{<-> ssub * plk/m/n}{} -\DeclareFontShape{EU1}{plk}{b}{n}{<-> ssub * plk/m/n}{} -\DeclareFontShape{EU1}{plk}{b}{sl}{<-> ssub * plk/m/n}{} -\DeclareFontShape{EU1}{plk}{b}{it}{<-> ssub * plk/m/n}{} -\DeclareFontShape{EU1}{plk}{bx}{n}{<-> ssub * plk/b/n}{} -\DeclareFontShape{EU1}{plk}{bx}{it}{<-> ssub * plk/b/sl}{} -\DeclareFontShape{EU1}{plk}{bx}{sl}{<-> ssub * plk/b/sl}{} -% +\DeclareFontShape{TU}{plk}{m}{sl}{<-> ssub * plk/m/n}{} +\DeclareFontShape{TU}{plk}{m}{it}{<-> ssub * plk/m/sl}{} +\DeclareFontShape{TU}{plk}{m}{sc}{<-> ssub * plk/m/n}{} +\DeclareFontShape{TU}{plk}{b}{n}{<-> ssub * plk/m/n}{} +\DeclareFontShape{TU}{plk}{b}{sl}{<-> ssub * plk/m/n}{} +\DeclareFontShape{TU}{plk}{b}{it}{<-> ssub * plk/m/n}{} +\DeclareFontShape{TU}{plk}{bx}{n}{<-> ssub * plk/b/n}{} +\DeclareFontShape{TU}{plk}{bx}{it}{<-> ssub * plk/b/sl}{} +\DeclareFontShape{TU}{plk}{bx}{sl}{<-> ssub * plk/b/sl}{} +% % \end{macrocode} % % \section*{Acknowledgements} % First of all, I thank Ioannis Gamvetas for his collaboration back in the years 2002-2003. % Also, I would like to thank George Williams, the designer of FontForge, the free font-editor, for all his % valuable help, Adam Twardoch for explaining to me how to implement the contextual ligature, and Dimitrios -% Philippou for his comments and suggestions. Last, but certainly not least, I thank my son for his help! +% Philippou for his comments and suggestions. Also, I thank Ioannis Vamvakas for letting me know that the +% previous version does not work with the latest version of package \textsf{fontspec}. +% Last, but certainly not least, I thank my son for his help! +% % \Finale diff --git a/Master/texmf-dist/source/xelatex/philokalia/philokalia.ins b/Master/texmf-dist/source/xelatex/philokalia/philokalia.ins index cff7cc831a3..e30bb4d0d43 100644 --- a/Master/texmf-dist/source/xelatex/philokalia/philokalia.ins +++ b/Master/texmf-dist/source/xelatex/philokalia/philokalia.ins @@ -1,9 +1,9 @@ -%% Copyright 1999 Apostolos Syropoulos +%% Copyright 2017 Apostolos Syropoulos %% -%% This file is part of the `grtimes' package. +%% This file is part of the `philokalia' package. %% You are not allowed to modify its contents. %% -\def\filedate{2007/01/07} +\def\filedate{2017/09/20} \def\batchfile{philokalia.ins} \input docstrip.tex @@ -24,7 +24,7 @@ \preamble - (c) Copyright 2007 Apostolos Syropoulos + (c) Copyright 2007-2017 Apostolos Syropoulos This program can be redistributed and/or modified under the terms of the LaTeX Project Public License Distributed from http://www.latex-project.org/lppl.txt; either @@ -42,13 +42,13 @@ \keepsilent \generate{\generateFile{philokalia.sty}{f}{\from{philokalia.dtx}{philokalia}} - \generateFile{eu1plk.fd}{f}{\from{philokalia.dtx}{EU1plk}}} + \generateFile{tuplk.fd}{f}{\from{philokalia.dtx}{TUplk}}} \postamble \endpostamble \Msg{**********************************************************} \Msg{* To finish installation you have to copy} -\Msg{* the .fd files, the .mf file and the .sty} -\Msg{* file in the appropriate directories and to} +\Msg{* the .fd file and the .sty file } +\Msg{* in the appropriate directories and to} \Msg{* rehash your TeX, if it is required to do so.} \Msg{* Happy XeTeXing!} \Msg{**********************************************************} -- cgit v1.2.3