Cleanup
This commit is contained in:
@@ -60,7 +60,6 @@ drawSSMultiCursor sss msel mextra ldp curs cfig = translateScreenPos cfig (ldp ^
|
|||||||
maxxoff = maximum . fmap _siOffX $ selitms
|
maxxoff = maximum . fmap _siOffX $ selitms
|
||||||
minxoff = minimum . fmap _siOffX $ selitms
|
minxoff = minimum . fmap _siOffX $ selitms
|
||||||
let col = white
|
let col = white
|
||||||
-- col <- fmap (_siColor . fst) $ IM.minView selitms
|
|
||||||
return $
|
return $
|
||||||
listCursorChooseBorderScale
|
listCursorChooseBorderScale
|
||||||
(ldp ^. ldpVerticalGap)
|
(ldp ^. ldpVerticalGap)
|
||||||
@@ -69,6 +68,5 @@ drawSSMultiCursor sss msel mextra ldp curs cfig = translateScreenPos cfig (ldp ^
|
|||||||
yint
|
yint
|
||||||
(minxoff + sindent)
|
(minxoff + sindent)
|
||||||
col
|
col
|
||||||
--(sindent + 15 + maxxoff - minxoff)
|
|
||||||
(15 + maxxoff - minxoff)
|
(15 + maxxoff - minxoff)
|
||||||
ysize
|
ysize
|
||||||
|
|||||||
Reference in New Issue
Block a user