Display root+tree selection when aiming

2024-10-28 14:26:09 +00:00
parent 53557965d0
commit 97c3f1262b
6 changed files with 130 additions and 82 deletions
@@ -58,7 +58,8 @@ drawSSMultiCursor sss msel mextra ldp curs cfig = translateScreenPos cfig (ldp ^
            ysize = sum . fmap _siHeight $ selitms
            maxoff = maximum . fmap _siOffX $ selitms
            minoff = minimum . fmap _siOffX $ selitms
-        col <- fmap (_siColor . fst) $ IM.minView selitms
+        let col = white
+--        col <- fmap (_siColor . fst) $ IM.minView selitms
        return $
            listCursorChooseBorderScale
                (ldp ^. ldpVerticalGap)