From a648d77052f04d4731d728fc317a0947b35a3ed5 Mon Sep 17 00:00:00 2001 From: tv Date: Mon, 9 Mar 2026 03:35:50 +0100 Subject: externalize segmentation renderer --- src/TextViewport/Buffer/Item.hs | 17 ++--------------- 1 file changed, 2 insertions(+), 15 deletions(-) (limited to 'src/TextViewport/Buffer/Item.hs') diff --git a/src/TextViewport/Buffer/Item.hs b/src/TextViewport/Buffer/Item.hs index b5ea743..00edf7b 100644 --- a/src/TextViewport/Buffer/Item.hs +++ b/src/TextViewport/Buffer/Item.hs @@ -1,21 +1,8 @@ module TextViewport.Buffer.Item where -import Data.Text (Text) -import Data.HashMap.Strict qualified as HM -import Text.Hyphenation qualified as H - -data Item a = Item +data Item a seg = Item { itemText :: a - , itemSegments :: SegmentStrategy a + , itemSegments :: seg } deriving (Eq, Show) - -data SegmentStrategy a - = NoSegments - | FixedWidthSegments - | HyphenateSegments - { hsLang :: H.Language - , hsCache :: HM.HashMap a [(a, a)] - } - deriving (Eq, Show) -- cgit v1.2.3