Dear Gitlab users, due to maintenance reasons, Gitlab will not be available on Thursday 30.09.2021 from 5:00 pm to approximately 5:30 pm.

Commit bdc7457e authored by Mathias Goebel's avatar Mathias Goebel 🎠
Browse files

Merge branch 'release/4.5.0'

parents 735fbeba 1a73135f
project.name=http://textgrid.de/ns/SADE-fontane-develop project.name=http://textgrid.de/ns/SADE-fontane-develop
project.version=4.4.0 project.version=4.5.0
project.title=[Fontane] SADE project.title=[Fontane] SADE
project.abbrev=SADE-fontane-develop project.abbrev=SADE-fontane-develop
project.processorversion=4.7.0 project.processorversion=4.7.0
......
...@@ -82,7 +82,10 @@ else if (tokenize($exist:path, '/') = "get") then ...@@ -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")]) serialize($doc/xhtml:body/xhtml:div/xhtml:div[not(@class="teixml")][not(@class="facs")])
=> replace("xhtml:", "") => replace("xhtml:", "")
case "facs.html" return 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:", "") then replace(serialize($doc//xhtml:div[@class="facs"]), "xhtml:", "")
=> replace("1671z", "16725") => replace("1671z", "16725")
else else
......
...@@ -582,7 +582,7 @@ if(request:get-parameter-names() = 'page') ...@@ -582,7 +582,7 @@ if(request:get-parameter-names() = 'page')
let $page := if($page = '') then 'outer_front_cover' else $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 $indexFile := doc('/db/sade-projects/textgrid/data/xml/xhtml/' || $uri || "/toc.xml" )
let $pageList2 := $indexFile//@data-page/string() let $pageList2 := $indexFile//@data-page/string()
let $index2 := index-of($pageList2, $page) let $index2 := (index-of($pageList2, $page))[1]
let $return := let $return :=
( (
( (
......
...@@ -31,7 +31,7 @@ import module namespace config="http://textgrid.de/ns/SADE/config" at "../config ...@@ -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 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"; 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"); declare variable $transfo:dataCollection := collection("/db/sade-projects/textgrid/data/xml/data");
...@@ -352,11 +352,16 @@ attribute class { ...@@ -352,11 +352,16 @@ attribute class {
string($n/@type), string($n/@type),
string($n/@subtype), 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/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]) (: mod sequence #1 :)
and if (exists($n/child::tei:mod[@seq]) or exists($n/preceding-sibling::tei:mod[@seq]))
$n/child::tei:mod[@seq]/substring-after(@spanTo, '#') = $n/following-sibling::tei:anchor/@xml:id then
) let $thisMod := ($n/child::tei:mod[@seq], $n/preceding-sibling::tei:mod[@seq])[1]
then 'mod-seq-' || string($n/child::tei:mod[@seq][substring-after(@spanTo, '#') = $n/following-sibling::tei:anchor/@xml:id]/@seq) else(), 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(), if ($n/@type="illustration") then 'figure' else(),
transfo:segStyle($n), transfo:segStyle($n),
if( $n/@type="illustration" and $n/parent::tei:line) then "verticalMiddel" else (), if( $n/@type="illustration" and $n/parent::tei:line) then "verticalMiddel" else (),
...@@ -415,8 +420,8 @@ attribute style { ...@@ -415,8 +420,8 @@ attribute style {
transfo:lineHeight($n), transfo:lineHeight($n),
(: look 4 TILE objects :) (: look 4 TILE objects :)
if ($n/tei:seg/tei:rs/tei:figure[@xml:id] or $n/tei:figure[@xml:id]) then 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 $id := string($n/tei:figure/@xml:id)
let $uri := string($n/ancestor::tei:TEI//tei:idno[@type="TextGrid"]) let $uri := string($n/root()//tei:idno[@type="TextGrid"])
let $link := transfo:newestTBLELink($uri, $id) let $link := transfo:newestTBLELink($uri, $id)
let $shape := $link/substring-before(substring-after(@targets, '#'), ' ') let $shape := $link/substring-before(substring-after(@targets, '#'), ' ')
...@@ -664,11 +669,30 @@ as element(xhtml:span) { ...@@ -664,11 +669,30 @@ as element(xhtml:span) {
else () 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 (), else (),
if($node/tei:del[@rend eq "overwritten"]) if($node/tei:del[@rend eq "overwritten"])
then 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()) else transfo:magic($node/node())
} }
}; };
...@@ -763,7 +787,11 @@ if ($node/@place = ('above', 'below')) then ( ...@@ -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;"/> then <xhtml:img src="/public/img/caret:looped-arc-pos-left.svg" width="140px" height="auto" style="left: -0.7cm; position: absolute;"/>
else (), else (),
transfo:magic($node/node()), 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 { element xhtml:div {
attribute class {'addHover italic'}, attribute class {'addHover italic'},
'Hinzufügung', 'Hinzufügung',
...@@ -1100,7 +1128,7 @@ as element(xhtml:span)? { ...@@ -1100,7 +1128,7 @@ as element(xhtml:span)? {
element xhtml:span { element xhtml:span {
$ref/@xml:id ! attribute id { string(.) }, $ref/@xml:id ! attribute id { string(.) },
attribute class { 'ref' }, attribute class { 'ref' },
attribute data-ref { substring-after($ref/@target, '#') }, attribute data-ref { replace($ref/@target, '#', '') },
transfo:magic($ref/node()), transfo:magic($ref/node()),
(: link :) (: link :)
if( starts-with($ref/@target, '#xpath(//surface') if( starts-with($ref/@target, '#xpath(//surface')
...@@ -1181,15 +1209,17 @@ let $directText := ...@@ -1181,15 +1209,17 @@ let $directText :=
[not(parent::tei:add[@place = ('below', 'above')])] [not(parent::tei:add[@place = ('below', 'above')])]
[not(parent::tei:expan)] [not(parent::tei:expan)]
[not(ancestor::tei:fw)] [not(ancestor::tei:fw)]
[not(parent::tei:del)]
let $prvLineText := let $prvLineText :=
if(($n/preceding::text() if(($n/preceding::text()
[not(./parent::tei:expan)] [not(./parent::tei:expan)]
[not(ancestor::tei:fw)] [not(ancestor::tei:fw)]
[not(parent::tei:del)]
[./ancestor::tei:line = $n/ancestor::tei:line] [./ancestor::tei:line = $n/ancestor::tei:line]
)[1]/parent::*/@prev) )[1]/parent::*/@prev)
(: TODO: mechanism for pre text from previous line is disabled. :) (: 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 () else ()
let $prvLineText := let $prvLineText :=
...@@ -1227,7 +1257,7 @@ let $text := ...@@ -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+$"))]) ($n/following::text()[not(parent::tei:expan)][not(ancestor::tei:del)][not(ancestor::tei:fw)][ancestor::tei:line][not(matches(., "^\s+$"))])
) )
, ' ')[1] , ' ')[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, '' ) return if($text = "(") then $text else replace( $text , $transfo:tooltipReplacementPattern, '' )
}; };
...@@ -1236,7 +1266,7 @@ declare function transfo:stamp($node as element(tei:stamp)) ...@@ -1236,7 +1266,7 @@ declare function transfo:stamp($node as element(tei:stamp))
as element(xhtml:div) { as element(xhtml:div) {
element xhtml:div { element xhtml:div {
attribute class {'stamp'}, attribute class {'stamp'},
switch ($node/string(.)) switch (string($node))
case 'FONTANE.' case 'FONTANE.'
return return
<svg xmlns="http://www.w3.org/2000/svg" width="23mm" height="4mm" data-info="Stempel: FONTANE."> <svg xmlns="http://www.w3.org/2000/svg" width="23mm" height="4mm" data-info="Stempel: FONTANE.">
...@@ -1288,6 +1318,10 @@ as element(xhtml:div) { ...@@ -1288,6 +1318,10 @@ as element(xhtml:div) {
return return
<img src="/public/img/stempel-berlin-w.png" width="100%" height="100%"/> <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 default return
<svg xmlns="http://www.w3.org/2000/svg" width="23mm" height="3.5mm"> <svg xmlns="http://www.w3.org/2000/svg" width="23mm" height="3.5mm">
<g alignment-baseline="baseline"> <g alignment-baseline="baseline">
......
Markdown is supported
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