import Yi
import Yi.Keymap.Emacs as Emacs
import Yi.String (mapLines)

increaseIndent :: BufferM ()
increaseIndent = do
   r <- getSelectRegionB
   r' <- unitWiseRegion Line r -- extend the region to full lines.
   modifyRegionB (mapLines (' ':)) r'


main :: IO ()
main = yi $ defaultEmacsConfig
       {
         defaultKm = Emacs.keymap <|>
                       (ctrlCh '>') ?>>! increaseIndent
         -- bind the function to Ctrl-> and mix with default Emacs keymap.
       }