replaceEventMap :: _ => Sugar.Delete f -> m (EventMap (f GuiState.Update))
replaceEventMap x =
    Lens.view id
    <&>
    \env ->
    let mk action docLens =
            action <&> WidgetIds.fromEntityId
            & E.keysEventMapMovesCursor (Config.delKeys env)
                (E.toDoc env [has . MomentuTexts.edit, has . docLens])
    in
    case x of
    Sugar.SetToHole action -> mk action Texts.setToHole
    Sugar.Delete action -> mk action MomentuTexts.delete
    Sugar.CannotDelete -> mempty
replaceEventMap :: _ => Sugar.Delete f -> m (EventMap (f GuiState.Update))
replaceEventMap x =
    Lens.view id
    <&>
    \env ->
    let mk action docLens =
            action <&> WidgetIds.fromEntityId
            & E.keysEventMapMovesCursor (Config.delKeys env)
                (E.toDoc env [has . MomentuTexts.edit, has . docLens])
    in
    case x of
    Sugar.SetToHole action -> mk action Texts.setToHole
    Sugar.Delete action -> mk action MomentuTexts.delete
    Sugar.CannotDelete -> mempty
replaceEventMap x =
    Lens.view id
    <&>
    \env ->
    let mk action docLens =
            action <&> WidgetIds.fromEntityId
            & E.keysEventMapMovesCursor (Config.delKeys env)
                (E.toDoc env [has . MomentuTexts.edit, has . docLens])
    in
    case x of
    Sugar.SetToHole action -> mk action Texts.setToHole
    Sugar.Delete action -> mk action MomentuTexts.delete
    Sugar.CannotDelete -> mempty