module Yi.Config.Default.Cua (configureCua) where

import Lens.Micro.Platform ((.=))
import Yi.Config.Simple    (ConfigM)
import Yi.Config.Lens      (defaultKmA)
import Yi.Keymap.Cua

configureCua :: ConfigM ()
configureCua :: ConfigM ()
configureCua = (KeymapSet -> Identity KeymapSet) -> Config -> Identity Config
Lens' Config KeymapSet
defaultKmA ((KeymapSet -> Identity KeymapSet) -> Config -> Identity Config)
-> KeymapSet -> ConfigM ()
forall s (m :: * -> *) a b.
MonadState s m =>
ASetter s s a b -> b -> m ()
.= KeymapSet
keymap