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