# @@@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.
  :pattern ('font'^|\s)+
  :python_cast (lambda s : s.split())
  :default r
@@@

@@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* @@

@@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.k : Default font for documents @@
@@default_font.tex ::
# \setmainfont[Ligatures=TeX,Numbers=Lining]{Garamond Libre}
\setmainfont{Garamond Libre}
@@

@@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.k s : Set text *s* in Fraktur @@
@@fraktur.tex :: \textfrak{*s*} @@

@@euro.k f : The Euro symbol, followed by the amount *f* @@
@@euro.html :: &^#x20AC;*f* @@
@@euro.tex,txt :: €\,*f* @@

# TODO: This needs to use MathJax. 
# @@math s :center.bool false : @i *s* @ @@

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

@@sup.k base | script : Superscript: @sup x 2 @ @@
@@sup.html,tex :: @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$ @@

@@dot.k : Vertically entered dot @@
@@dot.tex :: $\cdot$ @@
@@dot.html :: ^00B7^ @@
@@dot.txt :: ^00B7^ @@