module Yi.Config.Users.Jeff (myConfig) where
import Yi.Prelude
import Prelude ()
import Yi
import Yi.Keymap.Vim
import Yi.Snippets
import Yi.Snippets.Haskell
myConfig :: Config
myConfig = defaultVimConfig
{ defaultKm = myVimKeymap
, configUI = (configUI defaultVimConfig)
{ configTheme = defaultLightTheme
, configWindowFill = '~'
}
, startActions = [makeAction (maxStatusHeightA %= 20 :: EditorM ())]
}
myVimKeymap = mkKeymap $ defKeymap `override` \super self -> super
{ v_top_level = v_top_level super ||>
(char ';' ?>>! resetRegexE)
, v_ins_char = (v_ins_char super ||> tabKeymap) <|>
choice [ ctrlCh 's' ?>>! moveToNextBufferMark deleteSnippets
, meta (spec KLeft) ?>>! prevWordB
, meta (spec KRight) ?>>! nextWordB
]
}
deleteSnippets = True
tabKeymap = superTab True $ fromSnippets deleteSnippets $
[ ("f", hsFunction)
, ("c", hsClass)
]