summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/luatex/optex/fonts-catalog.opm
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2020-02-12 22:27:05 +0000
committerKarl Berry <karl@freefriends.org>2020-02-12 22:27:05 +0000
commit775445b47908bd8ef0417e2ff0e16209cc127a5d (patch)
tree14972217c2a8795ae79b7a7320500bd04546de74 /Master/texmf-dist/tex/luatex/optex/fonts-catalog.opm
parentf33a8f19027f814bfd8f9f85e6fa004a47901584 (diff)
optex (12feb20)
git-svn-id: svn://tug.org/texlive/trunk@53764 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/luatex/optex/fonts-catalog.opm')
-rw-r--r--Master/texmf-dist/tex/luatex/optex/fonts-catalog.opm71
1 files changed, 71 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/luatex/optex/fonts-catalog.opm b/Master/texmf-dist/tex/luatex/optex/fonts-catalog.opm
new file mode 100644
index 00000000000..88d0d1174fb
--- /dev/null
+++ b/Master/texmf-dist/tex/luatex/optex/fonts-catalog.opm
@@ -0,0 +1,71 @@
+%% This is part of OpTeX project, see http://petr.olsak.net/optex
+
+\_initunifonts
+\_begingroup
+
+\_let\_ttfixed=\_tentt
+\_suppressfontnotfounderror=1
+
+\_lowercase\_ea{\_ea\_def\_ea\_cataloglist\_ea{\_the\_catalogonly}}
+\_lowercase\_ea{\_ea\_def\_ea\_catalognolist\_ea{\_the\_catalogexclude}}
+
+\_ifx\_cataloglist\_empty \_else
+ \_addto\_cataloglist{ }
+ \_edef\_cataloglist{\_ea\_removespaces\_cataloglist{} }
+\_fi
+\_ifx\_catalognolist\_empty \_else
+ \_addto\_catalognolist{ }
+ \_edef\_catalognolist{\_ea\_removespaces\_catalognolist{} }
+\_fi
+
+\_def\_faminfo [#1]#2#3#4{%
+ \_bgroup
+ \_lowercase{\_edef\_famname{\_ea\_removespaces #1 {} }}%
+ \_edef\_act{\_noexpand\_isinlist{,\_cataloglist,}{,\_famname,}}\_act
+ \_iftrue \def\_cataloglist{}\_fi
+ \_edef\_act{\_noexpand\_isinlist{,\_catalognolist,}{,\_famname,}}\_act
+ \_iftrue \def\_cataloglist{.}\_fi
+ \_ifx\_cataloglist\_empty
+ \_ifx^#4^\_else
+ \_bigskip {\_qquad\_ttfixed\_string\fontfam [#1] -- (#2)\_par}
+ \_fontfam[#1]
+ \_ifexistfam \_nobreak\_medskip \_dosamples #4:{}
+ \_else {\_qquad\_ttfixed ... family skipped, fonts not found in your system.}
+ \_fi\_fi\_fi
+ \_egroup
+}
+\_def\_dosamples #1:#2{\_ifx^#2^\_else
+ \_def\_printvars{#2}%
+ \_ea\_dosamplesA\_romannumeral-`\.#1,,%
+ \_ea\_dosamples\_fi
+}
+\_def\_dosamplesA#1,{%
+ \_ifx^#1^\_else
+ \_ifx-#1\_def\_usemodifiers{}\_else \_def\_usemodifiers{#1}\_fi
+ \_ea \_dosamplesB \_printvars \_relax
+ \_ea \_dosamplesA \_fi
+}
+\_def\_dosamplesB#1{%
+ \_ifx\_relax#1 \_else
+ {\_ttfixed \_detokenize\_ea{\_usemodifiers}\_detokenize{#1}\_unskip:}
+ {\_usemodifiers #1\_ea\_ifx\_the\_font \_nullfont
+ \_ttfixed ... This font isn't available in your system.%
+ \_else \_the\_catalogsample \_fi }\_par
+ \_ea \_dosamplesB \_fi
+}
+
+\_def\0#1{\_ifnum#1<10 0\_fi\_the#1}
+\_footline={\_hfil\_ttfixed\_the\_pageno\_hfil}
+\_headline={\_ttfixed Font Catalogue generated by \_OpTeX/ \_hfill \_the\_year-\0\_month-\0\_day}
+\_parindent=0pt
+\_ttfixed
+
+\_input fams-ini.opm
+\_isfile {fams-user.opm}\_iftrue \_input fams-user.opm \_fi
+
+\_vfil\_break
+\_endgroup
+
+\_endcode % -------------------------------------
+
+ \ No newline at end of file