tipauni (13feb23)

git-svn-id: svn://tug.org/texlive/trunk@65817 c570f23f-e606-0410-a88d-b1316a301751

2 files changed, 248 insertions, 103 deletions

diff --git a/Master/texmf-dist/source/latex/tipauni/tipauni.dtx b/Master/texmf-dist/source/latex/tipauni/tipauni.dtx
index c9db68206c0..aa4e3f28b7e 100644
--- a/Master/texmf-dist/source/latex/tipauni/tipauni.dtx
+++ b/Master/texmf-dist/source/latex/tipauni/tipauni.dtx
@@ -4,14 +4,14 @@
 % ---------------------------------------------------------------------------
 % Package:      tipauni
 % Author:       निरंजन
-% Version:      v0.6.1 (21 October, 2022)
+% Version:      v0.7a (13 February, 2023)
 % Description:  For producing Unicode characters with TIPA commands.
 % Repository:   https://git.gnu.org.ua/tipauni.git
 % Bug tracker:  https://puszcza.gnu.org.ua/bugs/?group=tipauni
 % License:      GPL v3.0+, GFDL v1.3+
 % ---------------------------------------------------------------------------
-% LaTeX Package tipauni v0.6.1
-% Copyright © 2021, 2022 निरंजन
+% LaTeX Package tipauni v0.7a
+% Copyright © 2021, 2022, 2023 निरंजन
 % 
 % This program is free software: you can redistribute it and/or modify
 % it under the terms of the GNU General Public License as published by
@@ -40,7 +40,7 @@
 --------------------------------------------------------------------------
 Package:      tipauni
 Author:       निरंजन
-Version:      v0.6.1 (22 October, 2022)
+Version:      v0.7a (13 February, 2023)
 Description:  For producing Unicode characters with TIPA commands.
 Repository:   https://git.gnu.org.ua/tipauni.git
 Bug tracker:  https://puszcza.gnu.org.ua/bugs/?group=tipauni
@@ -52,12 +52,13 @@ License:      GPL v3.0+, GFDL v1.3+
 %</internal>
 %<*driver|package>
 \def\tipauniname{tipauni}
-\def\tipauniversion{0.6.1}
-\def\tipaunidate{2022-10-21}
+\def\tipauniversion{0.7a}
+\def\tipaunidate{2023-02-13}
 \def\tipaunidescription{For producing Unicode characters with TIPA commands}
 %</driver|package>
 %<*driver>
 \documentclass{l3doc}
+\usepackage{gfdl}
 \usepackage{multicol}
 \usepackage{graphicx}
 \usepackage{array}
@@ -69,12 +70,32 @@ License:      GPL v3.0+, GFDL v1.3+
 \usepackage{hologo}
 \DeclareRobustCommand\XeLaTeX{\hologo{XeLaTeX}}
 \usepackage{fontspec}
-\newfontfamily{\ipa}[Color=blue]{CharisSIL}
+\newfontfamily{\ipa}[%
+  % Courtesy: https://topanswers.xyz/tex?q=3042#a3083
+  IgnoreFontspecFile,%
+  Color             = {blue},%
+  StylisticSet      = {5},%
+  Renderer          = {Harfbuzz},%
+  ItalicFont        = {NewCM10-Italic.otf},%
+  BoldFont          = {NewCM10-Bold.otf},%
+  SmallCapsFeatures = {%
+    % Courtesy: https://tex.stackexchange.com/a/107246
+    Numbers         =   {Lining,Monospaced},%
+    Letters         =   {SmallCaps}%
+  }%
+]{NewCM10-Regular.otf}
 \newfontfamily{\devtext}[%
 Script=Devanagari,%
 Renderer=Harfbuzz,%
 Scale=0.8%
 ]{Shobhika}
