1# -*- mode: Perl -*-
2# /=====================================================================\ #
3# |  yfonts                                                             | #
4# | Implementation for LaTeXML                                          | #
5# |=====================================================================| #
6# | Part of LaTeXML:                                                    | #
7# |  Public domain software, produced as part of work done by the       | #
8# |  United States Government & not subject to copyright in the US.     | #
9# |---------------------------------------------------------------------| #
10# | Bruce Miller <bruce.miller@nist.gov>                        #_#     | #
11# | http://dlmf.nist.gov/LaTeXML/                              (o o)    | #
12# \=========================================================ooo==U==ooo=/ #
13package LaTeXML::Package::Pool;
14use strict;
15use warnings;
16use LaTeXML::Package;
17
18# Not much to do for LaTeXML.
19
20DefPrimitiveI('\frakfamily', undef, undef, font => { family => 'fraktur' });
21# These font families are otherwise unrecognized...
22DefPrimitiveI('\swabfamily', undef, undef, font => { family => 'schwabacher' });
23DefPrimitiveI('\gothfamily', undef, undef, font => { family => 'gothic' });
24
25# SHOULD set up fancy initials...
26DefMacro('\initfamily', '');
27DefPrimitiveI('\fraklines', undef, undef);
28
29DefMacro('\yinipar{}', '\par\noindent\yinitpar{#1}');
30# SHOULD set the initial in fancy font.
31DefMacro('\yinitpar{}', '#1');
32
33# Nothing likely to every be used, but for completeness...
34DefMacro('\gothdefault', 'ygoth');
35DefMacro('\swabdefault', 'yswab');
36DefMacro('\frakdefault', 'yfrak');
37DefMacro('\initdefault', 'yinitas');
38
39Let('\grq',  '\textquoteleft');
40Let('\grqq', '\textquotedblleft');
411;
42