@pretextbook/pretext-html 0.18.0 → 0.18.1

package/assets/xsl/pretext-html.xsl

@@ -2300,7 +2300,8 @@ along with PreTeXt.  If not, see <http://www.gnu.org/licenses/>.
 </xsl:template>
 
 <!-- hN, type name, serial number, title (if exists) -->
-<!-- exercise (divisional, xref-content)      -->
+<!-- exercise (divisional, xref-content)             -->
+<!-- DISCUSSION-LIKE (when born)                     -->
 <xsl:template match="*" mode="heading-divisional-exercise-typed">
     <xsl:param name="heading-level"/>
     <xsl:apply-templates select="." mode="heading-generic">
@@ -4634,10 +4635,13 @@ along with PreTeXt.  If not, see <http://www.gnu.org/licenses/>.
     <xsl:text> discussion-like</xsl:text>
 </xsl:template>
 
-<!-- When born use this heading -->
+<!-- When born use this heading: the position alone, among the -->
+<!-- appendages of the parent, as in the LaTeX conversion, and -->
+<!-- as a SOLUTION-LIKE is headed.  A cross-reference, and the -->
+<!-- knowl it opens, carry the full number.                    -->
 <xsl:template match="&DISCUSSION-LIKE;" mode="heading-birth">
     <xsl:param name="heading-level"/>
-    <xsl:apply-templates select="." mode="heading-full">
+    <xsl:apply-templates select="." mode="heading-divisional-exercise-typed">
         <xsl:with-param name="heading-level" select="$heading-level"/>
     </xsl:apply-templates>
 </xsl:template>
@@ -6412,6 +6416,10 @@ along with PreTeXt.  If not, see <http://www.gnu.org/licenses/>.
             <xsl:text>%;</xsl:text>
         </xsl:attribute>
         <xsl:apply-templates select="." mode="image-inclusion"/>
+        <!-- possibly give a long description -->
+        <xsl:apply-templates select="." mode="description">
+            <xsl:with-param name="layout" select="$layout"/>
+        </xsl:apply-templates>
     </div>
 </xsl:template>
 
@@ -6429,6 +6437,8 @@ along with PreTeXt.  If not, see <http://www.gnu.org/licenses/>.
 <xsl:template match="image[&SBS-LAYOUT-FILTER;]">
     <div class="image-box">
         <xsl:apply-templates select="." mode="image-inclusion" />
+        <!-- possibly give a long description -->
+        <xsl:apply-templates select="." mode="description"/>
     </div>
 </xsl:template>
 
@@ -6480,8 +6490,6 @@ along with PreTeXt.  If not, see <http://www.gnu.org/licenses/>.
             <xsl:apply-templates select="." mode="archive">
                 <xsl:with-param name="base-pathname" select="$location"/>
             </xsl:apply-templates>
-            <!-- possibly give a long description -->
-            <xsl:apply-templates select="." mode="description"/>
         </xsl:when>
         <!-- with extension, just include it -->
         <xsl:otherwise>
@@ -6530,8 +6538,6 @@ along with PreTeXt.  If not, see <http://www.gnu.org/licenses/>.
                     </xsl:call-template>
                 </xsl:with-param>
             </xsl:apply-templates>
-            <!-- possibly give a long description -->
-            <xsl:apply-templates select="." mode="description"/>
         </xsl:otherwise>
     </xsl:choose>
 </xsl:template>
@@ -6599,8 +6605,6 @@ along with PreTeXt.  If not, see <http://www.gnu.org/licenses/>.
     <xsl:apply-templates select="." mode="archive">
         <xsl:with-param name="base-pathname" select="$base-pathname" />
     </xsl:apply-templates>
-    <!-- possibly give a long description -->
-    <xsl:apply-templates select="." mode="description"/>
 </xsl:template>
 
 <xsl:template match="image[sageplot]" mode="image-inclusion">
@@ -6634,8 +6638,6 @@ along with PreTeXt.  If not, see <http://www.gnu.org/licenses/>.
     <xsl:apply-templates select="." mode="archive">
         <xsl:with-param name="base-pathname" select="$base-pathname" />
     </xsl:apply-templates>
-    <!-- possibly give a long description -->
-    <xsl:apply-templates select="." mode="description"/>
 </xsl:template>
 
 <!-- Asymptote graphics language -->
