makeLiteralCommon ::
    _ =>
    Maybe Text -> String ->
    Lens.ALens' (Texts.CodeUI Text) Text ->
    m ((Char -> Sugar.Literal Identity) ->
          (Sugar.Literal Identity -> o Sugar.EntityId) -> EventMap (o Widget.Id))
makeLiteralCommon mGroupDesc chars help =
    Lens.view id <&> E.toDoc
    <&> \toDoc f makeLiteral ->
    E.charGroup mGroupDesc (toDoc [has . MomentuTexts.edit, has . Lens.cloneLens help])
    chars (fmap WidgetIds.fromEntityId . makeLiteral . f)
makeLiteralCommon ::
    _ =>
    Maybe Text -> String ->
    Lens.ALens' (Texts.CodeUI Text) Text ->
    m ((Char -> Sugar.Literal Identity) ->
          (Sugar.Literal Identity -> o Sugar.EntityId) -> EventMap (o Widget.Id))
makeLiteralCommon mGroupDesc chars help =
    Lens.view id <&> E.toDoc
    <&> \toDoc f makeLiteral ->
    E.charGroup mGroupDesc (toDoc [has . MomentuTexts.edit, has . Lens.cloneLens help])
    chars (fmap WidgetIds.fromEntityId . makeLiteral . f)
makeLiteralCommon mGroupDesc chars help =
    Lens.view id <&> E.toDoc
    <&> \toDoc f makeLiteral ->
    E.charGroup mGroupDesc (toDoc [has . MomentuTexts.edit, has . Lens.cloneLens help])
    chars (fmap WidgetIds.fromEntityId . makeLiteral . f)