Add border to terminal display

2025-12-23 15:43:56 +00:00
parent 183bb16fca
commit 238d6b8799
9 changed files with 133 additions and 125 deletions
@@ -41,6 +41,9 @@ drawSelectionList ldps cfig sl =
            (ldps ^. ldpScale)
            0
            (makeSelectionListPictures sl)
+        <> foldMap (color white . polygonWire . f) (ldps ^. ldpBorder)
+  where
+    f (x,y) = rectNSWE 5 (negate $ 20 * fromIntegral y + 5) (-5) (10 * fromIntegral x)

 drawTitleBackground :: Config -> Picture
 drawTitleBackground cfig =