Obtain the domain from a Layer

```elm
layer =  Charter.Layer box
                    [ Charter.line [][(0,10),(10,20) ]

domain = Charter.domainFromLayer layer
-- domain.x = (0,10)
-- domain.y = (10,20)
```