drawUI :: St -> [Widget EditorName]
drawUI st = [ui]
    where
        e1 = E.renderEditor True (st^.edit1)
        ui = C.center $ hLimit 30 (vLimit 5 e1)
drawUI :: St -> [Widget EditorName]
drawUI st = [ui]
    where
        e1 = E.renderEditor True (st^.edit1)
        ui = C.center $ hLimit 30 (vLimit 5 e1)
drawUI st = [ui]
    where
        e1 = E.renderEditor True (st^.edit1)
        ui = C.center $ hLimit 30 (vLimit 5 e1)