@@ -6737,8 +6739,6 @@ along with PreTeXt.  If not, see <http://www.gnu.org/licenses/>.
         <a href="{$image-html-url}">Link to full-sized image</a>
       </div>
     </xsl:if>
-    <!-- possibly give a long description -->
-    <xsl:apply-templates select="." mode="description"/>
 </xsl:template>
 
 <!-- The infrastructure for an SVG or PNG image      -->
@@ -6900,7 +6900,12 @@ along with PreTeXt.  If not, see <http://www.gnu.org/licenses/>.
 </xsl:template>
 
 
+<!-- The "layout" parameter is the node-set of layout parameters an -->
+<!-- "image" template has already computed, passed along so that it -->
+<!-- is computed only once.  An "interactive" has no need of it.    -->
 <xsl:template match="image|interactive[@platform|@desmos|@calcplot3d|@circuitjs|@iframe]" mode="description">
+    <xsl:param name="layout" select="/.."/>
+
     <xsl:if test="description">
         <!-- @aria-live means screenreaders will make announcements -->
         <details class="image-description" aria-live="polite">
@@ -6913,12 +6918,67 @@ along with PreTeXt.  If not, see <http://www.gnu.org/licenses/>.
                 <xsl:attribute name="id">
                     <xsl:apply-templates select="." mode="describedby-id"/>
                 </xsl:attribute>
+                <xsl:apply-templates select="." mode="description-style">
+                    <xsl:with-param name="layout" select="$layout"/>
+                </xsl:apply-templates>
                 <xsl:apply-templates select="description"/>
             </div>
         </details>
     </xsl:if>
 </xsl:template>
 
+<!-- A revealed description spans 80% of the width available where   -->
+<!-- its image sits, however narrow the image.  An image's div is    -->
+<!-- only as wide as the image, and percentages for the description  -->
+<!-- are relative to that width, so we compute them here from the    -->
+<!-- image's layout (all percentages of the available width), which  -->
+<!-- arrives as the "layout" parameter.  The description is centered -->
+<!-- on the image, but kept within the available width, so an image  -->
+<!-- placed off-center by @margins does not push its description out -->
+<!-- of the text.                                                    -->
+<xsl:template match="image[not(&SBS-LAYOUT-FILTER;)]" mode="description-style">
+    <xsl:param name="layout" select="/.."/>
+
+    <xsl:variable name="width" select="number($layout/width)"/>
+    <xsl:variable name="left" select="number($layout/left-margin)"/>
+    <!-- left edge of the description, centered on the image -->
+    <xsl:variable name="centered" select="$left + $width div 2 - 40"/>
+    <!-- clamped to the range 0..20, so it ends within the available width -->
+    <xsl:variable name="start">
+        <xsl:choose>
+            <xsl:when test="$centered &lt; 0">
+                <xsl:value-of select="0"/>
+            </xsl:when>
+            <xsl:when test="$centered &gt; 20">
+                <xsl:value-of select="20"/>
+            </xsl:when>
+            <xsl:otherwise>
+                <xsl:value-of select="$centered"/>
+            </xsl:otherwise>
+        </xsl:choose>
+    </xsl:variable>
+    <xsl:if test="$width &gt; 0">
+        <xsl:attribute name="style">
+            <xsl:text>width: </xsl:text>
+            <xsl:value-of select="format-number(8000 div $width, '0.##')"/>
+            <xsl:text>%; margin-left: </xsl:text>
+            <xsl:value-of select="format-number(($start - $left) * 100 div $width, '0.##')"/>
+            <xsl:text>%;</xsl:text>
+        </xsl:attribute>
+    </xsl:if>
+</xsl:template>
+
+<!-- An interactive is centered in a container that spans the -->
+<!-- available width, so its description is simply centered   -->
+<xsl:template match="interactive[not(&SBS-LAYOUT-FILTER;)]" mode="description-style">
+    <xsl:attribute name="style">
+        <xsl:text>width: 80%; margin-left: 10%;</xsl:text>
+    </xsl:attribute>
+</xsl:template>
+
+<!-- In a panel of a "sidebyside" a description fills the panel -->
+<xsl:template match="image|interactive" mode="description-style"/>
+
 <!-- Utility template so "aria-describedby" values are consistent -->
 <xsl:template match="image|interactive[@platform|@desmos|@calcplot3d|@circuitjs|@iframe]" mode="describedby-id">
     <xsl:apply-templates select="." mode="unique-id"/>
