modularize

2 files changed, 62 insertions, 0 deletions

diff --git a/src/TextViewport/Buffer/Buffer.hs b/src/TextViewport/Buffer/Buffer.hs
new file mode 100644
index 0000000..7b9582f
--- /dev/null
+++ b/src/TextViewport/Buffer/Buffer.hs
@@ -0,0 +1,35 @@
+module TextViewport.Buffer.Buffer where
+
+import Data.Sequence qualified as Seq
+import TextViewport.Buffer.Item (Item)
+
+newtype Buffer = Buffer { unBuffer :: Seq.Seq Item }
+  deriving (Eq, Show)
+
+-- | Build a buffer from a list
+fromList :: [Item] -> Buffer
+fromList xs = Buffer (Seq.fromList xs)
+
+-- | Modify an item at index
+modifyItem :: Int -> (Item -> Item) -> Buffer -> Buffer
+modifyItem ix f (Buffer xs) =
+    Buffer (Seq.adjust' f ix xs)
+
+-- | Insert an item
+insertItem :: Int -> Item -> Buffer -> Buffer
+insertItem ix x (Buffer xs) =
+    Buffer (Seq.insertAt ix x xs)
+
+-- | Delete an item
+deleteItem :: Int -> Buffer -> Buffer
+deleteItem ix (Buffer xs) =
+    Buffer (Seq.deleteAt ix xs)
+
+-- | Append an item
+appendItem :: Item -> Buffer -> Buffer
+appendItem x (Buffer xs) =
+    Buffer (xs Seq.|> x)
+
+-- | Extract underlying Seq (if needed)
+toSeq :: Buffer -> Seq.Seq Item
+toSeq (Buffer xs) = xs
diff --git a/src/TextViewport/Buffer/Item.hs b/src/TextViewport/Buffer/Item.hs
new file mode 100644
index 0000000..b08aaf4
--- /dev/null
+++ b/src/TextViewport/Buffer/Item.hs
@@ -0,0 +1,27 @@
+module TextViewport.Buffer.Item where
+
+import Data.Text (Text)
+import Data.HashMap.Strict qualified as HM
+import Text.Hyphenation qualified as H
+
+
+data Item = Item
+  { itemText :: Text
+  , itemSegments :: SegmentStrategy
+  }
+  deriving (Eq, Show)
+
+data SegmentStrategy
+  = NoSegments
+  | FixedWidthSegments
+  | HyphenateSegments
+      { hsDict  :: H.Hyphenator
+      , hsCache :: HM.HashMap Text [(Text, Text)]
+      }
+  deriving (Eq, Show)
+
+instance Show H.Hyphenator where
+  show _ = "<Hyphenator>"
+
+instance Eq H.Hyphenator where
+  a == b =  False