Hadaly simple sample

package com.monoiz.matchismo

import com.monoiz.hadaly.ViewM._
import com.monoiz.hadaly.MonadReader.MonadReader._
import com.monoiz.hadaly.Implicits._
import ViewM._
import Views._

import org.scaloid.common._
import org.scaloid.common._
import _root_.android.os.Bundle
import android.graphics.Color
import android.widget.{Button, TextView, LinearLayout}
import android.view.View
import android.content.Context
//import com.monoiz.hadaly.ViewM.{S, VTypeGroup}

class Matchismo extends SActivity {
  type ViewSM = List[TraitViewGroup[_]]

  override def onCreate(savedState: Bundle) {
    super.onCreate(savedState)

    val prefs = Preferences()
    val card = textViewV("Ð") <+| (Background -> Color.RED) |+>
    val cardRow = sequence((1 to 5).map(_ => textViewV("Ð")))
    val cardRows = (1 to 4) map(_ => linearLayoutV <+ cardRow)
    val cardsUI = verticalLayoutV <+ sequence(cardRows map (_.asViewM))
    val rows = (for {
      i <- 1 to 4
      j <- 1 to 4
    } yield buttonV(s"Btn$i$j")).grouped(4).map(linearLayoutV <+ sequence(_)).toSeq

    val layoutVL1 = verticalLayoutV <+ sequence(rows map (_.asViewM))

    val k = cardsUI.render
    setContentView(k)
  }
}