8 files changed, 27 insertions, 100 deletions
diff --git a/macros/unicodetex/latex/fontsetup/README b/macros/unicodetex/latex/fontsetup/README
index a6ec56e090..e8d6ff95b3 100644
--- a/macros/unicodetex/latex/fontsetup/README
+++ b/macros/unicodetex/latex/fontsetup/README
@@ -1,5 +1,5 @@
                The fontsetup package
-               (Version 1.3, GPL3)
+               (Version 1.4, GPL3)
 
 This simple package makes it trivial to switch quickly between 
 different quality fonts supporting Mathematics. 
diff --git a/macros/unicodetex/latex/fontsetup/doc/fontsetup-doc.pdf b/macros/unicodetex/latex/fontsetup/doc/fontsetup-doc.pdf
index f94e4ab84d..af25860a87 100644
--- a/macros/unicodetex/latex/fontsetup/doc/fontsetup-doc.pdf
+++ b/macros/unicodetex/latex/fontsetup/doc/fontsetup-doc.pdf
diff --git a/macros/unicodetex/latex/fontsetup/doc/fontsetup-doc.tex b/macros/unicodetex/latex/fontsetup/doc/fontsetup-doc.tex
index 900a753df5..34e12b51b9 100644
--- a/macros/unicodetex/latex/fontsetup/doc/fontsetup-doc.tex
+++ b/macros/unicodetex/latex/fontsetup/doc/fontsetup-doc.tex
@@ -2,8 +2,8 @@
 \synctex=1
 \usepackage[default]{fontsetup}
 \newfontfamily\newcmgreekguillemots[CharacterVariant=4]{NewCM10-Book.otf}
