theMap :: A.AttrMap
theMap = A.attrMap V.defAttr
    [ (E.editAttr, V.white `on` V.black)
     ,(A.attrName "ITinteger", V.withStyle (V.green `on` V.black) V.bold)
     ,(A.attrName "ITvarid", V.withStyle (V.blue `on` V.black) V.bold)
    ]
theMap :: A.AttrMap
theMap = A.attrMap V.defAttr
    [ (E.editAttr, V.white `on` V.black)
     ,(A.attrName "ITinteger", V.withStyle (V.green `on` V.black) V.bold)
     ,(A.attrName "ITvarid", V.withStyle (V.blue `on` V.black) V.bold)
    ]
theMap = A.attrMap V.defAttr
    [ (E.editAttr, V.white `on` V.black)
     ,(A.attrName "ITinteger", V.withStyle (V.green `on` V.black) V.bold)
     ,(A.attrName "ITvarid", V.withStyle (V.blue `on` V.black) V.bold)
    ]