slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

remove stray vty code from ansi command

Browse Source
This commit is contained in:
Simon Michael 2009-01-20 04:28:16 +00:00
parent 7d80cffb45
commit c23bf3b38c
1 changed files with 0 additions and 34 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
ANSICommand.hs
View File

@ -10,7 +10,6 @@ where
import qualified Data.Map as Map import qualified Data.Map as Map
import Data.Map ((!)) import Data.Map ((!))
import qualified Data.ByteString.Char8 as B import qualified Data.ByteString.Char8 as B
import Graphics.Vty
import System.Console.ANSI import System.Console.ANSI
import System.IO import System.IO
import Ledger import Ledger
@ -341,39 +340,6 @@ renderStatus :: Int -> String -> String
renderStatus w s = {- statusattr -} take w (s ++ repeat ' ') renderStatus w s = {- statusattr -} take w (s ++ repeat ' ')
-- the all-important theming engine
theme = 1
(defaultattr,
currentlineattr,
statusattr
) =
case theme of
1 -> ( -- restrained
attr
,setBold attr
,setRV attr
)
2 -> ( -- colorful
setRV attr
,setFG white $ setBG red $ attr
,setFG black $ setBG green $ attr
)
3 -> ( --
setRV attr
,setFG white $ setBG red $ attr
,setRV attr
)
halfbrightattr = setHalfBright attr
reverseattr = setRV attr
redattr = setFG red attr
greenattr = setFG green attr
reverseredattr = setRV $ setFG red attr
reversegreenattr= setRV $ setFG green attr
-- ansi output -- ansi output
updateScreen :: AppState -> IO () updateScreen :: AppState -> IO ()