add @break='yes' if tei:pb has a whitespace text() as preceding or following sibling

modules/intermediate_format/preprocessing.xqm

@@ -186,7 +186,7 @@ declare function pre:preprocessing
             )
             
             case element(pb) return (
-                let $preceeding-sibling := $node/preceding-sibling::node()[1]
+                let $preceding-sibling := $node/preceding-sibling::node()[1]
                 let $following-sibling := $node/following-sibling::node()[1]
                 let $first := $node = $node/parent::node()/node()[not(self::text() and normalize-space(self::node()) = '')][1]
                 let $ignore := ("docAuthor", "app", "index", "seg", "bibl")
@@ -195,15 +195,29 @@ declare function pre:preprocessing
                         $node/@*,
                          
                         if ( 
-                                ( $preceeding-sibling[self::text() and not(normalize-space(.) = '')] and ends-with($preceeding-sibling, " ") = false() )
-                                and
-                                ( $following-sibling[self::text() and not(normalize-space(.) = '')] and starts-with($following-sibling, " ") = false() )
-                            ) then ( attribute {"break"}{"no"} ) 
+                            ( $preceding-sibling[self::text() and not(normalize-space(.) = '')] and ends-with($preceding-sibling, " ") = false() )
+                            and
+                            ( $following-sibling[self::text() and not(normalize-space(.) = '')] and starts-with($following-sibling, " ") = false() )
+                        ) then ( attribute {"break"}{"no"} ) 
                         
+                        (:else if ( 
+                                ( $preceeding-sibling[self::text() and not(normalize-space(.) = '')] and ends-with($preceeding-sibling, " ") = true() )
+                                and
+                                ( $following-sibling[self::text() and not(normalize-space(.) = '')] and starts-with($following-sibling, " ") = true() )
+                            ) then ( attribute {"clear"}{"left"} ) :)
+                            
                         else if ( $following-sibling[self::docAuthor or self::app or self::index or self::seg or self::bibl] ) then (
                             attribute {"break"}{"yes"}
                         )
                         
+                        else if ( 
+                            ( $preceding-sibling[self::text() and normalize-space(.) = ''] )
+                            and
+                            ( $following-sibling[self::text() and normalize-space(.) = ''] )
+                        ) then (
+                            attribute {"break"}{"yes"}
+                        )
+                        
                         else ( )
                     }
             )