@@ -37,6 +37,7 @@ textInput
3737 -> VtyWidget t m (Dynamic t Text)
3838textInput cfg = do
3939 i <- input
40+ f <- focus
4041 rec v <- foldDyn ($) (_textInputConfig_initialValue cfg) $ mergeWith (.)
4142 [ updateTextZipper <$> i
4243 , _textInputConfig_modify cfg
@@ -47,7 +48,8 @@ textInput cfg = do
4748 dw <- displayWidth
4849 dh <- displayHeight
4950 click <- mouseDown V.BLeft
50− let rows = (\w s -> displayLines w V.defAttr cursorAttributes s) <$> dw <*> v
51+ let cursorAttrs = ffor f $ \x -> if x then cursorAttributes else V.defAttr
52+ let rows = (\w s c -> displayLines w V.defAttr c s) <$> dw <*> v <*> cursorAttrs
5153 img = images . _displayLines_spans <$> rows
5254 y <- holdUniqDyn $ _displayLines_cursorY <$> rows
5355 let newScrollTop :: Int -> (Int, Int) -> Int