Multi compose

composeExample.scala

import monocle._ Monocle._

case class Order(name: String, articles: List[Article])
case class Article(properties: Map[String, String])

val order = Order("name", List(Article(Map("name" -> "door", "colour" -> "red")), Article(Map("name" -> "shoes"))))

val _articles = Lenser[Order](_.articles)
val _properties = SimpleIso[Article, Map[String, String]](_.properties, Article(_))

val names = order |-> _articles |->> each |->> _properties |->> index("name") getAll