"theme" is lost when going via draft and membrane

[behrica]

(-> (rdatasets/datasets-iris)
    (pj/lay-point :sepal-length :sepal-width {:color :species})
    (pj/options {:title "White Theme"
                 :theme {:bg "blue" :grid "#eeeeee" :font-size 10}})
    (pj/pose->draft)
    (pj/draft->membrane)
    (pj/membrane->plot :svg {})

    )

ignores the them and I get:

[behrica]

while

(-> (rdatasets/datasets-iris)
    (pj/lay-point :sepal-length :sepal-width {:color :species})
    (pj/options {:title "White Theme"
                 :theme {:bg "blue" :grid "#eeeeee" :font-size 10}})
    
    (pj/plot {:format :svg})

    )

works correctly

(-> (rdatasets/datasets-iris)
(pj/lay-point :sepal-length :sepal-width {:color :species})
(pj/options {:title "White Theme"
:theme {:bg "blue" :grid "#eeeeee" :font-size 10}})

(pj/plot {:format :svg})

)