texlive[63248] Master/texmf-dist: begingreek (7may22)

[commits+karl at tug.org]

Revision: 63248
          http://tug.org/svn/texlive?view=revision&revision=63248
Author:   karl
Date:     2022-05-07 22:37:47 +0200 (Sat, 07 May 2022)
Log Message:
-----------
begingreek (7may22)

Modified Paths:
--------------
    trunk/Master/texmf-dist/doc/latex/begingreek/README.txt
    trunk/Master/texmf-dist/doc/latex/begingreek/begingreek.pdf
    trunk/Master/texmf-dist/source/latex/begingreek/begingreek.dtx
    trunk/Master/texmf-dist/tex/latex/begingreek/begingreek.sty

Modified: trunk/Master/texmf-dist/doc/latex/begingreek/README.txt
===================================================================
--- trunk/Master/texmf-dist/doc/latex/begingreek/README.txt	2022-05-07 20:37:34 UTC (rev 63247)
+++ trunk/Master/texmf-dist/doc/latex/begingreek/README.txt	2022-05-07 20:37:47 UTC (rev 63248)
@@ -1,4 +1,4 @@
-Package: begingreek version 1.6 of 2022/05/06
+Package: begingreek version 1.7 of 2022/05/06
 Copyright 2015-2022 Claudio Beccari
 Licence: LaTeX Project Public Licence LPPL v.1.3 (or later)
 

Modified: trunk/Master/texmf-dist/doc/latex/begingreek/begingreek.pdf
===================================================================
(Binary files differ)

Modified: trunk/Master/texmf-dist/source/latex/begingreek/begingreek.dtx
===================================================================
--- trunk/Master/texmf-dist/source/latex/begingreek/begingreek.dtx	2022-05-07 20:37:34 UTC (rev 63247)
+++ trunk/Master/texmf-dist/source/latex/begingreek/begingreek.dtx	2022-05-07 20:37:47 UTC (rev 63248)
@@ -39,10 +39,10 @@
 %\fi
 % \iffalse 
 %<*dtx>
-\ProvidesFile{begingreek.dtx}[2022/05/06 v.1.6 Dedescribes environment greek]
+\ProvidesFile{begingreek.dtx}[2022/05/06 v.1.7 Describes environment greek]
 %</dtx>
 %<package>\NeedsTeXFormat{LaTeX2e}[2018/01/01]
-%<package>\ProvidesPackage{begingreek}[2022/05/06 v.1.6 Defines environment greek]
+%<package>\ProvidesPackage{begingreek}[2022/05/06 v.1.7 Defines environment greek]
 %
 %<*driver>
 \documentclass{ltxdoc}
@@ -78,7 +78,7 @@
 \end{document}
 %</driver>
 % \fi
-%\CheckSum{86}
+%\CheckSum{77}
 %\begin{multicols}{2}\tableofcontents\end{multicols}
 %
 % \begin{abstract}
@@ -424,15 +424,21 @@
 % we reset it to the default, either the overall default or the package
 % defined default (saved in |\greekfontfamily|) so we can proceed without
 % further problems.
+%
+% Let us define the message to be issued from the environment or the command if the |fd| file relative to the chosen font is not found and to select it or the default one:
 %    \begin{macrocode}
-\newenvironment{greek}[1][\greekfontfamily]{\begin{otherlanguage}{greek}%
-\edef\Greekfontfamily{#1}%
-\IfFileExists{lgr\Greekfontfamily.fd}{}%
+\def\CBverifyandselectfont{\IfFileExists{lgr\Greekfontfamily.fd}{}%
   {\PackageWarning{begingreek}{\MessageBreak
    Font family lgr\Greekfontfamily.fd does not exist\MessageBreak
    Default fonts used\MessageBreak}%
 \def\Greekfontfamily{\greekfontfamily}}%
-\fontfamily{\Greekfontfamily}\selectfont
+\fontfamily{\Greekfontfamily}\selectfont}
+%    \end{macrocode}
+
+%    \begin{macrocode}
+\newenvironment{greek}[1][\greekfontfamily]{\begin{otherlanguage}{greek}%
+\edef\Greekfontfamily{#1}%
+\CBverifyandselectfont
 }{\end{otherlanguage}}
 
 %    \end{macrocode}
@@ -442,12 +448,7 @@
 %    \begin{macrocode}
 \newcommand*\greektxt[2][\greekfontfamily]{%
 \edef\Greekfontfamily{#1}%
-\IfFileExists{lgr\Greekfontfamily.fd}{}%
-  {\PackageWarning{begingreek}{\MessageBreak
-   Font family lgr\Greekfontfamily.fd does not exist\MessageBreak
-   Default fonts used\MessageBreak}%
-\def\Greekfontfamily{\greekfontfamily}}%
-\fontfamily{\Greekfontfamily}\selectfont
+\CBverifyandselectfont
 \foreignlanguage{greek}{#2}}
 
 %    \end{macrocode}

Modified: trunk/Master/texmf-dist/tex/latex/begingreek/begingreek.sty
===================================================================
--- trunk/Master/texmf-dist/tex/latex/begingreek/begingreek.sty	2022-05-07 20:37:34 UTC (rev 63247)
+++ trunk/Master/texmf-dist/tex/latex/begingreek/begingreek.sty	2022-05-07 20:37:47 UTC (rev 63248)
@@ -29,7 +29,7 @@
 %% file or a modified version, except for a nominal charge for copying
 %% etc.
 \NeedsTeXFormat{LaTeX2e}[2018/01/01]
-\ProvidesPackage{begingreek}[2022/05/06 v.1.6 Defines environment greek]
+\ProvidesPackage{begingreek}[2022/05/06 v.1.7 Defines environment greek]
 
 \usepackage{iftex}
 \unless\ifPDFTeX
@@ -67,24 +67,21 @@
 }
 \ProcessOptions\relax
 
-\newenvironment{greek}[1][\greekfontfamily]{\begin{otherlanguage}{greek}%
-\edef\Greekfontfamily{#1}%
-\IfFileExists{lgr\Greekfontfamily.fd}{}%
+\def\CBverifyandselectfont{\IfFileExists{lgr\Greekfontfamily.fd}{}%
   {\PackageWarning{begingreek}{\MessageBreak
    Font family lgr\Greekfontfamily.fd does not exist\MessageBreak
    Default fonts used\MessageBreak}%
 \def\Greekfontfamily{\greekfontfamily}}%
-\fontfamily{\Greekfontfamily}\selectfont
+\fontfamily{\Greekfontfamily}\selectfont}
+
+\newenvironment{greek}[1][\greekfontfamily]{\begin{otherlanguage}{greek}%
+\edef\Greekfontfamily{#1}%
+\CBverifyandselectfont
 }{\end{otherlanguage}}
 
 \newcommand*\greektxt[2][\greekfontfamily]{%
 \edef\Greekfontfamily{#1}%
-\IfFileExists{lgr\Greekfontfamily.fd}{}%
-  {\PackageWarning{begingreek}{\MessageBreak
-   Font family lgr\Greekfontfamily.fd does not exist\MessageBreak
-   Default fonts used\MessageBreak}%
-\def\Greekfontfamily{\greekfontfamily}}%
-\fontfamily{\Greekfontfamily}\selectfont
+\CBverifyandselectfont
 \foreignlanguage{greek}{#2}}