yi-0.4.6: examples/yi-simple.hs

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 $ defaultConfig
       {
         defaultKm = Emacs.keymap <|>
                       (ctrl (char '>') ?>>! increaseIndent)
         -- bind the function to Ctrl-> and mix with default Emacs keymap.
       }