internetepub.text.code.tex

% ePub 3.0, prefix: epub

% Built on top of XHTML
\txt_load_file:n {xhtml}
\tl_set:Nn \l__xhtm_idtype_tl {namenoc}

% Define the options for the ePub module
\keys_define:nn {epub options}
{
  split at .code:n = {
    \txt_set_hook:nnn {xhtm} {pre section header} {\epub_split_section:n {#1}}
  },
  split~ at .meta:n = {
    split at={#1}
  },
  unknown .code:n =
  {
    \txt_try_options:nnn {xhtml} {\l_keys_key_tl} {#1}
  }
}

% Get and set the options for the epub module
\prop_get:NnNT  \l__txt_popts_prop {epub} \l_tmpa_tl
{
  \keys_set:nV {epub options} \l_tmpa_tl
}

\int_new:N \l__epub_segments_int
\int_set:Nn \l__epub_segments_int {0}

\cs_set:Npn \thepage {\int_use:N \l__epub_segments_int}
% Disable restyling the page numbering,
\cs_set:Npn \pagenumbering #1 {}


\tl_clear:N \l__xhtm_begindoc_tl

\tl_new:N \l__epub_declaration_tl
\tl_set:Nn \l__epub_declaration_tl
{
  <?xml~ version="1.0"~ encoding="UTF-8"?>
  \xhtm_open_tag:nn {html}{xmlns="http://www.w3.org/1999/xhtml"~ xmlns:epub="http://www.idpf.org/2007/ops"}
}

\tl_new:N \l__epub_uuid_tl
\tl_new:N \l__epub_lang_tl
\tl_set:Nn \l__epub_uuid_tl {urn:uuid:577f82c9-a78c-493d-a162-9086930d4451}
\tl_set:Nn \l__epub_lang_tl {en}

\tl_new:N \l__epub_date_tl
\tl_new:N \l__epub_today_tl
\tl_set:Nx \l__epub_date_tl {
  \the\year-
  \two@digits{\the\month}-
  \two@digits{\the\day}T
  \two@digits{\int_eval:n {\time/60}}:
  \two@digits{\int_eval:n {\time - 60*(\int_div_truncate:nn {\time}{60})}}:
  00Z
}

\tl_set:Nx \l__epub_today_tl {
  \the\year-
  \two@digits{\the\month}-
  \two@digits{\the\day}
}

\cs_set_eq:NN \epub_orig_tableofcontents: \tableofcontents
\cs_set:Npn \tableofcontents {}

\seq_new:N \l__epub_files_seq
\tl_new:N \l__epub_files_tl
\tl_new:N \l__epub_filelist_tl
\tl_set:Nn \l__epub_filelist_tl
{
  \xhtm_comment:n {start~ of~ file~ list}
}

\cs_new_nopar:Npn \epub_math_in_toc:
{
  \tl_gput_right:Nn \l__epub_tocprop_tl {\c_space_token mathml}
}

\NewDocumentCommand \epubMathInToc {}
{
  \epub_math_in_toc:
}

\tl_new:N \l__epub_tocprop_tl
\tl_set:Nn \l__epub_tocprop_tl {nav}
\box_new:N \l__epub_toc_box

\xhtm_at_begindocument:n
{
  \epub_next_segment:
  \xhtm_open_par:
  \tl_put_right:Nn \l__epub_files_tl
  {
    \xhtm_linebreak:
    \xhtm_empty_tag:nn {item} {id="toc"~ properties="\tl_use:N \l__epub_tocprop_tl"~ href="toc.xhtml"~ media-type="application/xhtml+xml"}
  }
  \tl_put_right:Nn \l__epub_filelist_tl
  {
    \xhtm_linebreak:
    \xhtm_comment:n {toc.xhtml}
  }
  \vbox_set:Nn \l__epub_toc_box
  {
    \cs_set_eq:NN \xhtm_open_par: \xhtm_linebreak:
    \cs_set:Npn \xhtm_close_par: {}
    \everypar{}
    \xhtm_comment:n {start~ of~ toc.xhtml}
    \xhtm_open_tag:nn {html} {xmlns="http://www.w3.org/1999/xhtml"~ xmlns:epub="http://www.idpf.org/2007/ops"}
    \xhtm_open_tag:nn {head} {}
    \tl_if_eq:NNF \@title \l__xhtm_title_tl
    {
      \xhtm_linebreak:
      \xhtm_open_tag:nn {title}{}
      \@title
      \xhtm_close_tag:n {title}
    }
    \xhtm_close_tag:n {head}
    \xhtm_open_tag:nn {body} {}
    \xhtm_open_tag:nn {section} {epub:type="frontmatter~ toc"}
    \xhtm_open_tag:nn {header} {}
    \xhtm_open_tag:nn {h1} {}
    \contentsname
    \xhtm_close_tag:n {h1}
    \xhtm_close_tag:n {header}
    \xhtm_open_tag:nn {nav} {epub:type="toc"~ id="toc"}
    \begin{enumerate}
    \item 
    \tl_if_eq:NNF \@title \l__xhtm_title_tl
    {
      \href{\jobname \int_use:N \l__epub_segments_int .xhtml}{\@title}
    }
    \int_gzero_new:N \l__xhtm_toclvl_int
    \@starttoc{toc}
    \int_compare:nT {\l__xhtm_toclvl_int > 0}
    {
      \prg_replicate:nn {\l__xhtm_toclvl_int} {\endenumerate}
    }
    \end{enumerate}
    \xhtm_close_tag:n {nav}
    \xhtm_close_tag:n {section}
    \xhtm_close_tag:n {body}
    \xhtm_close_tag:n {html}
    \xhtm_comment:n {end~ of~ toc.xhtml}
  }
  \xhtm_at_enddocument:n {\vbox_unpack_clear:N \l__epub_toc_box}
  \tl_clear:N \Hy@tocdestname
}

\xhtm_at_enddocument:n
{
  \xhtm_comment:n {end~ of~ \jobname \int_use:N \l__epub_segments_int .xhtml}
  \tl_use:N \l__epub_filelist_tl
  \xhtm_comment:n {end~ of~ file~ list}

  \tl_if_empty:NF \l__xhtm_css_tl
  {
    \write\@auxout{\string\loadcss{\jobname}}
    \tl_put_right:Nn \l__epub_filelist_tl {
      \xhtm_linebreak:
      \xhtm_comment:n {\jobname.css}
    }
    \xhtm_linebreak:
    \xhtm_comment:n {start~ of~ \jobname.css}
    \tl_use:N \l__xhtm_css_tl
    \xhtm_comment:n {end~ of~ \jobname.css}
    \xhtm_linebreak:
  }

  \tl_if_empty:NF \l__xhtm_js_tl
  {
    \write\@auxout{\string\loadjs{\jobname}}
    \tl_put_right:Nn \l__epub_filelist_tl {
      \xhtm_linebreak:
      \xhtm_comment:n {\jobname.js}
    }
    \xhtm_linebreak:
    \xhtm_comment:n {start~ of~ \jobname.js}
    \tl_use:N \l__xhtm_js_tl
    \xhtm_comment:n {end~ of~ \jobname.js}
    \xhtm_linebreak:
  }

  \group_begin:
  \cs_set_eq:NN \xhtm_open_par: \xhtm_linebreak:
  \cs_set:Npn \xhtm_close_par: {}
  \everypar{}
  \xhtm_comment:n {start~ of~ content.opf}
  <?xml~ version='1.0'~ encoding='utf-8'?>
  \xhtm_open_tag:nn {package} {xmlns="http://www.idpf.org/2007/opf"~
         version="3.0"~ 
         xml:lang="en"~ 
         unique-identifier="pub-id"}
  \xhtm_open_tag:nn {metadata} {
    xmlns:dc="http://purl.org/dc/elements/1.1/"
  }
  \tl_if_eq:NNF \@title \l__xhtm_title_tl
  {
    \xhtm_linebreak:
    \xhtm_open_tag:nn {dc:title} {id="title"}
    \@title
    \xhtm_close_tag:n {dc:title}
    \xhtm_open_tag:nn {meta} {refines="\#title"~ property="title-type"}
    main
    \xhtm_close_tag:n {meta}
  }
  \tl_if_eq:NNF \@author \l__xhtm_author_tl
  {
    \xhtm_linebreak:
    \xhtm_open_tag:nn {dc:creator} {id="creator"}
    \@author
    \xhtm_close_tag:n {dc:creator}
    \xhtm_open_tag:nn {meta} {refines="\#creator"~ property="file-as"}
    \@author
    \xhtm_close_tag:n {meta}
    \xhtm_open_tag:nn {meta} {refines="\#creator"~ property="role"~ scheme="marc:relators"}
    aut
    \xhtm_close_tag:n {meta}
  }
  \xhtm_open_tag:nn {dc:identifier} {id="pub-id"}
  \tl_use:N \l__epub_uuid_tl
  \xhtm_close_tag:n {dc:identifier}
  \xhtm_open_tag:nn {meta} {refines="\#pub-id"~ property="identifier-type"~ scheme="xsd:string"}
  15
  \xhtm_close_tag:n {meta}
  \xhtm_open_tag:nn {dc:language} {}
  \tl_use:N \l__epub_lang_tl
  \xhtm_close_tag:n {dc:language}
  \xhtm_open_tag:nn {meta} {property="dcterms:modified"}
  \tl_use:N \l__epub_date_tl
  \xhtm_close_tag:n {meta}
  \xhtm_open_tag:nn {dc:date} {}
  \tl_use:N \l__epub_today_tl
  \xhtm_close_tag:n {dc:date}
  \xhtm_close_tag:n {metadata}
  \xhtm_linebreak:
  \xhtm_open_tag:nn {manifest} {}
  \tl_use:N \l__epub_files_tl
  \xhtm_close_tag:n {manifest}
  \xhtm_linebreak:
  \xhtm_open_tag:nn {spine} {}
  \int_step_inline:nnnn {1} {1} {\l__epub_segments_int}
  {
    \xhtm_empty_tag:nn {itemref} {idref="page #1"}
  }
  \xhtm_close_tag:n {spine}
  \xhtm_close_tag:n {package}
  \xhtm_comment:n {end~ of~ content.opf}
  \group_end:
}

\txt_set_hook:nnn {xhtm} {load css}
{
  \tl_gput_right:Nx \l__epub_files_tl
  {
    \exp_not:N \xhtm_linebreak:
    \exp_not:N \xhtm_empty_tag:nn {item} {id="\seq_item:Nn \l__txt_args_seq {1} _css"~ href="
      \seq_item:Nn \l__txt_args_seq {1} .css"~ media-type="text/css"}
  }
  \tl_gput_right:Nx \l__epub_filelist_tl
  {
    \exp_not:N \xhtm_linebreak:
    \exp_not:N \xhtm_comment:n {\seq_item:Nn \l__txt_args_seq {1} .css}
  }

}

\txt_set_hook:nnn {xhtm} {load js}
{
  \tl_gput_right:Nx \l__epub_files_tl
  {
    \exp_not:N \xhtm_linebreak:
    \exp_not:N \xhtm_empty_tag:nn {item} {id="\seq_item:Nn \l__txt_args_seq {1} _js"~ href="
      \seq_item:Nn \l__txt_args_seq {1} .js"~ media-type="text/javascript"}
  }
  \tl_gput_right:Nx \l__epub_filelist_tl
  {
    \exp_not:N \xhtm_linebreak:
    \exp_not:N \xhtm_comment:n {\seq_item:Nn \l__txt_args_seq {1} .js}
  }
}


\cs_new_nopar:Npn \epub_next_segment:
{
  \int_gincr:N \l__epub_segments_int
  \tl_gput_right:Nx \l__epub_files_tl
  {
    \exp_not:N \xhtm_linebreak:
    \exp_not:N \xhtm_empty_tag:nn {item} {href="\jobname \int_use:N \l__epub_segments_int  .xhtml"~ properties="mathml \bool_if:nF {\tl_if_empty_p:N \l__xhtm_js_tl && \tl_if_empty_p:N  \l__xhtm_jsfiles_tl} {~ scripted}"~ id="page \int_use:N \l__epub_segments_int "~ media-type="application/xhtml+xml"}
  }
  \tl_gput_right:Nx \l__epub_filelist_tl
  {
    \exp_not:N \xhtm_linebreak:
    \exp_not:N \xhtm_comment:n {\jobname \int_use:N \l__epub_segments_int .xhtml}
  }
  \xhtm_comment:n {start~ of~ \jobname\int_use:N \l__epub_segments_int .xhtml}
  \tl_use:N \l__epub_declaration_tl
  \xhtm_open_tag:nn {head} {}
  \tl_if_eq:NNF \@title \l__xhtm_title_tl
  {
    \xhtm_linebreak:
    \xhtm_open_tag:nn {title} {}
    \@title
    \xhtm_close_tag:n {title}
  }
  \tl_if_eq:NNF \@author \l__xhtm_author_tl
  {
    \xhtm_linebreak:
    \xhtm_empty_tag:nn {meta} {name="Author"~ content="\@author"}
  }
  \tl_use:N \l__xhtm_cssfiles_tl
  \tl_use:N \l__xhtm_jsfiles_tl
  \xhtm_close_tag:n {head}
  \xhtm_open_tag:nn {body} {}
  \xhtm_open_par:
  \xhtm_open_tag:nn {math}
  {xmlns='http://www.w3.org/1998/Math/MathML'~ display='inline'~ class='dummy'}
  \xhtm_open_tag:nn {mi} {}
  \xhtm_close_tag:n {mi}
  \xhtm_close_tag:n {math}
  \xhtm_close_par:
  \everypar{\xhtm_reopen_par:}
}


\int_set:Nn \l_tmpa_int {0}
\clist_if_in:nVT {book} \l__txt_class_tl
{
  \int_new:N \l__epub_part_level_int
  \int_set:Nn \l__epub_part_level_int {1}
  \int_incr:N \l_tmpa_int
}
\clist_if_in:nVT {report,book} \l__txt_class_tl
{
  \int_new:N \l__epub_chapter_level_int
  \int_set:Nn \l__epub_chapter_level_int {\l_tmpa_int + 1}
  \int_incr:N \l_tmpa_int
}

\int_new:N \l__epub_section_level_int
\int_new:N \l__epub_subsection_level_int
\int_new:N \l__epub_subsubsection_level_int
\int_new:N \l__epub_paragraph_level_int
\int_new:N \l__epub_subparagraph_level_int

\int_set:Nn \l__epub_section_level_int {\l_tmpa_int + 1}
\int_set:Nn \l__epub_subsection_level_int {\l_tmpa_int + 2}
\int_set:Nn \l__epub_subsubsection_level_int {\l_tmpa_int + 3}
\int_set:Nn \l__epub_paragraph_level_int {\l_tmpa_int + 4}
\int_set:Nn \l__epub_subparagraph_level_int {\l_tmpa_int + 5}

\int_new:N \l__epub_curr_section_int
\int_new:N \l__epub_next_section_int

% Rules for splitting:
%  We specify a ``level'' at which to split, say ``section''.
%  Each time the section command is called, we compare it with the
%  previous one and with the splitting level.
%
% The rules are:
%  We don't split if the next level is lower down the hierarchy than
%  the current level,
%  We don't split if the next level is lower down the hierarchy than
%  the splitting level.
%  We don't split at phantom sections.
%
% Note that numerically, the higher sections levels have lower
% numerical value.

\cs_new_nopar:Npn \epub_split_section:n #1
{
  \int_set:Nn \l__epub_next_section_int
  {
    \seq_item:Nn \l__txt_args_seq {1} + \l__xhtm_sec_int
  }
  \bool_if:nT {
    \int_compare_p:n {
      \l__epub_next_section_int <= \int_use:c {l__epub_#1_level_int}
    }
    &&
    \int_compare_p:n {
      \l__epub_next_section_int <= \l__epub_curr_section_int
    }
  }
  {
    \xhtm_close_par:
    \xhtm_set_footnotes:
    \xhtm_close_tag:n {body}
    \xhtm_close_tag:n {html}
    \xhtm_comment:n {end~ of~ \jobname \int_use:N \l__epub_segments_int .xhtml}
    \txt_newpage:
    \epub_next_segment:
  }
  \int_gset_eq:NN \l__epub_curr_section_int \l__epub_next_section_int
}

\cs_new:Npn \epub_phantom_section:
{
  \tl_set:Nx \l_tmpa_tl {{\int_eval:n  {\l__epub_section_level_int -  \l__xhtm_sec_int } }}
  \seq_set_split:NnV \l__txt_args_seq {,} \l_tmpa_tl
\txt_use_hook:nn {xhtm} {pre section header}
  % This ensures we don't break after a \phantomsection
  \int_gset:Nn \l__epub_curr_section_int {-1}
\epub_orig_phantom_section:
}

\DeclareDocumentCommand \epubNewSegment {o}
{
  \IfValueTF {#1}
  {
    \tl_set:Nx \l_tmpa_tl {{\int_eval:n  {\int_use:c {l__epub_#1_level_int} -  \l__xhtm_sec_int } }}
    \seq_set_split:NnV \l__txt_args_seq {,} \l_tmpa_tl
    \txt_use_hook:nn {xhtm} {pre section header}
  }
  {
    \xhtm_close_par:
    \xhtm_set_footnotes:
    \xhtm_close_tag:n {body}
    \xhtm_close_tag:n {html}
    \xhtm_comment:n {end~ of~ \jobname \int_use:N \l__epub_segments_int .xhtml}
    \txt_newpage:
    \epub_next_segment:
  }
}

\AtBeginDocument{
  \cs_set_eq:NN \epub_orig_phantom_section: \phantomsection
  \cs_set_eq:NN \phantomsection \epub_phantom_section:
}

\txt_set_hook:nnn {xhtm} {pre abstract}
{
  \cs_set_eq:NN \epub_split_section:n \use:n
}

\cs_new:Npn \use_ii:nnnnn #1#2#3#4#5{#2}
\cs_new:Npn \use_iiii:nnnnn #1#2#3#4#5{#4}

\cs_set_eq:NN \epub_old_label:nnn \@newl@bel

\cs_new:Npn \epub_label:nnn #1#2#3
{
  \epub_old_label:nnn {#1}{#2}{#3}
  \int_compare:nT {\tl_count:n {#3} == 5}
  {
    \tl_gclear_new:c {epub_page_\use_iiii:nnnnn #3}
    \tl_gset:cx {epub_page_\use_iiii:nnnnn #3} {\use_ii:nnnnn #3}
  }
}

\cs_set_eq:NN \@newl@bel \epub_label:nnn

\txt_set_hook:nnn {xhtm} {link}
{
  \tl_if_exist:cT {epub_page_  \seq_item:Nn \l__txt_args_seq {2}}
  {
    \tl_set:Nx \l__xhtm_baseurl_tl {\jobname \tl_use:c {epub_page_  \seq_item:Nn \l__txt_args_seq {2}} .xhtml}
  }
}

\AtBeginDocument{
  \cs_set:Npn \@setref #1#2#3
  {
    \cs_if_eq:NNTF #1 \relax
    {
      \protect\G@refundefinedtrue
      \nfss@text{\reset@font\bfseries ??}
      \@latex@warning{
        Reference~ `#3'~ on~ page~ \thepage~ undefined
      }
    }
    {
      \tl_set:Nx \l__xhtm_baseurl_tl {\jobname \exp_last_unbraced:No \use_ii:nnnnn #1 .xhtml}
      \exp_last_unbraced:No \Hy@setref@link #1 \@empty \@empty \@nil {#2}
    }
  }
}

\txt_set_hook:nnn {xhtm} {post bibliography header}
{
  \write\@auxout{\string\epubbibpage {\int_use:N \l__epub_segments_int }}
}


\cs_new_nopar:Npn \epubbibpage #1
{
  \int_gset:Nn\l__epub_bibpage_int {#1}
}

\int_new:N \l__epub_bibpage_int
\int_set:Nn \l__epub_bibpage_int {1}
\txt_set_hook:nnn {xhtm} {cite}
{
  \tl_set:Nn \l__xhtm_baseurl_tl {\jobname \int_use:N     \l__epub_bibpage_int .xhtml}
}

\cs_set_eq:NN \epub_tocline:nnn \xhtm_tocline:nnn

\cs_set_nopar:Npn \xhtm_tocline:nnn #1#2#3
{
  \tl_set:Nn \l__xhtm_baseurl_tl {\jobname #3.xhtml}
  \epub_tocline:nnn {#1}{#2}{#3}
}

\newcounter{epub graphics files}

\cs_set_nopar:Npn \xhtm_pre_graphics:n #1
{
  \seq_if_in:NnF \l__epub_files_seq {#1}
  {
    \stepcounter{epub graphics files}
    \tl_gput_right:Nx \l__epub_files_tl
    {
      \exp_not:N \xhtm_linebreak:
      \exp_not:N \xhtm_empty_tag:nn {item} {id="img\use:c{the epub           graphics files}"~ href="#1"~ media-type="image/png"}
    }
    \tl_gput_right:Nx \l__epub_filelist_tl
    {
      \exp_not:N \xhtm_linebreak:
      \exp_not:N \xhtm_comment:n {#1}
    }
    \seq_gput_left:Nn \l__epub_files_seq {#1}
  }
}

% Definition lists seem different in ePub3 to XHTML

\NewDocumentEnvironment {epub description} {m}
{
  \xhtm_close_par:
  \xhtm_open_tag:nn {dl} {}
  \cs_set_eq:NN \@item \epub_first_item:w
}
{
  \xhtm_close_par:
  \xhtm_close_tag:n {dd}
  \xhtm_close_tag:n {dl}
  \xhtm_open_par:
}

\DeclareDocumentEnvironment {description} {}
{
  \use:c {epub description}{}
}
{
  \use:c {end epub description}
}

\cs_new_nopar:Npn \epub_first_item:w [#1]
{
  \xhtm_open_tag:nn {dt} {class="listlabel"}
  \xhtm_open_tag:nn {dfn} {class="listlabel"}
  #1
  \xhtm_close_tag:n {dfn}
  \xhtm_close_tag:n {dt}
  \xhtm_open_tag:nn {dd} {}
  \xhtm_open_par:
  \cs_set_eq:NN \@item \epub_main_item:w
}

\cs_new_nopar:Npn \epub_main_item:w [#1]
{
  \xhtm_close_par:
  \xhtm_close_tag:n {dd}
  \xhtm_open_tag:nn {dt} {class="listlabel"}
  \xhtm_open_tag:nn {dfn} {class="listlabel"}
  #1
  \xhtm_close_tag:n {dfn}
  \xhtm_close_tag:n {dt}
  \xhtm_open_tag:nn {dd} {}
  \xhtm_open_par:
}

% Required information:
%  Font file name
%  Font id
%  Font family
%  Font weight
%  Font style
%  Font media type
%  Font format
%
% Argument should be a prop with the above information
%
\cs_generate_variant:Nn \prop_get:NnN {NxN}
\cs_new_nopar:Npn \epub_embed_font:N #1
{
  \clist_map_inline:nn { regular, italic, bold, bold italic }
  {
    \prop_if_in:NnT #1 {##1}
    {
      \prop_get:NxN \l__epub_fontmedia_prop
          {\prop_item:Nn #1 {format}} \l_tmpb_tl
      \tl_put_right:Nx \l__epub_files_tl
      {
        \exp_not:N \xhtm_linebreak:
        \exp_not:N \xhtm_empty_tag:nn {item} {
          id="font. \prop_item:Nn #1 {family}. ##1"~ 
          href="\prop_item:Nn #1 {##1}"~
          media-type="\tl_use:N \l_tmpb_tl"
        }
      }
      \tl_put_right:Nx \l__epub_filelist_tl
      {
        \exp_not:N \xhtm_linebreak:
        \exp_not:N \xhtm_comment:n {\prop_item:Nn #1 {##1}}
      }
      \tl_set:Nn \l_tmpa_tl
      {
        @font-face~
        \txt_lbrace:{}~
        }
        \tl_put_right:Nx \l_tmpa_tl
        {
          font-family:~ '\prop_item:Nn #1 {family}';~
          font-weight:~ \prop_item:Nn \l__epub_fontwt_prop {##1};~
          font-style:~ \prop_item:Nn \l__epub_fontst_prop {##1};~
          src:~ url(\prop_item:Nn #1 {##1})~ format('\prop_item:Nn           #1 {format}');~
        }
        \tl_put_right:Nn \l_tmpa_tl {\txt_rbrace:
        \xhtm_linebreak:}
      \xhtm_add_css:V \l_tmpa_tl
    }
  }
}

\prop_new:N \l__epub_font_prop
\keys_define:nn { ePub }
{
  font .multichoice:,
  font .choice_code:n =
  {
    \prop_put:NVV \l__epub_font_prop \l_keys_choice_tl \l_keys_value_tl
  },
  font .generate_choices:n =
  {
    family, regular, bold, italic, bold italic, format
  }
}

\prop_new:N \l__epub_fontmedia_prop
\prop_put:Nnn \l__epub_fontmedia_prop
{ opentype }
{ application/vnd.ms-opentype }
\prop_new:N \l__epub_fontwt_prop
\prop_put:Nnn \l__epub_fontwt_prop
{ regular }
{ regular }
\prop_put:Nnn \l__epub_fontwt_prop
{ italic }
{ regular }
\prop_put:Nnn \l__epub_fontwt_prop
{ bold }
{ bold }
\prop_put:Nnn \l__epub_fontwt_prop
{ bold italic }
{ bold }
\prop_new:N \l__epub_fontst_prop
\prop_put:Nnn \l__epub_fontst_prop
{ regular }
{ normal }
\prop_put:Nnn \l__epub_fontst_prop
{ italic }
{ italic }
\prop_put:Nnn \l__epub_fontst_prop
{ bold }
{ normal }
\prop_put:Nnn \l__epub_fontst_prop
{ bold italic }
{ italic }

\NewDocumentCommand \epubEmbedFont {m}
{
  \prop_clear:N \l__epub_font_prop
  \keys_set:nn { ePub / font } {#1}
  \epub_embed_font:N \l__epub_font_prop
}

\endinput

% Local Variables:
% mode: latex3
% End: