diff --git a/rasa.cabal b/rasa.cabal
--- a/rasa.cabal
+++ b/rasa.cabal
@@ -1,5 +1,5 @@
 name: rasa
-version: 0.1.4
+version: 0.1.5
 cabal-version: >=1.10
 build-type: Simple
 license: MIT
diff --git a/src/Rasa/Ext.hs b/src/Rasa/Ext.hs
--- a/src/Rasa/Ext.hs
+++ b/src/Rasa/Ext.hs
@@ -52,6 +52,8 @@
   , newBuffer
   , nextBufRef
   , prevBufRef
+  , getBufRefs
+  , getBuffers
 
   -- * Working with Buffers
   , BufAction
diff --git a/src/Rasa/Internal/Directive.hs b/src/Rasa/Internal/Directive.hs
--- a/src/Rasa/Internal/Directive.hs
+++ b/src/Rasa/Internal/Directive.hs
@@ -11,6 +11,7 @@
   , exit
   , newBuffer
   , getBufRefs
+  , getBuffers
   , nextBufRef
   , prevBufRef
 
@@ -32,6 +33,7 @@
 
 import Control.Lens
 import Control.Monad
+import Control.Arrow (first)
 import Data.Maybe
 import Data.IntMap as M
 import qualified Yi.Rope as Y
@@ -71,6 +73,12 @@
 getBufRefs :: Action [BufRef]
 getBufRefs = fmap BufRef <$> use (buffers.to keys)
 
+-- | Returns an up-to-date list of all 'Buffer's, returned values
+-- are read-only; altering them has no effect on the actual stored bufferrs.
+-- This function is useful for renderers.
+getBuffers :: Action [(BufRef, Buffer)]
+getBuffers = fmap (first BufRef) <$> use (buffers.to assocs)
+
 -- | Gets 'BufRef' that comes after the one provided
 nextBufRef :: BufRef -> Action BufRef
 nextBufRef br@(BufRef bufInt) = do
@@ -90,11 +98,10 @@
   if M.null bufMap
      then return br
      else do
-       let mLesserInd = lookupGT bufInt bufMap
+       let mLesserInd = lookupLT bufInt bufMap
        case mLesserInd of
          Just (lesserInd, _) -> return $ BufRef lesserInd
          Nothing -> return . BufRef . fst . findMax $ bufMap
-
 
 -- | This signals to the editor that you'd like to shutdown. The current events
 -- will finish processing, then the 'Rasa.Ext.Scheduler.onExit' hook will run,
diff --git a/src/Rasa/Internal/Editor.hs b/src/Rasa/Internal/Editor.hs
--- a/src/Rasa/Internal/Editor.hs
+++ b/src/Rasa/Internal/Editor.hs
@@ -44,7 +44,7 @@
 -- 'Nothing' if a value was expected.
 newtype BufRef =
   BufRef Int
-  deriving (Show, Eq)
+  deriving (Show, Eq, Ord)
 
 -- | This is the primary state of the editor.
 data Editor = Editor
diff --git a/src/Rasa/Internal/Events.hs b/src/Rasa/Internal/Events.hs
--- a/src/Rasa/Internal/Events.hs
+++ b/src/Rasa/Internal/Events.hs
@@ -48,10 +48,14 @@
 data Keypress
   = Keypress Char
              [Mod]
-  | Esc
-  | BS
-  | Enter
-  | Unknown
+  | KEsc
+  | KBS
+  | KEnter
+  | KUnknown
+  | KLeft
+  | KRight
+  | KUp
+  | KDown
   deriving (Show, Eq, Typeable)
 
 -- | This represents each modifier key that could be pressed along with a key.