Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

CLP-11811 copy cell properties from table styles #71

Merged
merged 3 commits into from
Jul 1, 2024
Merged

CLP-11811 copy cell properties from table styles #71

Changes from all commits
Commits
Show all changes
3 commits
Select commit Hold shift + click to select a range
b1eb353
copy cell properties from table styles
jurisdatum Jul 1, 2024
541e62f
name functions in comments
jurisdatum Jul 1, 2024
4217d1b
Merge branch 'main' into fix/cell-borders-from-table-styles
jurisdatum Jul 1, 2024
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
65 changes: 53 additions & 12 deletions src/main/ml-modules/root/judgments/xslts/accessible-html.xsl
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -331,10 +331,20 @@
<xsl:sequence select="key('class-properties', $key, $all-classes-parsed)/string()" />
</xsl:function>

<!-- returns a sequence of key/value pairs, each divided by a colon -->
<xsl:function name="uk:get-all-class-properties" as="xs:string*">
<xsl:param name="context" as="element()" />
<xsl:param name="selector" as="xs:string" /> <!-- constructed with 'augment-simple-class-selector' function below -->
<xsl:variable name="key" select="concat(generate-id($context), '|', $selector)" />
<xsl:for-each select="key('classes', $key, $all-classes-parsed)/uk:property">
<xsl:sequence select="concat(@key, ':', @value)" />
</xsl:for-each>
</xsl:function>

<!-- returns a sequence of key/value pairs, each divided by a colon -->
<xsl:function name="uk:get-inline-class-properties-1" as="xs:string*">
<xsl:param name="context" as="element()" />
<xsl:param name="selector" as="xs:string" />
<xsl:param name="selector" as="xs:string" /> <!-- constructed with 'make-class-selector' function below -->
<xsl:variable name="key" select="concat(generate-id($context), '|', $selector)" />
<xsl:for-each select="key('classes', $key, $all-classes-parsed)/uk:property">
<xsl:if test="string(@key) = $inline-properties">
Expand All @@ -345,29 +355,40 @@

<!-- helper functions to make selectors, depending on context -->

<xsl:function name="uk:make-class-selector" as="xs:string?">
<!-- adds a prefix to class selector, e.g., #judgment, #main, etc., depending on context -->
<xsl:function name="uk:augment-simple-class-selector" as="xs:string">
<xsl:param name="context" as="element()" />
<xsl:param name="e" as="element()" />
<xsl:param name="class" as="xs:string" /> <!-- starts with a dot -->
<xsl:choose>
<xsl:when test="empty($e/@class)" />
<xsl:when test="$doc-id = 'ewhc/ch/2022/1178'">
<xsl:sequence select="uk:make-class-selector-for-ewhc-ch-2022-1178($context, $e)" />
</xsl:when>
<!-- the selector for main styles in a judgment is '#judgment .{ClassName}', e.g., '#judgment .ParaLevel1' -->
<xsl:when test="$context/self::judgment">
<xsl:sequence select="concat('#judgment .', $e/@class)" />
<xsl:sequence select="concat('#judgment ', $class)" />
</xsl:when>
<!-- the selector for main styles in a press summary is '#main .{ClassName}', e.g., '#main .ParaLevel1' -->
<xsl:when test="$context/self::doc[@name='pressSummary']">
<xsl:sequence select="concat('#main .', $e/@class)" />
<xsl:sequence select="concat('#main ', $class)" />
</xsl:when>
<!-- the selector for attachment styles is '#{type}{num} .{ClassName}', e.g., '#order1 .ParaLevel1' -->
<xsl:otherwise>
<xsl:variable name="work-uri" as="xs:string" select="$context/meta/identification/FRBRWork/FRBRthis/@value" />
<xsl:variable name="uri-components" as="xs:string*" select="tokenize($work-uri, '/')" />
<xsl:variable name="last-two" as="xs:string*" select="$uri-components[position() >= last()-1]" />
<xsl:variable name="last-two-combined" as="xs:string" select="string-join($last-two, '')" />
<xsl:sequence select="concat('#', $last-two-combined, ' .', $e/@class)" />
<xsl:sequence select="concat('#', $last-two-combined, ' ', $class)" />
</xsl:otherwise>
</xsl:choose>
</xsl:function>

<xsl:function name="uk:make-class-selector" as="xs:string?">
<xsl:param name="context" as="element()" />
<xsl:param name="e" as="element()" />
<xsl:choose>
<xsl:when test="empty($e/@class)" />
<xsl:when test="$doc-id = 'ewhc/ch/2022/1178'">
<xsl:sequence select="uk:make-class-selector-for-ewhc-ch-2022-1178($context, $e)" />
</xsl:when>
<xsl:otherwise>
<xsl:sequence select="uk:augment-simple-class-selector($context, concat('.', $e/@class))" />
</xsl:otherwise>
</xsl:choose>
</xsl:function>
Expand Down Expand Up @@ -743,18 +764,38 @@
<xsl:variable name="header-rows" as="element()*" select="*[child::th]" />
<xsl:if test="exists($header-rows)">
<thead>
<xsl:apply-templates select="$header-rows" />
<xsl:apply-templates select="$header-rows">
<xsl:with-param name="table-class" as="xs:string?" select="@class" tunnel="yes" />
</xsl:apply-templates>
</thead>
</xsl:if>
<tbody>
<xsl:apply-templates select="* except $header-rows" />
<xsl:apply-templates select="* except $header-rows">
<xsl:with-param name="table-class" as="xs:string?" select="@class" tunnel="yes" />
</xsl:apply-templates>
</tbody>
</table>
</xsl:template>

<xsl:template match="tr | th | td">
<xsl:param name="class-context" as="element()" tunnel="yes" />
<xsl:param name="table-class" as="xs:string?" tunnel="yes" />
<xsl:element name="{ local-name() }">
<xsl:copy-of select="@*" />
<xsl:if test="$table-class">
<xsl:variable name="selector" as="xs:string" select="concat('.', $table-class, ' ', local-name(.))" /> <!-- e.g., '.TableClass1 td' -->
<xsl:variable name="selector" as="xs:string" select="uk:augment-simple-class-selector($class-context, $selector)" /> <!-- e.g., '#judgment .TableClass1 td' -->
<xsl:variable name="table-class-properties" select="uk:get-all-class-properties($class-context, $selector)" />
<xsl:if test="exists($table-class-properties)">
<xsl:attribute name="style">
<xsl:value-of select="string-join($table-class-properties, ';')" />
<xsl:if test="exists(@style)">
<xsl:value-of select="';'" />
<xsl:value-of select="concat(';', @style)" />
</xsl:if>
</xsl:attribute>
</xsl:if>
</xsl:if>
<xsl:apply-templates />
</xsl:element>
</xsl:template>
Expand Down
Loading