# @@@state font_dirs.list :create Directories containing local fonts @@@
@@@state font_dirs :desc Directories containing local fonts @@@


@@@argtype font |
  an abbreivation for a font
  :pattern r^|i^|b^|s^|t^|c
@@@

@@@argtype font_list |
  a list of font symbols. One or more of 'r' (roman), 'i' (italic),
  'b' (bold), 's' (sans-serif), 't' (typewriter or monospace) or 'c'
  (code) for each cell in a row. If there are fewer font symbols than
  cells in a row, the last symbol is repeated.  Extra symbols are
  ignored.  Default is 'r'
  :pattern ('font'^|\s)+
  :python_cast (lambda s : s.split())
@@@

@@font.k fontname : Switch to an available font for PDF output. @@

@@font.html :: *fontname* @@
@@font.tex  :: \setmainfont[Ligatures=TeX]{*fontname*} @@
# @@font.tex : \setmainfont[Ligatures=TeX,Numbers=Lining]{*fontname*} @@
@@font.txt :: *fontname* @@

@@r.k text : Use the current Roman font for *text* @@
@@r.html :: <span class="plain">*text*</span> @@
@@r.tex  :: \textrm{*text*} @@
@@r.txt  :: *text* @@

@@b.k text : Use a bold weight of the current font for *text* @@
@@b.html :: <b>*text*</b> @@
@@b.tex  :: \textbf{*text*} @@
@@b.txt  :: **text** @@

@@i.k text : Use an italic style of the current font for *text* @@
@@i.html :: <i>*text*</i> @@
@@i.tex  :: \emph{*text*} @@ # \begin{emph}{*text*}\end{emph} @@
@@i.txt  :: '*text*' @@

@@t.k text : Use the currently defined monospace font for *text* @@
@@t.html :: <span class="tt">*text*</span> @@
@@t.tex  :: \texttt{*text*} @@
@@t.txt  :: *text* @@

@@s.k text : Use the currently defined sans-serif font for *text* @@
@@s.html :: <span class="text">*text*</span> @@
@@s.tex  :: \textsf{*text*} @@
@@s.txt  :: *text* @@

@@u.k text : Underline *text* in the current font @@
@@u.tex :: \underline{\botstrut{2pt}*text*} @@

@@ri.k text : Use a roman italic font for *text* (to override monospace environment) @@
@@ri.html  :: <span class="ritalic">*text*</span> @@
@@ri.tex :: \textrm{\textit{*text*}} @@
@@ri.txt :: *text* @@


#[
@@small.k s :mode span : Smaller font size @@
@@small.html  :: < #- *mode* class="small"> #- *s* #- </ #- *mode* #- > @@
@@small.tex :: {\small *s*} @@

@@large.k s :mode span : Larger font size @@
@@large.html  :: <*mode* class="large">*s*</*mode*> @@
@@large.tex :: {\Large *s*} @@

@@rfont.k size | leading | text :  Scaled roman font @@

@@rfont.tex ::
%{\fontsize{*size*\basefontsize}{*leading* \basefontsize * \real{1.4}}\rmfamily
{\fontsize{ *size* }{ *leading* * \real{1.4}}\rmfamily

*text*

}
@@

@@sfont.k size | leading | text :  Scaled sans-serif font @@
@@sfont.tex ::
{\fontsize{ *size* \basefontsize}{ *leading* \basefontsize * \real{1.4}}\sffamily
*text*}
@@
]#


@@ts.k scale.float | text : Resize *text* by *scale* @@
# @@ts.tex :: {\scalefont{*scale*}\em *text*} @@
@@ts.tex :: \scalefont{*scale*}{*text*} @@
@@ts.html :: <span style="font-size: @eval *scale* * 100 @ #- %">*text*</span> @@
@@ts.txt :: *text* @@

@@leading.k n.float : Change LaTeX leading to *n*, multiple of the current line height @@
#@@leading.tex :: \renewcommand{\baselinestretch}{*n*} @@
@@leading.tex :: \setstretch{*n*} @@

# @@default_font : @font EB Garamond @ @@
# @@default_font : @font Bitstream Charter @ @@
@@default_font :
# \setmainfont[Ligatures=TeX,Numbers=Lining]{Garamond Libre}
\setmainfont{Garamond Libre}
@@
#[
@font
# Bitstream Charter
# Liberation Serif
EB Garamond
@
]#

@@cjk.k text : Switch to font that supports CJK for *text* @@
@@cjk.html :: *cjk* @@
@@cjk.tex  :: { #- @font Noto Sans CJK SC @ *cjk* #- } @@
@@cjk.txt  :: *cjk* @@

@@fraktur.tex s : \textfrak{*s*} @@

@@euro.html s : &^#x20AC;*s* @@
@@euro.tex s : €\,*s* @@

@@math s :center.bool false : @i *s* @ @@ # xxx

@@sub.k base | script : Subscript: @sub x 2 @ @@
@@sub :: @eval font.Subsuper(K, "sub") eval@ @@

@@sup.k base | script : Superscript: @sup x 2 @ @@
@@sup :: @eval font.Subsuper(K, "sup") eval@ @@

@@copyright.k : Copyright symbol: © @@
@@copyright.html :: &copy; @@
@@copyright.tex :: {\copyright} @@

@@registered.k : Registered symbol: ® @@
@@registered.html  :: <sup>&reg;</sup> @@
@@registered.tex :: \textsuperscript{\textregistered} @@

@@trademark.k : Trademark symbol: ™ @@
@@trademark.html  :: <sup>&trade;</sup> @@
@@trademark.tex :: \texttrademark{} @@

@@pi.k : Greek letter pi @@
@@pi.html :: &pi; @@
@@pi.tex :: $\pi$ @@

@@rightarrow.k : Right-pointing arrow: @rightarrow@ @@
@@rightarrow.html :: &^#8594; @@
@@rightarrow.tex :: $\rightarrow$ @@