new xelatex package fontbook (7jul11)

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

10 files changed, 604 insertions, 1 deletions

diff --git a/Master/texmf-dist/doc/xelatex/fontbook/README b/Master/texmf-dist/doc/xelatex/fontbook/README
new file mode 100644
index 00000000000..59242593497
--- /dev/null
+++ b/Master/texmf-dist/doc/xelatex/fontbook/README
@@ -0,0 +1 @@
+This is a fontbook listing free and/or open-source serif and sans-serif fonts suitable for professional edition.
diff --git a/Master/texmf-dist/doc/xelatex/fontbook/fontbook-freefonts.pdf b/Master/texmf-dist/doc/xelatex/fontbook/fontbook-freefonts.pdf
new file mode 100644
index 00000000000..397cee85771
--- /dev/null
+++ b/Master/texmf-dist/doc/xelatex/fontbook/fontbook-freefonts.pdf
diff --git a/Master/texmf-dist/doc/xelatex/fontbook/fontbook-freefonts.tex b/Master/texmf-dist/doc/xelatex/fontbook/fontbook-freefonts.tex
new file mode 100644
index 00000000000..bdbce7b20cf
--- /dev/null
+++ b/Master/texmf-dist/doc/xelatex/fontbook/fontbook-freefonts.tex
@@ -0,0 +1,210 @@
+\documentclass[paper=a5,DIV=15]{scrbook}
+
+\usepackage{fontspec}
+\usepackage{xunicode}
+
+% PDF settings
+\usepackage[breaklinks=true,unicode=true]{hyperref}
+\hypersetup{colorlinks,
+           citecolor=black,
+           filecolor=black,
+           linkcolor=black,
+           urlcolor=black,
+           pdfauthor={Rapha\"el Pinson},
+           pdftitle={Nice free/libre fonts}}
+
+\title{Nice free/libre fonts}
+\author{Rapha\"e Pinson}
+
+
+\usepackage{fontbook}
+
+
+
+\begin{document}
+
+
+\maketitle
+
+\addchap{Introduction}
+
+
+This book lists serif and sans-serif free and/or open-source fonts suitable for professional edition.
+
+As a minimal requirement, each font:
+\begin{enumerate}
+ \item supports standard ligatures;
+ \item is a readable font suitable for a book interior design.
+\end{enumerate}
+
+
+\cleardoublepage
+
+\setlength{\parindent}{0pt}
+\setlength{\parskip}{\baselineskip}
+
+
+\addchap{Serif fonts}
+
+\printfont{Afta serif}{OFL}
+
+\printfont{Bentham}{OFL}
+
+\printfont{Bergamo Std}{Freeware License}
+\printfont[Style=Historic]{Bergamo Std}{Freeware License}
+
+\printfont{Calluna}{Exljbris Free Font}
+\printfont[Style=Historic]{Calluna}{Exljbris Free Font}
+\printfont[Numbers=Uppercase]{Calluna}{Exljbris Free Font}
+\printfont[Ligatures=Rare]{Calluna}{Exljbris Free Font}
+
+\printfont{Charis SIL}{OFL}
+
+\printfont{Crimson}{OFL}
+\printfont[Ligatures=Rare]{Crimson}{OFL}
+\printfont[Style=Alternate]{Crimson}{OFL}
+\printfont[Numbers=OldStyle]{Crimson}{OFL}
+
+\printfont{DejaVu Serif}{Public Domain}
+\printfont[Ligatures=Rare]{DejaVu Serif}{Public Domain}
+\printfont[Style=Alternate]{DejaVu Serif}{Public Domain}
+
+\printfont{DejaVu Serif Condensed}{Public Domain}
+\printfont[Ligatures=Rare]{DejaVu Serif Condensed}{Public Domain}
+\printfont[Style=Alternate]{DejaVu Serif Condensed}{Public Domain}
+
+\printfont{EB Garamond}{OFL}
+%\printfont[CharacterVariant=1]{EB Garamond}{OFL}
+\printfont[Ligatures=Rare]{EB Garamond}{OFL}
+\printfont[Numbers=Uppercase]{EB Garamond}{OFL}
+\printfont[Contextuals=Alternate]{EB Garamond}{OFL}
+
+\printfont{Espinosa Nova}{Freeware License}
+\printfont[Style=Historic]{Espinosa Nova}{Freeware License}
+\printfont[Ligatures=Rare]{Espinosa Nova}{Freeware License}
+\printfont[Numbers=Uppercase]{Espinosa Nova}{Freeware License}
+
+\printfont{Fanwood}{MIT}
+\printfont[Style=Historic]{Fanwood}{MIT}
+\printfont[Numbers=Uppercase]{Fanwood}{MIT}
+
+\printfont{Fertigo Pro}{Exljbris Free Font}
+\printfont[Style=Alternate]{Fertigo Pro}{Exljbris Free Font}
+
+\printfont{FreeSerif}{GPL}
+
+\printfont{GFS Artemisia}{OFL}
+\printfont[Style=Historic]{GFS Artemisia}{OFL}
+
+\printfont{GFS Didot Regular}{OFL}
+\printfont[Style=Historic]{GFS Didot}{OFL}
+
+\printfont{Goudy Bookletter 1911}{Public Domain}
+
+\printfont{Heuristica}{OFL}
+
+\printfont{Junicode}{GPL}
+\printfont[Ligatures=Rare]{Junicode}{GPL}
+\printfont[Style=Historic]{Junicode}{GPL}
+\printfont[Numbers=OldStyle]{Junicode}{GPL}
+\printfont[Style=Alternate]{Junicode}{GPL}
+%\printfont[StylisticSet=2]{Junicode}{GPL}
+%\printfont[StylisticSet=6]{Junicode}{GPL}
+%\printfont[StylisticSet=2]{Junicode}{GPL}
+
+\printfont{Linden Hill}{Some Free License}
+\printfont[Style=Historic]{Linden Hill}{Some Free License}
+\printfont[Numbers=Uppercase]{Linden Hill}{Some Free License}
+
+
+\printfont{Linux Libertine O}{Public Domain}
+\printfont[Ligatures=Historical]{Linux Libertine O}{Public Domain}
+\printfont{Linux Libertine Slanted O}{Public Domain}
+\printfont{Linux Libertine Capitals O}{Public Domain}
+\printfont{Linux Libertine Display O}{Public Domain}
+\printfont{Linux Libertine Display Capitals O}{Public Domain}
+\printfont{Linux Libertine Initials O}{Public Domain}
+
+\printfont{Playfair Display}{OFL}
+\printfont[Ligatures=Rare]{Playfair Display}{OFL}
+
+\printfont{Prociono}{Public Domain}
+\printfont[Ligatures=Rare]{Prociono}{Public Domain}
+
+\printfont{Radley}{OFL}
+
+%\printfont{Serif6 Beta}{Freeware License}
+%\printfont[Ligatures=Rare]{Serif6 Beta}{Freeware License}
+%\printfont[Numbers=OldStyle]{Serif6 Beta}{Freeware License}
+%
+%\printfont{Serif12 Beta}{Freeware License}
+%\printfont[Ligatures=Rare]{Serif12 Beta}{Freeware License}
+%\printfont[Numbers=OldStyle]{Serif12 Beta}{Freeware License}
+%
+%\printfont{Serif72 Beta}{Freeware License}
+%\printfont[Ligatures=Rare]{Serif72 Beta}{Freeware License}
+%\printfont[Numbers=OldStyle]{Serif72 Beta}{Freeware License}
+
+\printfont{Sorts Mill Goudy}{OFL}
+\printfont[Style=Historic]{Sorts Mill Goudy}{OFL}
+\printfont[Ligatures=Rare]{Sorts Mill Goudy}{OFL}
+\printfont[Numbers=Uppercase]{Sorts Mill Goudy}{OFL}
+
+\printfont{TeX Gyre Bonum}{GUST}
+\printfont[Numbers=OldStyle]{TeX Gyre Bonum}{GUST}
+
+\printfont{TeX Gyre Pagella}{GUST}
+\printfont[Numbers=OldStyle]{TeX Gyre Pagella}{GUST}
+
+\printfont{TeX Gyre Schola}{GUST}
+\printfont[Numbers=OldStyle]{TeX Gyre Schola}{GUST}
+
+\printfont{TeX Gyre Termes}{GUST}
+\printfont[Numbers=OldStyle]{TeX Gyre Termes}{GUST}
+
+
+\printfont{Vollkorn}{OFL}
+\printfont[Ligatures=Rare]{Vollkorn}{OFL}
+\printfont[Style=Alternate]{Vollkorn}{OFL}
+
+
+\addchap{Sans serif fonts}
+
+\printfont{Anivers}{Exljbris Free Font}
+
+\printfont{Calluna Sans}{Exljbris Free Font}
+\printfont[Style=Historic]{Calluna Sans}{Exljbris Free Font}
+\printfont[Numbers=Uppercase]{Calluna Sans}{Exljbris Free Font}
+\printfont[Ligatures=Historical]{Calluna Sans}{Exljbris Free Font}
+
+\printfont{DejaVu Sans}{Public Domain}
+\printfont[Ligatures=Rare]{DejaVu Sans}{Public Domain}
+\printfont[Style=Alternate]{DejaVu Sans}{Public Domain}
+
+\printfont{DejaVu Sans Condensed}{Public Domain}
+\printfont[Ligatures=Rare]{DejaVu Sans Condensed}{Public Domain}
+\printfont[Style=Alternate]{DejaVu Sans Condensed}{Public Domain}
+
+\printfont{FreeSans}{GPL}
+
+\printfont{GFS Neohellenic}{OFL}
+\printfont[Style=Historic]{GFS Neohellenic}{OFL}
+
+\printfont{Istok}{GPL}
+
+\printfont{Linux Biolinum O}{Public Domain}
+\printfont{Linux Biolinum Slanted O}{Public Domain}
+\printfont{Linux Biolinum Capitals O}{Public Domain}
+\printfont{Linux Biolinum Outline O}{Public Domain}
+\printfont{Linux Biolinum Shadow O}{Public Domain}
+\printfont{Linux Biolinum Keyboard O}{Public Domain}
+
+
+\printfont{Purisa}{GPL}
+\printfont{Sawasdee}{GPL}
+\printfont{Umpush}{GPL}
+\printfont{Waree}{GPL}
+
+\end{document}
+
+
diff --git a/Master/texmf-dist/doc/xelatex/fontbook/fontbook.pdf b/Master/texmf-dist/doc/xelatex/fontbook/fontbook.pdf
new file mode 100644
index 00000000000..7b2b9726e9e
--- /dev/null
+++ b/Master/texmf-dist/doc/xelatex/fontbook/fontbook.pdf
diff --git a/Master/texmf-dist/source/xelatex/fontbook/fontbook.dtx b/Master/texmf-dist/source/xelatex/fontbook/fontbook.dtx
new file mode 100644
index 00000000000..092175c6fd7
--- /dev/null
+++ b/Master/texmf-dist/source/xelatex/fontbook/fontbook.dtx
@@ -0,0 +1,263 @@
+% \iffalse meta-comment
+%
+% Copyright (C) 2011 by Raphaël Pinson <raphink@gmail.com>
+% ---------------------------------------------------------------------------
+% This work may be distributed and/or modified under the
+% conditions of the LaTeX Project Public License, either version 1.3
+% of this license or (at your option) any later version.
+% The latest version of this license is in
+%   http://www.latex-project.org/lppl.txt
+% and version 1.3 or later is part of all distributions of LaTeX
+% version 2005/12/01 or later.
+%
+% This work has the LPPL maintenance status `maintained'.
+%
+% The Current Maintainer of this work is Raphaël Pinson.
+%
+% This work consists of the files fontbook.dtx and fontbook.ins
+% and the derived filebase fontbook.sty.
+%
+% \fi
+%
+% \iffalse
+%<*driver>
+\ProvidesFile{fontbook.dtx}
+%</driver>
+%<package>\NeedsTeXFormat{LaTeX2e}[1999/12/01]
+%<package>\ProvidesPackage{fontbook}
+%<*package>
+    [2011/07/05 0.1 Generate a font book]
+%</package>
+%
+%<*driver>
+\documentclass[a4paper]{ltxdoc}
+\usepackage{fontbook}[2011/07/05]
+\usepackage{xltxtra}
+\EnableCrossrefs
+\CodelineIndex
+\RecordChanges
+\begin{document}
+  \DocInput{fontbook.dtx}
+  \PrintChanges
+  \PrintIndex
+\end{document}
+%</driver>
+% \fi
+%
+% \CheckSum{69}
+%
+% \CharacterTable
+%  {Upper-case    \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
+%   Lower-case    \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
+%   Digits        \0\1\2\3\4\5\6\7\8\9
+%   Exclamation   \!     Double quote  \"     Hash (number) \#
+%   Dollar        \$     Percent       \%     Ampersand     \&
+%   Acute accent  \'     Left paren    \(     Right paren   \)
+%   Asterisk      \*     Plus          \+     Comma         \,
+%   Minus         \-     Point         \.     Solidus       \/
+%   Colon         \:     Semicolon     \;     Less than     \<
+%   Equals        \=     Greater than  \>     Question mark \?
+%   Commercial at \@     Left bracket  \[     Backslash     \\
+%   Right bracket \]     Circumflex    \^     Underscore    \_
+%   Grave accent  \`     Left brace    \{     Vertical bar  \|
+%   Right brace   \}     Tilde         \~}
+%
+%
+% \changes{0.1}{2011/07/05}{Converted to DTX file}
+%
+% \DoNotIndex{\newcommand,\newenvironment}
+%
+% \providecommand*{\url}{\texttt}
+% \GetFileInfo{fontbook.dtx}
+% \title{The \textsf{fontbook} package}
+% \author{Raphaël Pinson \\ \url{raphink@gmail.com}}
+% \date{\fileversion~from \filedate}
+%
+% \maketitle
+%
+% \section{Introduction}
+%
+% \XeTeX{} allows us to make use of pretty much all possible fonts.
+% With all the possible fonts that can be used and the many features provided
+% by OpenType fonts, it can be useful to compile a font book of your favorite
+% fonts, so you can find the one you need more easily. This is what the 
+% \textsf{fontbook} package is about.
+% 
+%
+% \section{Usage}
+%
+% To use this package, simply include it:
+%
+% \begin{verbatim}
+% \usepackage{fontbook}
+% \end{verbatim}
+%
+% \subsection{Package Options}
+%
+% This package provides several options to fine-tune the way its commands react.
+%
+% \subsubsection{The \textsf{sizes} option}
+%
+%   The \textsf{sizes} option lets you define which sizes
+%   are to be printed for each font.
+%   By default, all sizes from \textsf{huge} to \textsf{tiny} downward
+%   are used:
+%   \makeatletter\textsf{\fontbook@allsizes}\makeatother.
+%   This option can take a single value or a list
+%   of comma-separated values:
+%
+% \begin{verbatim}
+% \usepackage[sizes={large,huge}]{fontbook}
+% \end{verbatim}
+%
+% \subsubsection{The \textsf{features} option}
+% 
+%   Similarly to the \textsf{sizes} option, the \textsf{features} option
+%   lets you define which features you wish to print for each font.
+%   By default, the following features are used:
+%   \makeatletter\textsf{\fontbook@allfeatures}\makeatother.
+%   This option can take a single value or a list
+%   of comma-separated values:
+%
+% \begin{verbatim}
+% \usepackage[features=scshape]{fontbook}
+% \end{verbatim}
+%
+% \subsubsection{The \textsf{featuresize} option}
+%
+%   By default, features are typeset in size
+%   \makeatletter\textsf{\fontbook@defaultfeaturesize}\makeatother.
+%   This can be changed by passing the desired size name
+%   as the \textsf{featuresize} option:
+%
+% \begin{verbatim}
+% \usepackage[featuresize=huge]{fontbook}
+% \end{verbatim}
+%
+% \subsection{Package commands}
+%
+% \DescribeMacro{\setsampletext}
+%
+%   Set the sample text used in the font demo.
+%
+% \DescribeMacro{\printfont}
+%
+%   This is the main command of this package
+%   It takes 2 mandatory arguments and 1 optional argument.
+%   The 2 mandatory arguments are the font name, as passed to
+%   \textsf{fontspec}, and the license.
+%   The optional argument is the fontspec option that allow
+%   to set OpenType features for example:
+%
+% \begin{verbatim}
+% \printfont[Ligatures=Rare]{Linux Libertine O}{Public Domain}
+% \end{verbatim}
+%
+% \StopEventually{}
+%
+% \section{Implementation}
+%
+% \iffalse
+%<*package>
+% \fi
+%
+%    \begin{macrocode}
+\ProvidesPackage{fontbook}
+\RequirePackage{fontspec}
+\RequirePackage{xunicode}
+\RequirePackage{kvoptions}
+\RequirePackage{etoolbox}
+\SetupKeyvalOptions{
+   family=fontbook,
+   prefix=fontbook@,
+}
+%    \end{macrocode}
+%% Options
+%
+%
+% \begin{macro}{\fontbook@allsizes}
+% Sizes
+%    \begin{macrocode}
+\def\fontbook@allsizes{%
+ huge, LARGE, Large, large, normalsize,
+ small, footnotesize, scriptsize, tiny}
+\expandafter\DeclareStringOption\expandafter[\fontbook@allsizes]{sizes}
+%    \end{macrocode}
+% \end{macro}
+%
+%
+% \begin{macro}{\fontbook@allfeatures}
+% Features
+%    \begin{macrocode}
+\def\fontbook@allfeatures{%
+ scshape, itshape, bfseries}
+\expandafter\DeclareStringOption\expandafter[\fontbook@allfeatures]{features}
+\def\fontbook@defaultfeaturesize{large}
+\expandafter\DeclareStringOption\expandafter[\fontbook@defaultfeaturesize]{featuresize}
+\ProcessKeyvalOptions*
+%    \end{macrocode}
+% \end{macro}
+%
+%
+% \begin{macro}{\fontbook@sampletext}
+%    \begin{macrocode}
+\def\fontbook@sampletext{%
+ Dans l'affliction éphémère qui m'accable, je teste
+ la police d'affichage qui est utilisée sur cette page 1 2 3 4 5.
+}
+%    \end{macrocode}
+% \end{macro}
+%
+%
+% \begin{macro}{\sampletext}
+%    \begin{macrocode}
+\newcommand{\sampletext}[2][]{%
+ {\par\csname#2\endcsname \csname#1\endcsname
+ #2 #1\\ \fontbook@sampletext}}
+%    \end{macrocode}
+% \end{macro}
+%
+%
+% \begin{macro}{\setsampletext}
+%    \begin{macrocode}
+\newcommand{\setsampletext}[1]{%
+ \def\fontbook@sampletext{#1}}
+%    \end{macrocode}
+% \end{macro}
+%
+%
+% \begin{macro}{\samplefeature}
+%    \begin{macrocode}
+\newcommand{\samplefeature}[1]{%
+ \sampletext[#1]{\fontbook@featuresize}}
+%% TODO: call font once
+%%%% print all variants
+%
+%    \end{macrocode}
+% \end{macro}
+%
+%
+% \begin{macro}{\printfont}
+%    \begin{macrocode}
+\newcommand{\printfont}[3][\empty]{%
+   \fontspec[#1]{#2}
+   \section*{#2 #1 --- Licence: #3}
+   \ifx#1\empty
+     \addcontentsline{toc}{section}{#2}
+   \else
+     \addcontentsline{toc}{subsection}{#1}
+   \fi
+   \expandafter\forcsvlist\expandafter\sampletext\expandafter{\fontbook@sizes}
+   \expandafter\forcsvlist\expandafter\samplefeature\expandafter{\fontbook@features}
+   \pagebreak
+}
+%    \end{macrocode}
+% \end{macro}
+%
+%
+% \iffalse
+%</package>
+% \fi
+%
+% \Finale
+\endinput
diff --git a/Master/texmf-dist/source/xelatex/fontbook/fontbook.ins b/Master/texmf-dist/source/xelatex/fontbook/fontbook.ins
new file mode 100644
index 00000000000..ddfecd68c0b
--- /dev/null
+++ b/Master/texmf-dist/source/xelatex/fontbook/fontbook.ins
@@ -0,0 +1,57 @@
+%% Copyright (C) 2011 by Raphaël Pinson <raphink@gmail.com>
+%% --------------------------------------------------------------------------
+%% This work may be distributed and/or modified under the
+%% conditions of the LaTeX Project Public License, either version 1.3
+%% of this license or (at your option) any later version.
+%% The latest version of this license is in
+%%   http://www.latex-project.org/lppl.txt
+%% and version 1.3 or later is part of all distributions of LaTeX
+%% version 2005/12/01 or later.
+%%
+%% This work has the LPPL maintenance status `maintained'.
+%%
+%% The Current Maintainer of this work is Raphaël Pinson.
+%%
+%% This work consists of the files fontbook.dtx and fontbook.ins
+%% and the derived filebase fontbook.sty.
+%%
+
+\input docstrip.tex
+\keepsilent
+
+\usedir{tex/latex/fontbook}
+
+\preamble
+
+This is a generated file.
+
+Copyright (C) 2011 by Raphaël Pinson <raphink@gmail.com>
+--------------------------------------------------------------------------
+This work may be distributed and/or modified under the
+conditions of the LaTeX Project Public License, either version 1.3
+of this license or (at your option) any later version.
+The latest version of this license is in
+  http://www.latex-project.org/lppl.txt
+and version 1.3 or later is part of all distributions of LaTeX
+version 2005/12/01 or later.
+
+\endpreamble
+
+\generate{\file{fontbook.sty}{\from{fontbook.dtx}{package}}}
+
+\obeyspaces
+\Msg{*************************************************************}
+\Msg{*                                                           *}
+\Msg{* To finish the installation you have to move the following *}
+\Msg{* file into a directory searched by TeX:                    *}
+\Msg{*                                                           *}
+\Msg{*     fontbook.sty                                          *}
+\Msg{*                                                           *}
+\Msg{* To produce the documentation run the file fontbook.dtx    *}
+\Msg{* through LaTeX.                                            *}
+\Msg{*                                                           *}
+\Msg{* Happy TeXing!                                             *}
+\Msg{*                                                           *}
+\Msg{*************************************************************}
+
+\endbatchfile
diff --git a/Master/texmf-dist/tex/xelatex/fontbook/fontbook.sty b/Master/texmf-dist/tex/xelatex/fontbook/fontbook.sty
new file mode 100644
index 00000000000..13c05000dc4
--- /dev/null
+++ b/Master/texmf-dist/tex/xelatex/fontbook/fontbook.sty
@@ -0,0 +1,71 @@
+%%
+%% This is file `fontbook.sty',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% fontbook.dtx  (with options: `package')
+%% 
+%% This is a generated file.
+%% 
+%% Copyright (C) 2011 by Raphaël Pinson <raphink@gmail.com>
+%% --------------------------------------------------------------------------
+%% This work may be distributed and/or modified under the
+%% conditions of the LaTeX Project Public License, either version 1.3
+%% of this license or (at your option) any later version.
+%% The latest version of this license is in
+%%   http://www.latex-project.org/lppl.txt
+%% and version 1.3 or later is part of all distributions of LaTeX
+%% version 2005/12/01 or later.
+%% 
+\NeedsTeXFormat{LaTeX2e}[1999/12/01]
+\ProvidesPackage{fontbook}
+    [2011/07/05 0.1 Generate a font book]
+\ProvidesPackage{fontbook}
+\RequirePackage{fontspec}
+\RequirePackage{xunicode}
+\RequirePackage{kvoptions}
+\RequirePackage{etoolbox}
+\SetupKeyvalOptions{
+   family=fontbook,
+   prefix=fontbook@,
+}
+%% Options
+\def\fontbook@allsizes{%
+ huge, LARGE, Large, large, normalsize,
+ small, footnotesize, scriptsize, tiny}
+\expandafter\DeclareStringOption\expandafter[\fontbook@allsizes]{sizes}
+\def\fontbook@allfeatures{%
+ scshape, itshape, bfseries}
+\expandafter\DeclareStringOption\expandafter[\fontbook@allfeatures]{features}
+\def\fontbook@defaultfeaturesize{large}
+\expandafter\DeclareStringOption\expandafter[\fontbook@defaultfeaturesize]{featuresize}
+\ProcessKeyvalOptions*
+\def\fontbook@sampletext{%
+ Dans l'affliction éphémère qui m'accable, je teste
+ la police d'affichage qui est utilisée sur cette page 1 2 3 4 5.
+}
+\newcommand{\sampletext}[2][]{%
+ {\par\csname#2\endcsname \csname#1\endcsname
+ #2 #1\\ \fontbook@sampletext}}
+\newcommand{\setsampletext}[1]{%
+ \def\fontbook@sampletext{#1}}
+\newcommand{\samplefeature}[1]{%
+ \sampletext[#1]{\fontbook@featuresize}}
+%% TODO: call font once
+%%%% print all variants
+\newcommand{\printfont}[3][\empty]{%
+   \fontspec[#1]{#2}
+   \section*{#2 #1 --- Licence: #3}
+   \ifx#1\empty
+     \addcontentsline{toc}{section}{#2}
+   \else
+     \addcontentsline{toc}{subsection}{#1}
+   \fi
+   \expandafter\forcsvlist\expandafter\sampletext\expandafter{\fontbook@sizes}
+   \expandafter\forcsvlist\expandafter\samplefeature\expandafter{\fontbook@features}
+   \pagebreak
+}
+\endinput
+%%
+%% End of file `fontbook.sty'.
diff --git a/Master/tlpkg/bin/tlpkg-ctan-check b/Master/tlpkg/bin/tlpkg-ctan-check
index d7e23df5900..53d7cb87739 100755
--- a/Master/tlpkg/bin/tlpkg-ctan-check
+++ b/Master/tlpkg/bin/tlpkg-ctan-check
@@ -154,7 +154,7 @@ my @TLP_working = qw(
     flowfram fltpage fltpoint
     fmp fmtcount
     fn2end fnbreak fncychap fncylab fnpara fntproof
-    foekfont foilhtml fonetika font-change fontch fontinst fontools
+    foekfont foilhtml fonetika font-change fontbook fontch fontinst fontools
     fontspec fonttable fontwrap
     footbib footmisc footnpag forarray forloop formlett formular
     fouridx fourier fouriernc
diff --git a/Master/tlpkg/tlpsrc/collection-xetex.tlpsrc b/Master/tlpkg/tlpsrc/collection-xetex.tlpsrc
index 793d74e784c..5d53c4f0dde 100644
--- a/Master/tlpkg/tlpsrc/collection-xetex.tlpsrc
+++ b/Master/tlpkg/tlpsrc/collection-xetex.tlpsrc
@@ -5,6 +5,7 @@ longdesc http://scripts.sil.org/xetex.
 depend arabxetex
 depend euenc
 depend fixlatvian
+depend fontbook
 depend fontwrap
 depend mathspec
 depend philokalia
diff --git a/Master/tlpkg/tlpsrc/fontbook.tlpsrc b/Master/tlpkg/tlpsrc/fontbook.tlpsrc
new file mode 100644
index 00000000000..e69de29bb2d
--- /dev/null
+++ b/Master/tlpkg/tlpsrc/fontbook.tlpsrc