Assembly: add qrcodes for static representations of interactive programs

Author: ascholerChemeketa

xsl/pretext-assembly.xsl

@@ -2323,6 +2323,10 @@ along with PreTeXt.  If not, see <http://www.gnu.org/licenses/>.
     <xsl:value-of select="@assembly-id"/>
 </xsl:template>
 
+<xsl:template match="program[@interactive]" mode="assembly-id">
+    <xsl:value-of select="@assembly-id"/>
+</xsl:template>
+
 <xsl:template match="datafile" mode="assembly-id">
     <xsl:value-of select="@assembly-id"/>
 </xsl:template>
@@ -4089,6 +4093,12 @@ along with PreTeXt.  If not, see <http://www.gnu.org/licenses/>.
     <xsl:apply-templates select="@source" />
 </xsl:template>
 
+<!-- interactive programs need to point to page in book -->
+<xsl:template match="program[@interactive = 'codelens' or @interactive = 'activecode']" mode="static-url">
+    <xsl:value-of select="$baseurl"/>
+    <xsl:apply-templates select="." mode="containing-filename" />
+</xsl:template>
+
 <!-- The contents of a datafile may be encoded as text in an XML   -->
 <!-- file within the generated/datafile directory.  The filename   -->
 <!-- has this construction, even if we do not always consult it.   -->
@@ -4140,4 +4150,50 @@ along with PreTeXt.  If not, see <http://www.gnu.org/licenses/>.
     <xsl:variable name="interactive-url-file" select="concat($generated-directory-source,'qrcode/', @assembly-id, '-url.xml')"/>
     <xsl:value-of select="document($interactive-url-file, $original)/interactive-url/@url"/>
 </xsl:template>
+
+<xsl:template match="program[@interactive = 'codelens' or @interactive = 'activecode']" mode="representations">
+    <xsl:choose>
+        <xsl:when test="$exercise-style = 'static'">
+            <!-- first the static program -->
+            <xsl:copy>
+                <xsl:apply-templates select="node()|@*" mode="representations"/>
+            </xsl:copy>
+            <!-- then a qr assemblage if desired -->
+            <xsl:if test="$b-program-static-qrcodes">
+                <xsl:variable name="static-url">
+                    <xsl:apply-templates select="." mode="get-interactive-url-from-file"/>
+                </xsl:variable>
+                <sidebyside margins="0%" widths="70% 25%" valign="middle" halign="center">
+                    <paragraphs>
+                        <p pi:indent="no">
+                            <xsl:element name="pi:localize">
+                                <xsl:attribute name="string-id">program-interactive-available</xsl:attribute>
+                            </xsl:element>
+                        </p>
+                        <p pi:indent="no">
+                            <!-- Kill the automatic footnote    -->
+                            <url href="{$static-url}" visual="">
+                                <xsl:value-of select="$static-url"/>
+                            </url>
+                        </p>
+                    </paragraphs>
+                    <image>
+                        <xsl:attribute name="pi:generated">
+                            <xsl:text>qrcode/</xsl:text>
+                            <xsl:apply-templates select="." mode="assembly-id"/>
+                            <xsl:text>.png</xsl:text>
+                        </xsl:attribute>
+                    </image>
+                </sidebyside>
+            </xsl:if>
+        </xsl:when>
+        <xsl:when test="($exercise-style = 'dynamic')">
+            <!-- duplicate authored content for the non-static conversions -->
+            <xsl:copy>
+                <xsl:apply-templates select="node()|@*" mode="representations"/>
+            </xsl:copy>
+        </xsl:when>
+    </xsl:choose>
+</xsl:template>
+
 </xsl:stylesheet>

xsl/pretext-runestone-static.xsl

@@ -1350,6 +1350,9 @@ along with PreTeXt.  If not, see <http://www.gnu.org/licenses/>.
                 <xsl:copy-of select="program/node()"/>
             </xsl:element>
         </xsl:if>
+        <!-- bring up the program as part of the problem statement -->
+        <!-- copy via representations to get possible qrcode       -->
+        <xsl:apply-templates select="program" mode="representations"/>
     </statement>
     <xsl:copy-of select="hint"/>
     <xsl:copy-of select="answer"/>