Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
fix highlighting in terminal frontends
  • Loading branch information
Mikolaj committed Mar 21, 2011
1 parent dc34ab7 commit ff6b65d
Show file tree
Hide file tree
Showing 2 changed files with 3 additions and 1 deletion.
2 changes: 2 additions & 0 deletions src/Display/Vty.hs
Expand Up @@ -61,6 +61,8 @@ nextEvent session =
e <- V.next_event session
maybe (nextEvent session) return (keyTranslate e)

type AttrColor = Color

attr = def_attr

setBold a = with_style a bold
Expand Down
2 changes: 1 addition & 1 deletion src/Display2.hs
Expand Up @@ -194,7 +194,7 @@ displayLevel session per
in
case over (loc `shift` ((sy+1) * n, 0)) of
Just c -> (attr, c)
_ -> (ra . vision $ attr, rv))
_ -> (vision . ra $ attr, rv))
msg
(take 40 (levelName nm ++ repeat ' ') ++
take 10 ("$: " ++ show gold ++ repeat ' ') ++
Expand Down

0 comments on commit ff6b65d

Please sign in to comment.