diff --git a/Menu.hs b/Menu.hs
new file mode 100644
--- /dev/null
+++ b/Menu.hs
@@ -0,0 +1,124 @@
+{-
+GPLV3.0 or later copyright brmlab.cz contact timothyhobbs@seznam.cz
+
+Also copyright cheater http://cheater.posterous.com/haskell-curses
+
+Copyright 2012.
+
+This program is free software: you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation, either version 3 of the License, or
+(at your option) any later version.
+
+This program is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+This is a simple library for displaying a menu in a terminal.  It's main function is displayMenu which takes a list of strings and presents them as options to the user, and returns the string that the user selects...
+ 
+This code was written by cheater__ and published here:
+http://cheater.posterous.com/haskell-curses
+
+18:53 < cheater_> hi timthelion
+18:54 < timthelion> cheater_: hi!
+18:54 < timthelion> cheater_: Did you get my message?
+18:54 < cheater_> i think so
+18:54 < cheater_> you had some code you wanted to use right?
+18:54 < timthelion> Yes.
+18:54 < cheater_> what license do you want to release it under?
+18:55 < timthelion> GPL 3.0.
+18:55 < cheater_> ok, that's fine with me
+18:55 < timthelion> thank you :)
+
+-}
+
+module Menu where
+import qualified Graphics.Vty as Vty
+
+getName :: String -> String
+getName item = item
+-- returns the name of a item.
+-- This will become more complicated some day.
+
+itemImage :: String -> Bool -> Vty.Image
+itemImage item cursor = do
+-- prints out info on an item
+    let wfc = Vty.with_fore_color
+    let wbc = Vty.with_back_color
+    let (indicator, useColor) = if cursor
+        then (" > ", True)
+        else ("   ", False)
+    let attr = if useColor
+        then Vty.current_attr `wfc` Vty.black `wbc` Vty.white
+        else Vty.current_attr `wfc` Vty.white `wbc` Vty.black
+    Vty.string attr $ indicator ++ (getName item)
+
+allocate :: IO Vty.Vty
+allocate = do
+-- sets up Vty
+    vt <- Vty.mkVty
+    return vt
+
+deallocate :: Vty.Vty -> IO ()
+deallocate vt =
+-- frees Vty resouces
+    Vty.shutdown vt
+
+handleKeyboard :: Vty.Key -> Int -> Int -> [String] -> Vty.Vty -> IO (Vty.Vty,Maybe Int)
+handleKeyboard key position offset items vt = case key of
+-- handles keyboard input
+    Vty.KASCII 'q' -> return (vt,Nothing)
+    Vty.KEsc -> return (vt,Nothing)
+    Vty.KEnter -> return (vt,Just position)
+    Vty.KASCII 'j' -> work (position + 1) offset items vt
+    Vty.KDown -> work (position + 1) offset items vt
+    Vty.KASCII 'k' -> work (position - 1) offset items vt
+    Vty.KUp -> work (position - 1) offset items vt
+    _ -> work position offset items vt
+	 
+
+work :: Int -> Int -> [String] -> Vty.Vty -> IO (Vty.Vty,Maybe Int)
+work requestedPosition offset items vt = do
+-- displays items 
+    let position = max 0 (min requestedPosition (length items - 1))
+    Vty.DisplayRegion cols rows <- (Vty.terminal_handle >>= Vty.display_bounds)
+    let (cols2, rows2) = (fromEnum cols, fromEnum rows)
+    let screenPosition = position + offset
+    let offset2 = if screenPosition >= rows2
+        then offset - (screenPosition - rows2 + 1)
+        else if screenPosition < 0
+            then offset - screenPosition
+            else offset
+    let items2 = drop (0 - offset2) $ zip [0..] items
+    let itemImages = map
+            (\(line, item) -> itemImage item (line == position))
+            items2
+    let imagesUnified = Vty.vert_cat itemImages
+    let pic = Vty.pic_for_image $ imagesUnified
+    Vty.update vt pic
+    eventLoop position offset2 items vt
+
+eventLoop :: Int -> Int -> [String] -> Vty.Vty -> IO (Vty.Vty, Maybe Int)
+eventLoop position offset items vt = do
+    ev <- Vty.next_event vt
+    case ev of
+     Vty.EvKey key _ -> handleKeyboard key position offset items vt
+     _ -> eventLoop position offset items vt
+
+displayMenu :: [String] -> IO (Maybe String)
+displayMenu items = do
+ vty <- allocate
+ (vty',maybePos) <- work 0 0 items vty
+ deallocate vty'
+ case maybePos of
+  Just pos -> return $ Just $ items !! pos
+  Nothing -> return Nothing
+
+--main = do
+-- choice <- displayMenu ["Hi","Bye","The other thing."]
+-- print choice
+-- the main program
diff --git a/hdm.cabal b/hdm.cabal
--- a/hdm.cabal
+++ b/hdm.cabal
@@ -1,5 +1,5 @@
 Name: hdm
-Version: 0.0
+Version: 0.0.1
 Synopsis: a small display manager.
 Description: A small display manager which loads from shell and just provides a text based menu for selecting the xinitrc file of your choice.  I created it for use with xmonad, where I often wish to start up gnome or xfce4 as well.  Since this uses startx, it handles multiple xsessions seamlessly.
 Category:System
@@ -15,4 +15,5 @@
 Executable hdm
  build-depends:base<5,vty,unix,process,directory
  Main-is: hdm.lhs
+ other-modules:Menu
  extensions: DoAndIfThenElse