Skip to content
GitLab
Commit bdc7457e authored by Mathias Goebel's avatar Mathias Goebel
Browse files

Merge branch 'release/4.5.0'

parents 735fbeba 1a73135f
Hide whitespace changes
Inline Side-by-side
build.properties
View file @ bdc7457e
project.name=http://textgrid.de/ns/SADE-fontane-develop
project.version=4.4.0
project.version=4.5.0
project.title=[Fontane] SADE
project.abbrev=SADE-fontane-develop
project.processorversion=4.7.0
......
controller.xql
View file @ bdc7457e
......@@ -82,7 +82,10 @@ else if (tokenize($exist:path, '/') = "get") then
serialize($doc/xhtml:body/xhtml:div/xhtml:div[not(@class="teixml")][not(@class="facs")])
=> replace("xhtml:", "")
case "facs.html" return
if ($alternative and $id="2128f") (: using one transformation for two renderings :)
if ($alternative and $id="2128f")
(: using one transformation for two renderings :)
(: TODO: use this for 18vm7 1r as well
TODO: we are replacing instead of traversing the images :)
then replace(serialize($doc//xhtml:div[@class="facs"]), "xhtml:", "")
=> replace("1671z", "16725")
else
......
modules/fontane/misc.xqm
View file @ bdc7457e
......@@ -582,7 +582,7 @@ if(request:get-parameter-names() = 'page')
let $page := if($page = '') then 'outer_front_cover' else $page
let $indexFile := doc('/db/sade-projects/textgrid/data/xml/xhtml/' || $uri || "/toc.xml" )
let $pageList2 := $indexFile//@data-page/string()
let $index2 := index-of($pageList2, $page)
let $index2 := (index-of($pageList2, $page))[1]
let $return :=
(
(
......
modules/fontane/transform.xqm
View file @ bdc7457e
......@@ -31,7 +31,7 @@ import module namespace config="http://textgrid.de/ns/SADE/config" at "../config
import module namespace index="https://fontane-nb.dariah.eu/indexapi" at "index-api.xqm";
import module namespace f-misc="http://fontane-nb.dariah.eu/ns/SADE/misc" at "misc.xqm";
declare variable $transfo:tooltipReplacementPattern := '\s$|,$|\.|\($|\)$|;| |\[\d+\]$|^Wohn⸗|^ſonder-|^\(|Landſchaften$|^Oelbil';
declare variable $transfo:tooltipReplacementPattern := '\s$|,$|\.|\($|\)$|;| |\[\d+\]$|^Wohn⸗|^ſonder-|^\(|Landſchaften$|^Oelbil|^Schwedens|Schwedens$';
declare variable $transfo:dataCollection := collection("/db/sade-projects/textgrid/data/xml/data");
......@@ -352,11 +352,16 @@ attribute class {
string($n/@type),
string($n/@subtype),
if (exists($n/preceding-sibling::tei:addSpan) and $n/preceding-sibling::tei:addSpan/substring-after(@spanTo, '#') = $n/following-sibling::tei:anchor/@xml:id ) then 'addSpan' else(),
if (exists($n/child::tei:mod[@seq])
and
$n/child::tei:mod[@seq]/substring-after(@spanTo, '#') = $n/following-sibling::tei:anchor/@xml:id
)
then 'mod-seq-' || string($n/child::tei:mod[@seq][substring-after(@spanTo, '#') = $n/following-sibling::tei:anchor/@xml:id]/@seq) else(),
(: mod sequence #1 :)
if (exists($n/child::tei:mod[@seq]) or exists($n/preceding-sibling::tei:mod[@seq]))
then
let $thisMod := ($n/child::tei:mod[@seq], $n/preceding-sibling::tei:mod[@seq])[1]
let $anchor := $n/root()//tei:anchor[@xml:id = $thisMod/substring-after(@spanTo, '#')]
return
if($thisMod << $anchor)
then 'mod-seq-' || $thisMod/@seq
else ()
else (),
if ($n/@type="illustration") then 'figure' else(),
transfo:segStyle($n),
if( $n/@type="illustration" and $n/parent::tei:line) then "verticalMiddel" else (),
......@@ -415,8 +420,8 @@ attribute style {
transfo:lineHeight($n),
(: look 4 TILE objects :)
if ($n/tei:seg/tei:rs/tei:figure[@xml:id] or $n/tei:figure[@xml:id]) then
let $id := string($n//tei:figure/@xml:id)
let $uri := string($n/ancestor::tei:TEI//tei:idno[@type="TextGrid"])
let $id := string($n/tei:figure/@xml:id)
let $uri := string($n/root()//tei:idno[@type="TextGrid"])
let $link := transfo:newestTBLELink($uri, $id)
let $shape := $link/substring-before(substring-after(@targets, '#'), ' ')
......@@ -664,11 +669,30 @@ as element(xhtml:span) {
else ()
)
}
else if($node//tei:add and not($node//tei:del))
then
element xhtml:div {
attribute class {
'modHover italic',
if($node/ancestor::tei:*/@rotate or $node/ancestor::tei:zone/preceding-sibling::tei:addSpan) then () else 'hoverTop'},
('Hinzufügung',
if( contains(string-join($node//@rend), 'caret') )
then 'mit Einweisungszeichen'
else
if($node/@next and $node/@next and contains(string-join($node/root()//tei:mod[@xml:id = substring-after($node/@next, "#")]//@rend), 'caret') )
then 'mit Einweisungszeichen'
else ()
)
}
else (),
if($node/tei:del[@rend eq "overwritten"])
then
(transfo:magic($node/tei:add),
transfo:magic($node/tei:del))
(
transfo:magic($node/node()[. << $node/tei:add[1]][. << $node/tei:del[1]]),
transfo:magic($node/tei:add),
transfo:magic($node/tei:del),
transfo:magic($node/node()[. >> $node/tei:add[last()]][. >> $node/tei:del[last()]])
)
else transfo:magic($node/node())
}
};
......@@ -763,7 +787,11 @@ if ($node/@place = ('above', 'below')) then (
then <xhtml:img src="/public/img/caret:looped-arc-pos-left.svg" width="140px" height="auto" style="left: -0.7cm; position: absolute;"/>
else (),
transfo:magic($node/node()),
if(not($node/ancestor::tei:mod) and not( $node/@copyOf ) and not( $node/tei:seg[@type="multiphrase"] ) ) then
if(
not($node/ancestor::tei:mod)
and not( $node/@copyOf )
and not( $node/tei:seg[@type="multiphrase"] or $node/ancestor::tei:seg[@type="multiphrase"] ) )
then
element xhtml:div {
attribute class {'addHover italic'},
'Hinzufügung',
......@@ -1100,7 +1128,7 @@ as element(xhtml:span)? {
element xhtml:span {
$ref/@xml:id ! attribute id { string(.) },
attribute class { 'ref' },
attribute data-ref { substring-after($ref/@target, '#') },
attribute data-ref { replace($ref/@target, '#', '') },
transfo:magic($ref/node()),
(: link :)
if( starts-with($ref/@target, '#xpath(//surface')
......@@ -1181,15 +1209,17 @@ let $directText :=
[not(parent::tei:add[@place = ('below', 'above')])]
[not(parent::tei:expan)]
[not(ancestor::tei:fw)]
[not(parent::tei:del)]
let $prvLineText :=
if(($n/preceding::text()
[not(./parent::tei:expan)]
[not(ancestor::tei:fw)]
[not(parent::tei:del)]
[./ancestor::tei:line = $n/ancestor::tei:line]
)[1]/parent::*/@prev)
(: TODO: mechanism for pre text from previous line is disabled. :)
then ($n/preceding::text()[not(parent::tei:expan)][not(ancestor::tei:fw)][1][ancestor::tei:zone/substring-after(@next, "#") = $n/ancestor::*[@xml:id]/@xml:id])
then ($n/preceding::text()[not(parent::tei:expan)][not(ancestor::tei:fw)][1][ancestor::tei:*/substring-after(@next, "#") = $n/ancestor::*[@xml:id]/@xml:id])
else ()
let $prvLineText :=
......@@ -1227,7 +1257,7 @@ let $text :=
($n/following::text()[not(parent::tei:expan)][not(ancestor::tei:del)][not(ancestor::tei:fw)][ancestor::tei:line][not(matches(., "^\s+$"))])
)
, ' ')[1]
else tokenize(string-join($n/following::text()[not(parent::tei:expan)][not(ancestor::tei:del)][not(ancestor::tei:fw)][ancestor::tei:line = $n/ancestor::tei:line]), ' |\.')[1]
else tokenize(string-join($n/following::text()[not(parent::tei:expan)][not(ancestor::tei:del)][not(ancestor::tei:fw)][ancestor::tei:line = $n/ancestor::tei:line]), ' |\.|,')[1]
return if($text = "(") then $text else replace( $text , $transfo:tooltipReplacementPattern, '' )
};
......@@ -1236,7 +1266,7 @@ declare function transfo:stamp($node as element(tei:stamp))
as element(xhtml:div) {
element xhtml:div {
attribute class {'stamp'},
switch ($node/string(.))
switch (string($node))
case 'FONTANE.'
return
<svg xmlns="http://www.w3.org/2000/svg" width="23mm" height="4mm" data-info="Stempel: FONTANE.">
......@@ -1288,6 +1318,10 @@ as element(xhtml:div) {
return
<img src="/public/img/stempel-berlin-w.png" width="100%" height="100%"/>
case "Königl.Königliches Polizei⸗Praesidium zu Berlin"
return
<img class="polizei-berlin" src="public/img/stamp-polizeipraesidium-berlin.svg" width="100%" height="100%"/>
default return
<svg xmlns="http://www.w3.org/2000/svg" width="23mm" height="3.5mm">
<g alignment-baseline="baseline">
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment