@pretextbook/pretext-html 0.3.0 → 0.5.0

package/assets/xsl/pretext-beamer.xsl

@@ -287,7 +287,7 @@ along with PreTeXt.  If not, see <http://www.gnu.org/licenses/>.
 <xsl:template match="slide//ol/li|slide//ul/li">
     <xsl:text>\item{}</xsl:text>
     <xsl:if test="title">
-        <xsl:text> \lititle{</xsl:text>
+        <xsl:text> \ptxlititle{</xsl:text>
         <xsl:apply-templates select="." mode="title-full"/>
         <xsl:text>}\par</xsl:text>
     </xsl:if>
@@ -434,12 +434,14 @@ along with PreTeXt.  If not, see <http://www.gnu.org/licenses/>.
 <!-- Preamble -->
 <!-- ######## -->
 
-<!-- N.B. Portions of this preamble duplicate fragments of the LaTeX   -->
-<!-- conversion's preamble, since the inherited content templates      -->
-<!-- presume supporting macros and environments ("image", "sidebyside" -->
-<!-- and "sbspanel", "program", "console", "sageinput"/"sageoutput",   -->
-<!-- tabular rules, semantic macros).  Re-architecting the LaTeX       -->
-<!-- preamble into shareable pieces would remove the duplication.      -->
+<!-- N.B. This preamble is assembled largely from the shared preamble  -->
+<!-- pieces of pretext-latex-common.xsl (tcolorbox setup, images,      -->
+<!-- tables, side-by-side, code, font hooks), so the environments the  -->
+<!-- inherited content templates emit are all defined.  Two fragments  -->
+<!-- remain local duplicates: the semantic macros (a subset, with      -->
+<!-- Beamer-specific treatment of \alert and no styling hooks) and     -->
+<!-- the engine/font setup (fontenc/fontspec, where the regular        -->
+<!-- "font-support" prescribes document fonts a theme should control). -->
 <xsl:template name="beamer-preamble">
     <xsl:text>\documentclass[11pt, compress]{beamer}&#xa;</xsl:text>
     <xsl:if test="$latex.preamble.early != ''">
@@ -466,121 +468,38 @@ along with PreTeXt.  If not, see <http://www.gnu.org/licenses/>.
     <xsl:text>%% Some aspects of the preamble are conditional,&#xa;</xsl:text>
     <xsl:text>%% the LaTeX engine is one such determinant&#xa;</xsl:text>
     <xsl:text>\usepackage{ifthen}&#xa;</xsl:text>
-    <xsl:text>\newcommand{\tabularfont}{}&#xa;</xsl:text>
-    <xsl:text>\usepackage[xparse, raster]{tcolorbox}&#xa;</xsl:text>
+    <!-- The style-writer font hooks that shared preamble pieces -->
+    <!-- presume; under Beamer the theme controls fonts, so the  -->
+    <!-- no-op defaults are exactly right                        -->
+    <xsl:call-template name="automatic-font-control"/>
+    <xsl:text>%% Shared tcolorbox styles restore paragraph shape via \ptxsetparstyle;&#xa;</xsl:text>
+    <xsl:text>%% under Beamer the theme's paragraph shape should rule, so a no-op&#xa;</xsl:text>
+    <xsl:text>\newcommand{\ptxsetparstyle}{}&#xa;</xsl:text>
+    <!-- The shared tcolorbox setup: package, libraries, stock styles -->
+    <xsl:call-template name="tcolorbox-init"/>
+    <xsl:text>%% Boxes default to white backgrounds and frames, so tcolorbox&#xa;</xsl:text>
+    <xsl:text>%% content does not pick up colors from the Beamer theme&#xa;</xsl:text>
     <xsl:text>\tcbset{colback=white, colframe=white}&#xa;</xsl:text>
-    <xsl:text>%% tcolorbox styles used by images and side-by-side panels&#xa;</xsl:text>
-    <xsl:text>\tcbset{ bwminimalstyle/.style={size=minimal, boxrule=-0.3pt, frame empty,&#xa;</xsl:text>
-    <xsl:text>colback=white, colbacktitle=white, coltitle=black, opacityfill=0.0} }&#xa;</xsl:text>
-    <xsl:if test="$document-root//image">
-        <xsl:text>%% "tcolorbox" environment for a single image, as in the LaTeX conversion&#xa;</xsl:text>
-        <xsl:text>\tcbset{ imagestyle/.style={bwminimalstyle} }&#xa;</xsl:text>
-        <xsl:text>\NewTColorBox{tcbimage}{mmm}{imagestyle,left skip=#1\linewidth,width=#2\linewidth}&#xa;</xsl:text>
-        <xsl:text>\NewDocumentEnvironment{image}{mmmm}{\notblank{#4}{\leavevmode\nopagebreak\vspace{#4}}{}\begin{tcbimage}{#1}{#2}{#3}}{\end{tcbimage}%&#xa;}</xsl:text>
-        <xsl:text>&#xa;</xsl:text>
-    </xsl:if>
+    <!-- The shared "tcolorbox" environment for a single image -->
+    <xsl:call-template name="image-tcolorbox"/>
     <xsl:if test="$document-root//ol[@cols]|$document-root//ul[@cols]">
         <xsl:text>%% Multiple column lists&#xa;</xsl:text>
         <xsl:text>\usepackage{multicol}&#xa;</xsl:text>
     </xsl:if>
-    <xsl:if test="$b-has-program or $b-has-console or $b-has-sage">
-        <xsl:text>%% Program listing support: for listings, programs, consoles, and Sage code&#xa;</xsl:text>
-        <xsl:text>\ifthenelse{\boolean{xetex} \or \boolean{luatex}}%&#xa;</xsl:text>
-        <xsl:text>  {\tcbuselibrary{listings}}%&#xa;</xsl:text>
-        <xsl:text>  {\tcbuselibrary{listingsutf8}}%&#xa;</xsl:text>
-        <xsl:text>%% A null language, free of any formatting or style&#xa;</xsl:text>
-        <xsl:text>\lstdefinelanguage{none}{identifierstyle=,commentstyle=,stringstyle=,keywordstyle=}&#xa;</xsl:text>
-        <xsl:if test="$b-has-program">
-            <xsl:text>%% Colors match a subset of Google prettify "Default" style&#xa;</xsl:text>
-            <xsl:text>\definecolor{identifiers}{rgb}{0.375,0,0.375}&#xa;</xsl:text>
-            <xsl:text>\definecolor{comments}{rgb}{0.5,0,0}&#xa;</xsl:text>
-            <xsl:text>\definecolor{strings}{rgb}{0,0.5,0}&#xa;</xsl:text>
-            <xsl:text>\definecolor{keywords}{rgb}{0,0,0.5}&#xa;</xsl:text>
-            <xsl:text>\lstdefinestyle{programcodestyle}{identifierstyle=\color{identifiers},commentstyle=\color{comments},stringstyle=\color{strings},keywordstyle=\color{keywords}, breaklines=true, breakatwhitespace=true, columns=fixed, extendedchars=true, aboveskip=0pt, belowskip=0pt}&#xa;</xsl:text>
-            <xsl:text>\lstdefinestyle{programcodenumberedstyle}{style=programcodestyle, numbers=left}&#xa;</xsl:text>
-            <xsl:text>\tcbset{ programboxstyle/.style={left=3ex, right=0pt, top=0ex, bottom=0ex, middle=0pt, toptitle=0pt, bottomtitle=0pt, boxsep=0pt, &#xa;</xsl:text>
-            <xsl:text>listing only, fontupper=\small\ttfamily,&#xa;</xsl:text>
-            <xsl:text>colback=white, sharp corners, boxrule=-0.3pt, leftrule=0.5pt,&#xa;</xsl:text>
-            <xsl:text>parbox=false,&#xa;</xsl:text>
-            <xsl:text>} }&#xa;</xsl:text>
-            <xsl:text>\tcbset{ programboxnumberedstyle/.style={programboxstyle, left=6ex} }&#xa;</xsl:text>
-            <xsl:text>%% Arguments: language, left margin, width, right margin (latter ignored)&#xa;</xsl:text>
-            <xsl:text>\newtcblisting{program}[4]{programboxstyle, left skip=#2\linewidth, width=#3\linewidth, listing options={language=#1, style=programcodestyle}}&#xa;</xsl:text>
-            <xsl:text>\newtcblisting{programnumbered}[4]{programboxnumberedstyle, left skip=#2\linewidth, width=#3\linewidth, listing options={language=#1, style=programcodenumberedstyle}}&#xa;</xsl:text>
-            <xsl:text>\newcommand{\programfragment}[2]{\lstinline[language=#1, style=programcodestyle, basicstyle=\ttfamily]#2}&#xa;</xsl:text>
-        </xsl:if>
-        <xsl:if test="$b-has-console">
-            <xsl:text>%% Console session with prompt, input, output&#xa;</xsl:text>
-            <xsl:text>\newcommand{\consoleinput}[1]{\textbf{#1}}&#xa;</xsl:text>
-            <xsl:text>\lstdefinestyle{consolecodestyle}{language=none, escapeinside={(*}{*)}, identifierstyle=, commentstyle=, stringstyle=, keywordstyle=, breaklines=false, breakatwhitespace=false, columns=fixed, extendedchars=true, aboveskip=0pt, belowskip=0pt}&#xa;</xsl:text>
-            <xsl:text>\tcbset{ consoleboxstyle/.style={left=0pt, right=0pt, top=0ex, bottom=0ex, middle=0pt, toptitle=0pt, bottomtitle=0pt, boxsep=0pt,&#xa;</xsl:text>
-            <xsl:text>listing only, fontupper=\small\ttfamily,&#xa;</xsl:text>
-            <xsl:text>colback=white, boxrule=-0.3pt,&#xa;</xsl:text>
-            <xsl:text>parbox=false,&#xa;</xsl:text>
-            <xsl:text>} }&#xa;</xsl:text>
-            <xsl:text>%% Arguments: left margin, width, right margin (latter ignored)&#xa;</xsl:text>
-            <xsl:text>\newtcblisting{console}[3]{consoleboxstyle, left skip=#1\linewidth, width=#2\linewidth, listing options={style=consolecodestyle}}&#xa;</xsl:text>
-        </xsl:if>
-        <xsl:if test="$b-has-sage">
-            <xsl:text>%% The listings package as tcolorbox for Sage code&#xa;</xsl:text>
-            <xsl:text>\definecolor{sageblue}{HTML}{</xsl:text><xsl:value-of select="$sage-input-background"/><xsl:text>}&#xa;</xsl:text>
-            <xsl:text>\tcbset{ sagestyle/.style={left=0pt, right=0pt, top=0ex, bottom=0ex, middle=0pt, toptitle=0pt, bottomtitle=0pt,&#xa;</xsl:text>
-            <xsl:text>boxsep=4pt, listing only, fontupper=\small\ttfamily,&#xa;</xsl:text>
-            <xsl:text>parbox=false, &#xa;</xsl:text>
-            <xsl:text>listing options={language=Python,breaklines=true,breakatwhitespace=true, extendedchars=true, aboveskip=0pt, belowskip=0pt}} }&#xa;</xsl:text>
-            <xsl:text>\newtcblisting{sageinput}{sagestyle, colback=sageblue, sharp corners, boxrule=0.5pt, }&#xa;</xsl:text>
-            <xsl:text>\newtcblisting{sageoutput}{sagestyle, colback=white, colframe=white, frame empty, before skip=0pt, after skip=0pt, }&#xa;</xsl:text>
-        </xsl:if>
-    </xsl:if>
-    <xsl:if test="$document-root//sidebyside">
-        <xsl:text>%% tcolorbox styles for sidebyside layout&#xa;</xsl:text>
-        <xsl:text>\tcbset{ sbsstyle/.style={raster before skip=2.0ex, raster equal height=rows, raster force size=false} }&#xa;</xsl:text>
-        <xsl:text>\tcbset{ sbspanelstyle/.style={bwminimalstyle} }&#xa;</xsl:text>
-        <xsl:text>%% "xparse" environment for entire sidebyside&#xa;</xsl:text>
-        <xsl:text>\NewDocumentEnvironment{sidebyside}{mmmm}&#xa;</xsl:text>
-        <xsl:text>  {\begin{tcbraster}&#xa;</xsl:text>
-        <xsl:text>    [sbsstyle,raster columns=#1,&#xa;</xsl:text>
-        <xsl:text>    raster left skip=#2\linewidth,raster right skip=#3\linewidth,raster column skip=#4\linewidth]}&#xa;</xsl:text>
-        <xsl:text>  {\end{tcbraster}}&#xa;</xsl:text>
-        <xsl:text>%% "tcolorbox" environment for a panel of sidebyside&#xa;</xsl:text>
-        <xsl:text>\NewTColorBox{sbspanel}{mO{top}}{sbspanelstyle,width=#1\linewidth,valign=#2}&#xa;</xsl:text>
-    </xsl:if>
-    <xsl:if test="$document-root//tabular">
-        <xsl:text>%% For improved tables&#xa;</xsl:text>
-        <xsl:text>\usepackage{array}&#xa;</xsl:text>
-        <xsl:text>\setlength{\extrarowheight}{0.2ex}&#xa;</xsl:text>
-        <xsl:text>%% Variable thickness horizontal rules, full and partial&#xa;</xsl:text>
-        <xsl:text>\newcommand{\hrulethin}  {\noalign{\hrule height 0.04em}}&#xa;</xsl:text>
-        <xsl:text>\newcommand{\hrulemedium}{\noalign{\hrule height 0.07em}}&#xa;</xsl:text>
-        <xsl:text>\newcommand{\hrulethick} {\noalign{\hrule height 0.11em}}&#xa;</xsl:text>
-        <xsl:text>\let\oldsetlength\setlength&#xa;</xsl:text>
-        <xsl:text>\newlength{\Oldarrayrulewidth}&#xa;</xsl:text>
-        <xsl:text>\newcommand{\crulethin}[1]%&#xa;</xsl:text>
-        <xsl:text>{\noalign{\global\oldsetlength{\Oldarrayrulewidth}{\arrayrulewidth}}%&#xa;</xsl:text>
-        <xsl:text>\noalign{\global\oldsetlength{\arrayrulewidth}{0.04em}}\cline{#1}%&#xa;</xsl:text>
-        <xsl:text>\noalign{\global\oldsetlength{\arrayrulewidth}{\Oldarrayrulewidth}}}%&#xa;</xsl:text>
-        <xsl:text>\newcommand{\crulemedium}[1]%&#xa;</xsl:text>
-        <xsl:text>{\noalign{\global\oldsetlength{\Oldarrayrulewidth}{\arrayrulewidth}}%&#xa;</xsl:text>
-        <xsl:text>\noalign{\global\oldsetlength{\arrayrulewidth}{0.07em}}\cline{#1}%&#xa;</xsl:text>
-        <xsl:text>\noalign{\global\oldsetlength{\arrayrulewidth}{\Oldarrayrulewidth}}}&#xa;</xsl:text>
-        <xsl:text>\newcommand{\crulethick}[1]%&#xa;</xsl:text>
-        <xsl:text>{\noalign{\global\oldsetlength{\Oldarrayrulewidth}{\arrayrulewidth}}%&#xa;</xsl:text>
-        <xsl:text>\noalign{\global\oldsetlength{\arrayrulewidth}{0.11em}}\cline{#1}%&#xa;</xsl:text>
-        <xsl:text>\noalign{\global\oldsetlength{\arrayrulewidth}{\Oldarrayrulewidth}}}&#xa;</xsl:text>
-        <xsl:text>%% Single letter column specifiers defined via array package&#xa;</xsl:text>
-        <xsl:text>\newcolumntype{A}{!{\vrule width 0.04em}}&#xa;</xsl:text>
-        <xsl:text>\newcolumntype{B}{!{\vrule width 0.07em}}&#xa;</xsl:text>
-        <xsl:text>\newcolumntype{C}{!{\vrule width 0.11em}}&#xa;</xsl:text>
-    </xsl:if>
-    <xsl:if test="$document-root//cell/line">
-        <xsl:text>\newcommand{\tablecelllines}[3]%&#xa;</xsl:text>
-        <xsl:text>{\begin{tabular}[#2]{@{}#1@{}}#3\end{tabular}}&#xa;</xsl:text>
-    </xsl:if>
+    <!-- The shared support for programs, consoles, Sage code, and -->
+    <!-- verbatim-ish material ("pre", "cd", literate programming) -->
+    <xsl:call-template name="code-support"/>
+    <!-- The shared side-by-side environments; their styles employ -->
+    <!-- the \blocktitlefont and \ptxsetparstyle hooks defined above   -->
+    <xsl:call-template name="sidebyside-environment"/>
+    <!-- The shared table support: rules, column types, and the       -->
+    <!-- "tabularbox" that the inherited "tabular" templates rely on  -->
+    <xsl:call-template name="tables"/>
     <xsl:text>\newcommand{\lt}{&lt;}&#xa;</xsl:text>
     <xsl:text>\newcommand{\gt}{&gt;}&#xa;</xsl:text>
     <xsl:text>\newcommand{\amp}{&amp;}&#xa;</xsl:text>
     <xsl:text>%% Begin: Semantic Macros&#xa;</xsl:text>
-    <xsl:text>\newcommand{\mono}[1]{\texttt{#1}}&#xa;</xsl:text>
+    <xsl:text>\newcommand{\ptxmono}[1]{\texttt{#1}}&#xa;</xsl:text>
     <xsl:variable name="one-line-reps" select="
         ($document-root//abbr)[1]|
         ($document-root//acro)[1]|
@@ -589,13 +508,15 @@ along with PreTeXt.  If not, see <http://www.gnu.org/licenses/>.
         <xsl:apply-templates select="." mode="tex-macro"/>
     </xsl:for-each>
     <xsl:if test="$document-root//alert">
-        <xsl:text>\newcommand{\alert}[1]{\textbf{\textit{#1}}}&#xa;</xsl:text>
+        <!-- Beamer has its own theme-aware, overlay-capable \alert, -->
+        <!-- so the PreTeXt semantic macro is realized through it    -->
+        <xsl:text>\newcommand{\ptxalert}[1]{\alert{#1}}&#xa;</xsl:text>
     </xsl:if>
     <xsl:if test="$document-root//term">
-        <xsl:text>\newcommand{\terminology}[1]{\textbf{#1}}&#xa;</xsl:text>
+        <xsl:text>\newcommand{\ptxterminology}[1]{\textbf{#1}}&#xa;</xsl:text>
     </xsl:if>
     <xsl:if test="$document-root//pubtitle">
-        <xsl:text>\newcommand{\pubtitle}[1]{\textsl{#1}}&#xa;</xsl:text>
+        <xsl:text>\newcommand{\ptxpubtitle}[1]{\textsl{#1}}&#xa;</xsl:text>
     </xsl:if>
     <xsl:if test="$document-root//fillin[not(parent::m or parent::me or parent::men or parent::mrow)]">
         <xsl:call-template name="fillin-text"/>
@@ -604,42 +525,18 @@ along with PreTeXt.  If not, see <http://www.gnu.org/licenses/>.
         <xsl:call-template name="fillin-math"/>
     </xsl:if>
     <xsl:if test="$document-root//swungdash">
-        <xsl:text>\newcommand{\swungdash}{\raisebox{-2.25ex}{\scalebox{2}{\~{}}}}&#xa;</xsl:text>
-    </xsl:if>
-    <xsl:if test="$document-root//quantity">
-        <xsl:text>%% Used for units and number formatting&#xa;</xsl:text>
-        <xsl:text>\usepackage[per-mode=fraction]{siunitx}&#xa;</xsl:text>
-        <xsl:text>\sisetup{inter-unit-product=\cdot}&#xa;</xsl:text>
-        <xsl:text>\ifxetex\sisetup{math-micro=\text{µ},text-micro=µ}\fi&#xa;</xsl:text>
-        <xsl:text>\ifluatex\sisetup{math-micro=\text{µ},text-micro=µ}\fi&#xa;</xsl:text>
-        <xsl:text>%% Common non-SI units&#xa;</xsl:text>
-        <xsl:for-each select="document('pretext-units.xsl')//base[@siunitx]">
-            <xsl:text>\DeclareSIUnit\</xsl:text>
-            <xsl:value-of select="@full" />
-            <xsl:text>{</xsl:text>
-            <xsl:choose>
-                <xsl:when test="@siunitx='none'">
-                    <xsl:value-of select="@short" />
-                </xsl:when>
-                <xsl:otherwise>
-                    <xsl:value-of select="@siunitx" />
-                </xsl:otherwise>
-            </xsl:choose>
-            <xsl:text>}&#xa;</xsl:text>
-        </xsl:for-each>
+        <xsl:text>\newcommand{\ptxswungdash}{\raisebox{-2.25ex}{\scalebox{2}{\~{}}}}&#xa;</xsl:text>
     </xsl:if>
+    <!-- The shared siunitx support for "quantity" -->
+    <xsl:call-template name="quantity-support"/>
     <xsl:if test="$document-root//case[@direction]">
         <xsl:text>%% Arrows for iff proofs, with trailing space&#xa;</xsl:text>
-        <xsl:text>\newcommand{\forwardimplication}{($\Rightarrow$)}&#xa;</xsl:text>
-        <xsl:text>\newcommand{\backwardimplication}{($\Leftarrow$)}&#xa;</xsl:text>
+        <xsl:text>\newcommand{\ptxforwardimplication}{($\Rightarrow$)}&#xa;</xsl:text>
+        <xsl:text>\newcommand{\ptxbackwardimplication}{($\Leftarrow$)}&#xa;</xsl:text>
     </xsl:if>
     <xsl:if test="$document-root//ol/li/title|$document-root//ul/li/title">
         <xsl:text>%% Style of a title on a list item, for ordered and unordered lists&#xa;</xsl:text>
-        <xsl:text>\newcommand{\lititle}[1]{{\slshape#1}}&#xa;</xsl:text>
-    </xsl:if>
-    <xsl:if test="$document-root//xref">
-        <xsl:text>%% Font for cross-reference numbers, a no-op on slides&#xa;</xsl:text>
-        <xsl:text>\newcommand{\xreffont}{}&#xa;</xsl:text>
+        <xsl:text>\newcommand{\ptxlititle}[1]{{\slshape#1}}&#xa;</xsl:text>
     </xsl:if>
     <xsl:text>%% End: Semantic Macros&#xa;</xsl:text>
     <xsl:if test="$latex.preamble.late != ''">