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