applyEventMap :: _ => o Sugar.EntityId -> GuiM env i o (EventMap (o GuiState.Update))
applyEventMap action =
    Lens.view id <&>
    \env ->
    action <&> WidgetIds.fromEntityId
    & E.keysEventMapMovesCursor
        [noMods ModKey.Key'Space]
        (E.toDoc env
            [ has . MomentuTexts.edit
            , has . Texts.apply
            ])
applyEventMap :: _ => o Sugar.EntityId -> GuiM env i o (EventMap (o GuiState.Update))
applyEventMap action =
    Lens.view id <&>
    \env ->
    action <&> WidgetIds.fromEntityId
    & E.keysEventMapMovesCursor
        [noMods ModKey.Key'Space]
        (E.toDoc env
            [ has . MomentuTexts.edit
            , has . Texts.apply
            ])
applyEventMap action =
    Lens.view id <&>
    \env ->
    action <&> WidgetIds.fromEntityId
    & E.keysEventMapMovesCursor
        [noMods ModKey.Key'Space]
        (E.toDoc env
            [ has . MomentuTexts.edit
            , has . Texts.apply
            ])