make
    :: Applicative f => Config -> AnimId -> State -> (State -> f ())
    -> Widget f -> Widget f
make _ _ Nothing setState w =
    w & Widget.eventMap <>~ addMovements (w ^. focalCenter) [] setState
make
    :: Applicative f => Config -> AnimId -> State -> (State -> f ())
    -> Widget f -> Widget f
make _ _ Nothing setState w =
    w & Widget.eventMap <>~ addMovements (w ^. focalCenter) [] setState
make _ _ Nothing setState w =
    w & Widget.eventMap <>~ addMovements (w ^. focalCenter) [] setState