Fix bugs

modules/intermediate_format/ifweb.xql

@@ -22,7 +22,7 @@ declare function ifweb:main($resource as xs:string) as xs:string? {
     let $doc := doc($config:sade-data || $resource)
     let $filename := substring-before($resource, '.xml') || "-if.xml"
     
-    let $replace-whitespace := false()
+    let $replace-whitespace := true()
     let $preprocessed-data := pre:preprocessing($doc/tei:TEI, $replace-whitespace)
     let $intermediate-format := ident:walk($preprocessed-data, ())
     

modules/intermediate_format/preprocessing.xqm

@@ -115,7 +115,8 @@ declare function pre:default-element
             and $following-sibling[self::ref or self::app or self::hi or self::bibl
             or self::foreign or self::choice or self::milestone or self::persName
             or self::choice or self::index or self::seg or self::ptr]
-            and not($node[self::index]))
+            and not($node[self::index])
+            or ($node[self::milestone]) and $following-node[self::text()])
             then
                 attribute {"break-after"}{"yes"}
             else ()),