fix(whitespaces): do not purge single spaces

nodes consisting of only a single whitespace can occur and thus may not be purged

closes #3

modules/intermediate_format/whitespace-handling.xqm

@@ -52,8 +52,8 @@ declare default element namespace "http://www.tei-c.org/ns/1.0";
 declare function whitespace:text
     ( $text as text()*, $escape-char as xs:string? ) as text()* {
 
-    let $whitespace-node := $text[matches(., "[\s\n\r\t]") and normalize-space(.) = ""]
-    let $single-whitespace-between-nodes := $text = " "
+    let $whitespace-node := $text[matches(., "[\n\r\t]") and normalize-space(.) = ""]
+
     return
         if (not($whitespace-node)) then (
 
@@ -85,16 +85,3 @@ declare function whitespace:escape-text
 
     text {replace($text, '[\s]+', $escape)}
 };
-
-declare function whitespace:remove($nodes as node()*) as node()* {
-    for $node in $nodes
-    return
-        typeswitch ($node)
-        case text() return
-            if([matches($node, "[\s\n\r\t]") and normalize-space(.) = ""]) then
-                ()
-            else
-                $node
-        default return
-            $node
-};