+\setmonofont[%
+  IgnoreFontspecFile,%
+  Renderer          = {Harfbuzz},%
+  StylisticSet      = {5},%
+  ItalicFont        = {NewCMMono10-Italic.otf},%
+  BoldFont          = {NewCMMono10-Bold.otf}%
+]{NewCMMono10-Regular.otf}
 \usepackage{fontawesome5}
 \usepackage{hyperxmp}
 \hypersetup{%
@@ -87,21 +108,20 @@ Scale=0.8%
   pdfauthor={निरंजन},%
   pdfsubject={For producing Unicode characters with TIPA commands.},%
   pdfcreator={निरंजन},%
-  pdfkeywords={Linguistics, Phonetics, IPA, TIPA, LaTeX},%
-  pdfcopyright={%
-    The LaTeX package tipauni\textLF
-    Copyright © 2021, 2022 निरंजन\textLF
-    Permission is granted to copy, distribute and/or modify
-    this document under the terms of the GNU Free
-    Documentation License, Version 1.3 or any later version
-    published by the Free Software Foundation; with no
-    Invariant Sections, no Front-Cover Texts, and no
-    Back-Cover Texts. A copy of the license is included in
-    the section entitled “GNU Free Documentation License”.%
-  },%
-  pdflicenseurl={https://www.gnu.org/licenses/fdl-1.3.txt}%
+  pdfkeywords={Linguistics, Phonetics, IPA, TIPA, LaTeX}%
 }%
 \renewcommand{\arraystretch}{1.2}
+\gfdlcopyrightholders{%
+  \texorpdfstring
+  {{\devtext निरंजन}}%
+  {निरंजन}%
+}%
+\gfdlcopyrightableyears{2021, 2022, 2023}
+\gfdlcopyrightdescription{%
+  \texorpdfstring
+  {The \LaTeX\ package tipauni}%
+  {The LaTeX package tipauni}%
+}
 
 \begin{document}
 \DocInput{\tipauniname.dtx}
@@ -132,21 +152,6 @@ Scale=0.8%
 % \maketitle
 %   
 % \tableofcontents
-%   
-% \vfill
-% {%
-%   \setlength{\parindent}{0pt}
-%   The \LaTeX\ package tipauni
-%   
-%   Copyright © 2021, 2022 {\devtext निरंजन}
-%   
-%   Permission is granted to copy, distribute and/or modify this document under
-%   the terms of the GNU Free Documentation License, Version 1.3 or any later
-%   version published by the Free Software Foundation; with no Invariant
-%   Sections, no Front-Cover Texts, and no Back-Cover Texts. A copy of the
-%   license is included in the section entitled ``GNU Free Documentation
-%   License''.
-% }%
 %
 % \clearpage\pagebreak
 % 
@@ -194,6 +199,8 @@ Scale=0.8%
 %   \item[2022-01-09]
 %     Fix a typo in Input B of Near-close near-front rounded.
 %     \href{https://puszcza.gnu.org.ua/bugs/index.php?542}{(link)}
+%   \item[2023-02-13]
+%     Changed the default font to New Computer Modern instead of Charis SIL.
 %   \end{description}
 %
 %   Anja Hasse pointed a bug in the package with an SE question\footnote{%
@@ -210,12 +217,15 @@ Scale=0.8%
 %       documentfont=\meta{font-name}
 %     \end{syntax}
 %     
-%     The default font for the entire document set by this package is the
-%     \href{https://ctan.org/pkg/charissil}{Charis SIL}. Users can easily change
-%     it with the package-option \verb|documentfont|. This option takes one
-%     value which is the font-name. e.g.\ For using the
-%     \href{https://ctan.org/pkg/doulossil}{Doulos  SIL} font as the main font,
-%     use the package like it is used in the following.
+%     The default font for the entire document set by this package used to be
+%     \href{https://ctan.org/pkg/charissil}{Charis SIL}. From |v0.7| the package
+%     has changed the default font to \href{https://ctan.org/pkg/newcm}{New
+%     Computer Modern}. The reason for this breaking change is that Charis SIL
+%     was just used because of it's good support for IPA which was absent with
+%     the default Latin Modern shape. New Computer Modern has developed all the
+%     support for IPA \& hence I am making this change. Users can easily change
+%     the default font with the package-option \verb|documentfont| as documented
+%     below.
 %     
 % \begin{verbatim}
 % \usepackage[documentfont=DoulosSIL]{tipauni}
@@ -241,11 +251,11 @@ Scale=0.8%
 %     This option can be used to set options to the font set with
 %     \verb|documentfont| package option. If the \verb|recommendedfont| option
 %     is used \& has the highest priority; the options set with
-%     \verb|fontspecoptions| will be used with the Charis SIL font. If the
+%     \verb|fontspecoptions| will be used with the default font. If the
 %     \verb|preservefont| option has the highest priority, this parameter will
 %     be ineffective \& throw a warning. In the argument of this option write as
 %     if you are writing in the optional parameter of the \cs{setmainfont}
-%     command. e.g.\
+%     command, e.g.:
 %     
 % \begin{verbatim}
 % \usepackage[fontspecoptions={Scale=1.5}]{tipauni}
@@ -254,12 +264,12 @@ Scale=0.8%
 %     \noindent If this options is used with no value it will be ignored with a
 %     warning.
 %     
-%     \noindent e.g.\ Try \verb|\usepackage[fontspecoptions]{tipauni}|.
+%     \noindent E.g.\ Try \verb|\usepackage[fontspecoptions]{tipauni}|.
 %     
 %     \medskip
 %
 %     \noindent If it is used with an empty value it will reset the fontspec-options so
-%     far you have set. e.g.\ Try:
+%     far you have set, e.g., Try:
 %     
 % \begin{verbatim}
 % \usepackage[%
@@ -275,28 +285,27 @@ Scale=0.8%
 %   for the following keys.
 %   
 %   \begin{function}{preservefont}
-%     This option will omit executing the \cs{setmainfont} command with Charis
-%     SIL. The typeset document will use the default font of Lua/\XeLaTeX, i.e.,
-%     the Latin Modern.
+%     This option will omit executing the \cs{setmainfont} command with New
+%     Computer Modern. The typeset document will use the default font of
+%     Lua/\XeLaTeX, i.e., the Latin Modern.
 %   \end{function}
 %   
 %   \begin{function}{recommendedfont}
 %     This option is used to override other font definitions made with option
-%     \verb|documentfont|. Charis SIL will be used as the main font of the
-%     document when this option is used.
+%     \verb|documentfont|. New Computer Modern will be used as the main font of
+%     the document when this option is used.
 %   \end{function}
 %   
 %   Please note that every option so far mentioned can potentially override each
-%   other. e.g.\ If a \verb|documentfont| is added after a \verb|preservefont|,
+%   other, e.g., If a \verb|documentfont| is added after a \verb|preservefont|,
 %   the former will override the latter (\& vice versa). It is true for all
 %   these three package options.
 %   
 %   \begin{function}{resetfontspecoptions}
-%     This option is used to reset all the \pkg{fontspec} options set with
-%     package option \verb|fontspecoptions|. As noted for the font-options,
-%     these two options which deal with the options of the loaded fonts also can
-%     override each other. The last one loaded will be considered of the highest
-%     priority.
+%     This option resets all the \pkg{fontspec}-options set with package option
+%     \verb|fontspecoptions|. As noted for the font-options, these two options
+%     which deal with the options of the loaded fonts also can override each
+%     other. The last one loaded will be considered of the highest priority.
 %   \end{function}
 %   
 %   \begin{function}{incompatible}
@@ -309,10 +318,10 @@ Scale=0.8%
 %   \section{List of available commands}
 %   TIPA has two alternative methods for inputting IPA characters. In the
 %   following tables, \textbf{Input A} column lists all the long TIPA commands
-%   (e.g.~\verb|\textrtailt|) \textit{\&} \textbf{Input B} column lists the
-%   short ones (e.g.~\verb|\textipa{\:t}|)\footnote{All of these commands must
+%   (e.g., \verb|\textrtailt|) \textit{\&} \textbf{Input B} column lists the
+%   short ones (e.g., \verb|\textipa{\:t}|)\footnote{All of these commands must
 %   be enclosed in the \texttt{\textbackslash textipa}
-%   command. (e.g.~\texttt{\textbackslash textipa\{\textbackslash :tP\}} for
+%   command. (e.g., \texttt{\textbackslash textipa\{\textbackslash :tP\}} for
 %   {\ipa [ʈʔ]})}. This documentation lists down all the commands necessary for
 %   typing symbols in the IPA chart.
 %   
@@ -508,7 +517,7 @@ Scale=0.8%
 %     \midrule
 %     Rhoticity & \verb|ə\textrhoticity|\tnotex{1} & \color{red}{\verb|ə\tr|}
 %     & ə˞\\
-%     No audible release & \verb|n\textcorner| & \color{red}{\verb|n\tc|} & n̚
+%     No audible release & \verb|n\textcorner| & \color{red}{\verb|n\tc|} & n̚\,
 %     \\
 %     Tie bar (standalone) & \color{red}{\verb|\stdlnetiebar{əi}|} &
 %     \color{red}{\verb|\ts{əi}|} & ə‿i \\
@@ -581,7 +590,7 @@ Scale=0.8%
 %    \end{macrocode}
 % Provide the package with some description \textit{\&} version specifications.
 %    \begin{macrocode}
-\ProvidesPackage{tipauni}[2022/10/21 v0.6.1
+\ProvidesPackage{tipauni}[2023/02/13 v0.7a
 Unicode characters with TIPA commands]
 %    \end{macrocode}
 % Load necessary packages.
@@ -593,7 +602,8 @@ Unicode characters with TIPA commands]
 % Package options are provided using the package \pkg{expkv}.
 %    \begin{macrocode}
 \newif\iftipauni@document@font
-\def\tipauni@recommended@font{CharisSIL}
+\def\tipauni@bookorregular{regular}
+\def\tipauni@recommended@font{tipauni-newcm-\tipauni@bookorregular}
 \tipauni@document@fonttrue
 \let\tipauni@font@options\@empty
 \ekvdefinekeys{tipauni}{%
@@ -615,10 +625,9 @@ Unicode characters with TIPA commands]
   },%
   noval documentfont             = {%
     \PackageError{tipauni}{No value for the `documentfont' option}{%
-      The `documentfont' option has no value. Please provide a valid font-name,%
-      \MessageBreak
-      otherwise it will be ignored or (if given) the value of another non-empty%
-      \MessageBreak
+      The `documentfont' option has no value. Please provide a valid
+      font-name,\MessageBreak otherwise it will be ignored or
+      (if given) the value of another non-empty\MessageBreak
       `documentfont' will be used.%
     }%
     \ifdefined\tipauni@font
@@ -650,6 +659,9 @@ Unicode characters with TIPA commands]
   noval recommendedfont          = {%
     \tipauni@document@fonttrue
     \let\tipauni@font\tipauni@recommended@font
+  },%
+  noval newcmbook                = {%
+    \def\tipauni@bookorregular{book}%
   }%
 }
 \ekvoProcessLocalOptions{tipauni}
@@ -759,6 +771,15 @@ Unicode characters with TIPA commands]
 %%--** Uvular
 \DeclareTextSymbol{\textscn}{TU}{"274}%% ɴ
 \DeclareTextComposite{\tipaunisemicolon}{TU}{N}{"274}
+%%-- Affricates
+\DeclareTextSymbol{\textdzlig}{TU}{"02A3}%% ʣ
+\DeclareTextSymbol{\textdyoghlig}{TU}{"02A4}%% ʤ
+\DeclareTextSymbol{\texttslig}{TU}{"02A6}%% ʦ
+\DeclareTextSymbol{\textteshlig}{TU}{"02A7}%% ʧ
+\DeclareTextSymbol{\textdblig}{TU}{"02A4}%% ȸ
+\DeclareTextSymbol{\textqplig}{TU}{"00239}%% ȹ
+\DeclareTextSymbol{\texthvlig}{TU}{"0195}%% ƕ
+\DeclareTextSymbol{\texttctclig}{TU}{"02A8}%% ʨ
 %%-- Trills
 %%--** Bilabial
 \DeclareTextSymbol{\textscb}{TU}{"299}%% ʙ
@@ -1053,7 +1074,11 @@ Unicode characters with TIPA commands]
 % We'll need a scan mark for the |act| code, so we initialise it.
 %    \begin{macrocode}
 \scan_new:N \s_@@_act_stop
-\cs_new:Npn \@@_use_none_delimit_by_act_stop:w #1 \s_@@_act_stop {}
+\cs_new:Npn
+\@@_use_none_delimit_by_act_stop:w
+#1
+\s_@@_act_stop
+{}
 %    \end{macrocode}
 % The act macro uses a bit of low level coding to get good performance. It
 % implements a loop which does the replacement of single letters, bigraphs or
@@ -1063,7 +1088,10 @@ Unicode characters with TIPA commands]
 % token which is not allowed to be ever part of the argument for
 % \cs{_@@_act:n} is \cs{s_@@_act_stop}.
 %    \begin{macrocode}
-\cs_new:Npn \@@_act:n #1 { \@@_act_loop:w #1 {\s_@@_act_stop} . \s_@@_act_stop }
+\cs_new:Npn
+\@@_act:n
+#1
+{ \@@_act_loop:w #1 {\s_@@_act_stop} . \s_@@_act_stop }
 %    \end{macrocode}
 % Just to have an easier to spot output we use a private copy of \cs{exp_not:n},
 % meaning we leave the output in the input stream (but since the whole loop
@@ -1131,7 +1159,10 @@ Unicode characters with TIPA commands]
           \token_if_eq_meaning:NNTF ##1 \@@_act_macro:nn
             { \@@_act_space_macro:nn ##2 }
             {
-              \cs_if_exist_use:cTF { @@_act_char_mono_ \tl_to_str:n { ##2 } : }
+              \cs_if_exist_use:cTF {
+                @@_act_char_mono_
+                \tl_to_str:n { ##2 } :
+              }
                 { \@@_act_output:n {~} }
                 { \@@_act_output:n { ##2 ~ } }
               \@@_act_loop:w
@@ -1161,9 +1192,16 @@ Unicode characters with TIPA commands]
     \token_if_eq_meaning:NNTF #1 \@@_act_macro:nn
       { \@@_act_group_macro:nn {#2} {#3} }
       {
-        \cs_if_exist_use:cF { @@_act_char_mono_ \tl_to_str:n { #2 } : }
-          { \@@_act_output:n {#2} }
-        { \@@_act_loop:w #3 {\s_@@_act_stop} . \s_@@_act_stop }
+        \cs_if_exist_use:cF
+        { @@_act_char_mono_ \tl_to_str:n { #2 } : }
+        { \@@_act_output:n {#2} }
+        {
+          \@@_act_loop:w
+          #3
+          {\s_@@_act_stop}
+          .
+          \s_@@_act_stop
+        }
       }
     \@@_act_loop:w
   }
@@ -1212,8 +1250,15 @@ Unicode characters with TIPA commands]
 \cs_new:Npn \@@_act_macro:nn #1#2
   {
     \cs_if_exist_use:cF
-      { @@_act_macro_ \exp_args:No \tl_to_str:n { \use_i:nn #1 / #2 } : }
-      { \exp_args:No \@@_act_output:n { \use:nn #1 #2 } }
+    {
+      @@_act_macro_
+      \exp_args:No
+      \tl_to_str:n {
+        \use_i:nn #1 / #2
+      }
+      :
+    }
+    { \exp_args:No \@@_act_output:n { \use:nn #1 #2 } }
   }
 %    \end{macrocode}
 % If the |macro| state was active when a group was encountered we need to check
@@ -1224,11 +1269,25 @@ Unicode characters with TIPA commands]
 \cs_new:Npn \@@_act_group_macro:nn #1#2
   {
     \cs_if_exist_use:cF
-      { @@_act_macro_ \exp_args:No \tl_to_str:n { \use_i:nn #1 / #2 } : }
+    {
+      @@_act_macro_
+      \exp_args:No
+      \tl_to_str:n {
+        \use_i:nn #1 / #2
+      }
+      :
+    }
+    {
+      \exp_args:No
+      \@@_act_output:n {
+        \use:nn #1
+      }
       {
-        \exp_args:No \@@_act_output:n { \use:nn #1 }
-        { \@@_act_loop:w #2 {\s_@@_act_stop} . \s_@@_act_stop }
+        \@@_act_loop:w
+        #2
+        {\s_@@_act_stop} . \s_@@_act_stop
       }
+    }
   }
 %    \end{macrocode}
 % If the |char| state is active we need to check whether a bigraph was found, if
@@ -1241,12 +1300,24 @@ Unicode characters with TIPA commands]
 %    \begin{macrocode}
 \cs_new:Npn \@@_act_char:nn #1#2
   {
-    \cs_if_exist_use:cF { @@_act_char_bigraph_ \tl_to_str:n { #1/#2 } : }
-      {
-        \cs_if_exist_use:cF { @@_act_char_mono_ \tl_to_str:n { #1 } : }
-          { \@@_act_output:n {#1} }
-        \use_i:nn { \@@_act_normal:NnN \use_none:nn {} {#2} }
+    \cs_if_exist_use:cF {
+      @@_act_char_bigraph_
+      \tl_to_str:n
+      { #1/#2 }
+      :
+    }
+    {
+      \cs_if_exist_use:cF {
+        @@_act_char_mono_
+        \tl_to_str:n { #1 }
+        :
+      }
+      { \@@_act_output:n {#1} }
+      \use_i:nn {
+        \@@_act_normal:NnN
+        \use_none:nn {} {#2}
       }
+    }
   }
 %    \end{macrocode}
 % To register new bigraphs we use the following functions. The information is
@@ -1258,8 +1329,8 @@ Unicode characters with TIPA commands]
 % |@@_act_char_mono_|\meta{token}|:|. Those second macros contain the actual
 % replacement.
 %
-% The first macro is a wrapper which just inputs \cs{@@_new_macro_bigraph:NNn}
-% for the two macros in |#1| and |#2|.
+% \cs{@@_new_macro_bigraph:NNn} is input for the two macros in |#1| and |#2| by
+% the first macro which is a wrapper.
 %    \begin{macrocode}
 \cs_new_protected:Npn \@@_new_macro_pair_bigraph:NNNn #1#2#3#4
   {
@@ -1272,10 +1343,22 @@ Unicode characters with TIPA commands]
 %    \begin{macrocode}
 \cs_new_protected:Npn \@@_new_macro_bigraph:NNn #1#2#3
   {
-    \cs_gset:cpn { @@_act_normal_ \tl_to_str:n {#1} :nw } ##1##2 \@@_act_loop:w
-      { \@@_act_loop:Nnw \@@_act_macro:nn { {##1} {} } }
-    \cs_gset:cpn { @@_act_macro_ \tl_to_str:n { #1/#2 } : }
-      { \@@_act_output:n {#3} }
+    \cs_gset:cpn {
+      @@_act_normal_
+      \tl_to_str:n
+      {#1}
+      :nw
+    }
+    ##1##2
+    \@@_act_loop:w
+    {
+      \@@_act_loop:Nnw
+      \@@_act_macro:nn
+      { {##1} {} }
+    }
+    \cs_gset:cpn
+    { @@_act_macro_ \tl_to_str:n { #1/#2 } : }
+    { \@@_act_output:n {#3} }
   }
 %    \end{macrocode}
 % A character bigraph should consist of two characters. It'll switch the state
@@ -1283,10 +1366,22 @@ Unicode characters with TIPA commands]
 %    \begin{macrocode}
 \cs_new_protected:Npn \@@_new_char_bigraph:NNn #1#2#3
   {
-    \cs_gset:cpn { @@_act_normal_ \tl_to_str:n {#1} :nw } ##1##2 \@@_act_loop:w
-      { \@@_act_loop:Nnw \@@_act_char:nn {##1} }
-    \cs_gset:cpn { @@_act_char_bigraph_ \tl_to_str:n { #1/#2 } : }
-      { \@@_act_output:n {#3} }
+    \cs_gset:cpn {
+      @@_act_normal_
+      \tl_to_str:n
+      {#1}
+      :nw
+    } ##1##2
+    \@@_act_loop:w
+    {
+      \@@_act_loop:Nnw
+      \@@_act_char:nn {##1}
+    }
+    \cs_gset:cpn {
+      @@_act_char_bigraph_
+      \tl_to_str:n { #1/#2 } :
+    }
+    { \@@_act_output:n {#3} }
   }
 %    \end{macrocode}
 % And lastly the single replacements which should just be a single character.
@@ -1295,10 +1390,22 @@ Unicode characters with TIPA commands]
 %    \begin{macrocode}
 \cs_new_protected:Npn \@@_new_char_mono:Nn #1#2
   {
-    \cs_gset:cpn { @@_act_normal_ \tl_to_str:n {#1} :nw } ##1##2 \@@_act_loop:w
-      { \@@_act_loop:Nnw \@@_act_char:nn {##1} }
-    \cs_gset:cpn { @@_act_char_mono_ \tl_to_str:n {#1} : }
-      { \@@_act_output:n {#2} }
+    \cs_gset:cpn {
+      @@_act_normal_
+      \tl_to_str:n
+      {#1}
+      :nw
+    } ##1##2
+    \@@_act_loop:w
+    { \@@_act_loop:Nnw
+      \@@_act_char:nn
+      {##1}
+    }
+    \cs_gset:cpn
+    { @@_act_char_mono_
+      \tl_to_str:n {#1} :
+    }
+    { \@@_act_output:n {#2} }
   }
 %    \end{macrocode}
 % Everything that's now missing is defining the macros storing the replacements
@@ -1413,7 +1520,9 @@ Unicode characters with TIPA commands]
 %%--** Tie bar (above)
 \DeclareTextCommand{\tipaunitexttoptiebar}{TU}[2]{#1\symbol{"0361}#2}
 \NewDocumentCommand\texttoptiebar{ m }{\tipaunitexttoptiebar#1}
-\DeclareTextCommand{\tipaunit}{TU}{\@ifstar{\textbottomtiebar}{\texttoptiebar}}
+\DeclareTextCommand{\tipaunit}{TU}{%
+  \@ifstar{\textbottomtiebar}{\texttoptiebar}%
+}
 %    \end{macrocode}
 % Lastly the code for environment \texttt{IPA} is provided by the following.
 %    \begin{macrocode}
@@ -1422,10 +1531,37 @@ Unicode characters with TIPA commands]
 %    \begin{macrocode}
 %</package>      
 %    \end{macrocode}
+% Since we want to add certain features to the |NewCM| font, we generate two
+% |.fontspec| files with this package. The following is the tag used for
+% generating the |.fontspec| file of the regular weight.
+%    \begin{macrocode}
+%<*regularfontspec>
+\defaultfontfeatures[tipauni-newcm-regular]{%
+  Renderer          = {Harfbuzz},%
+  Extension         = {.otf},%
+  UprightFont       = {NewCM10-Regular},%
+  ItalicFont        = {NewCM10-Italic},%
+  BoldFont          = {NewCM10-Bold},%
+  BoldItalicFont    = {NewCM10-BoldItalic},%
+  StylisticSet      = {5}%
+}
+%</regularfontspec>
+%    \end{macrocode}
+% With the following tag generates the |.fontspec| file for the book weight of
+% the font.
+%    \begin{macrocode}
+%<*bookfontspec>
+\defaultfontfeatures[tipauni-newcm-book]{%
+  Renderer          = {Harfbuzz},%
+  Extension         = {.otf},%
+  UprightFont       = {NewCM10-Book},%
+  ItalicFont        = {NewCM10-BookItalic},%
+  BoldFont          = {NewCM10-Bold},%
+  BoldItalicFont    = {NewCM10-BoldItalic},%
+  StylisticSet      = {5}%
+}
+%</bookfontspec>
+%    \end{macrocode}
 % \end{implementation}
 %
-% \pagebreak
-%
-% \input{gfdl-tex.tex}
-% 
 % \Finale
diff --git a/Master/texmf-dist/source/latex/tipauni/tipauni.ins b/Master/texmf-dist/source/latex/tipauni/tipauni.ins
index 5ea278f225d..440adb7054f 100644
--- a/Master/texmf-dist/source/latex/tipauni/tipauni.ins
+++ b/Master/texmf-dist/source/latex/tipauni/tipauni.ins
@@ -15,8 +15,8 @@ Bug tracker:  https://puszcza.gnu.org.ua/bugs/?group=tipauni
 License:      GPL v3.0+, GFDL 1.3+
 ---------------------------------------------------------------------------
 
-LaTeX Package tipauni v0.6.1
-Copyright © 2021, 2022 निरंजन
+LaTeX Package tipauni v0.7a
+Copyright © 2021, 2022, 2023 निरंजन
 
 This program is free software: you can redistribute it and/or modify
 it under the terms of the GNU General Public License as published by
@@ -40,6 +40,15 @@ along with this program. If not, see <https://www.gnu.org/licenses/>.
 }
 
 \nopreamble\nopostamble
+\generate{%
+  \file{tipauni-newcm-regular.fontspec}{%
+    \from{\jobname.dtx}{regularfontspec}%
+  }%
+  \file{tipauni-newcm-book.fontspec}{%
+    \from{\jobname.dtx}{bookfontspec}%
+  }%
+}%
+
 \usedir{doc/latex/\jobname}
 \generate{
   \file{README.txt}{\from{\jobname.dtx}{readme}}