@@ -7388,9 +7448,12 @@ along with PreTeXt.  If not, see <http://www.gnu.org/licenses/>.
                 <!-- we compute pixels in the parameter value, which become   -->
                 <!-- YT-specific attributes, so we can't use general template -->
                 <!-- providing standard attributes                            -->
+                <xsl:variable name="local-design-width">
+                    <xsl:apply-templates select="." mode="get-design-width"/>
+                </xsl:variable>
                 <xsl:apply-templates select="." mode="runestone-youtube-embed">
-                    <xsl:with-param name="width" select="($layout/width * $design-width) div 100"/>
-                    <xsl:with-param name="height" select="($layout/height * $design-width) div 100"/>
+                    <xsl:with-param name="width" select="($layout/width * $local-design-width) div 100"/>
+                    <xsl:with-param name="height" select="($layout/height * $local-design-width) div 100"/>
                 </xsl:apply-templates>
             </xsl:when>
             <xsl:otherwise>
@@ -8466,6 +8529,9 @@ along with PreTeXt.  If not, see <http://www.gnu.org/licenses/>.
             </xsl:attribute>
         </xsl:if>
         <xsl:if test="p">
+            <xsl:variable name="local-design-width">
+                <xsl:apply-templates select="." mode="get-design-width"/>
+            </xsl:variable>
             <xsl:attribute name="style">
                 <xsl:text>max-width:</xsl:text>
                 <xsl:choose>
@@ -8475,14 +8541,14 @@ along with PreTeXt.  If not, see <http://www.gnu.org/licenses/>.
                                 <xsl:with-param name="percentage" select="$left-col/@width" />
                             </xsl:call-template>
                         </xsl:variable>
-                        <xsl:value-of select="$design-width * substring-before($width, '%') div 100 * substring-before($ambient-relative-width, '%') div 100" />
+                        <xsl:value-of select="$local-design-width * substring-before($width, '%') div 100 * substring-before($ambient-relative-width, '%') div 100" />
                         <xsl:text>px;</xsl:text>
                     </xsl:when>
                     <!-- If there is no $left-col/@width, silently use 20% as default -->
                     <!-- We get some ill-formed WW exercises here, so a less-precise  -->
                     <!-- warning is given on the author's source.                     -->
                     <xsl:otherwise>
-                        <xsl:value-of select="$design-width * 0.2 * substring-before($ambient-relative-width, '%') div 100" />
+                        <xsl:value-of select="$local-design-width * 0.2 * substring-before($ambient-relative-width, '%') div 100" />
                     </xsl:otherwise>
                 </xsl:choose>
             </xsl:attribute>
@@ -11241,8 +11307,11 @@ along with PreTeXt.  If not, see <http://www.gnu.org/licenses/>.
         </xsl:apply-templates>
     </xsl:variable>
     <!-- these are now standardized templates -->
-    <xsl:variable name="width"  select="$design-width * $width-fraction" />
-    <xsl:variable name="height" select="$design-width * $width-fraction div $aspect-ratio" />
+    <xsl:variable name="local-design-width">
+        <xsl:apply-templates select="." mode="get-design-width" />
+    </xsl:variable>
+    <xsl:variable name="width"  select="$local-design-width * $width-fraction" />
+    <xsl:variable name="height" select="$local-design-width * $width-fraction div $aspect-ratio" />
     <!-- the div to hold the JSX output -->
     <xsl:element name="div">
         <xsl:attribute name="id">
@@ -11519,7 +11588,10 @@ along with PreTeXt.  If not, see <http://www.gnu.org/licenses/>.
     </xsl:variable>
     <!-- build the iframe -->
     <!-- mimicking Mike Gage's blog post -->
