Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Menu
Open sidebar
fontane-notizbuecher
SADE
Commits
4ca44fb7
Commit
4ca44fb7
authored
Nov 13, 2018
by
MRodz
Committed by
mrodzis
Feb 05, 2019
Browse files
Remove surplus module
parent
67cf878e
Changes
1
Show whitespace changes
Inline
Side-by-side
modules/fontane/teisimpleprint/tei2print.xqm
deleted
100644 → 0
View file @
67cf878e
xquery version "3.1";
(:~
: @@@
:
: @author Michelle Rodzis
: @version 0.1
: @since TODO
:)
module namespace tei2print="http://fontane-nb.dariah.eu/tei2print";
import module namespace config="http://textgrid.de/ns/SADE/config" at "../../config/config.xqm";
import module namespace simpleHelpers="http://fontane-nb.dariah.eu/teisimplehelpers" at "teisimplehelpers.xqm";
declare namespace tei="http://www.tei-c.org/ns/1.0";
declare option exist:serialize "method=text media-type=text/plain indent=no";
declare function tei2print:main($nodes as node()*) as xs:string {
let $assure-dir := simpleHelpers:assure-dir-available("resources/tex/")
let $transform := element div {tei2print:transform($nodes)}
return xmldb:store($config:app-root || "/resources/tex/", "fontane-print.tex", $transform)
};
declare function tei2print:transform($nodes as node()*) as xs:string* {
for $node in $nodes return
typeswitch($node)
case text() return
$node
case element(tei:pb) return
"[" || (if($node/@n) then $node/@n else $node/@type) || "]"
case element(tei:list) return
"\startitemize " || tei2print:transform($node/node()) || "\stopitemize "
default return
tei2print:transform($node/node())
};
\ No newline at end of file
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment