diff --git a/LICENSE b/LICENSE
new file mode 100644
--- /dev/null
+++ b/LICENSE
@@ -0,0 +1,21 @@
+The MIT License
+
+Copyright (c) 2016 Chris Penner
+
+Permission is hereby granted, free of charge, to any person obtaining a copy
+of this software and associated documentation files (the "Software"), to deal
+in the Software without restriction, including without limitation the rights
+to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+copies of the Software, and to permit persons to whom the Software is
+furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in
+all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+THE SOFTWARE.
diff --git a/Setup.hs b/Setup.hs
new file mode 100644
--- /dev/null
+++ b/Setup.hs
@@ -0,0 +1,2 @@
+import Distribution.Simple
+main = defaultMain
diff --git a/rasa-ext-vim.cabal b/rasa-ext-vim.cabal
new file mode 100644
--- /dev/null
+++ b/rasa-ext-vim.cabal
@@ -0,0 +1,38 @@
+name:                rasa-ext-vim
+version:             0.1.0.0
+synopsis:            Rasa Ext for vim bindings
+description:         Rasa Ext for vim bindings
+homepage:            https://github.com/ChrisPenner/rasa/
+license:             MIT
+license-file:        LICENSE
+author:              Chris Penner
+maintainer:          christopher.penner@gmail.com
+copyright:           2016 Chris Penner
+category:            Extension
+build-type:          Simple
+-- extra-source-files:
+cabal-version:       >=1.10
+
+library
+  hs-source-dirs:      src
+  exposed-modules:     Rasa.Ext.Vim
+  build-depends:       base >= 4.7 && < 5
+                     , rasa
+                     , rasa-ext-files
+                     , rasa-ext-cursors
+                     , rasa-ext-status-bar
+                     , text
+                     , yi-rope
+                     , text-lens
+                     , data-default
+                     , lens
+                     , mtl
+  default-language:    Haskell2010
+
+  default-extensions:
+
+  ghc-options:         -Wall
+
+source-repository head
+  type:     git
+  location: https://github.com/ChrisPenner/rasa
diff --git a/src/Rasa/Ext/Vim.hs b/src/Rasa/Ext/Vim.hs
new file mode 100644
--- /dev/null
+++ b/src/Rasa/Ext/Vim.hs
@@ -0,0 +1,136 @@
+{-# Language OverloadedStrings #-}
+module Rasa.Ext.Vim
+  ( vim
+  ) where
+
+import Rasa.Ext
+import Rasa.Ext.Files (save)
+import Rasa.Ext.Cursors
+import Rasa.Ext.StatusBar
+
+import Control.Lens
+import Data.Text.Lens (packed)
+import Data.Default
+import Data.Typeable
+import qualified Data.Text as T
+import qualified Yi.Rope as Y
+
+data VimSt
+  = Normal
+  | Insert
+  deriving (Show, Typeable)
+
+instance Default VimSt where
+  def = Normal
+
+-- | A helper to extract the vim state from the current buffer.
+-- Specifying the type is what allows it to work.
+getVim :: BufAction VimSt
+getVim = use bufExt
+
+-- | A helper to set the current VimSt to the new mode
+setMode :: VimSt -> BufAction ()
+setMode vimst = bufExt .= vimst
+
+-- | The main export for the vim keybinding extension. Add this to your user config.
+--
+-- e.g.
+--
+-- > rasa [keypressProvider] $ do
+-- >    vim
+-- >    ...
+vim :: Scheduler ()
+vim = do
+  -- Register to listen for keypresses
+  eventListener handleKeypress
+  -- Set the status bar to the current mode before each render
+  beforeRender setStatus
+
+-- | The event hook which listens for keypresses and responds appropriately
+handleKeypress :: Keypress -> Action ()
+handleKeypress keypress = do
+  focMode <- focusDo $ do
+    mode <- getVim
+    case mode of
+      Normal -> normal keypress
+      Insert -> insert keypress
+    return mode
+  global focMode keypress
+
+-- | Sets the status bar to the current mode
+setStatus :: Action ()
+setStatus = focusDo $ do
+  mode <- getVim
+  centerStatus $ show mode^.packed
+
+-- | Listeners for keypresses that run regardless of current mode.
+global :: VimSt -> Keypress -> Action ()
+global Normal (Keypress '+' _) = nextBuf
+global Normal (Keypress '-' _) = prevBuf
+global _ (Keypress 'c' [Ctrl]) = exit
+global _ _ = return ()
+
+-- | Listeners for keypresses when in 'Insert' mode
+insert :: Keypress -> BufAction ()
+insert Esc = setMode Normal
+insert BS = moveRangesByN (-1) >> delete
+insert Enter = insertText "\n"
+insert (Keypress c _) = insertText (T.singleton c) >> moveRangesByN 1
+insert _ = return ()
+
+-- | Listeners for keypresses when in 'Normal' mode
+normal :: Keypress -> BufAction ()
+normal (Keypress 'i' _) = setMode Insert
+normal (Keypress 'I' _) = startOfLine >> setMode Insert
+normal (Keypress 'a' _) = moveRangesByN 1 >> setMode Insert
+normal (Keypress 'A' _) = endOfLine >> setMode Insert
+normal (Keypress '0' _) = startOfLine
+normal (Keypress '$' _) = endOfLine
+normal (Keypress 'g' _) = ranges .= [Range (Coord 0 0) (Coord 0 1)]
+
+normal (Keypress 'G' _) = do
+  txt <- use rope
+  ranges .= [Range ((Offset $ Y.length txt - 1)^.asCoord txt) ((Offset $ Y.length txt)^.asCoord txt)]
+
+normal (Keypress 'o' _) = endOfLine >> insertText "\n" >> moveRangesByN 1 >> setMode Insert
+normal (Keypress 'O' _) = startOfLine >> insertText "\n" >> setMode Insert
+normal (Keypress 'h' _) = moveRangesByN (-1)
+normal (Keypress 'l' _) = moveRangesByN 1
+normal (Keypress 'k' _) = moveRangesByC $ Coord (-1) 0
+normal (Keypress 'K' _) = rangeDo_ $ addRange . moveRange (Coord (-1) 0)
+normal (Keypress 'j' _) = moveRangesByC $ Coord 1 0
+normal (Keypress 'J' _) = rangeDo_ $ addRange . moveRange (Coord 1 0)
+normal (Keypress 'w' _) = findNext " " >> moveRangesByC (Coord 0 1)
+normal (Keypress 'W' _) = rangeDo_ addCursor
+  where
+    addCursor (Range _ end) = do
+      next <- findNextFrom " " end
+      let newStart = moveCursorByN 1 next
+          newEnd = moveCursorByN 1 newStart
+      addRange $ Range newStart newEnd
+
+normal (Keypress 'B' _) = rangeDo_ addCursor
+  where
+    addCursor (Range start _) = do
+      next <- findPrevFrom " " start
+      let newStart = next
+          newEnd = moveCursorByN 1 newStart
+      addRange $ Range newStart newEnd
+
+normal (Keypress 'b' _) = moveRangesByN (-1) >> findPrev " "
+normal (Keypress 'f' _) = findNext "f"
+normal (Keypress 'F' _) = findPrev "f"
+normal (Keypress 'X' _) = moveRangesByN (-1) >> delete
+normal (Keypress 'x' _) = delete
+normal (Keypress 's' [Ctrl]) = save
+normal (Keypress ';' _) = ranges <~ use (ranges.reversed.to (take 1))
+normal _ = return ()
+
+-- | Move cursors to end of the line
+endOfLine :: BufAction ()
+endOfLine = findNext "\n"
+
+-- | Move cursors to start of the line
+startOfLine :: BufAction ()
+startOfLine = findPrev "\n"
+