summaryrefslogtreecommitdiff
path: root/macros/luatex/optex/fonts-catalog.opm
diff options
context:
space:
mode:
Diffstat (limited to 'macros/luatex/optex/fonts-catalog.opm')
-rw-r--r--macros/luatex/optex/fonts-catalog.opm71
1 files changed, 71 insertions, 0 deletions
diff --git a/macros/luatex/optex/fonts-catalog.opm b/macros/luatex/optex/fonts-catalog.opm
new file mode 100644
index 0000000000..88d0d1174f
--- /dev/null
+++ b/macros/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