-- 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.withForeColor
     wbc = Vty.withBackColor
     (indicator, useColor) =
      if cursor
       then (" > ", True)
       else ("   ", False)
     attr =
      if useColor
       then Vty.currentAttr `wfc` Vty.black `wbc` Vty.white
       else Vty.currentAttr `wfc` Vty.white `wbc` Vty.black
    Vty.string attr $ indicator ++ (getName item)
itemImage :: String -> Bool -> Vty.Image
itemImage item cursor = do
-- prints out info on an item
    let
     wfc = Vty.withForeColor
     wbc = Vty.withBackColor
     (indicator, useColor) =
      if cursor
       then (" > ", True)
       else ("   ", False)
     attr =
      if useColor
       then Vty.currentAttr `wfc` Vty.black `wbc` Vty.white
       else Vty.currentAttr `wfc` Vty.white `wbc` Vty.black
    Vty.string attr $ indicator ++ (getName item)
itemImage item cursor = do
-- prints out info on an item
    let
     wfc = Vty.withForeColor
     wbc = Vty.withBackColor
     (indicator, useColor) =
      if cursor
       then (" > ", True)
       else ("   ", False)
     attr =
      if useColor
       then Vty.currentAttr `wfc` Vty.black `wbc` Vty.white
       else Vty.currentAttr `wfc` Vty.white `wbc` Vty.black
    Vty.string attr $ indicator ++ (getName item)