XQuery Blue Mountain Project - Part III

01-clean-articles.xqy

xquery version "3.1";

declare namespace tei = "http://www.tei-c.org/ns/1.0";

let $old := fn:doc("/bluemountain-transcriptions/periodicals/bmtnaab/issues/1920/02_01/bmtnaab_1920-02_01.tei.xml")
return 
  copy $new := $old
  modify (
    delete node $new/tei:TEI/tei:facsimile,
    delete node $new//@facs,
    delete node $new//tei:pc[@type="endhypen"]/following-sibling::tei:lb,
    delete node $new//tei:pc[@type="endhypen"],
    for $lb in $new//tei:lb
    return replace node $lb with " "
  )
  return $new/tei:TEI