typoaid (21apr17)

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

4 files changed, 159 insertions, 0 deletions

diff --git a/Master/texmf-dist/doc/latex/typoaid/README b/Master/texmf-dist/doc/latex/typoaid/README
new file mode 100644
index 00000000000..cd45aca141c
--- /dev/null
+++ b/Master/texmf-dist/doc/latex/typoaid/README
@@ -0,0 +1,5 @@
+The typoaid package
+Maintained by Daniele Ratti
+E-mail: ilfuria+tya@gmail.com
+Released under the LaTeX Project Public License v1.3c or later
+See http://www.latex-project.org/lppl.txt
diff --git a/Master/texmf-dist/doc/latex/typoaid/typoaid.pdf b/Master/texmf-dist/doc/latex/typoaid/typoaid.pdf
new file mode 100644
index 00000000000..e6d689b4c2c
--- /dev/null
+++ b/Master/texmf-dist/doc/latex/typoaid/typoaid.pdf
diff --git a/Master/texmf-dist/doc/latex/typoaid/typoaid.tex b/Master/texmf-dist/doc/latex/typoaid/typoaid.tex
new file mode 100644
index 00000000000..52fd476743d
--- /dev/null
+++ b/Master/texmf-dist/doc/latex/typoaid/typoaid.tex
@@ -0,0 +1,42 @@
+\documentclass[a4paper]{article}
+\usepackage[utf8]{inputenc}
+\usepackage[english]{babel}
+\usepackage{lmodern}
+\usepackage{dtk-logos}
+\usepackage{microtype}
+\usepackage{hyperref}
+\usepackage{url}
+\author{Daniele Ratti}
+\title{The Typo Aid Package (v.0.0.7)}
+\begin{document}
+\maketitle
+
+\begin{abstract}
+The typo aid package provides some useful tools in order to provide useful informations regarding the used fonts.
+\end{abstract}
+\section{Commands}
+Four commands are provided:
+\begin{enumerate}
+\item \texttt{typrintalph} prints the alphabet length
+\item \texttt{typrintex} prints the ex-height
+\item\texttt{typrintem} prints the em-width.
+\end{enumerate}
+
+\noindent The commands follow the same schema, regarding the output:
+\begin{itemize}
+\item the normal, unstarred version of the command outputs to the typeset page
+\item the starred version outputs to the terminal
+\item both versions output to the log file, in addition to their normal output.
+\end{itemize}
+All of the commands can accept, as their single arguments, a font switch (e.g. \texttt{\textbackslash itshape, \textbackslash bfseries,\dots}). This will make them print the features of the selected switch.
+\subsection{Compatibility and Remarks}
+The package is compatible with pdf{}\LaTeX, Lua\LaTeX and \XeLaTeX, and will accept a font family switch defined via the \texttt{fontspec} package.
+\section{Acknowledgements}
+I would like to thank: \TeX nician, Christian Hupfer, Enrico Gregorio, Joseph Wright, David Carlisle and Barbara Beeton for their support and kind remarks. Please mark that they know nothing about the code inside the package, but provided many useful tips and tools for me to develop this. They cannot be blamed for anything that can be wrong in this package.
+\section{License and contacts}
+This package is released under the \emph{\LaTeX{} Project Public License,} version 1.3c or later. See \url{http://www.latex-project.org/lppl.txt}.
+
+The package is maintained by \textsc{Daniele Ratti.} 
+
+Email: \texttt{ilfuria+tya at gmail dot com}
+\end{document}
\ No newline at end of file
diff --git a/Master/texmf-dist/tex/latex/typoaid/typoaid.sty b/Master/texmf-dist/tex/latex/typoaid/typoaid.sty
new file mode 100644
index 00000000000..aa507d7ab7b
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/typoaid/typoaid.sty
@@ -0,0 +1,112 @@
+%% ---------------------------------------------------------------
+%% The typoaid package --- 
+%% Maintained by Daniele Ratti
+%% E-mail: ilfuria+tya@gmail.com
+%% Released under the LaTeX Project Public License v1.3c or later
+%% See http://www.latex-project.org/lppl.txt
+%% ---------------------------------------------------------------
+
+\RequirePackage{expl3}
+\ProvidesExplPackage{typoaid}{2017/04/21}{0.0.7} {Typographical Aid}
+\RequirePackage{xparse}
+
+%%\ExplSyntaxOn
+%%\newlength{\typ@@id}
+
+\dim_new:N \l__typoAid_Alphabet_dim
+
+\dim_new:N\l__typoAid_ExHeight_dim
+
+\dim_new:N\l__typoAid_EmWidth_dim
+
+\box_new:N\l__typoAid_Alphabet_box
+
+\str_const:Nx\l__typoAid_typeout_string{TypoAid\iow_newline: *~Font~switch~given:~}
+
+%% abcdefghijklmnopqrstuvwxyz
+%%{a{}b{}c{}d{}e{}f{}g{}h{}i{}j{}k{}l{}m{}n{}o{}p{}q{}r{}s{}t{}u{}v{}w{}x{}y{}z{}}
+
+\cs_set_nopar:Npn\_typoAid_typoAlphabet:n #1 {%
+       	\box_gclear:N\l__typoAid_Alphabet_box
+	\hbox_set:Nn\l__typoAid_Alphabet_box{#1a{}b{}c{}d{}e{}f{}g{}h{}i{}j{}k{}l{}m{}n{}o{}p{}q{}r{}s{}t{}u{}v{}w{}x{}y{}z{}}}
+
+\cs_set_nopar:Npn\_typoAid_incrCntr:n #1 {%
+	\_typoAid_typoAlphabet:n{#1}	
+	\dim_set:Nn\l__typoAid_Alphabet_dim{\box_wd:N\l__typoAid_Alphabet_box}
+}
+
+\cs_set_nopar:Npn\_typoAid_calcEx:n #1{%
+	\group_begin:
+		#1
+		\dim_gset:Nn\l__typoAid_ExHeight_dim{\dim_eval:n{1ex}}
+	\group_end:
+}
+
+\cs_set_nopar:Npn\_typoAid_calcEm:n#1{
+	\group_begin:
+		#1
+		\dim_gset:Nn\l__typoAid_EmWidth_dim{\dim_eval:n{1em}}
+	\group_end:
+}
+
+\cs_set:Npn\_typoAid_log:n#1#2{%
+	\msg_log:n{%
+	\l__typoAid_typeout_string~#2 \iow_newline:.~#1
+	}
+}
+
+\cs_set_nopar:Nn\_typoAid_Alphabet_string:{Alphabet~length:~\dim_use:N\l__typoAid_Alphabet_dim}
+
+\cs_set_nopar:Nn\_typoAid_ExHeight_string:{%
+	Ex~height:~\dim_use:N\l__typoAid_ExHeight_dim
+}
+
+\cs_set_nopar:Npn\_typoAid_EmWidth_string:{%
+	Em~width:~\dim_use:N\l__typoAid_EmWidth_dim
+}
+
+\ProvideDocumentCommand{\typrintalph}{ s m }%
+	{%
+	\_typoAid_incrCntr:n{#2}
+	\IfBooleanTF{#1}{%
+		\msg_term:n{\l__typoAid_typeout_string#2\iow_newline:*~\_typoAid_Alphabet_string:}%
+	}{%
+		 \_typoAid_Alphabet_string:%
+	}%
+	\_typoAid_log:n{\_typoAid_Alphabet_string:}{ #2}
+}
+
+\ProvideDocumentCommand{\typrintex}{ s m }{%
+	\_typoAid_calcEx:n{#2}
+	\IfBooleanTF{#1}{%
+		\msg_term:n{\l__typoAid_typeout_string#2 \iow_newline:*~ \_typoAid_ExHeight_string:}%
+	}{%
+		 \_typoAid_ExHeight_string:%
+	}%
+	\_typoAid_log:n{\_typoAid_ExHeight_string:}{ #2}
+}
+
+\ProvideDocumentCommand{\typrintem}{s m}{%
+	\_typoAid_calcEm:n{#2}
+	\IfBooleanTF{#1}{%
+		\msg_term:n{\l__typoAid_typeout_string #2 \iow_newline:*~ \_typoAid_EmWidth_string:}%
+	}{%
+		\_typoAid_EmWidth_string:
+	}%
+	\_typoAid_log:n{\_typoAid_EmWidth_string:}{ #2}
+}
+
+\ProvideDocumentCommand{\typrintall}{ s m}{%
+\IfBooleanTF{#1}{%
+	\typrintalph*{#2}\\
+	\typrintex*{#2}\\
+	\typrintem*{#2}\\
+	}{%
+	\typrintalph{#2}\\
+	\typrintex{#2}\\
+	\typrintem{#2}\\
+	}
+}
+
+
+%%\ExplSyntaxOff
\ No newline at end of file