-    <iframe name="{concat(@assembly-id, '-ww-inner')}" width="{$design-width}" src="{$the-url}" data-seed="{static/@seed}"/>
+    <xsl:variable name="local-design-width">
+        <xsl:apply-templates select="." mode="get-design-width"/>
+    </xsl:variable>
+    <iframe name="{concat(@assembly-id, '-ww-inner')}" width="{$local-design-width}" src="{$the-url}" data-seed="{static/@seed}"/>
     <script>
         <xsl:text>iFrameResize({log:true,inPageLinks:true,resizeFrom:'child',checkOrigin:["</xsl:text>
         <xsl:value-of select="$webwork-server" />

package/assets/xsl/pretext-jupyter.xsl

@@ -64,6 +64,9 @@ along with PreTeXt.  If not, see <http://www.gnu.org/licenses/>.
 <!-- Disable clipboardable -->
 <xsl:template name="insert-clipboardable-class"/>
 
+<!-- HTML sets based on theme. Jupyter should always use the same value -->
+<xsl:variable name="design-width" select="'600'" />
+
 <!-- ############## -->
 <!-- Entry Template -->
 <!-- ############## -->

package/assets/xsl/pretext-latex-common.xsl

@@ -8664,8 +8664,12 @@ along with PreTeXt.  If not, see <http://www.gnu.org/licenses/>.
 <!-- and a serial number from the enumitem package on the lists -->
 <!-- We compose the two LaTeX \ref{}                            -->
 <xsl:template match="task" mode="xref-number">
+    <xsl:param name="xref" select="/.." />
+
     <!-- ancestors, strip tasks, get number of next enclosure -->
-    <xsl:apply-templates select="ancestor::*[not(self::task)][1]" mode="xref-number" />
+    <xsl:apply-templates select="ancestor::*[not(self::task)][1]" mode="xref-number">
+        <xsl:with-param name="xref" select="$xref" />
+    </xsl:apply-templates>
     <xsl:text>.</xsl:text>
     <!-- task always gets a number, but we have to avoid recursion -->
     <!-- that would result by just getting a \ref from xref-number -->
@@ -8825,6 +8829,21 @@ along with PreTeXt.  If not, see <http://www.gnu.org/licenses/>.
     </xsl:choose>
 </xsl:template>
 
+<!-- A number the common routines compute as text (a serial number, or -->
+<!-- a full number shortened by a hybrid style) gets the same font as  -->
+<!-- the numbers made just above, so a style that redefines \xreffont  -->
+<!-- reaches every number in a cross-reference.  An empty number stays -->
+<!-- empty, since callers test for one.                                -->
+<xsl:template name="xref-number-text">
+    <xsl:param name="number"/>
+
+    <xsl:if test="not($number = '')">
+        <xsl:text>{\xreffont </xsl:text>
+        <xsl:value-of select="$number"/>
+        <xsl:text>}</xsl:text>
+    </xsl:if>
+</xsl:template>
+
 <!-- This template actually manufactures the link.  When the link lives in  -->
 <!-- a title, the link text is just reproduced.  If the number is hard-     -->
 <!-- coded, fine.  If the number is obtained by a \ref, we use the starred  -->

package/assets/xsl/pretext-numbers.xsl

@@ -771,8 +771,10 @@ along with PreTeXt.  If not, see <http://www.gnu.org/licenses/>.
 </xsl:template>
 
 <!-- Structure Numbers: Lists -->
-<!-- Lists occur in paragraphs (anonymously), in "list"      -->
-<!-- blocks (numbered), and within exercises (numbered).     -->
+<!-- Lists occur in paragraphs (anonymously) and in "list"   -->
+<!-- blocks (numbered).  A list anywhere else, inside an     -->
+<!-- exercise or a task, say, is anonymous: an item takes    -->
+<!-- its number from the nesting of its lists alone.         -->
 <!-- Typically we are interested in list items (only),       -->
 <!-- since that is where there is content.  And then we      -->
 <!-- are only interested in the list items within an ordered -->
@@ -785,10 +787,6 @@ along with PreTeXt.  If not, see <http://www.gnu.org/licenses/>.
     <xsl:apply-templates select="ancestor::list" mode="number" />
 </xsl:template>
 
-<xsl:template match="exercise//li" mode="structure-number">
-    <xsl:apply-templates select="ancestor::exercise" mode="number" />
-</xsl:template>
-
 <!-- Structure Numbers: Tasks (in projects) -->
 <!-- A task gets it structure number from the parent project-like -->
 <xsl:template match="task" mode="structure-number">
@@ -840,9 +838,8 @@ along with PreTeXt.  If not, see <http://www.gnu.org/licenses/>.
 
 <!-- Now trivial, the container structure plus the serial.  -->
 <!-- We condition on empty serial number in order to create -->
-<!-- empty full numbers.  This is where we add separator,   -->
-<!-- normally a period, but for a list item within a named  -->
-<!-- list, we use a colon (a double period?).               -->
+<!-- empty full numbers.  The separator between the two is  -->
+<!-- supplied by the next template.                         -->
 <xsl:template match="*" mode="number">
     <xsl:variable name="serial">
         <xsl:apply-templates select="." mode="serial-number" />
@@ -855,27 +852,37 @@ along with PreTeXt.  If not, see <http://www.gnu.org/licenses/>.
             </xsl:variable>
             <xsl:if test="not($structure='')">
                 <xsl:value-of select="$structure" />
-                <xsl:choose>
-                    <xsl:when test="self::li and ancestor::list">
-                        <xsl:text>:</xsl:text>
-                    </xsl:when>
-                    <!-- A figure-like inside a sidebyside (or       -->
-                    <!-- sbsgroup) inside a figure, or a figure in   -->
-                    <!-- a stack inside a figure, is subnumbered     -->
-                    <!-- with a letter like "(a)", so the serial     -->
-                    <!-- number already carries its own delimiter    -->
-                    <!-- and no period separator is needed.          -->
-                    <xsl:when test="(&FIGURE-FILTER;) and (parent::sidebyside/parent::figure or parent::sidebyside/parent::sbsgroup/parent::figure or self::figure[parent::stack/parent::figure])"/>
-                    <xsl:otherwise>
-                        <xsl:text>.</xsl:text>
-                    </xsl:otherwise>
-                </xsl:choose>
+                <xsl:apply-templates select="." mode="structure-serial-separator" />
             </xsl:if>
             <xsl:value-of select="$serial" />
         </xsl:otherwise>
     </xsl:choose>
 </xsl:template>
 
+<!-- The separator between a structure number and a serial    -->
+<!-- number is normally a period, but for a list item within  -->
+<!-- a named list, we use a colon (a double period?).  A      -->
+<!-- cross-reference that shortens a full number employs this -->
+<!-- same separator, so the shorter number is always the      -->
+<!-- final portion of the full number.                        -->
+<xsl:template match="*" mode="structure-serial-separator">
+    <xsl:choose>
+        <xsl:when test="self::li and ancestor::list">
+            <xsl:text>:</xsl:text>
+        </xsl:when>
+        <!-- A figure-like inside a sidebyside (or       -->
+        <!-- sbsgroup) inside a figure, or a figure in   -->
+        <!-- a stack inside a figure, is subnumbered     -->
+        <!-- with a letter like "(a)", so the serial     -->
+        <!-- number already carries its own delimiter    -->
+        <!-- and no period separator is needed.          -->
+        <xsl:when test="(&FIGURE-FILTER;) and (parent::sidebyside/parent::figure or parent::sidebyside/parent::sbsgroup/parent::figure or self::figure[parent::stack/parent::figure])"/>
+        <xsl:otherwise>
+            <xsl:text>.</xsl:text>
+        </xsl:otherwise>
+    </xsl:choose>
+</xsl:template>
+
 <!-- ##### Division serial numbers ##### -->
 <!-- ############## -->
 <!-- Serial Numbers -->

package/assets/xsl/pretext-revealjs.xsl

@@ -103,6 +103,9 @@ along with PreTeXt.  If not, see <http://www.gnu.org/licenses/>.
 <!-- HTML5 format -->
 <xsl:output method="html" indent="yes" encoding="UTF-8" doctype-system="about:legacy-compat"/>
 
+<!-- HTML sets based on theme. Reveal.js should always use the same value -->
+<xsl:variable name="design-width" select="'600'" />
+
 <!-- Publisher Switches -->
 <!-- Various configuration options are set in the publisher file,  -->
 <!-- which is analyzed by its own stylesheet, which is imported in -->
@@ -853,8 +856,6 @@ along with PreTeXt.  If not, see <http://www.gnu.org/licenses/>.
             <xsl:apply-templates select="." mode="archive">
                 <xsl:with-param name="base-pathname" select="$base-pathname"/>
             </xsl:apply-templates>
-            <!-- possibly give a long description -->
-            <xsl:apply-templates select="." mode="description"/>
         </xsl:when>
         <!-- online: the diagcess embedding, inherited -->
         <xsl:otherwise>

package/assets/xsl/pretext-runestone.xsl

@@ -165,6 +165,9 @@ along with PreTeXt.  If not, see <http://www.gnu.org/licenses/>.
                 <!-- no .proxyuri_runs -->
                 <!-- no .proxyuri_files -->
                 <!-- no .enable_chatcodes -->
+
+                <!-- Inject a marker that RS will use to place eBookConfig values -->
+                <xsl:value-of select="$rso"/><xsl:text> ebook_config_override | safe </xsl:text><xsl:value-of select="$rsc"/><xsl:text>&#xa;</xsl:text>
             </script>
             <xsl:text>&#xa;</xsl:text>
 
@@ -324,6 +327,113 @@ along with PreTeXt.  If not, see <http://www.gnu.org/licenses/>.
     </xsl:if>
 </xsl:template>
 
+<!-- When hosted on Runestone, an interactive exercise is tracked in a    -->
+<!-- database across courses ("base course") and semesters ("time").      -->
+<!-- And the HTML representation of an interactive exercise, when powered -->
+<!-- by Runestone services, needs an HTML id.  But the PreTeXt "exercise" -->
+<!-- that wraps it has its own HTML id necessary for targets of           -->
+<!-- cross-reference (in-context) URLs.  We will prefer @label for the    -->
+<!-- PreTeXt "exercise" HTML id.  And we will require a *stable* @label   -->
+<!-- from an author, which we will dress up here.  Notice that this can   -->
+<!-- change when an author declares a new edition.                        -->
+<!-- The "runestone-division-id" template, nearby, is the companion of    -->
+<!-- this one, for a chapter or subchapter recorded in the manifest.  An  -->
+<!-- author meets the two as a single requirement: a @label wherever a    -->
+<!-- Runestone server needs a lasting identifier.  So the conditions      -->
+<!-- tested, and the severity and advice of each message, agree between   -->
+<!-- the two.  Change one, then examine the other.                        -->
+<xsl:template match="exercise|program|datafile|query|&PROJECT-LIKE;|task|video[@youtube]|exercises|worksheet|interactive[@platform = 'doenetml']|interactive[@iframe]" mode="runestone-id">
+    <!-- With no @xml:id and no @label we realize the author has not given       -->
+    <!-- any thought to a (semi-)peersistent identifire for the Runestone        -->
+    <!-- database.  So we call that out as an error.  And we do not even         -->
+    <!-- attempt to fallback to an automatically generated string, which         -->
+    <!-- would be malleable over time and editing.                               -->
+    <!-- As part of backwards-compatibility, we copy old @xml:id values into     -->
+    <!-- fresh @label.  But have an internal  @pi:authored-label attribute whose -->
+    <!-- absence alerts us to the copying, which is now not best practice.       -->
+    <!-- These messages were disabled 2024-02-20 as unreliable.  The cause       -->
+    <!-- was a pointer to another component resolving against the authored       -->
+    <!-- source, where the @pi:authored-label stamp does not exist; that is      -->
+    <!-- repaired, so the messages return.  A plain static code listing is       -->
+    <!-- the one element reaching here that legitimately has no database         -->
+    <!-- identity and needs none, so it is exempt.                               -->
+    <xsl:choose>
+        <xsl:when test="self::program and not(@interactive = 'activecode' or @interactive = 'codelens')"/>
+        <xsl:when test="$b-host-runestone and not(@xml:id) and not(@pi:authored-label)">
+            <xsl:message>
+                <xsl:text>PTX:ERROR:  While building for a Runestone server, a PreTeXt "</xsl:text>
+                <xsl:value-of select="local-name(.)"/>
+                <xsl:text>" element&#xa;</xsl:text>
+                <xsl:text>has been encountered without a @label attribute and without a @xml:id attribute.&#xa;</xsl:text>
+                <xsl:text>This will cause this Runestone component to fail to perform and there will be no&#xa;</xsl:text>
+                <xsl:text>identification of this component in the Runestone database.  You must add a&#xa;</xsl:text>
+                <xsl:text>@label attribute with a unique value.  (It is not necessary to add a @xml:id, &#xa;</xsl:text>
+                <xsl:text>it is consulted as part of a backward-compatibility arrangement you do not need).&#xa;</xsl:text>
+                <xsl:text>[You may get more than one message about this instance.]&#xa;</xsl:text>
+            </xsl:message>
+            <xsl:apply-templates select="." mode="location-report"/>
+        </xsl:when>
+        <xsl:when test="$b-host-runestone and not(@pi:authored-label)">
+            <xsl:message>
+                <xsl:text>PTX:FALLBACK:  While building for a Runestone server, a PreTeXt "</xsl:text>
+                <xsl:value-of select="local-name(.)"/>
+                <xsl:text>" element&#xa;</xsl:text>
+                <xsl:text>has been encountered without a @label attribute.  For reasons of backward-compatibility &#xa;</xsl:text>
+                <xsl:text>we have used the value of an @xml:id.  This may not be what you want, and as of 2024-02-15 &#xa;</xsl:text>
+                <xsl:text>is no longer best practice.  You can copy the @xml:id value exactly into a new @label &#xa;</xsl:text>
+                <xsl:text>attribute and this message will stop AND your project's entries in any Runestone database &#xa;</xsl:text>
+                <xsl:text>will be preserved and function exactly as before.&#xa;</xsl:text>
+                <xsl:text>[You may get more than one message about this instance.]&#xa;</xsl:text>
+            </xsl:message>
+            <xsl:apply-templates select="." mode="location-report"/>
+        </xsl:when>
+    </xsl:choose>
+    <!-- We require a @label attribute, but allow it to be -->
+    <!-- the result of an automatic copy from an @xml:id.  -->
+    <xsl:variable name="label">
+        <xsl:value-of select="@label"/>
+    </xsl:variable>
+    <xsl:if test="$label != ''">
+        <xsl:call-template name="runestone-label-prefix"/>
+        <xsl:value-of select="$label"/>
+    </xsl:if>
+</xsl:template>
+
+<!-- Special handling for programs in exercise-like elements.              -->
+<!-- We want to associate those programs with the label on their container -->
+<!-- and NOT with an auto-generated label on the program itself that might -->
+<!-- come from an @xml:id.                                                 -->
+<!-- This is an implicit use of &PROJECT-LIKE; and should be kept in sync  -->
+<xsl:template match="exercise/program|task/program|project/program|activity/program|exploration/program|investigation/program" mode="runestone-id">
+    <xsl:variable name="label">
+        <xsl:value-of select="../@label"/>
+    </xsl:variable>
+    <xsl:if test="$label != ''">
+        <xsl:call-template name="runestone-label-prefix"/>
+        <xsl:value-of select="$label"/>
+    </xsl:if>
+</xsl:template>
+
+<!-- Prefix just for RS-server builds, in order that the database -->
+<!-- of exercises gets a globally unique identifier.              -->
+<!-- And for a non-RS-server build, we add a prefix in order to   -->
+<!-- differentiate from nearby (wrappers) uses of @label for      -->
+<!-- PreTeXt functions.                                           -->
+<xsl:template name="runestone-label-prefix">
+    <xsl:choose>
+        <xsl:when test="$b-host-runestone">
+            <!-- global variables defined in the -common stylesheet -->
+            <xsl:value-of select="$document-id"/>
+            <xsl:text>_</xsl:text>
+            <xsl:value-of select="$edition"/>
+            <xsl:text>_</xsl:text>
+        </xsl:when>
+        <xsl:otherwise>
+            <xsl:text>rs-</xsl:text>
+        </xsl:otherwise>
+    </xsl:choose>
+</xsl:template>
+
 <!-- A convenience for attaching a Runestone id -->
 <!-- NB: we attempt to only use this template in this stylesheet. -->
 <!-- To enforce this, we *could* make a no-op, plus warning,      -->
@@ -340,6 +450,55 @@ along with PreTeXt.  If not, see <http://www.gnu.org/licenses/>.
     </xsl:if>
 </xsl:template>
 
+<!-- Runestone stores chapter and subchapter IDs for each edition.  An ID    -->
+<!-- built from ancestor IDs and sibling positions can change with edits.    -->
+<!-- The "runestone-id" template, nearby, is the companion of this one, for  -->
+<!-- a component.  An author meets the two as a single requirement: a        -->
+<!-- @label wherever a Runestone server needs a lasting identifier.  So the  -->
+<!-- conditions tested, and the severity and advice of each message, agree   -->
+<!-- between the two: an error with neither a @label nor an @xml:id, and a   -->
+<!-- fallback when an @xml:id stands in for a @label.  Change one, then      -->
+<!-- examine the other.  The manifest is built only for a Runestone server,  -->
+<!-- so the host is not tested again here.                                   -->
+<xsl:template match="*" mode="runestone-division-id">
+    <xsl:variable name="manifest-id">
+        <xsl:apply-templates select="." mode="html-id"/>
+    </xsl:variable>
+    <xsl:choose>
+        <xsl:when test="not(@xml:id) and not(@pi:authored-label)">
+            <xsl:message>
+                <xsl:text>PTX:ERROR:  While building for a Runestone server, a PreTeXt "</xsl:text>
+                <xsl:value-of select="local-name(.)"/>
+                <xsl:text>" element&#xa;</xsl:text>
+                <xsl:text>has been encountered without a @label attribute and without a @xml:id attribute.&#xa;</xsl:text>
+                <xsl:text>Runestone records this division as a chapter or subchapter, under an ID that must&#xa;</xsl:text>
+                <xsl:text>not change during the life of an edition.  The ID in use now, "</xsl:text>
+                <xsl:value-of select="$manifest-id"/>
+                <xsl:text>", was generated&#xa;</xsl:text>
+                <xsl:text>from the document structure and may change when the document is edited.  For an&#xa;</xsl:text>
+                <xsl:text>established book, add a @label attribute with this value to keep the present ID.&#xa;</xsl:text>
+                <xsl:text>For a new book, or a new edition, add a meaningful @label attribute.&#xa;</xsl:text>
+            </xsl:message>
+            <xsl:apply-templates select="." mode="location-report"/>
+        </xsl:when>
+        <xsl:when test="not(@pi:authored-label)">
+            <xsl:message>
+                <xsl:text>PTX:FALLBACK:  While building for a Runestone server, a PreTeXt "</xsl:text>
+                <xsl:value-of select="local-name(.)"/>
+                <xsl:text>" element&#xa;</xsl:text>
+                <xsl:text>has been encountered without a @label attribute.  Runestone records this division&#xa;</xsl:text>
+                <xsl:text>as a chapter or subchapter, and we have used the value of an @xml:id as its ID.&#xa;</xsl:text>
+                <xsl:text>You can copy the @xml:id value exactly into a new @label attribute and this message&#xa;</xsl:text>
+                <xsl:text>will stop, with the ID unchanged.&#xa;</xsl:text>
+            </xsl:message>
+            <xsl:apply-templates select="." mode="location-report"/>
+        </xsl:when>
+    </xsl:choose>
+    <id>
+        <xsl:value-of select="$manifest-id"/>
+    </id>
+</xsl:template>
+
 <!-- ############### -->
 <!-- Runestone Hooks -->
 <!-- ############### -->
@@ -553,9 +712,7 @@ along with PreTeXt.  If not, see <http://www.gnu.org/licenses/>.
                     <!-- Now recurse into sections, appendix  -->
                     <!-- with a faux chapter, using "article" -->
                     <chapter>
-                        <id>
-                            <xsl:apply-templates select="." mode="html-id"/>
-                        </id>
+                        <xsl:apply-templates select="." mode="runestone-division-id"/>
                         <title>
                             <xsl:apply-templates select="." mode="title-full"/>
                         </title>
@@ -575,9 +732,7 @@ along with PreTeXt.  If not, see <http://www.gnu.org/licenses/>.
 
 <xsl:template match="chapter" mode="runestone-manifest">
     <chapter>
-        <id>
-            <xsl:apply-templates select="." mode="html-id"/>
-        </id>
+        <xsl:apply-templates select="." mode="runestone-division-id"/>
         <title>
             <xsl:apply-templates select="." mode="title-full"/>
         </title>
@@ -641,9 +796,7 @@ along with PreTeXt.  If not, see <http://www.gnu.org/licenses/>.
 
 <!-- Properties to report for each division -->
 <xsl:template match="*" mode="runestone-division-properties">
-    <id>
-        <xsl:apply-templates select="." mode="html-id"/>
-    </id>
+    <xsl:apply-templates select="." mode="runestone-division-id"/>
     <title>
         <xsl:apply-templates select="." mode="title-full"/>
     </title>

package/assets/xsl/publisher-variables.xsl

@@ -1820,7 +1820,16 @@ along with PreTeXt.  If not, see <http://www.gnu.org/licenses/>.
             <xsl:apply-templates select="$publisher-attribute-options/html/pi:pub-attribute[@name='design-width']" mode="set-pubfile-variable"/>
         </xsl:when>
         <xsl:otherwise>
-            <xsl:value-of select="'600'"/>
+            <xsl:choose>
+                <!-- Select the default design width based on the theme        -->
+                <!-- Should match the content-width of the corresponding theme -->
+                <xsl:when test="$html-theme-name = 'salem'">
+                    <xsl:text>725</xsl:text>
+                </xsl:when>
+                <xsl:otherwise>
+                    <xsl:text>600</xsl:text>
+                </xsl:otherwise>
+            </xsl:choose>
         </xsl:otherwise>
     </xsl:choose>
 </xsl:variable>