scalaz.example.xml.cursor.Simple.scala Maven / Gradle / Ivy

Go to download

Show more of this group Show more artifacts with this name
Show all versions of scalaz-example_2.10 Show documentation

scalaz-example

The newest version!

package scalaz.example
package xml
package cursor

object Simple {
  val data =
"""
  
    
  
  
  
    
    
    
    
    
    
    
    
      search
    
"""

  import scalaz._, Scalaz._, xml.Xml._

  def main(args: Array[String]) {
    // Parse the document into a tree
    val r = data.parseXml

    val w =
      r map (c =>
        for {
          // Create a cursor and advance it to the first child that is a comment
          comment <- +c findChild (_.current.isComment)
          // Convert the contents of the comment to upper-case
          u = comment -->> (_ usingComment (_ map (_.toUpper)))
          // Move the cursor back to the parent
          p <- u.^
          // Move the cursor to the first child element named 
          e <- p findChildElementName ("body" == _)
          // Move the cursor to the first child element named 
          h <- e findChild (_.current.elem exists (qnames(name = "div", prefix = Some("x".toList)) === _.name))
          // Move the cursor to the first child element named 
          anchor <- h findChildElementName ("a" == _)
          // Update the element with new attributes
          a = anchor -->> (_ usingElem (_ *** ("id" -=- "modified_href", "href" -=- "http://yahoo.com/")))
        } yield -a
      )

    // Print the result after performing the update on an immutable data structure.
    w flatMap (_.toList) foreach (_.println)
  }
}