-\newcommand\quoteleft{\char"201C}
-\newcommand\quoteright{\char"201E}
+\newcommand\leftgrquotes{\char"201C}
+\newcommand\rightgrquotes{\char"201E}
 \usepackage{graphicx,fullpage,supertabular}
 \AtBeginDocument{\def\varnothing{\char"2300}\def\emptyset{\char"2205}}
 \begin{document}
@@ -14,8 +14,8 @@
     \textit{by}\\[1ex]
     {\large Antonis Tsolomitis}\\
 University of the Aegean\\ Department of Mathematics\\[1ex]
-	  \textsc{6} Mar \textsc{2022}\\[1ex]
-	  Version 1.3, \textsc{gpl3}
+	  \textsc{2} Jan \textsc{2023}\\[1ex]
+	  Version 1.4, \textsc{gpl3}
   \end{center}
 
   This package is a simple wrapper-type package that makes the setup of fonts easy and
@@ -65,21 +65,23 @@ University of the Aegean\\ Department of Mathematics\\[1ex]
         documented in the Appendix
       \item commands to access the negation of uniform convergence symbols \verb|\nrightrightarrows|
         for $\nrightrightarrows$ and \verb|\nleftleftarrows| for $\nleftleftarrows$.
-      \item commands to access the IPA symbols. These are \verb|\ipatext| and \verb|\ipatextsans|
-        to select the fonts properly or \verb|\textipa{...}| and \verb|\textsansipa{...}| to select the fonts
+      \item commands to access the IPA symbols. These are \verb|\ipatext| and
+        \verb|\textipa{...}| to select the fonts
         for IPA symbols locally. Compare \textipa{ðŋβθχ}
         (produced with \verb|\textipa{ðŋβθχ}|) with ðŋβθχ.
+        \verb|\textoldipa| is also available (check the documentation of
+        the NewComputerModern family).
       \item If the xgreek package is loaded before fontsetup this will be detected and the package
         will load the fonts with correct anoteleia, greek guillemots and proper apostrophe for
-        Greek. It will also enable the commands \verb|\quoteleft| and \verb|\quoteright| for proper
+        Greek. It will also enable the commands \verb|\leftgrquotes| and \verb|\rightgrquotes| for proper
         quotes inside quotes. For an example, writing
 
-        \verb|«φώναζε: \quoteleft απ' έξω την προπαίδεια\quoteright»· σαν εκδίκηση ακουγόταν\ldots|
+        \verb|«φώναζε: \leftgrquotes απ' έξω την προπαίδεια\rightgrquotes»· σαν εκδίκηση ακουγόταν\ldots|
 
         will give
         
 \begin{center}
-{\newcmgreekguillemots  «φώναζε: \quoteleft απ' έξω την προπαίδεια\quoteright»· σαν εκδίκηση ακουγόταν\ldots}
+{\newcmgreekguillemots  «φώναζε: \leftgrquotes απ' έξω την προπαίδεια\rightgrquotes»· σαν εκδίκηση ακουγόταν\ldots}
 \end{center}
 For more information and references see the documentation of the
 NewComputerModern font family.
diff --git a/macros/unicodetex/latex/fontsetup/doc/fspsample-oldstandard.tex b/macros/unicodetex/latex/fontsetup/doc/fspsample-oldstandard.tex
deleted file mode 100644
index d082efd9eb..0000000000
--- a/macros/unicodetex/latex/fontsetup/doc/fspsample-oldstandard.tex
+++ /dev/null
@@ -1,77 +0,0 @@
-%% after xelatex run
-%% pdfcrop fspsample.pdf output.pdf
-%% to crop it
-\documentclass{article}
-\pagestyle{empty}
-\usepackage{xgreek,graphicx}
-\pagestyle{empty}
-%\usepackage[greek]{babel}
-%\usepackage[utf8x]{inputenc}
-%\usepackage{amsfonts}
-
-%\usepackage[default]{fontsetup}
-%\usepackage[gfsartemisia]{fontsetup}
-%\usepackage[gfsdidot]{fontsetup}
-%\usepackage[gfsdidotclassic]{fontsetup}
-%\usepackage[gfsneohellenic]{fontsetup}
-%\usepackage[cambria]{fontsetup}
-%\usepackage[lucida]{fontsetup}
-%\usepackage[kerkis]{fontsetup}
-%\usepackage[fira]{fontsetup}
-%\usepackage[times]{fontsetup}
-%\usepackage[palatino]{fontsetup}
-%\usepackage[stixtwo]{fontsetup}
-%\usepackage[neokadmus]{fontsetup}
-%\usepackage[msgaramond]{fontsetup}
-%\usepackage[ebgaramond]{fontsetup}
-%\usepackage[minion]{fontsetup}
-%\usepackage[neoeuler]{fontsetup}
-%\usepackage[libertinus]{fontsetup}
-%\usepackage[olddefault]{fontsetup}
-%\usepackage[concrete]{fontsetup}
-%\usepackage[talos]{fontsetup}
-\usepackage[oldstandard]{fontsetup}
-
-
-\newtheorem{theorem}{Theorem}
-\newtheorem{theoremg}[theorem]{Θεώρημα}
-
-
-\begin{document}
-
-\begin{theorem}[Dominated convergence of Lebesgue]
-%Let $g$ be an
-Assume that $g$ is an
-in\-te\-grable func\-tion defined on the measurable set $E$ and that
-  $(\,f_n)_{n\in\mathbb N}$ is a sequence of mea\-sur\-able functions so that
-  $|\,f_n|\leq g$. If $f$ is a function so that $f_n\to f$ almost everywhere
-  then $$\lim_{n\to\infty}\int f_n=\int f.$$
-\end{theorem}
-\textit{Proof}: The function $g-f_n$ is non-negative and thus from Fatou lemma
-we have that $\int(g-f\,)\leq\liminf\int(g-f_n)$. Since $|\,f\,|\leq g$ and
-$|\,f_n|\leq g$ the  functions $f$ and $f_n$ are integrable and we have
-$$\int g-\int f\,\leq \int g-\limsup\int f_n,$$ so
-$$\int f\,\geq \limsup \int f_n.$$
-\par
-\begin{theoremg}[Κυριαρχημένης σύγκλισης του Lebesgue]
-  Έστω ότι
-η $g$ είναι μια ολοκληρώσιμη συνάρτηση ορισμένη στο μετρήσιμο σύνολο
-$E$ και η $(\,f_n)_{n\in\mathbb N}$ είναι μια ακολουθία μετρήσιμων συναρτήσεων ώστε
-$|\,f_n| ≤ g$. Υποθέτουμε ότι υπάρχει μια συνάρτηση $f$
-ώστε η  $(f_n)_{n\in\mathbb N}$ να
-τείνει στην $f$ σχεδόν παντού. Τότε
-$$\lim \int f_n =\int f.$$
-\end{theoremg}
-\textit{Απόδειξη}: Η συνάρτηση $g − f_n$ είναι μη αρνητική και άρα από
-το Λήμμα του Fatou ισχύει
-$\int (f-g) ≤ \liminf \int (g-f_n)$. Επειδή
-$|\,f\,| ≤ g$ και $|\,f_n| ≤g$ οι $f$ και $f_n$ είναι ολοκληρώσιμες, έχουμε
-$$\int g −\int f\, ≤ \int g − \limsup\int f_n,$$
-άρα
-$$\int f\,\geq \limsup \int f_n.$$
-
-
-
-
-
-\end{document}
diff --git a/macros/unicodetex/latex/fontsetup/fontsetup.sty b/macros/unicodetex/latex/fontsetup/fontsetup.sty
index 603a0d8d3b..bc355c0f42 100644
--- a/macros/unicodetex/latex/fontsetup/fontsetup.sty
+++ b/macros/unicodetex/latex/fontsetup/fontsetup.sty
@@ -5,8 +5,8 @@
 \RequirePackage{fontspec}
 
 \@ifpackageloaded{xgreek}{%
-\newcommand\quoteleft{\char"201C}%
-\newcommand\quoteright{\char"201E}%
+\newcommand\leftgrquotes{\char"201C}%
+\newcommand\rightgrquotes{\char"201E}%
 \defaultfontfeatures+{CharacterVariant=4}%
 }{}
 
diff --git a/macros/unicodetex/latex/fontsetup/fspdefault.sty b/macros/unicodetex/latex/fontsetup/fspdefault.sty
index 6650cb64c3..c03fa97046 100644
--- a/macros/unicodetex/latex/fontsetup/fspdefault.sty
+++ b/macros/unicodetex/latex/fontsetup/fspdefault.sty
@@ -318,6 +318,8 @@ SmallCapsFeatures={Numbers=OldStyle}]{NewCMMono10-Book.otf}
 %SmallCapsFeatures={Numbers=OldStyle}]{NewCM10-Book.otf}
 \newcommand{\ipatext}{\addfontfeature{StylisticSet=5}}
 \newcommand{\textipa}[1]{{\ipatext#1}}
+\newcommand{\oldipatext}{\addfontfeature{StylisticSet=5,RawFeature=+lipa}}
+\newcommand{\textoldipa}[1]{{\oldipatext#1}}
 %\newfontfamily{\ipatextsans}[StylisticSet=5,%
 %ItalicFont=NewCMSans10-BookOblique.otf,%
 %BoldFont=NewCMSans10-Bold.otf,%
@@ -325,8 +327,8 @@ SmallCapsFeatures={Numbers=OldStyle}]{NewCMMono10-Book.otf}
 %SlantedFont=NewCMSans10-Oblique.otf,%
 %BoldSlantedFont=NewCMSans10-BoldOblique.otf,%
 %SmallCapsFeatures={Numbers=OldStyle}]{NewCMSans10-Book.otf}
-\newcommand{\ipatextsans}{\sffamily\addfontfeature{StylisticSet=5}}
-\newcommand{\textsansipa}[1]{{\ipatextsans#1}}
+%\newcommand{\ipatextsans}{\sffamily\addfontfeature{StylisticSet=5}}
+%\newcommand{\textsansipa}[1]{{\ipatextsans#1}}
 %
 % Up versions for chemistry
 \newcommand{\chemalpha}{\textrm{α}}
diff --git a/macros/unicodetex/latex/fontsetup/fspolddefault.sty b/macros/unicodetex/latex/fontsetup/fspolddefault.sty
index 8b56159469..30e71c931c 100644
--- a/macros/unicodetex/latex/fontsetup/fspolddefault.sty
+++ b/macros/unicodetex/latex/fontsetup/fspolddefault.sty
@@ -320,6 +320,8 @@ SmallCapsFeatures={Numbers=OldStyle}]{NewCMMono10-Regular.otf}
 %SmallCapsFeatures={Numbers=OldStyle}]{NewCM10-Regular.otf}
 \newcommand{\ipatext}{\addfontfeature{StylisticSet=5}}
 \newcommand{\textipa}[1]{{\ipatext#1}}
+\newcommand{\oldipatext}{\addfontfeature{StylisticSet=5,RawFeature=+lipa}}
+\newcommand{\textoldipa}[1]{{\oldipatext#1}}
 %\newfontfamily{\ipatextsans}[StylisticSet=5,%
 %ItalicFont=NewCMSans10-Oblique.otf,%
 %BoldFont=NewCMSans10-Bold.otf,%
@@ -327,8 +329,8 @@ SmallCapsFeatures={Numbers=OldStyle}]{NewCMMono10-Regular.otf}
 %SlantedFont=NewCMSans10-Oblique.otf,%
 %BoldSlantedFont=NewCMSans10-BoldOblique.otf,%
 %SmallCapsFeatures={Numbers=OldStyle}]{NewCMSans10-Regular.otf}
-\newcommand{\ipatextsans}{\sffamily\addfontfeature{StylisticSet=5}}
-\newcommand{\textsansipa}[1]{{\ipatextsans#1}}
+%\newcommand{\ipatextsans}{\sffamily\addfontfeature{StylisticSet=5}}
+%\newcommand{\textsansipa}[1]{{\ipatextsans#1}}
 %
 % Up versions for chemistry
 \newcommand{\chemalpha}{\textrm{α}}
diff --git a/macros/unicodetex/latex/fontsetup/fspoldstandard.sty b/macros/unicodetex/latex/fontsetup/fspoldstandard.sty
index 5d7347136e..ae76a1e2da 100644
--- a/macros/unicodetex/latex/fontsetup/fspoldstandard.sty
+++ b/macros/unicodetex/latex/fontsetup/fspoldstandard.sty
@@ -2,7 +2,6 @@
 \defaultfontfeatures{Ligatures=TeX}
 
 \setmainfont[%
-ExternalLocation=/home/atsol/texmf/fonts/sfd/ATsolomitis/OldStandard-Math/,
 ItalicFont=OldStandard-Italic.otf,
 BoldFont=OldStandard-Bold.otf,
 BoldItalicFont=OldStandard-BoldItalic.otf,
@@ -11,12 +10,11 @@ SmallCapsFeatures={Numbers=OldStyle}]{OldStandard-Regular.otf}
 
 
 \RequirePackage{unicode-math}
-%\setmathfont{Garamond-Math.otf}
-\setmathfont[ExternalLocation=/home/atsol/texmf/fonts/sfd/ATsolomitis/OldStandard-Math/]{OldStandard-Math.otf}
-%\setmathfont[range=\mathup/{num,latin,Latin,greek,Greek}]{OldStandard-Regular.otf} 
-%\setmathfont[range=\mathbfup/{num,latin,Latin,greek,Greek}]{OldStandard-Bold.otf} 
-%\setmathfont[range=\mathit/{num,latin,Latin,greek,Greek}]{OldStandard-Italic.otf} 
-%\setmathfont[range=\mathbfit/{num,latin,Latin,greek,Greek}]{OldStandard-BoldItalic.otf}
+\setmathfont{Garamond-Math.otf}
+\setmathfont[range=\mathup/{num,latin,Latin,greek,Greek}]{OldStandard-Regular.otf} 
+\setmathfont[range=\mathbfup/{num,latin,Latin,greek,Greek}]{OldStandard-Bold.otf} 
+\setmathfont[range=\mathit/{num,latin,Latin,greek,Greek}]{OldStandard-Italic.otf} 
+\setmathfont[range=\mathbfit/{num,latin,Latin,greek,Greek}]{OldStandard-BoldItalic.otf}
 
 
 \endinput